// C code generated by Lisaac compiler (www.isaacOS.com) //
int arg_count;
char **arg_vector;

//==========================//
// EXTERNAL                 //
//==========================//

// SHORTER
#include "path.h"
// DIRECTORY

#include <dirent.h>
#include <sys/stat.h>
#include <sys/types.h>

// FILE_SYSTEM
#include <unistd.h>
// MEMORY

#define MINIMUM_SIZE 256  
void *table_size[MINIMUM_SIZE/sizeof(void *)];
void *last_block[64];

// SYSTEM
#include <time.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__04B;
  __INTEGER capacity__4FQ;
  __CHARACTER *storage__HGQ;
};
__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__1DC;
  __INTEGER capacity__RLR;
  void **storage__2LR;
};
__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__YDC;
};
__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)

// STRING_CONSTANT
#define __STRING_CONSTANT__ 5
typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
struct STRING_CONSTANT_struct {
  unsigned long __id;
  __INTEGER count__4C;
  __CHARACTER *storage__E5M;
};
__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
#define STRING_CONSTANT__ (&STRING_CONSTANT_)

// ARRAYED_COLLECTION[STRING_CONSTANT]
#define __ARRAYED_COLLECTIONoSTRING_CONSTANTo__ 2
typedef struct ARRAYED_COLLECTIONoSTRING_CONSTANTo_struct __ARRAYED_COLLECTIONoSTRING_CONSTANTo;
struct ARRAYED_COLLECTIONoSTRING_CONSTANTo_struct {
  __INTEGER upper__I5N;
  __INTEGER capacity__5XQ;
  void **storage__WDR;
};
__ARRAYED_COLLECTIONoSTRING_CONSTANTo ARRAYED_COLLECTIONoSTRING_CONSTANTo_;
#define ARRAYED_COLLECTIONoSTRING_CONSTANTo__ (&ARRAYED_COLLECTIONoSTRING_CONSTANTo_)

// FAST_ARRAY[STRING_CONSTANT]
#define __FAST_ARRAYoSTRING_CONSTANTo__ 3
typedef struct FAST_ARRAYoSTRING_CONSTANTo_struct __FAST_ARRAYoSTRING_CONSTANTo;
struct FAST_ARRAYoSTRING_CONSTANTo_struct {
  __ARRAYED_COLLECTIONoSTRING_CONSTANTo parent_arrayed_collection__30B;
};
__FAST_ARRAYoSTRING_CONSTANTo FAST_ARRAYoSTRING_CONSTANTo_;
#define FAST_ARRAYoSTRING_CONSTANTo__ (&FAST_ARRAYoSTRING_CONSTANTo_)

// HASHED_DICTIONARY_NODE[ITM_TYPE_SIMPLE,STRING_CONSTANT]
#define __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__ 4
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__3BS;
  void *item__QCS;
  void *next__ICS;
};
__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__ 5
typedef struct HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo;
struct HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct {
  __INTEGER capacity__MBS;
  __INTEGER count__1OS;
  void **buckets__RBS;
};
__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_;
#define HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_)

// MEMORY
#define __MEMORY__ 6
typedef struct MEMORY_struct __MEMORY;
struct MEMORY_struct {
  volatile __UINTEGER_32 previous_linear__XMB;
  volatile __UINTEGER_32 size_and_id__YMB;
  __MEMORY *next_free__ZMB;
  __MEMORY *previous_free__0MB;
} __attribute__ ((packed));
__MEMORY MEMORY_;
#define MEMORY__ (&MEMORY_)

// HASHED_SET_NODE[ABSTRACT_STRING]
#define __HASHED_SET_NODEoABSTRACT_STRINGo__ 7
typedef struct HASHED_SET_NODEoABSTRACT_STRINGo_struct __HASHED_SET_NODEoABSTRACT_STRINGo;
struct HASHED_SET_NODEoABSTRACT_STRINGo_struct {
  void *item__Q3P;
  void *next__23P;
};
__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__ 8
typedef struct HASHED_SEToABSTRACT_STRINGo_struct __HASHED_SEToABSTRACT_STRINGo;
struct HASHED_SEToABSTRACT_STRINGo_struct {
  __INTEGER capacity__52P;
  __INTEGER count__F4P;
  void **buckets__E3P;
};
__HASHED_SEToABSTRACT_STRINGo HASHED_SEToABSTRACT_STRINGo_;
#define HASHED_SEToABSTRACT_STRINGo__ (&HASHED_SEToABSTRACT_STRINGo_)

// POSITION
typedef unsigned long __POSITION;

// ITM_OBJECT
#define __ITM_OBJECT__ 9
typedef struct ITM_OBJECT_struct __ITM_OBJECT;
struct ITM_OBJECT_struct {
  __POSITION position__REJ;
};
__ITM_OBJECT ITM_OBJECT_;
#define ITM_OBJECT__ (&ITM_OBJECT_)

// NAMED
#define __NAMED__ 10
typedef struct NAMED_struct __NAMED;
struct NAMED_struct {
  __ITM_OBJECT parent_itm_object__ZH;
  void *name__KI;
};
__NAMED NAMED_;
#define NAMED__ (&NAMED_)

// PROTOTYPE
#define __PROTOTYPE__ 11
typedef struct PROTOTYPE_struct __PROTOTYPE;
struct PROTOTYPE_struct {
  __NAMED parent_named__0H;
  void *source__Q0B;
  void *last_slot__UUC;
  void *type_style__3VC;
  void *default_value__NPE;
  void *type_c__IRE;
  __INTEGER index__CRG;
  void *filename__AUG;
  void *first_slot__CXVB;
  void *export_list__XHE;
  void *import_list__5HE;
  void *slot_list__MXQ;
};
__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__ 12
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__YFR;
  void *next__DGR;
  void *item__FV1;
};
__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__ 13
typedef struct HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo;
struct HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct {
  __INTEGER capacity__HFR;
  __INTEGER count__ONW;
  void **buckets__MFR;
};
__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__ 14
typedef struct HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo;
struct HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_struct {
  void *key__5AQ;
  void *next__KBQ;
};
__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__ 15
typedef struct HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo;
struct HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_struct {
  __INTEGER capacity__OAQ;
  __INTEGER count__TBQ;
  void **buckets__TAQ;
};
__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_;
#define HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_)

// TYPE_ID
#define __TYPE_ID__ 16
typedef struct TYPE_ID_struct __TYPE_ID;
struct TYPE_ID_struct {
  void *Nothing;
};
__TYPE_ID TYPE_ID_;
#define TYPE_ID__ (&TYPE_ID_)

// ARRAYED_COLLECTION[TYPE_ID]
#define __ARRAYED_COLLECTIONoTYPE_IDo__ 17
typedef struct ARRAYED_COLLECTIONoTYPE_IDo_struct __ARRAYED_COLLECTIONoTYPE_IDo;
struct ARRAYED_COLLECTIONoTYPE_IDo_struct {
  __INTEGER upper__YCQ;
  __INTEGER capacity__0CQ;
  void **storage__WDQ;
};
__ARRAYED_COLLECTIONoTYPE_IDo ARRAYED_COLLECTIONoTYPE_IDo_;
#define ARRAYED_COLLECTIONoTYPE_IDo__ (&ARRAYED_COLLECTIONoTYPE_IDo_)

// FAST_ARRAY[TYPE_ID]
#define __FAST_ARRAYoTYPE_IDo__ 18
typedef struct FAST_ARRAYoTYPE_IDo_struct __FAST_ARRAYoTYPE_IDo;
struct FAST_ARRAYoTYPE_IDo_struct {
  __ARRAYED_COLLECTIONoTYPE_IDo parent_arrayed_collection__I1;
};
__FAST_ARRAYoTYPE_IDo FAST_ARRAYoTYPE_IDo_;
#define FAST_ARRAYoTYPE_IDo__ (&FAST_ARRAYoTYPE_IDo_)

// ABSTRACT_DIRECTORY
#define __ABSTRACT_DIRECTORY__ 19
typedef struct ABSTRACT_DIRECTORY_struct __ABSTRACT_DIRECTORY;
struct ABSTRACT_DIRECTORY_struct {
  void *parent_entry__MB;
  void *list__21RE;
};
__ABSTRACT_DIRECTORY ABSTRACT_DIRECTORY_;
#define ABSTRACT_DIRECTORY__ (&ABSTRACT_DIRECTORY_)

// DIRECTORY
#define __DIRECTORY__ 6
typedef struct DIRECTORY_struct __DIRECTORY;
struct DIRECTORY_struct {
  unsigned long __id;
  __ABSTRACT_DIRECTORY parent_abstract_directory__NB;
};
__DIRECTORY DIRECTORY_={__DIRECTORY__};
#define DIRECTORY__ (&DIRECTORY_)

// ABSTRACT_ENTRY
#define __ABSTRACT_ENTRY__ 20
typedef struct ABSTRACT_ENTRY_struct __ABSTRACT_ENTRY;
struct ABSTRACT_ENTRY_struct {
  void *path__2C;
  __INTEGER link_count__EY2B;
  void *child__HY2B;
  void *name__SKFC;
  __BOOLEAN is_directory__BC;
};
__ABSTRACT_ENTRY ABSTRACT_ENTRY_;
#define ABSTRACT_ENTRY__ (&ABSTRACT_ENTRY_)

// ENTRY
#define __ENTRY__ 7
typedef struct ENTRY_struct __ENTRY;
struct ENTRY_struct {
  unsigned long __id;
  __ABSTRACT_ENTRY parent_abstract_entry__LB;
};
__ENTRY ENTRY_={__ENTRY__};
#define ENTRY__ (&ENTRY_)

// HASHED_DICTIONARY_NODE[ENTRY,ABSTRACT_STRING]
#define __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__ 21
typedef struct HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_struct __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo;
struct HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_struct {
  void *key__XIR;
  void *item__MY1;
  void *next__DJR;
};
__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__ 22
typedef struct HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_struct __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo;
struct HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_struct {
  __INTEGER capacity__GIR;
  __INTEGER count__GPW;
  void **buckets__LIR;
};
__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_;
#define HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__ (&HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_)

// LINKED_COLLECTION[STRING_CONSTANT]
#define __LINKED_COLLECTIONoSTRING_CONSTANTo__ 23
typedef struct LINKED_COLLECTIONoSTRING_CONSTANTo_struct __LINKED_COLLECTIONoSTRING_CONSTANTo;
struct LINKED_COLLECTIONoSTRING_CONSTANTo_struct {
  __INTEGER upper__F2C;
};
__LINKED_COLLECTIONoSTRING_CONSTANTo LINKED_COLLECTIONoSTRING_CONSTANTo_;
#define LINKED_COLLECTIONoSTRING_CONSTANTo__ (&LINKED_COLLECTIONoSTRING_CONSTANTo_)

// LINKED_LIST[STRING_CONSTANT]
#define __LINKED_LISToSTRING_CONSTANTo__ 24
typedef struct LINKED_LISToSTRING_CONSTANTo_struct __LINKED_LISToSTRING_CONSTANTo;
struct LINKED_LISToSTRING_CONSTANTo_struct {
  __LINKED_COLLECTIONoSTRING_CONSTANTo parent_linked_collection__GD;
  __INTEGER mem_idx__2WAC;
  void *first_link__SWAC;
  void *last_link__1WAC;
  void *mem_lnk__4WAC;
};
__LINKED_LISToSTRING_CONSTANTo LINKED_LISToSTRING_CONSTANTo_;
#define LINKED_LISToSTRING_CONSTANTo__ (&LINKED_LISToSTRING_CONSTANTo_)

// PARSER
#define __PARSER__ 25
typedef struct PARSER_struct __PARSER;
struct PARSER_struct {
  void *Nothing;
};
__PARSER PARSER_;
#define PARSER__ (&PARSER_)

// ITM_TYPE_MONO
#define __ITM_TYPE_MONO__ 26
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__ 27
typedef struct ARRAYED_COLLECTIONoITM_TYPE_MONOo_struct __ARRAYED_COLLECTIONoITM_TYPE_MONOo;
struct ARRAYED_COLLECTIONoITM_TYPE_MONOo_struct {
  __INTEGER upper__Q5T;
  __INTEGER capacity__S5T;
  void **storage__OAU;
};
__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__ 28
typedef struct FAST_ARRAYoITM_TYPE_MONOo_struct __FAST_ARRAYoITM_TYPE_MONOo;
struct FAST_ARRAYoITM_TYPE_MONOo_struct {
  __ARRAYED_COLLECTIONoITM_TYPE_MONOo parent_arrayed_collection__GRC;
};
__FAST_ARRAYoITM_TYPE_MONOo FAST_ARRAYoITM_TYPE_MONOo_;
#define FAST_ARRAYoITM_TYPE_MONOo__ (&FAST_ARRAYoITM_TYPE_MONOo_)

// ITM_ARGUMENT
#define __ITM_ARGUMENT__ 29
typedef struct ITM_ARGUMENT_struct __ITM_ARGUMENT;
struct ITM_ARGUMENT_struct {
  __ITM_OBJECT parent_itm_code__YDN;
};
__ITM_ARGUMENT ITM_ARGUMENT_;
#define ITM_ARGUMENT__ (&ITM_ARGUMENT_)

// ARRAYED_COLLECTION[ITM_ARGUMENT]
#define __ARRAYED_COLLECTIONoITM_ARGUMENTo__ 30
typedef struct ARRAYED_COLLECTIONoITM_ARGUMENTo_struct __ARRAYED_COLLECTIONoITM_ARGUMENTo;
struct ARRAYED_COLLECTIONoITM_ARGUMENTo_struct {
  __INTEGER upper__XCCC;
  __INTEGER capacity__ZCCC;
  void **storage__VDCC;
};
__ARRAYED_COLLECTIONoITM_ARGUMENTo ARRAYED_COLLECTIONoITM_ARGUMENTo_;
#define ARRAYED_COLLECTIONoITM_ARGUMENTo__ (&ARRAYED_COLLECTIONoITM_ARGUMENTo_)

// FAST_ARRAY[ITM_ARGUMENT]
#define __FAST_ARRAYoITM_ARGUMENTo__ 31
typedef struct FAST_ARRAYoITM_ARGUMENTo_struct __FAST_ARRAYoITM_ARGUMENTo;
struct FAST_ARRAYoITM_ARGUMENTo_struct {
  __ARRAYED_COLLECTIONoITM_ARGUMENTo parent_arrayed_collection__ECLB;
};
__FAST_ARRAYoITM_ARGUMENTo FAST_ARRAYoITM_ARGUMENTo_;
#define FAST_ARRAYoITM_ARGUMENTo__ (&FAST_ARRAYoITM_ARGUMENTo_)

// HASHED_SET_NODE[ITM_TYPE_SIMPLE]
#define __HASHED_SET_NODEoITM_TYPE_SIMPLEo__ 32
typedef struct HASHED_SET_NODEoITM_TYPE_SIMPLEo_struct __HASHED_SET_NODEoITM_TYPE_SIMPLEo;
struct HASHED_SET_NODEoITM_TYPE_SIMPLEo_struct {
  void *item__LK4B;
  void *next__WK4B;
};
__HASHED_SET_NODEoITM_TYPE_SIMPLEo HASHED_SET_NODEoITM_TYPE_SIMPLEo_;
#define HASHED_SET_NODEoITM_TYPE_SIMPLEo__ (&HASHED_SET_NODEoITM_TYPE_SIMPLEo_)

// HASHED_SET[ITM_TYPE_SIMPLE]
#define __HASHED_SEToITM_TYPE_SIMPLEo__ 33
typedef struct HASHED_SEToITM_TYPE_SIMPLEo_struct __HASHED_SEToITM_TYPE_SIMPLEo;
struct HASHED_SEToITM_TYPE_SIMPLEo_struct {
  __INTEGER capacity__0J4B;
  __INTEGER count__5K4B;
  void **buckets__5J4B;
};
__HASHED_SEToITM_TYPE_SIMPLEo HASHED_SEToITM_TYPE_SIMPLEo_;
#define HASHED_SEToITM_TYPE_SIMPLEo__ (&HASHED_SEToITM_TYPE_SIMPLEo_)

// HASHED_SET_NODE[STRING_CONSTANT]
#define __HASHED_SET_NODEoSTRING_CONSTANTo__ 34
typedef struct HASHED_SET_NODEoSTRING_CONSTANTo_struct __HASHED_SET_NODEoSTRING_CONSTANTo;
struct HASHED_SET_NODEoSTRING_CONSTANTo_struct {
  void *item__JLT;
  void *next__ULT;
};
__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__ 35
typedef struct HASHED_SEToSTRING_CONSTANTo_struct __HASHED_SEToSTRING_CONSTANTo;
struct HASHED_SEToSTRING_CONSTANTo_struct {
  __INTEGER capacity__PNR;
  __INTEGER count__UKW;
  void **buckets__3KT;
};
__HASHED_SEToSTRING_CONSTANTo HASHED_SEToSTRING_CONSTANTo_;
#define HASHED_SEToSTRING_CONSTANTo__ (&HASHED_SEToSTRING_CONSTANTo_)

// ITM_CODE
#define __ITM_CODE__ 36
typedef struct ITM_CODE_struct __ITM_CODE;
struct ITM_CODE_struct {
  __ITM_OBJECT parent_itm_object__P2D;
};
__ITM_CODE ITM_CODE_;
#define ITM_CODE__ (&ITM_CODE_)

// ARRAYED_COLLECTION[ITM_CODE]
#define __ARRAYED_COLLECTIONoITM_CODEo__ 37
typedef struct ARRAYED_COLLECTIONoITM_CODEo_struct __ARRAYED_COLLECTIONoITM_CODEo;
struct ARRAYED_COLLECTIONoITM_CODEo_struct {
  __INTEGER upper__D2R;
  __INTEGER capacity__52R;
  void **storage__K3R;
};
__ARRAYED_COLLECTIONoITM_CODEo ARRAYED_COLLECTIONoITM_CODEo_;
#define ARRAYED_COLLECTIONoITM_CODEo__ (&ARRAYED_COLLECTIONoITM_CODEo_)

// FAST_ARRAY[ITM_CODE]
#define __FAST_ARRAYoITM_CODEo__ 38
typedef struct FAST_ARRAYoITM_CODEo_struct __FAST_ARRAYoITM_CODEo;
struct FAST_ARRAYoITM_CODEo_struct {
  __ARRAYED_COLLECTIONoITM_CODEo parent_arrayed_collection__KWF;
};
__FAST_ARRAYoITM_CODEo FAST_ARRAYoITM_CODEo_;
#define FAST_ARRAYoITM_CODEo__ (&FAST_ARRAYoITM_CODEo_)

// ARRAYED_COLLECTION[Expanded POSITION]
#define __ARRAYED_COLLECTIONoExpanded_POSITIONo__ 39
typedef struct ARRAYED_COLLECTIONoExpanded_POSITIONo_struct __ARRAYED_COLLECTIONoExpanded_POSITIONo;
struct ARRAYED_COLLECTIONoExpanded_POSITIONo_struct {
  __INTEGER upper__V15B;
  __INTEGER capacity__B25B;
  __POSITION *storage__WD5B;
};
__ARRAYED_COLLECTIONoExpanded_POSITIONo ARRAYED_COLLECTIONoExpanded_POSITIONo_;
#define ARRAYED_COLLECTIONoExpanded_POSITIONo__ (&ARRAYED_COLLECTIONoExpanded_POSITIONo_)

// FAST_ARRAY[Expanded POSITION]
#define __FAST_ARRAYoExpanded_POSITIONo__ 40
typedef struct FAST_ARRAYoExpanded_POSITIONo_struct __FAST_ARRAYoExpanded_POSITIONo;
struct FAST_ARRAYoExpanded_POSITIONo_struct {
  __ARRAYED_COLLECTIONoExpanded_POSITIONo parent_arrayed_collection__HAJ;
};
__FAST_ARRAYoExpanded_POSITIONo FAST_ARRAYoExpanded_POSITIONo_;
#define FAST_ARRAYoExpanded_POSITIONo__ (&FAST_ARRAYoExpanded_POSITIONo_)

// HASHED_SET_NODE[FAST_ARRAY[ITM_TYPE_MONO]]
#define __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__ 41
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__50T;
  void *next__L1T;
};
__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__ 42
typedef struct HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo;
struct HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_struct {
  __INTEGER capacity__O0T;
  __INTEGER count__CLU;
  void **buckets__T0T;
};
__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_;
#define HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_)

// HASHED_SET_NODE[FAST_ARRAY[STRING_CONSTANT]]
#define __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__ 43
typedef struct HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_struct __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo;
struct HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_struct {
  void *item__EAAC;
  void *next__QAAC;
};
__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__ 44
typedef struct HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_struct __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo;
struct HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_struct {
  __INTEGER capacity__T55B;
  __INTEGER count__ESBC;
  void **buckets__Y55B;
};
__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_;
#define HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__ (&HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_)

// ITM_LOCAL
#define __ITM_LOCAL__ 45
typedef struct ITM_LOCAL_struct __ITM_LOCAL;
struct ITM_LOCAL_struct {
  __ITM_OBJECT parent_itm_object__35H;
  void *name__W3K;
};
__ITM_LOCAL ITM_LOCAL_;
#define ITM_LOCAL__ (&ITM_LOCAL_)

// ARRAYED_COLLECTION[ITM_LOCAL]
#define __ARRAYED_COLLECTIONoITM_LOCALo__ 46
typedef struct ARRAYED_COLLECTIONoITM_LOCALo_struct __ARRAYED_COLLECTIONoITM_LOCALo;
struct ARRAYED_COLLECTIONoITM_LOCALo_struct {
  __INTEGER upper__T1K;
  __INTEGER capacity__DUS;
  void **storage__OUS;
};
__ARRAYED_COLLECTIONoITM_LOCALo ARRAYED_COLLECTIONoITM_LOCALo_;
#define ARRAYED_COLLECTIONoITM_LOCALo__ (&ARRAYED_COLLECTIONoITM_LOCALo_)

// FAST_ARRAY[ITM_LOCAL]
#define __FAST_ARRAYoITM_LOCALo__ 47
typedef struct FAST_ARRAYoITM_LOCALo_struct __FAST_ARRAYoITM_LOCALo;
struct FAST_ARRAYoITM_LOCALo_struct {
  __ARRAYED_COLLECTIONoITM_LOCALo parent_arrayed_collection__CAI;
};
__FAST_ARRAYoITM_LOCALo FAST_ARRAYoITM_LOCALo_;
#define FAST_ARRAYoITM_LOCALo__ (&FAST_ARRAYoITM_LOCALo_)

// NUMERIC
#define __NUMERIC__ 48
typedef struct NUMERIC_struct __NUMERIC;
struct NUMERIC_struct {
  void *Nothing;
};
__NUMERIC NUMERIC_;
#define NUMERIC__ (&NUMERIC_)

// OBJECT
#define __OBJECT__ 49
typedef struct OBJECT_struct __OBJECT;
struct OBJECT_struct {
  void *Nothing;
};
__OBJECT OBJECT_;
#define OBJECT__ (&OBJECT_)

// ALIAS_STR
#define __ALIAS_STR__ 50
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__ 51
typedef struct ANY_struct __ANY;
struct ANY_struct {
  void *Nothing;
};
__ANY ANY_;
#define ANY__ (&ANY_)

// SHORTER
#define __SHORTER__ 52
typedef struct SHORTER_struct __SHORTER;
struct SHORTER_struct {
  void *Nothing;
};
__SHORTER SHORTER_;
#define SHORTER__ (&SHORTER_)

// ANY_OPTION
#define __ANY_OPTION__ 53
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

// FILE_SYSTEM
#define __FILE_SYSTEM__ 54
typedef struct FILE_SYSTEM_struct __FILE_SYSTEM;
struct FILE_SYSTEM_struct {
  void *parent_directory__J5C;
  int parent_directory__K5C;
};
__FILE_SYSTEM FILE_SYSTEM_;
#define FILE_SYSTEM__ (&FILE_SYSTEM_)

// ABSTRACT_FILE
#define __ABSTRACT_FILE__ 55
typedef struct ABSTRACT_FILE_struct __ABSTRACT_FILE;
struct ABSTRACT_FILE_struct {
  void *parent_entry__A3B;
  __UINTEGER_32 cursor__IPMF;
};
__ABSTRACT_FILE ABSTRACT_FILE_;
#define ABSTRACT_FILE__ (&ABSTRACT_FILE_)

// STD_FILE
#define __STD_FILE__ 8
typedef struct STD_FILE_struct __STD_FILE;
struct STD_FILE_struct {
  unsigned long __id;
  __ABSTRACT_FILE parent_abstract_file__B3B;
  __POINTER stream__QSVD;
};
__STD_FILE STD_FILE_={__STD_FILE__};
#define STD_FILE__ (&STD_FILE_)

// LINKED_COLLECTION[ENTRY]
#define __LINKED_COLLECTIONoENTRYo__ 56
typedef struct LINKED_COLLECTIONoENTRYo_struct __LINKED_COLLECTIONoENTRYo;
struct LINKED_COLLECTIONoENTRYo_struct {
  __INTEGER upper__HEEF;
};
__LINKED_COLLECTIONoENTRYo LINKED_COLLECTIONoENTRYo_;
#define LINKED_COLLECTIONoENTRYo__ (&LINKED_COLLECTIONoENTRYo_)

// LINKED_LIST[ENTRY]
#define __LINKED_LISToENTRYo__ 57
typedef struct LINKED_LISToENTRYo_struct __LINKED_LISToENTRYo;
struct LINKED_LISToENTRYo_struct {
  __LINKED_COLLECTIONoENTRYo parent_linked_collection__01RE;
  __INTEGER mem_idx__WJFF;
  void *first_link__PJFF;
  void *mem_lnk__XJFF;
  void *last_link__YJFF;
};
__LINKED_LISToENTRYo LINKED_LISToENTRYo_;
#define LINKED_LISToENTRYo__ (&LINKED_LISToENTRYo_)

// LINKED_LIST_NODE[ENTRY]
#define __LINKED_LIST_NODEoENTRYo__ 58
typedef struct LINKED_LIST_NODEoENTRYo_struct __LINKED_LIST_NODEoENTRYo;
struct LINKED_LIST_NODEoENTRYo_struct {
  void *item__0WPF;
  void *next__KBQF;
};
__LINKED_LIST_NODEoENTRYo LINKED_LIST_NODEoENTRYo_;
#define LINKED_LIST_NODEoENTRYo__ (&LINKED_LIST_NODEoENTRYo_)

// HASHED_DICTIONARY_NODE[PROTOTYPE,STRING_CONSTANT]
#define __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__ 59
typedef struct HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo;
struct HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_struct {
  void *key__YE3B;
  void *item__P2ED;
  void *next__DF3B;
};
__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__ 60
typedef struct HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo;
struct HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_struct {
  __INTEGER capacity__HE3B;
  __INTEGER count__MF3B;
  void **buckets__ME3B;
};
__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_;
#define HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_)

// ARRAYED_COLLECTION[PROTOTYPE]
#define __ARRAYED_COLLECTIONoPROTOTYPEo__ 61
typedef struct ARRAYED_COLLECTIONoPROTOTYPEo_struct __ARRAYED_COLLECTIONoPROTOTYPEo;
struct ARRAYED_COLLECTIONoPROTOTYPEo_struct {
  __INTEGER capacity__CIS;
  __INTEGER upper__OIS;
  void **storage__2WR;
};
__ARRAYED_COLLECTIONoPROTOTYPEo ARRAYED_COLLECTIONoPROTOTYPEo_;
#define ARRAYED_COLLECTIONoPROTOTYPEo__ (&ARRAYED_COLLECTIONoPROTOTYPEo_)

// FAST_ARRAY[PROTOTYPE]
#define __FAST_ARRAYoPROTOTYPEo__ 62
typedef struct FAST_ARRAYoPROTOTYPEo_struct __FAST_ARRAYoPROTOTYPEo;
struct FAST_ARRAYoPROTOTYPEo_struct {
  __ARRAYED_COLLECTIONoPROTOTYPEo parent_arrayed_collection__VOH;
};
__FAST_ARRAYoPROTOTYPEo FAST_ARRAYoPROTOTYPEo_;
#define FAST_ARRAYoPROTOTYPEo__ (&FAST_ARRAYoPROTOTYPEo_)

// FS_MIN
#define __FS_MIN__ 63
typedef struct FS_MIN_struct __FS_MIN;
struct FS_MIN_struct {
  void *Nothing;
};
__FS_MIN FS_MIN_;
#define FS_MIN__ (&FS_MIN_)

// HASHED_DICTIONARY_NODE[ITM_SLOT,STRING_CONSTANT]
#define __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__ 64
typedef struct HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo;
struct HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_struct {
  void *key__VJCC;
  void *item__IKCC;
  void *next__AKCC;
};
__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__ 65
typedef struct HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo;
struct HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_struct {
  __INTEGER capacity__FU3B;
  __INTEGER count__L0CC;
  void **buckets__JJCC;
};
__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_;
#define HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_)

// LINKED_LIST_NODE[STRING_CONSTANT]
#define __LINKED_LIST_NODEoSTRING_CONSTANTo__ 66
typedef struct LINKED_LIST_NODEoSTRING_CONSTANTo_struct __LINKED_LIST_NODEoSTRING_CONSTANTo;
struct LINKED_LIST_NODEoSTRING_CONSTANTo_struct {
  void *item__P4FD;
  void *next__NQQD;
};
__LINKED_LIST_NODEoSTRING_CONSTANTo LINKED_LIST_NODEoSTRING_CONSTANTo_;
#define LINKED_LIST_NODEoSTRING_CONSTANTo__ (&LINKED_LIST_NODEoSTRING_CONSTANTo_)

// TYPE
#define __TYPE__ 67
typedef struct TYPE_struct __TYPE;
struct TYPE_struct {
  void *Nothing;
};
__TYPE TYPE_;
#define TYPE__ (&TYPE_)

// ARRAYED_COLLECTION[SLOT]
#define __ARRAYED_COLLECTIONoSLOTo__ 68
typedef struct ARRAYED_COLLECTIONoSLOTo_struct __ARRAYED_COLLECTIONoSLOTo;
struct ARRAYED_COLLECTIONoSLOTo_struct {
  __INTEGER capacity__0IQ;
};
__ARRAYED_COLLECTIONoSLOTo ARRAYED_COLLECTIONoSLOTo_;
#define ARRAYED_COLLECTIONoSLOTo__ (&ARRAYED_COLLECTIONoSLOTo_)

// FAST_ARRAY[SLOT]
#define __FAST_ARRAYoSLOTo__ 69
typedef struct FAST_ARRAYoSLOTo_struct __FAST_ARRAYoSLOTo;
struct FAST_ARRAYoSLOTo_struct {
  __ARRAYED_COLLECTIONoSLOTo parent_arrayed_collection__J0;
};
__FAST_ARRAYoSLOTo FAST_ARRAYoSLOTo_;
#define FAST_ARRAYoSLOTo__ (&FAST_ARRAYoSLOTo_)

// ARRAYED_COLLECTION[FAST_ARRAY[ITM_TYPE_MONO]]
#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__ 70
typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo;
struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_struct {
  __INTEGER upper__IZT;
  __INTEGER capacity__4CU;
  void **storage__ZDU;
};
__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__ 71
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__N5O;
};
__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_;
#define FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__ (&FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_)

// ALIAS_ARRAY[ITM_TYPE_MONO]
#define __ALIAS_ARRAYoITM_TYPE_MONOo__ 72
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_)

// ITM_TYPE_SIMPLE
#define __ITM_TYPE_SIMPLE__ 9
typedef struct ITM_TYPE_SIMPLE_struct __ITM_TYPE_SIMPLE;
struct ITM_TYPE_SIMPLE_struct {
  unsigned long __id;
  void *name__MEK;
};
__ITM_TYPE_SIMPLE ITM_TYPE_SIMPLE_={__ITM_TYPE_SIMPLE__};
#define ITM_TYPE_SIMPLE__ (&ITM_TYPE_SIMPLE_)

// ITM_TYPE_SELF
#define __ITM_TYPE_SELF__ 10
typedef struct ITM_TYPE_SELF_struct __ITM_TYPE_SELF;
struct ITM_TYPE_SELF_struct {
  unsigned long __id;
  __ITM_TYPE_SIMPLE parent_itm_type_simple__KMJ;
};
__ITM_TYPE_SELF ITM_TYPE_SELF_={__ITM_TYPE_SELF__};
#define ITM_TYPE_SELF__ (&ITM_TYPE_SELF_)

// ITM_TYPE_STYLE
#define __ITM_TYPE_STYLE__ 11
typedef struct ITM_TYPE_STYLE_struct __ITM_TYPE_STYLE;
struct ITM_TYPE_STYLE_struct {
  unsigned long __id;
  __ITM_TYPE_SIMPLE parent_itm_type_simple__R4N;
  void *style__JCP;
};
__ITM_TYPE_STYLE ITM_TYPE_STYLE_={__ITM_TYPE_STYLE__};
#define ITM_TYPE_STYLE__ (&ITM_TYPE_STYLE_)

// ITM_TYPE_GENERIC
#define __ITM_TYPE_GENERIC__ 12
typedef struct ITM_TYPE_GENERIC_struct __ITM_TYPE_GENERIC;
struct ITM_TYPE_GENERIC_struct {
  unsigned long __id;
  __ITM_TYPE_STYLE parent_itm_type_mono__S4N;
  void *list_type__TCP;
};
__ITM_TYPE_GENERIC ITM_TYPE_GENERIC_={__ITM_TYPE_GENERIC__};
#define ITM_TYPE_GENERIC__ (&ITM_TYPE_GENERIC_)

// ARRAYED_COLLECTION[ITM_TYPE_GENERIC]
#define __ARRAYED_COLLECTIONoITM_TYPE_GENERICo__ 73
typedef struct ARRAYED_COLLECTIONoITM_TYPE_GENERICo_struct __ARRAYED_COLLECTIONoITM_TYPE_GENERICo;
struct ARRAYED_COLLECTIONoITM_TYPE_GENERICo_struct {
  __INTEGER upper__XBP;
  __INTEGER capacity__FNU;
  void **storage__QNU;
};
__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__ 74
typedef struct FAST_ARRAYoITM_TYPE_GENERICo_struct __FAST_ARRAYoITM_TYPE_GENERICo;
struct FAST_ARRAYoITM_TYPE_GENERICo_struct {
  __ARRAYED_COLLECTIONoITM_TYPE_GENERICo parent_arrayed_collection__NBP;
};
__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__ 75
typedef struct ARRAYED_COLLECTIONoITM_TYPE_STYLEo_struct __ARRAYED_COLLECTIONoITM_TYPE_STYLEo;
struct ARRAYED_COLLECTIONoITM_TYPE_STYLEo_struct {
  __INTEGER upper__LUQB;
  __INTEGER capacity__AADC;
  void **storage__LADC;
};
__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__ 76
typedef struct FAST_ARRAYoITM_TYPE_STYLEo_struct __FAST_ARRAYoITM_TYPE_STYLEo;
struct FAST_ARRAYoITM_TYPE_STYLEo_struct {
  __ARRAYED_COLLECTIONoITM_TYPE_STYLEo parent_arrayed_collection__BUQB;
};
__FAST_ARRAYoITM_TYPE_STYLEo FAST_ARRAYoITM_TYPE_STYLEo_;
#define FAST_ARRAYoITM_TYPE_STYLEo__ (&FAST_ARRAYoITM_TYPE_STYLEo_)

// ITM_READ
#define __ITM_READ__ 13
typedef struct ITM_READ_struct __ITM_READ;
struct ITM_READ_struct {
  unsigned long __id;
  __ITM_CODE parent_itm_code__UHJ;
};
__ITM_READ ITM_READ_={__ITM_READ__};
#define ITM_READ__ (&ITM_READ_)

// ITM_CONSTANT
#define __ITM_CONSTANT__ 77
typedef struct ITM_CONSTANT_struct __ITM_CONSTANT;
struct ITM_CONSTANT_struct {
  __ITM_CODE parent_itm_code__UYF;
};
__ITM_CONSTANT ITM_CONSTANT_;
#define ITM_CONSTANT__ (&ITM_CONSTANT_)

// ITM_PROTOTYPE
#define __ITM_PROTOTYPE__ 14
typedef struct ITM_PROTOTYPE_struct __ITM_PROTOTYPE;
struct ITM_PROTOTYPE_struct {
  unsigned long __id;
  __ITM_CONSTANT parent_itm_constant__VYF;
};
__ITM_PROTOTYPE ITM_PROTOTYPE_={__ITM_PROTOTYPE__};
#define ITM_PROTOTYPE__ (&ITM_PROTOTYPE_)

// ITM_REAL
#define __ITM_REAL__ 15
typedef struct ITM_REAL_struct __ITM_REAL;
struct ITM_REAL_struct {
  unsigned long __id;
  __ITM_CONSTANT parent_itm_constant__FHN;
};
__ITM_REAL ITM_REAL_={__ITM_REAL__};
#define ITM_REAL__ (&ITM_REAL_)

// ITM_NUMBER
#define __ITM_NUMBER__ 16
typedef struct ITM_NUMBER_struct __ITM_NUMBER;
struct ITM_NUMBER_struct {
  unsigned long __id;
  __ITM_CONSTANT parent_itm_constant__XHN;
};
__ITM_NUMBER ITM_NUMBER_={__ITM_NUMBER__};
#define ITM_NUMBER__ (&ITM_NUMBER_)

// ITM_CHARACTER
#define __ITM_CHARACTER__ 17
typedef struct ITM_CHARACTER_struct __ITM_CHARACTER;
struct ITM_CHARACTER_struct {
  unsigned long __id;
  __ITM_CONSTANT parent_itm_constant__JIN;
};
__ITM_CHARACTER ITM_CHARACTER_={__ITM_CHARACTER__};
#define ITM_CHARACTER__ (&ITM_CHARACTER_)

// ITM_STRING
#define __ITM_STRING__ 18
typedef struct ITM_STRING_struct __ITM_STRING;
struct ITM_STRING_struct {
  unsigned long __id;
  __ITM_CODE parent_itm_code__0IN;
};
__ITM_STRING ITM_STRING_={__ITM_STRING__};
#define ITM_STRING__ (&ITM_STRING_)

// HASHED_DICTIONARY_NODE[Expanded INTEGER,STRING_CONSTANT]
#define __HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo__ 78
typedef struct HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo;
struct HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo_struct {
  void *key__NISD;
  void *next__YISD;
};
__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo_;
#define HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo_)

// HASHED_DICTIONARY[Expanded INTEGER,STRING_CONSTANT]
#define __HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo__ 79
typedef struct HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo;
struct HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo_struct {
  __INTEGER capacity__2HSD;
  __INTEGER count__BJSD;
  void **buckets__BISD;
};
__HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo_;
#define HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo_)

// ITM_LIST
#define __ITM_LIST__ 19
typedef struct ITM_LIST_struct __ITM_LIST;
struct ITM_LIST_struct {
  unsigned long __id;
  __ITM_CODE parent_itm_code__4XE;
};
__ITM_LIST ITM_LIST_={__ITM_LIST__};
#define ITM_LIST__ (&ITM_LIST_)

// ARRAYED_COLLECTION[FAST_ARRAY[ITM_LOCAL]]
#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__ 80
typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo;
struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_struct {
  __INTEGER upper__OAS;
  __INTEGER capacity__ISS;
  void **storage__TSS;
};
__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__ 81
typedef struct FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_struct __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo;
struct FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_struct {
  __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo parent_arrayed_collection__BXI;
};
__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__ 82
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__ 83
typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo;
struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_struct {
  __INTEGER upper__M1R;
  __INTEGER capacity__5ES;
  void **storage__1FS;
};
__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__ 84
typedef struct FAST_ARRAYoFAST_ARRAYoITM_CODEoo_struct __FAST_ARRAYoFAST_ARRAYoITM_CODEoo;
struct FAST_ARRAYoFAST_ARRAYoITM_CODEoo_struct {
  __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo parent_arrayed_collection__4CI;
};
__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__ 85
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__ 86
typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo;
struct ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_struct {
  __INTEGER upper__B5S;
  __INTEGER capacity__UBT;
  void **storage__5BT;
};
__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__ 87
typedef struct FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_struct __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo;
struct FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_struct {
  __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo parent_arrayed_collection__55K;
};
__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__ 88
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__ 20
typedef struct ITM_LIST_IDF_struct __ITM_LIST_IDF;
struct ITM_LIST_IDF_struct {
  unsigned long __id;
  __ITM_CODE parent_itm_code__0DJ;
};
__ITM_LIST_IDF ITM_LIST_IDF_={__ITM_LIST_IDF__};
#define ITM_LIST_IDF__ (&ITM_LIST_IDF_)

// ITM_WRITE
#define __ITM_WRITE__ 89
typedef struct ITM_WRITE_struct __ITM_WRITE;
struct ITM_WRITE_struct {
  __ITM_CODE parent_itm_code__PEJ;
};
__ITM_WRITE ITM_WRITE_;
#define ITM_WRITE__ (&ITM_WRITE_)

// ITM_WRITE_VALUE
#define __ITM_WRITE_VALUE__ 21
typedef struct ITM_WRITE_VALUE_struct __ITM_WRITE_VALUE;
struct ITM_WRITE_VALUE_struct {
  unsigned long __id;
  __ITM_WRITE parent_itm_write__QEJ;
};
__ITM_WRITE_VALUE ITM_WRITE_VALUE_={__ITM_WRITE_VALUE__};
#define ITM_WRITE_VALUE__ (&ITM_WRITE_VALUE_)

// ITM_WRITE_CAST
#define __ITM_WRITE_CAST__ 22
typedef struct ITM_WRITE_CAST_struct __ITM_WRITE_CAST;
struct ITM_WRITE_CAST_struct {
  unsigned long __id;
  __ITM_WRITE parent_itm_write__HFJ;
};
__ITM_WRITE_CAST ITM_WRITE_CAST_={__ITM_WRITE_CAST__};
#define ITM_WRITE_CAST__ (&ITM_WRITE_CAST_)

// ITM_WRITE_CODE
#define __ITM_WRITE_CODE__ 23
typedef struct ITM_WRITE_CODE_struct __ITM_WRITE_CODE;
struct ITM_WRITE_CODE_struct {
  unsigned long __id;
  __ITM_WRITE parent_itm_write__SIJ;
};
__ITM_WRITE_CODE ITM_WRITE_CODE_={__ITM_WRITE_CODE__};
#define ITM_WRITE_CODE__ (&ITM_WRITE_CODE_)

// ITM_READ_ARG2
#define __ITM_READ_ARG2__ 24
typedef struct ITM_READ_ARG2_struct __ITM_READ_ARG2;
struct ITM_READ_ARG2_struct {
  unsigned long __id;
  __ITM_READ parent_itm_read__DLJ;
};
__ITM_READ_ARG2 ITM_READ_ARG2_={__ITM_READ_ARG2__};
#define ITM_READ_ARG2__ (&ITM_READ_ARG2_)

// ITM_BINARY
#define __ITM_BINARY__ 25
typedef struct ITM_BINARY_struct __ITM_BINARY;
struct ITM_BINARY_struct {
  unsigned long __id;
  __ITM_CODE parent_itm_code__XLJ;
};
__ITM_BINARY ITM_BINARY_={__ITM_BINARY__};
#define ITM_BINARY__ (&ITM_BINARY_)

// ITM_READ_ARG1
#define __ITM_READ_ARG1__ 26
typedef struct ITM_READ_ARG1_struct __ITM_READ_ARG1;
struct ITM_READ_ARG1_struct {
  unsigned long __id;
  __ITM_READ parent_itm_read__TGL;
};
__ITM_READ_ARG1 ITM_READ_ARG1_={__ITM_READ_ARG1__};
#define ITM_READ_ARG1__ (&ITM_READ_ARG1_)

// ITM_OLD
#define __ITM_OLD__ 27
typedef struct ITM_OLD_struct __ITM_OLD;
struct ITM_OLD_struct {
  unsigned long __id;
  __ITM_CODE parent_itm_code__RUM;
};
__ITM_OLD ITM_OLD_={__ITM_OLD__};
#define ITM_OLD__ (&ITM_OLD_)

// ITM_EXTERN
#define __ITM_EXTERN__ 90
typedef struct ITM_EXTERN_struct __ITM_EXTERN;
struct ITM_EXTERN_struct {
  __ITM_CODE parent_itm_code__SDN;
};
__ITM_EXTERN ITM_EXTERN_;
#define ITM_EXTERN__ (&ITM_EXTERN_)

// ITM_EXTERNAL_TYPE
#define __ITM_EXTERNAL_TYPE__ 28
typedef struct ITM_EXTERNAL_TYPE_struct __ITM_EXTERNAL_TYPE;
struct ITM_EXTERNAL_TYPE_struct {
  unsigned long __id;
  __ITM_EXTERN parent_itm_extern__TDN;
  __BOOLEAN is_persistant__NON;
};
__ITM_EXTERNAL_TYPE ITM_EXTERNAL_TYPE_={__ITM_EXTERNAL_TYPE__};
#define ITM_EXTERNAL_TYPE__ (&ITM_EXTERNAL_TYPE_)

// ITM_EXTERNAL
#define __ITM_EXTERNAL__ 29
typedef struct ITM_EXTERNAL_struct __ITM_EXTERNAL;
struct ITM_EXTERNAL_struct {
  unsigned long __id;
  __ITM_EXTERN parent_itm_extern__VMN;
};
__ITM_EXTERNAL ITM_EXTERNAL_={__ITM_EXTERNAL__};
#define ITM_EXTERNAL__ (&ITM_EXTERNAL_)

// ITM_READ_ARGS
#define __ITM_READ_ARGS__ 30
typedef struct ITM_READ_ARGS_struct __ITM_READ_ARGS;
struct ITM_READ_ARGS_struct {
  unsigned long __id;
  __ITM_READ parent_itm_read__B2N;
};
__ITM_READ_ARGS ITM_READ_ARGS_={__ITM_READ_ARGS__};
#define ITM_READ_ARGS__ (&ITM_READ_ARGS_)

// ARRAYED_COLLECTION[FAST_ARRAY[Expanded POSITION]]
#define __ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo__ 91
typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo;
struct ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo_struct {
  __INTEGER upper__RO4B;
  __INTEGER capacity__U05B;
  void **storage__505B;
};
__ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo_;
#define ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo_)

// FAST_ARRAY[FAST_ARRAY[Expanded POSITION]]
#define __FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo__ 92
typedef struct FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo_struct __FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo;
struct FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo_struct {
  __ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo parent_arrayed_collection__L03;
};
__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo_;
#define FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo__ (&FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo_)

// ALIAS_ARRAY[Expanded POSITION]
#define __ALIAS_ARRAYoExpanded_POSITIONo__ 93
typedef struct ALIAS_ARRAYoExpanded_POSITIONo_struct __ALIAS_ARRAYoExpanded_POSITIONo;
struct ALIAS_ARRAYoExpanded_POSITIONo_struct {
  void *Nothing;
};
__ALIAS_ARRAYoExpanded_POSITIONo ALIAS_ARRAYoExpanded_POSITIONo_;
#define ALIAS_ARRAYoExpanded_POSITIONo__ (&ALIAS_ARRAYoExpanded_POSITIONo_)

// ITM_RESULT
#define __ITM_RESULT__ 94
typedef struct ITM_RESULT_struct __ITM_RESULT;
struct ITM_RESULT_struct {
  __ITM_CODE parent_itm_code__F1EB;
};
__ITM_RESULT ITM_RESULT_;
#define ITM_RESULT__ (&ITM_RESULT_)

// ITM_ARG
#define __ITM_ARG__ 31
typedef struct ITM_ARG_struct __ITM_ARG;
struct ITM_ARG_struct {
  unsigned long __id;
  __ITM_ARGUMENT parent_itm_argument__Q4EB;
};
__ITM_ARG ITM_ARG_={__ITM_ARG__};
#define ITM_ARG__ (&ITM_ARG_)

// ITM_TYPE_MULTI
#define __ITM_TYPE_MULTI__ 32
typedef struct ITM_TYPE_MULTI_struct __ITM_TYPE_MULTI;
struct ITM_TYPE_MULTI_struct {
  unsigned long __id;
  void *list_type__AK2B;
};
__ITM_TYPE_MULTI ITM_TYPE_MULTI_={__ITM_TYPE_MULTI__};
#define ITM_TYPE_MULTI__ (&ITM_TYPE_MULTI_)

// ARRAYED_COLLECTION[ITM_TYPE_MULTI]
#define __ARRAYED_COLLECTIONoITM_TYPE_MULTIo__ 95
typedef struct ARRAYED_COLLECTIONoITM_TYPE_MULTIo_struct __ARRAYED_COLLECTIONoITM_TYPE_MULTIo;
struct ARRAYED_COLLECTIONoITM_TYPE_MULTIo_struct {
  __INTEGER upper__WJ2B;
  __INTEGER capacity__CFEC;
  void **storage__NFEC;
};
__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__ 96
typedef struct FAST_ARRAYoITM_TYPE_MULTIo_struct __FAST_ARRAYoITM_TYPE_MULTIo;
struct FAST_ARRAYoITM_TYPE_MULTIo_struct {
  __ARRAYED_COLLECTIONoITM_TYPE_MULTIo parent_arrayed_collection__MJ2B;
};
__FAST_ARRAYoITM_TYPE_MULTIo FAST_ARRAYoITM_TYPE_MULTIo_;
#define FAST_ARRAYoITM_TYPE_MULTIo__ (&FAST_ARRAYoITM_TYPE_MULTIo_)

// ITM_ARGS
#define __ITM_ARGS__ 33
typedef struct ITM_ARGS_struct __ITM_ARGS;
struct ITM_ARGS_struct {
  unsigned long __id;
  __ITM_ARGUMENT parent_itm_argument__IHZB;
  void *name__OEEC;
};
__ITM_ARGS ITM_ARGS_={__ITM_ARGS__};
#define ITM_ARGS__ (&ITM_ARGS_)

// HASHED_DICTIONARY_NODE[SECTION_,STRING_CONSTANT]
#define __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__ 97
typedef struct HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo;
struct HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_struct {
  void *key__2RAC;
  void *item__PSAC;
  void *next__HSAC;
};
__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__ 98
typedef struct HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_struct __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo;
struct HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_struct {
  __INTEGER capacity__LRAC;
  __INTEGER count__Y4BC;
  void **buckets__QRAC;
};
__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_;
#define HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__ (&HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_)

// SECTION_
#define __SECTION___ 99
typedef struct SECTION__struct __SECTION_;
struct SECTION__struct {
  void *name__FQ5B;
};
__SECTION_ SECTION__;
#define SECTION___ (&SECTION__)

// ITM_SLOT
#define __ITM_SLOT__ 100
typedef struct ITM_SLOT_struct __ITM_SLOT;
struct ITM_SLOT_struct {
  __NAMED parent_named__TUC;
  void *id_section__4UC;
};
__ITM_SLOT ITM_SLOT_;
#define ITM_SLOT__ (&ITM_SLOT_)

// HASHED_DICTIONARY_NODE[SECTION_,FAST_ARRAY[ITM_TYPE_MONO]]
#define __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ 101
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__VUAC;
  void *key__CUAC;
  void *next__NUAC;
};
__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__ 102
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__RTAC;
  __INTEGER count__SBCC;
  void **buckets__WTAC;
};
__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__ 103
typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo;
struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_struct {
  __INTEGER upper__CXCC;
  __INTEGER capacity__MHDC;
  void **storage__IIDC;
};
__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__ 104
typedef struct FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_struct __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo;
struct FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_struct {
  __ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo parent_arrayed_collection__YMVB;
};
__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__ 105
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_)

// ITM_LDOTS
#define __ITM_LDOTS__ 106
typedef struct ITM_LDOTS_struct __ITM_LDOTS;
struct ITM_LDOTS_struct {
  __ITM_CODE parent_itm_constant__JXF;
};
__ITM_LDOTS ITM_LDOTS_;
#define ITM_LDOTS__ (&ITM_LDOTS_)

// UINTEGER_8
typedef unsigned char __UINTEGER_8;

// TRUE
#define TRUE__ 1

// TYPE_FULL
#define __TYPE_FULL__ 107
typedef struct TYPE_FULL_struct __TYPE_FULL;
struct TYPE_FULL_struct {
  void *Nothing;
};
__TYPE_FULL TYPE_FULL_;
#define TYPE_FULL__ (&TYPE_FULL_)

// INTEGER_8
typedef signed char __INTEGER_8;

// UINTEGER_16
typedef unsigned short __UINTEGER_16;

// INTEGER_64
typedef signed long long __INTEGER_64;

// ITM_BLOCK
#define __ITM_BLOCK__ 108
typedef struct ITM_BLOCK_struct __ITM_BLOCK;
struct ITM_BLOCK_struct {
  void *Nothing;
};
__ITM_BLOCK ITM_BLOCK_;
#define ITM_BLOCK__ (&ITM_BLOCK_)


void *table_type[109];

//==========================//
// GLOBAL                   //
//==========================//

void *parent_numeric__J;
__POINTER begin_memory__J0H;
__UINTEGER_32 nb_page__DVJ;
__UINTEGER_32 capacity_max__XE3;
__MEMORY *first_free__EVRB;
__INTEGER type_error__0RG;
void *msg_err__1RG;
void *prototype_list__WOH;
void *prototype_dico__PWQ;
void *list_id__K1;
void *alias__WBF;
void *string_tmp__PKVE;
void *short_dico__LD;
void *object__M0B;
void *source__S0B;
__INTEGER position__V0B;
__INTEGER pos_cur__Y0B;
__INTEGER pos_line__Z0B;
__INTEGER pos_col__00B;
void *keyword_generic_list__40B;
__BOOLEAN is_active_short__L1B;
void *key_comment_default__N1B;
__INTEGER short_derive__O1B;
void *short_local__W1B;
void *last_string__NTC;
void *last_section__2TC;
void *token__M1C;
__INTEGER begin_position__H0D;
void *last_group__UWF;
__INTEGER old_position__QWI;
__INTEGER old_pos_cur__SWI;
__INTEGER old_pos_line__UWI;
__INTEGER old_pos_col__WWI;
__INTEGER old_short_derive__YWI;
__INTEGER_64 last_integer__ZHN;
__INTEGER last_len_string__3IN;
void *last_slot__ZDLB;
void *type_void__XYF;
void *type_null__15N;
__UINTEGER_32 clone_allocation_size__NMB;
void *list__4I;
void *free__C0O;
void *string_tmp__QH;
void *output_code__RI;
void *output_decl__UNE;
void *string_tmp2__FBJ;
void *directory_list__UB;
void *file_list__WB;
void *current_list__YB;
void *input_name__ZB;
void *proto_input__AI;
void *output_name__CI;
void *format_name__DW;
__BOOLEAN is_short_recursive__DB;
__BOOLEAN is_short_code__RW;
__BOOLEAN is_short_private__5W;
void *string_tmp__03C;
__UINTEGER_8 *tmp_buffer__MQMF;
void *string_tmp__YWV;
__INTEGER index_count__YZ;
void *free_list__O5O;
void *bucket__TAP;
void *dico__YYI;
void *dico__CUQB;
void *dico__OBP;
void *dico_string__1I5B;
void *free_list__CXI;
void *free_list__5CI;
void *free_list__AAL;
void *bucket__GQIB;
void *free_list__M03;
void *dico__NJ2B;
void *bucket_name__D3KB;
void *bucket_list__MBLB;
void *free_list__ZMVB;

//==========================//
// 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__,6,"Header"};
__STRING_CONSTANT __string_19={__STRING_CONSTANT__,7,"Inherit"};
__STRING_CONSTANT __string_20={__STRING_CONSTANT__,6,"Insert"};
__STRING_CONSTANT __string_21={__STRING_CONSTANT__,9,"Interrupt"};
__STRING_CONSTANT __string_22={__STRING_CONSTANT__,7,"Private"};
__STRING_CONSTANT __string_23={__STRING_CONSTANT__,6,"Public"};
__STRING_CONSTANT __string_24={__STRING_CONSTANT__,7,"Mapping"};
__STRING_CONSTANT __string_25={__STRING_CONSTANT__,9,"Directory"};
__STRING_CONSTANT __string_26={__STRING_CONSTANT__,8,"External"};
__STRING_CONSTANT __string_27={__STRING_CONSTANT__,7,"DEFAULT"};
__STRING_CONSTANT __string_28={__STRING_CONSTANT__,6,"Common"};
__STRING_CONSTANT __string_29={__STRING_CONSTANT__,7,"INTEGER"};
__STRING_CONSTANT __string_30={__STRING_CONSTANT__,4,"REAL"};
__STRING_CONSTANT __string_31={__STRING_CONSTANT__,9,"CHARACTER"};
__STRING_CONSTANT __string_32={__STRING_CONSTANT__,15,"STRING_CONSTANT"};
__STRING_CONSTANT __string_33={__STRING_CONSTANT__,12,"NATIVE_ARRAY"};
__STRING_CONSTANT __string_34={__STRING_CONSTANT__,21,"NATIVE_ARRAY_VOLATILE"};
__STRING_CONSTANT __string_35={__STRING_CONSTANT__,5,"BLOCK"};
__STRING_CONSTANT __string_36={__STRING_CONSTANT__,7,"BOOLEAN"};
__STRING_CONSTANT __string_37={__STRING_CONSTANT__,4,"TRUE"};
__STRING_CONSTANT __string_38={__STRING_CONSTANT__,5,"FALSE"};
__STRING_CONSTANT __string_39={__STRING_CONSTANT__,7,"POINTER"};
__STRING_CONSTANT __string_40={__STRING_CONSTANT__,10,"___CONTEXT"};
__STRING_CONSTANT __string_41={__STRING_CONSTANT__,10,"___GENERIC"};
__STRING_CONSTANT __string_42={__STRING_CONSTANT__,10,"___TYPE_ID"};
__STRING_CONSTANT __string_43={__STRING_CONSTANT__,11,"UINTEGER_64"};
__STRING_CONSTANT __string_44={__STRING_CONSTANT__,11,"UINTEGER_32"};
__STRING_CONSTANT __string_45={__STRING_CONSTANT__,11,"UINTEGER_16"};
__STRING_CONSTANT __string_46={__STRING_CONSTANT__,10,"UINTEGER_8"};
__STRING_CONSTANT __string_47={__STRING_CONSTANT__,10,"INTEGER_64"};
__STRING_CONSTANT __string_48={__STRING_CONSTANT__,10,"INTEGER_32"};
__STRING_CONSTANT __string_49={__STRING_CONSTANT__,10,"INTEGER_16"};
__STRING_CONSTANT __string_50={__STRING_CONSTANT__,9,"INTEGER_8"};
__STRING_CONSTANT __string_51={__STRING_CONSTANT__,23,"NATIVE_ARRAY__CHARACT\
ER"};
__STRING_CONSTANT __string_52={__STRING_CONSTANT__,37,"NATIVE_ARRAY__NATIVE_\
ARRAY__CHARACTER"};
__STRING_CONSTANT __string_53={__STRING_CONSTANT__,4,"Self"};
__STRING_CONSTANT __string_54={__STRING_CONSTANT__,5,"__pos"};
__STRING_CONSTANT __string_55={__STRING_CONSTANT__,5,"__tmp"};
__STRING_CONSTANT __string_56={__STRING_CONSTANT__,6,"lisaac"};
__STRING_CONSTANT __string_57={__STRING_CONSTANT__,10,"input_file"};
__STRING_CONSTANT __string_58={__STRING_CONSTANT__,11,"output_file"};
__STRING_CONSTANT __string_59={__STRING_CONSTANT__,6,"target"};
__STRING_CONSTANT __string_60={__STRING_CONSTANT__,4,"name"};
__STRING_CONSTANT __string_61={__STRING_CONSTANT__,8,"category"};
__STRING_CONSTANT __string_62={__STRING_CONSTANT__,8,"external"};
__STRING_CONSTANT __string_63={__STRING_CONSTANT__,7,"default"};
__STRING_CONSTANT __string_64={__STRING_CONSTANT__,4,"type"};
__STRING_CONSTANT __string_65={__STRING_CONSTANT__,7,"version"};
__STRING_CONSTANT __string_66={__STRING_CONSTANT__,4,"date"};
__STRING_CONSTANT __string_67={__STRING_CONSTANT__,7,"comment"};
__STRING_CONSTANT __string_68={__STRING_CONSTANT__,6,"author"};
__STRING_CONSTANT __string_69={__STRING_CONSTANT__,12,"bibliography"};
__STRING_CONSTANT __string_70={__STRING_CONSTANT__,8,"language"};
__STRING_CONSTANT __string_71={__STRING_CONSTANT__,9,"copyright"};
__STRING_CONSTANT __string_72={__STRING_CONSTANT__,10,"bug_report"};
__STRING_CONSTANT __string_73={__STRING_CONSTANT__,5,"value"};
__STRING_CONSTANT __string_74={__STRING_CONSTANT__,4,"self"};
__STRING_CONSTANT __string_75={__STRING_CONSTANT__,4,"__id"};
__STRING_CONSTANT __string_76={__STRING_CONSTANT__,5,"clone"};
__STRING_CONSTANT __string_77={__STRING_CONSTANT__,4,"main"};
__STRING_CONSTANT __string_78={__STRING_CONSTANT__,7,"__infix"};
__STRING_CONSTANT __string_79={__STRING_CONSTANT__,8,"__prefix"};
__STRING_CONSTANT __string_80={__STRING_CONSTANT__,7,"storage"};
__STRING_CONSTANT __string_81={__STRING_CONSTANT__,4,"void"};
__STRING_CONSTANT __string_82={__STRING_CONSTANT__,9,"struct __"};
__STRING_CONSTANT __string_83={__STRING_CONSTANT__,13,"/* NOTHING */"};
__STRING_CONSTANT __string_84={__STRING_CONSTANT__,2,"__"};
__STRING_CONSTANT __string_85={__STRING_CONSTANT__,22,"__PATH_LISAAC_SYSTEM__"};
__STRING_CONSTANT __string_86={__STRING_CONSTANT__,23,"__SHORT_LISAAC_FORMAT\
__"};
__STRING_CONSTANT __string_87={__STRING_CONSTANT__,5,"token"};
__STRING_CONSTANT __string_88={__STRING_CONSTANT__,9,"type_file"};
__STRING_CONSTANT __string_89={__STRING_CONSTANT__,5,"begin"};
__STRING_CONSTANT __string_90={__STRING_CONSTANT__,3,"end"};
__STRING_CONSTANT __string_91={__STRING_CONSTANT__,7,"keyword"};
__STRING_CONSTANT __string_92={__STRING_CONSTANT__,15,"keyword_section"};
__STRING_CONSTANT __string_93={__STRING_CONSTANT__,7,"integer"};
__STRING_CONSTANT __string_94={__STRING_CONSTANT__,9,"character"};
__STRING_CONSTANT __string_95={__STRING_CONSTANT__,6,"string"};
__STRING_CONSTANT __string_96={__STRING_CONSTANT__,8,"operator"};
__STRING_CONSTANT __string_97={__STRING_CONSTANT__,9,"prototype"};
__STRING_CONSTANT __string_98={__STRING_CONSTANT__,12,"keyprototype"};
__STRING_CONSTANT __string_99={__STRING_CONSTANT__,12,"comment_line"};
__STRING_CONSTANT __string_100={__STRING_CONSTANT__,17,"comment_slot_line"};
__STRING_CONSTANT __string_101={__STRING_CONSTANT__,19,"comment_header_line"};
__STRING_CONSTANT __string_102={__STRING_CONSTANT__,4,"slot"};
__STRING_CONSTANT __string_103={__STRING_CONSTANT__,9,"slot_call"};
__STRING_CONSTANT __string_104={__STRING_CONSTANT__,10,"slot_style"};
__STRING_CONSTANT __string_105={__STRING_CONSTANT__,5,"block"};
__STRING_CONSTANT __string_106={__STRING_CONSTANT__,5,"index"};
__STRING_CONSTANT __string_107={__STRING_CONSTANT__,20,"directory_list_begin"};
__STRING_CONSTANT __string_108={__STRING_CONSTANT__,19,"directory_list_item"};
__STRING_CONSTANT __string_109={__STRING_CONSTANT__,18,"directory_list_end"};
__STRING_CONSTANT __string_110={__STRING_CONSTANT__,15,"file_list_begin"};
__STRING_CONSTANT __string_111={__STRING_CONSTANT__,14,"file_list_item"};
__STRING_CONSTANT __string_112={__STRING_CONSTANT__,13,"file_list_end"};
__STRING_CONSTANT __string_113={__STRING_CONSTANT__,1732,"------------------\
----------------------------------------------\n--                   Lisaac \
source Shorter                    --\n--            LORIA - LSIIT - ULP - CN\
RS - FRANCE             --\n--         Benoit SONNTAG - sonntag@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    \
                                                        \nExamples:         \
                                          \n  * Output format file:         \
                            \n    shorter -c -p -f latex hello_world.li     \
              \n                                                            \
\n  * Build html documentation:                               \n    shorter \
-r -f html ~/lisaac/lib                         \n                          \
                                  \nBug report:                             \
                    \n            post in : https://gna.org/bugs/?group=isaa\
c     \n            mail to : sonntag@icps.u-strasbg.fr             \n"};
__STRING_CONSTANT __string_114={__STRING_CONSTANT__,8,"shorter/"};
__STRING_CONSTANT __string_115={__STRING_CONSTANT__,3,".li"};
__STRING_CONSTANT __string_116={__STRING_CONSTANT__,20,"Error: File format `"};
__STRING_CONSTANT __string_117={__STRING_CONSTANT__,16,"' is not open !\n"};
__STRING_CONSTANT __string_118={__STRING_CONSTANT__,26,"Incorrect slot ident\
ifier."};
__STRING_CONSTANT __string_119={__STRING_CONSTANT__,23,"Double definition sl\
ot."};
__STRING_CONSTANT __string_120={__STRING_CONSTANT__,26,"Assignment ':=' is n\
eeded."};
__STRING_CONSTANT __string_121={__STRING_CONSTANT__,28,"Incorrect format exp\
ression."};
__STRING_CONSTANT __string_122={__STRING_CONSTANT__,21,"Incorrect definition."};
__STRING_CONSTANT __string_123={__STRING_CONSTANT__,20,"Added ';' is needed."};
__STRING_CONSTANT __string_124={__STRING_CONSTANT__,17,"Incorrect symbol."};
__STRING_CONSTANT __string_125={__STRING_CONSTANT__,18,"Error: directory `"};
__STRING_CONSTANT __string_126={__STRING_CONSTANT__,13,"\' not found.\n"};
__STRING_CONSTANT __string_127={__STRING_CONSTANT__,12,"\' not open.\n"};
__STRING_CONSTANT __string_128={__STRING_CONSTANT__,4,".txt"};
__STRING_CONSTANT __string_129={__STRING_CONSTANT__,14,"directory_list"};
__STRING_CONSTANT __string_130={__STRING_CONSTANT__,9,"file_list"};
__STRING_CONSTANT __string_131={__STRING_CONSTANT__,4,"_add"};
__STRING_CONSTANT __string_132={__STRING_CONSTANT__,4,"_sub"};
__STRING_CONSTANT __string_133={__STRING_CONSTANT__,9,"_logicnot"};
__STRING_CONSTANT __string_134={__STRING_CONSTANT__,4,"_not"};
__STRING_CONSTANT __string_135={__STRING_CONSTANT__,4,"_div"};
__STRING_CONSTANT __string_136={__STRING_CONSTANT__,4,"_mul"};
__STRING_CONSTANT __string_137={__STRING_CONSTANT__,4,"_xor"};
__STRING_CONSTANT __string_138={__STRING_CONSTANT__,4,"_mod"};
__STRING_CONSTANT __string_139={__STRING_CONSTANT__,8,"_greater"};
__STRING_CONSTANT __string_140={__STRING_CONSTANT__,5,"_less"};
__STRING_CONSTANT __string_141={__STRING_CONSTANT__,6,"_equal"};
__STRING_CONSTANT __string_142={__STRING_CONSTANT__,7,"_notdiv"};
__STRING_CONSTANT __string_143={__STRING_CONSTANT__,3,"_or"};
__STRING_CONSTANT __string_144={__STRING_CONSTANT__,4,"_and"};
__STRING_CONSTANT __string_145={__STRING_CONSTANT__,7,"_dollar"};
__STRING_CONSTANT __string_146={__STRING_CONSTANT__,6,"_diese"};
__STRING_CONSTANT __string_147={__STRING_CONSTANT__,3,"_at"};
__STRING_CONSTANT __string_148={__STRING_CONSTANT__,4,"_ask"};
__STRING_CONSTANT __string_149={__STRING_CONSTANT__,27,"FILE_SYSTEM : Error \
Root 1\n"};
__STRING_CONSTANT __string_150={__STRING_CONSTANT__,27,"FILE_SYSTEM : Error \
root 2\n"};
__STRING_CONSTANT __string_151={__STRING_CONSTANT__,26,"End of comment not f\
ound !"};
__STRING_CONSTANT __string_152={__STRING_CONSTANT__,24,"Identifier is incorr\
ect."};
__STRING_CONSTANT __string_153={__STRING_CONSTANT__,22,"Line counter overflo\
w."};
__STRING_CONSTANT __string_154={__STRING_CONSTANT__,40,"Column counter overf\
low (line too long)."};
__STRING_CONSTANT __string_155={__STRING_CONSTANT__,20,"--SYNTAX-----------\n"};
__STRING_CONSTANT __string_156={__STRING_CONSTANT__,20,"--SEMANTIC---------\n"};
__STRING_CONSTANT __string_157={__STRING_CONSTANT__,20,"--WARNING----------\n"};
__STRING_CONSTANT __string_158={__STRING_CONSTANT__,20,"--MESSAGE----------\n"};
__STRING_CONSTANT __string_159={__STRING_CONSTANT__,6,"\nLine "};
__STRING_CONSTANT __string_160={__STRING_CONSTANT__,8," column "};
__STRING_CONSTANT __string_161={__STRING_CONSTANT__,4," in "};
__STRING_CONSTANT __string_162={__STRING_CONSTANT__,3,"):\n"};
__STRING_CONSTANT __string_163={__STRING_CONSTANT__,2,"^\n"};
__STRING_CONSTANT __string_164={__STRING_CONSTANT__,21,"Variable not `token'."};
__STRING_CONSTANT __string_165={__STRING_CONSTANT__,1,"."};
__STRING_CONSTANT __string_166={__STRING_CONSTANT__,20,"Warning: directory `"};
__STRING_CONSTANT __string_167={__STRING_CONSTANT__,36,"Error: Double defini\
tion prototype:\n"};
__STRING_CONSTANT __string_168={__STRING_CONSTANT__,3,"../"};
__STRING_CONSTANT __string_169={__STRING_CONSTANT__,12,"Error: File "};
__STRING_CONSTANT __string_170={__STRING_CONSTANT__,18," is not created !\n"};
__STRING_CONSTANT __string_171={__STRING_CONSTANT__,20,"`Section' is needed."};
__STRING_CONSTANT __string_172={__STRING_CONSTANT__,27,"Section `Header' is \
needed."};
__STRING_CONSTANT __string_173={__STRING_CONSTANT__,22,"Slot `name' not foun\
d."};
__STRING_CONSTANT __string_174={__STRING_CONSTANT__,23,"Incorrect type secti\
on."};
__STRING_CONSTANT __string_175={__STRING_CONSTANT__,50,"`Section Inherit/Ins\
ert' must to be first section."};
__STRING_CONSTANT __string_176={__STRING_CONSTANT__,78,"`Section Inherit' is\
 not possible with Expanded object (Use `Section Insert')."};
__STRING_CONSTANT __string_177={__STRING_CONSTANT__,30,"Incorrect argument d\
efinition."};
__STRING_CONSTANT __string_178={__STRING_CONSTANT__,20,"Added ')' is needed."};
__STRING_CONSTANT __string_179={__STRING_CONSTANT__,32,"Incorrect in `Sectio\
n External'."};
__STRING_CONSTANT __string_180={__STRING_CONSTANT__,19,"Operator is needed."};
__STRING_CONSTANT __string_181={__STRING_CONSTANT__,19,"Incorrect operator."};
__STRING_CONSTANT __string_182={__STRING_CONSTANT__,10,"Added `''."};
__STRING_CONSTANT __string_183={__STRING_CONSTANT__,31,"Level priority level\
 is needed."};
__STRING_CONSTANT __string_184={__STRING_CONSTANT__,33,"Not priority for pre\
fix operator."};
__STRING_CONSTANT __string_185={__STRING_CONSTANT__,27,"Incorrect slot decla\
ration."};
__STRING_CONSTANT __string_186={__STRING_CONSTANT__,31,"No argument for inte\
rrupt slot."};
__STRING_CONSTANT __string_187={__STRING_CONSTANT__,33,"No argument for inhe\
ritance slot."};
__STRING_CONSTANT __string_188={__STRING_CONSTANT__,22,"Incorrect result typ\
e."};
__STRING_CONSTANT __string_189={__STRING_CONSTANT__,36,"Incorrect type for i\
nheritance slot."};
__STRING_CONSTANT __string_190={__STRING_CONSTANT__,21,"Incorrect expression."};
__STRING_CONSTANT __string_191={__STRING_CONSTANT__,10,"Added ';'."};
__STRING_CONSTANT __string_192={__STRING_CONSTANT__,24,"Double slot declarat\
ion."};
__STRING_CONSTANT __string_193={__STRING_CONSTANT__,38,"Invariant: Sorry, No\
t yet implemented."};
__STRING_CONSTANT __string_194={__STRING_CONSTANT__,19,"Not enough memory.\n"};
__STRING_CONSTANT __string_195={__STRING_CONSTANT__,29,"Unterminated string \
constant."};
__STRING_CONSTANT __string_196={__STRING_CONSTANT__,27,"Incorrect style slot\
 ('-')."};
__STRING_CONSTANT __string_197={__STRING_CONSTANT__,88,"`- name' is reserved\
 for Concurrent Object Prototype.\nSorry, COP is not yet implemented."};
__STRING_CONSTANT __string_198={__STRING_CONSTANT__,11,"Added ':='."};
__STRING_CONSTANT __string_199={__STRING_CONSTANT__,31,"Prototype identifier\
 is needed."};
__STRING_CONSTANT __string_200={__STRING_CONSTANT__,34,"Incorrect name (file\
name != name)."};
__STRING_CONSTANT __string_201={__STRING_CONSTANT__,21,"identifier is needed."};
__STRING_CONSTANT __string_202={__STRING_CONSTANT__,21,"Incorrect identifier."};
__STRING_CONSTANT __string_203={__STRING_CONSTANT__,37,"Sorry, not yet imple\
mented (ignored)."};
__STRING_CONSTANT __string_204={__STRING_CONSTANT__,10,"Added ']'."};
__STRING_CONSTANT __string_205={__STRING_CONSTANT__,15,"Incorrect type."};
__STRING_CONSTANT __string_206={__STRING_CONSTANT__,34,"Slot `name' must to \
be first slot."};
__STRING_CONSTANT __string_207={__STRING_CONSTANT__,28,"Slot `category' is O\
bsolete."};
__STRING_CONSTANT __string_208={__STRING_CONSTANT__,19,"Incorrect external."};
__STRING_CONSTANT __string_209={__STRING_CONSTANT__,3,"// "};
__STRING_CONSTANT __string_210={__STRING_CONSTANT__,15,"Incorrect expr."};
__STRING_CONSTANT __string_211={__STRING_CONSTANT__,33,"Double `default' slo\
t definition."};
__STRING_CONSTANT __string_212={__STRING_CONSTANT__,30,"Double `type' slot d\
efinition."};
__STRING_CONSTANT __string_213={__STRING_CONSTANT__,17,"Incorrect number."};
__STRING_CONSTANT __string_214={__STRING_CONSTANT__,17,"Incorrect string."};
__STRING_CONSTANT __string_215={__STRING_CONSTANT__,15,"Incorrect slot."};
__STRING_CONSTANT __string_216={__STRING_CONSTANT__,59,"For a section, the p\
rototype name only (without '['...']')."};
__STRING_CONSTANT __string_217={__STRING_CONSTANT__,20,"Incorrect type list."};
__STRING_CONSTANT __string_218={__STRING_CONSTANT__,30,"Incorrect argument i\
dentifier."};
__STRING_CONSTANT __string_219={__STRING_CONSTANT__,24,"Incorrect argument t\
ype."};
__STRING_CONSTANT __string_220={__STRING_CONSTANT__,20,"Added ':' is needed."};
__STRING_CONSTANT __string_221={__STRING_CONSTANT__,10,"Added ')'."};
__STRING_CONSTANT __string_222={__STRING_CONSTANT__,18,"!@#$%^&<|*-+=~/?\\>"};
__STRING_CONSTANT __string_223={__STRING_CONSTANT__,23,"Incorrect octal numb\
er."};
__STRING_CONSTANT __string_224={__STRING_CONSTANT__,24,"Incorrect binary num\
ber."};
__STRING_CONSTANT __string_225={__STRING_CONSTANT__,25,"Incorrect decimal nu\
mber."};
__STRING_CONSTANT __string_226={__STRING_CONSTANT__,27,"`Expanded' is not po\
ssible."};
__STRING_CONSTANT __string_227={__STRING_CONSTANT__,45,"Impossible '<-' styl\
e assignment with vector."};
__STRING_CONSTANT __string_228={__STRING_CONSTANT__,28,"Sorry, Not yet imple\
mented !"};
__STRING_CONSTANT __string_229={__STRING_CONSTANT__,24,"Unknown escape seque\
nce."};
__STRING_CONSTANT __string_230={__STRING_CONSTANT__,39,"Invalid range charac\
ter number [0,255]."};
__STRING_CONSTANT __string_231={__STRING_CONSTANT__,23,"Character '\' is nee\
ded."};
__STRING_CONSTANT __string_232={__STRING_CONSTANT__,24,"Incorrect Result num\
ber."};
__STRING_CONSTANT __string_233={__STRING_CONSTANT__,22,"Incorrect real numbe\
r."};
__STRING_CONSTANT __string_234={__STRING_CONSTANT__,28,"Character constant t\
oo long."};
__STRING_CONSTANT __string_235={__STRING_CONSTANT__,32,"Unterminated charact\
er constant."};
__STRING_CONSTANT __string_236={__STRING_CONSTANT__,10,"Added '}'."};
__STRING_CONSTANT __string_237={__STRING_CONSTANT__,25,"Incorrect live type \
list."};
__STRING_CONSTANT __string_238={__STRING_CONSTANT__,23,"Incorrect generic ty\
pe."};
__STRING_CONSTANT __string_239={__STRING_CONSTANT__,7,"Style `"};
__STRING_CONSTANT __string_240={__STRING_CONSTANT__,10,"' ignored."};
__STRING_CONSTANT __string_241={__STRING_CONSTANT__,21,"Incorrect local type."};
__STRING_CONSTANT __string_242={__STRING_CONSTANT__,27,"Incorrect `Old' expr\
ession."};
__STRING_CONSTANT __string_243={__STRING_CONSTANT__,18,"Incorrect message."};
__STRING_CONSTANT __string_244={__STRING_CONSTANT__,37,"Incorrect multiple r\
esult expression."};
__STRING_CONSTANT __string_245={__STRING_CONSTANT__,19,"Incorrect argument."};

//==========================//
// FUNCTION HEADER          //
//==========================//

// Debug Manager
void print_string(char *str);
// Source code
static __STRING* create__01(__INTEGER needed_capacity__21);
static __POINTER new_lab__RUJ(__UINTEGER_32 t__TUJ);
static void** create__4UNB(__INTEGER nb_elements__AVNB);
static __INTEGER fast_first_index_of__until__HEC(__CHARACTER *Self__IEC);
static __CHARACTER* create__D4BB(__INTEGER nb_elements__F4BB);
static __POINTER realloc_dynamic__old_size__new_size__HBHC(__POINTER p__JBHC,__UINTEGER_32 old_sz__KBHC,__UINTEGER_32 new_sz__LBHC);
static void add_last__RST(__FAST_ARRAYoSTRINGo *Self__SST,void *element__TST);
static __INTEGER prime_number_ceiling__33Z(__INTEGER integer__53Z);
static void** create__KG2(__INTEGER nb_elements__MG2);
static void** create__3HQC(__INTEGER nb_elements__5HQC);
static void** create__PWOB(__INTEGER nb_elements__RWOB);
static void** create__TC2(__INTEGER nb_elements__VC2);
static void** create__RY0(__INTEGER nb_elements__TY0);
static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__GMD(__INTEGER new_count__IMD);
static void** create__0DOB(__INTEGER nb_elements__2DOB);
static void** create__SP5(__INTEGER nb_elements__UP5);
static void** create__A3TB(__INTEGER nb_elements__C3TB);
static void** create__SL3(__INTEGER nb_elements__UL3);
static void fast_put__to__ONS(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__PNS,void *v__QNS,void *k__RNS);
static void* get__QYI(void *n__SYI);
static void** create__R44C(__INTEGER nb_elements__T44C);
static void** create__R23D(__INTEGER nb_elements__T23D);
static void** create__K0MB(__INTEGER nb_elements__M0MB);
static void** create__OFMB(__INTEGER nb_elements__QFMB);
static void** create__4TWB(__INTEGER nb_elements__AUWB);
static void** create__FR2C(__INTEGER nb_elements__HR2C);
static void** create__T3UC(__INTEGER nb_elements__V3UC);
static void** create__2T5C(__INTEGER nb_elements__4T5C);
static void** create__LRVC(__INTEGER nb_elements__NRVC);
static void** create__OWVC(__INTEGER nb_elements__QWVC);
static void** create__AJ5C(__INTEGER nb_elements__CJ5C);
static __MEMORY* search__BURB(__UINTEGER_32 new_size__DURB);
static void** create__HJ0(__INTEGER nb_elements__JJ0);
static void add__O2P(__HASHED_SEToABSTRACT_STRINGo *Self__P2P,void *e__Q2P);
static void* operator_to_name__15(void *op__45);
static void print__CCD(__STRING_CONSTANT *Self__DCD);
static void* get__TPB(void *str__VPB);
static void copy__5GQ(__STRING *Self__AHQ,void *other__BHQ);
static void append__CRQ(__STRING *Self__DRQ,void *other__ERQ);
static void* parent_directory__U3C();
static void* get__0PEF(void *new_path__2PEF);
static void put_string__55F(void *s__BAG);
static __PROTOTYPE* create__name__generic_count__2ZB(void *f__4ZB,void *n__5ZB);
static __BOOLEAN read_space__MMD();
static __BOOLEAN read_identifier__EBL();
static __POSITION current_position__A0F();
static void put_error__text__WRG(__INTEGER type__YRG,void *txt__ZRG);
static void put_position__ATG(__POSITION Self__BTG);
static __BOOLEAN fast_has__ZER(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__0ER,void *k__1ER);
static __INTEGER hash_code__LQU(__STRING_CONSTANT *Self__MQU);
static __BOOLEAN read_symbol__I0J(void *st__K0J);
static __BOOLEAN read_short_elt__UDHB();
static void fast_put__to__45P(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__55P,void *k__BAQ);
static void** create__IGKB(__INTEGER nb_elements__KGKB);
static __TYPE_ID* create__JLB();
static void add_last__UCQ(__FAST_ARRAYoTYPE_IDo *Self__VCQ,void *element__WCQ);
static void* open__4TRE(__DIRECTORY *Self__5TRE);
static void* open__BY2B(__ENTRY *Self__CY2B);
static __BOOLEAN refresh__GBUE(__DIRECTORY *Self__HBUE);
static void check_in__begin__5WNC(void *entry__BXNC,__INTEGER n__CXNC);
static void* fast_at__GU1(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__HU1,void *k__IU1);
static void save_file__with__22B(void *n__42B,void *buf__52B);
static void resize__54X(__STRING *Self__A5X,__INTEGER new_count__B5X);
static void move__to__by__YP4B(__CHARACTER *Self__ZP4B,__INTEGER lower__0P4B,__INTEGER upper__1P4B,__INTEGER offset__2P4B);
static __BOOLEAN __infix_equal_equal__GQBB(__STRING_CONSTANT *Self__HQBB,void *other__IQBB);
static void* at__VK2(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__WK2,void *k__XK2);
static __BOOLEAN has_suffix__VLQ(__STRING_CONSTANT *Self__WLQ);
static void replace_all__with__HTQ(__STRING *Self__ITQ,__CHARACTER old_char__JTQ,__CHARACTER new_char__KTQ);
static __INTEGER last_index__EMC(void *n__GMC,__CHARACTER c__HMC);
static void remove_between__to__4IS(__STRING *Self__5IS,__INTEGER start__AJS,__INTEGER end__BJS);
static void to_upper__UVQ(__STRING *Self__VVQ);
static void go_on__F0B(void *obj__H0B);
static __MEMORY* new_page__NE3();
static void to_busy__index__IZBC(__MEMORY *Self__JZBC,__UINTEGER_32 sz__KZBC,__UINTEGER_32 idx__LZBC);
static void** create__JYMB(__INTEGER nb_elements__LYMB);
static __BOOLEAN has__JSU(__HASHED_SEToABSTRACT_STRINGo *Self__KSU,void *e__LSU);
static void increase_capacity__G5JB(__HASHED_SEToABSTRACT_STRINGo *Self__H5JB);
static __INTEGER hash_code__VHV(__STRING *Self__WHV);
static __BOOLEAN fast_has__W5V(__HASHED_SEToABSTRACT_STRINGo *Self__X5V,void *e__Y5V);
static void from_external__M2Q(__STRING *Self__N2Q,__CHARACTER *p__O2Q);
static __INTEGER last_index_of__since__YXR(__STRING *Self__ZXR,__INTEGER start_index__1XR);
static __BOOLEAN has__YHR(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__ZHR,void *k__0HR);
static void* at__MX1(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__NX1,void *k__OX1);
static __BOOLEAN make_entry__5V3B(__ENTRY *Self__AW3B,void *p__BW3B);
static void put__to__PJ0D(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__QJ0D,void *v__RJ0D,void *k__SJ0D);
static void reduce_path__KOFF(void *st__MOFF);
static void* get_entry__HWFF(void *p__JWFF);
static void** create__QOPC(__INTEGER nb_elements__SOPC);
static void short__token__to__R0C(void *key__T0C,__INTEGER beg__U0C,__INTEGER end__V0C);
static __INTEGER first_substring_index__D15E(__STRING *Self__E15E);
static void append_in__GMH(__UINTEGER_32 Self__HMH,void *buffer__IMH);
static __BOOLEAN read_string__WSO();
static __BOOLEAN fast_memcmp__until__0EVB(__CHARACTER *Self__1EVB,__CHARACTER *other__2EVB,__INTEGER capacity__3EVB);
static void* item__EQQF(__DIRECTORY *Self__FQQF,__INTEGER i__GQQF);
static void* item__WZPD(__LINKED_LISToSTRING_CONSTANTo *Self__XZPD,__INTEGER i__YZPD);
static __INTEGER fast_reverse_index_of__from__GOAD(__CHARACTER *Self__HOAD,__INTEGER upper__JOAD);
static void** create__221(__INTEGER nb_elements__421);
static __BOOLEAN read_word__NSF(void *st__PSF);
static __BOOLEAN read_slot_header__I2D(__BOOLEAN first__K2D);
static void* read_type_list__O4KB(__PARSER *Self__P4KB,__BOOLEAN is_section__Q4KB);
static __INTEGER hash_code__ATY(__FAST_ARRAYoITM_TYPE_MONOo *Self__BTY);
static __CHARACTER read_style__QUF();
static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__T3XB(__INTEGER new_count__V3XB);
static void* read_local_arg__with_self__QCZB(__PARSER *Self__RCZB,__BOOLEAN m__SCZB,__BOOLEAN s__TCZB);
static void add_last__TCCC(__FAST_ARRAYoITM_ARGUMENTo *Self__UCCC,void *element__VCCC);
static void* read_loc_arg__E3EB(__PARSER *Self__F3EB,__BOOLEAN mute__G3EB);
static __BOOLEAN read_operator__BRL();
static __BOOLEAN read_integer__LJO();
static void* operator_to_name__SBM(void *typ__UBM,void *op__VBM);
static void** create__NC5C(__INTEGER nb_elements__PC5C);
static __BOOLEAN read_affect__QY3();
static void* get__CJ2B(void *lt__EJ2B);
static void* read_type__5FP(__PARSER *Self__AGP,__BOOLEAN is_local__BGP);
static void* read_contract__AWF();
static void* read_expr__25I(__PARSER *Self__35I);
static void insert_string__to__SCT(__STRING *Self__TCT,void *s__UCT,__INTEGER i__VCT);
static void read_escape_character__AVDF();
static __BOOLEAN read_cap_identifier__X2J();
static void add_last__1VS(__FAST_ARRAYoSTRING_CONSTANTo *Self__2VS,void *element__3VS);
static void** create__T2TC(__INTEGER nb_elements__V2TC);
static void fast_add__KJ4B(__HASHED_SEToITM_TYPE_SIMPLEo *Self__LJ4B,void *e__MJ4B);
static __BOOLEAN read_external__ZVO();
static void* read_expr_primary__MDN(__PARSER *Self__NDN);
static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__VOP(__INTEGER new_count__XOP);
static void add_last__M5T(__FAST_ARRAYoITM_TYPE_MONOo *Self__N5T,void *element__O5T);
static void* alias__KAP(void *tmp__MAP);
static void free__5Z3(void *tmp__B03);
static void free__TEP(void *tmp__VEP);
static void* alias__4PIB(void *tmp__AQIB);
static void add__XTEB(__HASHED_SEToSTRING_CONSTANTo *Self__YTEB,void *e__ZTEB);
static __BOOLEAN is_hexadecimal_digit__51JE(__CHARACTER Self__A2JE);
static void* read_prototype__I2N(__PARSER *Self__J2N,void *style__K2N);
static void read_def_local__15H(__PARSER *Self__25H);
static __FAST_ARRAYoITM_CODEo* create_with_capacity__X0I(__INTEGER new_count__Z0I);
static void add_last__GVT(__FAST_ARRAYoITM_CODEo *Self__HVT,void *element__IVT);
static void* copy__OEI(void *tmp__QEI);
static __BOOLEAN fast_has__LKT(__HASHED_SEToSTRING_CONSTANTo *Self__MKT,void *e__NKT);
static void copy__0PBC(__FAST_ARRAYoSTRING_CONSTANTo *Self__1PBC,void *other__2PBC);
static void restore_context__MEL();
static void* read_expr_prefix__XFL(__PARSER *Self__YFL);
static __FAST_ARRAYoExpanded_POSITIONo* create_with_capacity__MANB(__INTEGER new_count__OANB);
static __POSITION* create__KB3C(__INTEGER nb_elements__MB3C);
static void free__30I(void *tmp__50I);
static void free__0PIB(void *tmp__2PIB);
static __BOOLEAN fast_has__M5FC(__HASHED_SEToITM_TYPE_SIMPLEo *Self__N5FC,void *e__O5FC);
static void* read_group__ZZEB(__PARSER *Self__0ZEB);
static void** create__2BOB(__INTEGER nb_elements__4BOB);
static __BOOLEAN fast_has__4LZ(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__5LZ,void *e__AMZ);
static __INTEGER hash_code__L4HC(__FAST_ARRAYoSTRING_CONSTANTo *Self__M4HC);
static __BOOLEAN fast_has__ULKC(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__VLKC,void *e__WLKC);
static __BOOLEAN has__P3IB(__HASHED_SEToSTRING_CONSTANTo *Self__Q3IB,void *e__R3IB);
static __FAST_ARRAYoITM_LOCALo* create_with_capacity__RMK(__INTEGER new_count__TMK);
static void add_last__OGT(__FAST_ARRAYoITM_LOCALo *Self__PGT,void *element__QGT);
static void free__XMK(void *tmp__ZMK);
static void* copy__KBK(void *tmp__MBK);
static void append_collection__DERD(__FAST_ARRAYoITM_LOCALo *Self__EERD,void *other__FERD);
static void** create__GWNB(__INTEGER nb_elements__IWNB);
static void* read_send_msg__DXN(__PARSER *Self__EXN,void *first_arg__FXN);
static void** create__0GNB(__INTEGER nb_elements__2GNB);
static void* read_argument__U0O(__PARSER *Self__V0O);

//==========================//
// SOURCE CODE              //
//==========================//

int main(int argc,char **argv)
{
  void *str__PBD,*cmd__4T;
  __INTEGER new_count__1GLG,typ_id__UGLG,Self__UIF,limit_up__VIF;
  __INTEGER i__Y5BB,new_capacity__ONJG,old_nb_elts__RNJG,upper__JHLG;
  __INTEGER Self__HHLG,typ_id__KTH,new_capacity__BPW,typ_id__2NBB;
  __INTEGER new_capacity__DUFC,typ_id__KQJ,typ_id__URH;
  __INTEGER new_capacity__JNW,typ_id__IIC,new_capacity__VMV,typ_id__3LP;
  __INTEGER typ_id__TNP,new_capacity__1HZ,typ_id__JPP,typ_id__QOK;
  __INTEGER new_capacity__1MX,typ_id__UXYB,typ_id__H31C;
  __INTEGER new_capacity__XGXD,typ_id__PLK,typ_id__ACK,typ_id__X5L;
  __INTEGER typ_id__ICG,typ_id__A5MB,typ_id__Z2SB,new_capacity__WHKC;
  __INTEGER typ_id__2P2B,typ_id__YHVB,new_capacity__DZKC,typ_id__LLVB;
  __INTEGER new_capacity__42KC,typ_id__0P0B,Self__NRSF,typ_id__WNB;
  __INTEGER new_capacity__K2U,j__5T,__tmp__YY,typ_id__WNJG;
  __INTEGER new_capacity__2NJG,old_nb_elts__5NJG,upper__ZOLG,Self__XOLG;
  __INTEGER typ_id__V5GB,h__PBCB,idx__QBCB,idx__MZVB,new_capacity__NZVB;
  __INTEGER i__OZVB,typ_id__11VB,typ_id__EOJG,typ_id__OOJG,typ_id__YOJG;
  __INTEGER typ_id__DOCD,typ_id__3RB,Self__D5WD,typ_id__CPJG;
  __INTEGER typ_id__KPJG,typ_id__KUB,typ_id__1VB,typ_id__SPJG;
  __INTEGER typ_id__0PJG,typ_id__EQJG,new_capacity__3QR;
  __INTEGER old_nb_elts__GYGG,upper__UK1C,Self__QQBD,i__MWIG,j__OWIG;
  __INTEGER Self__TTLG,i__QWIG,j__SWIG,Self__YTLG,i__UYB,n__4DIG;
  __POINTER ptr__TGLG,ptr_table__3GLG,next__2GLG,result__4GLG;
  __POINTER ptr_table__CHLG,next__BHLG,result__DHLG,ptr__FTH;
  __POINTER ptr_table__MHLG,next__LHLG,result__NHLG,ptr_table__RHLG;
  __POINTER next__QHLG,result__SHLG,ptr__XNBB,ptr_table__WHLG;
  __POINTER next__VHLG,result__XHLG,ptr_table__1HLG,next__0HLG;
  __POINTER result__2HLG,ptr__FQJ,ptr_table__AILG,next__5HLG;
  __POINTER result__BILG,ptr_table__FILG,next__EILG,result__GILG;
  __POINTER ptr__PRH,ptr_table__KILG,next__JILG,result__LILG;
  __POINTER ptr_table__PILG,next__OILG,result__QILG,ptr__DIC;
  __POINTER ptr_table__UILG,next__TILG,result__VILG,ptr_table__ZILG;
  __POINTER next__YILG,result__0ILG,ptr__YLP,ptr_table__4ILG,next__3ILG;
  __POINTER result__5ILG,ptr_table__DJLG,next__CJLG,result__EJLG;
  __POINTER ptr__ONP,ptr_table__IJLG,next__HJLG,result__JJLG;
  __POINTER ptr_table__NJLG,next__MJLG,result__OJLG,ptr__EPP;
  __POINTER ptr_table__SJLG,next__RJLG,result__TJLG,ptr_table__XJLG;
  __POINTER next__WJLG,result__YJLG,ptr__LOK,ptr_table__2JLG,next__1JLG;
  __POINTER result__3JLG,ptr_table__BKLG,next__AKLG,result__CKLG;
  __POINTER ptr__PXYB,ptr_table__GKLG,next__FKLG,result__HKLG;
  __POINTER ptr_table__LKLG,next__KKLG,result__MKLG,ptr__C31C;
  __POINTER ptr_table__QKLG,next__PKLG,result__RKLG,ptr_table__VKLG;
  __POINTER next__UKLG,result__WKLG,ptr__KLK,ptr_table__0KLG,next__ZKLG;
  __POINTER result__1KLG,ptr_table__5KLG,next__4KLG,result__ALLG;
  __POINTER ptr__1BK,ptr_table__ELLG,next__DLLG,result__FLLG;
  __POINTER ptr_table__JLLG,next__ILLG,result__KLLG,ptr__S5L;
  __POINTER ptr_table__OLLG,next__NLLG,result__PLLG,ptr_table__TLLG;
  __POINTER next__SLLG,result__ULLG,ptr__DCG,ptr_table__YLLG,next__XLLG;
  __POINTER result__ZLLG,ptr_table__3LLG,next__2LLG,result__4LLG;
  __POINTER ptr__14MB,ptr_table__CMLG,next__BMLG,result__DMLG;
  __POINTER ptr_table__HMLG,next__GMLG,result__IMLG,ptr__U2SB;
  __POINTER ptr_table__MMLG,next__LMLG,result__NMLG,ptr_table__RMLG;
  __POINTER next__QMLG,result__SMLG,ptr__XP2B,ptr_table__WMLG;
  __POINTER next__VMLG,result__XMLG,ptr_table__1MLG,next__0MLG;
  __POINTER result__2MLG,ptr__THVB,ptr_table__ANLG,next__5MLG;
  __POINTER result__BNLG,ptr_table__FNLG,next__ENLG,result__GNLG;
  __POINTER ptr__GLVB,ptr_table__KNLG,next__JNLG,result__LNLG;
  __POINTER ptr_table__PNLG,next__ONLG,result__QNLG,ptr__VP0B;
  __POINTER ptr_table__UNLG,next__TNLG,result__VNLG,ptr_table__ZNLG;
  __POINTER next__YNLG,result__0NLG,result__0VIG,ptr_table__4NLG;
  __POINTER next__3NLG,result__5NLG,ptr__RNB,ptr_table__DOLG,next__COLG;
  __POINTER result__EOLG,ptr_table__IOLG,next__HOLG,result__JOLG;
  __POINTER ptr__VNJG,ptr_table__NOLG,next__MOLG,result__OOLG;
  __POINTER ptr_table__SOLG,next__ROLG,result__TOLG,ptr__Q5GB;
  __POINTER ptr_table__5OLG,next__4OLG,result__APLG,ptr_table__EPLG;
  __POINTER next__DPLG,result__FPLG,ptr__W1VB,ptr_table__JPLG;
  __POINTER next__IPLG,result__KPLG,ptr_table__OPLG,next__NPLG;
  __POINTER result__PPLG,ptr__DOJG,ptr_table__TPLG,next__SPLG;
  __POINTER result__UPLG,ptr_table__YPLG,next__XPLG,result__ZPLG;
  __POINTER ptr__NOJG,ptr_table__3PLG,next__2PLG,result__4PLG;
  __POINTER ptr_table__CQLG,next__BQLG,result__DQLG,ptr__XOJG;
  __POINTER ptr_table__KQLG,next__JQLG,result__LQLG,ptr_table__PQLG;
  __POINTER next__OQLG,result__QQLG,ptr__4NCD,ptr_table__UQLG;
  __POINTER next__TQLG,result__VQLG,ptr_table__ZQLG,next__YQLG;
  __POINTER result__0QLG,ptr__YRB,ptr_table__4QLG,next__3QLG;
  __POINTER result__5QLG,ptr_table__DRLG,next__CRLG,result__ERLG;
  __POINTER result__CWIG,ptr_table__IRLG,next__HRLG,result__JRLG;
  __POINTER ptr__BPJG,ptr_table__NRLG,next__MRLG,result__ORLG;
  __POINTER ptr_table__SRLG,next__RRLG,result__TRLG,ptr__JPJG;
  __POINTER ptr_table__XRLG,next__WRLG,result__YRLG,ptr_table__2RLG;
  __POINTER next__1RLG,result__3RLG,ptr__FUB,ptr_table__BSLG,next__ASLG;
  __POINTER result__CSLG,ptr_table__GSLG,next__FSLG,result__HSLG;
  __POINTER ptr__WVB,ptr_table__LSLG,next__KSLG,result__MSLG;
  __POINTER ptr_table__QSLG,next__PSLG,result__RSLG,ptr__RPJG;
  __POINTER ptr_table__VSLG,next__USLG,result__WSLG,ptr_table__0SLG;
  __POINTER next__ZSLG,result__1SLG,ptr__ZPJG,ptr_table__5SLG;
  __POINTER next__4SLG,result__ATLG,ptr_table__ETLG,next__DTLG;
  __POINTER result__FTLG,ptr__DQJG,ptr_table__JTLG,next__ITLG;
  __POINTER result__KTLG,ptr_table__OTLG,next__NTLG,result__PTLG;
  __UINTEGER_32 sz__VGLG,a__WGLG,new_size__XGLG,t__YGLG,a__ZGLG;
  __UINTEGER_32 new_size__FHLG,lab_type__EHLG,sz__HTH,a__H3HG;
  __UINTEGER_32 new_size__I3HG,t__M3HG,a__L3HG,new_size__UHLG;
  __UINTEGER_32 lab_type__THLG,sz__ZNBB,a__P3HG,new_size__Q3HG,t__U3HG;
  __UINTEGER_32 a__T3HG,new_size__4HLG,lab_type__3HLG,sz__HQJ,a__X3HG;
  __UINTEGER_32 new_size__Y3HG,t__23HG,a__13HG,new_size__IILG;
  __UINTEGER_32 lab_type__HILG,sz__RRH,a__53HG,new_size__A4HG,t__E4HG;
  __UINTEGER_32 a__D4HG,new_size__SILG,lab_type__RILG,sz__FIC,a__H4HG;
  __UINTEGER_32 new_size__I4HG,t__M4HG,a__L4HG,new_size__2ILG;
  __UINTEGER_32 lab_type__1ILG,sz__0LP,a__P4HG,new_size__Q4HG,t__U4HG;
  __UINTEGER_32 a__T4HG,new_size__GJLG,lab_type__FJLG,sz__QNP,a__X4HG;
  __UINTEGER_32 new_size__Y4HG,t__24HG,a__14HG,new_size__QJLG;
  __UINTEGER_32 lab_type__PJLG,sz__GPP,a__54HG,new_size__A5HG,t__E5HG;
  __UINTEGER_32 a__D5HG,new_size__0JLG,lab_type__ZJLG,sz__NOK,a__H5HG;
  __UINTEGER_32 new_size__I5HG,t__M5HG,a__L5HG,new_size__EKLG;
  __UINTEGER_32 lab_type__DKLG,sz__RXYB,a__P5HG,new_size__Q5HG,t__U5HG;
  __UINTEGER_32 a__T5HG,new_size__OKLG,lab_type__NKLG,sz__E31C,a__X5HG;
  __UINTEGER_32 new_size__Y5HG,t__25HG,a__15HG,new_size__YKLG;
  __UINTEGER_32 lab_type__XKLG,sz__MLK,a__55HG,new_size__AAIG,t__EAIG;
  __UINTEGER_32 a__DAIG,new_size__CLLG,lab_type__BLLG,sz__3BK,a__HAIG;
  __UINTEGER_32 new_size__IAIG,t__MAIG,a__LAIG,new_size__MLLG;
  __UINTEGER_32 lab_type__LLLG,sz__U5L,a__PAIG,new_size__QAIG,t__UAIG;
  __UINTEGER_32 a__TAIG,new_size__WLLG,lab_type__VLLG,sz__FCG,a__LYGG;
  __UINTEGER_32 new_size__E2G,t__N3G,a__RYGG,new_size__AMLG;
  __UINTEGER_32 lab_type__5LLG,sz__34MB,a__XAIG,new_size__YAIG,t__2AIG;
  __UINTEGER_32 a__1AIG,new_size__KMLG,lab_type__JMLG,sz__W2SB,a__5AIG;
  __UINTEGER_32 new_size__ABIG,t__EBIG,a__DBIG,new_size__UMLG;
  __UINTEGER_32 lab_type__TMLG,sz__ZP2B,a__HBIG,new_size__IBIG,t__MBIG;
  __UINTEGER_32 a__LBIG,new_size__4MLG,lab_type__3MLG,sz__VHVB,a__PBIG;
  __UINTEGER_32 new_size__QBIG,t__UBIG,a__TBIG,new_size__INLG;
  __UINTEGER_32 lab_type__HNLG,sz__ILVB,a__XBIG,new_size__YBIG,t__2BIG;
  __UINTEGER_32 a__1BIG,new_size__SNLG,lab_type__RNLG,sz__XP0B,a__5BIG;
  __UINTEGER_32 new_size__ACIG,t__ECIG,a__DCIG,new_size__2NLG;
  __UINTEGER_32 lab_type__1NLG,a__1VIG,new_size__3VIG,new_size2__4VIG;
  __UINTEGER_32 a__5VIG,new_size__AWIG,sz__TNB,a__HCIG,new_size__ICIG;
  __UINTEGER_32 t__MCIG,a__LCIG,new_size__LOLG,lab_type__KOLG,sz__XNJG;
  __UINTEGER_32 a__YNJG,new_size__ZNJG,t__0NJG,a__1NJG,new_size__VOLG;
  __UINTEGER_32 lab_type__UOLG,sz__S5GB,a__QCIG,new_size__RCIG,t__VCIG;
  __UINTEGER_32 a__UCIG,new_size__HPLG,lab_type__GPLG,sz__Y1VB,a__1CIG;
  __UINTEGER_32 new_size__2CIG,t__ADIG,a__5CIG,new_size__RPLG;
  __UINTEGER_32 lab_type__QPLG,sz__FOJG,a__GOJG,new_size__HOJG,t__IOJG;
  __UINTEGER_32 a__JOJG,new_size__1PLG,lab_type__0PLG,sz__POJG,a__QOJG;
  __UINTEGER_32 new_size__ROJG,t__SOJG,a__TOJG,new_size__FQLG;
  __UINTEGER_32 lab_type__EQLG,sz__ZOJG,a__0OJG,new_size__1OJG,t__2OJG;
  __UINTEGER_32 a__3OJG,new_size__SQLG,lab_type__RQLG,sz__AOCD,a__BHHG;
  __UINTEGER_32 new_size__CHHG,t__GHHG,a__FHHG,new_size__2QLG;
  __UINTEGER_32 lab_type__1QLG,sz__0RB,a__JDIG,new_size__KDIG,t__ODIG;
  __UINTEGER_32 a__NDIG,new_size__GRLG,lab_type__FRLG,sz__EWIG,a__DWIG;
  __UINTEGER_32 new_size__FWIG,new_size2__GWIG,a__HWIG,new_size__IWIG;
  __UINTEGER_32 sz__DPJG,a__EPJG,new_size__FPJG,t__GPJG,a__HPJG;
  __UINTEGER_32 new_size__VRLG,lab_type__URLG,sz__LPJG,a__MPJG;
  __UINTEGER_32 new_size__NPJG,t__OPJG,a__PPJG,new_size__5RLG;
  __UINTEGER_32 lab_type__4RLG,sz__HUB,a__T5GG,new_size__U5GG,t__Y5GG;
  __UINTEGER_32 a__X5GG,new_size__JSLG,lab_type__ISLG,sz__YVB,a__RDIG;
  __UINTEGER_32 new_size__SDIG,t__WDIG,a__VDIG,new_size__TSLG;
  __UINTEGER_32 lab_type__SSLG,sz__TPJG,a__UPJG,new_size__VPJG,t__WPJG;
  __UINTEGER_32 a__XPJG,new_size__3SLG,lab_type__2SLG,sz__1PJG,a__2PJG;
  __UINTEGER_32 new_size__3PJG,t__4PJG,a__5PJG,new_size__HTLG;
  __UINTEGER_32 lab_type__GTLG,sz__FQJG,a__GQJG,new_size__HQJG,t__IQJG;
  __UINTEGER_32 a__JQJG,new_size__RTLG,lab_type__QTLG;
  __STRING *Self__W5BB,*Self__3NJG,*new__JL3F,*Self__KWIG,*new__Y12F;
  __STRING *new__ICFD,*Self__LWIG,*Self__PWIG,*Self__TWIG,*Self__3DIG;
  void *txt__1,*fmt_name__5GC,*__tmp__FID,*k__IBCB,*element__FDIG;
  void *i__LOJG,*element__OWAC,*i__5OJG,*__tmp__0B,*__tmp__1H;
  __STRING_CONSTANT *result__UNJG,*Self__SZQ,*Self__NCIG,*Self__FQQ;
  __STRING_CONSTANT *Self__IL3F,*Self__X12F,*Self__GCFD;
  __POSITION pos__FY2F,pos__PY2F,pos__YZ2F,pos__0Z2F,pos__2Z2F;
  __POSITION pos__4Z2F,pos__A02F;
  void *ent__PB,*__tmp__RC,*__tmp__VARD,*__tmp__WARD;
  __STD_FILE *Self__15QD,*result__YPJG,*Self__IGSD;
  __DIRECTORY *result__QPJG,*Self__BQJG;
  void *__tmp__1C,*dir__OB;
  __CHARACTER *arg__OBD,*p__X5BB,*Self__QNJG,*new__SNJG,*path__BU;
  __CHARACTER *Self__4NJG,*new__AOJG,*Self__FYGG,*new__IYGG,*Self__UTLG;
  __CHARACTER *model__VTLG,*Self__ZTLG,*model__0TLG;
  __FAST_ARRAYoSTRINGo *result__SGLG,*Self__0GLG,*result__CCG,*Self__ILR;
  void *result__NBD;
  __CHARACTER ch__TNJG,result__2OLG,result__HQLG,result__TRFG;
  __CHARACTER result__GKFG;
  __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *result__ETH,*Self__SSR;
  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *result__WNBB;
  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__ZC4B;
  __FAST_ARRAYoPROTOTYPEo *result__EQJ,*Self__ZHS;
  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *result__ORH;
  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__ESR;
  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__GBCB;
  __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__4ESB;
  __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *result__CIC,*Self__PSQ;
  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *result__XLP,*Self__GGU;
  __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *result__NNP,*Self__WHU;
  __FAST_ARRAYoITM_TYPE_GENERICo *result__DPP,*Self__2MU;
  __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *result__KOK;
  __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__1US;
  __FAST_ARRAYoITM_TYPE_STYLEo *result__OXYB,*Self__X5CC;
  __HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo *result__B31C;
  __HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo *Self__JRTD;
  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *result__JLK,*Self__5RS;
  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *result__0BK,*Self__LMS;
  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *result__R5L,*Self__LBT;
  __FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *result__04MB,*Self__L05B;
  __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *result__T2SB,*Self__IPBC;
  __FAST_ARRAYoITM_TYPE_MULTIo *result__WP2B,*Self__ZEEC;
  __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *result__SHVB;
  __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *Self__12BC;
  __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *result__FLVB;
  __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__05BC;
  __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *result__UP0B,*Self__AWDC;
  __UINTEGER_8 *Result__5YRF;
  __HASHED_SEToABSTRACT_STRINGo *result__QNB,*Self__NGQ;
  __BOOLEAN __tmp__KV,__tmp__FW,result__FNKB,__tmp__TW,result__XNKB;
  __BOOLEAN __tmp__BX,result__JOKB,__tmp__EZ,result__1OLG,result__YDCB;
  __BOOLEAN result__GQLG,result__ILG,__tmp__GC,__tmp__CC,__tmp__XARD;
  __LINKED_LISToSTRING_CONSTANTo *result__P5GB,*Self__GDIG,*Self__NWAC;
  void *node__RBCB,*node1__QZVB,*node2__RZVB,*__tmp__4CCB,*node__IFSB;
  void **old_buckets__PZVB;
  __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *result__V1VB;
  __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__BMCC;
  void *def__WDCB;
  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__COJG,*Self__KOJG;
  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__MOJG,*Self__UOJG;
  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__WOJG,*Self__4OJG;
  __LINKED_LIST_NODEoSTRING_CONSTANTo *result__3NCD,*Self__52TD;
  __FAST_ARRAYoSLOTo *result__XRB,*Self__RIQ;
  void **Result__F0YC;
  __FAST_ARRAYoTYPE_IDo *result__VVB,*Self__LKQ;
  __LINKED_LISToENTRYo *result__CQJG;
  arg_count  = argc;
  arg_vector = argv;
  parent_numeric__J=NUMERIC__;
  clone_allocation_size__NMB= 0;
  STRING_CONSTANT__->count__4C=((__INTEGER )((0)));
  STRING__->count__04B= 0;
  STRING_CONSTANT__->storage__E5M=((__CHARACTER *)(NULL));
  STRING__->storage__HGQ=NULL;
  nb_page__DVJ= 0;
  MEMORY__->size_and_id__YMB= 0;
  capacity_max__XE3= 0;
  begin_memory__J0H=((__POINTER )(NULL));
  MEMORY__->previous_linear__XMB= 0;
  first_free__EVRB=NULL;
  MEMORY__->next_free__ZMB=NULL;
  MEMORY__->previous_free__0MB=NULL;
  STRING__->capacity__4FQ= 0;
  HASHED_SEToABSTRACT_STRINGo__->buckets__E3P=NULL;
  HASHED_SEToABSTRACT_STRINGo__->capacity__52P= 0;
  HASHED_SEToABSTRACT_STRINGo__->count__F4P= 0;
  list__4I=NULL;
  HASHED_SET_NODEoABSTRACT_STRINGo__->item__Q3P=NULL;
  HASHED_SET_NODEoABSTRACT_STRINGo__->next__23P=NULL;
  string_tmp__QH=create__01( 256);
  ARRAYED_COLLECTIONoSTRINGo__->upper__1DC= 0;
  ARRAYED_COLLECTIONoSTRINGo__->capacity__RLR= 0;
  ARRAYED_COLLECTIONoSTRINGo__->storage__2LR=NULL;
  FAST_ARRAYoSTRINGo__->parent_arrayed_collection__YDC=(*ARRAYED_COLLECTIONoSTRINGo__);
  arg__OBD=NULL;
  str__PBD=NULL;
  new_count__1GLG=((__INTEGER )(arg_count));
  result__SGLG=NULL;
  ptr__TGLG=((__POINTER )(NULL));
  typ_id__UGLG= 0;
  sz__VGLG=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
  if ((sz__VGLG ==  0)) {
    result__SGLG=FAST_ARRAYoSTRINGo__;
  } else {
    typ_id__UGLG=__FAST_ARRAYoSTRINGo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__VGLG);
    if ((typ_id__UGLG == (__INTEGER)(-  1))) {
      a__WGLG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__XGLG=(__UINTEGER_32)((__UINTEGER_32)(sz__VGLG + a__WGLG) & (__UINTEGER_32)(~ a__WGLG));
      ptr_table__3GLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XGLG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__2GLG=((__POINTER )(NULL));
      result__4GLG=((__POINTER *)ptr_table__3GLG)[ 0];
      if ((result__4GLG == (void *)NULL)) {
        result__4GLG=new_lab__RUJ(new_size__XGLG);
        next__2GLG=(void *)((unsigned long)result__4GLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XGLG)));
        ((__POINTER *)next__2GLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__3GLG)[ 0]=next__2GLG;
      } else {
        next__2GLG=((__POINTER *)result__4GLG)[ 0];
        if ((next__2GLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4GLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__XGLG <<  1)) <=  4096)) {
            next__2GLG=(void *)((unsigned long)result__4GLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XGLG)));
          } else {
            next__2GLG=new_lab__RUJ(new_size__XGLG);
          };
          ((__POINTER *)next__2GLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__3GLG)[ 0]=next__2GLG;
        } else {
          ((__POINTER *)result__4GLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__2GLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__4GLG=next__2GLG;
        };
      };
      ptr__TGLG=result__4GLG;
    } else {
      t__YGLG=((__UINTEGER_32 )typ_id__UGLG);
      a__ZGLG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__FHLG=(__UINTEGER_32)((__UINTEGER_32)(sz__VGLG + a__ZGLG) & (__UINTEGER_32)(~ a__ZGLG));
      ptr_table__CHLG=((__POINTER )(&(table_type[(t__YGLG)])));
      lab_type__EHLG=(__UINTEGER_32)(t__YGLG |  1);
      next__BHLG=((__POINTER )(NULL));
      result__DHLG=((__POINTER *)ptr_table__CHLG)[ 0];
      if ((result__DHLG == (void *)NULL)) {
        result__DHLG=new_lab__RUJ(lab_type__EHLG);
        next__BHLG=(void *)((unsigned long)result__DHLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FHLG)));
        ((__POINTER *)next__BHLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__CHLG)[ 0]=next__BHLG;
      } else {
        next__BHLG=((__POINTER *)result__DHLG)[ 0];
        if ((next__BHLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DHLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__FHLG <<  1)) <=  4096)) {
            next__BHLG=(void *)((unsigned long)result__DHLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FHLG)));
          } else {
            next__BHLG=new_lab__RUJ(lab_type__EHLG);
          };
          ((__POINTER *)next__BHLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__CHLG)[ 0]=next__BHLG;
        } else {
          ((__POINTER *)result__DHLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BHLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__DHLG=next__BHLG;
        };
      };
      ptr__TGLG=result__DHLG;
    };
    result__SGLG=((__FAST_ARRAYoSTRINGo *)ptr__TGLG);
    *(result__SGLG) = *(FAST_ARRAYoSTRINGo__);
  };
  Self__0GLG=((__FAST_ARRAYoSTRINGo *)result__SGLG);
  if ((Self__0GLG->parent_arrayed_collection__YDC.capacity__RLR < new_count__1GLG)) {
    Self__0GLG->parent_arrayed_collection__YDC.storage__2LR=create__4UNB(new_count__1GLG);
    Self__0GLG->parent_arrayed_collection__YDC.capacity__RLR=new_count__1GLG;
  };
  Self__0GLG->parent_arrayed_collection__YDC.upper__1DC=(__INTEGER)(-  1);
  result__NBD=result__SGLG;
  Self__UIF= 0;
  limit_up__VIF=(__INTEGER)(((__INTEGER )(arg_count)) -  1);
  while ((Self__UIF <= limit_up__VIF)) {
    arg__OBD=((__CHARACTER *)(arg_vector[(Self__UIF)]));
    str__PBD=create__01(fast_first_index_of__until__HEC(arg__OBD));
    Self__W5BB=((__STRING *)str__PBD);
    p__X5BB=arg__OBD;
    i__Y5BB= 0;
    Self__W5BB->count__04B= 0;
    while ((((__CHARACTER *)p__X5BB)[i__Y5BB] != '\0')) {
      ch__TNJG=((__CHARACTER *)p__X5BB)[i__Y5BB];
      new_capacity__ONJG= 0;
      if ((Self__W5BB->capacity__4FQ <= Self__W5BB->count__04B)) {
        if ((Self__W5BB->capacity__4FQ ==  0)) {
          Self__W5BB->capacity__4FQ= 32;
          Self__W5BB->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__ONJG=(__INTEGER)(Self__W5BB->capacity__4FQ <<  1);
          Self__QNJG=((__CHARACTER *)Self__W5BB->storage__HGQ);
          old_nb_elts__RNJG=Self__W5BB->capacity__4FQ;
          new__SNJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__QNJG),((__UINTEGER_32 )old_nb_elts__RNJG),((__UINTEGER_32 )new_capacity__ONJG)));
          upper__JHLG=(__INTEGER)(new_capacity__ONJG -  1);
          Self__HHLG=old_nb_elts__RNJG;
          while ((Self__HHLG <= upper__JHLG)) {
            new__SNJG[Self__HHLG]='\0';
            Self__HHLG=(__INTEGER)(Self__HHLG +  1);
          };
          Self__W5BB->storage__HGQ=new__SNJG;
          Self__W5BB->capacity__4FQ=new_capacity__ONJG;
        };
      };
      ((__CHARACTER *)Self__W5BB->storage__HGQ)[Self__W5BB->count__04B]=ch__TNJG;
      Self__W5BB->count__04B=(__INTEGER)(Self__W5BB->count__04B +  1);
      i__Y5BB=(__INTEGER)(i__Y5BB +  1);
    };
    add_last__RST(result__NBD,str__PBD);
    Self__UIF=(__INTEGER)(Self__UIF +  1);
  };
  output_name__CI=NULL;
  format_name__DW=NULL;
  is_short_code__RW=FALSE__;
  is_short_private__5W=FALSE__;
  is_short_recursive__DB=FALSE__;
  input_name__ZB=NULL;
  FILE_SYSTEM__->parent_directory__K5C=1;
  string_tmp__03C=create__01( 255);
  ABSTRACT_ENTRY__->is_directory__BC=FALSE__;
  ABSTRACT_ENTRY__->path__2C=NULL;
  ABSTRACT_ENTRY__->link_count__EY2B= 0;
  ABSTRACT_ENTRY__->child__HY2B=NULL;
  ABSTRACT_ENTRY__->name__SKFC=NULL;
  ENTRY__->parent_abstract_entry__LB=(*ABSTRACT_ENTRY__);
  HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->buckets__LIR=NULL;
  HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->capacity__GIR= 0;
  HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->count__GPW= 0;
  result__ETH=NULL;
  ptr__FTH=((__POINTER )(NULL));
  typ_id__KTH= 0;
  sz__HTH=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo));
  if ((sz__HTH ==  0)) {
    result__ETH=HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__;
  } else {
    typ_id__KTH=__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__HTH);
    if ((typ_id__KTH == (__INTEGER)(-  1))) {
      a__H3HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__I3HG=(__UINTEGER_32)((__UINTEGER_32)(sz__HTH + a__H3HG) & (__UINTEGER_32)(~ a__H3HG));
      ptr_table__MHLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__I3HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__LHLG=((__POINTER )(NULL));
      result__NHLG=((__POINTER *)ptr_table__MHLG)[ 0];
      if ((result__NHLG == (void *)NULL)) {
        result__NHLG=new_lab__RUJ(new_size__I3HG);
        next__LHLG=(void *)((unsigned long)result__NHLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I3HG)));
        ((__POINTER *)next__LHLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__MHLG)[ 0]=next__LHLG;
      } else {
        next__LHLG=((__POINTER *)result__NHLG)[ 0];
        if ((next__LHLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NHLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__I3HG <<  1)) <=  4096)) {
            next__LHLG=(void *)((unsigned long)result__NHLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I3HG)));
          } else {
            next__LHLG=new_lab__RUJ(new_size__I3HG);
          };
          ((__POINTER *)next__LHLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__MHLG)[ 0]=next__LHLG;
        } else {
          ((__POINTER *)result__NHLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__LHLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__NHLG=next__LHLG;
        };
      };
      ptr__FTH=result__NHLG;
    } else {
      t__M3HG=((__UINTEGER_32 )typ_id__KTH);
      a__L3HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__UHLG=(__UINTEGER_32)((__UINTEGER_32)(sz__HTH + a__L3HG) & (__UINTEGER_32)(~ a__L3HG));
      ptr_table__RHLG=((__POINTER )(&(table_type[(t__M3HG)])));
      lab_type__THLG=(__UINTEGER_32)(t__M3HG |  1);
      next__QHLG=((__POINTER )(NULL));
      result__SHLG=((__POINTER *)ptr_table__RHLG)[ 0];
      if ((result__SHLG == (void *)NULL)) {
        result__SHLG=new_lab__RUJ(lab_type__THLG);
        next__QHLG=(void *)((unsigned long)result__SHLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHLG)));
        ((__POINTER *)next__QHLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__RHLG)[ 0]=next__QHLG;
      } else {
        next__QHLG=((__POINTER *)result__SHLG)[ 0];
        if ((next__QHLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SHLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__UHLG <<  1)) <=  4096)) {
            next__QHLG=(void *)((unsigned long)result__SHLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHLG)));
          } else {
            next__QHLG=new_lab__RUJ(lab_type__THLG);
          };
          ((__POINTER *)next__QHLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__RHLG)[ 0]=next__QHLG;
        } else {
          ((__POINTER *)result__SHLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__QHLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__SHLG=next__QHLG;
        };
      };
      ptr__FTH=result__SHLG;
    };
    result__ETH=((__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *)ptr__FTH);
    *(result__ETH) = *(HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__);
  };
  Self__SSR=((__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *)result__ETH);
  new_capacity__BPW=prime_number_ceiling__33Z( 193);
  Self__SSR->buckets__LIR=create__KG2(new_capacity__BPW);
  Self__SSR->capacity__GIR=new_capacity__BPW;
  Self__SSR->count__GPW= 0;
  alias__WBF=result__ETH;
  HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->key__XIR=NULL;
  HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->next__DJR=NULL;
  HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->item__MY1=NULL;
  ABSTRACT_DIRECTORY__->parent_entry__MB=ENTRY__;
  ABSTRACT_DIRECTORY__->list__21RE=NULL;
  DIRECTORY__->parent_abstract_directory__NB=(*ABSTRACT_DIRECTORY__);
  ABSTRACT_FILE__->parent_entry__A3B=ENTRY__;
  ABSTRACT_FILE__->cursor__IPMF= 0;
  STD_FILE__->parent_abstract_file__B3B=(*ABSTRACT_FILE__);
  LINKED_COLLECTIONoENTRYo__->upper__HEEF= 0;
  LINKED_LISToENTRYo__->parent_linked_collection__01RE=(*LINKED_COLLECTIONoENTRYo__);
  LINKED_LISToENTRYo__->first_link__PJFF=NULL;
  LINKED_LISToENTRYo__->mem_idx__WJFF= 0;
  LINKED_LISToENTRYo__->mem_lnk__XJFF=NULL;
  LINKED_LISToENTRYo__->last_link__YJFF=NULL;
  string_tmp__PKVE=create__01( 255);
  LINKED_LIST_NODEoENTRYo__->item__0WPF=NULL;
  LINKED_LIST_NODEoENTRYo__->next__KBQF=NULL;
  STD_FILE__->stream__QSVD=((__POINTER )(NULL));
  ITM_OBJECT__->position__REJ=((__POSITION ) 0);
  NAMED__->parent_itm_object__ZH=(*ITM_OBJECT__);
  NAMED__->name__KI=NULL;
  PROTOTYPE__->parent_named__0H=(*NAMED__);
  HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->buckets__ME3B=NULL;
  HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->capacity__HE3B= 0;
  HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->count__MF3B= 0;
  result__WNBB=NULL;
  ptr__XNBB=((__POINTER )(NULL));
  typ_id__2NBB= 0;
  sz__ZNBB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo));
  if ((sz__ZNBB ==  0)) {
    result__WNBB=HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__;
  } else {
    typ_id__2NBB=__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__ZNBB);
    if ((typ_id__2NBB == (__INTEGER)(-  1))) {
      a__P3HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__Q3HG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZNBB + a__P3HG) & (__UINTEGER_32)(~ a__P3HG));
      ptr_table__WHLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Q3HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__VHLG=((__POINTER )(NULL));
      result__XHLG=((__POINTER *)ptr_table__WHLG)[ 0];
      if ((result__XHLG == (void *)NULL)) {
        result__XHLG=new_lab__RUJ(new_size__Q3HG);
        next__VHLG=(void *)((unsigned long)result__XHLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q3HG)));
        ((__POINTER *)next__VHLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__WHLG)[ 0]=next__VHLG;
      } else {
        next__VHLG=((__POINTER *)result__XHLG)[ 0];
        if ((next__VHLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XHLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Q3HG <<  1)) <=  4096)) {
            next__VHLG=(void *)((unsigned long)result__XHLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q3HG)));
          } else {
            next__VHLG=new_lab__RUJ(new_size__Q3HG);
          };
          ((__POINTER *)next__VHLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__WHLG)[ 0]=next__VHLG;
        } else {
          ((__POINTER *)result__XHLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__VHLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__XHLG=next__VHLG;
        };
      };
      ptr__XNBB=result__XHLG;
    } else {
      t__U3HG=((__UINTEGER_32 )typ_id__2NBB);
      a__T3HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__4HLG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZNBB + a__T3HG) & (__UINTEGER_32)(~ a__T3HG));
      ptr_table__1HLG=((__POINTER )(&(table_type[(t__U3HG)])));
      lab_type__3HLG=(__UINTEGER_32)(t__U3HG |  1);
      next__0HLG=((__POINTER )(NULL));
      result__2HLG=((__POINTER *)ptr_table__1HLG)[ 0];
      if ((result__2HLG == (void *)NULL)) {
        result__2HLG=new_lab__RUJ(lab_type__3HLG);
        next__0HLG=(void *)((unsigned long)result__2HLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4HLG)));
        ((__POINTER *)next__0HLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__1HLG)[ 0]=next__0HLG;
      } else {
        next__0HLG=((__POINTER *)result__2HLG)[ 0];
        if ((next__0HLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2HLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4HLG <<  1)) <=  4096)) {
            next__0HLG=(void *)((unsigned long)result__2HLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4HLG)));
          } else {
            next__0HLG=new_lab__RUJ(lab_type__3HLG);
          };
          ((__POINTER *)next__0HLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__1HLG)[ 0]=next__0HLG;
        } else {
          ((__POINTER *)result__2HLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__0HLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__2HLG=next__0HLG;
        };
      };
      ptr__XNBB=result__2HLG;
    };
    result__WNBB=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)ptr__XNBB);
    *(result__WNBB) = *(HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__);
  };
  Self__ZC4B=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)result__WNBB);
  new_capacity__DUFC=prime_number_ceiling__33Z( 193);
  Self__ZC4B->buckets__ME3B=create__3HQC(new_capacity__DUFC);
  Self__ZC4B->capacity__HE3B=new_capacity__DUFC;
  Self__ZC4B->count__MF3B= 0;
  prototype_dico__PWQ=result__WNBB;
  HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->key__YE3B=NULL;
  HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->next__DF3B=NULL;
  PROTOTYPE__->filename__AUG=NULL;
  ARRAYED_COLLECTIONoPROTOTYPEo__->storage__2WR=NULL;
  ARRAYED_COLLECTIONoPROTOTYPEo__->capacity__CIS= 0;
  ARRAYED_COLLECTIONoPROTOTYPEo__->upper__OIS= 0;
  FAST_ARRAYoPROTOTYPEo__->parent_arrayed_collection__VOH=(*ARRAYED_COLLECTIONoPROTOTYPEo__);
  result__EQJ=NULL;
  ptr__FQJ=((__POINTER )(NULL));
  typ_id__KQJ= 0;
  sz__HQJ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoPROTOTYPEo));
  if ((sz__HQJ ==  0)) {
    result__EQJ=FAST_ARRAYoPROTOTYPEo__;
  } else {
    typ_id__KQJ=__FAST_ARRAYoPROTOTYPEo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__HQJ);
    if ((typ_id__KQJ == (__INTEGER)(-  1))) {
      a__X3HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__Y3HG=(__UINTEGER_32)((__UINTEGER_32)(sz__HQJ + a__X3HG) & (__UINTEGER_32)(~ a__X3HG));
      ptr_table__AILG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Y3HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__5HLG=((__POINTER )(NULL));
      result__BILG=((__POINTER *)ptr_table__AILG)[ 0];
      if ((result__BILG == (void *)NULL)) {
        result__BILG=new_lab__RUJ(new_size__Y3HG);
        next__5HLG=(void *)((unsigned long)result__BILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y3HG)));
        ((__POINTER *)next__5HLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__AILG)[ 0]=next__5HLG;
      } else {
        next__5HLG=((__POINTER *)result__BILG)[ 0];
        if ((next__5HLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BILG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Y3HG <<  1)) <=  4096)) {
            next__5HLG=(void *)((unsigned long)result__BILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y3HG)));
          } else {
            next__5HLG=new_lab__RUJ(new_size__Y3HG);
          };
          ((__POINTER *)next__5HLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__AILG)[ 0]=next__5HLG;
        } else {
          ((__POINTER *)result__BILG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5HLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__BILG=next__5HLG;
        };
      };
      ptr__FQJ=result__BILG;
    } else {
      t__23HG=((__UINTEGER_32 )typ_id__KQJ);
      a__13HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__IILG=(__UINTEGER_32)((__UINTEGER_32)(sz__HQJ + a__13HG) & (__UINTEGER_32)(~ a__13HG));
      ptr_table__FILG=((__POINTER )(&(table_type[(t__23HG)])));
      lab_type__HILG=(__UINTEGER_32)(t__23HG |  1);
      next__EILG=((__POINTER )(NULL));
      result__GILG=((__POINTER *)ptr_table__FILG)[ 0];
      if ((result__GILG == (void *)NULL)) {
        result__GILG=new_lab__RUJ(lab_type__HILG);
        next__EILG=(void *)((unsigned long)result__GILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IILG)));
        ((__POINTER *)next__EILG)[ 0]=NULL;
        ((__POINTER *)ptr_table__FILG)[ 0]=next__EILG;
      } else {
        next__EILG=((__POINTER *)result__GILG)[ 0];
        if ((next__EILG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GILG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__IILG <<  1)) <=  4096)) {
            next__EILG=(void *)((unsigned long)result__GILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IILG)));
          } else {
            next__EILG=new_lab__RUJ(lab_type__HILG);
          };
          ((__POINTER *)next__EILG)[ 0]=NULL;
          ((__POINTER *)ptr_table__FILG)[ 0]=next__EILG;
        } else {
          ((__POINTER *)result__GILG)[ 0]=(void *)((unsigned long)((__POINTER *)next__EILG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__GILG=next__EILG;
        };
      };
      ptr__FQJ=result__GILG;
    };
    result__EQJ=((__FAST_ARRAYoPROTOTYPEo *)ptr__FQJ);
    *(result__EQJ) = *(FAST_ARRAYoPROTOTYPEo__);
  };
  Self__ZHS=((__FAST_ARRAYoPROTOTYPEo *)result__EQJ);
  if ((Self__ZHS->parent_arrayed_collection__VOH.capacity__CIS <  512)) {
    Self__ZHS->parent_arrayed_collection__VOH.storage__2WR=create__PWOB( 512);
    Self__ZHS->parent_arrayed_collection__VOH.capacity__CIS= 512;
  };
  Self__ZHS->parent_arrayed_collection__VOH.upper__OIS=(__INTEGER)(-  1);
  prototype_list__WOH=result__EQJ;
  PROTOTYPE__->index__CRG= 0;
  HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->item__P2ED=NULL;
  string_tmp__YWV=create__01( 128);
  PROTOTYPE__->source__Q0B=NULL;
  HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->buckets__JJCC=NULL;
  HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->capacity__FU3B= 0;
  HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->count__L0CC= 0;
  PROTOTYPE__->slot_list__MXQ=NULL;
  object__M0B=NULL;
  source__S0B=NULL;
  position__V0B= 0;
  pos_cur__Y0B= 0;
  pos_line__Z0B= 0;
  pos_col__00B= 0;
  key_comment_default__N1B=NULL;
  is_active_short__L1B=FALSE__;
  output_code__RI=create__01( 4000000);
  short_derive__O1B= 0;
  HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->buckets__MFR=NULL;
  HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->capacity__HFR= 0;
  HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->count__ONW= 0;
  result__ORH=NULL;
  ptr__PRH=((__POINTER )(NULL));
  typ_id__URH= 0;
  sz__RRH=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo));
  if ((sz__RRH ==  0)) {
    result__ORH=HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
  } else {
    typ_id__URH=__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__RRH);
    if ((typ_id__URH == (__INTEGER)(-  1))) {
      a__53HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__A4HG=(__UINTEGER_32)((__UINTEGER_32)(sz__RRH + a__53HG) & (__UINTEGER_32)(~ a__53HG));
      ptr_table__KILG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__A4HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__JILG=((__POINTER )(NULL));
      result__LILG=((__POINTER *)ptr_table__KILG)[ 0];
      if ((result__LILG == (void *)NULL)) {
        result__LILG=new_lab__RUJ(new_size__A4HG);
        next__JILG=(void *)((unsigned long)result__LILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A4HG)));
        ((__POINTER *)next__JILG)[ 0]=NULL;
        ((__POINTER *)ptr_table__KILG)[ 0]=next__JILG;
      } else {
        next__JILG=((__POINTER *)result__LILG)[ 0];
        if ((next__JILG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LILG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__A4HG <<  1)) <=  4096)) {
            next__JILG=(void *)((unsigned long)result__LILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A4HG)));
          } else {
            next__JILG=new_lab__RUJ(new_size__A4HG);
          };
          ((__POINTER *)next__JILG)[ 0]=NULL;
          ((__POINTER *)ptr_table__KILG)[ 0]=next__JILG;
        } else {
          ((__POINTER *)result__LILG)[ 0]=(void *)((unsigned long)((__POINTER *)next__JILG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__LILG=next__JILG;
        };
      };
      ptr__PRH=result__LILG;
    } else {
      t__E4HG=((__UINTEGER_32 )typ_id__URH);
      a__D4HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__SILG=(__UINTEGER_32)((__UINTEGER_32)(sz__RRH + a__D4HG) & (__UINTEGER_32)(~ a__D4HG));
      ptr_table__PILG=((__POINTER )(&(table_type[(t__E4HG)])));
      lab_type__RILG=(__UINTEGER_32)(t__E4HG |  1);
      next__OILG=((__POINTER )(NULL));
      result__QILG=((__POINTER *)ptr_table__PILG)[ 0];
      if ((result__QILG == (void *)NULL)) {
        result__QILG=new_lab__RUJ(lab_type__RILG);
        next__OILG=(void *)((unsigned long)result__QILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SILG)));
        ((__POINTER *)next__OILG)[ 0]=NULL;
        ((__POINTER *)ptr_table__PILG)[ 0]=next__OILG;
      } else {
        next__OILG=((__POINTER *)result__QILG)[ 0];
        if ((next__OILG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QILG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SILG <<  1)) <=  4096)) {
            next__OILG=(void *)((unsigned long)result__QILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SILG)));
          } else {
            next__OILG=new_lab__RUJ(lab_type__RILG);
          };
          ((__POINTER *)next__OILG)[ 0]=NULL;
          ((__POINTER *)ptr_table__PILG)[ 0]=next__OILG;
        } else {
          ((__POINTER *)result__QILG)[ 0]=(void *)((unsigned long)((__POINTER *)next__OILG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__QILG=next__OILG;
        };
      };
      ptr__PRH=result__QILG;
    };
    result__ORH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)ptr__PRH);
    *(result__ORH) = *(HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__);
  };
  Self__ESR=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__ORH);
  new_capacity__JNW=prime_number_ceiling__33Z( 193);
  Self__ESR->buckets__MFR=create__TC2(new_capacity__JNW);
  Self__ESR->capacity__HFR=new_capacity__JNW;
  Self__ESR->count__ONW= 0;
  short_dico__LD=result__ORH;
  HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->key__YFR=NULL;
  HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->next__DGR=NULL;
  token__M1C=create__01( 100);
  HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->item__FV1=NULL;
  LINKED_COLLECTIONoSTRING_CONSTANTo__->upper__F2C= 0;
  LINKED_LISToSTRING_CONSTANTo__->parent_linked_collection__GD=(*LINKED_COLLECTIONoSTRING_CONSTANTo__);
  LINKED_LISToSTRING_CONSTANTo__->mem_idx__2WAC= 0;
  LINKED_LISToSTRING_CONSTANTo__->mem_lnk__4WAC=NULL;
  LINKED_LISToSTRING_CONSTANTo__->first_link__SWAC=NULL;
  LINKED_LIST_NODEoSTRING_CONSTANTo__->next__NQQD=NULL;
  LINKED_LIST_NODEoSTRING_CONSTANTo__->item__P4FD=NULL;
  type_error__0RG= 0;
  msg_err__1RG=create__01( 256);
  begin_position__H0D= 0;
  last_string__NTC=NULL;
  last_len_string__3IN= 0;
  string_tmp2__FBJ=create__01( 256);
  last_integer__ZHN= 0;
  LINKED_LISToSTRING_CONSTANTo__->last_link__1WAC=NULL;
  index_count__YZ= 0;
  HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->buckets__TAQ=NULL;
  HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->capacity__OAQ= 0;
  HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->count__TBQ= 0;
  result__CIC=NULL;
  ptr__DIC=((__POINTER )(NULL));
  typ_id__IIC= 0;
  sz__FIC=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo));
  if ((sz__FIC ==  0)) {
    result__CIC=HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__;
  } else {
    typ_id__IIC=__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__FIC);
    if ((typ_id__IIC == (__INTEGER)(-  1))) {
      a__H4HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__I4HG=(__UINTEGER_32)((__UINTEGER_32)(sz__FIC + a__H4HG) & (__UINTEGER_32)(~ a__H4HG));
      ptr_table__UILG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__I4HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__TILG=((__POINTER )(NULL));
      result__VILG=((__POINTER *)ptr_table__UILG)[ 0];
      if ((result__VILG == (void *)NULL)) {
        result__VILG=new_lab__RUJ(new_size__I4HG);
        next__TILG=(void *)((unsigned long)result__VILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I4HG)));
        ((__POINTER *)next__TILG)[ 0]=NULL;
        ((__POINTER *)ptr_table__UILG)[ 0]=next__TILG;
      } else {
        next__TILG=((__POINTER *)result__VILG)[ 0];
        if ((next__TILG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VILG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__I4HG <<  1)) <=  4096)) {
            next__TILG=(void *)((unsigned long)result__VILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I4HG)));
          } else {
            next__TILG=new_lab__RUJ(new_size__I4HG);
          };
          ((__POINTER *)next__TILG)[ 0]=NULL;
          ((__POINTER *)ptr_table__UILG)[ 0]=next__TILG;
        } else {
          ((__POINTER *)result__VILG)[ 0]=(void *)((unsigned long)((__POINTER *)next__TILG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__VILG=next__TILG;
        };
      };
      ptr__DIC=result__VILG;
    } else {
      t__M4HG=((__UINTEGER_32 )typ_id__IIC);
      a__L4HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__2ILG=(__UINTEGER_32)((__UINTEGER_32)(sz__FIC + a__L4HG) & (__UINTEGER_32)(~ a__L4HG));
      ptr_table__ZILG=((__POINTER )(&(table_type[(t__M4HG)])));
      lab_type__1ILG=(__UINTEGER_32)(t__M4HG |  1);
      next__YILG=((__POINTER )(NULL));
      result__0ILG=((__POINTER *)ptr_table__ZILG)[ 0];
      if ((result__0ILG == (void *)NULL)) {
        result__0ILG=new_lab__RUJ(lab_type__1ILG);
        next__YILG=(void *)((unsigned long)result__0ILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2ILG)));
        ((__POINTER *)next__YILG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ZILG)[ 0]=next__YILG;
      } else {
        next__YILG=((__POINTER *)result__0ILG)[ 0];
        if ((next__YILG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0ILG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__2ILG <<  1)) <=  4096)) {
            next__YILG=(void *)((unsigned long)result__0ILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2ILG)));
          } else {
            next__YILG=new_lab__RUJ(lab_type__1ILG);
          };
          ((__POINTER *)next__YILG)[ 0]=NULL;
          ((__POINTER *)ptr_table__ZILG)[ 0]=next__YILG;
        } else {
          ((__POINTER *)result__0ILG)[ 0]=(void *)((unsigned long)((__POINTER *)next__YILG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__0ILG=next__YILG;
        };
      };
      ptr__DIC=result__0ILG;
    };
    result__CIC=((__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *)ptr__DIC);
    *(result__CIC) = *(HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__);
  };
  Self__PSQ=((__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *)result__CIC);
  new_capacity__VMV=prime_number_ceiling__33Z( 193);
  Self__PSQ->buckets__TAQ=create__RY0(new_capacity__VMV);
  Self__PSQ->capacity__OAQ=new_capacity__VMV;
  Self__PSQ->count__TBQ= 0;
  HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__->key__5AQ=NULL;
  HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__->next__KBQ=NULL;
  ARRAYED_COLLECTIONoSLOTo__->capacity__0IQ= 0;
  FAST_ARRAYoSLOTo__->parent_arrayed_collection__J0=(*ARRAYED_COLLECTIONoSLOTo__);
  ARRAYED_COLLECTIONoTYPE_IDo__->upper__YCQ= 0;
  ARRAYED_COLLECTIONoTYPE_IDo__->capacity__0CQ= 0;
  ARRAYED_COLLECTIONoTYPE_IDo__->storage__WDQ=NULL;
  FAST_ARRAYoTYPE_IDo__->parent_arrayed_collection__I1=(*ARRAYED_COLLECTIONoTYPE_IDo__);
  list_id__K1=NULL;
  directory_list__UB=NULL;
  file_list__WB=NULL;
  current_list__YB=NULL;
  proto_input__AI=NULL;
  ARRAYED_COLLECTIONoSTRING_CONSTANTo__->upper__I5N= 0;
  ARRAYED_COLLECTIONoSTRING_CONSTANTo__->capacity__5XQ= 0;
  ARRAYED_COLLECTIONoSTRING_CONSTANTo__->storage__WDR=NULL;
  FAST_ARRAYoSTRING_CONSTANTo__->parent_arrayed_collection__30B=(*ARRAYED_COLLECTIONoSTRING_CONSTANTo__);
  keyword_generic_list__40B=create_with_capacity__GMD( 2);
  HASHED_SEToSTRING_CONSTANTo__->buckets__3KT=NULL;
  HASHED_SEToSTRING_CONSTANTo__->capacity__PNR= 0;
  HASHED_SEToSTRING_CONSTANTo__->count__UKW= 0;
  short_local__W1B=NULL;
  PROTOTYPE__->type_style__3VC=NULL;
  PROTOTYPE__->export_list__XHE=NULL;
  PROTOTYPE__->import_list__5HE=NULL;
  HASHED_SEToITM_TYPE_SIMPLEo__->buckets__5J4B=NULL;
  HASHED_SEToITM_TYPE_SIMPLEo__->capacity__0J4B= 0;
  HASHED_SEToITM_TYPE_SIMPLEo__->count__5K4B= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->upper__IZT= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->capacity__4CU= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->storage__ZDU=NULL;
  FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__->parent_arrayed_collection__N5O=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__);
  ARRAYED_COLLECTIONoITM_TYPE_MONOo__->upper__Q5T= 0;
  ARRAYED_COLLECTIONoITM_TYPE_MONOo__->capacity__S5T= 0;
  ARRAYED_COLLECTIONoITM_TYPE_MONOo__->storage__OAU=NULL;
  FAST_ARRAYoITM_TYPE_MONOo__->parent_arrayed_collection__GRC=(*ARRAYED_COLLECTIONoITM_TYPE_MONOo__);
  result__XLP=NULL;
  ptr__YLP=((__POINTER )(NULL));
  typ_id__3LP= 0;
  sz__0LP=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo));
  if ((sz__0LP ==  0)) {
    result__XLP=FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__;
  } else {
    typ_id__3LP=__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__0LP);
    if ((typ_id__3LP == (__INTEGER)(-  1))) {
      a__P4HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__Q4HG=(__UINTEGER_32)((__UINTEGER_32)(sz__0LP + a__P4HG) & (__UINTEGER_32)(~ a__P4HG));
      ptr_table__4ILG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Q4HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__3ILG=((__POINTER )(NULL));
      result__5ILG=((__POINTER *)ptr_table__4ILG)[ 0];
      if ((result__5ILG == (void *)NULL)) {
        result__5ILG=new_lab__RUJ(new_size__Q4HG);
        next__3ILG=(void *)((unsigned long)result__5ILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q4HG)));
        ((__POINTER *)next__3ILG)[ 0]=NULL;
        ((__POINTER *)ptr_table__4ILG)[ 0]=next__3ILG;
      } else {
        next__3ILG=((__POINTER *)result__5ILG)[ 0];
        if ((next__3ILG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5ILG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Q4HG <<  1)) <=  4096)) {
            next__3ILG=(void *)((unsigned long)result__5ILG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q4HG)));
          } else {
            next__3ILG=new_lab__RUJ(new_size__Q4HG);
          };
          ((__POINTER *)next__3ILG)[ 0]=NULL;
          ((__POINTER *)ptr_table__4ILG)[ 0]=next__3ILG;
        } else {
          ((__POINTER *)result__5ILG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3ILG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__5ILG=next__3ILG;
        };
      };
      ptr__YLP=result__5ILG;
    } else {
      t__U4HG=((__UINTEGER_32 )typ_id__3LP);
      a__T4HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__GJLG=(__UINTEGER_32)((__UINTEGER_32)(sz__0LP + a__T4HG) & (__UINTEGER_32)(~ a__T4HG));
      ptr_table__DJLG=((__POINTER )(&(table_type[(t__U4HG)])));
      lab_type__FJLG=(__UINTEGER_32)(t__U4HG |  1);
      next__CJLG=((__POINTER )(NULL));
      result__EJLG=((__POINTER *)ptr_table__DJLG)[ 0];
      if ((result__EJLG == (void *)NULL)) {
        result__EJLG=new_lab__RUJ(lab_type__FJLG);
        next__CJLG=(void *)((unsigned long)result__EJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GJLG)));
        ((__POINTER *)next__CJLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__DJLG)[ 0]=next__CJLG;
      } else {
        next__CJLG=((__POINTER *)result__EJLG)[ 0];
        if ((next__CJLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EJLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__GJLG <<  1)) <=  4096)) {
            next__CJLG=(void *)((unsigned long)result__EJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GJLG)));
          } else {
            next__CJLG=new_lab__RUJ(lab_type__FJLG);
          };
          ((__POINTER *)next__CJLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__DJLG)[ 0]=next__CJLG;
        } else {
          ((__POINTER *)result__EJLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CJLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__EJLG=next__CJLG;
        };
      };
      ptr__YLP=result__EJLG;
    };
    result__XLP=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)ptr__YLP);
    *(result__XLP) = *(FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__);
  };
  Self__GGU=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)result__XLP);
  if ((Self__GGU->parent_arrayed_collection__N5O.capacity__4CU <  5)) {
    Self__GGU->parent_arrayed_collection__N5O.storage__ZDU=create__0DOB( 5);
    Self__GGU->parent_arrayed_collection__N5O.capacity__4CU= 5;
  };
  Self__GGU->parent_arrayed_collection__N5O.upper__IZT=(__INTEGER)(-  1);
  free_list__O5O=result__XLP;
  HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->buckets__T0T=NULL;
  HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->capacity__O0T= 0;
  HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->count__CLU= 0;
  result__NNP=NULL;
  ptr__ONP=((__POINTER )(NULL));
  typ_id__TNP= 0;
  sz__QNP=((__UINTEGER_32 )sizeof(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo));
  if ((sz__QNP ==  0)) {
    result__NNP=HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__;
  } else {
    typ_id__TNP=__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__QNP);
    if ((typ_id__TNP == (__INTEGER)(-  1))) {
      a__X4HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__Y4HG=(__UINTEGER_32)((__UINTEGER_32)(sz__QNP + a__X4HG) & (__UINTEGER_32)(~ a__X4HG));
      ptr_table__IJLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Y4HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__HJLG=((__POINTER )(NULL));
      result__JJLG=((__POINTER *)ptr_table__IJLG)[ 0];
      if ((result__JJLG == (void *)NULL)) {
        result__JJLG=new_lab__RUJ(new_size__Y4HG);
        next__HJLG=(void *)((unsigned long)result__JJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y4HG)));
        ((__POINTER *)next__HJLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__IJLG)[ 0]=next__HJLG;
      } else {
        next__HJLG=((__POINTER *)result__JJLG)[ 0];
        if ((next__HJLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JJLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Y4HG <<  1)) <=  4096)) {
            next__HJLG=(void *)((unsigned long)result__JJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y4HG)));
          } else {
            next__HJLG=new_lab__RUJ(new_size__Y4HG);
          };
          ((__POINTER *)next__HJLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__IJLG)[ 0]=next__HJLG;
        } else {
          ((__POINTER *)result__JJLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HJLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__JJLG=next__HJLG;
        };
      };
      ptr__ONP=result__JJLG;
    } else {
      t__24HG=((__UINTEGER_32 )typ_id__TNP);
      a__14HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__QJLG=(__UINTEGER_32)((__UINTEGER_32)(sz__QNP + a__14HG) & (__UINTEGER_32)(~ a__14HG));
      ptr_table__NJLG=((__POINTER )(&(table_type[(t__24HG)])));
      lab_type__PJLG=(__UINTEGER_32)(t__24HG |  1);
      next__MJLG=((__POINTER )(NULL));
      result__OJLG=((__POINTER *)ptr_table__NJLG)[ 0];
      if ((result__OJLG == (void *)NULL)) {
        result__OJLG=new_lab__RUJ(lab_type__PJLG);
        next__MJLG=(void *)((unsigned long)result__OJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QJLG)));
        ((__POINTER *)next__MJLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__NJLG)[ 0]=next__MJLG;
      } else {
        next__MJLG=((__POINTER *)result__OJLG)[ 0];
        if ((next__MJLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OJLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__QJLG <<  1)) <=  4096)) {
            next__MJLG=(void *)((unsigned long)result__OJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QJLG)));
          } else {
            next__MJLG=new_lab__RUJ(lab_type__PJLG);
          };
          ((__POINTER *)next__MJLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__NJLG)[ 0]=next__MJLG;
        } else {
          ((__POINTER *)result__OJLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MJLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__OJLG=next__MJLG;
        };
      };
      ptr__ONP=result__OJLG;
    };
    result__NNP=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)ptr__ONP);
    *(result__NNP) = *(HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__);
  };
  Self__WHU=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)result__NNP);
  new_capacity__1HZ=prime_number_ceiling__33Z( 53);
  Self__WHU->buckets__T0T=create__SP5(new_capacity__1HZ);
  Self__WHU->capacity__O0T=new_capacity__1HZ;
  Self__WHU->count__CLU= 0;
  bucket__TAP=result__NNP;
  ITM_TYPE_SIMPLE__->name__MEK=NULL;
  ITM_TYPE_SELF__->parent_itm_type_simple__KMJ=(*ITM_TYPE_SIMPLE__);
  ITM_TYPE_STYLE__->parent_itm_type_simple__R4N=(*ITM_TYPE_SIMPLE__);
  ITM_TYPE_STYLE__->style__JCP=NULL;
  ITM_TYPE_GENERIC__->parent_itm_type_mono__S4N=(*ITM_TYPE_STYLE__);
  HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__->item__50T=NULL;
  HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__->next__L1T=NULL;
  ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->upper__XBP= 0;
  ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->capacity__FNU= 0;
  ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->storage__QNU=NULL;
  FAST_ARRAYoITM_TYPE_GENERICo__->parent_arrayed_collection__NBP=(*ARRAYED_COLLECTIONoITM_TYPE_GENERICo__);
  result__DPP=NULL;
  ptr__EPP=((__POINTER )(NULL));
  typ_id__JPP= 0;
  sz__GPP=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_GENERICo));
  if ((sz__GPP ==  0)) {
    result__DPP=FAST_ARRAYoITM_TYPE_GENERICo__;
  } else {
    typ_id__JPP=__FAST_ARRAYoITM_TYPE_GENERICo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__GPP);
    if ((typ_id__JPP == (__INTEGER)(-  1))) {
      a__54HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__A5HG=(__UINTEGER_32)((__UINTEGER_32)(sz__GPP + a__54HG) & (__UINTEGER_32)(~ a__54HG));
      ptr_table__SJLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__A5HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__RJLG=((__POINTER )(NULL));
      result__TJLG=((__POINTER *)ptr_table__SJLG)[ 0];
      if ((result__TJLG == (void *)NULL)) {
        result__TJLG=new_lab__RUJ(new_size__A5HG);
        next__RJLG=(void *)((unsigned long)result__TJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A5HG)));
        ((__POINTER *)next__RJLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__SJLG)[ 0]=next__RJLG;
      } else {
        next__RJLG=((__POINTER *)result__TJLG)[ 0];
        if ((next__RJLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TJLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__A5HG <<  1)) <=  4096)) {
            next__RJLG=(void *)((unsigned long)result__TJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A5HG)));
          } else {
            next__RJLG=new_lab__RUJ(new_size__A5HG);
          };
          ((__POINTER *)next__RJLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__SJLG)[ 0]=next__RJLG;
        } else {
          ((__POINTER *)result__TJLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__RJLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__TJLG=next__RJLG;
        };
      };
      ptr__EPP=result__TJLG;
    } else {
      t__E5HG=((__UINTEGER_32 )typ_id__JPP);
      a__D5HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__0JLG=(__UINTEGER_32)((__UINTEGER_32)(sz__GPP + a__D5HG) & (__UINTEGER_32)(~ a__D5HG));
      ptr_table__XJLG=((__POINTER )(&(table_type[(t__E5HG)])));
      lab_type__ZJLG=(__UINTEGER_32)(t__E5HG |  1);
      next__WJLG=((__POINTER )(NULL));
      result__YJLG=((__POINTER *)ptr_table__XJLG)[ 0];
      if ((result__YJLG == (void *)NULL)) {
        result__YJLG=new_lab__RUJ(lab_type__ZJLG);
        next__WJLG=(void *)((unsigned long)result__YJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0JLG)));
        ((__POINTER *)next__WJLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__XJLG)[ 0]=next__WJLG;
      } else {
        next__WJLG=((__POINTER *)result__YJLG)[ 0];
        if ((next__WJLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YJLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__0JLG <<  1)) <=  4096)) {
            next__WJLG=(void *)((unsigned long)result__YJLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0JLG)));
          } else {
            next__WJLG=new_lab__RUJ(lab_type__ZJLG);
          };
          ((__POINTER *)next__WJLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__XJLG)[ 0]=next__WJLG;
        } else {
          ((__POINTER *)result__YJLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__WJLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__YJLG=next__WJLG;
        };
      };
      ptr__EPP=result__YJLG;
    };
    result__DPP=((__FAST_ARRAYoITM_TYPE_GENERICo *)ptr__EPP);
    *(result__DPP) = *(FAST_ARRAYoITM_TYPE_GENERICo__);
  };
  Self__2MU=((__FAST_ARRAYoITM_TYPE_GENERICo *)result__DPP);
  if ((Self__2MU->parent_arrayed_collection__NBP.capacity__FNU <  32)) {
    Self__2MU->parent_arrayed_collection__NBP.storage__QNU=create__A3TB( 32);
    Self__2MU->parent_arrayed_collection__NBP.capacity__FNU= 32;
  };
  Self__2MU->parent_arrayed_collection__NBP.upper__XBP=(__INTEGER)(-  1);
  dico__OBP=result__DPP;
  ITM_TYPE_GENERIC__->list_type__TCP=NULL;
  HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->buckets__RBS=NULL;
  HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->capacity__MBS= 0;
  HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->count__1OS= 0;
  HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->key__3BS=NULL;
  HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->next__ICS=NULL;
  HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->item__QCS=NULL;
  result__KOK=NULL;
  ptr__LOK=((__POINTER )(NULL));
  typ_id__QOK= 0;
  sz__NOK=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo));
  if ((sz__NOK ==  0)) {
    result__KOK=HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
  } else {
    typ_id__QOK=__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__NOK);
    if ((typ_id__QOK == (__INTEGER)(-  1))) {
      a__H5HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__I5HG=(__UINTEGER_32)((__UINTEGER_32)(sz__NOK + a__H5HG) & (__UINTEGER_32)(~ a__H5HG));
      ptr_table__2JLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__I5HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__1JLG=((__POINTER )(NULL));
      result__3JLG=((__POINTER *)ptr_table__2JLG)[ 0];
      if ((result__3JLG == (void *)NULL)) {
        result__3JLG=new_lab__RUJ(new_size__I5HG);
        next__1JLG=(void *)((unsigned long)result__3JLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I5HG)));
        ((__POINTER *)next__1JLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__2JLG)[ 0]=next__1JLG;
      } else {
        next__1JLG=((__POINTER *)result__3JLG)[ 0];
        if ((next__1JLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3JLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__I5HG <<  1)) <=  4096)) {
            next__1JLG=(void *)((unsigned long)result__3JLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__I5HG)));
          } else {
            next__1JLG=new_lab__RUJ(new_size__I5HG);
          };
          ((__POINTER *)next__1JLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__2JLG)[ 0]=next__1JLG;
        } else {
          ((__POINTER *)result__3JLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1JLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__3JLG=next__1JLG;
        };
      };
      ptr__LOK=result__3JLG;
    } else {
      t__M5HG=((__UINTEGER_32 )typ_id__QOK);
      a__L5HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__EKLG=(__UINTEGER_32)((__UINTEGER_32)(sz__NOK + a__L5HG) & (__UINTEGER_32)(~ a__L5HG));
      ptr_table__BKLG=((__POINTER )(&(table_type[(t__M5HG)])));
      lab_type__DKLG=(__UINTEGER_32)(t__M5HG |  1);
      next__AKLG=((__POINTER )(NULL));
      result__CKLG=((__POINTER *)ptr_table__BKLG)[ 0];
      if ((result__CKLG == (void *)NULL)) {
        result__CKLG=new_lab__RUJ(lab_type__DKLG);
        next__AKLG=(void *)((unsigned long)result__CKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EKLG)));
        ((__POINTER *)next__AKLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__BKLG)[ 0]=next__AKLG;
      } else {
        next__AKLG=((__POINTER *)result__CKLG)[ 0];
        if ((next__AKLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CKLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__EKLG <<  1)) <=  4096)) {
            next__AKLG=(void *)((unsigned long)result__CKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EKLG)));
          } else {
            next__AKLG=new_lab__RUJ(lab_type__DKLG);
          };
          ((__POINTER *)next__AKLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__BKLG)[ 0]=next__AKLG;
        } else {
          ((__POINTER *)result__CKLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__AKLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__CKLG=next__AKLG;
        };
      };
      ptr__LOK=result__CKLG;
    };
    result__KOK=((__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *)ptr__LOK);
    *(result__KOK) = *(HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__);
  };
  Self__1US=((__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *)result__KOK);
  new_capacity__1MX=prime_number_ceiling__33Z( 193);
  Self__1US->buckets__RBS=create__SL3(new_capacity__1MX);
  Self__1US->capacity__MBS=new_capacity__1MX;
  Self__1US->count__1OS= 0;
  ITM_TYPE_SELF__->parent_itm_type_simple__KMJ.name__MEK=(&__string_1);
  fast_put__to__ONS(result__KOK,ITM_TYPE_SELF__,(&__string_1));
  dico__YYI=result__KOK;
  type_null__15N=get__QYI((&__string_2));
  ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->upper__LUQB= 0;
  ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->capacity__AADC= 0;
  ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->storage__LADC=NULL;
  FAST_ARRAYoITM_TYPE_STYLEo__->parent_arrayed_collection__BUQB=(*ARRAYED_COLLECTIONoITM_TYPE_STYLEo__);
  result__OXYB=NULL;
  ptr__PXYB=((__POINTER )(NULL));
  typ_id__UXYB= 0;
  sz__RXYB=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_STYLEo));
  if ((sz__RXYB ==  0)) {
    result__OXYB=FAST_ARRAYoITM_TYPE_STYLEo__;
  } else {
    typ_id__UXYB=__FAST_ARRAYoITM_TYPE_STYLEo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__RXYB);
    if ((typ_id__UXYB == (__INTEGER)(-  1))) {
      a__P5HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__Q5HG=(__UINTEGER_32)((__UINTEGER_32)(sz__RXYB + a__P5HG) & (__UINTEGER_32)(~ a__P5HG));
      ptr_table__GKLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Q5HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__FKLG=((__POINTER )(NULL));
      result__HKLG=((__POINTER *)ptr_table__GKLG)[ 0];
      if ((result__HKLG == (void *)NULL)) {
        result__HKLG=new_lab__RUJ(new_size__Q5HG);
        next__FKLG=(void *)((unsigned long)result__HKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q5HG)));
        ((__POINTER *)next__FKLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__GKLG)[ 0]=next__FKLG;
      } else {
        next__FKLG=((__POINTER *)result__HKLG)[ 0];
        if ((next__FKLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HKLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Q5HG <<  1)) <=  4096)) {
            next__FKLG=(void *)((unsigned long)result__HKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q5HG)));
          } else {
            next__FKLG=new_lab__RUJ(new_size__Q5HG);
          };
          ((__POINTER *)next__FKLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__GKLG)[ 0]=next__FKLG;
        } else {
          ((__POINTER *)result__HKLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__FKLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__HKLG=next__FKLG;
        };
      };
      ptr__PXYB=result__HKLG;
    } else {
      t__U5HG=((__UINTEGER_32 )typ_id__UXYB);
      a__T5HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__OKLG=(__UINTEGER_32)((__UINTEGER_32)(sz__RXYB + a__T5HG) & (__UINTEGER_32)(~ a__T5HG));
      ptr_table__LKLG=((__POINTER )(&(table_type[(t__U5HG)])));
      lab_type__NKLG=(__UINTEGER_32)(t__U5HG |  1);
      next__KKLG=((__POINTER )(NULL));
      result__MKLG=((__POINTER *)ptr_table__LKLG)[ 0];
      if ((result__MKLG == (void *)NULL)) {
        result__MKLG=new_lab__RUJ(lab_type__NKLG);
        next__KKLG=(void *)((unsigned long)result__MKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OKLG)));
        ((__POINTER *)next__KKLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__LKLG)[ 0]=next__KKLG;
      } else {
        next__KKLG=((__POINTER *)result__MKLG)[ 0];
        if ((next__KKLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MKLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__OKLG <<  1)) <=  4096)) {
            next__KKLG=(void *)((unsigned long)result__MKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OKLG)));
          } else {
            next__KKLG=new_lab__RUJ(lab_type__NKLG);
          };
          ((__POINTER *)next__KKLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__LKLG)[ 0]=next__KKLG;
        } else {
          ((__POINTER *)result__MKLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__KKLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__MKLG=next__KKLG;
        };
      };
      ptr__PXYB=result__MKLG;
    };
    result__OXYB=((__FAST_ARRAYoITM_TYPE_STYLEo *)ptr__PXYB);
    *(result__OXYB) = *(FAST_ARRAYoITM_TYPE_STYLEo__);
  };
  Self__X5CC=((__FAST_ARRAYoITM_TYPE_STYLEo *)result__OXYB);
  if ((Self__X5CC->parent_arrayed_collection__BUQB.capacity__AADC <  32)) {
    Self__X5CC->parent_arrayed_collection__BUQB.storage__LADC=create__R44C( 32);
    Self__X5CC->parent_arrayed_collection__BUQB.capacity__AADC= 32;
  };
  Self__X5CC->parent_arrayed_collection__BUQB.upper__LUQB=(__INTEGER)(-  1);
  dico__CUQB=result__OXYB;
  HASHED_SET_NODEoITM_TYPE_SIMPLEo__->item__LK4B=NULL;
  HASHED_SET_NODEoITM_TYPE_SIMPLEo__->next__WK4B=NULL;
  output_decl__UNE=create__01( 60000);
  ITM_CODE__->parent_itm_object__P2D=(*ITM_OBJECT__);
  ITM_READ__->parent_itm_code__UHJ=(*ITM_CODE__);
  ITM_CONSTANT__->parent_itm_code__UYF=(*ITM_CODE__);
  ITM_PROTOTYPE__->parent_itm_constant__VYF=(*ITM_CONSTANT__);
  ITM_REAL__->parent_itm_constant__FHN=(*ITM_CONSTANT__);
  ITM_NUMBER__->parent_itm_constant__XHN=(*ITM_CONSTANT__);
  ITM_CHARACTER__->parent_itm_constant__JIN=(*ITM_CONSTANT__);
  ITM_STRING__->parent_itm_code__0IN=(*ITM_CODE__);
  HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo__->buckets__BISD=NULL;
  HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo__->capacity__2HSD= 0;
  HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo__->count__BJSD= 0;
  result__B31C=NULL;
  ptr__C31C=((__POINTER )(NULL));
  typ_id__H31C= 0;
  sz__E31C=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo));
  if ((sz__E31C ==  0)) {
    result__B31C=HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo__;
  } else {
    typ_id__H31C=__HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__E31C);
    if ((typ_id__H31C == (__INTEGER)(-  1))) {
      a__X5HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__Y5HG=(__UINTEGER_32)((__UINTEGER_32)(sz__E31C + a__X5HG) & (__UINTEGER_32)(~ a__X5HG));
      ptr_table__QKLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Y5HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__PKLG=((__POINTER )(NULL));
      result__RKLG=((__POINTER *)ptr_table__QKLG)[ 0];
      if ((result__RKLG == (void *)NULL)) {
        result__RKLG=new_lab__RUJ(new_size__Y5HG);
        next__PKLG=(void *)((unsigned long)result__RKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y5HG)));
        ((__POINTER *)next__PKLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__QKLG)[ 0]=next__PKLG;
      } else {
        next__PKLG=((__POINTER *)result__RKLG)[ 0];
        if ((next__PKLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RKLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Y5HG <<  1)) <=  4096)) {
            next__PKLG=(void *)((unsigned long)result__RKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y5HG)));
          } else {
            next__PKLG=new_lab__RUJ(new_size__Y5HG);
          };
          ((__POINTER *)next__PKLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__QKLG)[ 0]=next__PKLG;
        } else {
          ((__POINTER *)result__RKLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__PKLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__RKLG=next__PKLG;
        };
      };
      ptr__C31C=result__RKLG;
    } else {
      t__25HG=((__UINTEGER_32 )typ_id__H31C);
      a__15HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__YKLG=(__UINTEGER_32)((__UINTEGER_32)(sz__E31C + a__15HG) & (__UINTEGER_32)(~ a__15HG));
      ptr_table__VKLG=((__POINTER )(&(table_type[(t__25HG)])));
      lab_type__XKLG=(__UINTEGER_32)(t__25HG |  1);
      next__UKLG=((__POINTER )(NULL));
      result__WKLG=((__POINTER *)ptr_table__VKLG)[ 0];
      if ((result__WKLG == (void *)NULL)) {
        result__WKLG=new_lab__RUJ(lab_type__XKLG);
        next__UKLG=(void *)((unsigned long)result__WKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YKLG)));
        ((__POINTER *)next__UKLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__VKLG)[ 0]=next__UKLG;
      } else {
        next__UKLG=((__POINTER *)result__WKLG)[ 0];
        if ((next__UKLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WKLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YKLG <<  1)) <=  4096)) {
            next__UKLG=(void *)((unsigned long)result__WKLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YKLG)));
          } else {
            next__UKLG=new_lab__RUJ(lab_type__XKLG);
          };
          ((__POINTER *)next__UKLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__VKLG)[ 0]=next__UKLG;
        } else {
          ((__POINTER *)result__WKLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__UKLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__WKLG=next__UKLG;
        };
      };
      ptr__C31C=result__WKLG;
    };
    result__B31C=((__HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo *)ptr__C31C);
    *(result__B31C) = *(HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo__);
  };
  Self__JRTD=((__HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo *)result__B31C);
  new_capacity__XGXD=prime_number_ceiling__33Z( 193);
  Self__JRTD->buckets__BISD=create__R23D(new_capacity__XGXD);
  Self__JRTD->capacity__2HSD=new_capacity__XGXD;
  Self__JRTD->count__BJSD= 0;
  dico_string__1I5B=result__B31C;
  HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo__->key__NISD=NULL;
  HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo__->next__YISD=NULL;
  last_group__UWF=NULL;
  ITM_LIST__->parent_itm_code__4XE=(*ITM_CODE__);
  old_position__QWI= 0;
  old_pos_cur__SWI= 0;
  old_pos_line__UWI= 0;
  old_pos_col__WWI= 0;
  old_short_derive__YWI= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->upper__OAS= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->capacity__ISS= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->storage__TSS=NULL;
  FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__->parent_arrayed_collection__BXI=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__);
  ARRAYED_COLLECTIONoITM_LOCALo__->upper__T1K= 0;
  ARRAYED_COLLECTIONoITM_LOCALo__->capacity__DUS= 0;
  ARRAYED_COLLECTIONoITM_LOCALo__->storage__OUS=NULL;
  FAST_ARRAYoITM_LOCALo__->parent_arrayed_collection__CAI=(*ARRAYED_COLLECTIONoITM_LOCALo__);
  result__JLK=NULL;
  ptr__KLK=((__POINTER )(NULL));
  typ_id__PLK= 0;
  sz__MLK=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo));
  if ((sz__MLK ==  0)) {
    result__JLK=FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__;
  } else {
    typ_id__PLK=__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__MLK);
    if ((typ_id__PLK == (__INTEGER)(-  1))) {
      a__55HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__AAIG=(__UINTEGER_32)((__UINTEGER_32)(sz__MLK + a__55HG) & (__UINTEGER_32)(~ a__55HG));
      ptr_table__0KLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AAIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__ZKLG=((__POINTER )(NULL));
      result__1KLG=((__POINTER *)ptr_table__0KLG)[ 0];
      if ((result__1KLG == (void *)NULL)) {
        result__1KLG=new_lab__RUJ(new_size__AAIG);
        next__ZKLG=(void *)((unsigned long)result__1KLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AAIG)));
        ((__POINTER *)next__ZKLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__0KLG)[ 0]=next__ZKLG;
      } else {
        next__ZKLG=((__POINTER *)result__1KLG)[ 0];
        if ((next__ZKLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1KLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__AAIG <<  1)) <=  4096)) {
            next__ZKLG=(void *)((unsigned long)result__1KLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AAIG)));
          } else {
            next__ZKLG=new_lab__RUJ(new_size__AAIG);
          };
          ((__POINTER *)next__ZKLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__0KLG)[ 0]=next__ZKLG;
        } else {
          ((__POINTER *)result__1KLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZKLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__1KLG=next__ZKLG;
        };
      };
      ptr__KLK=result__1KLG;
    } else {
      t__EAIG=((__UINTEGER_32 )typ_id__PLK);
      a__DAIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__CLLG=(__UINTEGER_32)((__UINTEGER_32)(sz__MLK + a__DAIG) & (__UINTEGER_32)(~ a__DAIG));
      ptr_table__5KLG=((__POINTER )(&(table_type[(t__EAIG)])));
      lab_type__BLLG=(__UINTEGER_32)(t__EAIG |  1);
      next__4KLG=((__POINTER )(NULL));
      result__ALLG=((__POINTER *)ptr_table__5KLG)[ 0];
      if ((result__ALLG == (void *)NULL)) {
        result__ALLG=new_lab__RUJ(lab_type__BLLG);
        next__4KLG=(void *)((unsigned long)result__ALLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CLLG)));
        ((__POINTER *)next__4KLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__5KLG)[ 0]=next__4KLG;
      } else {
        next__4KLG=((__POINTER *)result__ALLG)[ 0];
        if ((next__4KLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ALLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CLLG <<  1)) <=  4096)) {
            next__4KLG=(void *)((unsigned long)result__ALLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CLLG)));
          } else {
            next__4KLG=new_lab__RUJ(lab_type__BLLG);
          };
          ((__POINTER *)next__4KLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__5KLG)[ 0]=next__4KLG;
        } else {
          ((__POINTER *)result__ALLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__4KLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__ALLG=next__4KLG;
        };
      };
      ptr__KLK=result__ALLG;
    };
    result__JLK=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)ptr__KLK);
    *(result__JLK) = *(FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__);
  };
  Self__5RS=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)result__JLK);
  if ((Self__5RS->parent_arrayed_collection__BXI.capacity__ISS <  5)) {
    Self__5RS->parent_arrayed_collection__BXI.storage__TSS=create__K0MB( 5);
    Self__5RS->parent_arrayed_collection__BXI.capacity__ISS= 5;
  };
  Self__5RS->parent_arrayed_collection__BXI.upper__OAS=(__INTEGER)(-  1);
  free_list__CXI=result__JLK;
  ITM_LOCAL__->parent_itm_object__35H=(*ITM_OBJECT__);
  ITM_LOCAL__->name__W3K=NULL;
  HASHED_SET_NODEoSTRING_CONSTANTo__->item__JLT=NULL;
  HASHED_SET_NODEoSTRING_CONSTANTo__->next__ULT=NULL;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->upper__M1R= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->capacity__5ES= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->storage__1FS=NULL;
  FAST_ARRAYoFAST_ARRAYoITM_CODEoo__->parent_arrayed_collection__4CI=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__);
  ARRAYED_COLLECTIONoITM_CODEo__->upper__D2R= 0;
  ARRAYED_COLLECTIONoITM_CODEo__->capacity__52R= 0;
  ARRAYED_COLLECTIONoITM_CODEo__->storage__K3R=NULL;
  FAST_ARRAYoITM_CODEo__->parent_arrayed_collection__KWF=(*ARRAYED_COLLECTIONoITM_CODEo__);
  result__0BK=NULL;
  ptr__1BK=((__POINTER )(NULL));
  typ_id__ACK= 0;
  sz__3BK=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_CODEoo));
  if ((sz__3BK ==  0)) {
    result__0BK=FAST_ARRAYoFAST_ARRAYoITM_CODEoo__;
  } else {
    typ_id__ACK=__FAST_ARRAYoFAST_ARRAYoITM_CODEoo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__3BK);
    if ((typ_id__ACK == (__INTEGER)(-  1))) {
      a__HAIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__IAIG=(__UINTEGER_32)((__UINTEGER_32)(sz__3BK + a__HAIG) & (__UINTEGER_32)(~ a__HAIG));
      ptr_table__ELLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IAIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__DLLG=((__POINTER )(NULL));
      result__FLLG=((__POINTER *)ptr_table__ELLG)[ 0];
      if ((result__FLLG == (void *)NULL)) {
        result__FLLG=new_lab__RUJ(new_size__IAIG);
        next__DLLG=(void *)((unsigned long)result__FLLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAIG)));
        ((__POINTER *)next__DLLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ELLG)[ 0]=next__DLLG;
      } else {
        next__DLLG=((__POINTER *)result__FLLG)[ 0];
        if ((next__DLLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FLLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__IAIG <<  1)) <=  4096)) {
            next__DLLG=(void *)((unsigned long)result__FLLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAIG)));
          } else {
            next__DLLG=new_lab__RUJ(new_size__IAIG);
          };
          ((__POINTER *)next__DLLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__ELLG)[ 0]=next__DLLG;
        } else {
          ((__POINTER *)result__FLLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__DLLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__FLLG=next__DLLG;
        };
      };
      ptr__1BK=result__FLLG;
    } else {
      t__MAIG=((__UINTEGER_32 )typ_id__ACK);
      a__LAIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__MLLG=(__UINTEGER_32)((__UINTEGER_32)(sz__3BK + a__LAIG) & (__UINTEGER_32)(~ a__LAIG));
      ptr_table__JLLG=((__POINTER )(&(table_type[(t__MAIG)])));
      lab_type__LLLG=(__UINTEGER_32)(t__MAIG |  1);
      next__ILLG=((__POINTER )(NULL));
      result__KLLG=((__POINTER *)ptr_table__JLLG)[ 0];
      if ((result__KLLG == (void *)NULL)) {
        result__KLLG=new_lab__RUJ(lab_type__LLLG);
        next__ILLG=(void *)((unsigned long)result__KLLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MLLG)));
        ((__POINTER *)next__ILLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__JLLG)[ 0]=next__ILLG;
      } else {
        next__ILLG=((__POINTER *)result__KLLG)[ 0];
        if ((next__ILLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KLLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__MLLG <<  1)) <=  4096)) {
            next__ILLG=(void *)((unsigned long)result__KLLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MLLG)));
          } else {
            next__ILLG=new_lab__RUJ(lab_type__LLLG);
          };
          ((__POINTER *)next__ILLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__JLLG)[ 0]=next__ILLG;
        } else {
          ((__POINTER *)result__KLLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ILLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__KLLG=next__ILLG;
        };
      };
      ptr__1BK=result__KLLG;
    };
    result__0BK=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)ptr__1BK);
    *(result__0BK) = *(FAST_ARRAYoFAST_ARRAYoITM_CODEoo__);
  };
  Self__LMS=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)result__0BK);
  if ((Self__LMS->parent_arrayed_collection__4CI.capacity__5ES <  5)) {
    Self__LMS->parent_arrayed_collection__4CI.storage__1FS=create__OFMB( 5);
    Self__LMS->parent_arrayed_collection__4CI.capacity__5ES= 5;
  };
  Self__LMS->parent_arrayed_collection__4CI.upper__M1R=(__INTEGER)(-  1);
  free_list__5CI=result__0BK;
  ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->upper__B5S= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->capacity__UBT= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->storage__5BT=NULL;
  FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__->parent_arrayed_collection__55K=(*ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__);
  result__R5L=NULL;
  ptr__S5L=((__POINTER )(NULL));
  typ_id__X5L= 0;
  sz__U5L=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo));
  if ((sz__U5L ==  0)) {
    result__R5L=FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__;
  } else {
    typ_id__X5L=__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__U5L);
    if ((typ_id__X5L == (__INTEGER)(-  1))) {
      a__PAIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__QAIG=(__UINTEGER_32)((__UINTEGER_32)(sz__U5L + a__PAIG) & (__UINTEGER_32)(~ a__PAIG));
      ptr_table__OLLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QAIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__NLLG=((__POINTER )(NULL));
      result__PLLG=((__POINTER *)ptr_table__OLLG)[ 0];
      if ((result__PLLG == (void *)NULL)) {
        result__PLLG=new_lab__RUJ(new_size__QAIG);
        next__NLLG=(void *)((unsigned long)result__PLLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QAIG)));
        ((__POINTER *)next__NLLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__OLLG)[ 0]=next__NLLG;
      } else {
        next__NLLG=((__POINTER *)result__PLLG)[ 0];
        if ((next__NLLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PLLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__QAIG <<  1)) <=  4096)) {
            next__NLLG=(void *)((unsigned long)result__PLLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QAIG)));
          } else {
            next__NLLG=new_lab__RUJ(new_size__QAIG);
          };
          ((__POINTER *)next__NLLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__OLLG)[ 0]=next__NLLG;
        } else {
          ((__POINTER *)result__PLLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__NLLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__PLLG=next__NLLG;
        };
      };
      ptr__S5L=result__PLLG;
    } else {
      t__UAIG=((__UINTEGER_32 )typ_id__X5L);
      a__TAIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__WLLG=(__UINTEGER_32)((__UINTEGER_32)(sz__U5L + a__TAIG) & (__UINTEGER_32)(~ a__TAIG));
      ptr_table__TLLG=((__POINTER )(&(table_type[(t__UAIG)])));
      lab_type__VLLG=(__UINTEGER_32)(t__UAIG |  1);
      next__SLLG=((__POINTER )(NULL));
      result__ULLG=((__POINTER *)ptr_table__TLLG)[ 0];
      if ((result__ULLG == (void *)NULL)) {
        result__ULLG=new_lab__RUJ(lab_type__VLLG);
        next__SLLG=(void *)((unsigned long)result__ULLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WLLG)));
        ((__POINTER *)next__SLLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__TLLG)[ 0]=next__SLLG;
      } else {
        next__SLLG=((__POINTER *)result__ULLG)[ 0];
        if ((next__SLLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ULLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__WLLG <<  1)) <=  4096)) {
            next__SLLG=(void *)((unsigned long)result__ULLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WLLG)));
          } else {
            next__SLLG=new_lab__RUJ(lab_type__VLLG);
          };
          ((__POINTER *)next__SLLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__TLLG)[ 0]=next__SLLG;
        } else {
          ((__POINTER *)result__ULLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__SLLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__ULLG=next__SLLG;
        };
      };
      ptr__S5L=result__ULLG;
    };
    result__R5L=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)ptr__S5L);
    *(result__R5L) = *(FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__);
  };
  Self__LBT=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)result__R5L);
  if ((Self__LBT->parent_arrayed_collection__55K.capacity__UBT <  5)) {
    Self__LBT->parent_arrayed_collection__55K.storage__5BT=create__4TWB( 5);
    Self__LBT->parent_arrayed_collection__55K.capacity__UBT= 5;
  };
  Self__LBT->parent_arrayed_collection__55K.upper__B5S=(__INTEGER)(-  1);
  free_list__AAL=result__R5L;
  ITM_LIST_IDF__->parent_itm_code__0DJ=(*ITM_CODE__);
  ITM_WRITE__->parent_itm_code__PEJ=(*ITM_CODE__);
  ITM_WRITE_VALUE__->parent_itm_write__QEJ=(*ITM_WRITE__);
  ITM_WRITE_CAST__->parent_itm_write__HFJ=(*ITM_WRITE__);
  ITM_WRITE_CODE__->parent_itm_write__SIJ=(*ITM_WRITE__);
  ITM_READ_ARG2__->parent_itm_read__DLJ=(*ITM_READ__);
  ITM_BINARY__->parent_itm_code__XLJ=(*ITM_CODE__);
  ITM_READ_ARG1__->parent_itm_read__TGL=(*ITM_READ__);
  ITM_OLD__->parent_itm_code__RUM=(*ITM_CODE__);
  ITM_EXTERN__->parent_itm_code__SDN=(*ITM_CODE__);
  ITM_EXTERNAL_TYPE__->parent_itm_extern__TDN=(*ITM_EXTERN__);
  ITM_EXTERNAL__->parent_itm_extern__VMN=(*ITM_EXTERN__);
  ITM_READ_ARGS__->parent_itm_read__B2N=(*ITM_READ__);
  result__CCG=NULL;
  ptr__DCG=((__POINTER )(NULL));
  typ_id__ICG= 0;
  sz__FCG=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
  if ((sz__FCG ==  0)) {
    result__CCG=FAST_ARRAYoSTRINGo__;
  } else {
    typ_id__ICG=__FAST_ARRAYoSTRINGo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__FCG);
    if ((typ_id__ICG == (__INTEGER)(-  1))) {
      a__LYGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__E2G=(__UINTEGER_32)((__UINTEGER_32)(sz__FCG + a__LYGG) & (__UINTEGER_32)(~ a__LYGG));
      ptr_table__YLLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__E2G / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__XLLG=((__POINTER )(NULL));
      result__ZLLG=((__POINTER *)ptr_table__YLLG)[ 0];
      if ((result__ZLLG == (void *)NULL)) {
        result__ZLLG=new_lab__RUJ(new_size__E2G);
        next__XLLG=(void *)((unsigned long)result__ZLLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E2G)));
        ((__POINTER *)next__XLLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__YLLG)[ 0]=next__XLLG;
      } else {
        next__XLLG=((__POINTER *)result__ZLLG)[ 0];
        if ((next__XLLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZLLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__E2G <<  1)) <=  4096)) {
            next__XLLG=(void *)((unsigned long)result__ZLLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E2G)));
          } else {
            next__XLLG=new_lab__RUJ(new_size__E2G);
          };
          ((__POINTER *)next__XLLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__YLLG)[ 0]=next__XLLG;
        } else {
          ((__POINTER *)result__ZLLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__XLLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__ZLLG=next__XLLG;
        };
      };
      ptr__DCG=result__ZLLG;
    } else {
      t__N3G=((__UINTEGER_32 )typ_id__ICG);
      a__RYGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__AMLG=(__UINTEGER_32)((__UINTEGER_32)(sz__FCG + a__RYGG) & (__UINTEGER_32)(~ a__RYGG));
      ptr_table__3LLG=((__POINTER )(&(table_type[(t__N3G)])));
      lab_type__5LLG=(__UINTEGER_32)(t__N3G |  1);
      next__2LLG=((__POINTER )(NULL));
      result__4LLG=((__POINTER *)ptr_table__3LLG)[ 0];
      if ((result__4LLG == (void *)NULL)) {
        result__4LLG=new_lab__RUJ(lab_type__5LLG);
        next__2LLG=(void *)((unsigned long)result__4LLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AMLG)));
        ((__POINTER *)next__2LLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__3LLG)[ 0]=next__2LLG;
      } else {
        next__2LLG=((__POINTER *)result__4LLG)[ 0];
        if ((next__2LLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4LLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__AMLG <<  1)) <=  4096)) {
            next__2LLG=(void *)((unsigned long)result__4LLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AMLG)));
          } else {
            next__2LLG=new_lab__RUJ(lab_type__5LLG);
          };
          ((__POINTER *)next__2LLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__3LLG)[ 0]=next__2LLG;
        } else {
          ((__POINTER *)result__4LLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__2LLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__4LLG=next__2LLG;
        };
      };
      ptr__DCG=result__4LLG;
    };
    result__CCG=((__FAST_ARRAYoSTRINGo *)ptr__DCG);
    *(result__CCG) = *(FAST_ARRAYoSTRINGo__);
  };
  Self__ILR=((__FAST_ARRAYoSTRINGo *)result__CCG);
  if ((Self__ILR->parent_arrayed_collection__YDC.capacity__RLR <  5)) {
    Self__ILR->parent_arrayed_collection__YDC.storage__2LR=create__4UNB( 5);
    Self__ILR->parent_arrayed_collection__YDC.capacity__RLR= 5;
  };
  Self__ILR->parent_arrayed_collection__YDC.upper__1DC=(__INTEGER)(-  1);
  free__C0O=result__CCG;
  ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo__->upper__RO4B= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo__->capacity__U05B= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo__->storage__505B=NULL;
  FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo__->parent_arrayed_collection__L03=(*ARRAYED_COLLECTIONoFAST_ARRAYoExpanded_POSITIONoo__);
  ARRAYED_COLLECTIONoExpanded_POSITIONo__->storage__WD5B=NULL;
  ARRAYED_COLLECTIONoExpanded_POSITIONo__->upper__V15B= 0;
  ARRAYED_COLLECTIONoExpanded_POSITIONo__->capacity__B25B= 0;
  FAST_ARRAYoExpanded_POSITIONo__->parent_arrayed_collection__HAJ=(*ARRAYED_COLLECTIONoExpanded_POSITIONo__);
  result__04MB=NULL;
  ptr__14MB=((__POINTER )(NULL));
  typ_id__A5MB= 0;
  sz__34MB=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo));
  if ((sz__34MB ==  0)) {
    result__04MB=FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo__;
  } else {
    typ_id__A5MB=__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__34MB);
    if ((typ_id__A5MB == (__INTEGER)(-  1))) {
      a__XAIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__YAIG=(__UINTEGER_32)((__UINTEGER_32)(sz__34MB + a__XAIG) & (__UINTEGER_32)(~ a__XAIG));
      ptr_table__CMLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YAIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__BMLG=((__POINTER )(NULL));
      result__DMLG=((__POINTER *)ptr_table__CMLG)[ 0];
      if ((result__DMLG == (void *)NULL)) {
        result__DMLG=new_lab__RUJ(new_size__YAIG);
        next__BMLG=(void *)((unsigned long)result__DMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAIG)));
        ((__POINTER *)next__BMLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__CMLG)[ 0]=next__BMLG;
      } else {
        next__BMLG=((__POINTER *)result__DMLG)[ 0];
        if ((next__BMLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DMLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YAIG <<  1)) <=  4096)) {
            next__BMLG=(void *)((unsigned long)result__DMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAIG)));
          } else {
            next__BMLG=new_lab__RUJ(new_size__YAIG);
          };
          ((__POINTER *)next__BMLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__CMLG)[ 0]=next__BMLG;
        } else {
          ((__POINTER *)result__DMLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BMLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__DMLG=next__BMLG;
        };
      };
      ptr__14MB=result__DMLG;
    } else {
      t__2AIG=((__UINTEGER_32 )typ_id__A5MB);
      a__1AIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__KMLG=(__UINTEGER_32)((__UINTEGER_32)(sz__34MB + a__1AIG) & (__UINTEGER_32)(~ a__1AIG));
      ptr_table__HMLG=((__POINTER )(&(table_type[(t__2AIG)])));
      lab_type__JMLG=(__UINTEGER_32)(t__2AIG |  1);
      next__GMLG=((__POINTER )(NULL));
      result__IMLG=((__POINTER *)ptr_table__HMLG)[ 0];
      if ((result__IMLG == (void *)NULL)) {
        result__IMLG=new_lab__RUJ(lab_type__JMLG);
        next__GMLG=(void *)((unsigned long)result__IMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KMLG)));
        ((__POINTER *)next__GMLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__HMLG)[ 0]=next__GMLG;
      } else {
        next__GMLG=((__POINTER *)result__IMLG)[ 0];
        if ((next__GMLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IMLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KMLG <<  1)) <=  4096)) {
            next__GMLG=(void *)((unsigned long)result__IMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KMLG)));
          } else {
            next__GMLG=new_lab__RUJ(lab_type__JMLG);
          };
          ((__POINTER *)next__GMLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__HMLG)[ 0]=next__GMLG;
        } else {
          ((__POINTER *)result__IMLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__GMLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__IMLG=next__GMLG;
        };
      };
      ptr__14MB=result__IMLG;
    };
    result__04MB=((__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *)ptr__14MB);
    *(result__04MB) = *(FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo__);
  };
  Self__L05B=((__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *)result__04MB);
  if ((Self__L05B->parent_arrayed_collection__L03.capacity__U05B <  5)) {
    Self__L05B->parent_arrayed_collection__L03.storage__505B=create__FR2C( 5);
    Self__L05B->parent_arrayed_collection__L03.capacity__U05B= 5;
  };
  Self__L05B->parent_arrayed_collection__L03.upper__RO4B=(__INTEGER)(-  1);
  free_list__M03=result__04MB;
  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->buckets__Y55B=NULL;
  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->capacity__T55B= 0;
  HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->count__ESBC= 0;
  result__T2SB=NULL;
  ptr__U2SB=((__POINTER )(NULL));
  typ_id__Z2SB= 0;
  sz__W2SB=((__UINTEGER_32 )sizeof(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo));
  if ((sz__W2SB ==  0)) {
    result__T2SB=HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
  } else {
    typ_id__Z2SB=__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__W2SB);
    if ((typ_id__Z2SB == (__INTEGER)(-  1))) {
      a__5AIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__ABIG=(__UINTEGER_32)((__UINTEGER_32)(sz__W2SB + a__5AIG) & (__UINTEGER_32)(~ a__5AIG));
      ptr_table__MMLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ABIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__LMLG=((__POINTER )(NULL));
      result__NMLG=((__POINTER *)ptr_table__MMLG)[ 0];
      if ((result__NMLG == (void *)NULL)) {
        result__NMLG=new_lab__RUJ(new_size__ABIG);
        next__LMLG=(void *)((unsigned long)result__NMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ABIG)));
        ((__POINTER *)next__LMLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__MMLG)[ 0]=next__LMLG;
      } else {
        next__LMLG=((__POINTER *)result__NMLG)[ 0];
        if ((next__LMLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NMLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ABIG <<  1)) <=  4096)) {
            next__LMLG=(void *)((unsigned long)result__NMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ABIG)));
          } else {
            next__LMLG=new_lab__RUJ(new_size__ABIG);
          };
          ((__POINTER *)next__LMLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__MMLG)[ 0]=next__LMLG;
        } else {
          ((__POINTER *)result__NMLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__LMLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__NMLG=next__LMLG;
        };
      };
      ptr__U2SB=result__NMLG;
    } else {
      t__EBIG=((__UINTEGER_32 )typ_id__Z2SB);
      a__DBIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__UMLG=(__UINTEGER_32)((__UINTEGER_32)(sz__W2SB + a__DBIG) & (__UINTEGER_32)(~ a__DBIG));
      ptr_table__RMLG=((__POINTER )(&(table_type[(t__EBIG)])));
      lab_type__TMLG=(__UINTEGER_32)(t__EBIG |  1);
      next__QMLG=((__POINTER )(NULL));
      result__SMLG=((__POINTER *)ptr_table__RMLG)[ 0];
      if ((result__SMLG == (void *)NULL)) {
        result__SMLG=new_lab__RUJ(lab_type__TMLG);
        next__QMLG=(void *)((unsigned long)result__SMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UMLG)));
        ((__POINTER *)next__QMLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__RMLG)[ 0]=next__QMLG;
      } else {
        next__QMLG=((__POINTER *)result__SMLG)[ 0];
        if ((next__QMLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SMLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__UMLG <<  1)) <=  4096)) {
            next__QMLG=(void *)((unsigned long)result__SMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UMLG)));
          } else {
            next__QMLG=new_lab__RUJ(lab_type__TMLG);
          };
          ((__POINTER *)next__QMLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__RMLG)[ 0]=next__QMLG;
        } else {
          ((__POINTER *)result__SMLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__QMLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__SMLG=next__QMLG;
        };
      };
      ptr__U2SB=result__SMLG;
    };
    result__T2SB=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)ptr__U2SB);
    *(result__T2SB) = *(HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__);
  };
  Self__IPBC=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)result__T2SB);
  new_capacity__WHKC=prime_number_ceiling__33Z( 53);
  Self__IPBC->buckets__Y55B=create__T3UC(new_capacity__WHKC);
  Self__IPBC->capacity__T55B=new_capacity__WHKC;
  Self__IPBC->count__ESBC= 0;
  bucket__GQIB=result__T2SB;
  HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->item__EAAC=NULL;
  HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->next__QAAC=NULL;
  ITM_RESULT__->parent_itm_code__F1EB=(*ITM_CODE__);
  type_void__XYF=get__QYI((&__string_3));
  ITM_ARGUMENT__->parent_itm_code__YDN=(*ITM_OBJECT__);
  ITM_ARG__->parent_itm_argument__Q4EB=(*ITM_ARGUMENT__);
  ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->upper__WJ2B= 0;
  ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->capacity__CFEC= 0;
  ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->storage__NFEC=NULL;
  FAST_ARRAYoITM_TYPE_MULTIo__->parent_arrayed_collection__MJ2B=(*ARRAYED_COLLECTIONoITM_TYPE_MULTIo__);
  result__WP2B=NULL;
  ptr__XP2B=((__POINTER )(NULL));
  typ_id__2P2B= 0;
  sz__ZP2B=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_MULTIo));
  if ((sz__ZP2B ==  0)) {
    result__WP2B=FAST_ARRAYoITM_TYPE_MULTIo__;
  } else {
    typ_id__2P2B=__FAST_ARRAYoITM_TYPE_MULTIo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__ZP2B);
    if ((typ_id__2P2B == (__INTEGER)(-  1))) {
      a__HBIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__IBIG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZP2B + a__HBIG) & (__UINTEGER_32)(~ a__HBIG));
      ptr_table__WMLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IBIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__VMLG=((__POINTER )(NULL));
      result__XMLG=((__POINTER *)ptr_table__WMLG)[ 0];
      if ((result__XMLG == (void *)NULL)) {
        result__XMLG=new_lab__RUJ(new_size__IBIG);
        next__VMLG=(void *)((unsigned long)result__XMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IBIG)));
        ((__POINTER *)next__VMLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__WMLG)[ 0]=next__VMLG;
      } else {
        next__VMLG=((__POINTER *)result__XMLG)[ 0];
        if ((next__VMLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XMLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__IBIG <<  1)) <=  4096)) {
            next__VMLG=(void *)((unsigned long)result__XMLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IBIG)));
          } else {
            next__VMLG=new_lab__RUJ(new_size__IBIG);
          };
          ((__POINTER *)next__VMLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__WMLG)[ 0]=next__VMLG;
        } else {
          ((__POINTER *)result__XMLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__VMLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__XMLG=next__VMLG;
        };
      };
      ptr__XP2B=result__XMLG;
    } else {
      t__MBIG=((__UINTEGER_32 )typ_id__2P2B);
      a__LBIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__4MLG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZP2B + a__LBIG) & (__UINTEGER_32)(~ a__LBIG));
      ptr_table__1MLG=((__POINTER )(&(table_type[(t__MBIG)])));
      lab_type__3MLG=(__UINTEGER_32)(t__MBIG |  1);
      next__0MLG=((__POINTER )(NULL));
      result__2MLG=((__POINTER *)ptr_table__1MLG)[ 0];
      if ((result__2MLG == (void *)NULL)) {
        result__2MLG=new_lab__RUJ(lab_type__3MLG);
        next__0MLG=(void *)((unsigned long)result__2MLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4MLG)));
        ((__POINTER *)next__0MLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__1MLG)[ 0]=next__0MLG;
      } else {
        next__0MLG=((__POINTER *)result__2MLG)[ 0];
        if ((next__0MLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2MLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4MLG <<  1)) <=  4096)) {
            next__0MLG=(void *)((unsigned long)result__2MLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4MLG)));
          } else {
            next__0MLG=new_lab__RUJ(lab_type__3MLG);
          };
          ((__POINTER *)next__0MLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__1MLG)[ 0]=next__0MLG;
        } else {
          ((__POINTER *)result__2MLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__0MLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__2MLG=next__0MLG;
        };
      };
      ptr__XP2B=result__2MLG;
    };
    result__WP2B=((__FAST_ARRAYoITM_TYPE_MULTIo *)ptr__XP2B);
    *(result__WP2B) = *(FAST_ARRAYoITM_TYPE_MULTIo__);
  };
  Self__ZEEC=((__FAST_ARRAYoITM_TYPE_MULTIo *)result__WP2B);
  if ((Self__ZEEC->parent_arrayed_collection__MJ2B.capacity__CFEC <  32)) {
    Self__ZEEC->parent_arrayed_collection__MJ2B.storage__NFEC=create__2T5C( 32);
    Self__ZEEC->parent_arrayed_collection__MJ2B.capacity__CFEC= 32;
  };
  Self__ZEEC->parent_arrayed_collection__MJ2B.upper__WJ2B=(__INTEGER)(-  1);
  dico__NJ2B=result__WP2B;
  ITM_TYPE_MULTI__->list_type__AK2B=NULL;
  ITM_ARGS__->parent_itm_argument__IHZB=(*ITM_ARGUMENT__);
  ITM_ARGS__->name__OEEC=NULL;
  ITM_EXTERNAL_TYPE__->is_persistant__NON=FALSE__;
  PROTOTYPE__->default_value__NPE=NULL;
  PROTOTYPE__->type_c__IRE=NULL;
  HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->buckets__QRAC=NULL;
  HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->capacity__LRAC= 0;
  HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->count__Y4BC= 0;
  result__SHVB=NULL;
  ptr__THVB=((__POINTER )(NULL));
  typ_id__YHVB= 0;
  sz__VHVB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo));
  if ((sz__VHVB ==  0)) {
    result__SHVB=HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__;
  } else {
    typ_id__YHVB=__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__VHVB);
    if ((typ_id__YHVB == (__INTEGER)(-  1))) {
      a__PBIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__QBIG=(__UINTEGER_32)((__UINTEGER_32)(sz__VHVB + a__PBIG) & (__UINTEGER_32)(~ a__PBIG));
      ptr_table__ANLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QBIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__5MLG=((__POINTER )(NULL));
      result__BNLG=((__POINTER *)ptr_table__ANLG)[ 0];
      if ((result__BNLG == (void *)NULL)) {
        result__BNLG=new_lab__RUJ(new_size__QBIG);
        next__5MLG=(void *)((unsigned long)result__BNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QBIG)));
        ((__POINTER *)next__5MLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ANLG)[ 0]=next__5MLG;
      } else {
        next__5MLG=((__POINTER *)result__BNLG)[ 0];
        if ((next__5MLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BNLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__QBIG <<  1)) <=  4096)) {
            next__5MLG=(void *)((unsigned long)result__BNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QBIG)));
          } else {
            next__5MLG=new_lab__RUJ(new_size__QBIG);
          };
          ((__POINTER *)next__5MLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__ANLG)[ 0]=next__5MLG;
        } else {
          ((__POINTER *)result__BNLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5MLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__BNLG=next__5MLG;
        };
      };
      ptr__THVB=result__BNLG;
    } else {
      t__UBIG=((__UINTEGER_32 )typ_id__YHVB);
      a__TBIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__INLG=(__UINTEGER_32)((__UINTEGER_32)(sz__VHVB + a__TBIG) & (__UINTEGER_32)(~ a__TBIG));
      ptr_table__FNLG=((__POINTER )(&(table_type[(t__UBIG)])));
      lab_type__HNLG=(__UINTEGER_32)(t__UBIG |  1);
      next__ENLG=((__POINTER )(NULL));
      result__GNLG=((__POINTER *)ptr_table__FNLG)[ 0];
      if ((result__GNLG == (void *)NULL)) {
        result__GNLG=new_lab__RUJ(lab_type__HNLG);
        next__ENLG=(void *)((unsigned long)result__GNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__INLG)));
        ((__POINTER *)next__ENLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__FNLG)[ 0]=next__ENLG;
      } else {
        next__ENLG=((__POINTER *)result__GNLG)[ 0];
        if ((next__ENLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GNLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__INLG <<  1)) <=  4096)) {
            next__ENLG=(void *)((unsigned long)result__GNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__INLG)));
          } else {
            next__ENLG=new_lab__RUJ(lab_type__HNLG);
          };
          ((__POINTER *)next__ENLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__FNLG)[ 0]=next__ENLG;
        } else {
          ((__POINTER *)result__GNLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ENLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__GNLG=next__ENLG;
        };
      };
      ptr__THVB=result__GNLG;
    };
    result__SHVB=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)ptr__THVB);
    *(result__SHVB) = *(HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__);
  };
  Self__12BC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)result__SHVB);
  new_capacity__DZKC=prime_number_ceiling__33Z( 193);
  Self__12BC->buckets__QRAC=create__LRVC(new_capacity__DZKC);
  Self__12BC->capacity__LRAC=new_capacity__DZKC;
  Self__12BC->count__Y4BC= 0;
  bucket_name__D3KB=result__SHVB;
  HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->key__2RAC=NULL;
  HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->next__HSAC=NULL;
  HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->item__PSAC=NULL;
  SECTION___->name__FQ5B=NULL;
  last_section__2TC=NULL;
  PROTOTYPE__->last_slot__UUC=NULL;
  ITM_SLOT__->id_section__4UC=NULL;
  HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->buckets__WTAC=NULL;
  HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->capacity__RTAC= 0;
  HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->count__SBCC= 0;
  result__FLVB=NULL;
  ptr__GLVB=((__POINTER )(NULL));
  typ_id__LLVB= 0;
  sz__ILVB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo));
  if ((sz__ILVB ==  0)) {
    result__FLVB=HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
  } else {
    typ_id__LLVB=__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__ILVB);
    if ((typ_id__LLVB == (__INTEGER)(-  1))) {
      a__XBIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__YBIG=(__UINTEGER_32)((__UINTEGER_32)(sz__ILVB + a__XBIG) & (__UINTEGER_32)(~ a__XBIG));
      ptr_table__KNLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YBIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__JNLG=((__POINTER )(NULL));
      result__LNLG=((__POINTER *)ptr_table__KNLG)[ 0];
      if ((result__LNLG == (void *)NULL)) {
        result__LNLG=new_lab__RUJ(new_size__YBIG);
        next__JNLG=(void *)((unsigned long)result__LNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YBIG)));
        ((__POINTER *)next__JNLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__KNLG)[ 0]=next__JNLG;
      } else {
        next__JNLG=((__POINTER *)result__LNLG)[ 0];
        if ((next__JNLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LNLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YBIG <<  1)) <=  4096)) {
            next__JNLG=(void *)((unsigned long)result__LNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YBIG)));
          } else {
            next__JNLG=new_lab__RUJ(new_size__YBIG);
          };
          ((__POINTER *)next__JNLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__KNLG)[ 0]=next__JNLG;
        } else {
          ((__POINTER *)result__LNLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__JNLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__LNLG=next__JNLG;
        };
      };
      ptr__GLVB=result__LNLG;
    } else {
      t__2BIG=((__UINTEGER_32 )typ_id__LLVB);
      a__1BIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__SNLG=(__UINTEGER_32)((__UINTEGER_32)(sz__ILVB + a__1BIG) & (__UINTEGER_32)(~ a__1BIG));
      ptr_table__PNLG=((__POINTER )(&(table_type[(t__2BIG)])));
      lab_type__RNLG=(__UINTEGER_32)(t__2BIG |  1);
      next__ONLG=((__POINTER )(NULL));
      result__QNLG=((__POINTER *)ptr_table__PNLG)[ 0];
      if ((result__QNLG == (void *)NULL)) {
        result__QNLG=new_lab__RUJ(lab_type__RNLG);
        next__ONLG=(void *)((unsigned long)result__QNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SNLG)));
        ((__POINTER *)next__ONLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__PNLG)[ 0]=next__ONLG;
      } else {
        next__ONLG=((__POINTER *)result__QNLG)[ 0];
        if ((next__ONLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QNLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SNLG <<  1)) <=  4096)) {
            next__ONLG=(void *)((unsigned long)result__QNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SNLG)));
          } else {
            next__ONLG=new_lab__RUJ(lab_type__RNLG);
          };
          ((__POINTER *)next__ONLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__PNLG)[ 0]=next__ONLG;
        } else {
          ((__POINTER *)result__QNLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ONLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__QNLG=next__ONLG;
        };
      };
      ptr__GLVB=result__QNLG;
    };
    result__FLVB=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)ptr__GLVB);
    *(result__FLVB) = *(HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__);
  };
  Self__05BC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)result__FLVB);
  new_capacity__42KC=prime_number_ceiling__33Z( 193);
  Self__05BC->buckets__WTAC=create__OWVC(new_capacity__42KC);
  Self__05BC->capacity__RTAC=new_capacity__42KC;
  Self__05BC->count__SBCC= 0;
  bucket_list__MBLB=result__FLVB;
  HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->key__CUAC=NULL;
  HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->next__NUAC=NULL;
  HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->item__VUAC=NULL;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->upper__CXCC= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->capacity__MHDC= 0;
  ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->storage__IIDC=NULL;
  FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__->parent_arrayed_collection__YMVB=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__);
  ARRAYED_COLLECTIONoITM_ARGUMENTo__->upper__XCCC= 0;
  ARRAYED_COLLECTIONoITM_ARGUMENTo__->capacity__ZCCC= 0;
  ARRAYED_COLLECTIONoITM_ARGUMENTo__->storage__VDCC=NULL;
  FAST_ARRAYoITM_ARGUMENTo__->parent_arrayed_collection__ECLB=(*ARRAYED_COLLECTIONoITM_ARGUMENTo__);
  result__UP0B=NULL;
  ptr__VP0B=((__POINTER )(NULL));
  typ_id__0P0B= 0;
  sz__XP0B=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo));
  if ((sz__XP0B ==  0)) {
    result__UP0B=FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__;
  } else {
    typ_id__0P0B=__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__XP0B);
    if ((typ_id__0P0B == (__INTEGER)(-  1))) {
      a__5BIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__ACIG=(__UINTEGER_32)((__UINTEGER_32)(sz__XP0B + a__5BIG) & (__UINTEGER_32)(~ a__5BIG));
      ptr_table__UNLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ACIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__TNLG=((__POINTER )(NULL));
      result__VNLG=((__POINTER *)ptr_table__UNLG)[ 0];
      if ((result__VNLG == (void *)NULL)) {
        result__VNLG=new_lab__RUJ(new_size__ACIG);
        next__TNLG=(void *)((unsigned long)result__VNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACIG)));
        ((__POINTER *)next__TNLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__UNLG)[ 0]=next__TNLG;
      } else {
        next__TNLG=((__POINTER *)result__VNLG)[ 0];
        if ((next__TNLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VNLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ACIG <<  1)) <=  4096)) {
            next__TNLG=(void *)((unsigned long)result__VNLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACIG)));
          } else {
            next__TNLG=new_lab__RUJ(new_size__ACIG);
          };
          ((__POINTER *)next__TNLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__UNLG)[ 0]=next__TNLG;
        } else {
          ((__POINTER *)result__VNLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__TNLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__VNLG=next__TNLG;
        };
      };
      ptr__VP0B=result__VNLG;
    } else {
      t__ECIG=((__UINTEGER_32 )typ_id__0P0B);
      a__DCIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__2NLG=(__UINTEGER_32)((__UINTEGER_32)(sz__XP0B + a__DCIG) & (__UINTEGER_32)(~ a__DCIG));
      ptr_table__ZNLG=((__POINTER )(&(table_type[(t__ECIG)])));
      lab_type__1NLG=(__UINTEGER_32)(t__ECIG |  1);
      next__YNLG=((__POINTER )(NULL));
      result__0NLG=((__POINTER *)ptr_table__ZNLG)[ 0];
      if ((result__0NLG == (void *)NULL)) {
        result__0NLG=new_lab__RUJ(lab_type__1NLG);
        next__YNLG=(void *)((unsigned long)result__0NLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2NLG)));
        ((__POINTER *)next__YNLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ZNLG)[ 0]=next__YNLG;
      } else {
        next__YNLG=((__POINTER *)result__0NLG)[ 0];
        if ((next__YNLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0NLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__2NLG <<  1)) <=  4096)) {
            next__YNLG=(void *)((unsigned long)result__0NLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2NLG)));
          } else {
            next__YNLG=new_lab__RUJ(lab_type__1NLG);
          };
          ((__POINTER *)next__YNLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__ZNLG)[ 0]=next__YNLG;
        } else {
          ((__POINTER *)result__0NLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__YNLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__0NLG=next__YNLG;
        };
      };
      ptr__VP0B=result__0NLG;
    };
    result__UP0B=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)ptr__VP0B);
    *(result__UP0B) = *(FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__);
  };
  Self__AWDC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)result__UP0B);
  if ((Self__AWDC->parent_arrayed_collection__YMVB.capacity__MHDC <  5)) {
    Self__AWDC->parent_arrayed_collection__YMVB.storage__IIDC=create__AJ5C( 5);
    Self__AWDC->parent_arrayed_collection__YMVB.capacity__MHDC= 5;
  };
  Self__AWDC->parent_arrayed_collection__YMVB.upper__CXCC=(__INTEGER)(-  1);
  free_list__ZMVB=result__UP0B;
  ITM_SLOT__->parent_named__TUC=(*NAMED__);
  last_slot__ZDLB=NULL;
  ITM_LDOTS__->parent_itm_constant__JXF=(*ITM_CODE__);
  HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->key__VJCC=NULL;
  HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->next__AKCC=NULL;
  HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->item__IKCC=NULL;
  PROTOTYPE__->first_slot__CXVB=NULL;
  result__0VIG=((__POINTER )(NULL));
  a__1VIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__3VIG=(__UINTEGER_32)((__UINTEGER_32)( 2048 + a__1VIG) & (__UINTEGER_32)(~ a__1VIG));
  new_size2__4VIG=(__UINTEGER_32)(new_size__3VIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__4VIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__5VIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__AWIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4VIG + a__5VIG) & (__UINTEGER_32)(~ a__5VIG));
    ptr_table__4NLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AWIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__3NLG=((__POINTER )(NULL));
    result__5NLG=((__POINTER *)ptr_table__4NLG)[ 0];
    if ((result__5NLG == (void *)NULL)) {
      result__5NLG=new_lab__RUJ(new_size__AWIG);
      next__3NLG=(void *)((unsigned long)result__5NLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AWIG)));
      ((__POINTER *)next__3NLG)[ 0]=NULL;
      ((__POINTER *)ptr_table__4NLG)[ 0]=next__3NLG;
    } else {
      next__3NLG=((__POINTER *)result__5NLG)[ 0];
      if ((next__3NLG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5NLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__AWIG <<  1)) <=  4096)) {
          next__3NLG=(void *)((unsigned long)result__5NLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AWIG)));
        } else {
          next__3NLG=new_lab__RUJ(new_size__AWIG);
        };
        ((__POINTER *)next__3NLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__4NLG)[ 0]=next__3NLG;
      } else {
        ((__POINTER *)result__5NLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3NLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__5NLG=next__3NLG;
      };
    };
    ((__POINTER *)result__5NLG)[ 0]=((__POINTER ) 3);
    result__0VIG=(void *)((unsigned long)result__5NLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__0VIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__3VIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__5YRF=((__UINTEGER_8 *)result__0VIG);
  Self__NRSF= 2047;
  while ((Self__NRSF >=  0)) {
    Result__5YRF[Self__NRSF]= 0;
    Self__NRSF=(__INTEGER)(Self__NRSF -  1);
  };
  tmp_buffer__MQMF=Result__5YRF;
  txt__1=NULL;
  create__01( 255);
  result__QNB=NULL;
  ptr__RNB=((__POINTER )(NULL));
  typ_id__WNB= 0;
  sz__TNB=((__UINTEGER_32 )sizeof(__HASHED_SEToABSTRACT_STRINGo));
  if ((sz__TNB ==  0)) {
    result__QNB=HASHED_SEToABSTRACT_STRINGo__;
  } else {
    typ_id__WNB=__HASHED_SEToABSTRACT_STRINGo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__TNB);
    if ((typ_id__WNB == (__INTEGER)(-  1))) {
      a__HCIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__ICIG=(__UINTEGER_32)((__UINTEGER_32)(sz__TNB + a__HCIG) & (__UINTEGER_32)(~ a__HCIG));
      ptr_table__DOLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ICIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__COLG=((__POINTER )(NULL));
      result__EOLG=((__POINTER *)ptr_table__DOLG)[ 0];
      if ((result__EOLG == (void *)NULL)) {
        result__EOLG=new_lab__RUJ(new_size__ICIG);
        next__COLG=(void *)((unsigned long)result__EOLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ICIG)));
        ((__POINTER *)next__COLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__DOLG)[ 0]=next__COLG;
      } else {
        next__COLG=((__POINTER *)result__EOLG)[ 0];
        if ((next__COLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EOLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ICIG <<  1)) <=  4096)) {
            next__COLG=(void *)((unsigned long)result__EOLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ICIG)));
          } else {
            next__COLG=new_lab__RUJ(new_size__ICIG);
          };
          ((__POINTER *)next__COLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__DOLG)[ 0]=next__COLG;
        } else {
          ((__POINTER *)result__EOLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__COLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__EOLG=next__COLG;
        };
      };
      ptr__RNB=result__EOLG;
    } else {
      t__MCIG=((__UINTEGER_32 )typ_id__WNB);
      a__LCIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__LOLG=(__UINTEGER_32)((__UINTEGER_32)(sz__TNB + a__LCIG) & (__UINTEGER_32)(~ a__LCIG));
      ptr_table__IOLG=((__POINTER )(&(table_type[(t__MCIG)])));
      lab_type__KOLG=(__UINTEGER_32)(t__MCIG |  1);
      next__HOLG=((__POINTER )(NULL));
      result__JOLG=((__POINTER *)ptr_table__IOLG)[ 0];
      if ((result__JOLG == (void *)NULL)) {
        result__JOLG=new_lab__RUJ(lab_type__KOLG);
        next__HOLG=(void *)((unsigned long)result__JOLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LOLG)));
        ((__POINTER *)next__HOLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__IOLG)[ 0]=next__HOLG;
      } else {
        next__HOLG=((__POINTER *)result__JOLG)[ 0];
        if ((next__HOLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JOLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LOLG <<  1)) <=  4096)) {
            next__HOLG=(void *)((unsigned long)result__JOLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LOLG)));
          } else {
            next__HOLG=new_lab__RUJ(lab_type__KOLG);
          };
          ((__POINTER *)next__HOLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__IOLG)[ 0]=next__HOLG;
        } else {
          ((__POINTER *)result__JOLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HOLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__JOLG=next__HOLG;
        };
      };
      ptr__RNB=result__JOLG;
    };
    result__QNB=((__HASHED_SEToABSTRACT_STRINGo *)ptr__RNB);
    *(result__QNB) = *(HASHED_SEToABSTRACT_STRINGo__);
  };
  Self__NGQ=((__HASHED_SEToABSTRACT_STRINGo *)result__QNB);
  new_capacity__K2U=prime_number_ceiling__33Z( 53);
  Self__NGQ->buckets__E3P=create__HJ0(new_capacity__K2U);
  Self__NGQ->capacity__52P=new_capacity__K2U;
  Self__NGQ->count__F4P= 0;
  list__4I=result__QNB;
  add__O2P(result__QNB,(&__string_4));
  add__O2P(list__4I,(&__string_5));
  add__O2P(list__4I,(&__string_6));
  add__O2P(list__4I,(&__string_7));
  add__O2P(list__4I,(&__string_8));
  add__O2P(list__4I,(&__string_9));
  add__O2P(list__4I,(&__string_10));
  add__O2P(list__4I,(&__string_11));
  add__O2P(list__4I,(&__string_12));
  add__O2P(list__4I,(&__string_13));
  add__O2P(list__4I,(&__string_14));
  add__O2P(list__4I,(&__string_15));
  add__O2P(list__4I,(&__string_16));
  add__O2P(list__4I,(&__string_17));
  add__O2P(list__4I,(&__string_18));
  add__O2P(list__4I,(&__string_19));
  add__O2P(list__4I,(&__string_20));
  add__O2P(list__4I,(&__string_21));
  add__O2P(list__4I,(&__string_22));
  add__O2P(list__4I,(&__string_23));
  add__O2P(list__4I,(&__string_24));
  add__O2P(list__4I,(&__string_25));
  add__O2P(list__4I,(&__string_26));
  add__O2P(list__4I,(&__string_27));
  add__O2P(list__4I,(&__string_28));
  add__O2P(list__4I,(&__string_29));
  add__O2P(list__4I,(&__string_30));
  add__O2P(list__4I,(&__string_31));
  add__O2P(list__4I,(&__string_32));
  add__O2P(list__4I,(&__string_33));
  add__O2P(list__4I,(&__string_34));
  add__O2P(list__4I,(&__string_35));
  add__O2P(list__4I,(&__string_36));
  add__O2P(list__4I,(&__string_37));
  add__O2P(list__4I,(&__string_38));
  add__O2P(list__4I,(&__string_39));
  add__O2P(list__4I,(&__string_40));
  add__O2P(list__4I,(&__string_41));
  add__O2P(list__4I,(&__string_42));
  add__O2P(list__4I,(&__string_1));
  add__O2P(list__4I,(&__string_43));
  add__O2P(list__4I,(&__string_44));
  add__O2P(list__4I,(&__string_45));
  add__O2P(list__4I,(&__string_46));
  add__O2P(list__4I,(&__string_47));
  add__O2P(list__4I,(&__string_48));
  add__O2P(list__4I,(&__string_49));
  add__O2P(list__4I,(&__string_50));
  add__O2P(list__4I,(&__string_51));
  add__O2P(list__4I,(&__string_52));
  add__O2P(list__4I,(&__string_53));
  add__O2P(list__4I,(&__string_54));
  add__O2P(list__4I,(&__string_2));
  add__O2P(list__4I,(&__string_3));
  add__O2P(list__4I,(&__string_55));
  add__O2P(list__4I,(&__string_56));
  add__O2P(list__4I,(&__string_57));
  add__O2P(list__4I,(&__string_58));
  add__O2P(list__4I,(&__string_59));
  add__O2P(list__4I,(&__string_60));
  add__O2P(list__4I,(&__string_61));
  add__O2P(list__4I,(&__string_62));
  add__O2P(list__4I,(&__string_63));
  add__O2P(list__4I,(&__string_64));
  add__O2P(list__4I,(&__string_65));
  add__O2P(list__4I,(&__string_66));
  add__O2P(list__4I,(&__string_67));
  add__O2P(list__4I,(&__string_68));
  add__O2P(list__4I,(&__string_69));
  add__O2P(list__4I,(&__string_70));
  add__O2P(list__4I,(&__string_71));
  add__O2P(list__4I,(&__string_72));
  add__O2P(list__4I,(&__string_73));
  add__O2P(list__4I,(&__string_74));
  add__O2P(list__4I,(&__string_75));
  add__O2P(list__4I,(&__string_76));
  add__O2P(list__4I,(&__string_77));
  add__O2P(list__4I,(&__string_78));
  add__O2P(list__4I,(&__string_79));
  add__O2P(list__4I,(&__string_80));
  add__O2P(list__4I,(&__string_81));
  add__O2P(list__4I,(&__string_82));
  add__O2P(list__4I,(&__string_83));
  add__O2P(list__4I,(&__string_84));
  add__O2P(list__4I,(&__string_85));
  add__O2P(list__4I,(&__string_86));
  add__O2P(list__4I,(&__string_87));
  add__O2P(list__4I,(&__string_88));
  add__O2P(list__4I,(&__string_89));
  add__O2P(list__4I,(&__string_90));
  add__O2P(list__4I,(&__string_91));
  add__O2P(list__4I,(&__string_92));
  add__O2P(list__4I,(&__string_93));
  add__O2P(list__4I,(&__string_94));
  add__O2P(list__4I,(&__string_95));
  add__O2P(list__4I,(&__string_96));
  add__O2P(list__4I,(&__string_97));
  add__O2P(list__4I,(&__string_98));
  add__O2P(list__4I,(&__string_99));
  add__O2P(list__4I,(&__string_100));
  add__O2P(list__4I,(&__string_101));
  add__O2P(list__4I,(&__string_67));
  add__O2P(list__4I,(&__string_102));
  add__O2P(list__4I,(&__string_103));
  add__O2P(list__4I,(&__string_104));
  add__O2P(list__4I,(&__string_105));
  add__O2P(list__4I,(&__string_62));
  add__O2P(list__4I,(&__string_106));
  add__O2P(list__4I,(&__string_63));
  add__O2P(list__4I,(&__string_107));
  add__O2P(list__4I,(&__string_108));
  add__O2P(list__4I,(&__string_109));
  add__O2P(list__4I,(&__string_110));
  add__O2P(list__4I,(&__string_111));
  add__O2P(list__4I,(&__string_112));
  operator_to_name__15((&__string_16));
  operator_to_name__15((&__string_17));
  cmd__4T=NULL;
  path__BU=NULL;
  j__5T= 1;
  while ((j__5T <= ((__FAST_ARRAYoSTRINGo *)result__NBD)->parent_arrayed_collection__YDC.upper__1DC)) {
    cmd__4T=((void **)((__FAST_ARRAYoSTRINGo *)result__NBD)->parent_arrayed_collection__YDC.storage__2LR)[j__5T];
    if ((((__CHARACTER *)((__STRING *)cmd__4T)->storage__HGQ)[ 0] == '-')) {
      if ((((__CHARACTER *)((__STRING *)cmd__4T)->storage__HGQ)[ 1] == 'o')) {
        j__5T=(__INTEGER)(j__5T +  1);
        if ((j__5T > (__INTEGER)(((__FAST_ARRAYoSTRINGo *)result__NBD)->parent_arrayed_collection__YDC.upper__1DC +  1))) {
          print__CCD((&__string_113));
          exit(( 1));
        };
        output_name__CI=get__TPB(((void **)((__FAST_ARRAYoSTRINGo *)result__NBD)->parent_arrayed_collection__YDC.storage__2LR)[j__5T]);
        __tmp__KV=TRUE__;
      } else {
        __tmp__KV=FALSE__;
      };
      if (__tmp__KV) {
        __tmp__FW=TRUE__;
      } else {
        result__FNKB=(((__CHARACTER *)((__STRING *)cmd__4T)->storage__HGQ)[ 1] == 'f');
        if (result__FNKB) {
          j__5T=(__INTEGER)(j__5T +  1);
          if ((j__5T > (__INTEGER)(((__FAST_ARRAYoSTRINGo *)result__NBD)->parent_arrayed_collection__YDC.upper__1DC +  1))) {
            print__CCD((&__string_113));
            exit(( 1));
          };
          format_name__DW=get__TPB(((void **)((__FAST_ARRAYoSTRINGo *)result__NBD)->parent_arrayed_collection__YDC.storage__2LR)[j__5T]);
        };
        __tmp__FW=result__FNKB;
      };
      if (__tmp__FW) {
        __tmp__TW=TRUE__;
      } else {
        result__XNKB=(((__CHARACTER *)((__STRING *)cmd__4T)->storage__HGQ)[ 1] == 'c');
        if (result__XNKB) {
          is_short_code__RW=TRUE__;
        };
        __tmp__TW=result__XNKB;
      };
      if (__tmp__TW) {
        __tmp__BX=TRUE__;
      } else {
        result__JOKB=(((__CHARACTER *)((__STRING *)cmd__4T)->storage__HGQ)[ 1] == 'p');
        if (result__JOKB) {
          is_short_private__5W=TRUE__;
        };
        __tmp__BX=result__JOKB;
      };
      if ((! __tmp__BX)) {
        if ((((__CHARACTER *)((__STRING *)cmd__4T)->storage__HGQ)[ 1] == 'r')) {
          is_short_recursive__DB=TRUE__;
        } else {
          print__CCD((&__string_113));
          exit(( 1));
        };
      };
    } else {
      if (((void *)input_name__ZB != (void *)NULL)) {
        print__CCD((&__string_113));
        exit(( 1));
      };
      copy__5GQ(string_tmp__QH,((void **)((__FAST_ARRAYoSTRINGo *)result__NBD)->parent_arrayed_collection__YDC.storage__2LR)[j__5T]);
      input_name__ZB=get__TPB(string_tmp__QH);
    };
    j__5T=(__INTEGER)(j__5T +  1);
  };
  if (((void *)input_name__ZB == (void *)NULL)) {
    print__CCD((&__string_113));
    exit(( 1));
  };
  if (((void *)format_name__DW != (void *)NULL)) {
    path__BU=((__CHARACTER *)(LISAAC_DIRECTORY));
    __tmp__YY=fast_first_index_of__until__HEC(path__BU);
    result__UNJG=NULL;
    ptr__VNJG=((__POINTER )(NULL));
    typ_id__WNJG= 0;
    sz__XNJG=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
    if ((sz__XNJG ==  0)) {
      result__UNJG=STRING_CONSTANT__;
    } else {
      typ_id__WNJG=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__XNJG);
      if ((typ_id__WNJG == (__INTEGER)(-  1))) {
        a__YNJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__ZNJG=(__UINTEGER_32)((__UINTEGER_32)(sz__XNJG + a__YNJG) & (__UINTEGER_32)(~ a__YNJG));
        ptr_table__NOLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZNJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__MOLG=((__POINTER )(NULL));
        result__OOLG=((__POINTER *)ptr_table__NOLG)[ 0];
        if ((result__OOLG == (void *)NULL)) {
          result__OOLG=new_lab__RUJ(new_size__ZNJG);
          next__MOLG=(void *)((unsigned long)result__OOLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZNJG)));
          ((__POINTER *)next__MOLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__NOLG)[ 0]=next__MOLG;
        } else {
          next__MOLG=((__POINTER *)result__OOLG)[ 0];
          if ((next__MOLG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OOLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ZNJG <<  1)) <=  4096)) {
              next__MOLG=(void *)((unsigned long)result__OOLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZNJG)));
            } else {
              next__MOLG=new_lab__RUJ(new_size__ZNJG);
            };
            ((__POINTER *)next__MOLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__NOLG)[ 0]=next__MOLG;
          } else {
            ((__POINTER *)result__OOLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MOLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__OOLG=next__MOLG;
          };
        };
        ptr__VNJG=result__OOLG;
      } else {
        t__0NJG=((__UINTEGER_32 )typ_id__WNJG);
        a__1NJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__VOLG=(__UINTEGER_32)((__UINTEGER_32)(sz__XNJG + a__1NJG) & (__UINTEGER_32)(~ a__1NJG));
        ptr_table__SOLG=((__POINTER )(&(table_type[(t__0NJG)])));
        lab_type__UOLG=(__UINTEGER_32)(t__0NJG |  1);
        next__ROLG=((__POINTER )(NULL));
        result__TOLG=((__POINTER *)ptr_table__SOLG)[ 0];
        if ((result__TOLG == (void *)NULL)) {
          result__TOLG=new_lab__RUJ(lab_type__UOLG);
          next__ROLG=(void *)((unsigned long)result__TOLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VOLG)));
          ((__POINTER *)next__ROLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__SOLG)[ 0]=next__ROLG;
        } else {
          next__ROLG=((__POINTER *)result__TOLG)[ 0];
          if ((next__ROLG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TOLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VOLG <<  1)) <=  4096)) {
              next__ROLG=(void *)((unsigned long)result__TOLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VOLG)));
            } else {
              next__ROLG=new_lab__RUJ(lab_type__UOLG);
            };
            ((__POINTER *)next__ROLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__SOLG)[ 0]=next__ROLG;
          } else {
            ((__POINTER *)result__TOLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ROLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__TOLG=next__ROLG;
          };
        };
        ptr__VNJG=result__TOLG;
      };
      result__UNJG=((__STRING_CONSTANT *)ptr__VNJG);
      *(result__UNJG) = *(STRING_CONSTANT__);
    };
    Self__SZQ=((__STRING_CONSTANT *)result__UNJG);
    Self__SZQ->storage__E5M=path__BU;
    Self__SZQ->count__4C=__tmp__YY;
    copy__5GQ(string_tmp__QH,result__UNJG);
    Self__NCIG=((__STRING_CONSTANT *)result__UNJG);
    if ((((__CHARACTER *)Self__NCIG->storage__E5M)[(__INTEGER)(Self__NCIG->count__4C -  1)] != '/')) {
      Self__FQQ=((__STRING_CONSTANT *)result__UNJG);
      __tmp__EZ=(((__CHARACTER *)Self__FQQ->storage__E5M)[(__INTEGER)(Self__FQQ->count__4C -  1)] != '\\');
    } else {
      __tmp__EZ=FALSE__;
    };
    if (__tmp__EZ) {
      Self__3NJG=((__STRING *)string_tmp__QH);
      new_capacity__2NJG= 0;
      if ((Self__3NJG->capacity__4FQ <= Self__3NJG->count__04B)) {
        if ((Self__3NJG->capacity__4FQ ==  0)) {
          Self__3NJG->capacity__4FQ= 32;
          Self__3NJG->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__2NJG=(__INTEGER)(Self__3NJG->capacity__4FQ <<  1);
          Self__4NJG=((__CHARACTER *)Self__3NJG->storage__HGQ);
          old_nb_elts__5NJG=Self__3NJG->capacity__4FQ;
          new__AOJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__4NJG),((__UINTEGER_32 )old_nb_elts__5NJG),((__UINTEGER_32 )new_capacity__2NJG)));
          upper__ZOLG=(__INTEGER)(new_capacity__2NJG -  1);
          Self__XOLG=old_nb_elts__5NJG;
          while ((Self__XOLG <= upper__ZOLG)) {
            new__AOJG[Self__XOLG]='\0';
            Self__XOLG=(__INTEGER)(Self__XOLG +  1);
          };
          Self__3NJG->storage__HGQ=new__AOJG;
          Self__3NJG->capacity__4FQ=new_capacity__2NJG;
        };
      };
      ((__CHARACTER *)Self__3NJG->storage__HGQ)[Self__3NJG->count__04B]='/';
      Self__3NJG->count__04B=(__INTEGER)(Self__3NJG->count__04B +  1);
    };
    append__CRQ(string_tmp__QH,(&__string_114));
    append__CRQ(string_tmp__QH,format_name__DW);
    append__CRQ(string_tmp__QH,(&__string_115));
    fmt_name__5GC=get__TPB(string_tmp__QH);
    if (FILE_SYSTEM__->parent_directory__K5C==0) {
    } else {
      parent_directory__U3C();
    };
    if (((void *)get__0PEF(fmt_name__5GC) == (void *)NULL)) {
      put_string__55F((&__string_116));
      put_string__55F(fmt_name__5GC);
      put_string__55F((&__string_117));
      exit(( 1));
    };
    object__M0B=create__name__generic_count__2ZB(fmt_name__5GC,(&__string_86));
    source__S0B=((__PROTOTYPE *)object__M0B)->source__Q0B;
    position__V0B= 1;
    pos_cur__Y0B= 1;
    pos_line__Z0B= 1;
    pos_col__00B= 0;
    while_do__QLF:
    {
      result__1OLG=FALSE__;
      if ((! read_space__MMD())) {
        result__1OLG=FALSE__;
      } else {
        result__2OLG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__2OLG=((__CHARACTER )(( 0)));
        } else {
          result__2OLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__2OLG == '-')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__1OLG=TRUE__;
        };
      };
      if (result__1OLG) {
        if ((! read_identifier__EBL())) {
          pos__FY2F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_118));
          put_position__ATG(pos__FY2F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        result__P5GB=NULL;
        ptr__Q5GB=((__POINTER )(NULL));
        typ_id__V5GB= 0;
        sz__S5GB=((__UINTEGER_32 )sizeof(__LINKED_LISToSTRING_CONSTANTo));
        if ((sz__S5GB ==  0)) {
          result__P5GB=LINKED_LISToSTRING_CONSTANTo__;
        } else {
          typ_id__V5GB=__LINKED_LISToSTRING_CONSTANTo__;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__S5GB);
          if ((typ_id__V5GB == (__INTEGER)(-  1))) {
            a__QCIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__RCIG=(__UINTEGER_32)((__UINTEGER_32)(sz__S5GB + a__QCIG) & (__UINTEGER_32)(~ a__QCIG));
            ptr_table__5OLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RCIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__4OLG=((__POINTER )(NULL));
            result__APLG=((__POINTER *)ptr_table__5OLG)[ 0];
            if ((result__APLG == (void *)NULL)) {
              result__APLG=new_lab__RUJ(new_size__RCIG);
              next__4OLG=(void *)((unsigned long)result__APLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RCIG)));
              ((__POINTER *)next__4OLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__5OLG)[ 0]=next__4OLG;
            } else {
              next__4OLG=((__POINTER *)result__APLG)[ 0];
              if ((next__4OLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__APLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__RCIG <<  1)) <=  4096)) {
                  next__4OLG=(void *)((unsigned long)result__APLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RCIG)));
                } else {
                  next__4OLG=new_lab__RUJ(new_size__RCIG);
                };
                ((__POINTER *)next__4OLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__5OLG)[ 0]=next__4OLG;
              } else {
                ((__POINTER *)result__APLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__4OLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__APLG=next__4OLG;
              };
            };
            ptr__Q5GB=result__APLG;
          } else {
            t__VCIG=((__UINTEGER_32 )typ_id__V5GB);
            a__UCIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__HPLG=(__UINTEGER_32)((__UINTEGER_32)(sz__S5GB + a__UCIG) & (__UINTEGER_32)(~ a__UCIG));
            ptr_table__EPLG=((__POINTER )(&(table_type[(t__VCIG)])));
            lab_type__GPLG=(__UINTEGER_32)(t__VCIG |  1);
            next__DPLG=((__POINTER )(NULL));
            result__FPLG=((__POINTER *)ptr_table__EPLG)[ 0];
            if ((result__FPLG == (void *)NULL)) {
              result__FPLG=new_lab__RUJ(lab_type__GPLG);
              next__DPLG=(void *)((unsigned long)result__FPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPLG)));
              ((__POINTER *)next__DPLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__EPLG)[ 0]=next__DPLG;
            } else {
              next__DPLG=((__POINTER *)result__FPLG)[ 0];
              if ((next__DPLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FPLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__HPLG <<  1)) <=  4096)) {
                  next__DPLG=(void *)((unsigned long)result__FPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPLG)));
                } else {
                  next__DPLG=new_lab__RUJ(lab_type__GPLG);
                };
                ((__POINTER *)next__DPLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__EPLG)[ 0]=next__DPLG;
              } else {
                ((__POINTER *)result__FPLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__DPLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__FPLG=next__DPLG;
              };
            };
            ptr__Q5GB=result__FPLG;
          };
          result__P5GB=((__LINKED_LISToSTRING_CONSTANTo *)ptr__Q5GB);
          *(result__P5GB) = *(LINKED_LISToSTRING_CONSTANTo__);
        };
        if (fast_has__ZER(short_dico__LD,last_string__NTC)) {
          pos__PY2F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_119));
          put_position__ATG(pos__PY2F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        __tmp__FID=last_string__NTC;
        Self__GBCB=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__LD);
        k__IBCB=last_string__NTC;
        h__PBCB=hash_code__LQU(last_string__NTC);
        idx__QBCB=(__INTEGER)(h__PBCB % Self__GBCB->capacity__HFR);
        node__RBCB=((void **)Self__GBCB->buckets__MFR)[idx__QBCB];
        while ((! (((void *)node__RBCB == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__RBCB)->key__YFR == (void *)k__IBCB)))) {
          node__RBCB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__RBCB)->next__DGR;
        };
        if (((void *)node__RBCB == (void *)NULL)) {
          if ((Self__GBCB->capacity__HFR == Self__GBCB->count__ONW)) {
            idx__MZVB= 0;
            node1__QZVB=NULL;
            node2__RZVB=NULL;
            old_buckets__PZVB=Self__GBCB->buckets__MFR;
            new_capacity__NZVB=prime_number_ceiling__33Z((__INTEGER)(Self__GBCB->capacity__HFR +  1));
            Self__GBCB->buckets__MFR=create__TC2(new_capacity__NZVB);
            i__OZVB=(__INTEGER)(Self__GBCB->capacity__HFR -  1);
            Self__GBCB->capacity__HFR=new_capacity__NZVB;
            while ((i__OZVB >=  0)) {
              node1__QZVB=((void **)old_buckets__PZVB)[i__OZVB];
              while (((void *)node1__QZVB != (void *)NULL)) {
                node2__RZVB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__QZVB)->next__DGR;
                idx__MZVB=(__INTEGER)(hash_code__LQU(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__QZVB)->key__YFR) % Self__GBCB->capacity__HFR);
                ((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__QZVB)->next__DGR=((void **)Self__GBCB->buckets__MFR)[idx__MZVB];
                ((void **)Self__GBCB->buckets__MFR)[idx__MZVB]=node1__QZVB;
                node1__QZVB=node2__RZVB;
              };
              i__OZVB=(__INTEGER)(i__OZVB -  1);
            };
            idx__QBCB=(__INTEGER)(h__PBCB % Self__GBCB->capacity__HFR);
          };
          __tmp__4CCB=((void **)Self__GBCB->buckets__MFR)[idx__QBCB];
          result__V1VB=NULL;
          ptr__W1VB=((__POINTER )(NULL));
          typ_id__11VB= 0;
          sz__Y1VB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo));
          if ((sz__Y1VB ==  0)) {
            result__V1VB=HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
          } else {
            typ_id__11VB=__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__Y1VB);
            if ((typ_id__11VB == (__INTEGER)(-  1))) {
              a__1CIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__2CIG=(__UINTEGER_32)((__UINTEGER_32)(sz__Y1VB + a__1CIG) & (__UINTEGER_32)(~ a__1CIG));
              ptr_table__JPLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2CIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__IPLG=((__POINTER )(NULL));
              result__KPLG=((__POINTER *)ptr_table__JPLG)[ 0];
              if ((result__KPLG == (void *)NULL)) {
                result__KPLG=new_lab__RUJ(new_size__2CIG);
                next__IPLG=(void *)((unsigned long)result__KPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2CIG)));
                ((__POINTER *)next__IPLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__JPLG)[ 0]=next__IPLG;
              } else {
                next__IPLG=((__POINTER *)result__KPLG)[ 0];
                if ((next__IPLG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KPLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__2CIG <<  1)) <=  4096)) {
                    next__IPLG=(void *)((unsigned long)result__KPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2CIG)));
                  } else {
                    next__IPLG=new_lab__RUJ(new_size__2CIG);
                  };
                  ((__POINTER *)next__IPLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__JPLG)[ 0]=next__IPLG;
                } else {
                  ((__POINTER *)result__KPLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__IPLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__KPLG=next__IPLG;
                };
              };
              ptr__W1VB=result__KPLG;
            } else {
              t__ADIG=((__UINTEGER_32 )typ_id__11VB);
              a__5CIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__RPLG=(__UINTEGER_32)((__UINTEGER_32)(sz__Y1VB + a__5CIG) & (__UINTEGER_32)(~ a__5CIG));
              ptr_table__OPLG=((__POINTER )(&(table_type[(t__ADIG)])));
              lab_type__QPLG=(__UINTEGER_32)(t__ADIG |  1);
              next__NPLG=((__POINTER )(NULL));
              result__PPLG=((__POINTER *)ptr_table__OPLG)[ 0];
              if ((result__PPLG == (void *)NULL)) {
                result__PPLG=new_lab__RUJ(lab_type__QPLG);
                next__NPLG=(void *)((unsigned long)result__PPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RPLG)));
                ((__POINTER *)next__NPLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__OPLG)[ 0]=next__NPLG;
              } else {
                next__NPLG=((__POINTER *)result__PPLG)[ 0];
                if ((next__NPLG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PPLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__RPLG <<  1)) <=  4096)) {
                    next__NPLG=(void *)((unsigned long)result__PPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RPLG)));
                  } else {
                    next__NPLG=new_lab__RUJ(lab_type__QPLG);
                  };
                  ((__POINTER *)next__NPLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__OPLG)[ 0]=next__NPLG;
                } else {
                  ((__POINTER *)result__PPLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__NPLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__PPLG=next__NPLG;
                };
              };
              ptr__W1VB=result__PPLG;
            };
            result__V1VB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)ptr__W1VB);
            *(result__V1VB) = *(HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__);
          };
          Self__BMCC=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__V1VB);
          Self__BMCC->item__FV1=result__P5GB;
          Self__BMCC->key__YFR=__tmp__FID;
          Self__BMCC->next__DGR=__tmp__4CCB;
          node__RBCB=result__V1VB;
          ((void **)Self__GBCB->buckets__MFR)[idx__QBCB]=result__V1VB;
          Self__GBCB->count__ONW=(__INTEGER)(Self__GBCB->count__ONW +  1);
        } else {
          ((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__RBCB)->item__FV1=result__P5GB;
        };
        if ((! read_symbol__I0J((&__string_12)))) {
          pos__YZ2F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_120));
          put_position__ATG(pos__YZ2F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        def__WDCB=result__P5GB;
        result__YDCB=FALSE__;
        if (read_short_elt__UDHB()) {
          result__YDCB=TRUE__;
          Self__GDIG=((__LINKED_LISToSTRING_CONSTANTo *)result__P5GB);
          element__FDIG=last_string__NTC;
          if (((void *)Self__GDIG->first_link__SWAC == (void *)NULL)) {
            i__LOJG=last_string__NTC;
            result__COJG=NULL;
            ptr__DOJG=((__POINTER )(NULL));
            typ_id__EOJG= 0;
            sz__FOJG=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
            if ((sz__FOJG ==  0)) {
              result__COJG=LINKED_LIST_NODEoSTRING_CONSTANTo__;
            } else {
              typ_id__EOJG=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
              clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__FOJG);
              if ((typ_id__EOJG == (__INTEGER)(-  1))) {
                a__GOJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__HOJG=(__UINTEGER_32)((__UINTEGER_32)(sz__FOJG + a__GOJG) & (__UINTEGER_32)(~ a__GOJG));
                ptr_table__TPLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HOJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                next__SPLG=((__POINTER )(NULL));
                result__UPLG=((__POINTER *)ptr_table__TPLG)[ 0];
                if ((result__UPLG == (void *)NULL)) {
                  result__UPLG=new_lab__RUJ(new_size__HOJG);
                  next__SPLG=(void *)((unsigned long)result__UPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HOJG)));
                  ((__POINTER *)next__SPLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__TPLG)[ 0]=next__SPLG;
                } else {
                  next__SPLG=((__POINTER *)result__UPLG)[ 0];
                  if ((next__SPLG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UPLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__HOJG <<  1)) <=  4096)) {
                      next__SPLG=(void *)((unsigned long)result__UPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HOJG)));
                    } else {
                      next__SPLG=new_lab__RUJ(new_size__HOJG);
                    };
                    ((__POINTER *)next__SPLG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__TPLG)[ 0]=next__SPLG;
                  } else {
                    ((__POINTER *)result__UPLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__SPLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__UPLG=next__SPLG;
                  };
                };
                ptr__DOJG=result__UPLG;
              } else {
                t__IOJG=((__UINTEGER_32 )typ_id__EOJG);
                a__JOJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__1PLG=(__UINTEGER_32)((__UINTEGER_32)(sz__FOJG + a__JOJG) & (__UINTEGER_32)(~ a__JOJG));
                ptr_table__YPLG=((__POINTER )(&(table_type[(t__IOJG)])));
                lab_type__0PLG=(__UINTEGER_32)(t__IOJG |  1);
                next__XPLG=((__POINTER )(NULL));
                result__ZPLG=((__POINTER *)ptr_table__YPLG)[ 0];
                if ((result__ZPLG == (void *)NULL)) {
                  result__ZPLG=new_lab__RUJ(lab_type__0PLG);
                  next__XPLG=(void *)((unsigned long)result__ZPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1PLG)));
                  ((__POINTER *)next__XPLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__YPLG)[ 0]=next__XPLG;
                } else {
                  next__XPLG=((__POINTER *)result__ZPLG)[ 0];
                  if ((next__XPLG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZPLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1PLG <<  1)) <=  4096)) {
                      next__XPLG=(void *)((unsigned long)result__ZPLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1PLG)));
                    } else {
                      next__XPLG=new_lab__RUJ(lab_type__0PLG);
                    };
                    ((__POINTER *)next__XPLG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__YPLG)[ 0]=next__XPLG;
                  } else {
                    ((__POINTER *)result__ZPLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__XPLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__ZPLG=next__XPLG;
                  };
                };
                ptr__DOJG=result__ZPLG;
              };
              result__COJG=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__DOJG);
              *(result__COJG) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
            };
            Self__KOJG=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__COJG);
            Self__KOJG->item__P4FD=i__LOJG;
            Self__KOJG->next__NQQD=NULL;
            Self__GDIG->first_link__SWAC=result__COJG;
            Self__GDIG->parent_linked_collection__GD.upper__F2C= 1;
            Self__GDIG->last_link__1WAC=result__COJG;
            Self__GDIG->mem_idx__2WAC= 1;
            Self__GDIG->mem_lnk__4WAC=result__COJG;
          } else {
            result__MOJG=NULL;
            ptr__NOJG=((__POINTER )(NULL));
            typ_id__OOJG= 0;
            sz__POJG=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
            if ((sz__POJG ==  0)) {
              result__MOJG=LINKED_LIST_NODEoSTRING_CONSTANTo__;
            } else {
              typ_id__OOJG=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
              clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__POJG);
              if ((typ_id__OOJG == (__INTEGER)(-  1))) {
                a__QOJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__ROJG=(__UINTEGER_32)((__UINTEGER_32)(sz__POJG + a__QOJG) & (__UINTEGER_32)(~ a__QOJG));
                ptr_table__3PLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ROJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                next__2PLG=((__POINTER )(NULL));
                result__4PLG=((__POINTER *)ptr_table__3PLG)[ 0];
                if ((result__4PLG == (void *)NULL)) {
                  result__4PLG=new_lab__RUJ(new_size__ROJG);
                  next__2PLG=(void *)((unsigned long)result__4PLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ROJG)));
                  ((__POINTER *)next__2PLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__3PLG)[ 0]=next__2PLG;
                } else {
                  next__2PLG=((__POINTER *)result__4PLG)[ 0];
                  if ((next__2PLG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4PLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ROJG <<  1)) <=  4096)) {
                      next__2PLG=(void *)((unsigned long)result__4PLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ROJG)));
                    } else {
                      next__2PLG=new_lab__RUJ(new_size__ROJG);
                    };
                    ((__POINTER *)next__2PLG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__3PLG)[ 0]=next__2PLG;
                  } else {
                    ((__POINTER *)result__4PLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__2PLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__4PLG=next__2PLG;
                  };
                };
                ptr__NOJG=result__4PLG;
              } else {
                t__SOJG=((__UINTEGER_32 )typ_id__OOJG);
                a__TOJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__FQLG=(__UINTEGER_32)((__UINTEGER_32)(sz__POJG + a__TOJG) & (__UINTEGER_32)(~ a__TOJG));
                ptr_table__CQLG=((__POINTER )(&(table_type[(t__SOJG)])));
                lab_type__EQLG=(__UINTEGER_32)(t__SOJG |  1);
                next__BQLG=((__POINTER )(NULL));
                result__DQLG=((__POINTER *)ptr_table__CQLG)[ 0];
                if ((result__DQLG == (void *)NULL)) {
                  result__DQLG=new_lab__RUJ(lab_type__EQLG);
                  next__BQLG=(void *)((unsigned long)result__DQLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FQLG)));
                  ((__POINTER *)next__BQLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__CQLG)[ 0]=next__BQLG;
                } else {
                  next__BQLG=((__POINTER *)result__DQLG)[ 0];
                  if ((next__BQLG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DQLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__FQLG <<  1)) <=  4096)) {
                      next__BQLG=(void *)((unsigned long)result__DQLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FQLG)));
                    } else {
                      next__BQLG=new_lab__RUJ(lab_type__EQLG);
                    };
                    ((__POINTER *)next__BQLG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__CQLG)[ 0]=next__BQLG;
                  } else {
                    ((__POINTER *)result__DQLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BQLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__DQLG=next__BQLG;
                  };
                };
                ptr__NOJG=result__DQLG;
              };
              result__MOJG=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__NOJG);
              *(result__MOJG) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
            };
            Self__UOJG=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__MOJG);
            Self__UOJG->item__P4FD=element__FDIG;
            Self__UOJG->next__NQQD=NULL;
            ((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__GDIG->last_link__1WAC)->next__NQQD=result__MOJG;
            Self__GDIG->parent_linked_collection__GD.upper__F2C=(__INTEGER)(Self__GDIG->parent_linked_collection__GD.upper__F2C +  1);
            Self__GDIG->last_link__1WAC=result__MOJG;
          };
          while_do__K5OB:
          {
            result__GQLG=FALSE__;
            if ((! read_space__MMD())) {
              result__GQLG=FALSE__;
            } else {
              result__HQLG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__HQLG=((__CHARACTER )(( 0)));
              } else {
                result__HQLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__HQLG == '+')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                result__GQLG=TRUE__;
              };
            };
            if (result__GQLG) {
              if ((! read_short_elt__UDHB())) {
                pos__0Z2F=current_position__A0F();
                put_error__text__WRG( 0,(&__string_121));
                put_position__ATG(pos__0Z2F);
                put_string__55F(msg_err__1RG);
                if ((type_error__0RG !=  2)) {
                  exit(( 1));
                };
              };
              Self__NWAC=((__LINKED_LISToSTRING_CONSTANTo *)def__WDCB);
              element__OWAC=last_string__NTC;
              if (((void *)Self__NWAC->first_link__SWAC == (void *)NULL)) {
                i__5OJG=last_string__NTC;
                result__WOJG=NULL;
                ptr__XOJG=((__POINTER )(NULL));
                typ_id__YOJG= 0;
                sz__ZOJG=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
                if ((sz__ZOJG ==  0)) {
                  result__WOJG=LINKED_LIST_NODEoSTRING_CONSTANTo__;
                } else {
                  typ_id__YOJG=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
                  clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__ZOJG);
                  if ((typ_id__YOJG == (__INTEGER)(-  1))) {
                    a__0OJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                    new_size__1OJG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZOJG + a__0OJG) & (__UINTEGER_32)(~ a__0OJG));
                    ptr_table__KQLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1OJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                    next__JQLG=((__POINTER )(NULL));
                    result__LQLG=((__POINTER *)ptr_table__KQLG)[ 0];
                    if ((result__LQLG == (void *)NULL)) {
                      result__LQLG=new_lab__RUJ(new_size__1OJG);
                      next__JQLG=(void *)((unsigned long)result__LQLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1OJG)));
                      ((__POINTER *)next__JQLG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__KQLG)[ 0]=next__JQLG;
                    } else {
                      next__JQLG=((__POINTER *)result__LQLG)[ 0];
                      if ((next__JQLG == (void *)NULL)) {
                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LQLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1OJG <<  1)) <=  4096)) {
                          next__JQLG=(void *)((unsigned long)result__LQLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1OJG)));
                        } else {
                          next__JQLG=new_lab__RUJ(new_size__1OJG);
                        };
                        ((__POINTER *)next__JQLG)[ 0]=NULL;
                        ((__POINTER *)ptr_table__KQLG)[ 0]=next__JQLG;
                      } else {
                        ((__POINTER *)result__LQLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__JQLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                        result__LQLG=next__JQLG;
                      };
                    };
                    ptr__XOJG=result__LQLG;
                  } else {
                    t__2OJG=((__UINTEGER_32 )typ_id__YOJG);
                    a__3OJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                    new_size__SQLG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZOJG + a__3OJG) & (__UINTEGER_32)(~ a__3OJG));
                    ptr_table__PQLG=((__POINTER )(&(table_type[(t__2OJG)])));
                    lab_type__RQLG=(__UINTEGER_32)(t__2OJG |  1);
                    next__OQLG=((__POINTER )(NULL));
                    result__QQLG=((__POINTER *)ptr_table__PQLG)[ 0];
                    if ((result__QQLG == (void *)NULL)) {
                      result__QQLG=new_lab__RUJ(lab_type__RQLG);
                      next__OQLG=(void *)((unsigned long)result__QQLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SQLG)));
                      ((__POINTER *)next__OQLG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__PQLG)[ 0]=next__OQLG;
                    } else {
                      next__OQLG=((__POINTER *)result__QQLG)[ 0];
                      if ((next__OQLG == (void *)NULL)) {
                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QQLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SQLG <<  1)) <=  4096)) {
                          next__OQLG=(void *)((unsigned long)result__QQLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SQLG)));
                        } else {
                          next__OQLG=new_lab__RUJ(lab_type__RQLG);
                        };
                        ((__POINTER *)next__OQLG)[ 0]=NULL;
                        ((__POINTER *)ptr_table__PQLG)[ 0]=next__OQLG;
                      } else {
                        ((__POINTER *)result__QQLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__OQLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                        result__QQLG=next__OQLG;
                      };
                    };
                    ptr__XOJG=result__QQLG;
                  };
                  result__WOJG=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__XOJG);
                  *(result__WOJG) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
                };
                Self__4OJG=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__WOJG);
                Self__4OJG->item__P4FD=i__5OJG;
                Self__4OJG->next__NQQD=NULL;
                Self__NWAC->first_link__SWAC=result__WOJG;
                Self__NWAC->parent_linked_collection__GD.upper__F2C= 1;
                Self__NWAC->last_link__1WAC=result__WOJG;
                Self__NWAC->mem_idx__2WAC= 1;
                Self__NWAC->mem_lnk__4WAC=result__WOJG;
              } else {
                result__3NCD=NULL;
                ptr__4NCD=((__POINTER )(NULL));
                typ_id__DOCD= 0;
                sz__AOCD=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
                if ((sz__AOCD ==  0)) {
                  result__3NCD=LINKED_LIST_NODEoSTRING_CONSTANTo__;
                } else {
                  typ_id__DOCD=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
                  clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__AOCD);
                  if ((typ_id__DOCD == (__INTEGER)(-  1))) {
                    a__BHHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                    new_size__CHHG=(__UINTEGER_32)((__UINTEGER_32)(sz__AOCD + a__BHHG) & (__UINTEGER_32)(~ a__BHHG));
                    ptr_table__UQLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CHHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                    next__TQLG=((__POINTER )(NULL));
                    result__VQLG=((__POINTER *)ptr_table__UQLG)[ 0];
                    if ((result__VQLG == (void *)NULL)) {
                      result__VQLG=new_lab__RUJ(new_size__CHHG);
                      next__TQLG=(void *)((unsigned long)result__VQLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CHHG)));
                      ((__POINTER *)next__TQLG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__UQLG)[ 0]=next__TQLG;
                    } else {
                      next__TQLG=((__POINTER *)result__VQLG)[ 0];
                      if ((next__TQLG == (void *)NULL)) {
                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VQLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CHHG <<  1)) <=  4096)) {
                          next__TQLG=(void *)((unsigned long)result__VQLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CHHG)));
                        } else {
                          next__TQLG=new_lab__RUJ(new_size__CHHG);
                        };
                        ((__POINTER *)next__TQLG)[ 0]=NULL;
                        ((__POINTER *)ptr_table__UQLG)[ 0]=next__TQLG;
                      } else {
                        ((__POINTER *)result__VQLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__TQLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                        result__VQLG=next__TQLG;
                      };
                    };
                    ptr__4NCD=result__VQLG;
                  } else {
                    t__GHHG=((__UINTEGER_32 )typ_id__DOCD);
                    a__FHHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                    new_size__2QLG=(__UINTEGER_32)((__UINTEGER_32)(sz__AOCD + a__FHHG) & (__UINTEGER_32)(~ a__FHHG));
                    ptr_table__ZQLG=((__POINTER )(&(table_type[(t__GHHG)])));
                    lab_type__1QLG=(__UINTEGER_32)(t__GHHG |  1);
                    next__YQLG=((__POINTER )(NULL));
                    result__0QLG=((__POINTER *)ptr_table__ZQLG)[ 0];
                    if ((result__0QLG == (void *)NULL)) {
                      result__0QLG=new_lab__RUJ(lab_type__1QLG);
                      next__YQLG=(void *)((unsigned long)result__0QLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2QLG)));
                      ((__POINTER *)next__YQLG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__ZQLG)[ 0]=next__YQLG;
                    } else {
                      next__YQLG=((__POINTER *)result__0QLG)[ 0];
                      if ((next__YQLG == (void *)NULL)) {
                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0QLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__2QLG <<  1)) <=  4096)) {
                          next__YQLG=(void *)((unsigned long)result__0QLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2QLG)));
                        } else {
                          next__YQLG=new_lab__RUJ(lab_type__1QLG);
                        };
                        ((__POINTER *)next__YQLG)[ 0]=NULL;
                        ((__POINTER *)ptr_table__ZQLG)[ 0]=next__YQLG;
                      } else {
                        ((__POINTER *)result__0QLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__YQLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                        result__0QLG=next__YQLG;
                      };
                    };
                    ptr__4NCD=result__0QLG;
                  };
                  result__3NCD=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__4NCD);
                  *(result__3NCD) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
                };
                Self__52TD=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__3NCD);
                Self__52TD->item__P4FD=element__OWAC;
                Self__52TD->next__NQQD=NULL;
                ((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__NWAC->last_link__1WAC)->next__NQQD=result__3NCD;
                Self__NWAC->parent_linked_collection__GD.upper__F2C=(__INTEGER)(Self__NWAC->parent_linked_collection__GD.upper__F2C +  1);
                Self__NWAC->last_link__1WAC=result__3NCD;
              };
              goto while_do__K5OB;
            };
          };
        };
        if ((! result__YDCB)) {
          pos__2Z2F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_122));
          put_position__ATG(pos__2Z2F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        result__ILG=FALSE__;
        if ((! read_space__MMD())) {
          result__ILG=FALSE__;
        } else {
          result__TRFG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__TRFG=((__CHARACTER )(( 0)));
          } else {
            result__TRFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__TRFG == ';')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__ILG=TRUE__;
          };
        };
        if ((! result__ILG)) {
          pos__4Z2F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_123));
          put_position__ATG(pos__4Z2F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        goto while_do__QLF;
      };
    };
    read_space__MMD();
    result__GKFG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__GKFG=((__CHARACTER )(( 0)));
    } else {
      result__GKFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__GKFG != ((__CHARACTER )(( 0))))) {
      pos__A02F=current_position__A0F();
      put_error__text__WRG( 0,(&__string_124));
      put_position__ATG(pos__A02F);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
    object__M0B=NULL;
  };
  index_count__YZ=(__INTEGER)(index_count__YZ +  1);
  fast_put__to__45P(result__CIC,(&__string_2));
  result__XRB=NULL;
  ptr__YRB=((__POINTER )(NULL));
  typ_id__3RB= 0;
  sz__0RB=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSLOTo));
  if ((sz__0RB ==  0)) {
    result__XRB=FAST_ARRAYoSLOTo__;
  } else {
    typ_id__3RB=__FAST_ARRAYoSLOTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__0RB);
    if ((typ_id__3RB == (__INTEGER)(-  1))) {
      a__JDIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__KDIG=(__UINTEGER_32)((__UINTEGER_32)(sz__0RB + a__JDIG) & (__UINTEGER_32)(~ a__JDIG));
      ptr_table__4QLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KDIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__3QLG=((__POINTER )(NULL));
      result__5QLG=((__POINTER *)ptr_table__4QLG)[ 0];
      if ((result__5QLG == (void *)NULL)) {
        result__5QLG=new_lab__RUJ(new_size__KDIG);
        next__3QLG=(void *)((unsigned long)result__5QLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KDIG)));
        ((__POINTER *)next__3QLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__4QLG)[ 0]=next__3QLG;
      } else {
        next__3QLG=((__POINTER *)result__5QLG)[ 0];
        if ((next__3QLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5QLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KDIG <<  1)) <=  4096)) {
            next__3QLG=(void *)((unsigned long)result__5QLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KDIG)));
          } else {
            next__3QLG=new_lab__RUJ(new_size__KDIG);
          };
          ((__POINTER *)next__3QLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__4QLG)[ 0]=next__3QLG;
        } else {
          ((__POINTER *)result__5QLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3QLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__5QLG=next__3QLG;
        };
      };
      ptr__YRB=result__5QLG;
    } else {
      t__ODIG=((__UINTEGER_32 )typ_id__3RB);
      a__NDIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__GRLG=(__UINTEGER_32)((__UINTEGER_32)(sz__0RB + a__NDIG) & (__UINTEGER_32)(~ a__NDIG));
      ptr_table__DRLG=((__POINTER )(&(table_type[(t__ODIG)])));
      lab_type__FRLG=(__UINTEGER_32)(t__ODIG |  1);
      next__CRLG=((__POINTER )(NULL));
      result__ERLG=((__POINTER *)ptr_table__DRLG)[ 0];
      if ((result__ERLG == (void *)NULL)) {
        result__ERLG=new_lab__RUJ(lab_type__FRLG);
        next__CRLG=(void *)((unsigned long)result__ERLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GRLG)));
        ((__POINTER *)next__CRLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__DRLG)[ 0]=next__CRLG;
      } else {
        next__CRLG=((__POINTER *)result__ERLG)[ 0];
        if ((next__CRLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ERLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__GRLG <<  1)) <=  4096)) {
            next__CRLG=(void *)((unsigned long)result__ERLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GRLG)));
          } else {
            next__CRLG=new_lab__RUJ(lab_type__FRLG);
          };
          ((__POINTER *)next__CRLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__DRLG)[ 0]=next__CRLG;
        } else {
          ((__POINTER *)result__ERLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CRLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__ERLG=next__CRLG;
        };
      };
      ptr__YRB=result__ERLG;
    };
    result__XRB=((__FAST_ARRAYoSLOTo *)ptr__YRB);
    *(result__XRB) = *(FAST_ARRAYoSLOTo__);
  };
  Self__RIQ=((__FAST_ARRAYoSLOTo *)result__XRB);
  if ((Self__RIQ->parent_arrayed_collection__J0.capacity__0IQ <  1)) {
    sz__EWIG=((__UINTEGER_32 )((__INTEGER )(sizeof(void *))));
    result__CWIG=((__POINTER )(NULL));
    a__DWIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__FWIG=(__UINTEGER_32)((__UINTEGER_32)(sz__EWIG + a__DWIG) & (__UINTEGER_32)(~ a__DWIG));
    new_size2__GWIG=(__UINTEGER_32)(new_size__FWIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
    if ((new_size2__GWIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
      a__HWIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__IWIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GWIG + a__HWIG) & (__UINTEGER_32)(~ a__HWIG));
      ptr_table__IRLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IWIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__HRLG=((__POINTER )(NULL));
      result__JRLG=((__POINTER *)ptr_table__IRLG)[ 0];
      if ((result__JRLG == (void *)NULL)) {
        result__JRLG=new_lab__RUJ(new_size__IWIG);
        next__HRLG=(void *)((unsigned long)result__JRLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IWIG)));
        ((__POINTER *)next__HRLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__IRLG)[ 0]=next__HRLG;
      } else {
        next__HRLG=((__POINTER *)result__JRLG)[ 0];
        if ((next__HRLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JRLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__IWIG <<  1)) <=  4096)) {
            next__HRLG=(void *)((unsigned long)result__JRLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IWIG)));
          } else {
            next__HRLG=new_lab__RUJ(new_size__IWIG);
          };
          ((__POINTER *)next__HRLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__IRLG)[ 0]=next__HRLG;
        } else {
          ((__POINTER *)result__JRLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HRLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__JRLG=next__HRLG;
        };
      };
      ((__POINTER *)result__JRLG)[ 0]=((__POINTER ) 3);
      result__CWIG=(void *)((unsigned long)result__JRLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
    } else {
      result__CWIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__FWIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
    };
    Result__F0YC=((void **)result__CWIG);
    Self__D5WD= 0;
    while ((Self__D5WD >=  0)) {
      Result__F0YC[Self__D5WD]=NULL;
      Self__D5WD=(__INTEGER)(Self__D5WD -  1);
    };
    Self__RIQ->parent_arrayed_collection__J0.capacity__0IQ= 1;
  };
  ptr__BPJG=((__POINTER )(NULL));
  typ_id__CPJG= 0;
  sz__DPJG=((__UINTEGER_32 )sizeof(__TYPE_FULL));
  if ((sz__DPJG !=  0)) {
    typ_id__CPJG=__TYPE_FULL__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__DPJG);
    if ((typ_id__CPJG == (__INTEGER)(-  1))) {
      a__EPJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__FPJG=(__UINTEGER_32)((__UINTEGER_32)(sz__DPJG + a__EPJG) & (__UINTEGER_32)(~ a__EPJG));
      ptr_table__NRLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FPJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__MRLG=((__POINTER )(NULL));
      result__ORLG=((__POINTER *)ptr_table__NRLG)[ 0];
      if ((result__ORLG == (void *)NULL)) {
        result__ORLG=new_lab__RUJ(new_size__FPJG);
        next__MRLG=(void *)((unsigned long)result__ORLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FPJG)));
        ((__POINTER *)next__MRLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__NRLG)[ 0]=next__MRLG;
      } else {
        next__MRLG=((__POINTER *)result__ORLG)[ 0];
        if ((next__MRLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ORLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__FPJG <<  1)) <=  4096)) {
            next__MRLG=(void *)((unsigned long)result__ORLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FPJG)));
          } else {
            next__MRLG=new_lab__RUJ(new_size__FPJG);
          };
          ((__POINTER *)next__MRLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__NRLG)[ 0]=next__MRLG;
        } else {
          ((__POINTER *)result__ORLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MRLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__ORLG=next__MRLG;
        };
      };
      ptr__BPJG=result__ORLG;
    } else {
      t__GPJG=((__UINTEGER_32 )typ_id__CPJG);
      a__HPJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__VRLG=(__UINTEGER_32)((__UINTEGER_32)(sz__DPJG + a__HPJG) & (__UINTEGER_32)(~ a__HPJG));
      ptr_table__SRLG=((__POINTER )(&(table_type[(t__GPJG)])));
      lab_type__URLG=(__UINTEGER_32)(t__GPJG |  1);
      next__RRLG=((__POINTER )(NULL));
      result__TRLG=((__POINTER *)ptr_table__SRLG)[ 0];
      if ((result__TRLG == (void *)NULL)) {
        result__TRLG=new_lab__RUJ(lab_type__URLG);
        next__RRLG=(void *)((unsigned long)result__TRLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VRLG)));
        ((__POINTER *)next__RRLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__SRLG)[ 0]=next__RRLG;
      } else {
        next__RRLG=((__POINTER *)result__TRLG)[ 0];
        if ((next__RRLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TRLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VRLG <<  1)) <=  4096)) {
            next__RRLG=(void *)((unsigned long)result__TRLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VRLG)));
          } else {
            next__RRLG=new_lab__RUJ(lab_type__URLG);
          };
          ((__POINTER *)next__RRLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__SRLG)[ 0]=next__RRLG;
        } else {
          ((__POINTER *)result__TRLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__RRLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__TRLG=next__RRLG;
        };
      };
      ptr__BPJG=result__TRLG;
    };
    *(((__TYPE_FULL *)ptr__BPJG)) = *(TYPE_FULL__);
  };
  fast_put__to__45P(result__CIC,(&__string_3));
  ptr__JPJG=((__POINTER )(NULL));
  typ_id__KPJG= 0;
  sz__LPJG=((__UINTEGER_32 )sizeof(__TYPE_FULL));
  if ((sz__LPJG !=  0)) {
    typ_id__KPJG=__TYPE_FULL__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__LPJG);
    if ((typ_id__KPJG == (__INTEGER)(-  1))) {
      a__MPJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__NPJG=(__UINTEGER_32)((__UINTEGER_32)(sz__LPJG + a__MPJG) & (__UINTEGER_32)(~ a__MPJG));
      ptr_table__XRLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NPJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__WRLG=((__POINTER )(NULL));
      result__YRLG=((__POINTER *)ptr_table__XRLG)[ 0];
      if ((result__YRLG == (void *)NULL)) {
        result__YRLG=new_lab__RUJ(new_size__NPJG);
        next__WRLG=(void *)((unsigned long)result__YRLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NPJG)));
        ((__POINTER *)next__WRLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__XRLG)[ 0]=next__WRLG;
      } else {
        next__WRLG=((__POINTER *)result__YRLG)[ 0];
        if ((next__WRLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YRLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__NPJG <<  1)) <=  4096)) {
            next__WRLG=(void *)((unsigned long)result__YRLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NPJG)));
          } else {
            next__WRLG=new_lab__RUJ(new_size__NPJG);
          };
          ((__POINTER *)next__WRLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__XRLG)[ 0]=next__WRLG;
        } else {
          ((__POINTER *)result__YRLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__WRLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__YRLG=next__WRLG;
        };
      };
      ptr__JPJG=result__YRLG;
    } else {
      t__OPJG=((__UINTEGER_32 )typ_id__KPJG);
      a__PPJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__5RLG=(__UINTEGER_32)((__UINTEGER_32)(sz__LPJG + a__PPJG) & (__UINTEGER_32)(~ a__PPJG));
      ptr_table__2RLG=((__POINTER )(&(table_type[(t__OPJG)])));
      lab_type__4RLG=(__UINTEGER_32)(t__OPJG |  1);
      next__1RLG=((__POINTER )(NULL));
      result__3RLG=((__POINTER *)ptr_table__2RLG)[ 0];
      if ((result__3RLG == (void *)NULL)) {
        result__3RLG=new_lab__RUJ(lab_type__4RLG);
        next__1RLG=(void *)((unsigned long)result__3RLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RLG)));
        ((__POINTER *)next__1RLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__2RLG)[ 0]=next__1RLG;
      } else {
        next__1RLG=((__POINTER *)result__3RLG)[ 0];
        if ((next__1RLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3RLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5RLG <<  1)) <=  4096)) {
            next__1RLG=(void *)((unsigned long)result__3RLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RLG)));
          } else {
            next__1RLG=new_lab__RUJ(lab_type__4RLG);
          };
          ((__POINTER *)next__1RLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__2RLG)[ 0]=next__1RLG;
        } else {
          ((__POINTER *)result__3RLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1RLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__3RLG=next__1RLG;
        };
      };
      ptr__JPJG=result__3RLG;
    };
    *(((__TYPE_FULL *)ptr__JPJG)) = *(TYPE_FULL__);
  };
  fast_put__to__45P(result__CIC,(&__string_40));
  ptr__FUB=((__POINTER )(NULL));
  typ_id__KUB= 0;
  sz__HUB=((__UINTEGER_32 )sizeof(__TYPE_FULL));
  if ((sz__HUB !=  0)) {
    typ_id__KUB=__TYPE_FULL__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__HUB);
    if ((typ_id__KUB == (__INTEGER)(-  1))) {
      a__T5GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__U5GG=(__UINTEGER_32)((__UINTEGER_32)(sz__HUB + a__T5GG) & (__UINTEGER_32)(~ a__T5GG));
      ptr_table__BSLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__U5GG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__ASLG=((__POINTER )(NULL));
      result__CSLG=((__POINTER *)ptr_table__BSLG)[ 0];
      if ((result__CSLG == (void *)NULL)) {
        result__CSLG=new_lab__RUJ(new_size__U5GG);
        next__ASLG=(void *)((unsigned long)result__CSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__U5GG)));
        ((__POINTER *)next__ASLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__BSLG)[ 0]=next__ASLG;
      } else {
        next__ASLG=((__POINTER *)result__CSLG)[ 0];
        if ((next__ASLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CSLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__U5GG <<  1)) <=  4096)) {
            next__ASLG=(void *)((unsigned long)result__CSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__U5GG)));
          } else {
            next__ASLG=new_lab__RUJ(new_size__U5GG);
          };
          ((__POINTER *)next__ASLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__BSLG)[ 0]=next__ASLG;
        } else {
          ((__POINTER *)result__CSLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ASLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__CSLG=next__ASLG;
        };
      };
      ptr__FUB=result__CSLG;
    } else {
      t__Y5GG=((__UINTEGER_32 )typ_id__KUB);
      a__X5GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__JSLG=(__UINTEGER_32)((__UINTEGER_32)(sz__HUB + a__X5GG) & (__UINTEGER_32)(~ a__X5GG));
      ptr_table__GSLG=((__POINTER )(&(table_type[(t__Y5GG)])));
      lab_type__ISLG=(__UINTEGER_32)(t__Y5GG |  1);
      next__FSLG=((__POINTER )(NULL));
      result__HSLG=((__POINTER *)ptr_table__GSLG)[ 0];
      if ((result__HSLG == (void *)NULL)) {
        result__HSLG=new_lab__RUJ(lab_type__ISLG);
        next__FSLG=(void *)((unsigned long)result__HSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JSLG)));
        ((__POINTER *)next__FSLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__GSLG)[ 0]=next__FSLG;
      } else {
        next__FSLG=((__POINTER *)result__HSLG)[ 0];
        if ((next__FSLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HSLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__JSLG <<  1)) <=  4096)) {
            next__FSLG=(void *)((unsigned long)result__HSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JSLG)));
          } else {
            next__FSLG=new_lab__RUJ(lab_type__ISLG);
          };
          ((__POINTER *)next__FSLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__GSLG)[ 0]=next__FSLG;
        } else {
          ((__POINTER *)result__HSLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__FSLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__HSLG=next__FSLG;
        };
      };
      ptr__FUB=result__HSLG;
    };
    *(((__TYPE_FULL *)ptr__FUB)) = *(TYPE_FULL__);
  };
  result__VVB=NULL;
  ptr__WVB=((__POINTER )(NULL));
  typ_id__1VB= 0;
  sz__YVB=((__UINTEGER_32 )sizeof(__FAST_ARRAYoTYPE_IDo));
  if ((sz__YVB ==  0)) {
    result__VVB=FAST_ARRAYoTYPE_IDo__;
  } else {
    typ_id__1VB=__FAST_ARRAYoTYPE_IDo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__YVB);
    if ((typ_id__1VB == (__INTEGER)(-  1))) {
      a__RDIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__SDIG=(__UINTEGER_32)((__UINTEGER_32)(sz__YVB + a__RDIG) & (__UINTEGER_32)(~ a__RDIG));
      ptr_table__LSLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SDIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__KSLG=((__POINTER )(NULL));
      result__MSLG=((__POINTER *)ptr_table__LSLG)[ 0];
      if ((result__MSLG == (void *)NULL)) {
        result__MSLG=new_lab__RUJ(new_size__SDIG);
        next__KSLG=(void *)((unsigned long)result__MSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SDIG)));
        ((__POINTER *)next__KSLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__LSLG)[ 0]=next__KSLG;
      } else {
        next__KSLG=((__POINTER *)result__MSLG)[ 0];
        if ((next__KSLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MSLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SDIG <<  1)) <=  4096)) {
            next__KSLG=(void *)((unsigned long)result__MSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SDIG)));
          } else {
            next__KSLG=new_lab__RUJ(new_size__SDIG);
          };
          ((__POINTER *)next__KSLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__LSLG)[ 0]=next__KSLG;
        } else {
          ((__POINTER *)result__MSLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__KSLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__MSLG=next__KSLG;
        };
      };
      ptr__WVB=result__MSLG;
    } else {
      t__WDIG=((__UINTEGER_32 )typ_id__1VB);
      a__VDIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__TSLG=(__UINTEGER_32)((__UINTEGER_32)(sz__YVB + a__VDIG) & (__UINTEGER_32)(~ a__VDIG));
      ptr_table__QSLG=((__POINTER )(&(table_type[(t__WDIG)])));
      lab_type__SSLG=(__UINTEGER_32)(t__WDIG |  1);
      next__PSLG=((__POINTER )(NULL));
      result__RSLG=((__POINTER *)ptr_table__QSLG)[ 0];
      if ((result__RSLG == (void *)NULL)) {
        result__RSLG=new_lab__RUJ(lab_type__SSLG);
        next__PSLG=(void *)((unsigned long)result__RSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSLG)));
        ((__POINTER *)next__PSLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__QSLG)[ 0]=next__PSLG;
      } else {
        next__PSLG=((__POINTER *)result__RSLG)[ 0];
        if ((next__PSLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RSLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__TSLG <<  1)) <=  4096)) {
            next__PSLG=(void *)((unsigned long)result__RSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TSLG)));
          } else {
            next__PSLG=new_lab__RUJ(lab_type__SSLG);
          };
          ((__POINTER *)next__PSLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__QSLG)[ 0]=next__PSLG;
        } else {
          ((__POINTER *)result__RSLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__PSLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__RSLG=next__PSLG;
        };
      };
      ptr__WVB=result__RSLG;
    };
    result__VVB=((__FAST_ARRAYoTYPE_IDo *)ptr__WVB);
    *(result__VVB) = *(FAST_ARRAYoTYPE_IDo__);
  };
  Self__LKQ=((__FAST_ARRAYoTYPE_IDo *)result__VVB);
  if ((Self__LKQ->parent_arrayed_collection__I1.capacity__0CQ <  3)) {
    Self__LKQ->parent_arrayed_collection__I1.storage__WDQ=create__IGKB( 3);
    Self__LKQ->parent_arrayed_collection__I1.capacity__0CQ= 3;
  };
  Self__LKQ->parent_arrayed_collection__I1.upper__YCQ=(__INTEGER)(-  1);
  list_id__K1=result__VVB;
  add_last__UCQ(result__VVB,create__JLB());
  add_last__UCQ(list_id__K1,create__JLB());
  if (is_short_recursive__DB) {
    directory_list__UB=create__01( 100);
    file_list__WB=create__01( 100);
    current_list__YB=create__01( 100);
    __tmp__0B=input_name__ZB;
    if (FILE_SYSTEM__->parent_directory__K5C==0) {
    } else {
      parent_directory__U3C();
    };
    ent__PB=get__0PEF(__tmp__0B);
    if (((void *)ent__PB == (void *)NULL)) {
      __tmp__GC=TRUE__;
    } else {
      switch (((struct ___OBJ *)ent__PB)->__id) {
      case __DIRECTORY__: {
        __tmp__CC=((__ENTRY *)((__DIRECTORY *)ent__PB)->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.is_directory__BC;
      } break;
      case __ENTRY__: {
        __tmp__CC=((__ENTRY *)ent__PB)->parent_abstract_entry__LB.is_directory__BC;
      } break;
      case __STD_FILE__: {
        __tmp__CC=((__ENTRY *)((__STD_FILE *)ent__PB)->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.is_directory__BC;
      } break;
      };
      __tmp__GC=(! __tmp__CC);
    };
    if (__tmp__GC) {
      print__CCD((&__string_125));
      print__CCD(input_name__ZB);
      print__CCD((&__string_126));
      exit(( 1));
    };
    switch (((struct ___OBJ *)ent__PB)->__id) {
    case __DIRECTORY__: {
      __tmp__RC=open__4TRE(ent__PB);
    } break;
    case __ENTRY__: {
      __tmp__RC=open__BY2B(ent__PB);
    } break;
    case __STD_FILE__: {
      Self__15QD=((__STD_FILE *)ent__PB);
      ((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.link_count__EY2B=(__INTEGER)(((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.link_count__EY2B +  1);
      if (((void *)((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.child__HY2B == (void *)NULL)) {
        if (((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.is_directory__BC) {
          result__QPJG=NULL;
          ptr__RPJG=((__POINTER )(NULL));
          typ_id__SPJG= 0;
          sz__TPJG=((__UINTEGER_32 )sizeof(__DIRECTORY));
          if ((sz__TPJG ==  0)) {
            result__QPJG=DIRECTORY__;
          } else {
            typ_id__SPJG=-1;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__TPJG);
            if ((typ_id__SPJG == (__INTEGER)(-  1))) {
              a__UPJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__VPJG=(__UINTEGER_32)((__UINTEGER_32)(sz__TPJG + a__UPJG) & (__UINTEGER_32)(~ a__UPJG));
              ptr_table__VSLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VPJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__USLG=((__POINTER )(NULL));
              result__WSLG=((__POINTER *)ptr_table__VSLG)[ 0];
              if ((result__WSLG == (void *)NULL)) {
                result__WSLG=new_lab__RUJ(new_size__VPJG);
                next__USLG=(void *)((unsigned long)result__WSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VPJG)));
                ((__POINTER *)next__USLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__VSLG)[ 0]=next__USLG;
              } else {
                next__USLG=((__POINTER *)result__WSLG)[ 0];
                if ((next__USLG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WSLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VPJG <<  1)) <=  4096)) {
                    next__USLG=(void *)((unsigned long)result__WSLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VPJG)));
                  } else {
                    next__USLG=new_lab__RUJ(new_size__VPJG);
                  };
                  ((__POINTER *)next__USLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__VSLG)[ 0]=next__USLG;
                } else {
                  ((__POINTER *)result__WSLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__USLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__WSLG=next__USLG;
                };
              };
              ptr__RPJG=result__WSLG;
            } else {
              t__WPJG=((__UINTEGER_32 )typ_id__SPJG);
              a__XPJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__3SLG=(__UINTEGER_32)((__UINTEGER_32)(sz__TPJG + a__XPJG) & (__UINTEGER_32)(~ a__XPJG));
              ptr_table__0SLG=((__POINTER )(&(table_type[(t__WPJG)])));
              lab_type__2SLG=(__UINTEGER_32)(t__WPJG |  1);
              next__ZSLG=((__POINTER )(NULL));
              result__1SLG=((__POINTER *)ptr_table__0SLG)[ 0];
              if ((result__1SLG == (void *)NULL)) {
                result__1SLG=new_lab__RUJ(lab_type__2SLG);
                next__ZSLG=(void *)((unsigned long)result__1SLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3SLG)));
                ((__POINTER *)next__ZSLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__0SLG)[ 0]=next__ZSLG;
              } else {
                next__ZSLG=((__POINTER *)result__1SLG)[ 0];
                if ((next__ZSLG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1SLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__3SLG <<  1)) <=  4096)) {
                    next__ZSLG=(void *)((unsigned long)result__1SLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3SLG)));
                  } else {
                    next__ZSLG=new_lab__RUJ(lab_type__2SLG);
                  };
                  ((__POINTER *)next__ZSLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__0SLG)[ 0]=next__ZSLG;
                } else {
                  ((__POINTER *)result__1SLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZSLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__1SLG=next__ZSLG;
                };
              };
              ptr__RPJG=result__1SLG;
            };
            result__QPJG=((__DIRECTORY *)ptr__RPJG);
            *(result__QPJG) = *(DIRECTORY__);
          };
          ((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.child__HY2B=result__QPJG;
        } else {
          result__YPJG=NULL;
          ptr__ZPJG=((__POINTER )(NULL));
          typ_id__0PJG= 0;
          sz__1PJG=((__UINTEGER_32 )sizeof(__STD_FILE));
          if ((sz__1PJG ==  0)) {
            result__YPJG=STD_FILE__;
          } else {
            typ_id__0PJG=-1;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__1PJG);
            if ((typ_id__0PJG == (__INTEGER)(-  1))) {
              a__2PJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__3PJG=(__UINTEGER_32)((__UINTEGER_32)(sz__1PJG + a__2PJG) & (__UINTEGER_32)(~ a__2PJG));
              ptr_table__5SLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3PJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__4SLG=((__POINTER )(NULL));
              result__ATLG=((__POINTER *)ptr_table__5SLG)[ 0];
              if ((result__ATLG == (void *)NULL)) {
                result__ATLG=new_lab__RUJ(new_size__3PJG);
                next__4SLG=(void *)((unsigned long)result__ATLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3PJG)));
                ((__POINTER *)next__4SLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__5SLG)[ 0]=next__4SLG;
              } else {
                next__4SLG=((__POINTER *)result__ATLG)[ 0];
                if ((next__4SLG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ATLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__3PJG <<  1)) <=  4096)) {
                    next__4SLG=(void *)((unsigned long)result__ATLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3PJG)));
                  } else {
                    next__4SLG=new_lab__RUJ(new_size__3PJG);
                  };
                  ((__POINTER *)next__4SLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__5SLG)[ 0]=next__4SLG;
                } else {
                  ((__POINTER *)result__ATLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__4SLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__ATLG=next__4SLG;
                };
              };
              ptr__ZPJG=result__ATLG;
            } else {
              t__4PJG=((__UINTEGER_32 )typ_id__0PJG);
              a__5PJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__HTLG=(__UINTEGER_32)((__UINTEGER_32)(sz__1PJG + a__5PJG) & (__UINTEGER_32)(~ a__5PJG));
              ptr_table__ETLG=((__POINTER )(&(table_type[(t__4PJG)])));
              lab_type__GTLG=(__UINTEGER_32)(t__4PJG |  1);
              next__DTLG=((__POINTER )(NULL));
              result__FTLG=((__POINTER *)ptr_table__ETLG)[ 0];
              if ((result__FTLG == (void *)NULL)) {
                result__FTLG=new_lab__RUJ(lab_type__GTLG);
                next__DTLG=(void *)((unsigned long)result__FTLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTLG)));
                ((__POINTER *)next__DTLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__ETLG)[ 0]=next__DTLG;
              } else {
                next__DTLG=((__POINTER *)result__FTLG)[ 0];
                if ((next__DTLG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FTLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__HTLG <<  1)) <=  4096)) {
                    next__DTLG=(void *)((unsigned long)result__FTLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTLG)));
                  } else {
                    next__DTLG=new_lab__RUJ(lab_type__GTLG);
                  };
                  ((__POINTER *)next__DTLG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__ETLG)[ 0]=next__DTLG;
                } else {
                  ((__POINTER *)result__FTLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__DTLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__FTLG=next__DTLG;
                };
              };
              ptr__ZPJG=result__FTLG;
            };
            result__YPJG=((__STD_FILE *)ptr__ZPJG);
            *(result__YPJG) = *(STD_FILE__);
          };
          ((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.child__HY2B=result__YPJG;
        };
      };
      __tmp__VARD=((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.child__HY2B;
      __tmp__WARD=Self__15QD->parent_abstract_file__B3B.parent_entry__A3B;
      if (((struct ___OBJ *)__tmp__VARD)->__id==__DIRECTORY__) {
        Self__BQJG=((__DIRECTORY *)__tmp__VARD);
        Self__BQJG->parent_abstract_directory__NB.parent_entry__MB=__tmp__WARD;
        result__CQJG=NULL;
        ptr__DQJG=((__POINTER )(NULL));
        typ_id__EQJG= 0;
        sz__FQJG=((__UINTEGER_32 )sizeof(__LINKED_LISToENTRYo));
        if ((sz__FQJG ==  0)) {
          result__CQJG=LINKED_LISToENTRYo__;
        } else {
          typ_id__EQJG=__LINKED_LISToENTRYo__;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__FQJG);
          if ((typ_id__EQJG == (__INTEGER)(-  1))) {
            a__GQJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__HQJG=(__UINTEGER_32)((__UINTEGER_32)(sz__FQJG + a__GQJG) & (__UINTEGER_32)(~ a__GQJG));
            ptr_table__JTLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HQJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__ITLG=((__POINTER )(NULL));
            result__KTLG=((__POINTER *)ptr_table__JTLG)[ 0];
            if ((result__KTLG == (void *)NULL)) {
              result__KTLG=new_lab__RUJ(new_size__HQJG);
              next__ITLG=(void *)((unsigned long)result__KTLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQJG)));
              ((__POINTER *)next__ITLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__JTLG)[ 0]=next__ITLG;
            } else {
              next__ITLG=((__POINTER *)result__KTLG)[ 0];
              if ((next__ITLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KTLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__HQJG <<  1)) <=  4096)) {
                  next__ITLG=(void *)((unsigned long)result__KTLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQJG)));
                } else {
                  next__ITLG=new_lab__RUJ(new_size__HQJG);
                };
                ((__POINTER *)next__ITLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__JTLG)[ 0]=next__ITLG;
              } else {
                ((__POINTER *)result__KTLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ITLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__KTLG=next__ITLG;
              };
            };
            ptr__DQJG=result__KTLG;
          } else {
            t__IQJG=((__UINTEGER_32 )typ_id__EQJG);
            a__JQJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__RTLG=(__UINTEGER_32)((__UINTEGER_32)(sz__FQJG + a__JQJG) & (__UINTEGER_32)(~ a__JQJG));
            ptr_table__OTLG=((__POINTER )(&(table_type[(t__IQJG)])));
            lab_type__QTLG=(__UINTEGER_32)(t__IQJG |  1);
            next__NTLG=((__POINTER )(NULL));
            result__PTLG=((__POINTER *)ptr_table__OTLG)[ 0];
            if ((result__PTLG == (void *)NULL)) {
              result__PTLG=new_lab__RUJ(lab_type__QTLG);
              next__NTLG=(void *)((unsigned long)result__PTLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RTLG)));
              ((__POINTER *)next__NTLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__OTLG)[ 0]=next__NTLG;
            } else {
              next__NTLG=((__POINTER *)result__PTLG)[ 0];
              if ((next__NTLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PTLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__RTLG <<  1)) <=  4096)) {
                  next__NTLG=(void *)((unsigned long)result__PTLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RTLG)));
                } else {
                  next__NTLG=new_lab__RUJ(lab_type__QTLG);
                };
                ((__POINTER *)next__NTLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__OTLG)[ 0]=next__NTLG;
              } else {
                ((__POINTER *)result__PTLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__NTLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__PTLG=next__NTLG;
              };
            };
            ptr__DQJG=result__PTLG;
          };
          result__CQJG=((__LINKED_LISToENTRYo *)ptr__DQJG);
          *(result__CQJG) = *(LINKED_LISToENTRYo__);
        };
        Self__BQJG->parent_abstract_directory__NB.list__21RE=result__CQJG;
        __tmp__XARD=refresh__GBUE(Self__BQJG);
      } else {
        Self__IGSD=((__STD_FILE *)__tmp__VARD);
        Self__IGSD->parent_abstract_file__B3B.parent_entry__A3B=__tmp__WARD;
        Self__IL3F=((__STRING_CONSTANT *)((__ENTRY *)Self__IGSD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.path__2C);
        new__JL3F=create__01(Self__IL3F->count__4C);
        copy__5GQ(new__JL3F,Self__IL3F);
        Self__KWIG=((__STRING *)new__JL3F);
        if ((Self__KWIG->capacity__4FQ > Self__KWIG->count__04B)) {
          Self__KWIG->count__04B=(__INTEGER)(Self__KWIG->count__04B +  1);
          if ((((__CHARACTER *)Self__KWIG->storage__HGQ)[(__INTEGER)(Self__KWIG->count__04B -  1)] != '\0')) {
            ((__CHARACTER *)Self__KWIG->storage__HGQ)[(__INTEGER)(Self__KWIG->count__04B -  1)]='\0';
          };
        } else {
          new_capacity__3QR= 0;
          if ((Self__KWIG->capacity__4FQ <= Self__KWIG->count__04B)) {
            if ((Self__KWIG->capacity__4FQ ==  0)) {
              Self__KWIG->capacity__4FQ= 32;
              Self__KWIG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__3QR=(__INTEGER)(Self__KWIG->capacity__4FQ <<  1);
              Self__FYGG=((__CHARACTER *)Self__KWIG->storage__HGQ);
              old_nb_elts__GYGG=Self__KWIG->capacity__4FQ;
              new__IYGG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__FYGG),((__UINTEGER_32 )old_nb_elts__GYGG),((__UINTEGER_32 )new_capacity__3QR)));
              upper__UK1C=(__INTEGER)(new_capacity__3QR -  1);
              Self__QQBD=old_nb_elts__GYGG;
              while ((Self__QQBD <= upper__UK1C)) {
                new__IYGG[Self__QQBD]='\0';
                Self__QQBD=(__INTEGER)(Self__QQBD +  1);
              };
              Self__KWIG->storage__HGQ=new__IYGG;
              Self__KWIG->capacity__4FQ=new_capacity__3QR;
            };
          };
          ((__CHARACTER *)Self__KWIG->storage__HGQ)[Self__KWIG->count__04B]='\0';
          Self__KWIG->count__04B=(__INTEGER)(Self__KWIG->count__04B +  1);
        };
        Self__KWIG->count__04B=(__INTEGER)(Self__KWIG->count__04B -  1);
        Self__IGSD->stream__QSVD=((__POINTER )(fopen((char*)(Self__KWIG->storage__HGQ),"r+b")));
        __tmp__XARD=(Self__IGSD->stream__QSVD != (void *)NULL);
      };
      if ((! __tmp__XARD)) {
        ((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.child__HY2B=NULL;
      };
      __tmp__RC=((__ENTRY *)Self__15QD->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.child__HY2B;
    } break;
    };
    ent__PB=__tmp__RC;
    if (((void *)__tmp__RC == (void *)NULL)) {
      print__CCD((&__string_125));
      print__CCD(input_name__ZB);
      print__CCD((&__string_127));
    };
    if (__tmp__RC==NULL) {
      __tmp__1C=NULL;
    } else {
      switch (((struct ___OBJ *)__tmp__RC)->__id) {
      case __DIRECTORY__: {
        __tmp__1C=((void *)__tmp__RC);
      } break;
      case __STD_FILE__: {
        __tmp__1C=NULL;
      } break;
      }
    };
    dir__OB=__tmp__1C;
    check_in__begin__5WNC(__tmp__1C,(__INTEGER)(((__STRING_CONSTANT *)((__ENTRY *)((__DIRECTORY *)__tmp__1C)->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.path__2C)->count__4C +  1));
    if (fast_has__ZER(result__ORH,(&__string_106))) {
      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_106)))->first_link__SWAC)->item__P4FD;
      Self__X12F=((__STRING_CONSTANT *)txt__1);
      new__Y12F=create__01(Self__X12F->count__4C);
      copy__5GQ(new__Y12F,Self__X12F);
      copy__5GQ(string_tmp__QH,(&__string_106));
      if (fast_has__ZER(result__ORH,(&__string_88))) {
        append__CRQ(string_tmp__QH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_88)))->first_link__SWAC)->item__P4FD);
      } else {
        append__CRQ(string_tmp__QH,(&__string_128));
      };
      save_file__with__22B(get__TPB(string_tmp__QH),new__Y12F);
    };
    if (fast_has__ZER(result__ORH,(&__string_63))) {
      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_63)))->first_link__SWAC)->item__P4FD;
      Self__GCFD=((__STRING_CONSTANT *)txt__1);
      new__ICFD=create__01(Self__GCFD->count__4C);
      copy__5GQ(new__ICFD,Self__GCFD);
      copy__5GQ(string_tmp__QH,(&__string_63));
      if (fast_has__ZER(result__ORH,(&__string_88))) {
        append__CRQ(string_tmp__QH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_88)))->first_link__SWAC)->item__P4FD);
      } else {
        append__CRQ(string_tmp__QH,(&__string_128));
      };
      save_file__with__22B(get__TPB(string_tmp__QH),new__ICFD);
    };
    if (fast_has__ZER(result__ORH,(&__string_107))) {
      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_107)))->first_link__SWAC)->item__P4FD;
      Self__LWIG=((__STRING *)directory_list__UB);
      i__MWIG=Self__LWIG->count__04B;
      j__OWIG=((__STRING_CONSTANT *)txt__1)->count__4C;
      resize__54X(Self__LWIG,(__INTEGER)(i__MWIG + j__OWIG));
      if (((i__MWIG >  0) && (j__OWIG >  0))) {
        move__to__by__YP4B(Self__LWIG->storage__HGQ, 0,(__INTEGER)(i__MWIG -  1),j__OWIG);
      };
      Self__UTLG=((__CHARACTER *)Self__LWIG->storage__HGQ);
      model__VTLG=((__STRING_CONSTANT *)txt__1)->storage__E5M;
      Self__TTLG=(__INTEGER)(j__OWIG -  1);
      while ((Self__TTLG >=  0)) {
        Self__UTLG[Self__TTLG]=((__CHARACTER *)model__VTLG)[Self__TTLG];
        Self__TTLG=(__INTEGER)(Self__TTLG -  1);
      };
    };
    Self__4ESB=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__ORH);
    node__IFSB=((void **)Self__4ESB->buckets__MFR)[(__INTEGER)(hash_code__LQU((&__string_109)) % Self__4ESB->capacity__HFR)];
    while ((! (((void *)node__IFSB == (void *)NULL) || __infix_equal_equal__GQBB(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__IFSB)->key__YFR,(&__string_109))))) {
      node__IFSB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__IFSB)->next__DGR;
    };
    if (((void *)node__IFSB != (void *)NULL)) {
      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)at__VK2(result__ORH,(&__string_109)))->first_link__SWAC)->item__P4FD;
      append__CRQ(directory_list__UB,txt__1);
    };
    copy__5GQ(string_tmp__QH,(&__string_129));
    if (fast_has__ZER(result__ORH,(&__string_88))) {
      append__CRQ(string_tmp__QH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_88)))->first_link__SWAC)->item__P4FD);
    } else {
      append__CRQ(string_tmp__QH,(&__string_128));
    };
    save_file__with__22B(get__TPB(string_tmp__QH),directory_list__UB);
    if (fast_has__ZER(result__ORH,(&__string_110))) {
      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_110)))->first_link__SWAC)->item__P4FD;
      Self__PWIG=((__STRING *)file_list__WB);
      i__QWIG=Self__PWIG->count__04B;
      j__SWIG=((__STRING_CONSTANT *)txt__1)->count__4C;
      resize__54X(Self__PWIG,(__INTEGER)(i__QWIG + j__SWIG));
      if (((i__QWIG >  0) && (j__SWIG >  0))) {
        move__to__by__YP4B(Self__PWIG->storage__HGQ, 0,(__INTEGER)(i__QWIG -  1),j__SWIG);
      };
      Self__ZTLG=((__CHARACTER *)Self__PWIG->storage__HGQ);
      model__0TLG=((__STRING_CONSTANT *)txt__1)->storage__E5M;
      Self__YTLG=(__INTEGER)(j__SWIG -  1);
      while ((Self__YTLG >=  0)) {
        Self__ZTLG[Self__YTLG]=((__CHARACTER *)model__0TLG)[Self__YTLG];
        Self__YTLG=(__INTEGER)(Self__YTLG -  1);
      };
    };
    if (fast_has__ZER(result__ORH,(&__string_112))) {
      txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_112)))->first_link__SWAC)->item__P4FD;
      append__CRQ(file_list__WB,txt__1);
    };
    copy__5GQ(string_tmp__QH,(&__string_130));
    if (fast_has__ZER(result__ORH,(&__string_88))) {
      append__CRQ(string_tmp__QH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_88)))->first_link__SWAC)->item__P4FD);
    } else {
      append__CRQ(string_tmp__QH,(&__string_128));
    };
    save_file__with__22B(get__TPB(string_tmp__QH),file_list__WB);
  } else {
    if ((! has_suffix__VLQ(input_name__ZB))) {
      copy__5GQ(string_tmp__QH,input_name__ZB);
      append__CRQ(string_tmp__QH,(&__string_115));
      input_name__ZB=get__TPB(string_tmp__QH);
    };
    __tmp__1H=input_name__ZB;
    copy__5GQ(string_tmp__QH,input_name__ZB);
    replace_all__with__HTQ(string_tmp__QH,'\\','/');
    i__UYB=last_index__EMC(string_tmp__QH,'/');
    if ((i__UYB >=  1)) {
      Self__TWIG=((__STRING *)string_tmp__QH);
      if ((i__UYB > Self__TWIG->count__04B)) {
        Self__TWIG->count__04B= 0;
      } else {
        if ((i__UYB >  0)) {
          remove_between__to__4IS(Self__TWIG, 1,i__UYB);
        };
      };
    };
    i__UYB=last_index__EMC(string_tmp__QH,'.');
    Self__3DIG=((__STRING *)string_tmp__QH);
    n__4DIG=(__INTEGER)((__INTEGER)(((__STRING *)string_tmp__QH)->count__04B - i__UYB) +  1);
    if ((n__4DIG > Self__3DIG->count__04B)) {
      Self__3DIG->count__04B= 0;
    } else {
      Self__3DIG->count__04B=(__INTEGER)(Self__3DIG->count__04B - n__4DIG);
    };
    to_upper__UVQ(string_tmp__QH);
    proto_input__AI=create__name__generic_count__2ZB(__tmp__1H,get__TPB(string_tmp__QH));
    go_on__F0B(proto_input__AI);
    if (((void *)output_name__CI == (void *)NULL)) {
      copy__5GQ(string_tmp__QH,((__PROTOTYPE *)proto_input__AI)->parent_named__0H.name__KI);
      if (fast_has__ZER(result__ORH,(&__string_88))) {
        append__CRQ(string_tmp__QH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(result__ORH,(&__string_88)))->first_link__SWAC)->item__P4FD);
      } else {
        append__CRQ(string_tmp__QH,(&__string_128));
      };
      output_name__CI=get__TPB(string_tmp__QH);
    };
    save_file__with__22B(output_name__CI,output_code__RI);
  };
  return( 0);
}

static __STRING* create__01(__INTEGER needed_capacity__21)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __STRING *result__YLB,*Self__PFQ;
  __POINTER ptr__ZLB,ptr_table__3TLG,next__2TLG,result__4TLG;
  __POINTER ptr_table__CULG,next__BULG,result__DULG;
  __INTEGER typ_id__5LB;
  __UINTEGER_32 sz__2LB,a__BEIG,new_size__CEIG,t__GEIG,a__FEIG;
  __UINTEGER_32 new_size__FULG,lab_type__EULG;
  result__YLB=NULL;
  ptr__ZLB=((__POINTER )(NULL));
  typ_id__5LB= 0;
  sz__2LB=((__UINTEGER_32 )sizeof(__STRING));
  if ((sz__2LB ==  0)) {
    result__YLB=STRING__;
  } else {
    typ_id__5LB=-1;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__2LB);
    if ((typ_id__5LB == (__INTEGER)(-  1))) {
      a__BEIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__CEIG=(__UINTEGER_32)((__UINTEGER_32)(sz__2LB + a__BEIG) & (__UINTEGER_32)(~ a__BEIG));
      ptr_table__3TLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CEIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__2TLG=((__POINTER )(NULL));
      result__4TLG=((__POINTER *)ptr_table__3TLG)[ 0];
      if ((result__4TLG == (void *)NULL)) {
        result__4TLG=new_lab__RUJ(new_size__CEIG);
        next__2TLG=(void *)((unsigned long)result__4TLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CEIG)));
        ((__POINTER *)next__2TLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__3TLG)[ 0]=next__2TLG;
      } else {
        next__2TLG=((__POINTER *)result__4TLG)[ 0];
        if ((next__2TLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4TLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CEIG <<  1)) <=  4096)) {
            next__2TLG=(void *)((unsigned long)result__4TLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CEIG)));
          } else {
            next__2TLG=new_lab__RUJ(new_size__CEIG);
          };
          ((__POINTER *)next__2TLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__3TLG)[ 0]=next__2TLG;
        } else {
          ((__POINTER *)result__4TLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__2TLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__4TLG=next__2TLG;
        };
      };
      ptr__ZLB=result__4TLG;
    } else {
      t__GEIG=((__UINTEGER_32 )typ_id__5LB);
      a__FEIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__FULG=(__UINTEGER_32)((__UINTEGER_32)(sz__2LB + a__FEIG) & (__UINTEGER_32)(~ a__FEIG));
      ptr_table__CULG=((__POINTER )(&(table_type[(t__GEIG)])));
      lab_type__EULG=(__UINTEGER_32)(t__GEIG |  1);
      next__BULG=((__POINTER )(NULL));
      result__DULG=((__POINTER *)ptr_table__CULG)[ 0];
      if ((result__DULG == (void *)NULL)) {
        result__DULG=new_lab__RUJ(lab_type__EULG);
        next__BULG=(void *)((unsigned long)result__DULG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FULG)));
        ((__POINTER *)next__BULG)[ 0]=NULL;
        ((__POINTER *)ptr_table__CULG)[ 0]=next__BULG;
      } else {
        next__BULG=((__POINTER *)result__DULG)[ 0];
        if ((next__BULG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DULG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__FULG <<  1)) <=  4096)) {
            next__BULG=(void *)((unsigned long)result__DULG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FULG)));
          } else {
            next__BULG=new_lab__RUJ(lab_type__EULG);
          };
          ((__POINTER *)next__BULG)[ 0]=NULL;
          ((__POINTER *)ptr_table__CULG)[ 0]=next__BULG;
        } else {
          ((__POINTER *)result__DULG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BULG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__DULG=next__BULG;
        };
      };
      ptr__ZLB=result__DULG;
    };
    result__YLB=((__STRING *)ptr__ZLB);
    *(result__YLB) = *(STRING__);
  };
  Self__PFQ=((__STRING *)result__YLB);
  if ((needed_capacity__21 >  0)) {
    if ((Self__PFQ->capacity__4FQ < needed_capacity__21)) {
      Self__PFQ->storage__HGQ=create__D4BB(needed_capacity__21);
      Self__PFQ->capacity__4FQ=needed_capacity__21;
    };
  };
  Self__PFQ->count__04B= 0;
  return(result__YLB);
}

static __POINTER new_lab__RUJ(__UINTEGER_32 t__TUJ)
// ({UINTEGER_32}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 idx__VUJ,pv__2UJ;
  __MEMORY *blc__YUJ,*prev__ZUJ,*Self__GGCG,*Self__JDJG,*prev__KDJG;
  __MEMORY *next__LDJG;
  __POINTER result__0UJ;
  __BOOLEAN __tmp__2VJ;
  idx__VUJ= 0;
  blc__YUJ=NULL;
  prev__ZUJ=NULL;
  pv__2UJ= 0;
  while_do__AGK:
  {
    if ((idx__VUJ < nb_page__DVJ)) {
      blc__YUJ=((__MEMORY *)(last_block[(idx__VUJ)]));
      __tmp__2VJ=(((__UINTEGER_32)(((__MEMORY *)blc__YUJ)->size_and_id__YMB &  4294967292LU) <  4096) || ((__UINTEGER_32)(((__MEMORY *)blc__YUJ)->size_and_id__YMB &  1) ==  1));
    } else {
      __tmp__2VJ=FALSE__;
    };
    if (__tmp__2VJ) {
      idx__VUJ=(__UINTEGER_32)(idx__VUJ +  1);
      goto while_do__AGK;
    };
  };
  if ((idx__VUJ >= nb_page__DVJ)) {
    blc__YUJ=new_page__NE3();
  };
  ((__MEMORY *)blc__YUJ)->size_and_id__YMB=(__UINTEGER_32)(blc__YUJ->size_and_id__YMB -  4096);
  Self__GGCG=((__MEMORY *)blc__YUJ);
  result__0UJ=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__GGCG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__GGCG->size_and_id__YMB &  4294967292LU))))));
  if (((__UINTEGER_32)(((__MEMORY *)blc__YUJ)->size_and_id__YMB &  4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    Self__JDJG=((__MEMORY *)blc__YUJ);
    prev__KDJG=Self__JDJG->previous_free__0MB;
    next__LDJG=Self__JDJG->next_free__ZMB;
    if (((void *)prev__KDJG == (void *)NULL)) {
      first_free__EVRB=next__LDJG;
    } else {
      ((__MEMORY *)prev__KDJG)->next_free__ZMB=next__LDJG;
    };
    if (((void *)next__LDJG != (void *)NULL)) {
      ((__MEMORY *)next__LDJG)->previous_free__0MB=prev__KDJG;
    };
    pv__2UJ=blc__YUJ->previous_linear__XMB;
    if ((pv__2UJ !=  4294967295LU)) {
      prev__ZUJ=((__MEMORY *)(void *)((unsigned long)begin_memory__J0H - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__2UJ))));
      ((__MEMORY *)prev__ZUJ)->size_and_id__YMB=(__UINTEGER_32)((__UINTEGER_32)(prev__ZUJ->size_and_id__YMB + blc__YUJ->size_and_id__YMB) +  8);
      last_block[(idx__VUJ)] = (prev__ZUJ);
    };
  };
  ((__POINTER *)result__0UJ)[ 0]=((__POINTER )t__TUJ);
  return((void *)((unsigned long)result__0UJ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
}

static void** create__4UNB(__INTEGER nb_elements__AVNB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__WRIG,a__VRIG,new_size__XRIG,new_size2__YRIG,a__ZRIG;
  __UINTEGER_32 new_size__0RIG;
  __POINTER result__URIG,ptr_table__CIKG,next__BIKG,result__DIKG;
  __INTEGER Self__NUJC;
  void **Result__4MQB;
  sz__WRIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__AVNB * ((__INTEGER )(sizeof(void *)))));
  result__URIG=((__POINTER )(NULL));
  a__VRIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__XRIG=(__UINTEGER_32)((__UINTEGER_32)(sz__WRIG + a__VRIG) & (__UINTEGER_32)(~ a__VRIG));
  new_size2__YRIG=(__UINTEGER_32)(new_size__XRIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__YRIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__ZRIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__0RIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__YRIG + a__ZRIG) & (__UINTEGER_32)(~ a__ZRIG));
    ptr_table__CIKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0RIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__BIKG=((__POINTER )(NULL));
    result__DIKG=((__POINTER *)ptr_table__CIKG)[ 0];
    if ((result__DIKG == (void *)NULL)) {
      result__DIKG=new_lab__RUJ(new_size__0RIG);
      next__BIKG=(void *)((unsigned long)result__DIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RIG)));
      ((__POINTER *)next__BIKG)[ 0]=NULL;
      ((__POINTER *)ptr_table__CIKG)[ 0]=next__BIKG;
    } else {
      next__BIKG=((__POINTER *)result__DIKG)[ 0];
      if ((next__BIKG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DIKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__0RIG <<  1)) <=  4096)) {
          next__BIKG=(void *)((unsigned long)result__DIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0RIG)));
        } else {
          next__BIKG=new_lab__RUJ(new_size__0RIG);
        };
        ((__POINTER *)next__BIKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__CIKG)[ 0]=next__BIKG;
      } else {
        ((__POINTER *)result__DIKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BIKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__DIKG=next__BIKG;
      };
    };
    ((__POINTER *)result__DIKG)[ 0]=((__POINTER ) 3);
    result__URIG=(void *)((unsigned long)result__DIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__URIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__XRIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__4MQB=((void **)result__URIG);
  Self__NUJC=(__INTEGER)(nb_elements__AVNB -  1);
  while ((Self__NUJC >=  0)) {
    Result__4MQB[Self__NUJC]=NULL;
    Self__NUJC=(__INTEGER)(Self__NUJC -  1);
  };
  return(Result__4MQB);
}

static __INTEGER fast_first_index_of__until__HEC(__CHARACTER *Self__IEC)
// ({NATIVE_ARRAYoExpanded_CHARACTERo}) With resultNo recursive, No inlinable.
{
  __INTEGER idx__UEC;
  idx__UEC= 0;
  while ((! ((idx__UEC >  1024) || ('\0' == Self__IEC[idx__UEC])))) {
    idx__UEC=(__INTEGER)(idx__UEC +  1);
  };
  return(idx__UEC);
}

static __CHARACTER* create__D4BB(__INTEGER nb_elements__F4BB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__ORIG,a__NRIG,new_size__PRIG,new_size2__QRIG,a__RRIG;
  __UINTEGER_32 new_size__SRIG;
  __POINTER result__MRIG,ptr_table__HULG,next__GULG,result__IULG;
  __INTEGER Self__5RGC;
  __CHARACTER *Result__J1GB;
  sz__ORIG=((__UINTEGER_32 )nb_elements__F4BB);
  result__MRIG=((__POINTER )(NULL));
  a__NRIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__PRIG=(__UINTEGER_32)((__UINTEGER_32)(sz__ORIG + a__NRIG) & (__UINTEGER_32)(~ a__NRIG));
  new_size2__QRIG=(__UINTEGER_32)(new_size__PRIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__QRIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__RRIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__SRIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__QRIG + a__RRIG) & (__UINTEGER_32)(~ a__RRIG));
    ptr_table__HULG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SRIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__GULG=((__POINTER )(NULL));
    result__IULG=((__POINTER *)ptr_table__HULG)[ 0];
    if ((result__IULG == (void *)NULL)) {
      result__IULG=new_lab__RUJ(new_size__SRIG);
      next__GULG=(void *)((unsigned long)result__IULG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SRIG)));
      ((__POINTER *)next__GULG)[ 0]=NULL;
      ((__POINTER *)ptr_table__HULG)[ 0]=next__GULG;
    } else {
      next__GULG=((__POINTER *)result__IULG)[ 0];
      if ((next__GULG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IULG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SRIG <<  1)) <=  4096)) {
          next__GULG=(void *)((unsigned long)result__IULG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SRIG)));
        } else {
          next__GULG=new_lab__RUJ(new_size__SRIG);
        };
        ((__POINTER *)next__GULG)[ 0]=NULL;
        ((__POINTER *)ptr_table__HULG)[ 0]=next__GULG;
      } else {
        ((__POINTER *)result__IULG)[ 0]=(void *)((unsigned long)((__POINTER *)next__GULG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__IULG=next__GULG;
      };
    };
    ((__POINTER *)result__IULG)[ 0]=((__POINTER ) 3);
    result__MRIG=(void *)((unsigned long)result__IULG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__MRIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__PRIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__J1GB=((__CHARACTER *)result__MRIG);
  Self__5RGC=(__INTEGER)(nb_elements__F4BB -  1);
  while ((Self__5RGC >=  0)) {
    Result__J1GB[Self__5RGC]='\0';
    Self__5RGC=(__INTEGER)(Self__5RGC -  1);
  };
  return(Result__J1GB);
}

static __POINTER realloc_dynamic__old_size__new_size__HBHC(__POINTER p__JBHC,__UINTEGER_32 old_sz__KBHC,__UINTEGER_32 new_sz__LBHC)
// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
{
  __MEMORY *mem__WBHC,*Self__U3BD,*nxt__Y3BD,*result__Z3BD,*next__H3OD;
  __MEMORY *new_free__G3OD,*prev__HDJG,*next__IDJG;
  __POINTER result__XBHC,result__2RIG,ptr_table__PYH,next__UYH;
  __POINTER result__SYH,p__K2BD,last__NQFD,src__E1BD,dst__F1BD;
  __UINTEGER_32 a__JEHG,old_size__NBHC,old_size2__QBHC,a__NEHG;
  __UINTEGER_32 new_size__TBHC,a__3RIG,new_size__5RIG,new_size2__ASIG;
  __UINTEGER_32 a__BSIG,new_size__CSIG,a__MWH,__tmp__IDHC,sz__33BD;
  __UINTEGER_32 old_size__03BD,prev__I3OD,new_size__L3OD;
  __INTEGER siz__MULG,Self__RULG,siz__J1BD,Self__AOFD;
  __POINTER *na_src__OULG,*na_dst__QULG,*na_src__H1BD,*na_dst__I1BD;
  mem__WBHC=NULL;
  result__XBHC=((__POINTER )(NULL));
  a__JEHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  old_size__NBHC=(__UINTEGER_32)((__UINTEGER_32)(old_sz__KBHC + a__JEHG) & (__UINTEGER_32)(~ a__JEHG));
  old_size2__QBHC=(__UINTEGER_32)(old_size__NBHC + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  a__NEHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__TBHC=(__UINTEGER_32)((__UINTEGER_32)(new_sz__LBHC + a__NEHG) & (__UINTEGER_32)(~ a__NEHG));
  if ((old_size2__QBHC <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    result__2RIG=((__POINTER )(NULL));
    a__3RIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__5RIG=(__UINTEGER_32)((__UINTEGER_32)(new_size__TBHC + a__3RIG) & (__UINTEGER_32)(~ a__3RIG));
    new_size2__ASIG=(__UINTEGER_32)(new_size__5RIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
    if ((new_size2__ASIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
      a__BSIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__CSIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ASIG + a__BSIG) & (__UINTEGER_32)(~ a__BSIG));
      ptr_table__PYH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CSIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__UYH=((__POINTER )(NULL));
      result__SYH=((__POINTER *)ptr_table__PYH)[ 0];
      if ((result__SYH == (void *)NULL)) {
        result__SYH=new_lab__RUJ(new_size__CSIG);
        next__UYH=(void *)((unsigned long)result__SYH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CSIG)));
        ((__POINTER *)next__UYH)[ 0]=NULL;
        ((__POINTER *)ptr_table__PYH)[ 0]=next__UYH;
      } else {
        next__UYH=((__POINTER *)result__SYH)[ 0];
        if ((next__UYH == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SYH - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CSIG <<  1)) <=  4096)) {
            next__UYH=(void *)((unsigned long)result__SYH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CSIG)));
          } else {
            next__UYH=new_lab__RUJ(new_size__CSIG);
          };
          ((__POINTER *)next__UYH)[ 0]=NULL;
          ((__POINTER *)ptr_table__PYH)[ 0]=next__UYH;
        } else {
          ((__POINTER *)result__SYH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UYH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__SYH=next__UYH;
        };
      };
      ((__POINTER *)result__SYH)[ 0]=((__POINTER ) 3);
      result__2RIG=(void *)((unsigned long)result__SYH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
    } else {
      result__2RIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__5RIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
    };
    result__XBHC=result__2RIG;
    siz__MULG=((__INTEGER )old_size__NBHC);
    siz__MULG=(__INTEGER)(siz__MULG / ((__INTEGER )(sizeof(void *))));
    na_src__OULG=((__POINTER *)p__JBHC);
    na_dst__QULG=((__POINTER *)result__2RIG);
    Self__RULG=(__INTEGER)(siz__MULG -  1);
    while ((Self__RULG >=  0)) {
      na_dst__QULG[Self__RULG]=na_src__OULG[Self__RULG];
      Self__RULG=(__INTEGER)(Self__RULG -  1);
    };
    p__K2BD=(void *)((unsigned long)p__JBHC - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
    a__MWH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    last__NQFD=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__QBHC + a__MWH) & (__UINTEGER_32)(~ a__MWH)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
    ((__POINTER *)p__K2BD)[ 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__NQFD)[ 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__NQFD)[ 0]=p__K2BD;
  } else {
    mem__WBHC=((__MEMORY *)(void *)((unsigned long)p__JBHC - (unsigned long)((__POINTER ) 8)));
    __tmp__IDHC=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__JBHC - (unsigned long)begin_memory__J0H)))) >>  26);
    Self__U3BD=((__MEMORY *)mem__WBHC);
    nxt__Y3BD=NULL;
    result__Z3BD=NULL;
    sz__33BD= 0;
    old_size__03BD=(__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  4294967292LU);
    if ((new_size__TBHC > old_size__03BD)) {
      if ((! ((__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  2) !=  0))) {
        nxt__Y3BD=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__U3BD) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  4294967292LU)))));
        sz__33BD=(__UINTEGER_32)((__UINTEGER_32)(new_size__TBHC - old_size__03BD) -  8);
        if ((((__UINTEGER_32)(((__MEMORY *)nxt__Y3BD)->size_and_id__YMB &  1) ==  0) && ((__UINTEGER_32)(((__MEMORY *)nxt__Y3BD)->size_and_id__YMB &  4294967292LU) >= sz__33BD))) {
          to_busy__index__IZBC(nxt__Y3BD,sz__33BD,__tmp__IDHC);
          Self__U3BD->size_and_id__YMB=(__UINTEGER_32)((__UINTEGER_32)(Self__U3BD->size_and_id__YMB + (__UINTEGER_32)(nxt__Y3BD->size_and_id__YMB &  4294967294LU)) +  8);
          if (((__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  2) !=  0)) {
            last_block[(__tmp__IDHC)] = (Self__U3BD);
          } else {
            nxt__Y3BD=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__U3BD) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  4294967292LU)))));
            ((__MEMORY *)nxt__Y3BD)->previous_linear__XMB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__U3BD) - (unsigned long)begin_memory__J0H))));
          };
          result__Z3BD=Self__U3BD;
        };
      };
      if (((void *)result__Z3BD == (void *)NULL)) {
        result__Z3BD=search__BURB(new_size__TBHC);
        src__E1BD=(void *)((unsigned long)((__POINTER )Self__U3BD) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
        dst__F1BD=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z3BD)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
        siz__J1BD=((__INTEGER )old_size__03BD);
        siz__J1BD=(__INTEGER)(siz__J1BD / ((__INTEGER )(sizeof(void *))));
        na_src__H1BD=((__POINTER *)src__E1BD);
        na_dst__I1BD=((__POINTER *)dst__F1BD);
        Self__AOFD=(__INTEGER)(siz__J1BD -  1);
        while ((Self__AOFD >=  0)) {
          na_dst__I1BD[Self__AOFD]=na_src__H1BD[Self__AOFD];
          Self__AOFD=(__INTEGER)(Self__AOFD -  1);
        };
        prev__I3OD=Self__U3BD->previous_linear__XMB;
        next__H3OD=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__U3BD) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  4294967292LU)))));
        new_free__G3OD=((__MEMORY *)(void *)((unsigned long)begin_memory__J0H - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__I3OD))));
        new_size__L3OD=(__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  4294967294LU);
        if (((prev__I3OD ==  4294967295LU) || ((__UINTEGER_32)(new_free__G3OD->size_and_id__YMB &  1) !=  0))) {
          new_free__G3OD=Self__U3BD;
          Self__U3BD->next_free__ZMB=first_free__EVRB;
          Self__U3BD->previous_free__0MB=NULL;
          if (((void *)first_free__EVRB != (void *)NULL)) {
            ((__MEMORY *)first_free__EVRB)->previous_free__0MB=Self__U3BD;
          };
          first_free__EVRB=Self__U3BD;
        } else {
          new_size__L3OD=(__UINTEGER_32)((__UINTEGER_32)(new_size__L3OD + new_free__G3OD->size_and_id__YMB) +  8);
        };
        if (((! ((__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  2) !=  0)) && ((__UINTEGER_32)(next__H3OD->size_and_id__YMB &  1) ==  0))) {
          new_size__L3OD=(__UINTEGER_32)((__UINTEGER_32)(new_size__L3OD + next__H3OD->size_and_id__YMB) +  8);
          prev__HDJG=next__H3OD->previous_free__0MB;
          next__IDJG=next__H3OD->next_free__ZMB;
          if (((void *)prev__HDJG == (void *)NULL)) {
            first_free__EVRB=next__IDJG;
          } else {
            ((__MEMORY *)prev__HDJG)->next_free__ZMB=next__IDJG;
          };
          if (((void *)next__IDJG != (void *)NULL)) {
            ((__MEMORY *)next__IDJG)->previous_free__0MB=prev__HDJG;
          };
        };
        new_free__G3OD->size_and_id__YMB=new_size__L3OD;
        if (((__UINTEGER_32)(new_free__G3OD->size_and_id__YMB &  2) !=  0)) {
          last_block[(__tmp__IDHC)] = (new_free__G3OD);
        } else {
          next__H3OD=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__U3BD) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__U3BD->size_and_id__YMB &  4294967292LU)))));
          next__H3OD->previous_linear__XMB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__G3OD) - (unsigned long)begin_memory__J0H))));
        };
      };
    } else {
      result__Z3BD=Self__U3BD;
    };
    result__XBHC=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__Z3BD)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  return(result__XBHC);
}

static void add_last__RST(__FAST_ARRAYoSTRINGo *Self__SST,void *element__TST)
// ({FAST_ARRAYoSTRINGo},{NULLxSTRING}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__UST,__tmp__YTT,__tmp__YHAC,Self__BFWD;
  __BOOLEAN __tmp__CTT;
  void **__tmp__XTT,**new__FHAC;
  new_capacity__UST= 0;
  if (((__INTEGER)(Self__SST->parent_arrayed_collection__YDC.upper__1DC +  1) <= (__INTEGER)(Self__SST->parent_arrayed_collection__YDC.capacity__RLR -  1))) {
    Self__SST->parent_arrayed_collection__YDC.upper__1DC=(__INTEGER)(Self__SST->parent_arrayed_collection__YDC.upper__1DC +  1);
    __tmp__CTT=TRUE__;
  } else {
    __tmp__CTT=FALSE__;
  };
  if ((! __tmp__CTT)) {
    if ((Self__SST->parent_arrayed_collection__YDC.capacity__RLR ==  0)) {
      Self__SST->parent_arrayed_collection__YDC.storage__2LR=create__4UNB( 2);
      Self__SST->parent_arrayed_collection__YDC.capacity__RLR= 2;
      Self__SST->parent_arrayed_collection__YDC.upper__1DC= 0;
    } else {
      new_capacity__UST=(__INTEGER)(Self__SST->parent_arrayed_collection__YDC.capacity__RLR <<  1);
      __tmp__XTT=Self__SST->parent_arrayed_collection__YDC.storage__2LR;
      __tmp__YTT=Self__SST->parent_arrayed_collection__YDC.capacity__RLR;
      new__FHAC=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__XTT)),((__UINTEGER_32 )(__INTEGER)(__tmp__YTT * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__UST * ((__INTEGER )(sizeof(void *)))))));
      __tmp__YHAC=(__INTEGER)(new_capacity__UST -  1);
      Self__BFWD=__tmp__YTT;
      while ((Self__BFWD <= __tmp__YHAC)) {
        new__FHAC[Self__BFWD]=NULL;
        Self__BFWD=(__INTEGER)(Self__BFWD +  1);
      };
      Self__SST->parent_arrayed_collection__YDC.storage__2LR=new__FHAC;
      Self__SST->parent_arrayed_collection__YDC.capacity__RLR=new_capacity__UST;
      Self__SST->parent_arrayed_collection__YDC.upper__1DC=(__INTEGER)(Self__SST->parent_arrayed_collection__YDC.upper__1DC +  1);
    };
  };
  ((void **)Self__SST->parent_arrayed_collection__YDC.storage__2LR)[Self__SST->parent_arrayed_collection__YDC.upper__1DC]=element__TST;
}

static __INTEGER prime_number_ceiling__33Z(__INTEGER integer__53Z)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __INTEGER result__B4Z;
  __BOOLEAN __tmp__J4Z,__tmp__W4Z,result__IEAB,__tmp__D5Z,result__0EAB;
  __BOOLEAN __tmp__Q5Z,result__MFAB,__tmp__35Z,result__4FAB,__tmp__KA0;
  __BOOLEAN result__QGAB,__tmp__XA0,result__CHAB,__tmp__EB0;
  __BOOLEAN result__UHAB,__tmp__RB0,result__GIAB,__tmp__4B0;
  __BOOLEAN result__YIAB,__tmp__LC0,result__KJAB,__tmp__YC0;
  __BOOLEAN result__2JAB,__tmp__FD0,result__OKAB,__tmp__SD0;
  __BOOLEAN result__ALAB,__tmp__5D0,result__SLAB,__tmp__ME0;
  __BOOLEAN result__EMAB,__tmp__ZE0,result__WMAB,__tmp__GF0;
  __BOOLEAN result__INAB,__tmp__TF0,result__0NAB,__tmp__AG0;
  __BOOLEAN result__MOAB,__tmp__NG0,result__4OAB,__tmp__0G0;
  __BOOLEAN result__QPAB,__tmp__HH0,result__CQAB,__tmp__UH0;
  __BOOLEAN result__UQAB,__tmp__BI0,result__GRAB,__tmp__OI0;
  __BOOLEAN result__YRAB;
  result__B4Z= 0;
  if ((integer__53Z <=  11)) {
    result__B4Z= 11;
    __tmp__J4Z=TRUE__;
  } else {
    __tmp__J4Z=FALSE__;
  };
  if (__tmp__J4Z) {
    __tmp__W4Z=TRUE__;
  } else {
    result__IEAB=(integer__53Z <=  23);
    if (result__IEAB) {
      result__B4Z= 23;
    };
    __tmp__W4Z=result__IEAB;
  };
  if (__tmp__W4Z) {
    __tmp__D5Z=TRUE__;
  } else {
    result__0EAB=(integer__53Z <=  53);
    if (result__0EAB) {
      result__B4Z= 53;
    };
    __tmp__D5Z=result__0EAB;
  };
  if (__tmp__D5Z) {
    __tmp__Q5Z=TRUE__;
  } else {
    result__MFAB=(integer__53Z <=  97);
    if (result__MFAB) {
      result__B4Z= 97;
    };
    __tmp__Q5Z=result__MFAB;
  };
  if (__tmp__Q5Z) {
    __tmp__35Z=TRUE__;
  } else {
    result__4FAB=(integer__53Z <=  193);
    if (result__4FAB) {
      result__B4Z= 193;
    };
    __tmp__35Z=result__4FAB;
  };
  if (__tmp__35Z) {
    __tmp__KA0=TRUE__;
  } else {
    result__QGAB=(integer__53Z <=  389);
    if (result__QGAB) {
      result__B4Z= 389;
    };
    __tmp__KA0=result__QGAB;
  };
  if (__tmp__KA0) {
    __tmp__XA0=TRUE__;
  } else {
    result__CHAB=(integer__53Z <=  769);
    if (result__CHAB) {
      result__B4Z= 769;
    };
    __tmp__XA0=result__CHAB;
  };
  if (__tmp__XA0) {
    __tmp__EB0=TRUE__;
  } else {
    result__UHAB=(integer__53Z <=  1543);
    if (result__UHAB) {
      result__B4Z= 1543;
    };
    __tmp__EB0=result__UHAB;
  };
  if (__tmp__EB0) {
    __tmp__RB0=TRUE__;
  } else {
    result__GIAB=(integer__53Z <=  3079);
    if (result__GIAB) {
      result__B4Z= 3079;
    };
    __tmp__RB0=result__GIAB;
  };
  if (__tmp__RB0) {
    __tmp__4B0=TRUE__;
  } else {
    result__YIAB=(integer__53Z <=  6151);
    if (result__YIAB) {
      result__B4Z= 6151;
    };
    __tmp__4B0=result__YIAB;
  };
  if (__tmp__4B0) {
    __tmp__LC0=TRUE__;
  } else {
    result__KJAB=(integer__53Z <=  12289);
    if (result__KJAB) {
      result__B4Z= 12289;
    };
    __tmp__LC0=result__KJAB;
  };
  if (__tmp__LC0) {
    __tmp__YC0=TRUE__;
  } else {
    result__2JAB=(integer__53Z <=  24593);
    if (result__2JAB) {
      result__B4Z= 24593;
    };
    __tmp__YC0=result__2JAB;
  };
  if (__tmp__YC0) {
    __tmp__FD0=TRUE__;
  } else {
    result__OKAB=(integer__53Z <=  49157);
    if (result__OKAB) {
      result__B4Z= 49157;
    };
    __tmp__FD0=result__OKAB;
  };
  if (__tmp__FD0) {
    __tmp__SD0=TRUE__;
  } else {
    result__ALAB=(integer__53Z <=  98317);
    if (result__ALAB) {
      result__B4Z= 98317;
    };
    __tmp__SD0=result__ALAB;
  };
  if (__tmp__SD0) {
    __tmp__5D0=TRUE__;
  } else {
    result__SLAB=(integer__53Z <=  196613);
    if (result__SLAB) {
      result__B4Z= 196613;
    };
    __tmp__5D0=result__SLAB;
  };
  if (__tmp__5D0) {
    __tmp__ME0=TRUE__;
  } else {
    result__EMAB=(integer__53Z <=  393241);
    if (result__EMAB) {
      result__B4Z= 393241;
    };
    __tmp__ME0=result__EMAB;
  };
  if (__tmp__ME0) {
    __tmp__ZE0=TRUE__;
  } else {
    result__WMAB=(integer__53Z <=  786433);
    if (result__WMAB) {
      result__B4Z= 786433;
    };
    __tmp__ZE0=result__WMAB;
  };
  if (__tmp__ZE0) {
    __tmp__GF0=TRUE__;
  } else {
    result__INAB=(integer__53Z <=  1572869);
    if (result__INAB) {
      result__B4Z= 1572869;
    };
    __tmp__GF0=result__INAB;
  };
  if (__tmp__GF0) {
    __tmp__TF0=TRUE__;
  } else {
    result__0NAB=(integer__53Z <=  3145739);
    if (result__0NAB) {
      result__B4Z= 3145739;
    };
    __tmp__TF0=result__0NAB;
  };
  if (__tmp__TF0) {
    __tmp__AG0=TRUE__;
  } else {
    result__MOAB=(integer__53Z <=  6291469);
    if (result__MOAB) {
      result__B4Z= 6291469;
    };
    __tmp__AG0=result__MOAB;
  };
  if (__tmp__AG0) {
    __tmp__NG0=TRUE__;
  } else {
    result__4OAB=(integer__53Z <=  12582917);
    if (result__4OAB) {
      result__B4Z= 12582917;
    };
    __tmp__NG0=result__4OAB;
  };
  if (__tmp__NG0) {
    __tmp__0G0=TRUE__;
  } else {
    result__QPAB=(integer__53Z <=  25165843);
    if (result__QPAB) {
      result__B4Z= 25165843;
    };
    __tmp__0G0=result__QPAB;
  };
  if (__tmp__0G0) {
    __tmp__HH0=TRUE__;
  } else {
    result__CQAB=(integer__53Z <=  50331653);
    if (result__CQAB) {
      result__B4Z= 50331653;
    };
    __tmp__HH0=result__CQAB;
  };
  if (__tmp__HH0) {
    __tmp__UH0=TRUE__;
  } else {
    result__UQAB=(integer__53Z <=  100663319);
    if (result__UQAB) {
      result__B4Z= 100663319;
    };
    __tmp__UH0=result__UQAB;
  };
  if (__tmp__UH0) {
    __tmp__BI0=TRUE__;
  } else {
    result__GRAB=(integer__53Z <=  201326611);
    if (result__GRAB) {
      result__B4Z= 201326611;
    };
    __tmp__BI0=result__GRAB;
  };
  if (__tmp__BI0) {
    __tmp__OI0=TRUE__;
  } else {
    result__YRAB=(integer__53Z <=  402653189);
    if (result__YRAB) {
      result__B4Z= 402653189;
    };
    __tmp__OI0=result__YRAB;
  };
  if ((! __tmp__OI0)) {
    if ((integer__53Z <=  805306457)) {
      result__B4Z= 805306457;
    } else {
      result__B4Z= 1610612741;
    };
  };
  return(result__B4Z);
}

static void** create__KG2(__INTEGER nb_elements__MG2)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__XWIG,a__WWIG,new_size__YWIG,new_size2__ZWIG,a__0WIG;
  __UINTEGER_32 new_size__1WIG;
  __POINTER result__VWIG,ptr_table__QQJG,next__PQJG,result__RQJG;
  __INTEGER Self__WYFC;
  void **Result__WRCB;
  sz__XWIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__MG2 * ((__INTEGER )(sizeof(void *)))));
  result__VWIG=((__POINTER )(NULL));
  a__WWIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__YWIG=(__UINTEGER_32)((__UINTEGER_32)(sz__XWIG + a__WWIG) & (__UINTEGER_32)(~ a__WWIG));
  new_size2__ZWIG=(__UINTEGER_32)(new_size__YWIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__ZWIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__0WIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__1WIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZWIG + a__0WIG) & (__UINTEGER_32)(~ a__0WIG));
    ptr_table__QQJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1WIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__PQJG=((__POINTER )(NULL));
    result__RQJG=((__POINTER *)ptr_table__QQJG)[ 0];
    if ((result__RQJG == (void *)NULL)) {
      result__RQJG=new_lab__RUJ(new_size__1WIG);
      next__PQJG=(void *)((unsigned long)result__RQJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1WIG)));
      ((__POINTER *)next__PQJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__QQJG)[ 0]=next__PQJG;
    } else {
      next__PQJG=((__POINTER *)result__RQJG)[ 0];
      if ((next__PQJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RQJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1WIG <<  1)) <=  4096)) {
          next__PQJG=(void *)((unsigned long)result__RQJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1WIG)));
        } else {
          next__PQJG=new_lab__RUJ(new_size__1WIG);
        };
        ((__POINTER *)next__PQJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__QQJG)[ 0]=next__PQJG;
      } else {
        ((__POINTER *)result__RQJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__PQJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__RQJG=next__PQJG;
      };
    };
    ((__POINTER *)result__RQJG)[ 0]=((__POINTER ) 3);
    result__VWIG=(void *)((unsigned long)result__RQJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__VWIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__YWIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__WRCB=((void **)result__VWIG);
  Self__WYFC=(__INTEGER)(nb_elements__MG2 -  1);
  while ((Self__WYFC >=  0)) {
    Result__WRCB[Self__WYFC]=NULL;
    Self__WYFC=(__INTEGER)(Self__WYFC -  1);
  };
  return(Result__WRCB);
}

static void** create__3HQC(__INTEGER nb_elements__5HQC)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__5WIG,a__4WIG,new_size__AXIG,new_size2__BXIG,a__CXIG;
  __UINTEGER_32 new_size__DXIG;
  __POINTER result__3WIG,ptr_table__VQJG,next__UQJG,result__WQJG;
  __INTEGER Self__EEXD;
  void **Result__OZ0C;
  sz__5WIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__5HQC * ((__INTEGER )(sizeof(void *)))));
  result__3WIG=((__POINTER )(NULL));
  a__4WIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__AXIG=(__UINTEGER_32)((__UINTEGER_32)(sz__5WIG + a__4WIG) & (__UINTEGER_32)(~ a__4WIG));
  new_size2__BXIG=(__UINTEGER_32)(new_size__AXIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__BXIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__CXIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__DXIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__BXIG + a__CXIG) & (__UINTEGER_32)(~ a__CXIG));
    ptr_table__VQJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DXIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__UQJG=((__POINTER )(NULL));
    result__WQJG=((__POINTER *)ptr_table__VQJG)[ 0];
    if ((result__WQJG == (void *)NULL)) {
      result__WQJG=new_lab__RUJ(new_size__DXIG);
      next__UQJG=(void *)((unsigned long)result__WQJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DXIG)));
      ((__POINTER *)next__UQJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__VQJG)[ 0]=next__UQJG;
    } else {
      next__UQJG=((__POINTER *)result__WQJG)[ 0];
      if ((next__UQJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WQJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__DXIG <<  1)) <=  4096)) {
          next__UQJG=(void *)((unsigned long)result__WQJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DXIG)));
        } else {
          next__UQJG=new_lab__RUJ(new_size__DXIG);
        };
        ((__POINTER *)next__UQJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__VQJG)[ 0]=next__UQJG;
      } else {
        ((__POINTER *)result__WQJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__UQJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__WQJG=next__UQJG;
      };
    };
    ((__POINTER *)result__WQJG)[ 0]=((__POINTER ) 3);
    result__3WIG=(void *)((unsigned long)result__WQJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__3WIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__AXIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__OZ0C=((void **)result__3WIG);
  Self__EEXD=(__INTEGER)(nb_elements__5HQC -  1);
  while ((Self__EEXD >=  0)) {
    Result__OZ0C[Self__EEXD]=NULL;
    Self__EEXD=(__INTEGER)(Self__EEXD -  1);
  };
  return(Result__OZ0C);
}

static void** create__PWOB(__INTEGER nb_elements__RWOB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__HXIG,a__GXIG,new_size__IXIG,new_size2__JXIG,a__KXIG;
  __UINTEGER_32 new_size__LXIG;
  __POINTER result__FXIG,ptr_table__0QJG,next__ZQJG,result__1QJG;
  __INTEGER Self__B4JC;
  void **Result__30RB;
  sz__HXIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__RWOB * ((__INTEGER )(sizeof(void *)))));
  result__FXIG=((__POINTER )(NULL));
  a__GXIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__IXIG=(__UINTEGER_32)((__UINTEGER_32)(sz__HXIG + a__GXIG) & (__UINTEGER_32)(~ a__GXIG));
  new_size2__JXIG=(__UINTEGER_32)(new_size__IXIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__JXIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__KXIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__LXIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__JXIG + a__KXIG) & (__UINTEGER_32)(~ a__KXIG));
    ptr_table__0QJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LXIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__ZQJG=((__POINTER )(NULL));
    result__1QJG=((__POINTER *)ptr_table__0QJG)[ 0];
    if ((result__1QJG == (void *)NULL)) {
      result__1QJG=new_lab__RUJ(new_size__LXIG);
      next__ZQJG=(void *)((unsigned long)result__1QJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LXIG)));
      ((__POINTER *)next__ZQJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__0QJG)[ 0]=next__ZQJG;
    } else {
      next__ZQJG=((__POINTER *)result__1QJG)[ 0];
      if ((next__ZQJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1QJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LXIG <<  1)) <=  4096)) {
          next__ZQJG=(void *)((unsigned long)result__1QJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LXIG)));
        } else {
          next__ZQJG=new_lab__RUJ(new_size__LXIG);
        };
        ((__POINTER *)next__ZQJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__0QJG)[ 0]=next__ZQJG;
      } else {
        ((__POINTER *)result__1QJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZQJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__1QJG=next__ZQJG;
      };
    };
    ((__POINTER *)result__1QJG)[ 0]=((__POINTER ) 3);
    result__FXIG=(void *)((unsigned long)result__1QJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__FXIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__IXIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__30RB=((void **)result__FXIG);
  Self__B4JC=(__INTEGER)(nb_elements__RWOB -  1);
  while ((Self__B4JC >=  0)) {
    Result__30RB[Self__B4JC]=NULL;
    Self__B4JC=(__INTEGER)(Self__B4JC -  1);
  };
  return(Result__30RB);
}

static void** create__TC2(__INTEGER nb_elements__VC2)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__PXIG,a__OXIG,new_size__QXIG,new_size2__RXIG,a__SXIG;
  __UINTEGER_32 new_size__TXIG;
  __POINTER result__NXIG,ptr_table__5QJG,next__4QJG,result__ARJG;
  __INTEGER Self__PXFC;
  void **Result__INCB;
  sz__PXIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__VC2 * ((__INTEGER )(sizeof(void *)))));
  result__NXIG=((__POINTER )(NULL));
  a__OXIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__QXIG=(__UINTEGER_32)((__UINTEGER_32)(sz__PXIG + a__OXIG) & (__UINTEGER_32)(~ a__OXIG));
  new_size2__RXIG=(__UINTEGER_32)(new_size__QXIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__RXIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__SXIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__TXIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__RXIG + a__SXIG) & (__UINTEGER_32)(~ a__SXIG));
    ptr_table__5QJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TXIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__4QJG=((__POINTER )(NULL));
    result__ARJG=((__POINTER *)ptr_table__5QJG)[ 0];
    if ((result__ARJG == (void *)NULL)) {
      result__ARJG=new_lab__RUJ(new_size__TXIG);
      next__4QJG=(void *)((unsigned long)result__ARJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TXIG)));
      ((__POINTER *)next__4QJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__5QJG)[ 0]=next__4QJG;
    } else {
      next__4QJG=((__POINTER *)result__ARJG)[ 0];
      if ((next__4QJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ARJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__TXIG <<  1)) <=  4096)) {
          next__4QJG=(void *)((unsigned long)result__ARJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TXIG)));
        } else {
          next__4QJG=new_lab__RUJ(new_size__TXIG);
        };
        ((__POINTER *)next__4QJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__5QJG)[ 0]=next__4QJG;
      } else {
        ((__POINTER *)result__ARJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__4QJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__ARJG=next__4QJG;
      };
    };
    ((__POINTER *)result__ARJG)[ 0]=((__POINTER ) 3);
    result__NXIG=(void *)((unsigned long)result__ARJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__NXIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__QXIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__INCB=((void **)result__NXIG);
  Self__PXFC=(__INTEGER)(nb_elements__VC2 -  1);
  while ((Self__PXFC >=  0)) {
    Result__INCB[Self__PXFC]=NULL;
    Self__PXFC=(__INTEGER)(Self__PXFC -  1);
  };
  return(Result__INCB);
}

static void** create__RY0(__INTEGER nb_elements__TY0)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__XXIG,a__WXIG,new_size__YXIG,new_size2__ZXIG,a__0XIG;
  __UINTEGER_32 new_size__1XIG;
  __POINTER result__VXIG,ptr_table__ERJG,next__DRJG,result__FRJG;
  __INTEGER Self__LTFC;
  void **Result__OEBB;
  sz__XXIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__TY0 * ((__INTEGER )(sizeof(void *)))));
  result__VXIG=((__POINTER )(NULL));
  a__WXIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__YXIG=(__UINTEGER_32)((__UINTEGER_32)(sz__XXIG + a__WXIG) & (__UINTEGER_32)(~ a__WXIG));
  new_size2__ZXIG=(__UINTEGER_32)(new_size__YXIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__ZXIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__0XIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__1XIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZXIG + a__0XIG) & (__UINTEGER_32)(~ a__0XIG));
    ptr_table__ERJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1XIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__DRJG=((__POINTER )(NULL));
    result__FRJG=((__POINTER *)ptr_table__ERJG)[ 0];
    if ((result__FRJG == (void *)NULL)) {
      result__FRJG=new_lab__RUJ(new_size__1XIG);
      next__DRJG=(void *)((unsigned long)result__FRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1XIG)));
      ((__POINTER *)next__DRJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__ERJG)[ 0]=next__DRJG;
    } else {
      next__DRJG=((__POINTER *)result__FRJG)[ 0];
      if ((next__DRJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FRJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1XIG <<  1)) <=  4096)) {
          next__DRJG=(void *)((unsigned long)result__FRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1XIG)));
        } else {
          next__DRJG=new_lab__RUJ(new_size__1XIG);
        };
        ((__POINTER *)next__DRJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ERJG)[ 0]=next__DRJG;
      } else {
        ((__POINTER *)result__FRJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__DRJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__FRJG=next__DRJG;
      };
    };
    ((__POINTER *)result__FRJG)[ 0]=((__POINTER ) 3);
    result__VXIG=(void *)((unsigned long)result__FRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__VXIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__YXIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__OEBB=((void **)result__VXIG);
  Self__LTFC=(__INTEGER)(nb_elements__TY0 -  1);
  while ((Self__LTFC >=  0)) {
    Result__OEBB[Self__LTFC]=NULL;
    Self__LTFC=(__INTEGER)(Self__LTFC -  1);
  };
  return(Result__OEBB);
}

static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__GMD(__INTEGER new_count__IMD)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __POINTER ptr__TQF,ptr_table__JRJG,next__IRJG,result__KRJG;
  __POINTER ptr_table__ORJG,next__NRJG,result__PRJG;
  __INTEGER typ_id__YQF;
  __UINTEGER_32 sz__VQF,a__VYGG,new_size__WYGG,t__0YGG,a__ZYGG;
  __UINTEGER_32 new_size__RRJG,lab_type__QRJG;
  __FAST_ARRAYoSTRING_CONSTANTo *result__SQF,*Self__EDR;
  result__SQF=NULL;
  ptr__TQF=((__POINTER )(NULL));
  typ_id__YQF= 0;
  sz__VQF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRING_CONSTANTo));
  if ((sz__VQF ==  0)) {
    result__SQF=FAST_ARRAYoSTRING_CONSTANTo__;
  } else {
    typ_id__YQF=__FAST_ARRAYoSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__VQF);
    if ((typ_id__YQF == (__INTEGER)(-  1))) {
      a__VYGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__WYGG=(__UINTEGER_32)((__UINTEGER_32)(sz__VQF + a__VYGG) & (__UINTEGER_32)(~ a__VYGG));
      ptr_table__JRJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WYGG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__IRJG=((__POINTER )(NULL));
      result__KRJG=((__POINTER *)ptr_table__JRJG)[ 0];
      if ((result__KRJG == (void *)NULL)) {
        result__KRJG=new_lab__RUJ(new_size__WYGG);
        next__IRJG=(void *)((unsigned long)result__KRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WYGG)));
        ((__POINTER *)next__IRJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__JRJG)[ 0]=next__IRJG;
      } else {
        next__IRJG=((__POINTER *)result__KRJG)[ 0];
        if ((next__IRJG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KRJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__WYGG <<  1)) <=  4096)) {
            next__IRJG=(void *)((unsigned long)result__KRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WYGG)));
          } else {
            next__IRJG=new_lab__RUJ(new_size__WYGG);
          };
          ((__POINTER *)next__IRJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__JRJG)[ 0]=next__IRJG;
        } else {
          ((__POINTER *)result__KRJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__IRJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__KRJG=next__IRJG;
        };
      };
      ptr__TQF=result__KRJG;
    } else {
      t__0YGG=((__UINTEGER_32 )typ_id__YQF);
      a__ZYGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__RRJG=(__UINTEGER_32)((__UINTEGER_32)(sz__VQF + a__ZYGG) & (__UINTEGER_32)(~ a__ZYGG));
      ptr_table__ORJG=((__POINTER )(&(table_type[(t__0YGG)])));
      lab_type__QRJG=(__UINTEGER_32)(t__0YGG |  1);
      next__NRJG=((__POINTER )(NULL));
      result__PRJG=((__POINTER *)ptr_table__ORJG)[ 0];
      if ((result__PRJG == (void *)NULL)) {
        result__PRJG=new_lab__RUJ(lab_type__QRJG);
        next__NRJG=(void *)((unsigned long)result__PRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RRJG)));
        ((__POINTER *)next__NRJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ORJG)[ 0]=next__NRJG;
      } else {
        next__NRJG=((__POINTER *)result__PRJG)[ 0];
        if ((next__NRJG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PRJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__RRJG <<  1)) <=  4096)) {
            next__NRJG=(void *)((unsigned long)result__PRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RRJG)));
          } else {
            next__NRJG=new_lab__RUJ(lab_type__QRJG);
          };
          ((__POINTER *)next__NRJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__ORJG)[ 0]=next__NRJG;
        } else {
          ((__POINTER *)result__PRJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__NRJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__PRJG=next__NRJG;
        };
      };
      ptr__TQF=result__PRJG;
    };
    result__SQF=((__FAST_ARRAYoSTRING_CONSTANTo *)ptr__TQF);
    *(result__SQF) = *(FAST_ARRAYoSTRING_CONSTANTo__);
  };
  Self__EDR=((__FAST_ARRAYoSTRING_CONSTANTo *)result__SQF);
  if ((Self__EDR->parent_arrayed_collection__30B.capacity__5XQ < new_count__IMD)) {
    Self__EDR->parent_arrayed_collection__30B.storage__WDR=create__JYMB(new_count__IMD);
    Self__EDR->parent_arrayed_collection__30B.capacity__5XQ=new_count__IMD;
  };
  Self__EDR->parent_arrayed_collection__30B.upper__I5N=(__INTEGER)(-  1);
  return(result__SQF);
}

static void** create__0DOB(__INTEGER nb_elements__2DOB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__5XIG,a__4XIG,new_size__AYIG,new_size2__BYIG,a__CYIG;
  __UINTEGER_32 new_size__DYIG;
  __POINTER result__3XIG,ptr_table__TRJG,next__SRJG,result__URJG;
  __INTEGER Self__CYJC;
  void **Result__XHRB;
  sz__5XIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__2DOB * ((__INTEGER )(sizeof(void *)))));
  result__3XIG=((__POINTER )(NULL));
  a__4XIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__AYIG=(__UINTEGER_32)((__UINTEGER_32)(sz__5XIG + a__4XIG) & (__UINTEGER_32)(~ a__4XIG));
  new_size2__BYIG=(__UINTEGER_32)(new_size__AYIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__BYIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__CYIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__DYIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__BYIG + a__CYIG) & (__UINTEGER_32)(~ a__CYIG));
    ptr_table__TRJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DYIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__SRJG=((__POINTER )(NULL));
    result__URJG=((__POINTER *)ptr_table__TRJG)[ 0];
    if ((result__URJG == (void *)NULL)) {
      result__URJG=new_lab__RUJ(new_size__DYIG);
      next__SRJG=(void *)((unsigned long)result__URJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DYIG)));
      ((__POINTER *)next__SRJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__TRJG)[ 0]=next__SRJG;
    } else {
      next__SRJG=((__POINTER *)result__URJG)[ 0];
      if ((next__SRJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__URJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__DYIG <<  1)) <=  4096)) {
          next__SRJG=(void *)((unsigned long)result__URJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DYIG)));
        } else {
          next__SRJG=new_lab__RUJ(new_size__DYIG);
        };
        ((__POINTER *)next__SRJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__TRJG)[ 0]=next__SRJG;
      } else {
        ((__POINTER *)result__URJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__SRJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__URJG=next__SRJG;
      };
    };
    ((__POINTER *)result__URJG)[ 0]=((__POINTER ) 3);
    result__3XIG=(void *)((unsigned long)result__URJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__3XIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__AYIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__XHRB=((void **)result__3XIG);
  Self__CYJC=(__INTEGER)(nb_elements__2DOB -  1);
  while ((Self__CYJC >=  0)) {
    Result__XHRB[Self__CYJC]=NULL;
    Self__CYJC=(__INTEGER)(Self__CYJC -  1);
  };
  return(Result__XHRB);
}

static void** create__SP5(__INTEGER nb_elements__UP5)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__HYIG,a__GYIG,new_size__IYIG,new_size2__JYIG,a__KYIG;
  __UINTEGER_32 new_size__LYIG;
  __POINTER result__FYIG,ptr_table__YRJG,next__XRJG,result__ZRJG;
  __INTEGER Self__GMGC;
  void **Result__LZFB;
  sz__HYIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__UP5 * ((__INTEGER )(sizeof(void *)))));
  result__FYIG=((__POINTER )(NULL));
  a__GYIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__IYIG=(__UINTEGER_32)((__UINTEGER_32)(sz__HYIG + a__GYIG) & (__UINTEGER_32)(~ a__GYIG));
  new_size2__JYIG=(__UINTEGER_32)(new_size__IYIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__JYIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__KYIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__LYIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__JYIG + a__KYIG) & (__UINTEGER_32)(~ a__KYIG));
    ptr_table__YRJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LYIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__XRJG=((__POINTER )(NULL));
    result__ZRJG=((__POINTER *)ptr_table__YRJG)[ 0];
    if ((result__ZRJG == (void *)NULL)) {
      result__ZRJG=new_lab__RUJ(new_size__LYIG);
      next__XRJG=(void *)((unsigned long)result__ZRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LYIG)));
      ((__POINTER *)next__XRJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__YRJG)[ 0]=next__XRJG;
    } else {
      next__XRJG=((__POINTER *)result__ZRJG)[ 0];
      if ((next__XRJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZRJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LYIG <<  1)) <=  4096)) {
          next__XRJG=(void *)((unsigned long)result__ZRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LYIG)));
        } else {
          next__XRJG=new_lab__RUJ(new_size__LYIG);
        };
        ((__POINTER *)next__XRJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__YRJG)[ 0]=next__XRJG;
      } else {
        ((__POINTER *)result__ZRJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__XRJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__ZRJG=next__XRJG;
      };
    };
    ((__POINTER *)result__ZRJG)[ 0]=((__POINTER ) 3);
    result__FYIG=(void *)((unsigned long)result__ZRJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__FYIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__IYIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__LZFB=((void **)result__FYIG);
  Self__GMGC=(__INTEGER)(nb_elements__UP5 -  1);
  while ((Self__GMGC >=  0)) {
    Result__LZFB[Self__GMGC]=NULL;
    Self__GMGC=(__INTEGER)(Self__GMGC -  1);
  };
  return(Result__LZFB);
}

static void** create__A3TB(__INTEGER nb_elements__C3TB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__PYIG,a__OYIG,new_size__QYIG,new_size2__RYIG,a__SYIG;
  __UINTEGER_32 new_size__TYIG;
  __POINTER result__NYIG,ptr_table__3RJG,next__2RJG,result__4RJG;
  __INTEGER Self__YPLC;
  void **Result__SJXB;
  sz__PYIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__C3TB * ((__INTEGER )(sizeof(void *)))));
  result__NYIG=((__POINTER )(NULL));
  a__OYIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__QYIG=(__UINTEGER_32)((__UINTEGER_32)(sz__PYIG + a__OYIG) & (__UINTEGER_32)(~ a__OYIG));
  new_size2__RYIG=(__UINTEGER_32)(new_size__QYIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__RYIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__SYIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__TYIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__RYIG + a__SYIG) & (__UINTEGER_32)(~ a__SYIG));
    ptr_table__3RJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TYIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__2RJG=((__POINTER )(NULL));
    result__4RJG=((__POINTER *)ptr_table__3RJG)[ 0];
    if ((result__4RJG == (void *)NULL)) {
      result__4RJG=new_lab__RUJ(new_size__TYIG);
      next__2RJG=(void *)((unsigned long)result__4RJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TYIG)));
      ((__POINTER *)next__2RJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__3RJG)[ 0]=next__2RJG;
    } else {
      next__2RJG=((__POINTER *)result__4RJG)[ 0];
      if ((next__2RJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4RJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__TYIG <<  1)) <=  4096)) {
          next__2RJG=(void *)((unsigned long)result__4RJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TYIG)));
        } else {
          next__2RJG=new_lab__RUJ(new_size__TYIG);
        };
        ((__POINTER *)next__2RJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__3RJG)[ 0]=next__2RJG;
      } else {
        ((__POINTER *)result__4RJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__2RJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__4RJG=next__2RJG;
      };
    };
    ((__POINTER *)result__4RJG)[ 0]=((__POINTER ) 3);
    result__NYIG=(void *)((unsigned long)result__4RJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__NYIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__QYIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__SJXB=((void **)result__NYIG);
  Self__YPLC=(__INTEGER)(nb_elements__C3TB -  1);
  while ((Self__YPLC >=  0)) {
    Result__SJXB[Self__YPLC]=NULL;
    Self__YPLC=(__INTEGER)(Self__YPLC -  1);
  };
  return(Result__SJXB);
}

static void** create__SL3(__INTEGER nb_elements__UL3)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__XYIG,a__WYIG,new_size__YYIG,new_size2__ZYIG,a__0YIG;
  __UINTEGER_32 new_size__1YIG;
  __POINTER result__VYIG,ptr_table__CSJG,next__BSJG,result__DSJG;
  __INTEGER Self__1CGC;
  void **Result__XTDB;
  sz__XYIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__UL3 * ((__INTEGER )(sizeof(void *)))));
  result__VYIG=((__POINTER )(NULL));
  a__WYIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__YYIG=(__UINTEGER_32)((__UINTEGER_32)(sz__XYIG + a__WYIG) & (__UINTEGER_32)(~ a__WYIG));
  new_size2__ZYIG=(__UINTEGER_32)(new_size__YYIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__ZYIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__0YIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__1YIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZYIG + a__0YIG) & (__UINTEGER_32)(~ a__0YIG));
    ptr_table__CSJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1YIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__BSJG=((__POINTER )(NULL));
    result__DSJG=((__POINTER *)ptr_table__CSJG)[ 0];
    if ((result__DSJG == (void *)NULL)) {
      result__DSJG=new_lab__RUJ(new_size__1YIG);
      next__BSJG=(void *)((unsigned long)result__DSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1YIG)));
      ((__POINTER *)next__BSJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__CSJG)[ 0]=next__BSJG;
    } else {
      next__BSJG=((__POINTER *)result__DSJG)[ 0];
      if ((next__BSJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DSJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1YIG <<  1)) <=  4096)) {
          next__BSJG=(void *)((unsigned long)result__DSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1YIG)));
        } else {
          next__BSJG=new_lab__RUJ(new_size__1YIG);
        };
        ((__POINTER *)next__BSJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__CSJG)[ 0]=next__BSJG;
      } else {
        ((__POINTER *)result__DSJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BSJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__DSJG=next__BSJG;
      };
    };
    ((__POINTER *)result__DSJG)[ 0]=((__POINTER ) 3);
    result__VYIG=(void *)((unsigned long)result__DSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__VYIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__YYIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__XTDB=((void **)result__VYIG);
  Self__1CGC=(__INTEGER)(nb_elements__UL3 -  1);
  while ((Self__1CGC >=  0)) {
    Result__XTDB[Self__1CGC]=NULL;
    Self__1CGC=(__INTEGER)(Self__1CGC -  1);
  };
  return(Result__XTDB);
}

static void fast_put__to__ONS(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__PNS,void *v__QNS,void *k__RNS)
// ({HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo},{NULLxITM_TYPE_SIMPLExITM_TYPE_SELF},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
{
  __INTEGER h__YNS,idx__ZNS,idx__GIMB,new_capacity__HIMB,i__IIMB;
  __INTEGER typ_id__WKMB;
  __POINTER ptr__RKMB,ptr_table__HSJG,next__GSJG,result__ISJG;
  __POINTER ptr_table__MSJG,next__LSJG,result__NSJG;
  __UINTEGER_32 sz__TKMB,a__JZGG,new_size__KZGG,t__OZGG,a__NZGG;
  __UINTEGER_32 new_size__PSJG,lab_type__OSJG;
  void *node__0NS,*node1__KIMB,*node2__LIMB,*__tmp__IPS;
  void **old_buckets__JIMB;
  __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *result__QKMB;
  __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__PV5B;
  h__YNS=hash_code__LQU(k__RNS);
  idx__ZNS=(__INTEGER)(h__YNS % Self__PNS->capacity__MBS);
  node__0NS=((void **)Self__PNS->buckets__RBS)[idx__ZNS];
  while ((! (((void *)node__0NS == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__0NS)->key__3BS == (void *)k__RNS)))) {
    node__0NS=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__0NS)->next__ICS;
  };
  if (((void *)node__0NS == (void *)NULL)) {
    if ((Self__PNS->capacity__MBS == Self__PNS->count__1OS)) {
      idx__GIMB= 0;
      node1__KIMB=NULL;
      node2__LIMB=NULL;
      old_buckets__JIMB=Self__PNS->buckets__RBS;
      new_capacity__HIMB=prime_number_ceiling__33Z((__INTEGER)(Self__PNS->capacity__MBS +  1));
      Self__PNS->buckets__RBS=create__SL3(new_capacity__HIMB);
      i__IIMB=(__INTEGER)(Self__PNS->capacity__MBS -  1);
      Self__PNS->capacity__MBS=new_capacity__HIMB;
      while ((i__IIMB >=  0)) {
        node1__KIMB=((void **)old_buckets__JIMB)[i__IIMB];
        while (((void *)node1__KIMB != (void *)NULL)) {
          node2__LIMB=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__KIMB)->next__ICS;
          idx__GIMB=(__INTEGER)(hash_code__LQU(((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__KIMB)->key__3BS) % Self__PNS->capacity__MBS);
          ((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__KIMB)->next__ICS=((void **)Self__PNS->buckets__RBS)[idx__GIMB];
          ((void **)Self__PNS->buckets__RBS)[idx__GIMB]=node1__KIMB;
          node1__KIMB=node2__LIMB;
        };
        i__IIMB=(__INTEGER)(i__IIMB -  1);
      };
      idx__ZNS=(__INTEGER)(h__YNS % Self__PNS->capacity__MBS);
    };
    __tmp__IPS=((void **)Self__PNS->buckets__RBS)[idx__ZNS];
    result__QKMB=NULL;
    ptr__RKMB=((__POINTER )(NULL));
    typ_id__WKMB= 0;
    sz__TKMB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo));
    if ((sz__TKMB ==  0)) {
      result__QKMB=HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
    } else {
      typ_id__WKMB=__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__TKMB);
      if ((typ_id__WKMB == (__INTEGER)(-  1))) {
        a__JZGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__KZGG=(__UINTEGER_32)((__UINTEGER_32)(sz__TKMB + a__JZGG) & (__UINTEGER_32)(~ a__JZGG));
        ptr_table__HSJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KZGG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__GSJG=((__POINTER )(NULL));
        result__ISJG=((__POINTER *)ptr_table__HSJG)[ 0];
        if ((result__ISJG == (void *)NULL)) {
          result__ISJG=new_lab__RUJ(new_size__KZGG);
          next__GSJG=(void *)((unsigned long)result__ISJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KZGG)));
          ((__POINTER *)next__GSJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__HSJG)[ 0]=next__GSJG;
        } else {
          next__GSJG=((__POINTER *)result__ISJG)[ 0];
          if ((next__GSJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ISJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KZGG <<  1)) <=  4096)) {
              next__GSJG=(void *)((unsigned long)result__ISJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KZGG)));
            } else {
              next__GSJG=new_lab__RUJ(new_size__KZGG);
            };
            ((__POINTER *)next__GSJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__HSJG)[ 0]=next__GSJG;
          } else {
            ((__POINTER *)result__ISJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__GSJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__ISJG=next__GSJG;
          };
        };
        ptr__RKMB=result__ISJG;
      } else {
        t__OZGG=((__UINTEGER_32 )typ_id__WKMB);
        a__NZGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__PSJG=(__UINTEGER_32)((__UINTEGER_32)(sz__TKMB + a__NZGG) & (__UINTEGER_32)(~ a__NZGG));
        ptr_table__MSJG=((__POINTER )(&(table_type[(t__OZGG)])));
        lab_type__OSJG=(__UINTEGER_32)(t__OZGG |  1);
        next__LSJG=((__POINTER )(NULL));
        result__NSJG=((__POINTER *)ptr_table__MSJG)[ 0];
        if ((result__NSJG == (void *)NULL)) {
          result__NSJG=new_lab__RUJ(lab_type__OSJG);
          next__LSJG=(void *)((unsigned long)result__NSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PSJG)));
          ((__POINTER *)next__LSJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__MSJG)[ 0]=next__LSJG;
        } else {
          next__LSJG=((__POINTER *)result__NSJG)[ 0];
          if ((next__LSJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NSJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__PSJG <<  1)) <=  4096)) {
              next__LSJG=(void *)((unsigned long)result__NSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PSJG)));
            } else {
              next__LSJG=new_lab__RUJ(lab_type__OSJG);
            };
            ((__POINTER *)next__LSJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__MSJG)[ 0]=next__LSJG;
          } else {
            ((__POINTER *)result__NSJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__LSJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__NSJG=next__LSJG;
          };
        };
        ptr__RKMB=result__NSJG;
      };
      result__QKMB=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)ptr__RKMB);
      *(result__QKMB) = *(HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__);
    };
    Self__PV5B=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)result__QKMB);
    Self__PV5B->item__QCS=v__QNS;
    Self__PV5B->key__3BS=k__RNS;
    Self__PV5B->next__ICS=__tmp__IPS;
    node__0NS=result__QKMB;
    ((void **)Self__PNS->buckets__RBS)[idx__ZNS]=result__QKMB;
    Self__PNS->count__1OS=(__INTEGER)(Self__PNS->count__1OS +  1);
  } else {
    ((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__0NS)->item__QCS=v__QNS;
  };
}

static void* get__QYI(void *n__SYI)
// ({NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *result__KBS,*result__UYI;
  __ITM_TYPE_SIMPLE *result__EIL;
  __POINTER ptr__FIL,ptr_table__RSJG,next__QSJG,result__SSJG;
  __POINTER ptr_table__WSJG,next__VSJG,result__XSJG;
  __INTEGER typ_id__KIL;
  __UINTEGER_32 sz__HIL,a__RZGG,new_size__SZGG,t__WZGG,a__VZGG;
  __UINTEGER_32 new_size__ZSJG,lab_type__YSJG;
  __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__4AS;
  void *node__JBS;
  Self__4AS=((__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *)dico__YYI);
  result__KBS=NULL;
  node__JBS=((void **)Self__4AS->buckets__RBS)[(__INTEGER)(hash_code__LQU(n__SYI) % Self__4AS->capacity__MBS)];
  while ((! (((void *)node__JBS == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__JBS)->key__3BS == (void *)n__SYI)))) {
    node__JBS=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__JBS)->next__ICS;
  };
  if (((void *)node__JBS != (void *)NULL)) {
    result__KBS=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__JBS)->item__QCS;
  };
  result__UYI=result__KBS;
  if (((void *)result__KBS == (void *)NULL)) {
    result__EIL=NULL;
    ptr__FIL=((__POINTER )(NULL));
    typ_id__KIL= 0;
    sz__HIL=((__UINTEGER_32 )sizeof(__ITM_TYPE_SIMPLE));
    if ((sz__HIL ==  0)) {
      result__EIL=ITM_TYPE_SIMPLE__;
    } else {
      typ_id__KIL=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__HIL);
      if ((typ_id__KIL == (__INTEGER)(-  1))) {
        a__RZGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__SZGG=(__UINTEGER_32)((__UINTEGER_32)(sz__HIL + a__RZGG) & (__UINTEGER_32)(~ a__RZGG));
        ptr_table__RSJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SZGG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__QSJG=((__POINTER )(NULL));
        result__SSJG=((__POINTER *)ptr_table__RSJG)[ 0];
        if ((result__SSJG == (void *)NULL)) {
          result__SSJG=new_lab__RUJ(new_size__SZGG);
          next__QSJG=(void *)((unsigned long)result__SSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SZGG)));
          ((__POINTER *)next__QSJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__RSJG)[ 0]=next__QSJG;
        } else {
          next__QSJG=((__POINTER *)result__SSJG)[ 0];
          if ((next__QSJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SSJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SZGG <<  1)) <=  4096)) {
              next__QSJG=(void *)((unsigned long)result__SSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SZGG)));
            } else {
              next__QSJG=new_lab__RUJ(new_size__SZGG);
            };
            ((__POINTER *)next__QSJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__RSJG)[ 0]=next__QSJG;
          } else {
            ((__POINTER *)result__SSJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__QSJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__SSJG=next__QSJG;
          };
        };
        ptr__FIL=result__SSJG;
      } else {
        t__WZGG=((__UINTEGER_32 )typ_id__KIL);
        a__VZGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__ZSJG=(__UINTEGER_32)((__UINTEGER_32)(sz__HIL + a__VZGG) & (__UINTEGER_32)(~ a__VZGG));
        ptr_table__WSJG=((__POINTER )(&(table_type[(t__WZGG)])));
        lab_type__YSJG=(__UINTEGER_32)(t__WZGG |  1);
        next__VSJG=((__POINTER )(NULL));
        result__XSJG=((__POINTER *)ptr_table__WSJG)[ 0];
        if ((result__XSJG == (void *)NULL)) {
          result__XSJG=new_lab__RUJ(lab_type__YSJG);
          next__VSJG=(void *)((unsigned long)result__XSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZSJG)));
          ((__POINTER *)next__VSJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__WSJG)[ 0]=next__VSJG;
        } else {
          next__VSJG=((__POINTER *)result__XSJG)[ 0];
          if ((next__VSJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XSJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ZSJG <<  1)) <=  4096)) {
              next__VSJG=(void *)((unsigned long)result__XSJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZSJG)));
            } else {
              next__VSJG=new_lab__RUJ(lab_type__YSJG);
            };
            ((__POINTER *)next__VSJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__WSJG)[ 0]=next__VSJG;
          } else {
            ((__POINTER *)result__XSJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__VSJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__XSJG=next__VSJG;
          };
        };
        ptr__FIL=result__XSJG;
      };
      result__EIL=((__ITM_TYPE_SIMPLE *)ptr__FIL);
      *(result__EIL) = *(ITM_TYPE_SIMPLE__);
    };
    ((__ITM_TYPE_SIMPLE *)result__EIL)->name__MEK=n__SYI;
    result__UYI=result__EIL;
    fast_put__to__ONS(dico__YYI,result__EIL,n__SYI);
  };
  return(result__UYI);
}

static void** create__R44C(__INTEGER nb_elements__T44C)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__5YIG,a__4YIG,new_size__AZIG,new_size2__BZIG,a__CZIG;
  __UINTEGER_32 new_size__DZIG;
  __POINTER result__3YIG,ptr_table__1SJG,next__0SJG,result__2SJG;
  __INTEGER Self__YDYD;
  void **Result__N1DD;
  sz__5YIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__T44C * ((__INTEGER )(sizeof(void *)))));
  result__3YIG=((__POINTER )(NULL));
  a__4YIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__AZIG=(__UINTEGER_32)((__UINTEGER_32)(sz__5YIG + a__4YIG) & (__UINTEGER_32)(~ a__4YIG));
  new_size2__BZIG=(__UINTEGER_32)(new_size__AZIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__BZIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__CZIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__DZIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__BZIG + a__CZIG) & (__UINTEGER_32)(~ a__CZIG));
    ptr_table__1SJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DZIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__0SJG=((__POINTER )(NULL));
    result__2SJG=((__POINTER *)ptr_table__1SJG)[ 0];
    if ((result__2SJG == (void *)NULL)) {
      result__2SJG=new_lab__RUJ(new_size__DZIG);
      next__0SJG=(void *)((unsigned long)result__2SJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DZIG)));
      ((__POINTER *)next__0SJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__1SJG)[ 0]=next__0SJG;
    } else {
      next__0SJG=((__POINTER *)result__2SJG)[ 0];
      if ((next__0SJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2SJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__DZIG <<  1)) <=  4096)) {
          next__0SJG=(void *)((unsigned long)result__2SJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DZIG)));
        } else {
          next__0SJG=new_lab__RUJ(new_size__DZIG);
        };
        ((__POINTER *)next__0SJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__1SJG)[ 0]=next__0SJG;
      } else {
        ((__POINTER *)result__2SJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__0SJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__2SJG=next__0SJG;
      };
    };
    ((__POINTER *)result__2SJG)[ 0]=((__POINTER ) 3);
    result__3YIG=(void *)((unsigned long)result__2SJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__3YIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__AZIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__N1DD=((void **)result__3YIG);
  Self__YDYD=(__INTEGER)(nb_elements__T44C -  1);
  while ((Self__YDYD >=  0)) {
    Result__N1DD[Self__YDYD]=NULL;
    Self__YDYD=(__INTEGER)(Self__YDYD -  1);
  };
  return(Result__N1DD);
}

static void** create__R23D(__INTEGER nb_elements__T23D)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__HZIG,a__GZIG,new_size__IZIG,new_size2__JZIG,a__KZIG;
  __UINTEGER_32 new_size__LZIG;
  __POINTER result__FZIG,ptr_table__ATJG,next__5SJG,result__BTJG;
  __INTEGER Self__0WUE;
  void **Result__VVHE;
  sz__HZIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__T23D * ((__INTEGER )(sizeof(void *)))));
  result__FZIG=((__POINTER )(NULL));
  a__GZIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__IZIG=(__UINTEGER_32)((__UINTEGER_32)(sz__HZIG + a__GZIG) & (__UINTEGER_32)(~ a__GZIG));
  new_size2__JZIG=(__UINTEGER_32)(new_size__IZIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__JZIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__KZIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__LZIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__JZIG + a__KZIG) & (__UINTEGER_32)(~ a__KZIG));
    ptr_table__ATJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LZIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__5SJG=((__POINTER )(NULL));
    result__BTJG=((__POINTER *)ptr_table__ATJG)[ 0];
    if ((result__BTJG == (void *)NULL)) {
      result__BTJG=new_lab__RUJ(new_size__LZIG);
      next__5SJG=(void *)((unsigned long)result__BTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LZIG)));
      ((__POINTER *)next__5SJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__ATJG)[ 0]=next__5SJG;
    } else {
      next__5SJG=((__POINTER *)result__BTJG)[ 0];
      if ((next__5SJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BTJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LZIG <<  1)) <=  4096)) {
          next__5SJG=(void *)((unsigned long)result__BTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LZIG)));
        } else {
          next__5SJG=new_lab__RUJ(new_size__LZIG);
        };
        ((__POINTER *)next__5SJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ATJG)[ 0]=next__5SJG;
      } else {
        ((__POINTER *)result__BTJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5SJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__BTJG=next__5SJG;
      };
    };
    ((__POINTER *)result__BTJG)[ 0]=((__POINTER ) 3);
    result__FZIG=(void *)((unsigned long)result__BTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__FZIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__IZIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__VVHE=((void **)result__FZIG);
  Self__0WUE=(__INTEGER)(nb_elements__T23D -  1);
  while ((Self__0WUE >=  0)) {
    Result__VVHE[Self__0WUE]=NULL;
    Self__0WUE=(__INTEGER)(Self__0WUE -  1);
  };
  return(Result__VVHE);
}

static void** create__K0MB(__INTEGER nb_elements__M0MB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__PZIG,a__OZIG,new_size__QZIG,new_size2__RZIG,a__SZIG;
  __UINTEGER_32 new_size__TZIG;
  __POINTER result__NZIG,ptr_table__FTJG,next__ETJG,result__GTJG;
  __INTEGER Self__FJJC;
  void **Result__RXPB;
  sz__PZIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__M0MB * ((__INTEGER )(sizeof(void *)))));
  result__NZIG=((__POINTER )(NULL));
  a__OZIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__QZIG=(__UINTEGER_32)((__UINTEGER_32)(sz__PZIG + a__OZIG) & (__UINTEGER_32)(~ a__OZIG));
  new_size2__RZIG=(__UINTEGER_32)(new_size__QZIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__RZIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__SZIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__TZIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__RZIG + a__SZIG) & (__UINTEGER_32)(~ a__SZIG));
    ptr_table__FTJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TZIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__ETJG=((__POINTER )(NULL));
    result__GTJG=((__POINTER *)ptr_table__FTJG)[ 0];
    if ((result__GTJG == (void *)NULL)) {
      result__GTJG=new_lab__RUJ(new_size__TZIG);
      next__ETJG=(void *)((unsigned long)result__GTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TZIG)));
      ((__POINTER *)next__ETJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__FTJG)[ 0]=next__ETJG;
    } else {
      next__ETJG=((__POINTER *)result__GTJG)[ 0];
      if ((next__ETJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GTJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__TZIG <<  1)) <=  4096)) {
          next__ETJG=(void *)((unsigned long)result__GTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TZIG)));
        } else {
          next__ETJG=new_lab__RUJ(new_size__TZIG);
        };
        ((__POINTER *)next__ETJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__FTJG)[ 0]=next__ETJG;
      } else {
        ((__POINTER *)result__GTJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ETJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__GTJG=next__ETJG;
      };
    };
    ((__POINTER *)result__GTJG)[ 0]=((__POINTER ) 3);
    result__NZIG=(void *)((unsigned long)result__GTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__NZIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__QZIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__RXPB=((void **)result__NZIG);
  Self__FJJC=(__INTEGER)(nb_elements__M0MB -  1);
  while ((Self__FJJC >=  0)) {
    Result__RXPB[Self__FJJC]=NULL;
    Self__FJJC=(__INTEGER)(Self__FJJC -  1);
  };
  return(Result__RXPB);
}

static void** create__OFMB(__INTEGER nb_elements__QFMB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__XZIG,a__WZIG,new_size__YZIG,new_size2__ZZIG,a__0ZIG;
  __UINTEGER_32 new_size__1ZIG;
  __POINTER result__VZIG,ptr_table__KTJG,next__JTJG,result__LTJG;
  __INTEGER Self__JEJC;
  void **Result__5FPB;
  sz__XZIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__QFMB * ((__INTEGER )(sizeof(void *)))));
  result__VZIG=((__POINTER )(NULL));
  a__WZIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__YZIG=(__UINTEGER_32)((__UINTEGER_32)(sz__XZIG + a__WZIG) & (__UINTEGER_32)(~ a__WZIG));
  new_size2__ZZIG=(__UINTEGER_32)(new_size__YZIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__ZZIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__0ZIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__1ZIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZZIG + a__0ZIG) & (__UINTEGER_32)(~ a__0ZIG));
    ptr_table__KTJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1ZIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__JTJG=((__POINTER )(NULL));
    result__LTJG=((__POINTER *)ptr_table__KTJG)[ 0];
    if ((result__LTJG == (void *)NULL)) {
      result__LTJG=new_lab__RUJ(new_size__1ZIG);
      next__JTJG=(void *)((unsigned long)result__LTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1ZIG)));
      ((__POINTER *)next__JTJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__KTJG)[ 0]=next__JTJG;
    } else {
      next__JTJG=((__POINTER *)result__LTJG)[ 0];
      if ((next__JTJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LTJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1ZIG <<  1)) <=  4096)) {
          next__JTJG=(void *)((unsigned long)result__LTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1ZIG)));
        } else {
          next__JTJG=new_lab__RUJ(new_size__1ZIG);
        };
        ((__POINTER *)next__JTJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__KTJG)[ 0]=next__JTJG;
      } else {
        ((__POINTER *)result__LTJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__JTJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__LTJG=next__JTJG;
      };
    };
    ((__POINTER *)result__LTJG)[ 0]=((__POINTER ) 3);
    result__VZIG=(void *)((unsigned long)result__LTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__VZIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__YZIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__5FPB=((void **)result__VZIG);
  Self__JEJC=(__INTEGER)(nb_elements__QFMB -  1);
  while ((Self__JEJC >=  0)) {
    Result__5FPB[Self__JEJC]=NULL;
    Self__JEJC=(__INTEGER)(Self__JEJC -  1);
  };
  return(Result__5FPB);
}

static void** create__4TWB(__INTEGER nb_elements__AUWB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__5ZIG,a__4ZIG,new_size__A0IG,new_size2__B0IG,a__C0IG;
  __UINTEGER_32 new_size__D0IG;
  __POINTER result__3ZIG,ptr_table__PTJG,next__OTJG,result__QTJG;
  __INTEGER Self__JULC;
  void **Result__DPYB;
  sz__5ZIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__AUWB * ((__INTEGER )(sizeof(void *)))));
  result__3ZIG=((__POINTER )(NULL));
  a__4ZIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__A0IG=(__UINTEGER_32)((__UINTEGER_32)(sz__5ZIG + a__4ZIG) & (__UINTEGER_32)(~ a__4ZIG));
  new_size2__B0IG=(__UINTEGER_32)(new_size__A0IG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__B0IG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__C0IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__D0IG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__B0IG + a__C0IG) & (__UINTEGER_32)(~ a__C0IG));
    ptr_table__PTJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__D0IG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__OTJG=((__POINTER )(NULL));
    result__QTJG=((__POINTER *)ptr_table__PTJG)[ 0];
    if ((result__QTJG == (void *)NULL)) {
      result__QTJG=new_lab__RUJ(new_size__D0IG);
      next__OTJG=(void *)((unsigned long)result__QTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D0IG)));
      ((__POINTER *)next__OTJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__PTJG)[ 0]=next__OTJG;
    } else {
      next__OTJG=((__POINTER *)result__QTJG)[ 0];
      if ((next__OTJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QTJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__D0IG <<  1)) <=  4096)) {
          next__OTJG=(void *)((unsigned long)result__QTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D0IG)));
        } else {
          next__OTJG=new_lab__RUJ(new_size__D0IG);
        };
        ((__POINTER *)next__OTJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__PTJG)[ 0]=next__OTJG;
      } else {
        ((__POINTER *)result__QTJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__OTJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__QTJG=next__OTJG;
      };
    };
    ((__POINTER *)result__QTJG)[ 0]=((__POINTER ) 3);
    result__3ZIG=(void *)((unsigned long)result__QTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__3ZIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__A0IG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__DPYB=((void **)result__3ZIG);
  Self__JULC=(__INTEGER)(nb_elements__AUWB -  1);
  while ((Self__JULC >=  0)) {
    Result__DPYB[Self__JULC]=NULL;
    Self__JULC=(__INTEGER)(Self__JULC -  1);
  };
  return(Result__DPYB);
}

static void** create__FR2C(__INTEGER nb_elements__HR2C)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__H0IG,a__G0IG,new_size__I0IG,new_size2__J0IG,a__K0IG;
  __UINTEGER_32 new_size__L0IG;
  __POINTER result__F0IG,ptr_table__UTJG,next__TTJG,result__VTJG;
  __INTEGER Self__02XD;
  void **Result__IICD;
  sz__H0IG=((__UINTEGER_32 )(__INTEGER)(nb_elements__HR2C * ((__INTEGER )(sizeof(void *)))));
  result__F0IG=((__POINTER )(NULL));
  a__G0IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__I0IG=(__UINTEGER_32)((__UINTEGER_32)(sz__H0IG + a__G0IG) & (__UINTEGER_32)(~ a__G0IG));
  new_size2__J0IG=(__UINTEGER_32)(new_size__I0IG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__J0IG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__K0IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__L0IG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__J0IG + a__K0IG) & (__UINTEGER_32)(~ a__K0IG));
    ptr_table__UTJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__L0IG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__TTJG=((__POINTER )(NULL));
    result__VTJG=((__POINTER *)ptr_table__UTJG)[ 0];
    if ((result__VTJG == (void *)NULL)) {
      result__VTJG=new_lab__RUJ(new_size__L0IG);
      next__TTJG=(void *)((unsigned long)result__VTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L0IG)));
      ((__POINTER *)next__TTJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__UTJG)[ 0]=next__TTJG;
    } else {
      next__TTJG=((__POINTER *)result__VTJG)[ 0];
      if ((next__TTJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VTJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__L0IG <<  1)) <=  4096)) {
          next__TTJG=(void *)((unsigned long)result__VTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L0IG)));
        } else {
          next__TTJG=new_lab__RUJ(new_size__L0IG);
        };
        ((__POINTER *)next__TTJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__UTJG)[ 0]=next__TTJG;
      } else {
        ((__POINTER *)result__VTJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__TTJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__VTJG=next__TTJG;
      };
    };
    ((__POINTER *)result__VTJG)[ 0]=((__POINTER ) 3);
    result__F0IG=(void *)((unsigned long)result__VTJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__F0IG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__I0IG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__IICD=((void **)result__F0IG);
  Self__02XD=(__INTEGER)(nb_elements__HR2C -  1);
  while ((Self__02XD >=  0)) {
    Result__IICD[Self__02XD]=NULL;
    Self__02XD=(__INTEGER)(Self__02XD -  1);
  };
  return(Result__IICD);
}

static void** create__T3UC(__INTEGER nb_elements__V3UC)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__P0IG,a__O0IG,new_size__Q0IG,new_size2__R0IG,a__S0IG;
  __UINTEGER_32 new_size__T0IG;
  __POINTER result__N0IG,ptr_table__ZTJG,next__YTJG,result__0TJG;
  __INTEGER Self__CMXD;
  void **Result__QL3C;
  sz__P0IG=((__UINTEGER_32 )(__INTEGER)(nb_elements__V3UC * ((__INTEGER )(sizeof(void *)))));
  result__N0IG=((__POINTER )(NULL));
  a__O0IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__Q0IG=(__UINTEGER_32)((__UINTEGER_32)(sz__P0IG + a__O0IG) & (__UINTEGER_32)(~ a__O0IG));
  new_size2__R0IG=(__UINTEGER_32)(new_size__Q0IG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__R0IG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__S0IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__T0IG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__R0IG + a__S0IG) & (__UINTEGER_32)(~ a__S0IG));
    ptr_table__ZTJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__T0IG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__YTJG=((__POINTER )(NULL));
    result__0TJG=((__POINTER *)ptr_table__ZTJG)[ 0];
    if ((result__0TJG == (void *)NULL)) {
      result__0TJG=new_lab__RUJ(new_size__T0IG);
      next__YTJG=(void *)((unsigned long)result__0TJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T0IG)));
      ((__POINTER *)next__YTJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__ZTJG)[ 0]=next__YTJG;
    } else {
      next__YTJG=((__POINTER *)result__0TJG)[ 0];
      if ((next__YTJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0TJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__T0IG <<  1)) <=  4096)) {
          next__YTJG=(void *)((unsigned long)result__0TJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T0IG)));
        } else {
          next__YTJG=new_lab__RUJ(new_size__T0IG);
        };
        ((__POINTER *)next__YTJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ZTJG)[ 0]=next__YTJG;
      } else {
        ((__POINTER *)result__0TJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__YTJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__0TJG=next__YTJG;
      };
    };
    ((__POINTER *)result__0TJG)[ 0]=((__POINTER ) 3);
    result__N0IG=(void *)((unsigned long)result__0TJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__N0IG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__Q0IG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__QL3C=((void **)result__N0IG);
  Self__CMXD=(__INTEGER)(nb_elements__V3UC -  1);
  while ((Self__CMXD >=  0)) {
    Result__QL3C[Self__CMXD]=NULL;
    Self__CMXD=(__INTEGER)(Self__CMXD -  1);
  };
  return(Result__QL3C);
}

static void** create__2T5C(__INTEGER nb_elements__4T5C)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__X0IG,a__W0IG,new_size__Y0IG,new_size2__Z0IG,a__00IG;
  __UINTEGER_32 new_size__10IG;
  __POINTER result__V0IG,ptr_table__4TJG,next__3TJG,result__5TJG;
  __INTEGER Self__NHYD;
  void **Result__WLED;
  sz__X0IG=((__UINTEGER_32 )(__INTEGER)(nb_elements__4T5C * ((__INTEGER )(sizeof(void *)))));
  result__V0IG=((__POINTER )(NULL));
  a__W0IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__Y0IG=(__UINTEGER_32)((__UINTEGER_32)(sz__X0IG + a__W0IG) & (__UINTEGER_32)(~ a__W0IG));
  new_size2__Z0IG=(__UINTEGER_32)(new_size__Y0IG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__Z0IG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__00IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__10IG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__Z0IG + a__00IG) & (__UINTEGER_32)(~ a__00IG));
    ptr_table__4TJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__10IG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__3TJG=((__POINTER )(NULL));
    result__5TJG=((__POINTER *)ptr_table__4TJG)[ 0];
    if ((result__5TJG == (void *)NULL)) {
      result__5TJG=new_lab__RUJ(new_size__10IG);
      next__3TJG=(void *)((unsigned long)result__5TJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__10IG)));
      ((__POINTER *)next__3TJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__4TJG)[ 0]=next__3TJG;
    } else {
      next__3TJG=((__POINTER *)result__5TJG)[ 0];
      if ((next__3TJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5TJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__10IG <<  1)) <=  4096)) {
          next__3TJG=(void *)((unsigned long)result__5TJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__10IG)));
        } else {
          next__3TJG=new_lab__RUJ(new_size__10IG);
        };
        ((__POINTER *)next__3TJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__4TJG)[ 0]=next__3TJG;
      } else {
        ((__POINTER *)result__5TJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3TJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__5TJG=next__3TJG;
      };
    };
    ((__POINTER *)result__5TJG)[ 0]=((__POINTER ) 3);
    result__V0IG=(void *)((unsigned long)result__5TJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__V0IG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__Y0IG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__WLED=((void **)result__V0IG);
  Self__NHYD=(__INTEGER)(nb_elements__4T5C -  1);
  while ((Self__NHYD >=  0)) {
    Result__WLED[Self__NHYD]=NULL;
    Self__NHYD=(__INTEGER)(Self__NHYD -  1);
  };
  return(Result__WLED);
}

static void** create__LRVC(__INTEGER nb_elements__NRVC)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__50IG,a__40IG,new_size__A1IG,new_size2__B1IG,a__C1IG;
  __UINTEGER_32 new_size__D1IG;
  __POINTER result__30IG,ptr_table__DUJG,next__CUJG,result__EUJG;
  __INTEGER Self__EPXD;
  void **Result__Z13C;
  sz__50IG=((__UINTEGER_32 )(__INTEGER)(nb_elements__NRVC * ((__INTEGER )(sizeof(void *)))));
  result__30IG=((__POINTER )(NULL));
  a__40IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__A1IG=(__UINTEGER_32)((__UINTEGER_32)(sz__50IG + a__40IG) & (__UINTEGER_32)(~ a__40IG));
  new_size2__B1IG=(__UINTEGER_32)(new_size__A1IG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__B1IG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__C1IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__D1IG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__B1IG + a__C1IG) & (__UINTEGER_32)(~ a__C1IG));
    ptr_table__DUJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__D1IG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__CUJG=((__POINTER )(NULL));
    result__EUJG=((__POINTER *)ptr_table__DUJG)[ 0];
    if ((result__EUJG == (void *)NULL)) {
      result__EUJG=new_lab__RUJ(new_size__D1IG);
      next__CUJG=(void *)((unsigned long)result__EUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D1IG)));
      ((__POINTER *)next__CUJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__DUJG)[ 0]=next__CUJG;
    } else {
      next__CUJG=((__POINTER *)result__EUJG)[ 0];
      if ((next__CUJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EUJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__D1IG <<  1)) <=  4096)) {
          next__CUJG=(void *)((unsigned long)result__EUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D1IG)));
        } else {
          next__CUJG=new_lab__RUJ(new_size__D1IG);
        };
        ((__POINTER *)next__CUJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__DUJG)[ 0]=next__CUJG;
      } else {
        ((__POINTER *)result__EUJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CUJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__EUJG=next__CUJG;
      };
    };
    ((__POINTER *)result__EUJG)[ 0]=((__POINTER ) 3);
    result__30IG=(void *)((unsigned long)result__EUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__30IG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__A1IG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__Z13C=((void **)result__30IG);
  Self__EPXD=(__INTEGER)(nb_elements__NRVC -  1);
  while ((Self__EPXD >=  0)) {
    Result__Z13C[Self__EPXD]=NULL;
    Self__EPXD=(__INTEGER)(Self__EPXD -  1);
  };
  return(Result__Z13C);
}

static void** create__OWVC(__INTEGER nb_elements__QWVC)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__H1IG,a__G1IG,new_size__I1IG,new_size2__J1IG,a__K1IG;
  __UINTEGER_32 new_size__L1IG;
  __POINTER result__F1IG,ptr_table__IUJG,next__HUJG,result__JUJG;
  __INTEGER Self__4SXD;
  void **Result__CB4C;
  sz__H1IG=((__UINTEGER_32 )(__INTEGER)(nb_elements__QWVC * ((__INTEGER )(sizeof(void *)))));
  result__F1IG=((__POINTER )(NULL));
  a__G1IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__I1IG=(__UINTEGER_32)((__UINTEGER_32)(sz__H1IG + a__G1IG) & (__UINTEGER_32)(~ a__G1IG));
  new_size2__J1IG=(__UINTEGER_32)(new_size__I1IG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__J1IG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__K1IG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__L1IG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__J1IG + a__K1IG) & (__UINTEGER_32)(~ a__K1IG));
    ptr_table__IUJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__L1IG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__HUJG=((__POINTER )(NULL));
    result__JUJG=((__POINTER *)ptr_table__IUJG)[ 0];
    if ((result__JUJG == (void *)NULL)) {
      result__JUJG=new_lab__RUJ(new_size__L1IG);
      next__HUJG=(void *)((unsigned long)result__JUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L1IG)));
      ((__POINTER *)next__HUJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__IUJG)[ 0]=next__HUJG;
    } else {
      next__HUJG=((__POINTER *)result__JUJG)[ 0];
      if ((next__HUJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JUJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__L1IG <<  1)) <=  4096)) {
          next__HUJG=(void *)((unsigned long)result__JUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L1IG)));
        } else {
          next__HUJG=new_lab__RUJ(new_size__L1IG);
        };
        ((__POINTER *)next__HUJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__IUJG)[ 0]=next__HUJG;
      } else {
        ((__POINTER *)result__JUJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HUJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__JUJG=next__HUJG;
      };
    };
    ((__POINTER *)result__JUJG)[ 0]=((__POINTER ) 3);
    result__F1IG=(void *)((unsigned long)result__JUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__F1IG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__I1IG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__CB4C=((void **)result__F1IG);
  Self__4SXD=(__INTEGER)(nb_elements__QWVC -  1);
  while ((Self__4SXD >=  0)) {
    Result__CB4C[Self__4SXD]=NULL;
    Self__4SXD=(__INTEGER)(Self__4SXD -  1);
  };
  return(Result__CB4C);
}

static void** create__AJ5C(__INTEGER nb_elements__CJ5C)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__JJGB,a__ZZGG,new_size__LJGB,new_size2__OJGB,a__3ZGG;
  __UINTEGER_32 new_size__4ZGG;
  __POINTER result__RJGB,ptr_table__NUJG,next__MUJG,result__OUJG;
  __INTEGER Self__GGYD;
  void **Result__TEED;
  sz__JJGB=((__UINTEGER_32 )(__INTEGER)(nb_elements__CJ5C * ((__INTEGER )(sizeof(void *)))));
  result__RJGB=((__POINTER )(NULL));
  a__ZZGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__LJGB=(__UINTEGER_32)((__UINTEGER_32)(sz__JJGB + a__ZZGG) & (__UINTEGER_32)(~ a__ZZGG));
  new_size2__OJGB=(__UINTEGER_32)(new_size__LJGB + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__OJGB <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__3ZGG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__4ZGG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OJGB + a__3ZGG) & (__UINTEGER_32)(~ a__3ZGG));
    ptr_table__NUJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4ZGG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__MUJG=((__POINTER )(NULL));
    result__OUJG=((__POINTER *)ptr_table__NUJG)[ 0];
    if ((result__OUJG == (void *)NULL)) {
      result__OUJG=new_lab__RUJ(new_size__4ZGG);
      next__MUJG=(void *)((unsigned long)result__OUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4ZGG)));
      ((__POINTER *)next__MUJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__NUJG)[ 0]=next__MUJG;
    } else {
      next__MUJG=((__POINTER *)result__OUJG)[ 0];
      if ((next__MUJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OUJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4ZGG <<  1)) <=  4096)) {
          next__MUJG=(void *)((unsigned long)result__OUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4ZGG)));
        } else {
          next__MUJG=new_lab__RUJ(new_size__4ZGG);
        };
        ((__POINTER *)next__MUJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__NUJG)[ 0]=next__MUJG;
      } else {
        ((__POINTER *)result__OUJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MUJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__OUJG=next__MUJG;
      };
    };
    ((__POINTER *)result__OUJG)[ 0]=((__POINTER ) 3);
    result__RJGB=(void *)((unsigned long)result__OUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__RJGB=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__LJGB))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__TEED=((void **)result__RJGB);
  Self__GGYD=(__INTEGER)(nb_elements__CJ5C -  1);
  while ((Self__GGYD >=  0)) {
    Result__TEED[Self__GGYD]=NULL;
    Self__GGYD=(__INTEGER)(Self__GGYD -  1);
  };
  return(Result__TEED);
}

static __MEMORY* search__BURB(__UINTEGER_32 new_size__DURB)
// ({UINTEGER_32}) With resultNo recursive, No inlinable.
{
  __MEMORY *result__FURB;
  result__FURB=first_free__EVRB;
  while ((((void *)result__FURB != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__FURB)->size_and_id__YMB &  4294967292LU) < new_size__DURB))) {
    result__FURB=result__FURB->next_free__ZMB;
  };
  if (((void *)result__FURB == (void *)NULL)) {
    result__FURB=new_page__NE3();
  };
  to_busy__index__IZBC(result__FURB,new_size__DURB,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__FURB)) - (unsigned long)begin_memory__J0H)))) >>  26));
  return(result__FURB);
}

static void** create__HJ0(__INTEGER nb_elements__JJ0)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__2QIG,a__1QIG,new_size__3QIG,new_size2__4QIG,a__5QIG;
  __UINTEGER_32 new_size__ARIG;
  __POINTER result__0QIG,ptr_table__SUJG,next__RUJG,result__TUJG;
  __INTEGER Self__ESFC;
  void **Result__EUAB;
  sz__2QIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__JJ0 * ((__INTEGER )(sizeof(void *)))));
  result__0QIG=((__POINTER )(NULL));
  a__1QIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__3QIG=(__UINTEGER_32)((__UINTEGER_32)(sz__2QIG + a__1QIG) & (__UINTEGER_32)(~ a__1QIG));
  new_size2__4QIG=(__UINTEGER_32)(new_size__3QIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__4QIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__5QIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__ARIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4QIG + a__5QIG) & (__UINTEGER_32)(~ a__5QIG));
    ptr_table__SUJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ARIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__RUJG=((__POINTER )(NULL));
    result__TUJG=((__POINTER *)ptr_table__SUJG)[ 0];
    if ((result__TUJG == (void *)NULL)) {
      result__TUJG=new_lab__RUJ(new_size__ARIG);
      next__RUJG=(void *)((unsigned long)result__TUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARIG)));
      ((__POINTER *)next__RUJG)[ 0]=NULL;
      ((__POINTER *)ptr_table__SUJG)[ 0]=next__RUJG;
    } else {
      next__RUJG=((__POINTER *)result__TUJG)[ 0];
      if ((next__RUJG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TUJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ARIG <<  1)) <=  4096)) {
          next__RUJG=(void *)((unsigned long)result__TUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARIG)));
        } else {
          next__RUJG=new_lab__RUJ(new_size__ARIG);
        };
        ((__POINTER *)next__RUJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__SUJG)[ 0]=next__RUJG;
      } else {
        ((__POINTER *)result__TUJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__RUJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__TUJG=next__RUJG;
      };
    };
    ((__POINTER *)result__TUJG)[ 0]=((__POINTER ) 3);
    result__0QIG=(void *)((unsigned long)result__TUJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__0QIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__3QIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__EUAB=((void **)result__0QIG);
  Self__ESFC=(__INTEGER)(nb_elements__JJ0 -  1);
  while ((Self__ESFC >=  0)) {
    Result__EUAB[Self__ESFC]=NULL;
    Self__ESFC=(__INTEGER)(Self__ESFC -  1);
  };
  return(Result__EUAB);
}

static void add__O2P(__HASHED_SEToABSTRACT_STRINGo *Self__P2P,void *e__Q2P)
// ({HASHED_SEToABSTRACT_STRINGo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
{
  __INTEGER h__X2P,idx__Y2P,typ_id__YUJG;
  __POINTER ptr__XUJG,ptr_table__CVJG,next__BVJG,result__DVJG;
  __POINTER ptr_table__HVJG,next__GVJG,result__IVJG;
  __UINTEGER_32 sz__ZUJG,a__0UJG,new_size__1UJG,t__2UJG,a__3UJG;
  __UINTEGER_32 new_size__KVJG,lab_type__JVJG;
  void *node__12P,*n__AVJG;
  __HASHED_SET_NODEoABSTRACT_STRINGo *result__WUJG,*Self__4UJG;
  has__JSU(Self__P2P,e__Q2P);
  has__JSU(Self__P2P,e__Q2P);
  h__X2P=hash_code__LQU(e__Q2P);
  idx__Y2P=(__INTEGER)(h__X2P % Self__P2P->capacity__52P);
  node__12P=((void **)Self__P2P->buckets__E3P)[idx__Y2P];
  while ((! (((void *)node__12P == (void *)NULL) || __infix_equal_equal__GQBB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__12P)->item__Q3P,e__Q2P)))) {
    node__12P=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__12P)->next__23P;
  };
  if (((void *)node__12P == (void *)NULL)) {
    if ((Self__P2P->capacity__52P == Self__P2P->count__F4P)) {
      increase_capacity__G5JB(Self__P2P);
      idx__Y2P=(__INTEGER)(h__X2P % Self__P2P->capacity__52P);
    };
    n__AVJG=((void **)Self__P2P->buckets__E3P)[idx__Y2P];
    result__WUJG=NULL;
    ptr__XUJG=((__POINTER )(NULL));
    typ_id__YUJG= 0;
    sz__ZUJG=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoABSTRACT_STRINGo));
    if ((sz__ZUJG ==  0)) {
      result__WUJG=HASHED_SET_NODEoABSTRACT_STRINGo__;
    } else {
      typ_id__YUJG=__HASHED_SET_NODEoABSTRACT_STRINGo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__ZUJG);
      if ((typ_id__YUJG == (__INTEGER)(-  1))) {
        a__0UJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__1UJG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZUJG + a__0UJG) & (__UINTEGER_32)(~ a__0UJG));
        ptr_table__CVJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1UJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__BVJG=((__POINTER )(NULL));
        result__DVJG=((__POINTER *)ptr_table__CVJG)[ 0];
        if ((result__DVJG == (void *)NULL)) {
          result__DVJG=new_lab__RUJ(new_size__1UJG);
          next__BVJG=(void *)((unsigned long)result__DVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UJG)));
          ((__POINTER *)next__BVJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__CVJG)[ 0]=next__BVJG;
        } else {
          next__BVJG=((__POINTER *)result__DVJG)[ 0];
          if ((next__BVJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DVJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1UJG <<  1)) <=  4096)) {
              next__BVJG=(void *)((unsigned long)result__DVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UJG)));
            } else {
              next__BVJG=new_lab__RUJ(new_size__1UJG);
            };
            ((__POINTER *)next__BVJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__CVJG)[ 0]=next__BVJG;
          } else {
            ((__POINTER *)result__DVJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BVJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__DVJG=next__BVJG;
          };
        };
        ptr__XUJG=result__DVJG;
      } else {
        t__2UJG=((__UINTEGER_32 )typ_id__YUJG);
        a__3UJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__KVJG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZUJG + a__3UJG) & (__UINTEGER_32)(~ a__3UJG));
        ptr_table__HVJG=((__POINTER )(&(table_type[(t__2UJG)])));
        lab_type__JVJG=(__UINTEGER_32)(t__2UJG |  1);
        next__GVJG=((__POINTER )(NULL));
        result__IVJG=((__POINTER *)ptr_table__HVJG)[ 0];
        if ((result__IVJG == (void *)NULL)) {
          result__IVJG=new_lab__RUJ(lab_type__JVJG);
          next__GVJG=(void *)((unsigned long)result__IVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KVJG)));
          ((__POINTER *)next__GVJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__HVJG)[ 0]=next__GVJG;
        } else {
          next__GVJG=((__POINTER *)result__IVJG)[ 0];
          if ((next__GVJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IVJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KVJG <<  1)) <=  4096)) {
              next__GVJG=(void *)((unsigned long)result__IVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KVJG)));
            } else {
              next__GVJG=new_lab__RUJ(lab_type__JVJG);
            };
            ((__POINTER *)next__GVJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__HVJG)[ 0]=next__GVJG;
          } else {
            ((__POINTER *)result__IVJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__GVJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__IVJG=next__GVJG;
          };
        };
        ptr__XUJG=result__IVJG;
      };
      result__WUJG=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__XUJG);
      *(result__WUJG) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
    };
    Self__4UJG=((__HASHED_SET_NODEoABSTRACT_STRINGo *)result__WUJG);
    Self__4UJG->item__Q3P=e__Q2P;
    Self__4UJG->next__23P=n__AVJG;
    node__12P=result__WUJG;
    ((void **)Self__P2P->buckets__E3P)[idx__Y2P]=result__WUJG;
    Self__P2P->count__F4P=(__INTEGER)(Self__P2P->count__F4P +  1);
  };
}

static void* operator_to_name__15(void *op__45)
// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  __INTEGER __tmp__GAB,Self__FPB;
  __CHARACTER c__AAB;
  __BOOLEAN __tmp__UAB,__tmp__BBB,result__DZAB,__tmp__OBB,result__VZAB;
  __BOOLEAN __tmp__1BB,result__H0AB,__tmp__ICB,result__Z0AB,__tmp__VCB;
  __BOOLEAN result__L1AB,__tmp__CDB,result__31AB,__tmp__PDB;
  __BOOLEAN result__P2AB,__tmp__2DB,result__B3AB,__tmp__JEB;
  __BOOLEAN result__T3AB,__tmp__WEB,result__F4AB,__tmp__DFB;
  __BOOLEAN result__X4AB,__tmp__QFB,result__J5AB,__tmp__3FB;
  __BOOLEAN result__15AB,__tmp__KGB,result__NABB,__tmp__XGB;
  __BOOLEAN result__5ABB,__tmp__EHB,result__RBBB;
  c__AAB='\0';
  copy__5GQ(string_tmp__QH,(&__string_78));
  __tmp__GAB=((__STRING_CONSTANT *)op__45)->count__4C;
  Self__FPB= 1;
  while ((Self__FPB <= __tmp__GAB)) {
    c__AAB=((__CHARACTER *)((__STRING_CONSTANT *)op__45)->storage__E5M)[(__INTEGER)(Self__FPB -  1)];
    if ((c__AAB == '+')) {
      append__CRQ(string_tmp__QH,(&__string_131));
      __tmp__UAB=TRUE__;
    } else {
      __tmp__UAB=FALSE__;
    };
    if (__tmp__UAB) {
      __tmp__BBB=TRUE__;
    } else {
      result__DZAB=(c__AAB == '-');
      if (result__DZAB) {
        append__CRQ(string_tmp__QH,(&__string_132));
      };
      __tmp__BBB=result__DZAB;
    };
    if (__tmp__BBB) {
      __tmp__OBB=TRUE__;
    } else {
      result__VZAB=(c__AAB == '~');
      if (result__VZAB) {
        append__CRQ(string_tmp__QH,(&__string_133));
      };
      __tmp__OBB=result__VZAB;
    };
    if (__tmp__OBB) {
      __tmp__1BB=TRUE__;
    } else {
      result__H0AB=(c__AAB == '!');
      if (result__H0AB) {
        append__CRQ(string_tmp__QH,(&__string_134));
      };
      __tmp__1BB=result__H0AB;
    };
    if (__tmp__1BB) {
      __tmp__ICB=TRUE__;
    } else {
      result__Z0AB=(c__AAB == '/');
      if (result__Z0AB) {
        append__CRQ(string_tmp__QH,(&__string_135));
      };
      __tmp__ICB=result__Z0AB;
    };
    if (__tmp__ICB) {
      __tmp__VCB=TRUE__;
    } else {
      result__L1AB=(c__AAB == '*');
      if (result__L1AB) {
        append__CRQ(string_tmp__QH,(&__string_136));
      };
      __tmp__VCB=result__L1AB;
    };
    if (__tmp__VCB) {
      __tmp__CDB=TRUE__;
    } else {
      result__31AB=(c__AAB == '^');
      if (result__31AB) {
        append__CRQ(string_tmp__QH,(&__string_137));
      };
      __tmp__CDB=result__31AB;
    };
    if (__tmp__CDB) {
      __tmp__PDB=TRUE__;
    } else {
      result__P2AB=(c__AAB == '%');
      if (result__P2AB) {
        append__CRQ(string_tmp__QH,(&__string_138));
      };
      __tmp__PDB=result__P2AB;
    };
    if (__tmp__PDB) {
      __tmp__2DB=TRUE__;
    } else {
      result__B3AB=(c__AAB == '>');
      if (result__B3AB) {
        append__CRQ(string_tmp__QH,(&__string_139));
      };
      __tmp__2DB=result__B3AB;
    };
    if (__tmp__2DB) {
      __tmp__JEB=TRUE__;
    } else {
      result__T3AB=(c__AAB == '<');
      if (result__T3AB) {
        append__CRQ(string_tmp__QH,(&__string_140));
      };
      __tmp__JEB=result__T3AB;
    };
    if (__tmp__JEB) {
      __tmp__WEB=TRUE__;
    } else {
      result__F4AB=(c__AAB == '=');
      if (result__F4AB) {
        append__CRQ(string_tmp__QH,(&__string_141));
      };
      __tmp__WEB=result__F4AB;
    };
    if (__tmp__WEB) {
      __tmp__DFB=TRUE__;
    } else {
      result__X4AB=(c__AAB == '\\');
      if (result__X4AB) {
        append__CRQ(string_tmp__QH,(&__string_142));
      };
      __tmp__DFB=result__X4AB;
    };
    if (__tmp__DFB) {
      __tmp__QFB=TRUE__;
    } else {
      result__J5AB=(c__AAB == '|');
      if (result__J5AB) {
        append__CRQ(string_tmp__QH,(&__string_143));
      };
      __tmp__QFB=result__J5AB;
    };
    if (__tmp__QFB) {
      __tmp__3FB=TRUE__;
    } else {
      result__15AB=(c__AAB == '&');
      if (result__15AB) {
        append__CRQ(string_tmp__QH,(&__string_144));
      };
      __tmp__3FB=result__15AB;
    };
    if (__tmp__3FB) {
      __tmp__KGB=TRUE__;
    } else {
      result__NABB=(c__AAB == '$');
      if (result__NABB) {
        append__CRQ(string_tmp__QH,(&__string_145));
      };
      __tmp__KGB=result__NABB;
    };
    if (__tmp__KGB) {
      __tmp__XGB=TRUE__;
    } else {
      result__5ABB=(c__AAB == '#');
      if (result__5ABB) {
        append__CRQ(string_tmp__QH,(&__string_146));
      };
      __tmp__XGB=result__5ABB;
    };
    if (__tmp__XGB) {
      __tmp__EHB=TRUE__;
    } else {
      result__RBBB=(c__AAB == '@');
      if (result__RBBB) {
        append__CRQ(string_tmp__QH,(&__string_147));
      };
      __tmp__EHB=result__RBBB;
    };
    if ((! __tmp__EHB)) {
      if ((c__AAB == '?')) {
        append__CRQ(string_tmp__QH,(&__string_148));
      };
    };
    Self__FPB=(__INTEGER)(Self__FPB +  1);
  };
  return(get__TPB(string_tmp__QH));
}

static void print__CCD(__STRING_CONSTANT *Self__DCD)
// ({STRING_CONSTANT}) VoidRecursive, No inlinable.
{
  __INTEGER __tmp__YJF,Self__4EG;
  __CHARACTER *__tmp__N0GG;
  __tmp__YJF=Self__DCD->count__4C;
  Self__4EG= 1;
  __tmp__N0GG=Self__DCD->storage__E5M;
  while ((Self__4EG <= __tmp__YJF)) {
    fputc((int)(((__CHARACTER *)__tmp__N0GG)[(__INTEGER)(Self__4EG -  1)]),stdout);
    Self__4EG=(__INTEGER)(Self__4EG +  1);
  };
}

static void* get__TPB(void *str__VPB)
// ({NULLxSTRING}) With resultNo recursive, No inlinable.
{
  void *result__XPB,*__tmp__VQB;
  void *result__QOQ;
  __STRING_CONSTANT *result__NFD,*result__FIF,*Self__WKR;
  __POINTER ptr__OFD,ptr_table__MVJG,next__LVJG,result__NVJG;
  __POINTER ptr_table__RVJG,next__QVJG,result__SVJG,ptr__2AGB;
  __POINTER ptr_table__WVJG,next__VVJG,result__XVJG,ptr_table__1VJG;
  __POINTER next__0VJG,result__2VJG;
  __INTEGER typ_id__TFD,c__YKR,Self__UULG,h__X4Q,idx__Y4Q,typ_id__BBGB;
  __UINTEGER_32 sz__QFD,a__Z0GG,new_size__00GG,t__40GG,a__30GG;
  __UINTEGER_32 new_size__UVJG,lab_type__TVJG,sz__4AGB,a__JFHG;
  __UINTEGER_32 new_size__KFHG,t__OFHG,a__NFHG,new_size__4VJG;
  __UINTEGER_32 lab_type__3VJG;
  __HASHED_SEToABSTRACT_STRINGo *Self__3NQ,*Self__P4Q;
  void *node__POQ,*node__Z4Q,*n__T35;
  __CHARACTER *Self__VULG,*model__WULG;
  __HASHED_SET_NODEoABSTRACT_STRINGo *result__1AGB,*Self__VY4B;
  result__XPB=NULL;
  Self__3NQ=((__HASHED_SEToABSTRACT_STRINGo *)list__4I);
  result__QOQ=NULL;
  node__POQ=((void **)Self__3NQ->buckets__E3P)[(__INTEGER)(hash_code__VHV(str__VPB) % Self__3NQ->capacity__52P)];
  while ((! (((void *)node__POQ == (void *)NULL) || __infix_equal_equal__GQBB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__POQ)->item__Q3P,str__VPB)))) {
    node__POQ=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__POQ)->next__23P;
  };
  if (((void *)node__POQ != (void *)NULL)) {
    result__QOQ=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__POQ)->item__Q3P;
  };
  if (((void *)result__QOQ == (void *)NULL)) {
    result__NFD=NULL;
    ptr__OFD=((__POINTER )(NULL));
    typ_id__TFD= 0;
    sz__QFD=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
    if ((sz__QFD ==  0)) {
      result__NFD=STRING_CONSTANT__;
    } else {
      typ_id__TFD=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__QFD);
      if ((typ_id__TFD == (__INTEGER)(-  1))) {
        a__Z0GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__00GG=(__UINTEGER_32)((__UINTEGER_32)(sz__QFD + a__Z0GG) & (__UINTEGER_32)(~ a__Z0GG));
        ptr_table__MVJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__00GG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__LVJG=((__POINTER )(NULL));
        result__NVJG=((__POINTER *)ptr_table__MVJG)[ 0];
        if ((result__NVJG == (void *)NULL)) {
          result__NVJG=new_lab__RUJ(new_size__00GG);
          next__LVJG=(void *)((unsigned long)result__NVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__00GG)));
          ((__POINTER *)next__LVJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__MVJG)[ 0]=next__LVJG;
        } else {
          next__LVJG=((__POINTER *)result__NVJG)[ 0];
          if ((next__LVJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NVJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__00GG <<  1)) <=  4096)) {
              next__LVJG=(void *)((unsigned long)result__NVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__00GG)));
            } else {
              next__LVJG=new_lab__RUJ(new_size__00GG);
            };
            ((__POINTER *)next__LVJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__MVJG)[ 0]=next__LVJG;
          } else {
            ((__POINTER *)result__NVJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__LVJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__NVJG=next__LVJG;
          };
        };
        ptr__OFD=result__NVJG;
      } else {
        t__40GG=((__UINTEGER_32 )typ_id__TFD);
        a__30GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__UVJG=(__UINTEGER_32)((__UINTEGER_32)(sz__QFD + a__30GG) & (__UINTEGER_32)(~ a__30GG));
        ptr_table__RVJG=((__POINTER )(&(table_type[(t__40GG)])));
        lab_type__TVJG=(__UINTEGER_32)(t__40GG |  1);
        next__QVJG=((__POINTER )(NULL));
        result__SVJG=((__POINTER *)ptr_table__RVJG)[ 0];
        if ((result__SVJG == (void *)NULL)) {
          result__SVJG=new_lab__RUJ(lab_type__TVJG);
          next__QVJG=(void *)((unsigned long)result__SVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UVJG)));
          ((__POINTER *)next__QVJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__RVJG)[ 0]=next__QVJG;
        } else {
          next__QVJG=((__POINTER *)result__SVJG)[ 0];
          if ((next__QVJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SVJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__UVJG <<  1)) <=  4096)) {
              next__QVJG=(void *)((unsigned long)result__SVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UVJG)));
            } else {
              next__QVJG=new_lab__RUJ(lab_type__TVJG);
            };
            ((__POINTER *)next__QVJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__RVJG)[ 0]=next__QVJG;
          } else {
            ((__POINTER *)result__SVJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__QVJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__SVJG=next__QVJG;
          };
        };
        ptr__OFD=result__SVJG;
      };
      result__NFD=((__STRING_CONSTANT *)ptr__OFD);
      *(result__NFD) = *(STRING_CONSTANT__);
    };
    result__FIF=result__NFD;
    Self__WKR=((__STRING_CONSTANT *)result__NFD);
    c__YKR=((__STRING *)str__VPB)->count__04B;
    if ((c__YKR !=  0)) {
      Self__WKR->storage__E5M=create__D4BB(c__YKR);
      Self__VULG=((__CHARACTER *)Self__WKR->storage__E5M);
      model__WULG=((__STRING *)str__VPB)->storage__HGQ;
      Self__UULG=(__INTEGER)(c__YKR -  1);
      while ((Self__UULG >=  0)) {
        Self__VULG[Self__UULG]=((__CHARACTER *)model__WULG)[Self__UULG];
        Self__UULG=(__INTEGER)(Self__UULG -  1);
      };
      Self__WKR->count__4C=c__YKR;
    };
    result__XPB=result__NFD;
    Self__P4Q=((__HASHED_SEToABSTRACT_STRINGo *)list__4I);
    fast_has__W5V(Self__P4Q,result__NFD);
    fast_has__W5V(Self__P4Q,result__NFD);
    h__X4Q=hash_code__LQU(result__NFD);
    idx__Y4Q=(__INTEGER)(h__X4Q % Self__P4Q->capacity__52P);
    node__Z4Q=((void **)Self__P4Q->buckets__E3P)[idx__Y4Q];
    while ((! (((void *)node__Z4Q == (void *)NULL) || ((void *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__Z4Q)->item__Q3P == (void *)result__FIF)))) {
      node__Z4Q=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__Z4Q)->next__23P;
    };
    if (((void *)node__Z4Q == (void *)NULL)) {
      if ((Self__P4Q->capacity__52P == Self__P4Q->count__F4P)) {
        increase_capacity__G5JB(Self__P4Q);
        idx__Y4Q=(__INTEGER)(h__X4Q % Self__P4Q->capacity__52P);
      };
      n__T35=((void **)Self__P4Q->buckets__E3P)[idx__Y4Q];
      result__1AGB=NULL;
      ptr__2AGB=((__POINTER )(NULL));
      typ_id__BBGB= 0;
      sz__4AGB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoABSTRACT_STRINGo));
      if ((sz__4AGB ==  0)) {
        result__1AGB=HASHED_SET_NODEoABSTRACT_STRINGo__;
      } else {
        typ_id__BBGB=__HASHED_SET_NODEoABSTRACT_STRINGo__;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__4AGB);
        if ((typ_id__BBGB == (__INTEGER)(-  1))) {
          a__JFHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__KFHG=(__UINTEGER_32)((__UINTEGER_32)(sz__4AGB + a__JFHG) & (__UINTEGER_32)(~ a__JFHG));
          ptr_table__WVJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KFHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__VVJG=((__POINTER )(NULL));
          result__XVJG=((__POINTER *)ptr_table__WVJG)[ 0];
          if ((result__XVJG == (void *)NULL)) {
            result__XVJG=new_lab__RUJ(new_size__KFHG);
            next__VVJG=(void *)((unsigned long)result__XVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KFHG)));
            ((__POINTER *)next__VVJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__WVJG)[ 0]=next__VVJG;
          } else {
            next__VVJG=((__POINTER *)result__XVJG)[ 0];
            if ((next__VVJG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XVJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KFHG <<  1)) <=  4096)) {
                next__VVJG=(void *)((unsigned long)result__XVJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KFHG)));
              } else {
                next__VVJG=new_lab__RUJ(new_size__KFHG);
              };
              ((__POINTER *)next__VVJG)[ 0]=NULL;
              ((__POINTER *)ptr_table__WVJG)[ 0]=next__VVJG;
            } else {
              ((__POINTER *)result__XVJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__VVJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__XVJG=next__VVJG;
            };
          };
          ptr__2AGB=result__XVJG;
        } else {
          t__OFHG=((__UINTEGER_32 )typ_id__BBGB);
          a__NFHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__4VJG=(__UINTEGER_32)((__UINTEGER_32)(sz__4AGB + a__NFHG) & (__UINTEGER_32)(~ a__NFHG));
          ptr_table__1VJG=((__POINTER )(&(table_type[(t__OFHG)])));
          lab_type__3VJG=(__UINTEGER_32)(t__OFHG |  1);
          next__0VJG=((__POINTER )(NULL));
          result__2VJG=((__POINTER *)ptr_table__1VJG)[ 0];
          if ((result__2VJG == (void *)NULL)) {
            result__2VJG=new_lab__RUJ(lab_type__3VJG);
            next__0VJG=(void *)((unsigned long)result__2VJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4VJG)));
            ((__POINTER *)next__0VJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__1VJG)[ 0]=next__0VJG;
          } else {
            next__0VJG=((__POINTER *)result__2VJG)[ 0];
            if ((next__0VJG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2VJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4VJG <<  1)) <=  4096)) {
                next__0VJG=(void *)((unsigned long)result__2VJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4VJG)));
              } else {
                next__0VJG=new_lab__RUJ(lab_type__3VJG);
              };
              ((__POINTER *)next__0VJG)[ 0]=NULL;
              ((__POINTER *)ptr_table__1VJG)[ 0]=next__0VJG;
            } else {
              ((__POINTER *)result__2VJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__0VJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__2VJG=next__0VJG;
            };
          };
          ptr__2AGB=result__2VJG;
        };
        result__1AGB=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__2AGB);
        *(result__1AGB) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
      };
      Self__VY4B=((__HASHED_SET_NODEoABSTRACT_STRINGo *)result__1AGB);
      Self__VY4B->item__Q3P=result__NFD;
      Self__VY4B->next__23P=n__T35;
      node__Z4Q=result__1AGB;
      ((void **)Self__P4Q->buckets__E3P)[idx__Y4Q]=result__1AGB;
      Self__P4Q->count__F4P=(__INTEGER)(Self__P4Q->count__F4P +  1);
    };
  } else {
    if (result__QOQ==NULL) {
      __tmp__VQB=NULL;
    } else {
      __tmp__VQB=((void *)result__QOQ);
    };
    result__XPB=__tmp__VQB;
  };
  return(result__XPB);
}

static void copy__5GQ(__STRING *Self__AHQ,void *other__BHQ)
// ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
{
  __INTEGER __tmp__CHQ,Self__ZULG;
  __CHARACTER *__tmp__XHQ,*__tmp__ZHQ,*Self__0ULG,*model__1ULG;
  if (((struct ___OBJ *)other__BHQ)->__id==__STRING_CONSTANT__) {
    __tmp__CHQ=((__STRING_CONSTANT *)other__BHQ)->count__4C;
  } else {
    __tmp__CHQ=((__STRING *)other__BHQ)->count__04B;
  };
  Self__AHQ->count__04B=__tmp__CHQ;
  if ((__tmp__CHQ >  0)) {
    if ((Self__AHQ->capacity__4FQ < __tmp__CHQ)) {
      Self__AHQ->storage__HGQ=create__D4BB(__tmp__CHQ);
      Self__AHQ->capacity__4FQ=Self__AHQ->count__04B;
    };
    __tmp__XHQ=Self__AHQ->storage__HGQ;
    if (((struct ___OBJ *)other__BHQ)->__id==__STRING_CONSTANT__) {
      __tmp__ZHQ=((__STRING_CONSTANT *)other__BHQ)->storage__E5M;
    } else {
      __tmp__ZHQ=((__STRING *)other__BHQ)->storage__HGQ;
    };
    Self__0ULG=((__CHARACTER *)__tmp__XHQ);
    model__1ULG=__tmp__ZHQ;
    Self__ZULG=(__INTEGER)(Self__AHQ->count__04B -  1);
    while ((Self__ZULG >=  0)) {
      Self__0ULG[Self__ZULG]=((__CHARACTER *)model__1ULG)[Self__ZULG];
      Self__ZULG=(__INTEGER)(Self__ZULG -  1);
    };
  };
}

static void append__CRQ(__STRING *Self__DRQ,void *other__ERQ)
// ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
{
  __INTEGER __tmp__NRQ,needed_capacity__GRQ,old_nb_elts__ZR5B;
  __INTEGER upper__CWJG,Self__AWJG,dest__2B3B,src_capacity__3B3B;
  __INTEGER i2__NC3B,i1__MC3B;
  __CHARACTER *Self__YR5B,*new__QS5B,*__tmp__KSQ,*__tmp__LSQ,*Self__0B3B;
  __CHARACTER *src__1B3B;
  if (((struct ___OBJ *)other__ERQ)->__id==__STRING_CONSTANT__) {
    __tmp__NRQ=((__STRING_CONSTANT *)other__ERQ)->count__4C;
  } else {
    __tmp__NRQ=((__STRING *)other__ERQ)->count__04B;
  };
  needed_capacity__GRQ=(__INTEGER)(Self__DRQ->count__04B + __tmp__NRQ);
  if ((Self__DRQ->capacity__4FQ < needed_capacity__GRQ)) {
    if ((Self__DRQ->capacity__4FQ ==  0)) {
      Self__DRQ->capacity__4FQ=needed_capacity__GRQ;
      Self__DRQ->storage__HGQ=create__D4BB(needed_capacity__GRQ);
    } else {
      Self__YR5B=((__CHARACTER *)Self__DRQ->storage__HGQ);
      old_nb_elts__ZR5B=Self__DRQ->capacity__4FQ;
      new__QS5B=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__YR5B),((__UINTEGER_32 )old_nb_elts__ZR5B),((__UINTEGER_32 )needed_capacity__GRQ)));
      upper__CWJG=(__INTEGER)(needed_capacity__GRQ -  1);
      Self__AWJG=old_nb_elts__ZR5B;
      while ((Self__AWJG <= upper__CWJG)) {
        new__QS5B[Self__AWJG]='\0';
        Self__AWJG=(__INTEGER)(Self__AWJG +  1);
      };
      Self__DRQ->storage__HGQ=new__QS5B;
      Self__DRQ->capacity__4FQ=needed_capacity__GRQ;
    };
  };
  __tmp__KSQ=Self__DRQ->storage__HGQ;
  if (((struct ___OBJ *)other__ERQ)->__id==__STRING_CONSTANT__) {
    __tmp__LSQ=((__STRING_CONSTANT *)other__ERQ)->storage__E5M;
  } else {
    __tmp__LSQ=((__STRING *)other__ERQ)->storage__HGQ;
  };
  Self__0B3B=((__CHARACTER *)__tmp__KSQ);
  src__1B3B=__tmp__LSQ;
  dest__2B3B=Self__DRQ->count__04B;
  src_capacity__3B3B=__tmp__NRQ;
  i2__NC3B= 0;
  i1__MC3B=dest__2B3B;
  while ((i2__NC3B != src_capacity__3B3B)) {
    Self__0B3B[i1__MC3B]=((__CHARACTER *)src__1B3B)[i2__NC3B];
    i2__NC3B=(__INTEGER)(i2__NC3B +  1);
    i1__MC3B=(__INTEGER)(i1__MC3B +  1);
  };
  Self__DRQ->count__04B=needed_capacity__GRQ;
}

static void* parent_directory__U3C()
// () With resultNo recursive, No inlinable.
{
  __STRING *Self__N1IG,*Self__U1IG,*Self__W1IG,*Self__Y1IG,*Self__AGIG;
  __STRING *Self__CGIG,*Self__11IG;
  __INTEGER new_capacity__O1IG,old_nb_elts__R1IG,upper__HWJG,Self__FWJG;
  __INTEGER stat__Y0E,i__X0E,Self__0YLB,n__V1IG,idx__J2E,n__X1IG;
  __INTEGER Self__YT1C,n__Z1IG,idx__PAF,new_capacity__01IG;
  __INTEGER old_nb_elts__31IG,upper__MWJG,Self__KWJG,typ_id__0Y1;
  void *result__RBF,*__tmp__R4C;
  __ENTRY *result__UY1;
  __POINTER ptr__VY1,ptr_table__PWJG,next__OWJG,result__QWJG;
  __POINTER ptr_table__UWJG,next__TWJG,result__VWJG;
  __UINTEGER_32 sz__XY1,a__3FHG,new_size__4FHG,t__CGHG,a__BGHG;
  __UINTEGER_32 new_size__XWJG,lab_type__WWJG;
  void *__tmp__C5C,*result__Z3C;
  __CHARACTER *Self__Q1IG,*new__S1IG,*cwd__X3C,*Self__21IG,*new__41IG;
  __CHARACTER car__Z0E,Self__4CSC;
  __BOOLEAN __tmp__A3E,__tmp__F4E,result__5JCB,result__ADSC,__tmp__KDSC;
  __BOOLEAN __tmp__G5E;
  ((__STRING *)string_tmp__03C)->count__04B= 0;
  Self__N1IG=((__STRING *)string_tmp__03C);
  if ((Self__N1IG->capacity__4FQ > Self__N1IG->count__04B)) {
    Self__N1IG->count__04B=(__INTEGER)(Self__N1IG->count__04B +  1);
    if ((((__CHARACTER *)Self__N1IG->storage__HGQ)[(__INTEGER)(Self__N1IG->count__04B -  1)] != '\0')) {
      ((__CHARACTER *)Self__N1IG->storage__HGQ)[(__INTEGER)(Self__N1IG->count__04B -  1)]='\0';
    };
  } else {
    new_capacity__O1IG= 0;
    if ((Self__N1IG->capacity__4FQ <= Self__N1IG->count__04B)) {
      if ((Self__N1IG->capacity__4FQ ==  0)) {
        Self__N1IG->capacity__4FQ= 32;
        Self__N1IG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__O1IG=(__INTEGER)(Self__N1IG->capacity__4FQ <<  1);
        Self__Q1IG=((__CHARACTER *)Self__N1IG->storage__HGQ);
        old_nb_elts__R1IG=Self__N1IG->capacity__4FQ;
        new__S1IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__Q1IG),((__UINTEGER_32 )old_nb_elts__R1IG),((__UINTEGER_32 )new_capacity__O1IG)));
        upper__HWJG=(__INTEGER)(new_capacity__O1IG -  1);
        Self__FWJG=old_nb_elts__R1IG;
        while ((Self__FWJG <= upper__HWJG)) {
          new__S1IG[Self__FWJG]='\0';
          Self__FWJG=(__INTEGER)(Self__FWJG +  1);
        };
        Self__N1IG->storage__HGQ=new__S1IG;
        Self__N1IG->capacity__4FQ=new_capacity__O1IG;
      };
    };
    ((__CHARACTER *)Self__N1IG->storage__HGQ)[Self__N1IG->count__04B]='\0';
    Self__N1IG->count__04B=(__INTEGER)(Self__N1IG->count__04B +  1);
  };
  Self__N1IG->count__04B=(__INTEGER)(Self__N1IG->count__04B -  1);
  cwd__X3C=Self__N1IG->storage__HGQ;
  getcwd((cwd__X3C),255);
  from_external__M2Q(string_tmp__03C,cwd__X3C);
  stat__Y0E= 0;
  car__Z0E='\0';
  replace_all__with__HTQ(string_tmp__03C,'\\','/');
  i__X0E= 1;
  while ((i__X0E <= ((__STRING *)string_tmp__03C)->count__04B)) {
    car__Z0E=((__CHARACTER *)((__STRING *)string_tmp__03C)->storage__HGQ)[(__INTEGER)(i__X0E -  1)];
    if ((car__Z0E == '/')) {
      Self__0YLB=stat__Y0E;
      if ((stat__Y0E ==  0)) {
        stat__Y0E= 1;
      };
      if ((Self__0YLB ==  1)) {
        Self__U1IG=((__STRING *)string_tmp__03C);
        n__V1IG=(__INTEGER)(i__X0E -  1);
        if ((n__V1IG > Self__U1IG->count__04B)) {
          Self__U1IG->count__04B= 0;
        } else {
          if ((n__V1IG >  0)) {
            remove_between__to__4IS(Self__U1IG, 1,n__V1IG);
          };
        };
        i__X0E= 1;
      };
      if ((Self__0YLB ==  2)) {
        remove_between__to__4IS(string_tmp__03C,(__INTEGER)(i__X0E -  1),i__X0E);
        i__X0E=(__INTEGER)(i__X0E -  2);
        stat__Y0E= 1;
      };
      if ((Self__0YLB ==  3)) {
        idx__J2E=last_index_of__since__YXR(string_tmp__03C,(__INTEGER)(i__X0E -  4));
        if ((idx__J2E ==  0)) {
          Self__W1IG=((__STRING *)string_tmp__03C);
          n__X1IG=(__INTEGER)(i__X0E -  1);
          if ((n__X1IG > Self__W1IG->count__04B)) {
            Self__W1IG->count__04B= 0;
          } else {
            if ((n__X1IG >  0)) {
              remove_between__to__4IS(Self__W1IG, 1,n__X1IG);
            };
          };
          i__X0E= 1;
        } else {
          remove_between__to__4IS(string_tmp__03C,idx__J2E,(__INTEGER)(i__X0E -  1));
          i__X0E=idx__J2E;
        };
        stat__Y0E= 1;
      };
      __tmp__A3E=TRUE__;
    } else {
      __tmp__A3E=FALSE__;
    };
    if (__tmp__A3E) {
      __tmp__F4E=TRUE__;
    } else {
      result__5JCB=(car__Z0E == '.');
      if (result__5JCB) {
        Self__YT1C=stat__Y0E;
        if ((stat__Y0E ==  1)) {
          stat__Y0E= 2;
        };
        if ((Self__YT1C ==  2)) {
          stat__Y0E= 3;
        };
        if ((Self__YT1C ==  3)) {
          stat__Y0E= 0;
        };
      };
      __tmp__F4E=result__5JCB;
    };
    if ((! __tmp__F4E)) {
      if (((car__Z0E == ':') && (i__X0E >  2))) {
        Self__4CSC=((__CHARACTER *)((__STRING *)string_tmp__03C)->storage__HGQ)[(__INTEGER)((__INTEGER)(i__X0E -  1) -  1)];
        result__ADSC=FALSE__;
        if ((((__INTEGER_8 )Self__4CSC) >= ((__INTEGER_8 )'a'))) {
          result__ADSC=(((__INTEGER_8 )Self__4CSC) <= ((__INTEGER_8 )'z'));
          __tmp__KDSC=TRUE__;
        } else {
          __tmp__KDSC=FALSE__;
        };
        if ((! __tmp__KDSC)) {
          if ((((__INTEGER_8 )Self__4CSC) >= ((__INTEGER_8 )'A'))) {
            result__ADSC=(((__INTEGER_8 )Self__4CSC) <= ((__INTEGER_8 )'Z'));
          };
        };
        __tmp__G5E=result__ADSC;
      } else {
        __tmp__G5E=FALSE__;
      };
      if ((__tmp__G5E && (((__CHARACTER *)((__STRING *)string_tmp__03C)->storage__HGQ)[(__INTEGER)((__INTEGER)(i__X0E -  2) -  1)] == '/'))) {
        Self__Y1IG=((__STRING *)string_tmp__03C);
        n__Z1IG=(__INTEGER)(i__X0E -  2);
        if ((n__Z1IG > Self__Y1IG->count__04B)) {
          Self__Y1IG->count__04B= 0;
        } else {
          if ((n__Z1IG >  0)) {
            remove_between__to__4IS(Self__Y1IG, 1,n__Z1IG);
          };
        };
        i__X0E= 1;
      } else {
        stat__Y0E= 0;
      };
    };
    i__X0E=(__INTEGER)(i__X0E +  1);
  };
  if ((stat__Y0E ==  1)) {
    Self__AGIG=((__STRING *)string_tmp__03C);
    if (( 1 > Self__AGIG->count__04B)) {
      Self__AGIG->count__04B= 0;
    } else {
      Self__AGIG->count__04B=(__INTEGER)(Self__AGIG->count__04B -  1);
    };
  };
  if ((stat__Y0E ==  2)) {
    Self__CGIG=((__STRING *)string_tmp__03C);
    if (( 2 > Self__CGIG->count__04B)) {
      Self__CGIG->count__04B= 0;
    } else {
      Self__CGIG->count__04B=(__INTEGER)(Self__CGIG->count__04B -  2);
    };
  };
  if ((stat__Y0E ==  3)) {
    idx__PAF=last_index_of__since__YXR(string_tmp__03C,(__INTEGER)(i__X0E -  4));
    if ((idx__PAF ==  0)) {
      ((__STRING *)string_tmp__03C)->count__04B= 0;
    } else {
      remove_between__to__4IS(string_tmp__03C,idx__PAF,(__INTEGER)(i__X0E -  1));
    };
  };
  if ((((__STRING *)string_tmp__03C)->count__04B ==  0)) {
    Self__11IG=((__STRING *)string_tmp__03C);
    new_capacity__01IG= 0;
    if ((Self__11IG->capacity__4FQ <= Self__11IG->count__04B)) {
      if ((Self__11IG->capacity__4FQ ==  0)) {
        Self__11IG->capacity__4FQ= 32;
        Self__11IG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__01IG=(__INTEGER)(Self__11IG->capacity__4FQ <<  1);
        Self__21IG=((__CHARACTER *)Self__11IG->storage__HGQ);
        old_nb_elts__31IG=Self__11IG->capacity__4FQ;
        new__41IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__21IG),((__UINTEGER_32 )old_nb_elts__31IG),((__UINTEGER_32 )new_capacity__01IG)));
        upper__MWJG=(__INTEGER)(new_capacity__01IG -  1);
        Self__KWJG=old_nb_elts__31IG;
        while ((Self__KWJG <= upper__MWJG)) {
          new__41IG[Self__KWJG]='\0';
          Self__KWJG=(__INTEGER)(Self__KWJG +  1);
        };
        Self__11IG->storage__HGQ=new__41IG;
        Self__11IG->capacity__4FQ=new_capacity__01IG;
      };
    };
    ((__CHARACTER *)Self__11IG->storage__HGQ)[Self__11IG->count__04B]='/';
    Self__11IG->count__04B=(__INTEGER)(Self__11IG->count__04B +  1);
  };
  result__RBF=NULL;
  if (has__YHR(alias__WBF,string_tmp__03C)) {
    result__RBF=at__MX1(alias__WBF,string_tmp__03C);
  } else {
    result__UY1=NULL;
    ptr__VY1=((__POINTER )(NULL));
    typ_id__0Y1= 0;
    sz__XY1=((__UINTEGER_32 )sizeof(__ENTRY));
    if ((sz__XY1 ==  0)) {
      result__UY1=ENTRY__;
    } else {
      typ_id__0Y1=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__XY1);
      if ((typ_id__0Y1 == (__INTEGER)(-  1))) {
        a__3FHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__4FHG=(__UINTEGER_32)((__UINTEGER_32)(sz__XY1 + a__3FHG) & (__UINTEGER_32)(~ a__3FHG));
        ptr_table__PWJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4FHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__OWJG=((__POINTER )(NULL));
        result__QWJG=((__POINTER *)ptr_table__PWJG)[ 0];
        if ((result__QWJG == (void *)NULL)) {
          result__QWJG=new_lab__RUJ(new_size__4FHG);
          next__OWJG=(void *)((unsigned long)result__QWJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4FHG)));
          ((__POINTER *)next__OWJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__PWJG)[ 0]=next__OWJG;
        } else {
          next__OWJG=((__POINTER *)result__QWJG)[ 0];
          if ((next__OWJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QWJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4FHG <<  1)) <=  4096)) {
              next__OWJG=(void *)((unsigned long)result__QWJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4FHG)));
            } else {
              next__OWJG=new_lab__RUJ(new_size__4FHG);
            };
            ((__POINTER *)next__OWJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__PWJG)[ 0]=next__OWJG;
          } else {
            ((__POINTER *)result__QWJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__OWJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__QWJG=next__OWJG;
          };
        };
        ptr__VY1=result__QWJG;
      } else {
        t__CGHG=((__UINTEGER_32 )typ_id__0Y1);
        a__BGHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__XWJG=(__UINTEGER_32)((__UINTEGER_32)(sz__XY1 + a__BGHG) & (__UINTEGER_32)(~ a__BGHG));
        ptr_table__UWJG=((__POINTER )(&(table_type[(t__CGHG)])));
        lab_type__WWJG=(__UINTEGER_32)(t__CGHG |  1);
        next__TWJG=((__POINTER )(NULL));
        result__VWJG=((__POINTER *)ptr_table__UWJG)[ 0];
        if ((result__VWJG == (void *)NULL)) {
          result__VWJG=new_lab__RUJ(lab_type__WWJG);
          next__TWJG=(void *)((unsigned long)result__VWJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XWJG)));
          ((__POINTER *)next__TWJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__UWJG)[ 0]=next__TWJG;
        } else {
          next__TWJG=((__POINTER *)result__VWJG)[ 0];
          if ((next__TWJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VWJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__XWJG <<  1)) <=  4096)) {
              next__TWJG=(void *)((unsigned long)result__VWJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XWJG)));
            } else {
              next__TWJG=new_lab__RUJ(lab_type__WWJG);
            };
            ((__POINTER *)next__TWJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__UWJG)[ 0]=next__TWJG;
          } else {
            ((__POINTER *)result__VWJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__TWJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__VWJG=next__TWJG;
          };
        };
        ptr__VY1=result__VWJG;
      };
      result__UY1=((__ENTRY *)ptr__VY1);
      *(result__UY1) = *(ENTRY__);
    };
    if (make_entry__5V3B(result__UY1,string_tmp__03C)) {
      put__to__PJ0D(alias__WBF,result__UY1,result__UY1->parent_abstract_entry__LB.path__2C);
      result__RBF=result__UY1;
    };
  };
  if (((void *)result__RBF == (void *)NULL)) {
    print__CCD((&__string_149));
    exit(( 1));
  };
  __tmp__R4C=open__BY2B(result__RBF);
  if (((void *)__tmp__R4C == (void *)NULL)) {
    print__CCD((&__string_150));
    exit(( 1));
  };
  if (__tmp__R4C==NULL) {
    __tmp__C5C=NULL;
  } else {
    switch (((struct ___OBJ *)__tmp__R4C)->__id) {
    case __DIRECTORY__: {
      __tmp__C5C=((void *)__tmp__R4C);
    } break;
    case __STD_FILE__: {
      __tmp__C5C=NULL;
    } break;
    }
  };
  result__Z3C=__tmp__C5C;
  FILE_SYSTEM__->parent_directory__J5C=__tmp__C5C;
  FILE_SYSTEM__->parent_directory__K5C=0;
  return(__tmp__C5C);
}

static void* get__0PEF(void *new_path__2PEF)
// ({NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *__tmp__1VFF;
  __STRING *Self__B2IG;
  __INTEGER new_capacity__A2IG,old_nb_elts__D2IG,upper__1WJG,Self__ZWJG;
  __CHARACTER *Self__C2IG,*new__E2IG;
  if (FILE_SYSTEM__->parent_directory__K5C==0) {
    __tmp__1VFF=FILE_SYSTEM__->parent_directory__J5C;
  } else {
    __tmp__1VFF=parent_directory__U3C();
  };
  copy__5GQ(string_tmp__03C,((__ENTRY *)((__DIRECTORY *)__tmp__1VFF)->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.path__2C);
  Self__B2IG=((__STRING *)string_tmp__03C);
  new_capacity__A2IG= 0;
  if ((Self__B2IG->capacity__4FQ <= Self__B2IG->count__04B)) {
    if ((Self__B2IG->capacity__4FQ ==  0)) {
      Self__B2IG->capacity__4FQ= 32;
      Self__B2IG->storage__HGQ=create__D4BB( 32);
    } else {
      new_capacity__A2IG=(__INTEGER)(Self__B2IG->capacity__4FQ <<  1);
      Self__C2IG=((__CHARACTER *)Self__B2IG->storage__HGQ);
      old_nb_elts__D2IG=Self__B2IG->capacity__4FQ;
      new__E2IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__C2IG),((__UINTEGER_32 )old_nb_elts__D2IG),((__UINTEGER_32 )new_capacity__A2IG)));
      upper__1WJG=(__INTEGER)(new_capacity__A2IG -  1);
      Self__ZWJG=old_nb_elts__D2IG;
      while ((Self__ZWJG <= upper__1WJG)) {
        new__E2IG[Self__ZWJG]='\0';
        Self__ZWJG=(__INTEGER)(Self__ZWJG +  1);
      };
      Self__B2IG->storage__HGQ=new__E2IG;
      Self__B2IG->capacity__4FQ=new_capacity__A2IG;
    };
  };
  ((__CHARACTER *)Self__B2IG->storage__HGQ)[Self__B2IG->count__04B]='/';
  Self__B2IG->count__04B=(__INTEGER)(Self__B2IG->count__04B +  1);
  append__CRQ(string_tmp__03C,new_path__2PEF);
  if (FILE_SYSTEM__->parent_directory__K5C==0) {
  } else {
    parent_directory__U3C();
  };
  reduce_path__KOFF(string_tmp__03C);
  if (FILE_SYSTEM__->parent_directory__K5C==0) {
  } else {
    parent_directory__U3C();
  };
  return(get_entry__HWFF(string_tmp__03C));
}

static void put_string__55F(void *s__BAG)
// ({NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
{
  __INTEGER __tmp__QAG,__tmp__SAG,Self__D1G,limit_up__E1G;
  __CHARACTER *__tmp__D1GG,*__tmp__EGIG;
  __CHARACTER __tmp__ZAG;
  if (((struct ___OBJ *)s__BAG)->__id==__STRING_CONSTANT__) {
    __tmp__QAG= 1;
  } else {
    __tmp__QAG= 1;
  };
  if (((struct ___OBJ *)s__BAG)->__id==__STRING_CONSTANT__) {
    __tmp__SAG=((__STRING_CONSTANT *)s__BAG)->count__4C;
  } else {
    __tmp__SAG=((__STRING *)s__BAG)->count__04B;
  };
  Self__D1G=__tmp__QAG;
  limit_up__E1G=__tmp__SAG;
  __tmp__D1GG=((__STRING *)s__BAG)->storage__HGQ;
  __tmp__EGIG=((__STRING_CONSTANT *)s__BAG)->storage__E5M;
  while ((Self__D1G <= limit_up__E1G)) {
    if (((struct ___OBJ *)s__BAG)->__id==__STRING_CONSTANT__) {
      __tmp__ZAG=((__CHARACTER *)__tmp__EGIG)[(__INTEGER)(Self__D1G -  1)];
    } else {
      __tmp__ZAG=((__CHARACTER *)__tmp__D1GG)[(__INTEGER)(Self__D1G -  1)];
    };
    fputc((int)(__tmp__ZAG),stderr);
    Self__D1G=(__INTEGER)(Self__D1G +  1);
  };
}

static __PROTOTYPE* create__name__generic_count__2ZB(void *f__4ZB,void *n__5ZB)
// ({NULLxSTRING_CONSTANT},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  __PROTOTYPE *result__OOC,*Self__BWQ;
  __POINTER ptr__POC,ptr_table__4WJG,next__3WJG,result__5WJG;
  __POINTER ptr_table__DXJG,next__CXJG,result__EXJG,ptr__I0ED;
  __POINTER ptr_table__IXJG,next__HXJG,result__JXJG,ptr_table__NXJG;
  __POINTER next__MXJG,result__OXJG,file__FWQ,ptr__GG1,ptr_table__2XJG;
  __POINTER next__1XJG,result__3XJG,ptr_table__BYJG,next__AYJG;
  __POINTER result__CYJG;
  __INTEGER typ_id__UOC,new_capacity__5TV,__tmp__DVV,__tmp__QQAC;
  __INTEGER Self__3MWD,h__CE3B,idx__DE3B,idx__3XED,new_capacity__4XED;
  __INTEGER i__5XED,typ_id__N0ED,new_capacity__H2IG,old_nb_elts__K2IG;
  __INTEGER upper__UXJG,Self__SXJG,result__BXV,new_capacity__O2IG;
  __INTEGER old_nb_elts__R2IG,upper__ZXJG,Self__XXJG,typ_id__LG1;
  __INTEGER new_capacity__5IFC;
  __UINTEGER_32 sz__ROC,a__G1GG,new_size__H1GG,t__L1GG,a__K1GG;
  __UINTEGER_32 new_size__GXJG,lab_type__FXJG,sz__K0ED,a__31GG;
  __UINTEGER_32 new_size__41GG,t__C2GG,a__B2GG,new_size__QXJG;
  __UINTEGER_32 lab_type__PXJG,sz__IG1,a__F2GG,new_size__G2GG,t__K2GG;
  __UINTEGER_32 a__J2GG,new_size__EYJG,lab_type__DYJG;
  void *__tmp__5WQ;
  __STRING *Self__G2IG,*Self__N2IG;
  void *__tmp__FXQ;
  __FAST_ARRAYoPROTOTYPEo *Self__3TV;
  __BOOLEAN __tmp__NUV;
  void **__tmp__CVV,**new__3PAC;
  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__ZD3B;
  void *node__FE3B,*node1__BYED,*node2__CYED,*__tmp__ZF3B;
  void **old_buckets__AYED;
  __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *result__H0ED;
  __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *Self__4CUD;
  __CHARACTER *Self__J2IG,*new__L2IG,*Self__Q2IG,*new__S2IG,*ptr__KXV;
  __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *result__FG1,*Self__4T3B;
  result__OOC=NULL;
  ptr__POC=((__POINTER )(NULL));
  typ_id__UOC= 0;
  sz__ROC=((__UINTEGER_32 )sizeof(__PROTOTYPE));
  if ((sz__ROC ==  0)) {
    result__OOC=PROTOTYPE__;
  } else {
    typ_id__UOC=__PROTOTYPE__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__ROC);
    if ((typ_id__UOC == (__INTEGER)(-  1))) {
      a__G1GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__H1GG=(__UINTEGER_32)((__UINTEGER_32)(sz__ROC + a__G1GG) & (__UINTEGER_32)(~ a__G1GG));
      ptr_table__4WJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__H1GG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__3WJG=((__POINTER )(NULL));
      result__5WJG=((__POINTER *)ptr_table__4WJG)[ 0];
      if ((result__5WJG == (void *)NULL)) {
        result__5WJG=new_lab__RUJ(new_size__H1GG);
        next__3WJG=(void *)((unsigned long)result__5WJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H1GG)));
        ((__POINTER *)next__3WJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__4WJG)[ 0]=next__3WJG;
      } else {
        next__3WJG=((__POINTER *)result__5WJG)[ 0];
        if ((next__3WJG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5WJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__H1GG <<  1)) <=  4096)) {
            next__3WJG=(void *)((unsigned long)result__5WJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H1GG)));
          } else {
            next__3WJG=new_lab__RUJ(new_size__H1GG);
          };
          ((__POINTER *)next__3WJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__4WJG)[ 0]=next__3WJG;
        } else {
          ((__POINTER *)result__5WJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3WJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__5WJG=next__3WJG;
        };
      };
      ptr__POC=result__5WJG;
    } else {
      t__L1GG=((__UINTEGER_32 )typ_id__UOC);
      a__K1GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__GXJG=(__UINTEGER_32)((__UINTEGER_32)(sz__ROC + a__K1GG) & (__UINTEGER_32)(~ a__K1GG));
      ptr_table__DXJG=((__POINTER )(&(table_type[(t__L1GG)])));
      lab_type__FXJG=(__UINTEGER_32)(t__L1GG |  1);
      next__CXJG=((__POINTER )(NULL));
      result__EXJG=((__POINTER *)ptr_table__DXJG)[ 0];
      if ((result__EXJG == (void *)NULL)) {
        result__EXJG=new_lab__RUJ(lab_type__FXJG);
        next__CXJG=(void *)((unsigned long)result__EXJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GXJG)));
        ((__POINTER *)next__CXJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__DXJG)[ 0]=next__CXJG;
      } else {
        next__CXJG=((__POINTER *)result__EXJG)[ 0];
        if ((next__CXJG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EXJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__GXJG <<  1)) <=  4096)) {
            next__CXJG=(void *)((unsigned long)result__EXJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GXJG)));
          } else {
            next__CXJG=new_lab__RUJ(lab_type__FXJG);
          };
          ((__POINTER *)next__CXJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__DXJG)[ 0]=next__CXJG;
        } else {
          ((__POINTER *)result__EXJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CXJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__EXJG=next__CXJG;
        };
      };
      ptr__POC=result__EXJG;
    };
    result__OOC=((__PROTOTYPE *)ptr__POC);
    *(result__OOC) = *(PROTOTYPE__);
  };
  Self__BWQ=((__PROTOTYPE *)result__OOC);
  Self__BWQ->filename__AUG=f__4ZB;
  Self__BWQ->parent_named__0H.name__KI=n__5ZB;
  Self__BWQ->index__CRG=(__INTEGER)(((__FAST_ARRAYoPROTOTYPEo *)prototype_list__WOH)->parent_arrayed_collection__VOH.upper__OIS +  1);
  Self__3TV=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__WOH);
  new_capacity__5TV= 0;
  if (((__INTEGER)(Self__3TV->parent_arrayed_collection__VOH.upper__OIS +  1) <= (__INTEGER)(Self__3TV->parent_arrayed_collection__VOH.capacity__CIS -  1))) {
    Self__3TV->parent_arrayed_collection__VOH.upper__OIS=(__INTEGER)(Self__3TV->parent_arrayed_collection__VOH.upper__OIS +  1);
    __tmp__NUV=TRUE__;
  } else {
    __tmp__NUV=FALSE__;
  };
  if ((! __tmp__NUV)) {
    if ((Self__3TV->parent_arrayed_collection__VOH.capacity__CIS ==  0)) {
      Self__3TV->parent_arrayed_collection__VOH.storage__2WR=create__PWOB( 2);
      Self__3TV->parent_arrayed_collection__VOH.capacity__CIS= 2;
      Self__3TV->parent_arrayed_collection__VOH.upper__OIS= 0;
    } else {
      new_capacity__5TV=(__INTEGER)(Self__3TV->parent_arrayed_collection__VOH.capacity__CIS <<  1);
      __tmp__CVV=Self__3TV->parent_arrayed_collection__VOH.storage__2WR;
      __tmp__DVV=Self__3TV->parent_arrayed_collection__VOH.capacity__CIS;
      new__3PAC=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__CVV)),((__UINTEGER_32 )(__INTEGER)(__tmp__DVV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__5TV * ((__INTEGER )(sizeof(void *)))))));
      __tmp__QQAC=(__INTEGER)(new_capacity__5TV -  1);
      Self__3MWD=__tmp__DVV;
      while ((Self__3MWD <= __tmp__QQAC)) {
        new__3PAC[Self__3MWD]=NULL;
        Self__3MWD=(__INTEGER)(Self__3MWD +  1);
      };
      Self__3TV->parent_arrayed_collection__VOH.storage__2WR=new__3PAC;
      Self__3TV->parent_arrayed_collection__VOH.capacity__CIS=new_capacity__5TV;
      Self__3TV->parent_arrayed_collection__VOH.upper__OIS=(__INTEGER)(Self__3TV->parent_arrayed_collection__VOH.upper__OIS +  1);
    };
  };
  ((void **)Self__3TV->parent_arrayed_collection__VOH.storage__2WR)[Self__3TV->parent_arrayed_collection__VOH.upper__OIS]=Self__BWQ;
  __tmp__5WQ=Self__BWQ->parent_named__0H.name__KI;
  Self__ZD3B=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__PWQ);
  h__CE3B=hash_code__LQU(__tmp__5WQ);
  idx__DE3B=(__INTEGER)(h__CE3B % Self__ZD3B->capacity__HE3B);
  node__FE3B=((void **)Self__ZD3B->buckets__ME3B)[idx__DE3B];
  while ((! (((void *)node__FE3B == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__FE3B)->key__YE3B == (void *)__tmp__5WQ)))) {
    node__FE3B=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__FE3B)->next__DF3B;
  };
  if (((void *)node__FE3B == (void *)NULL)) {
    if ((Self__ZD3B->capacity__HE3B == Self__ZD3B->count__MF3B)) {
      idx__3XED= 0;
      node1__BYED=NULL;
      node2__CYED=NULL;
      old_buckets__AYED=Self__ZD3B->buckets__ME3B;
      new_capacity__4XED=prime_number_ceiling__33Z((__INTEGER)(Self__ZD3B->capacity__HE3B +  1));
      Self__ZD3B->buckets__ME3B=create__3HQC(new_capacity__4XED);
      i__5XED=(__INTEGER)(Self__ZD3B->capacity__HE3B -  1);
      Self__ZD3B->capacity__HE3B=new_capacity__4XED;
      while ((i__5XED >=  0)) {
        node1__BYED=((void **)old_buckets__AYED)[i__5XED];
        while (((void *)node1__BYED != (void *)NULL)) {
          node2__CYED=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__BYED)->next__DF3B;
          idx__3XED=(__INTEGER)(hash_code__LQU(((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__BYED)->key__YE3B) % Self__ZD3B->capacity__HE3B);
          ((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__BYED)->next__DF3B=((void **)Self__ZD3B->buckets__ME3B)[idx__3XED];
          ((void **)Self__ZD3B->buckets__ME3B)[idx__3XED]=node1__BYED;
          node1__BYED=node2__CYED;
        };
        i__5XED=(__INTEGER)(i__5XED -  1);
      };
      idx__DE3B=(__INTEGER)(h__CE3B % Self__ZD3B->capacity__HE3B);
    };
    __tmp__ZF3B=((void **)Self__ZD3B->buckets__ME3B)[idx__DE3B];
    result__H0ED=NULL;
    ptr__I0ED=((__POINTER )(NULL));
    typ_id__N0ED= 0;
    sz__K0ED=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo));
    if ((sz__K0ED ==  0)) {
      result__H0ED=HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__;
    } else {
      typ_id__N0ED=__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__K0ED);
      if ((typ_id__N0ED == (__INTEGER)(-  1))) {
        a__31GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__41GG=(__UINTEGER_32)((__UINTEGER_32)(sz__K0ED + a__31GG) & (__UINTEGER_32)(~ a__31GG));
        ptr_table__IXJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__41GG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__HXJG=((__POINTER )(NULL));
        result__JXJG=((__POINTER *)ptr_table__IXJG)[ 0];
        if ((result__JXJG == (void *)NULL)) {
          result__JXJG=new_lab__RUJ(new_size__41GG);
          next__HXJG=(void *)((unsigned long)result__JXJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__41GG)));
          ((__POINTER *)next__HXJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__IXJG)[ 0]=next__HXJG;
        } else {
          next__HXJG=((__POINTER *)result__JXJG)[ 0];
          if ((next__HXJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JXJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__41GG <<  1)) <=  4096)) {
              next__HXJG=(void *)((unsigned long)result__JXJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__41GG)));
            } else {
              next__HXJG=new_lab__RUJ(new_size__41GG);
            };
            ((__POINTER *)next__HXJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__IXJG)[ 0]=next__HXJG;
          } else {
            ((__POINTER *)result__JXJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HXJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__JXJG=next__HXJG;
          };
        };
        ptr__I0ED=result__JXJG;
      } else {
        t__C2GG=((__UINTEGER_32 )typ_id__N0ED);
        a__B2GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__QXJG=(__UINTEGER_32)((__UINTEGER_32)(sz__K0ED + a__B2GG) & (__UINTEGER_32)(~ a__B2GG));
        ptr_table__NXJG=((__POINTER )(&(table_type[(t__C2GG)])));
        lab_type__PXJG=(__UINTEGER_32)(t__C2GG |  1);
        next__MXJG=((__POINTER )(NULL));
        result__OXJG=((__POINTER *)ptr_table__NXJG)[ 0];
        if ((result__OXJG == (void *)NULL)) {
          result__OXJG=new_lab__RUJ(lab_type__PXJG);
          next__MXJG=(void *)((unsigned long)result__OXJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QXJG)));
          ((__POINTER *)next__MXJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__NXJG)[ 0]=next__MXJG;
        } else {
          next__MXJG=((__POINTER *)result__OXJG)[ 0];
          if ((next__MXJG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OXJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__QXJG <<  1)) <=  4096)) {
              next__MXJG=(void *)((unsigned long)result__OXJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QXJG)));
            } else {
              next__MXJG=new_lab__RUJ(lab_type__PXJG);
            };
            ((__POINTER *)next__MXJG)[ 0]=NULL;
            ((__POINTER *)ptr_table__NXJG)[ 0]=next__MXJG;
          } else {
            ((__POINTER *)result__OXJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MXJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__OXJG=next__MXJG;
          };
        };
        ptr__I0ED=result__OXJG;
      };
      result__H0ED=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)ptr__I0ED);
      *(result__H0ED) = *(HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__);
    };
    Self__4CUD=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)result__H0ED);
    Self__4CUD->item__P2ED=Self__BWQ;
    Self__4CUD->key__YE3B=__tmp__5WQ;
    Self__4CUD->next__DF3B=__tmp__ZF3B;
    node__FE3B=result__H0ED;
    ((void **)Self__ZD3B->buckets__ME3B)[idx__DE3B]=result__H0ED;
    Self__ZD3B->count__MF3B=(__INTEGER)(Self__ZD3B->count__MF3B +  1);
  } else {
    ((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__FE3B)->item__P2ED=Self__BWQ;
  };
  copy__5GQ(string_tmp__YWV,f__4ZB);
  Self__G2IG=((__STRING *)string_tmp__YWV);
  if ((Self__G2IG->capacity__4FQ > Self__G2IG->count__04B)) {
    Self__G2IG->count__04B=(__INTEGER)(Self__G2IG->count__04B +  1);
    if ((((__CHARACTER *)Self__G2IG->storage__HGQ)[(__INTEGER)(Self__G2IG->count__04B -  1)] != '\0')) {
      ((__CHARACTER *)Self__G2IG->storage__HGQ)[(__INTEGER)(Self__G2IG->count__04B -  1)]='\0';
    };
  } else {
    new_capacity__H2IG= 0;
    if ((Self__G2IG->capacity__4FQ <= Self__G2IG->count__04B)) {
      if ((Self__G2IG->capacity__4FQ ==  0)) {
        Self__G2IG->capacity__4FQ= 32;
        Self__G2IG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__H2IG=(__INTEGER)(Self__G2IG->capacity__4FQ <<  1);
        Self__J2IG=((__CHARACTER *)Self__G2IG->storage__HGQ);
        old_nb_elts__K2IG=Self__G2IG->capacity__4FQ;
        new__L2IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__J2IG),((__UINTEGER_32 )old_nb_elts__K2IG),((__UINTEGER_32 )new_capacity__H2IG)));
        upper__UXJG=(__INTEGER)(new_capacity__H2IG -  1);
        Self__SXJG=old_nb_elts__K2IG;
        while ((Self__SXJG <= upper__UXJG)) {
          new__L2IG[Self__SXJG]='\0';
          Self__SXJG=(__INTEGER)(Self__SXJG +  1);
        };
        Self__G2IG->storage__HGQ=new__L2IG;
        Self__G2IG->capacity__4FQ=new_capacity__H2IG;
      };
    };
    ((__CHARACTER *)Self__G2IG->storage__HGQ)[Self__G2IG->count__04B]='\0';
    Self__G2IG->count__04B=(__INTEGER)(Self__G2IG->count__04B +  1);
  };
  Self__G2IG->count__04B=(__INTEGER)(Self__G2IG->count__04B -  1);
  file__FWQ=((__POINTER )(fopen((char*)(Self__G2IG->storage__HGQ),"rb")));
  fseek((FILE*)((file__FWQ)),0,SEEK_END);
  result__BXV=((__INTEGER )(ftell((FILE *)(file__FWQ))));
  fseek((FILE*)((file__FWQ)),0,SEEK_SET);
  Self__BWQ->source__Q0B=create__01((__INTEGER)(result__BXV +  1));
  __tmp__FXQ=Self__BWQ->source__Q0B;
  Self__N2IG=((__STRING *)__tmp__FXQ);
  if ((Self__N2IG->capacity__4FQ > Self__N2IG->count__04B)) {
    Self__N2IG->count__04B=(__INTEGER)(Self__N2IG->count__04B +  1);
    if ((((__CHARACTER *)Self__N2IG->storage__HGQ)[(__INTEGER)(Self__N2IG->count__04B -  1)] != '\0')) {
      ((__CHARACTER *)Self__N2IG->storage__HGQ)[(__INTEGER)(Self__N2IG->count__04B -  1)]='\0';
    };
  } else {
    new_capacity__O2IG= 0;
    if ((Self__N2IG->capacity__4FQ <= Self__N2IG->count__04B)) {
      if ((Self__N2IG->capacity__4FQ ==  0)) {
        Self__N2IG->capacity__4FQ= 32;
        Self__N2IG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__O2IG=(__INTEGER)(Self__N2IG->capacity__4FQ <<  1);
        Self__Q2IG=((__CHARACTER *)Self__N2IG->storage__HGQ);
        old_nb_elts__R2IG=Self__N2IG->capacity__4FQ;
        new__S2IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__Q2IG),((__UINTEGER_32 )old_nb_elts__R2IG),((__UINTEGER_32 )new_capacity__O2IG)));
        upper__ZXJG=(__INTEGER)(new_capacity__O2IG -  1);
        Self__XXJG=old_nb_elts__R2IG;
        while ((Self__XXJG <= upper__ZXJG)) {
          new__S2IG[Self__XXJG]='\0';
          Self__XXJG=(__INTEGER)(Self__XXJG +  1);
        };
        Self__N2IG->storage__HGQ=new__S2IG;
        Self__N2IG->capacity__4FQ=new_capacity__O2IG;
      };
    };
    ((__CHARACTER *)Self__N2IG->storage__HGQ)[Self__N2IG->count__04B]='\0';
    Self__N2IG->count__04B=(__INTEGER)(Self__N2IG->count__04B +  1);
  };
  Self__N2IG->count__04B=(__INTEGER)(Self__N2IG->count__04B -  1);
  ptr__KXV=Self__N2IG->storage__HGQ;
  fread((void *)((ptr__KXV)),(size_t)(1), (size_t)((result__BXV)),(FILE*)((file__FWQ)));
  ((__CHARACTER *)ptr__KXV)[result__BXV]='\0';
  from_external__M2Q(__tmp__FXQ,ptr__KXV);
  fclose((FILE*)((file__FWQ)));
  result__FG1=NULL;
  ptr__GG1=((__POINTER )(NULL));
  typ_id__LG1= 0;
  sz__IG1=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo));
  if ((sz__IG1 ==  0)) {
    result__FG1=HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__;
  } else {
    typ_id__LG1=__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__IG1);
    if ((typ_id__LG1 == (__INTEGER)(-  1))) {
      a__F2GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__G2GG=(__UINTEGER_32)((__UINTEGER_32)(sz__IG1 + a__F2GG) & (__UINTEGER_32)(~ a__F2GG));
      ptr_table__2XJG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__G2GG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__1XJG=((__POINTER )(NULL));
      result__3XJG=((__POINTER *)ptr_table__2XJG)[ 0];
      if ((result__3XJG == (void *)NULL)) {
        result__3XJG=new_lab__RUJ(new_size__G2GG);
        next__1XJG=(void *)((unsigned long)result__3XJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2GG)));
        ((__POINTER *)next__1XJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__2XJG)[ 0]=next__1XJG;
      } else {
        next__1XJG=((__POINTER *)result__3XJG)[ 0];
        if ((next__1XJG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3XJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__G2GG <<  1)) <=  4096)) {
            next__1XJG=(void *)((unsigned long)result__3XJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2GG)));
          } else {
            next__1XJG=new_lab__RUJ(new_size__G2GG);
          };
          ((__POINTER *)next__1XJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__2XJG)[ 0]=next__1XJG;
        } else {
          ((__POINTER *)result__3XJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1XJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__3XJG=next__1XJG;
        };
      };
      ptr__GG1=result__3XJG;
    } else {
      t__K2GG=((__UINTEGER_32 )typ_id__LG1);
      a__J2GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__EYJG=(__UINTEGER_32)((__UINTEGER_32)(sz__IG1 + a__J2GG) & (__UINTEGER_32)(~ a__J2GG));
      ptr_table__BYJG=((__POINTER )(&(table_type[(t__K2GG)])));
      lab_type__DYJG=(__UINTEGER_32)(t__K2GG |  1);
      next__AYJG=((__POINTER )(NULL));
      result__CYJG=((__POINTER *)ptr_table__BYJG)[ 0];
      if ((result__CYJG == (void *)NULL)) {
        result__CYJG=new_lab__RUJ(lab_type__DYJG);
        next__AYJG=(void *)((unsigned long)result__CYJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EYJG)));
        ((__POINTER *)next__AYJG)[ 0]=NULL;
        ((__POINTER *)ptr_table__BYJG)[ 0]=next__AYJG;
      } else {
        next__AYJG=((__POINTER *)result__CYJG)[ 0];
        if ((next__AYJG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CYJG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__EYJG <<  1)) <=  4096)) {
            next__AYJG=(void *)((unsigned long)result__CYJG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EYJG)));
          } else {
            next__AYJG=new_lab__RUJ(lab_type__DYJG);
          };
          ((__POINTER *)next__AYJG)[ 0]=NULL;
          ((__POINTER *)ptr_table__BYJG)[ 0]=next__AYJG;
        } else {
          ((__POINTER *)result__CYJG)[ 0]=(void *)((unsigned long)((__POINTER *)next__AYJG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__CYJG=next__AYJG;
        };
      };
      ptr__GG1=result__CYJG;
    };
    result__FG1=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)ptr__GG1);
    *(result__FG1) = *(HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__);
  };
  Self__4T3B=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)result__FG1);
  new_capacity__5IFC=prime_number_ceiling__33Z( 193);
  Self__4T3B->buckets__JJCC=create__QOPC(new_capacity__5IFC);
  Self__4T3B->capacity__FU3B=new_capacity__5IFC;
  Self__4T3B->count__L0CC= 0;
  Self__BWQ->slot_list__MXQ=result__FG1;
  Self__BWQ->parent_named__0H.parent_itm_object__ZH.position__REJ=((__POSITION )(__UINTEGER_32)(((__UINTEGER_32 )Self__BWQ->index__CRG) |  131072));
  return(result__OOC);
}

static __BOOLEAN read_space__MMD()
// () With resultNo recursive, No inlinable.
{
  __INTEGER pos2__RMD,short_line__TMD,level_comment__UMD,pos__QMD;
  __INTEGER posold__PMD,__tmp__Z3GG,__tmp__03GG,__tmp__13GG,begin__204F;
  __INTEGER end__304F,__tmp__43GG,__tmp__C4GG,new_capacity__AAJG;
  __INTEGER old_nb_elts__DAJG,upper__C1JG,Self__A1JG,__tmp__O4GG;
  __INTEGER begin__3END,end__4END,__tmp__T4GG,__tmp__U4GG,__tmp__04GG;
  __INTEGER __tmp__24GG,__tmp__44GG;
  void *key__SMD;
  __STRING *Self__BAJG;
  __POSITION pos__YZYF;
  __CHARACTER *__tmp__JHIG,*__tmp__KHIG,*__tmp__LHIG,*__tmp__MHIG;
  __CHARACTER *__tmp__53GG,*__tmp__D4GG,*Self__CAJG,*new__EAJG;
  __CHARACTER *__tmp__PHIG,*__tmp__QHIG,*__tmp__RHIG,*__tmp__14GG;
  __CHARACTER *__tmp__34GG,*__tmp__SHIG,*__tmp__THIG,*__tmp__UHIG;
  __CHARACTER result__OUFG,result__TUFG,result__YUFG,result__3UFG;
  __CHARACTER result__GVFG,result__LVFG,result__QVFG,result__VVFG;
  __CHARACTER result__5VFG,result__EWFG,result__JWFG,result__OWFG;
  __CHARACTER result__TWFG,result__YWFG,result__3WFG,result__CXFG;
  __CHARACTER result__HXFG,result__QXFG,result__VXFG,result__4XFG;
  __CHARACTER result__MYE;
  __BOOLEAN __tmp__XOD,result__F4GG,result__J4GG,__tmp__RTD;
  __BOOLEAN result__NHIG,__tmp__STD,__tmp__JVD,__tmp__PYD;
  pos2__RMD= 0;
  key__SMD=NULL;
  short_line__TMD= 0;
  level_comment__UMD= 0;
  pos__QMD=position__V0B;
  posold__PMD=(__INTEGER)(-  1);
  while ((posold__PMD != position__V0B)) {
    posold__PMD=position__V0B;
    __tmp__JHIG=((__STRING *)source__S0B)->storage__HGQ;
    while (((position__V0B >  2) && (((__INTEGER_8 )((__CHARACTER *)__tmp__JHIG)[(__INTEGER)((__INTEGER)(position__V0B -  1) -  1)]) <= ((__INTEGER_8 )' ')))) {
      position__V0B=(__INTEGER)(position__V0B -  1);
    };
    short_line__TMD= 0;
    __tmp__Z3GG=((__STRING *)source__S0B)->count__04B;
    __tmp__03GG=((__STRING *)source__S0B)->count__04B;
    __tmp__13GG=((__STRING *)source__S0B)->count__04B;
    __tmp__KHIG=((__STRING *)source__S0B)->storage__HGQ;
    __tmp__LHIG=((__STRING *)source__S0B)->storage__HGQ;
    __tmp__MHIG=((__STRING *)source__S0B)->storage__HGQ;
    until_do__HTI:
    {
      result__OUFG='\0';
      if ((position__V0B > __tmp__Z3GG)) {
        result__OUFG=((__CHARACTER )(( 0)));
      } else {
        result__OUFG=((__CHARACTER *)__tmp__KHIG)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__OUFG == ((__CHARACTER )(( 0))))) {
        __tmp__XOD=TRUE__;
      } else {
        result__TUFG='\0';
        if ((position__V0B > __tmp__03GG)) {
          result__TUFG=((__CHARACTER )(( 0)));
        } else {
          result__TUFG=((__CHARACTER *)__tmp__LHIG)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__XOD=(((__INTEGER_8 )result__TUFG) > ((__INTEGER_8 )' '));
      };
      if ((! __tmp__XOD)) {
        result__YUFG='\0';
        if ((position__V0B > __tmp__13GG)) {
          result__YUFG=((__CHARACTER )(( 0)));
        } else {
          result__YUFG=((__CHARACTER *)__tmp__MHIG)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__YUFG == '\n')) {
          short_line__TMD=(__INTEGER)(short_line__TMD +  1);
          if ((short_line__TMD ==  2)) {
            key_comment_default__N1B=(&__string_99);
          };
        };
        position__V0B=(__INTEGER)(position__V0B +  1);
        goto until_do__HTI;
      };
    };
    if ((position__V0B < ((__STRING *)source__S0B)->count__04B)) {
      result__3UFG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__3UFG=((__CHARACTER )(( 0)));
      } else {
        result__3UFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if (((result__3UFG == '/') & (((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)((__INTEGER)(position__V0B +  1) -  1)] == '/'))) {
        position__V0B=(__INTEGER)(position__V0B +  2);
        pos2__RMD=position__V0B;
        if (is_active_short__L1B) {
          begin__204F=(__INTEGER)(position__V0B -  2);
          end__304F=(__INTEGER)(position__V0B -  1);
          remove_between__to__4IS(output_code__RI,(__INTEGER)(begin__204F + short_derive__O1B),(__INTEGER)(end__304F + short_derive__O1B));
          short_derive__O1B=(__INTEGER)(short_derive__O1B - (__INTEGER)((__INTEGER)(end__304F - begin__204F) +  1));
          __tmp__43GG=((__STRING *)source__S0B)->count__04B;
          __tmp__53GG=((__STRING *)source__S0B)->storage__HGQ;
          while_do__LFND:
          {
            result__GVFG='\0';
            if ((position__V0B > __tmp__43GG)) {
              result__GVFG=((__CHARACTER )(( 0)));
            } else {
              result__GVFG=((__CHARACTER *)__tmp__53GG)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__GVFG == ' ')) {
              position__V0B=(__INTEGER)(position__V0B +  1);
              goto while_do__LFND;
            };
          };
          result__LVFG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__LVFG=((__CHARACTER )(( 0)));
          } else {
            result__LVFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__LVFG == '*')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            __tmp__C4GG=((__STRING *)source__S0B)->count__04B;
            __tmp__D4GG=((__STRING *)source__S0B)->storage__HGQ;
            while_do__PFPD:
            {
              result__QVFG='\0';
              if ((position__V0B > __tmp__C4GG)) {
                result__QVFG=((__CHARACTER )(( 0)));
              } else {
                result__QVFG=((__CHARACTER *)__tmp__D4GG)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__QVFG == ' ')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                goto while_do__PFPD;
              };
            };
            result__VVFG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__VVFG=((__CHARACTER )(( 0)));
            } else {
              result__VVFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            result__F4GG=FALSE__;
            if ((((__INTEGER_8 )result__VVFG) >= ((__INTEGER_8 )'a'))) {
              result__F4GG=(((__INTEGER_8 )result__VVFG) <= ((__INTEGER_8 )'z'));
            };
            if (result__F4GG) {
              ((__STRING *)string_tmp__QH)->count__04B= 0;
              do {
                result__5VFG='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__5VFG=((__CHARACTER )(( 0)));
                } else {
                  result__5VFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                Self__BAJG=((__STRING *)string_tmp__QH);
                new_capacity__AAJG= 0;
                if ((Self__BAJG->capacity__4FQ <= Self__BAJG->count__04B)) {
                  if ((Self__BAJG->capacity__4FQ ==  0)) {
                    Self__BAJG->capacity__4FQ= 32;
                    Self__BAJG->storage__HGQ=create__D4BB( 32);
                  } else {
                    new_capacity__AAJG=(__INTEGER)(Self__BAJG->capacity__4FQ <<  1);
                    Self__CAJG=((__CHARACTER *)Self__BAJG->storage__HGQ);
                    old_nb_elts__DAJG=Self__BAJG->capacity__4FQ;
                    new__EAJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__CAJG),((__UINTEGER_32 )old_nb_elts__DAJG),((__UINTEGER_32 )new_capacity__AAJG)));
                    upper__C1JG=(__INTEGER)(new_capacity__AAJG -  1);
                    Self__A1JG=old_nb_elts__DAJG;
                    while ((Self__A1JG <= upper__C1JG)) {
                      new__EAJG[Self__A1JG]='\0';
                      Self__A1JG=(__INTEGER)(Self__A1JG +  1);
                    };
                    Self__BAJG->storage__HGQ=new__EAJG;
                    Self__BAJG->capacity__4FQ=new_capacity__AAJG;
                  };
                };
                ((__CHARACTER *)Self__BAJG->storage__HGQ)[Self__BAJG->count__04B]=result__5VFG;
                Self__BAJG->count__04B=(__INTEGER)(Self__BAJG->count__04B +  1);
                position__V0B=(__INTEGER)(position__V0B +  1);
                result__EWFG='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__EWFG=((__CHARACTER )(( 0)));
                } else {
                  result__EWFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                result__J4GG=FALSE__;
                if ((((__INTEGER_8 )result__EWFG) >= ((__INTEGER_8 )'a'))) {
                  result__J4GG=(((__INTEGER_8 )result__EWFG) <= ((__INTEGER_8 )'z'));
                };
                if (result__J4GG) {
                  __tmp__RTD=TRUE__;
                } else {
                  result__JWFG='\0';
                  if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                    result__JWFG=((__CHARACTER )(( 0)));
                  } else {
                    result__JWFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                  };
                  result__NHIG=FALSE__;
                  if ((((__INTEGER_8 )result__JWFG) >= ((__INTEGER_8 )'0'))) {
                    result__NHIG=(((__INTEGER_8 )result__JWFG) <= ((__INTEGER_8 )'9'));
                  };
                  __tmp__RTD=result__NHIG;
                };
                if (__tmp__RTD) {
                  __tmp__STD=TRUE__;
                } else {
                  result__OWFG='\0';
                  if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                    result__OWFG=((__CHARACTER )(( 0)));
                  } else {
                    result__OWFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                  };
                  __tmp__STD=(result__OWFG == '_');
                };
              } while (__tmp__STD);
              __tmp__O4GG=((__STRING *)source__S0B)->count__04B;
              __tmp__PHIG=((__STRING *)source__S0B)->storage__HGQ;
              while_do__V1AE:
              {
                result__TWFG='\0';
                if ((position__V0B > __tmp__O4GG)) {
                  result__TWFG=((__CHARACTER )(( 0)));
                } else {
                  result__TWFG=((__CHARACTER *)__tmp__PHIG)[(__INTEGER)(position__V0B -  1)];
                };
                if ((result__TWFG == ' ')) {
                  position__V0B=(__INTEGER)(position__V0B +  1);
                  goto while_do__V1AE;
                };
              };
              result__YWFG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__YWFG=((__CHARACTER )(( 0)));
              } else {
                result__YWFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__YWFG == ':')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                key__SMD=get__TPB(string_tmp__QH);
                begin__3END=(__INTEGER)(pos2__RMD +  1);
                end__4END=position__V0B;
                remove_between__to__4IS(output_code__RI,(__INTEGER)(begin__3END + short_derive__O1B),(__INTEGER)(position__V0B + short_derive__O1B));
                short_derive__O1B=(__INTEGER)(short_derive__O1B - (__INTEGER)((__INTEGER)(end__4END - begin__3END) +  1));
                pos2__RMD=position__V0B;
              };
            };
          };
        };
        __tmp__T4GG=((__STRING *)source__S0B)->count__04B;
        __tmp__U4GG=((__STRING *)source__S0B)->count__04B;
        __tmp__QHIG=((__STRING *)source__S0B)->storage__HGQ;
        __tmp__RHIG=((__STRING *)source__S0B)->storage__HGQ;
        until_do__S05C:
        {
          result__3WFG='\0';
          if ((position__V0B > __tmp__T4GG)) {
            result__3WFG=((__CHARACTER )(( 0)));
          } else {
            result__3WFG=((__CHARACTER *)__tmp__QHIG)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__3WFG == ((__CHARACTER )(( 0))))) {
            __tmp__JVD=TRUE__;
          } else {
            result__CXFG='\0';
            if ((position__V0B > __tmp__U4GG)) {
              result__CXFG=((__CHARACTER )(( 0)));
            } else {
              result__CXFG=((__CHARACTER *)__tmp__RHIG)[(__INTEGER)(position__V0B -  1)];
            };
            __tmp__JVD=(result__CXFG == '\n');
          };
          if ((! __tmp__JVD)) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            goto until_do__S05C;
          };
        };
        if (((void *)key__SMD == (void *)NULL)) {
          short__token__to__R0C(key_comment_default__N1B,pos2__RMD,position__V0B);
        } else {
          short__token__to__R0C(key__SMD,pos2__RMD,position__V0B);
        };
      };
    };
    if ((position__V0B < ((__STRING *)source__S0B)->count__04B)) {
      pos2__RMD=position__V0B;
      result__HXFG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__HXFG=((__CHARACTER )(( 0)));
      } else {
        result__HXFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if (((result__HXFG == '/') && (((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)((__INTEGER)(position__V0B +  1) -  1)] == '*'))) {
        position__V0B=(__INTEGER)(position__V0B +  2);
        level_comment__UMD= 1;
        __tmp__04GG=((__STRING *)source__S0B)->count__04B;
        __tmp__14GG=((__STRING *)source__S0B)->storage__HGQ;
        __tmp__24GG=((__STRING *)source__S0B)->count__04B;
        __tmp__34GG=((__STRING *)source__S0B)->storage__HGQ;
        __tmp__44GG=((__STRING *)source__S0B)->count__04B;
        __tmp__SHIG=((__STRING *)source__S0B)->storage__HGQ;
        __tmp__THIG=((__STRING *)source__S0B)->storage__HGQ;
        __tmp__UHIG=((__STRING *)source__S0B)->storage__HGQ;
        until_do__LZ2D:
        {
          result__QXFG='\0';
          if ((position__V0B > __tmp__04GG)) {
            result__QXFG=((__CHARACTER )(( 0)));
          } else {
            result__QXFG=((__CHARACTER *)__tmp__14GG)[(__INTEGER)(position__V0B -  1)];
          };
          if ((! ((result__QXFG == ((__CHARACTER )(( 0)))) || (level_comment__UMD ==  0)))) {
            result__VXFG='\0';
            if ((position__V0B > __tmp__24GG)) {
              result__VXFG=((__CHARACTER )(( 0)));
            } else {
              result__VXFG=((__CHARACTER *)__tmp__34GG)[(__INTEGER)(position__V0B -  1)];
            };
            if (((result__VXFG == '/') && (((__CHARACTER *)__tmp__SHIG)[(__INTEGER)((__INTEGER)(position__V0B +  1) -  1)] == '*'))) {
              level_comment__UMD=(__INTEGER)(level_comment__UMD +  1);
              position__V0B=(__INTEGER)(position__V0B +  2);
              __tmp__PYD=TRUE__;
            } else {
              __tmp__PYD=FALSE__;
            };
            if ((! __tmp__PYD)) {
              result__4XFG='\0';
              if ((position__V0B > __tmp__44GG)) {
                result__4XFG=((__CHARACTER )(( 0)));
              } else {
                result__4XFG=((__CHARACTER *)__tmp__THIG)[(__INTEGER)(position__V0B -  1)];
              };
              if (((result__4XFG == '*') && (((__CHARACTER *)__tmp__UHIG)[(__INTEGER)((__INTEGER)(position__V0B +  1) -  1)] == '/'))) {
                level_comment__UMD=(__INTEGER)(level_comment__UMD -  1);
                position__V0B=(__INTEGER)(position__V0B +  2);
              } else {
                position__V0B=(__INTEGER)(position__V0B +  1);
              };
            };
            goto until_do__LZ2D;
          };
        };
        if ((level_comment__UMD !=  0)) {
          position__V0B=pos2__RMD;
          pos__YZYF=current_position__A0F();
          put_error__text__WRG( 0,(&__string_151));
          put_position__ATG(pos__YZYF);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        short__token__to__R0C((&__string_67),pos2__RMD,position__V0B);
      };
    };
  };
  begin_position__H0D=position__V0B;
  result__MYE='\0';
  if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
    result__MYE=((__CHARACTER )(( 0)));
  } else {
    result__MYE=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
  };
  return(((position__V0B != pos__QMD) | (result__MYE != ((__CHARACTER )(( 0))))));
}

static __BOOLEAN read_identifier__EBL()
// () With resultNo recursive, No inlinable.
{
  __INTEGER posold__IBL,idx__JBL,new_capacity__U2IG,old_nb_elts__X2IG;
  __INTEGER upper__IYJG,Self__GYJG;
  __STRING *Self__V2IG;
  __POSITION pos__VA3F;
  __BOOLEAN result__HBL,__tmp__WBL,result__N2GG,__tmp__GDL,result__S2GG;
  __BOOLEAN result__UGIG,__tmp__CDL,__tmp__DDL;
  __CHARACTER result__YRFG,result__CSFG,result__HSFG,result__MSFG;
  __CHARACTER result__RSFG,result__WSFG;
  __CHARACTER *Self__W2IG,*new__Y2IG;
  result__HBL=FALSE__;
  posold__IBL= 0;
  idx__JBL= 0;
  if ((! read_space__MMD())) {
    __tmp__WBL=TRUE__;
  } else {
    result__YRFG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__YRFG=((__CHARACTER )(( 0)));
    } else {
      result__YRFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    result__N2GG=FALSE__;
    if ((((__INTEGER_8 )result__YRFG) >= ((__INTEGER_8 )'a'))) {
      result__N2GG=(((__INTEGER_8 )result__YRFG) <= ((__INTEGER_8 )'z'));
    };
    __tmp__WBL=(! result__N2GG);
  };
  if (__tmp__WBL) {
    result__HBL=FALSE__;
  } else {
    posold__IBL=position__V0B;
    ((__STRING *)string_tmp__QH)->count__04B= 0;
    until_do__H5UE:
    {
      result__CSFG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__CSFG=((__CHARACTER )(( 0)));
      } else {
        result__CSFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__CSFG == ((__CHARACTER )(( 0))))) {
        __tmp__GDL=TRUE__;
      } else {
        result__HSFG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__HSFG=((__CHARACTER )(( 0)));
        } else {
          result__HSFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        result__S2GG=FALSE__;
        if ((((__INTEGER_8 )result__HSFG) >= ((__INTEGER_8 )'a'))) {
          result__S2GG=(((__INTEGER_8 )result__HSFG) <= ((__INTEGER_8 )'z'));
        };
        if ((! result__S2GG)) {
          result__MSFG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__MSFG=((__CHARACTER )(( 0)));
          } else {
            result__MSFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          result__UGIG=FALSE__;
          if ((((__INTEGER_8 )result__MSFG) >= ((__INTEGER_8 )'0'))) {
            result__UGIG=(((__INTEGER_8 )result__MSFG) <= ((__INTEGER_8 )'9'));
          };
          __tmp__CDL=(! result__UGIG);
        } else {
          __tmp__CDL=FALSE__;
        };
        if (__tmp__CDL) {
          result__RSFG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__RSFG=((__CHARACTER )(( 0)));
          } else {
            result__RSFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          __tmp__DDL=(result__RSFG != '_');
        } else {
          __tmp__DDL=FALSE__;
        };
        __tmp__GDL=__tmp__DDL;
      };
      if ((! __tmp__GDL)) {
        result__WSFG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__WSFG=((__CHARACTER )(( 0)));
        } else {
          result__WSFG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        Self__V2IG=((__STRING *)string_tmp__QH);
        new_capacity__U2IG= 0;
        if ((Self__V2IG->capacity__4FQ <= Self__V2IG->count__04B)) {
          if ((Self__V2IG->capacity__4FQ ==  0)) {
            Self__V2IG->capacity__4FQ= 32;
            Self__V2IG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__U2IG=(__INTEGER)(Self__V2IG->capacity__4FQ <<  1);
            Self__W2IG=((__CHARACTER *)Self__V2IG->storage__HGQ);
            old_nb_elts__X2IG=Self__V2IG->capacity__4FQ;
            new__Y2IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__W2IG),((__UINTEGER_32 )old_nb_elts__X2IG),((__UINTEGER_32 )new_capacity__U2IG)));
            upper__IYJG=(__INTEGER)(new_capacity__U2IG -  1);
            Self__GYJG=old_nb_elts__X2IG;
            while ((Self__GYJG <= upper__IYJG)) {
              new__Y2IG[Self__GYJG]='\0';
              Self__GYJG=(__INTEGER)(Self__GYJG +  1);
            };
            Self__V2IG->storage__HGQ=new__Y2IG;
            Self__V2IG->capacity__4FQ=new_capacity__U2IG;
          };
        };
        ((__CHARACTER *)Self__V2IG->storage__HGQ)[Self__V2IG->count__04B]=result__WSFG;
        Self__V2IG->count__04B=(__INTEGER)(Self__V2IG->count__04B +  1);
        position__V0B=(__INTEGER)(position__V0B +  1);
        goto until_do__H5UE;
      };
    };
    if ((((__STRING *)string_tmp__QH)->count__04B !=  0)) {
      idx__JBL=first_substring_index__D15E(string_tmp__QH);
      if ((idx__JBL !=  0)) {
        position__V0B=(__INTEGER)(posold__IBL + idx__JBL);
        pos__VA3F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_152));
        put_position__ATG(pos__VA3F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      last_string__NTC=get__TPB(string_tmp__QH);
      result__HBL=TRUE__;
    };
  };
  return(result__HBL);
}

static __POSITION current_position__A0F()
// () With resultNo recursive, No inlinable.
{
  __POSITION result__D0F;
  __CHARACTER *__tmp__WGIG;
  result__D0F=((__POSITION ) 0);
  __tmp__WGIG=((__STRING *)source__S0B)->storage__HGQ;
  while ((pos_cur__Y0B != position__V0B)) {
    if ((((__CHARACTER *)__tmp__WGIG)[(__INTEGER)(pos_cur__Y0B -  1)] == '\n')) {
      pos_col__00B= 0;
      pos_line__Z0B=(__INTEGER)(pos_line__Z0B +  1);
    } else {
      pos_col__00B=(__INTEGER)(pos_col__00B +  1);
    };
    pos_cur__Y0B=(__INTEGER)(pos_cur__Y0B +  1);
  };
  if ((pos_line__Z0B >  32767)) {
    result__D0F=((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__M0B)->index__CRG) | ((__UINTEGER_32 )(__INTEGER)(pos_col__00B <<  9))) |  4294836224LU));
    put_error__text__WRG( 0,(&__string_153));
    put_position__ATG(result__D0F);
    put_string__55F(msg_err__1RG);
    if ((type_error__0RG !=  2)) {
      exit(( 1));
    };
  };
  if ((pos_col__00B >  255)) {
    result__D0F=((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__M0B)->index__CRG) |  130560) | ((__UINTEGER_32 )(__INTEGER)(pos_line__Z0B <<  17))));
    put_error__text__WRG( 0,(&__string_154));
    put_position__ATG(result__D0F);
    put_string__55F(msg_err__1RG);
    if ((type_error__0RG !=  2)) {
      exit(( 1));
    };
  };
  return(((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__M0B)->index__CRG) | ((__UINTEGER_32 )(__INTEGER)(pos_col__00B <<  9))) | ((__UINTEGER_32 )(__INTEGER)(pos_line__Z0B <<  17)))));
}

static void put_error__text__WRG(__INTEGER type__YRG,void *txt__ZRG)
// ({INTEGER},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
{
  type_error__0RG=type__YRG;
  ((__STRING *)msg_err__1RG)->count__04B= 0;
  if ((type__YRG ==  0)) {
    append__CRQ(msg_err__1RG,(&__string_155));
  };
  if ((type__YRG ==  1)) {
    append__CRQ(msg_err__1RG,(&__string_156));
  };
  if ((type__YRG ==  2)) {
    append__CRQ(msg_err__1RG,(&__string_157));
  };
  if ((type__YRG ==  3)) {
    append__CRQ(msg_err__1RG,(&__string_158));
  };
  append__CRQ(msg_err__1RG,txt__ZRG);
}

static void put_position__ATG(__POSITION Self__BTG)
// ({POSITION}) VoidNo recursive, No inlinable.
{
  __UINTEGER_32 c__DTG,__tmp__LUG,cols__GTG;
  __STRING *Self__12IG,*Self__B3IG,*Self__H3IG,*Self__N3IG,*Self__T3IG;
  __INTEGER new_capacity__02IG,old_nb_elts__32IG,upper__NYJG,Self__LYJG;
  __INTEGER pos__CTG,Self__KPH,limit_up__LPH,new_capacity__A3IG;
  __INTEGER old_nb_elts__D3IG,upper__SYJG,Self__QYJG,new_capacity__G3IG;
  __INTEGER old_nb_elts__J3IG,upper__XYJG,Self__VYJG,new_capacity__M3IG;
  __INTEGER old_nb_elts__P3IG,upper__2YJG,Self__0YJG,new_capacity__S3IG;
  __INTEGER old_nb_elts__V3IG,upper__BZJG,Self__5YJG;
  void *src__JTG;
  __CHARACTER char__KTG;
  __CHARACTER *Self__22IG,*new__42IG,*__tmp__Y2GG,*Self__C3IG,*new__E3IG;
  __CHARACTER *Self__I3IG,*new__K3IG,*Self__O3IG,*new__Q3IG,*Self__U3IG;
  __CHARACTER *new__W3IG;
  c__DTG= 0;
  char__KTG='\0';
  append__CRQ(msg_err__1RG,(&__string_159));
  append_in__GMH((__UINTEGER_32)(((__UINTEGER_32 )Self__BTG) >>  17),msg_err__1RG);
  append__CRQ(msg_err__1RG,(&__string_160));
  append_in__GMH((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__BTG) >>  9) &  255),msg_err__1RG);
  append__CRQ(msg_err__1RG,(&__string_161));
  append__CRQ(msg_err__1RG,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__WOH)->parent_arrayed_collection__VOH.storage__2WR)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__BTG)) &  511)])->parent_named__0H.name__KI);
  Self__12IG=((__STRING *)msg_err__1RG);
  new_capacity__02IG= 0;
  if ((Self__12IG->capacity__4FQ <= Self__12IG->count__04B)) {
    if ((Self__12IG->capacity__4FQ ==  0)) {
      Self__12IG->capacity__4FQ= 32;
      Self__12IG->storage__HGQ=create__D4BB( 32);
    } else {
      new_capacity__02IG=(__INTEGER)(Self__12IG->capacity__4FQ <<  1);
      Self__22IG=((__CHARACTER *)Self__12IG->storage__HGQ);
      old_nb_elts__32IG=Self__12IG->capacity__4FQ;
      new__42IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__22IG),((__UINTEGER_32 )old_nb_elts__32IG),((__UINTEGER_32 )new_capacity__02IG)));
      upper__NYJG=(__INTEGER)(new_capacity__02IG -  1);
      Self__LYJG=old_nb_elts__32IG;
      while ((Self__LYJG <= upper__NYJG)) {
        new__42IG[Self__LYJG]='\0';
        Self__LYJG=(__INTEGER)(Self__LYJG +  1);
      };
      Self__12IG->storage__HGQ=new__42IG;
      Self__12IG->capacity__4FQ=new_capacity__02IG;
    };
  };
  ((__CHARACTER *)Self__12IG->storage__HGQ)[Self__12IG->count__04B]='(';
  Self__12IG->count__04B=(__INTEGER)(Self__12IG->count__04B +  1);
  append__CRQ(msg_err__1RG,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__WOH)->parent_arrayed_collection__VOH.storage__2WR)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__BTG)) &  511)])->filename__AUG);
  append__CRQ(msg_err__1RG,(&__string_162));
  src__JTG=((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__WOH)->parent_arrayed_collection__VOH.storage__2WR)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__BTG)) &  511)])->source__Q0B;
  pos__CTG= 1;
  __tmp__LUG=(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__BTG) >>  17) -  1);
  Self__KPH= 1;
  limit_up__LPH=((__INTEGER )__tmp__LUG);
  __tmp__Y2GG=((__STRING *)src__JTG)->storage__HGQ;
  while ((Self__KPH <= limit_up__LPH)) {
    while ((((__CHARACTER *)__tmp__Y2GG)[(__INTEGER)(pos__CTG -  1)] != '\n')) {
      pos__CTG=(__INTEGER)(pos__CTG +  1);
    };
    pos__CTG=(__INTEGER)(pos__CTG +  1);
    Self__KPH=(__INTEGER)(Self__KPH +  1);
  };
  ((__STRING *)string_tmp__QH)->count__04B= 0;
  cols__GTG=(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__BTG) >>  9) &  255);
  while ((! ((pos__CTG > ((__STRING *)src__JTG)->count__04B) || (((__CHARACTER *)((__STRING *)src__JTG)->storage__HGQ)[(__INTEGER)(pos__CTG -  1)] == '\n')))) {
    char__KTG=((__CHARACTER *)((__STRING *)src__JTG)->storage__HGQ)[(__INTEGER)(pos__CTG -  1)];
    Self__B3IG=((__STRING *)msg_err__1RG);
    new_capacity__A3IG= 0;
    if ((Self__B3IG->capacity__4FQ <= Self__B3IG->count__04B)) {
      if ((Self__B3IG->capacity__4FQ ==  0)) {
        Self__B3IG->capacity__4FQ= 32;
        Self__B3IG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__A3IG=(__INTEGER)(Self__B3IG->capacity__4FQ <<  1);
        Self__C3IG=((__CHARACTER *)Self__B3IG->storage__HGQ);
        old_nb_elts__D3IG=Self__B3IG->capacity__4FQ;
        new__E3IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__C3IG),((__UINTEGER_32 )old_nb_elts__D3IG),((__UINTEGER_32 )new_capacity__A3IG)));
        upper__SYJG=(__INTEGER)(new_capacity__A3IG -  1);
        Self__QYJG=old_nb_elts__D3IG;
        while ((Self__QYJG <= upper__SYJG)) {
          new__E3IG[Self__QYJG]='\0';
          Self__QYJG=(__INTEGER)(Self__QYJG +  1);
        };
        Self__B3IG->storage__HGQ=new__E3IG;
        Self__B3IG->capacity__4FQ=new_capacity__A3IG;
      };
    };
    ((__CHARACTER *)Self__B3IG->storage__HGQ)[Self__B3IG->count__04B]=char__KTG;
    Self__B3IG->count__04B=(__INTEGER)(Self__B3IG->count__04B +  1);
    if ((c__DTG < cols__GTG)) {
      if ((char__KTG == '\t')) {
        Self__H3IG=((__STRING *)string_tmp__QH);
        new_capacity__G3IG= 0;
        if ((Self__H3IG->capacity__4FQ <= Self__H3IG->count__04B)) {
          if ((Self__H3IG->capacity__4FQ ==  0)) {
            Self__H3IG->capacity__4FQ= 32;
            Self__H3IG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__G3IG=(__INTEGER)(Self__H3IG->capacity__4FQ <<  1);
            Self__I3IG=((__CHARACTER *)Self__H3IG->storage__HGQ);
            old_nb_elts__J3IG=Self__H3IG->capacity__4FQ;
            new__K3IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__I3IG),((__UINTEGER_32 )old_nb_elts__J3IG),((__UINTEGER_32 )new_capacity__G3IG)));
            upper__XYJG=(__INTEGER)(new_capacity__G3IG -  1);
            Self__VYJG=old_nb_elts__J3IG;
            while ((Self__VYJG <= upper__XYJG)) {
              new__K3IG[Self__VYJG]='\0';
              Self__VYJG=(__INTEGER)(Self__VYJG +  1);
            };
            Self__H3IG->storage__HGQ=new__K3IG;
            Self__H3IG->capacity__4FQ=new_capacity__G3IG;
          };
        };
        ((__CHARACTER *)Self__H3IG->storage__HGQ)[Self__H3IG->count__04B]='\t';
        Self__H3IG->count__04B=(__INTEGER)(Self__H3IG->count__04B +  1);
      } else {
        Self__N3IG=((__STRING *)string_tmp__QH);
        new_capacity__M3IG= 0;
        if ((Self__N3IG->capacity__4FQ <= Self__N3IG->count__04B)) {
          if ((Self__N3IG->capacity__4FQ ==  0)) {
            Self__N3IG->capacity__4FQ= 32;
            Self__N3IG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__M3IG=(__INTEGER)(Self__N3IG->capacity__4FQ <<  1);
            Self__O3IG=((__CHARACTER *)Self__N3IG->storage__HGQ);
            old_nb_elts__P3IG=Self__N3IG->capacity__4FQ;
            new__Q3IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__O3IG),((__UINTEGER_32 )old_nb_elts__P3IG),((__UINTEGER_32 )new_capacity__M3IG)));
            upper__2YJG=(__INTEGER)(new_capacity__M3IG -  1);
            Self__0YJG=old_nb_elts__P3IG;
            while ((Self__0YJG <= upper__2YJG)) {
              new__Q3IG[Self__0YJG]='\0';
              Self__0YJG=(__INTEGER)(Self__0YJG +  1);
            };
            Self__N3IG->storage__HGQ=new__Q3IG;
            Self__N3IG->capacity__4FQ=new_capacity__M3IG;
          };
        };
        ((__CHARACTER *)Self__N3IG->storage__HGQ)[Self__N3IG->count__04B]=' ';
        Self__N3IG->count__04B=(__INTEGER)(Self__N3IG->count__04B +  1);
      };
    };
    c__DTG=(__UINTEGER_32)(c__DTG +  1);
    pos__CTG=(__INTEGER)(pos__CTG +  1);
  };
  Self__T3IG=((__STRING *)msg_err__1RG);
  new_capacity__S3IG= 0;
  if ((Self__T3IG->capacity__4FQ <= Self__T3IG->count__04B)) {
    if ((Self__T3IG->capacity__4FQ ==  0)) {
      Self__T3IG->capacity__4FQ= 32;
      Self__T3IG->storage__HGQ=create__D4BB( 32);
    } else {
      new_capacity__S3IG=(__INTEGER)(Self__T3IG->capacity__4FQ <<  1);
      Self__U3IG=((__CHARACTER *)Self__T3IG->storage__HGQ);
      old_nb_elts__V3IG=Self__T3IG->capacity__4FQ;
      new__W3IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__U3IG),((__UINTEGER_32 )old_nb_elts__V3IG),((__UINTEGER_32 )new_capacity__S3IG)));
      upper__BZJG=(__INTEGER)(new_capacity__S3IG -  1);
      Self__5YJG=old_nb_elts__V3IG;
      while ((Self__5YJG <= upper__BZJG)) {
        new__W3IG[Self__5YJG]='\0';
        Self__5YJG=(__INTEGER)(Self__5YJG +  1);
      };
      Self__T3IG->storage__HGQ=new__W3IG;
      Self__T3IG->capacity__4FQ=new_capacity__S3IG;
    };
  };
  ((__CHARACTER *)Self__T3IG->storage__HGQ)[Self__T3IG->count__04B]='\n';
  Self__T3IG->count__04B=(__INTEGER)(Self__T3IG->count__04B +  1);
  append__CRQ(msg_err__1RG,string_tmp__QH);
  append__CRQ(msg_err__1RG,(&__string_163));
}

static __BOOLEAN fast_has__ZER(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__0ER,void *k__1ER)
// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *node__FFR;
  node__FFR=((void **)Self__0ER->buckets__MFR)[(__INTEGER)(hash_code__LQU(k__1ER) % Self__0ER->capacity__HFR)];
  while ((! (((void *)node__FFR == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__FFR)->key__YFR == (void *)k__1ER)))) {
    node__FFR=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__FFR)->next__DGR;
  };
  return(((void *)node__FFR != (void *)NULL));
}

static __INTEGER hash_code__LQU(__STRING_CONSTANT *Self__MQU)
// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  __INTEGER result__OQU,__tmp__PQU,Self__3SZ;
  __CHARACTER *__tmp__32GG;
  result__OQU= 0;
  __tmp__PQU=Self__MQU->count__4C;
  Self__3SZ= 1;
  __tmp__32GG=Self__MQU->storage__E5M;
  while ((Self__3SZ <= __tmp__PQU)) {
    result__OQU=(__INTEGER)((__INTEGER)( 5 * result__OQU) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)__tmp__32GG)[(__INTEGER)(Self__3SZ -  1)])));
    Self__3SZ=(__INTEGER)(Self__3SZ +  1);
  };
  if ((result__OQU <  0)) {
    result__OQU=(__INTEGER)(~ result__OQU);
  };
  return(result__OQU);
}

static __BOOLEAN read_symbol__I0J(void *st__K0J)
// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  __INTEGER posold__M0J,j__N0J,__tmp__F3GG,__tmp__G3GG,__tmp__H3GG;
  __BOOLEAN result__O0J,__tmp__W1J,__tmp__T1J;
  __CHARACTER *__tmp__I3GG,*__tmp__HHIG,*__tmp__IHIG;
  __CHARACTER result__YTFG,result__3TFG;
  posold__M0J= 0;
  j__N0J= 0;
  result__O0J=FALSE__;
  if ((! read_space__MMD())) {
    result__O0J=FALSE__;
  } else {
    posold__M0J=position__V0B;
    j__N0J= 1;
    __tmp__F3GG=((__STRING *)source__S0B)->count__04B;
    __tmp__G3GG=((__STRING_CONSTANT *)st__K0J)->count__4C;
    __tmp__H3GG=((__STRING *)source__S0B)->count__04B;
    __tmp__I3GG=((__STRING_CONSTANT *)st__K0J)->storage__E5M;
    __tmp__HHIG=((__STRING *)source__S0B)->storage__HGQ;
    __tmp__IHIG=((__STRING *)source__S0B)->storage__HGQ;
    until_do__1G3:
    {
      result__YTFG='\0';
      if ((position__V0B > __tmp__F3GG)) {
        result__YTFG=((__CHARACTER )(( 0)));
      } else {
        result__YTFG=((__CHARACTER *)__tmp__HHIG)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__YTFG == ((__CHARACTER )(( 0))))) {
        __tmp__W1J=TRUE__;
      } else {
        if ((j__N0J > __tmp__G3GG)) {
          __tmp__T1J=TRUE__;
        } else {
          result__3TFG='\0';
          if ((position__V0B > __tmp__H3GG)) {
            result__3TFG=((__CHARACTER )(( 0)));
          } else {
            result__3TFG=((__CHARACTER *)__tmp__IHIG)[(__INTEGER)(position__V0B -  1)];
          };
          __tmp__T1J=(result__3TFG != ((__CHARACTER *)__tmp__I3GG)[(__INTEGER)(j__N0J -  1)]);
        };
        __tmp__W1J=__tmp__T1J;
      };
      if ((! __tmp__W1J)) {
        j__N0J=(__INTEGER)(j__N0J +  1);
        position__V0B=(__INTEGER)(position__V0B +  1);
        goto until_do__1G3;
      };
    };
    if ((j__N0J > ((__STRING_CONSTANT *)st__K0J)->count__4C)) {
      result__O0J=TRUE__;
    } else {
      position__V0B=posold__M0J;
      result__O0J=FALSE__;
    };
  };
  return(result__O0J);
}

static __BOOLEAN read_short_elt__UDHB()
// () With resultNo recursive, No inlinable.
{
  __INTEGER j__YDHB,new_capacity__Y3IG,old_nb_elts__13IG,upper__GZJG;
  __INTEGER Self__EZJG,new_capacity__43IG,old_nb_elts__B4IG,upper__LZJG;
  __INTEGER Self__JZJG,new_capacity__E4IG,old_nb_elts__H4IG,upper__QZJG;
  __INTEGER Self__OZJG,new_capacity__K4IG,old_nb_elts__N4IG,upper__VZJG;
  __INTEGER Self__TZJG,new_capacity__Q4IG,old_nb_elts__T4IG,upper__0ZJG;
  __INTEGER Self__YZJG,new_capacity__W4IG,old_nb_elts__Z4IG,upper__5ZJG;
  __INTEGER Self__3ZJG,new_capacity__24IG,old_nb_elts__54IG,upper__E0JG;
  __INTEGER Self__C0JG,new_capacity__C5IG,old_nb_elts__F5IG,upper__J0JG;
  __INTEGER Self__H0JG,new_capacity__I5IG,old_nb_elts__L5IG,upper__O0JG;
  __INTEGER Self__M0JG,new_capacity__O5IG,old_nb_elts__R5IG,upper__T0JG;
  __INTEGER Self__R0JG,new_capacity__U5IG,old_nb_elts__X5IG,upper__Y0JG;
  __INTEGER Self__W0JG,new_capacity__05IG,old_nb_elts__35IG,upper__30JG;
  __INTEGER Self__10JG;
  __POSITION pos__HNG;
  __STRING *Self__Z3IG,*Self__53IG,*Self__F4IG,*Self__L4IG,*Self__R4IG;
  __STRING *Self__X4IG,*Self__34IG,*Self__D5IG,*Self__J5IG,*Self__P5IG;
  __STRING *Self__V5IG,*Self__15IG;
  __BOOLEAN result__XDHB,__tmp__LEHB;
  __CHARACTER __tmp__QFHB,ch__55IG;
  __CHARACTER *Self__03IG,*new__23IG,*Self__A4IG,*new__C4IG,*Self__G4IG;
  __CHARACTER *new__I4IG,*Self__M4IG,*new__O4IG,*Self__S4IG,*new__U4IG;
  __CHARACTER *Self__Y4IG,*new__04IG,*Self__44IG,*new__A5IG,*Self__E5IG;
  __CHARACTER *new__G5IG,*Self__K5IG,*new__M5IG,*Self__Q5IG,*new__S5IG;
  __CHARACTER *Self__W5IG,*new__Y5IG,*Self__25IG,*new__45IG;
  result__XDHB=FALSE__;
  j__YDHB= 0;
  if (read_identifier__EBL()) {
    if (((void *)last_string__NTC != (void *)(&__string_87))) {
      pos__HNG=current_position__A0F();
      put_error__text__WRG( 2,(&__string_164));
      put_position__ATG(pos__HNG);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
    last_string__NTC=NULL;
    result__XDHB=TRUE__;
    __tmp__LEHB=TRUE__;
  } else {
    __tmp__LEHB=FALSE__;
  };
  if ((! __tmp__LEHB)) {
    if (read_string__WSO()) {
      ((__STRING *)string_tmp__QH)->count__04B= 0;
      j__YDHB= 1;
      while ((j__YDHB <= ((__STRING_CONSTANT *)last_string__NTC)->count__4C)) {
        if ((((__CHARACTER *)((__STRING_CONSTANT *)last_string__NTC)->storage__E5M)[(__INTEGER)(j__YDHB -  1)] == '\\')) {
          j__YDHB=(__INTEGER)(j__YDHB +  1);
          __tmp__QFHB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__NTC)->storage__E5M)[(__INTEGER)(j__YDHB -  1)];
          if ((__tmp__QFHB == 'a')) {
            Self__Z3IG=((__STRING *)string_tmp__QH);
            new_capacity__Y3IG= 0;
            if ((Self__Z3IG->capacity__4FQ <= Self__Z3IG->count__04B)) {
              if ((Self__Z3IG->capacity__4FQ ==  0)) {
                Self__Z3IG->capacity__4FQ= 32;
                Self__Z3IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__Y3IG=(__INTEGER)(Self__Z3IG->capacity__4FQ <<  1);
                Self__03IG=((__CHARACTER *)Self__Z3IG->storage__HGQ);
                old_nb_elts__13IG=Self__Z3IG->capacity__4FQ;
                new__23IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__03IG),((__UINTEGER_32 )old_nb_elts__13IG),((__UINTEGER_32 )new_capacity__Y3IG)));
                upper__GZJG=(__INTEGER)(new_capacity__Y3IG -  1);
                Self__EZJG=old_nb_elts__13IG;
                while ((Self__EZJG <= upper__GZJG)) {
                  new__23IG[Self__EZJG]='\0';
                  Self__EZJG=(__INTEGER)(Self__EZJG +  1);
                };
                Self__Z3IG->storage__HGQ=new__23IG;
                Self__Z3IG->capacity__4FQ=new_capacity__Y3IG;
              };
            };
            ((__CHARACTER *)Self__Z3IG->storage__HGQ)[Self__Z3IG->count__04B]='\a';
            Self__Z3IG->count__04B=(__INTEGER)(Self__Z3IG->count__04B +  1);
          };
          if ((__tmp__QFHB == 'b')) {
            Self__53IG=((__STRING *)string_tmp__QH);
            new_capacity__43IG= 0;
            if ((Self__53IG->capacity__4FQ <= Self__53IG->count__04B)) {
              if ((Self__53IG->capacity__4FQ ==  0)) {
                Self__53IG->capacity__4FQ= 32;
                Self__53IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__43IG=(__INTEGER)(Self__53IG->capacity__4FQ <<  1);
                Self__A4IG=((__CHARACTER *)Self__53IG->storage__HGQ);
                old_nb_elts__B4IG=Self__53IG->capacity__4FQ;
                new__C4IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__A4IG),((__UINTEGER_32 )old_nb_elts__B4IG),((__UINTEGER_32 )new_capacity__43IG)));
                upper__LZJG=(__INTEGER)(new_capacity__43IG -  1);
                Self__JZJG=old_nb_elts__B4IG;
                while ((Self__JZJG <= upper__LZJG)) {
                  new__C4IG[Self__JZJG]='\0';
                  Self__JZJG=(__INTEGER)(Self__JZJG +  1);
                };
                Self__53IG->storage__HGQ=new__C4IG;
                Self__53IG->capacity__4FQ=new_capacity__43IG;
              };
            };
            ((__CHARACTER *)Self__53IG->storage__HGQ)[Self__53IG->count__04B]='\b';
            Self__53IG->count__04B=(__INTEGER)(Self__53IG->count__04B +  1);
          };
          if ((__tmp__QFHB == 'f')) {
            Self__F4IG=((__STRING *)string_tmp__QH);
            new_capacity__E4IG= 0;
            if ((Self__F4IG->capacity__4FQ <= Self__F4IG->count__04B)) {
              if ((Self__F4IG->capacity__4FQ ==  0)) {
                Self__F4IG->capacity__4FQ= 32;
                Self__F4IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__E4IG=(__INTEGER)(Self__F4IG->capacity__4FQ <<  1);
                Self__G4IG=((__CHARACTER *)Self__F4IG->storage__HGQ);
                old_nb_elts__H4IG=Self__F4IG->capacity__4FQ;
                new__I4IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__G4IG),((__UINTEGER_32 )old_nb_elts__H4IG),((__UINTEGER_32 )new_capacity__E4IG)));
                upper__QZJG=(__INTEGER)(new_capacity__E4IG -  1);
                Self__OZJG=old_nb_elts__H4IG;
                while ((Self__OZJG <= upper__QZJG)) {
                  new__I4IG[Self__OZJG]='\0';
                  Self__OZJG=(__INTEGER)(Self__OZJG +  1);
                };
                Self__F4IG->storage__HGQ=new__I4IG;
                Self__F4IG->capacity__4FQ=new_capacity__E4IG;
              };
            };
            ((__CHARACTER *)Self__F4IG->storage__HGQ)[Self__F4IG->count__04B]='\f';
            Self__F4IG->count__04B=(__INTEGER)(Self__F4IG->count__04B +  1);
          };
          if ((__tmp__QFHB == 'n')) {
            Self__L4IG=((__STRING *)string_tmp__QH);
            new_capacity__K4IG= 0;
            if ((Self__L4IG->capacity__4FQ <= Self__L4IG->count__04B)) {
              if ((Self__L4IG->capacity__4FQ ==  0)) {
                Self__L4IG->capacity__4FQ= 32;
                Self__L4IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__K4IG=(__INTEGER)(Self__L4IG->capacity__4FQ <<  1);
                Self__M4IG=((__CHARACTER *)Self__L4IG->storage__HGQ);
                old_nb_elts__N4IG=Self__L4IG->capacity__4FQ;
                new__O4IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__M4IG),((__UINTEGER_32 )old_nb_elts__N4IG),((__UINTEGER_32 )new_capacity__K4IG)));
                upper__VZJG=(__INTEGER)(new_capacity__K4IG -  1);
                Self__TZJG=old_nb_elts__N4IG;
                while ((Self__TZJG <= upper__VZJG)) {
                  new__O4IG[Self__TZJG]='\0';
                  Self__TZJG=(__INTEGER)(Self__TZJG +  1);
                };
                Self__L4IG->storage__HGQ=new__O4IG;
                Self__L4IG->capacity__4FQ=new_capacity__K4IG;
              };
            };
            ((__CHARACTER *)Self__L4IG->storage__HGQ)[Self__L4IG->count__04B]='\n';
            Self__L4IG->count__04B=(__INTEGER)(Self__L4IG->count__04B +  1);
          };
          if ((__tmp__QFHB == 'r')) {
            Self__R4IG=((__STRING *)string_tmp__QH);
            new_capacity__Q4IG= 0;
            if ((Self__R4IG->capacity__4FQ <= Self__R4IG->count__04B)) {
              if ((Self__R4IG->capacity__4FQ ==  0)) {
                Self__R4IG->capacity__4FQ= 32;
                Self__R4IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__Q4IG=(__INTEGER)(Self__R4IG->capacity__4FQ <<  1);
                Self__S4IG=((__CHARACTER *)Self__R4IG->storage__HGQ);
                old_nb_elts__T4IG=Self__R4IG->capacity__4FQ;
                new__U4IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__S4IG),((__UINTEGER_32 )old_nb_elts__T4IG),((__UINTEGER_32 )new_capacity__Q4IG)));
                upper__0ZJG=(__INTEGER)(new_capacity__Q4IG -  1);
                Self__YZJG=old_nb_elts__T4IG;
                while ((Self__YZJG <= upper__0ZJG)) {
                  new__U4IG[Self__YZJG]='\0';
                  Self__YZJG=(__INTEGER)(Self__YZJG +  1);
                };
                Self__R4IG->storage__HGQ=new__U4IG;
                Self__R4IG->capacity__4FQ=new_capacity__Q4IG;
              };
            };
            ((__CHARACTER *)Self__R4IG->storage__HGQ)[Self__R4IG->count__04B]='\r';
            Self__R4IG->count__04B=(__INTEGER)(Self__R4IG->count__04B +  1);
          };
          if ((__tmp__QFHB == 't')) {
            Self__X4IG=((__STRING *)string_tmp__QH);
            new_capacity__W4IG= 0;
            if ((Self__X4IG->capacity__4FQ <= Self__X4IG->count__04B)) {
              if ((Self__X4IG->capacity__4FQ ==  0)) {
                Self__X4IG->capacity__4FQ= 32;
                Self__X4IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__W4IG=(__INTEGER)(Self__X4IG->capacity__4FQ <<  1);
                Self__Y4IG=((__CHARACTER *)Self__X4IG->storage__HGQ);
                old_nb_elts__Z4IG=Self__X4IG->capacity__4FQ;
                new__04IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__Y4IG),((__UINTEGER_32 )old_nb_elts__Z4IG),((__UINTEGER_32 )new_capacity__W4IG)));
                upper__5ZJG=(__INTEGER)(new_capacity__W4IG -  1);
                Self__3ZJG=old_nb_elts__Z4IG;
                while ((Self__3ZJG <= upper__5ZJG)) {
                  new__04IG[Self__3ZJG]='\0';
                  Self__3ZJG=(__INTEGER)(Self__3ZJG +  1);
                };
                Self__X4IG->storage__HGQ=new__04IG;
                Self__X4IG->capacity__4FQ=new_capacity__W4IG;
              };
            };
            ((__CHARACTER *)Self__X4IG->storage__HGQ)[Self__X4IG->count__04B]='\t';
            Self__X4IG->count__04B=(__INTEGER)(Self__X4IG->count__04B +  1);
          };
          if ((__tmp__QFHB == 'v')) {
            Self__34IG=((__STRING *)string_tmp__QH);
            new_capacity__24IG= 0;
            if ((Self__34IG->capacity__4FQ <= Self__34IG->count__04B)) {
              if ((Self__34IG->capacity__4FQ ==  0)) {
                Self__34IG->capacity__4FQ= 32;
                Self__34IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__24IG=(__INTEGER)(Self__34IG->capacity__4FQ <<  1);
                Self__44IG=((__CHARACTER *)Self__34IG->storage__HGQ);
                old_nb_elts__54IG=Self__34IG->capacity__4FQ;
                new__A5IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__44IG),((__UINTEGER_32 )old_nb_elts__54IG),((__UINTEGER_32 )new_capacity__24IG)));
                upper__E0JG=(__INTEGER)(new_capacity__24IG -  1);
                Self__C0JG=old_nb_elts__54IG;
                while ((Self__C0JG <= upper__E0JG)) {
                  new__A5IG[Self__C0JG]='\0';
                  Self__C0JG=(__INTEGER)(Self__C0JG +  1);
                };
                Self__34IG->storage__HGQ=new__A5IG;
                Self__34IG->capacity__4FQ=new_capacity__24IG;
              };
            };
            ((__CHARACTER *)Self__34IG->storage__HGQ)[Self__34IG->count__04B]='\v';
            Self__34IG->count__04B=(__INTEGER)(Self__34IG->count__04B +  1);
          };
          if ((__tmp__QFHB == '\\')) {
            Self__D5IG=((__STRING *)string_tmp__QH);
            new_capacity__C5IG= 0;
            if ((Self__D5IG->capacity__4FQ <= Self__D5IG->count__04B)) {
              if ((Self__D5IG->capacity__4FQ ==  0)) {
                Self__D5IG->capacity__4FQ= 32;
                Self__D5IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__C5IG=(__INTEGER)(Self__D5IG->capacity__4FQ <<  1);
                Self__E5IG=((__CHARACTER *)Self__D5IG->storage__HGQ);
                old_nb_elts__F5IG=Self__D5IG->capacity__4FQ;
                new__G5IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__E5IG),((__UINTEGER_32 )old_nb_elts__F5IG),((__UINTEGER_32 )new_capacity__C5IG)));
                upper__J0JG=(__INTEGER)(new_capacity__C5IG -  1);
                Self__H0JG=old_nb_elts__F5IG;
                while ((Self__H0JG <= upper__J0JG)) {
                  new__G5IG[Self__H0JG]='\0';
                  Self__H0JG=(__INTEGER)(Self__H0JG +  1);
                };
                Self__D5IG->storage__HGQ=new__G5IG;
                Self__D5IG->capacity__4FQ=new_capacity__C5IG;
              };
            };
            ((__CHARACTER *)Self__D5IG->storage__HGQ)[Self__D5IG->count__04B]='\\';
            Self__D5IG->count__04B=(__INTEGER)(Self__D5IG->count__04B +  1);
          };
          if ((__tmp__QFHB == '?')) {
            Self__J5IG=((__STRING *)string_tmp__QH);
            new_capacity__I5IG= 0;
            if ((Self__J5IG->capacity__4FQ <= Self__J5IG->count__04B)) {
              if ((Self__J5IG->capacity__4FQ ==  0)) {
                Self__J5IG->capacity__4FQ= 32;
                Self__J5IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__I5IG=(__INTEGER)(Self__J5IG->capacity__4FQ <<  1);
                Self__K5IG=((__CHARACTER *)Self__J5IG->storage__HGQ);
                old_nb_elts__L5IG=Self__J5IG->capacity__4FQ;
                new__M5IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__K5IG),((__UINTEGER_32 )old_nb_elts__L5IG),((__UINTEGER_32 )new_capacity__I5IG)));
                upper__O0JG=(__INTEGER)(new_capacity__I5IG -  1);
                Self__M0JG=old_nb_elts__L5IG;
                while ((Self__M0JG <= upper__O0JG)) {
                  new__M5IG[Self__M0JG]='\0';
                  Self__M0JG=(__INTEGER)(Self__M0JG +  1);
                };
                Self__J5IG->storage__HGQ=new__M5IG;
                Self__J5IG->capacity__4FQ=new_capacity__I5IG;
              };
            };
            ((__CHARACTER *)Self__J5IG->storage__HGQ)[Self__J5IG->count__04B]='\?';
            Self__J5IG->count__04B=(__INTEGER)(Self__J5IG->count__04B +  1);
          };
          if ((__tmp__QFHB == '\'')) {
            Self__P5IG=((__STRING *)string_tmp__QH);
            new_capacity__O5IG= 0;
            if ((Self__P5IG->capacity__4FQ <= Self__P5IG->count__04B)) {
              if ((Self__P5IG->capacity__4FQ ==  0)) {
                Self__P5IG->capacity__4FQ= 32;
                Self__P5IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__O5IG=(__INTEGER)(Self__P5IG->capacity__4FQ <<  1);
                Self__Q5IG=((__CHARACTER *)Self__P5IG->storage__HGQ);
                old_nb_elts__R5IG=Self__P5IG->capacity__4FQ;
                new__S5IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__Q5IG),((__UINTEGER_32 )old_nb_elts__R5IG),((__UINTEGER_32 )new_capacity__O5IG)));
                upper__T0JG=(__INTEGER)(new_capacity__O5IG -  1);
                Self__R0JG=old_nb_elts__R5IG;
                while ((Self__R0JG <= upper__T0JG)) {
                  new__S5IG[Self__R0JG]='\0';
                  Self__R0JG=(__INTEGER)(Self__R0JG +  1);
                };
                Self__P5IG->storage__HGQ=new__S5IG;
                Self__P5IG->capacity__4FQ=new_capacity__O5IG;
              };
            };
            ((__CHARACTER *)Self__P5IG->storage__HGQ)[Self__P5IG->count__04B]='\'';
            Self__P5IG->count__04B=(__INTEGER)(Self__P5IG->count__04B +  1);
          };
          if ((__tmp__QFHB == '\"')) {
            Self__V5IG=((__STRING *)string_tmp__QH);
            new_capacity__U5IG= 0;
            if ((Self__V5IG->capacity__4FQ <= Self__V5IG->count__04B)) {
              if ((Self__V5IG->capacity__4FQ ==  0)) {
                Self__V5IG->capacity__4FQ= 32;
                Self__V5IG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__U5IG=(__INTEGER)(Self__V5IG->capacity__4FQ <<  1);
                Self__W5IG=((__CHARACTER *)Self__V5IG->storage__HGQ);
                old_nb_elts__X5IG=Self__V5IG->capacity__4FQ;
                new__Y5IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__W5IG),((__UINTEGER_32 )old_nb_elts__X5IG),((__UINTEGER_32 )new_capacity__U5IG)));
                upper__Y0JG=(__INTEGER)(new_capacity__U5IG -  1);
                Self__W0JG=old_nb_elts__X5IG;
                while ((Self__W0JG <= upper__Y0JG)) {
                  new__Y5IG[Self__W0JG]='\0';
                  Self__W0JG=(__INTEGER)(Self__W0JG +  1);
                };
                Self__V5IG->storage__HGQ=new__Y5IG;
                Self__V5IG->capacity__4FQ=new_capacity__U5IG;
              };
            };
            ((__CHARACTER *)Self__V5IG->storage__HGQ)[Self__V5IG->count__04B]='\"';
            Self__V5IG->count__04B=(__INTEGER)(Self__V5IG->count__04B +  1);
          };
        } else {
          Self__15IG=((__STRING *)string_tmp__QH);
          ch__55IG=((__CHARACTER *)((__STRING_CONSTANT *)last_string__NTC)->storage__E5M)[(__INTEGER)(j__YDHB -  1)];
          new_capacity__05IG= 0;
          if ((Self__15IG->capacity__4FQ <= Self__15IG->count__04B)) {
            if ((Self__15IG->capacity__4FQ ==  0)) {
              Self__15IG->capacity__4FQ= 32;
              Self__15IG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__05IG=(__INTEGER)(Self__15IG->capacity__4FQ <<  1);
              Self__25IG=((__CHARACTER *)Self__15IG->storage__HGQ);
              old_nb_elts__35IG=Self__15IG->capacity__4FQ;
              new__45IG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__25IG),((__UINTEGER_32 )old_nb_elts__35IG),((__UINTEGER_32 )new_capacity__05IG)));
              upper__30JG=(__INTEGER)(new_capacity__05IG -  1);
              Self__10JG=old_nb_elts__35IG;
              while ((Self__10JG <= upper__30JG)) {
                new__45IG[Self__10JG]='\0';
                Self__10JG=(__INTEGER)(Self__10JG +  1);
              };
              Self__15IG->storage__HGQ=new__45IG;
              Self__15IG->capacity__4FQ=new_capacity__05IG;
            };
          };
          ((__CHARACTER *)Self__15IG->storage__HGQ)[Self__15IG->count__04B]=ch__55IG;
          Self__15IG->count__04B=(__INTEGER)(Self__15IG->count__04B +  1);
        };
        j__YDHB=(__INTEGER)(j__YDHB +  1);
      };
      last_string__NTC=get__TPB(string_tmp__QH);
      result__XDHB=TRUE__;
    };
  };
  return(result__XDHB);
}

static void fast_put__to__45P(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__55P,void *k__BAQ)
// ({HASHED_DICTIONARYoTYPExSTRING_CONSTANTo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
{
  __INTEGER h__IAQ,idx__JAQ,idx__TBKB,new_capacity__UBKB,i__VBKB;
  __INTEGER typ_id__EEKB;
  __POINTER ptr__5DKB,ptr_table__F1JG,next__E1JG,result__G1JG;
  __POINTER ptr_table__K1JG,next__J1JG,result__L1JG;
  __UINTEGER_32 sz__BEKB,a__L5GG,new_size__M5GG,t__Q5GG,a__P5GG;
  __UINTEGER_32 new_size__N1JG,lab_type__M1JG;
  void *node__MAQ,*node1__XBKB,*node2__YBKB,*__tmp__ACQ;
  void **old_buckets__WBKB;
  __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *result__4DKB;
  __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *Self__5L5B;
  h__IAQ=hash_code__LQU(k__BAQ);
  idx__JAQ=(__INTEGER)(h__IAQ % Self__55P->capacity__OAQ);
  node__MAQ=((void **)Self__55P->buckets__TAQ)[idx__JAQ];
  while ((! (((void *)node__MAQ == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node__MAQ)->key__5AQ == (void *)k__BAQ)))) {
    node__MAQ=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node__MAQ)->next__KBQ;
  };
  if (((void *)node__MAQ == (void *)NULL)) {
    if ((Self__55P->capacity__OAQ == Self__55P->count__TBQ)) {
      idx__TBKB= 0;
      node1__XBKB=NULL;
      node2__YBKB=NULL;
      old_buckets__WBKB=Self__55P->buckets__TAQ;
      new_capacity__UBKB=prime_number_ceiling__33Z((__INTEGER)(Self__55P->capacity__OAQ +  1));
      Self__55P->buckets__TAQ=create__RY0(new_capacity__UBKB);
      i__VBKB=(__INTEGER)(Self__55P->capacity__OAQ -  1);
      Self__55P->capacity__OAQ=new_capacity__UBKB;
      while ((i__VBKB >=  0)) {
        node1__XBKB=((void **)old_buckets__WBKB)[i__VBKB];
        while (((void *)node1__XBKB != (void *)NULL)) {
          node2__YBKB=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__XBKB)->next__KBQ;
          idx__TBKB=(__INTEGER)(hash_code__LQU(((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__XBKB)->key__5AQ) % Self__55P->capacity__OAQ);
          ((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__XBKB)->next__KBQ=((void **)Self__55P->buckets__TAQ)[idx__TBKB];
          ((void **)Self__55P->buckets__TAQ)[idx__TBKB]=node1__XBKB;
          node1__XBKB=node2__YBKB;
        };
        i__VBKB=(__INTEGER)(i__VBKB -  1);
      };
      idx__JAQ=(__INTEGER)(h__IAQ % Self__55P->capacity__OAQ);
    };
    __tmp__ACQ=((void **)Self__55P->buckets__TAQ)[idx__JAQ];
    result__4DKB=NULL;
    ptr__5DKB=((__POINTER )(NULL));
    typ_id__EEKB= 0;
    sz__BEKB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo));
    if ((sz__BEKB ==  0)) {
      result__4DKB=HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__;
    } else {
      typ_id__EEKB=__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__BEKB);
      if ((typ_id__EEKB == (__INTEGER)(-  1))) {
        a__L5GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__M5GG=(__UINTEGER_32)((__UINTEGER_32)(sz__BEKB + a__L5GG) & (__UINTEGER_32)(~ a__L5GG));
        ptr_table__F1JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__M5GG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__E1JG=((__POINTER )(NULL));
        result__G1JG=((__POINTER *)ptr_table__F1JG)[ 0];
        if ((result__G1JG == (void *)NULL)) {
          result__G1JG=new_lab__RUJ(new_size__M5GG);
          next__E1JG=(void *)((unsigned long)result__G1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M5GG)));
          ((__POINTER *)next__E1JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__F1JG)[ 0]=next__E1JG;
        } else {
          next__E1JG=((__POINTER *)result__G1JG)[ 0];
          if ((next__E1JG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G1JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__M5GG <<  1)) <=  4096)) {
              next__E1JG=(void *)((unsigned long)result__G1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M5GG)));
            } else {
              next__E1JG=new_lab__RUJ(new_size__M5GG);
            };
            ((__POINTER *)next__E1JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__F1JG)[ 0]=next__E1JG;
          } else {
            ((__POINTER *)result__G1JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__E1JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__G1JG=next__E1JG;
          };
        };
        ptr__5DKB=result__G1JG;
      } else {
        t__Q5GG=((__UINTEGER_32 )typ_id__EEKB);
        a__P5GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__N1JG=(__UINTEGER_32)((__UINTEGER_32)(sz__BEKB + a__P5GG) & (__UINTEGER_32)(~ a__P5GG));
        ptr_table__K1JG=((__POINTER )(&(table_type[(t__Q5GG)])));
        lab_type__M1JG=(__UINTEGER_32)(t__Q5GG |  1);
        next__J1JG=((__POINTER )(NULL));
        result__L1JG=((__POINTER *)ptr_table__K1JG)[ 0];
        if ((result__L1JG == (void *)NULL)) {
          result__L1JG=new_lab__RUJ(lab_type__M1JG);
          next__J1JG=(void *)((unsigned long)result__L1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N1JG)));
          ((__POINTER *)next__J1JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__K1JG)[ 0]=next__J1JG;
        } else {
          next__J1JG=((__POINTER *)result__L1JG)[ 0];
          if ((next__J1JG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L1JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__N1JG <<  1)) <=  4096)) {
              next__J1JG=(void *)((unsigned long)result__L1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N1JG)));
            } else {
              next__J1JG=new_lab__RUJ(lab_type__M1JG);
            };
            ((__POINTER *)next__J1JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__K1JG)[ 0]=next__J1JG;
          } else {
            ((__POINTER *)result__L1JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__J1JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__L1JG=next__J1JG;
          };
        };
        ptr__5DKB=result__L1JG;
      };
      result__4DKB=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)ptr__5DKB);
      *(result__4DKB) = *(HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__);
    };
    Self__5L5B=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)result__4DKB);
    Self__5L5B->key__5AQ=k__BAQ;
    Self__5L5B->next__KBQ=__tmp__ACQ;
    node__MAQ=result__4DKB;
    ((void **)Self__55P->buckets__TAQ)[idx__JAQ]=result__4DKB;
    Self__55P->count__TBQ=(__INTEGER)(Self__55P->count__TBQ +  1);
  };
}

static void** create__IGKB(__INTEGER nb_elements__KGKB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__ERIG,a__DRIG,new_size__FRIG,new_size2__GRIG,a__HRIG;
  __UINTEGER_32 new_size__IRIG;
  __POINTER result__CRIG,ptr_table__P1JG,next__O1JG,result__Q1JG;
  __INTEGER Self__HUIC;
  void **Result__3POB;
  sz__ERIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__KGKB * ((__INTEGER )(sizeof(void *)))));
  result__CRIG=((__POINTER )(NULL));
  a__DRIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__FRIG=(__UINTEGER_32)((__UINTEGER_32)(sz__ERIG + a__DRIG) & (__UINTEGER_32)(~ a__DRIG));
  new_size2__GRIG=(__UINTEGER_32)(new_size__FRIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__GRIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__HRIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__IRIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GRIG + a__HRIG) & (__UINTEGER_32)(~ a__HRIG));
    ptr_table__P1JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IRIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__O1JG=((__POINTER )(NULL));
    result__Q1JG=((__POINTER *)ptr_table__P1JG)[ 0];
    if ((result__Q1JG == (void *)NULL)) {
      result__Q1JG=new_lab__RUJ(new_size__IRIG);
      next__O1JG=(void *)((unsigned long)result__Q1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IRIG)));
      ((__POINTER *)next__O1JG)[ 0]=NULL;
      ((__POINTER *)ptr_table__P1JG)[ 0]=next__O1JG;
    } else {
      next__O1JG=((__POINTER *)result__Q1JG)[ 0];
      if ((next__O1JG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q1JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__IRIG <<  1)) <=  4096)) {
          next__O1JG=(void *)((unsigned long)result__Q1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IRIG)));
        } else {
          next__O1JG=new_lab__RUJ(new_size__IRIG);
        };
        ((__POINTER *)next__O1JG)[ 0]=NULL;
        ((__POINTER *)ptr_table__P1JG)[ 0]=next__O1JG;
      } else {
        ((__POINTER *)result__Q1JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__O1JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__Q1JG=next__O1JG;
      };
    };
    ((__POINTER *)result__Q1JG)[ 0]=((__POINTER ) 3);
    result__CRIG=(void *)((unsigned long)result__Q1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__CRIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__FRIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__3POB=((void **)result__CRIG);
  Self__HUIC=(__INTEGER)(nb_elements__KGKB -  1);
  while ((Self__HUIC >=  0)) {
    Result__3POB[Self__HUIC]=NULL;
    Self__HUIC=(__INTEGER)(Self__HUIC -  1);
  };
  return(Result__3POB);
}

static __TYPE_ID* create__JLB()
// () With resultNo recursive, No inlinable.
{
  __TYPE_ID *result__FXB;
  __POINTER ptr__GXB,ptr_table__U1JG,next__T1JG,result__V1JG;
  __POINTER ptr_table__Z1JG,next__Y1JG,result__01JG,ptr__HAJG;
  __POINTER ptr_table__41JG,next__31JG,result__51JG,ptr_table__D2JG;
  __POINTER next__C2JG,result__E2JG;
  __INTEGER typ_id__LXB,typ_id__IAJG;
  __UINTEGER_32 sz__IXB,a__15GG,new_size__25GG,t__AAHG,a__55GG;
  __UINTEGER_32 new_size__21JG,lab_type__11JG,sz__JAJG,a__KAJG;
  __UINTEGER_32 new_size__LAJG,t__MAJG,a__NAJG,new_size__G2JG;
  __UINTEGER_32 lab_type__F2JG;
  result__FXB=NULL;
  ptr__GXB=((__POINTER )(NULL));
  typ_id__LXB= 0;
  sz__IXB=((__UINTEGER_32 )sizeof(__TYPE_ID));
  if ((sz__IXB ==  0)) {
    result__FXB=TYPE_ID__;
  } else {
    typ_id__LXB=__TYPE_ID__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__IXB);
    if ((typ_id__LXB == (__INTEGER)(-  1))) {
      a__15GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__25GG=(__UINTEGER_32)((__UINTEGER_32)(sz__IXB + a__15GG) & (__UINTEGER_32)(~ a__15GG));
      ptr_table__U1JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__25GG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__T1JG=((__POINTER )(NULL));
      result__V1JG=((__POINTER *)ptr_table__U1JG)[ 0];
      if ((result__V1JG == (void *)NULL)) {
        result__V1JG=new_lab__RUJ(new_size__25GG);
        next__T1JG=(void *)((unsigned long)result__V1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__25GG)));
        ((__POINTER *)next__T1JG)[ 0]=NULL;
        ((__POINTER *)ptr_table__U1JG)[ 0]=next__T1JG;
      } else {
        next__T1JG=((__POINTER *)result__V1JG)[ 0];
        if ((next__T1JG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V1JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__25GG <<  1)) <=  4096)) {
            next__T1JG=(void *)((unsigned long)result__V1JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__25GG)));
          } else {
            next__T1JG=new_lab__RUJ(new_size__25GG);
          };
          ((__POINTER *)next__T1JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__U1JG)[ 0]=next__T1JG;
        } else {
          ((__POINTER *)result__V1JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__T1JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__V1JG=next__T1JG;
        };
      };
      ptr__GXB=result__V1JG;
    } else {
      t__AAHG=((__UINTEGER_32 )typ_id__LXB);
      a__55GG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__21JG=(__UINTEGER_32)((__UINTEGER_32)(sz__IXB + a__55GG) & (__UINTEGER_32)(~ a__55GG));
      ptr_table__Z1JG=((__POINTER )(&(table_type[(t__AAHG)])));
      lab_type__11JG=(__UINTEGER_32)(t__AAHG |  1);
      next__Y1JG=((__POINTER )(NULL));
      result__01JG=((__POINTER *)ptr_table__Z1JG)[ 0];
      if ((result__01JG == (void *)NULL)) {
        result__01JG=new_lab__RUJ(lab_type__11JG);
        next__Y1JG=(void *)((unsigned long)result__01JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21JG)));
        ((__POINTER *)next__Y1JG)[ 0]=NULL;
        ((__POINTER *)ptr_table__Z1JG)[ 0]=next__Y1JG;
      } else {
        next__Y1JG=((__POINTER *)result__01JG)[ 0];
        if ((next__Y1JG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__01JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__21JG <<  1)) <=  4096)) {
            next__Y1JG=(void *)((unsigned long)result__01JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21JG)));
          } else {
            next__Y1JG=new_lab__RUJ(lab_type__11JG);
          };
          ((__POINTER *)next__Y1JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__Z1JG)[ 0]=next__Y1JG;
        } else {
          ((__POINTER *)result__01JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y1JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__01JG=next__Y1JG;
        };
      };
      ptr__GXB=result__01JG;
    };
    result__FXB=((__TYPE_ID *)ptr__GXB);
    *(result__FXB) = *(TYPE_ID__);
  };
  ptr__HAJG=((__POINTER )(NULL));
  typ_id__IAJG= 0;
  sz__JAJG=((__UINTEGER_32 )sizeof(__TYPE_FULL));
  if ((sz__JAJG !=  0)) {
    typ_id__IAJG=__TYPE_FULL__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__JAJG);
    if ((typ_id__IAJG == (__INTEGER)(-  1))) {
      a__KAJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__LAJG=(__UINTEGER_32)((__UINTEGER_32)(sz__JAJG + a__KAJG) & (__UINTEGER_32)(~ a__KAJG));
      ptr_table__41JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LAJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__31JG=((__POINTER )(NULL));
      result__51JG=((__POINTER *)ptr_table__41JG)[ 0];
      if ((result__51JG == (void *)NULL)) {
        result__51JG=new_lab__RUJ(new_size__LAJG);
        next__31JG=(void *)((unsigned long)result__51JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LAJG)));
        ((__POINTER *)next__31JG)[ 0]=NULL;
        ((__POINTER *)ptr_table__41JG)[ 0]=next__31JG;
      } else {
        next__31JG=((__POINTER *)result__51JG)[ 0];
        if ((next__31JG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__51JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LAJG <<  1)) <=  4096)) {
            next__31JG=(void *)((unsigned long)result__51JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LAJG)));
          } else {
            next__31JG=new_lab__RUJ(new_size__LAJG);
          };
          ((__POINTER *)next__31JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__41JG)[ 0]=next__31JG;
        } else {
          ((__POINTER *)result__51JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__31JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__51JG=next__31JG;
        };
      };
      ptr__HAJG=result__51JG;
    } else {
      t__MAJG=((__UINTEGER_32 )typ_id__IAJG);
      a__NAJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__G2JG=(__UINTEGER_32)((__UINTEGER_32)(sz__JAJG + a__NAJG) & (__UINTEGER_32)(~ a__NAJG));
      ptr_table__D2JG=((__POINTER )(&(table_type[(t__MAJG)])));
      lab_type__F2JG=(__UINTEGER_32)(t__MAJG |  1);
      next__C2JG=((__POINTER )(NULL));
      result__E2JG=((__POINTER *)ptr_table__D2JG)[ 0];
      if ((result__E2JG == (void *)NULL)) {
        result__E2JG=new_lab__RUJ(lab_type__F2JG);
        next__C2JG=(void *)((unsigned long)result__E2JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2JG)));
        ((__POINTER *)next__C2JG)[ 0]=NULL;
        ((__POINTER *)ptr_table__D2JG)[ 0]=next__C2JG;
      } else {
        next__C2JG=((__POINTER *)result__E2JG)[ 0];
        if ((next__C2JG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E2JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__G2JG <<  1)) <=  4096)) {
            next__C2JG=(void *)((unsigned long)result__E2JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2JG)));
          } else {
            next__C2JG=new_lab__RUJ(lab_type__F2JG);
          };
          ((__POINTER *)next__C2JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__D2JG)[ 0]=next__C2JG;
        } else {
          ((__POINTER *)result__E2JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__C2JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__E2JG=next__C2JG;
        };
      };
      ptr__HAJG=result__E2JG;
    };
    *(((__TYPE_FULL *)ptr__HAJG)) = *(TYPE_FULL__);
  };
  return(result__FXB);
}

static void add_last__UCQ(__FAST_ARRAYoTYPE_IDo *Self__VCQ,void *element__WCQ)
// ({FAST_ARRAYoTYPE_IDo},{NULLxTYPE_ID}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__XCQ,__tmp__AEQ,__tmp__EO5B,Self__TYVD;
  __BOOLEAN __tmp__HDQ;
  void **__tmp__5DQ,**new__RN5B;
  new_capacity__XCQ= 0;
  if (((__INTEGER)(Self__VCQ->parent_arrayed_collection__I1.upper__YCQ +  1) <= (__INTEGER)(Self__VCQ->parent_arrayed_collection__I1.capacity__0CQ -  1))) {
    Self__VCQ->parent_arrayed_collection__I1.upper__YCQ=(__INTEGER)(Self__VCQ->parent_arrayed_collection__I1.upper__YCQ +  1);
    __tmp__HDQ=TRUE__;
  } else {
    __tmp__HDQ=FALSE__;
  };
  if ((! __tmp__HDQ)) {
    if ((Self__VCQ->parent_arrayed_collection__I1.capacity__0CQ ==  0)) {
      Self__VCQ->parent_arrayed_collection__I1.storage__WDQ=create__IGKB( 2);
      Self__VCQ->parent_arrayed_collection__I1.capacity__0CQ= 2;
      Self__VCQ->parent_arrayed_collection__I1.upper__YCQ= 0;
    } else {
      new_capacity__XCQ=(__INTEGER)(Self__VCQ->parent_arrayed_collection__I1.capacity__0CQ <<  1);
      __tmp__5DQ=Self__VCQ->parent_arrayed_collection__I1.storage__WDQ;
      __tmp__AEQ=Self__VCQ->parent_arrayed_collection__I1.capacity__0CQ;
      new__RN5B=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__5DQ)),((__UINTEGER_32 )(__INTEGER)(__tmp__AEQ * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__XCQ * ((__INTEGER )(sizeof(void *)))))));
      __tmp__EO5B=(__INTEGER)(new_capacity__XCQ -  1);
      Self__TYVD=__tmp__AEQ;
      while ((Self__TYVD <= __tmp__EO5B)) {
        new__RN5B[Self__TYVD]=NULL;
        Self__TYVD=(__INTEGER)(Self__TYVD +  1);
      };
      Self__VCQ->parent_arrayed_collection__I1.storage__WDQ=new__RN5B;
      Self__VCQ->parent_arrayed_collection__I1.capacity__0CQ=new_capacity__XCQ;
      Self__VCQ->parent_arrayed_collection__I1.upper__YCQ=(__INTEGER)(Self__VCQ->parent_arrayed_collection__I1.upper__YCQ +  1);
    };
  };
  ((void **)Self__VCQ->parent_arrayed_collection__I1.storage__WDQ)[Self__VCQ->parent_arrayed_collection__I1.upper__YCQ]=element__WCQ;
}

static void* open__4TRE(__DIRECTORY *Self__5TRE)
// ({DIRECTORY}) With resultNo recursive, No inlinable.
{
  __DIRECTORY *result__H2JG,*Self__M3JG;
  __POINTER ptr__I2JG,ptr_table__Q2JG,next__P2JG,result__R2JG;
  __POINTER ptr_table__V2JG,next__U2JG,result__W2JG,ptr__02JG;
  __POINTER ptr_table__C3JG,next__B3JG,result__D3JG,ptr_table__H3JG;
  __POINTER next__G3JG,result__I3JG,ptr__O3JG,ptr_table__W3JG;
  __POINTER next__V3JG,result__X3JG,ptr_table__13JG,next__03JG;
  __POINTER result__23JG;
  __INTEGER typ_id__J2JG,typ_id__12JG,typ_id__P3JG,new_capacity__PAJG;
  __INTEGER old_nb_elts__SAJG,upper__C4JG,Self__A4JG;
  __UINTEGER_32 sz__K2JG,a__L2JG,new_size__M2JG,t__N2JG,a__O2JG;
  __UINTEGER_32 new_size__Y2JG,lab_type__X2JG,sz__22JG,a__32JG;
  __UINTEGER_32 new_size__42JG,t__52JG,a__A3JG,new_size__K3JG;
  __UINTEGER_32 lab_type__J3JG,sz__Q3JG,a__R3JG,new_size__S3JG,t__T3JG;
  __UINTEGER_32 a__U3JG,new_size__43JG,lab_type__33JG;
  __STD_FILE *result__Z2JG,*Self__2B3F;
  void *__tmp__ZURE,*__tmp__0URE;
  __STRING_CONSTANT *Self__BB5F;
  __STRING *new__CB5F,*Self__OAJG;
  __LINKED_LISToENTRYo *result__N3JG;
  __BOOLEAN __tmp__1URE;
  __CHARACTER *Self__RAJG,*new__TAJG;
  ((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.link_count__EY2B=(__INTEGER)(((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.link_count__EY2B +  1);
  if (((void *)((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.child__HY2B == (void *)NULL)) {
    if (((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.is_directory__BC) {
      result__H2JG=NULL;
      ptr__I2JG=((__POINTER )(NULL));
      typ_id__J2JG= 0;
      sz__K2JG=((__UINTEGER_32 )sizeof(__DIRECTORY));
      if ((sz__K2JG ==  0)) {
        result__H2JG=DIRECTORY__;
      } else {
        typ_id__J2JG=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__K2JG);
        if ((typ_id__J2JG == (__INTEGER)(-  1))) {
          a__L2JG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__M2JG=(__UINTEGER_32)((__UINTEGER_32)(sz__K2JG + a__L2JG) & (__UINTEGER_32)(~ a__L2JG));
          ptr_table__Q2JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__M2JG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__P2JG=((__POINTER )(NULL));
          result__R2JG=((__POINTER *)ptr_table__Q2JG)[ 0];
          if ((result__R2JG == (void *)NULL)) {
            result__R2JG=new_lab__RUJ(new_size__M2JG);
            next__P2JG=(void *)((unsigned long)result__R2JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M2JG)));
            ((__POINTER *)next__P2JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__Q2JG)[ 0]=next__P2JG;
          } else {
            next__P2JG=((__POINTER *)result__R2JG)[ 0];
            if ((next__P2JG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__R2JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__M2JG <<  1)) <=  4096)) {
                next__P2JG=(void *)((unsigned long)result__R2JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M2JG)));
              } else {
                next__P2JG=new_lab__RUJ(new_size__M2JG);
              };
              ((__POINTER *)next__P2JG)[ 0]=NULL;
              ((__POINTER *)ptr_table__Q2JG)[ 0]=next__P2JG;
            } else {
              ((__POINTER *)result__R2JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__P2JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__R2JG=next__P2JG;
            };
          };
          ptr__I2JG=result__R2JG;
        } else {
          t__N2JG=((__UINTEGER_32 )typ_id__J2JG);
          a__O2JG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__Y2JG=(__UINTEGER_32)((__UINTEGER_32)(sz__K2JG + a__O2JG) & (__UINTEGER_32)(~ a__O2JG));
          ptr_table__V2JG=((__POINTER )(&(table_type[(t__N2JG)])));
          lab_type__X2JG=(__UINTEGER_32)(t__N2JG |  1);
          next__U2JG=((__POINTER )(NULL));
          result__W2JG=((__POINTER *)ptr_table__V2JG)[ 0];
          if ((result__W2JG == (void *)NULL)) {
            result__W2JG=new_lab__RUJ(lab_type__X2JG);
            next__U2JG=(void *)((unsigned long)result__W2JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y2JG)));
            ((__POINTER *)next__U2JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__V2JG)[ 0]=next__U2JG;
          } else {
            next__U2JG=((__POINTER *)result__W2JG)[ 0];
            if ((next__U2JG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__W2JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Y2JG <<  1)) <=  4096)) {
                next__U2JG=(void *)((unsigned long)result__W2JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y2JG)));
              } else {
                next__U2JG=new_lab__RUJ(lab_type__X2JG);
              };
              ((__POINTER *)next__U2JG)[ 0]=NULL;
              ((__POINTER *)ptr_table__V2JG)[ 0]=next__U2JG;
            } else {
              ((__POINTER *)result__W2JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__U2JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__W2JG=next__U2JG;
            };
          };
          ptr__I2JG=result__W2JG;
        };
        result__H2JG=((__DIRECTORY *)ptr__I2JG);
        *(result__H2JG) = *(DIRECTORY__);
      };
      ((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.child__HY2B=result__H2JG;
    } else {
      result__Z2JG=NULL;
      ptr__02JG=((__POINTER )(NULL));
      typ_id__12JG= 0;
      sz__22JG=((__UINTEGER_32 )sizeof(__STD_FILE));
      if ((sz__22JG ==  0)) {
        result__Z2JG=STD_FILE__;
      } else {
        typ_id__12JG=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__22JG);
        if ((typ_id__12JG == (__INTEGER)(-  1))) {
          a__32JG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__42JG=(__UINTEGER_32)((__UINTEGER_32)(sz__22JG + a__32JG) & (__UINTEGER_32)(~ a__32JG));
          ptr_table__C3JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__42JG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__B3JG=((__POINTER )(NULL));
          result__D3JG=((__POINTER *)ptr_table__C3JG)[ 0];
          if ((result__D3JG == (void *)NULL)) {
            result__D3JG=new_lab__RUJ(new_size__42JG);
            next__B3JG=(void *)((unsigned long)result__D3JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__42JG)));
            ((__POINTER *)next__B3JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__C3JG)[ 0]=next__B3JG;
          } else {
            next__B3JG=((__POINTER *)result__D3JG)[ 0];
            if ((next__B3JG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D3JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__42JG <<  1)) <=  4096)) {
                next__B3JG=(void *)((unsigned long)result__D3JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__42JG)));
              } else {
                next__B3JG=new_lab__RUJ(new_size__42JG);
              };
              ((__POINTER *)next__B3JG)[ 0]=NULL;
              ((__POINTER *)ptr_table__C3JG)[ 0]=next__B3JG;
            } else {
              ((__POINTER *)result__D3JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__B3JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__D3JG=next__B3JG;
            };
          };
          ptr__02JG=result__D3JG;
        } else {
          t__52JG=((__UINTEGER_32 )typ_id__12JG);
          a__A3JG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__K3JG=(__UINTEGER_32)((__UINTEGER_32)(sz__22JG + a__A3JG) & (__UINTEGER_32)(~ a__A3JG));
          ptr_table__H3JG=((__POINTER )(&(table_type[(t__52JG)])));
          lab_type__J3JG=(__UINTEGER_32)(t__52JG |  1);
          next__G3JG=((__POINTER )(NULL));
          result__I3JG=((__POINTER *)ptr_table__H3JG)[ 0];
          if ((result__I3JG == (void *)NULL)) {
            result__I3JG=new_lab__RUJ(lab_type__J3JG);
            next__G3JG=(void *)((unsigned long)result__I3JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K3JG)));
            ((__POINTER *)next__G3JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__H3JG)[ 0]=next__G3JG;
          } else {
            next__G3JG=((__POINTER *)result__I3JG)[ 0];
            if ((next__G3JG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I3JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__K3JG <<  1)) <=  4096)) {
                next__G3JG=(void *)((unsigned long)result__I3JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K3JG)));
              } else {
                next__G3JG=new_lab__RUJ(lab_type__J3JG);
              };
              ((__POINTER *)next__G3JG)[ 0]=NULL;
              ((__POINTER *)ptr_table__H3JG)[ 0]=next__G3JG;
            } else {
              ((__POINTER *)result__I3JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__G3JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__I3JG=next__G3JG;
            };
          };
          ptr__02JG=result__I3JG;
        };
        result__Z2JG=((__STD_FILE *)ptr__02JG);
        *(result__Z2JG) = *(STD_FILE__);
      };
      ((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.child__HY2B=result__Z2JG;
    };
  };
  __tmp__ZURE=((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.child__HY2B;
  __tmp__0URE=Self__5TRE->parent_abstract_directory__NB.parent_entry__MB;
  if (((struct ___OBJ *)__tmp__ZURE)->__id==__DIRECTORY__) {
    Self__M3JG=((__DIRECTORY *)__tmp__ZURE);
    Self__M3JG->parent_abstract_directory__NB.parent_entry__MB=__tmp__0URE;
    result__N3JG=NULL;
    ptr__O3JG=((__POINTER )(NULL));
    typ_id__P3JG= 0;
    sz__Q3JG=((__UINTEGER_32 )sizeof(__LINKED_LISToENTRYo));
    if ((sz__Q3JG ==  0)) {
      result__N3JG=LINKED_LISToENTRYo__;
    } else {
      typ_id__P3JG=__LINKED_LISToENTRYo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__Q3JG);
      if ((typ_id__P3JG == (__INTEGER)(-  1))) {
        a__R3JG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__S3JG=(__UINTEGER_32)((__UINTEGER_32)(sz__Q3JG + a__R3JG) & (__UINTEGER_32)(~ a__R3JG));
        ptr_table__W3JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__S3JG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__V3JG=((__POINTER )(NULL));
        result__X3JG=((__POINTER *)ptr_table__W3JG)[ 0];
        if ((result__X3JG == (void *)NULL)) {
          result__X3JG=new_lab__RUJ(new_size__S3JG);
          next__V3JG=(void *)((unsigned long)result__X3JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S3JG)));
          ((__POINTER *)next__V3JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__W3JG)[ 0]=next__V3JG;
        } else {
          next__V3JG=((__POINTER *)result__X3JG)[ 0];
          if ((next__V3JG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X3JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__S3JG <<  1)) <=  4096)) {
              next__V3JG=(void *)((unsigned long)result__X3JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S3JG)));
            } else {
              next__V3JG=new_lab__RUJ(new_size__S3JG);
            };
            ((__POINTER *)next__V3JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__W3JG)[ 0]=next__V3JG;
          } else {
            ((__POINTER *)result__X3JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__V3JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__X3JG=next__V3JG;
          };
        };
        ptr__O3JG=result__X3JG;
      } else {
        t__T3JG=((__UINTEGER_32 )typ_id__P3JG);
        a__U3JG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__43JG=(__UINTEGER_32)((__UINTEGER_32)(sz__Q3JG + a__U3JG) & (__UINTEGER_32)(~ a__U3JG));
        ptr_table__13JG=((__POINTER )(&(table_type[(t__T3JG)])));
        lab_type__33JG=(__UINTEGER_32)(t__T3JG |  1);
        next__03JG=((__POINTER )(NULL));
        result__23JG=((__POINTER *)ptr_table__13JG)[ 0];
        if ((result__23JG == (void *)NULL)) {
          result__23JG=new_lab__RUJ(lab_type__33JG);
          next__03JG=(void *)((unsigned long)result__23JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__43JG)));
          ((__POINTER *)next__03JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__13JG)[ 0]=next__03JG;
        } else {
          next__03JG=((__POINTER *)result__23JG)[ 0];
          if ((next__03JG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__23JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__43JG <<  1)) <=  4096)) {
              next__03JG=(void *)((unsigned long)result__23JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__43JG)));
            } else {
              next__03JG=new_lab__RUJ(lab_type__33JG);
            };
            ((__POINTER *)next__03JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__13JG)[ 0]=next__03JG;
          } else {
            ((__POINTER *)result__23JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__03JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__23JG=next__03JG;
          };
        };
        ptr__O3JG=result__23JG;
      };
      result__N3JG=((__LINKED_LISToENTRYo *)ptr__O3JG);
      *(result__N3JG) = *(LINKED_LISToENTRYo__);
    };
    Self__M3JG->parent_abstract_directory__NB.list__21RE=result__N3JG;
    __tmp__1URE=refresh__GBUE(Self__M3JG);
  } else {
    Self__2B3F=((__STD_FILE *)__tmp__ZURE);
    Self__2B3F->parent_abstract_file__B3B.parent_entry__A3B=__tmp__0URE;
    Self__BB5F=((__STRING_CONSTANT *)((__ENTRY *)Self__2B3F->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.path__2C);
    new__CB5F=create__01(Self__BB5F->count__4C);
    copy__5GQ(new__CB5F,Self__BB5F);
    Self__OAJG=((__STRING *)new__CB5F);
    if ((Self__OAJG->capacity__4FQ > Self__OAJG->count__04B)) {
      Self__OAJG->count__04B=(__INTEGER)(Self__OAJG->count__04B +  1);
      if ((((__CHARACTER *)Self__OAJG->storage__HGQ)[(__INTEGER)(Self__OAJG->count__04B -  1)] != '\0')) {
        ((__CHARACTER *)Self__OAJG->storage__HGQ)[(__INTEGER)(Self__OAJG->count__04B -  1)]='\0';
      };
    } else {
      new_capacity__PAJG= 0;
      if ((Self__OAJG->capacity__4FQ <= Self__OAJG->count__04B)) {
        if ((Self__OAJG->capacity__4FQ ==  0)) {
          Self__OAJG->capacity__4FQ= 32;
          Self__OAJG->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__PAJG=(__INTEGER)(Self__OAJG->capacity__4FQ <<  1);
          Self__RAJG=((__CHARACTER *)Self__OAJG->storage__HGQ);
          old_nb_elts__SAJG=Self__OAJG->capacity__4FQ;
          new__TAJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__RAJG),((__UINTEGER_32 )old_nb_elts__SAJG),((__UINTEGER_32 )new_capacity__PAJG)));
          upper__C4JG=(__INTEGER)(new_capacity__PAJG -  1);
          Self__A4JG=old_nb_elts__SAJG;
          while ((Self__A4JG <= upper__C4JG)) {
            new__TAJG[Self__A4JG]='\0';
            Self__A4JG=(__INTEGER)(Self__A4JG +  1);
          };
          Self__OAJG->storage__HGQ=new__TAJG;
          Self__OAJG->capacity__4FQ=new_capacity__PAJG;
        };
      };
      ((__CHARACTER *)Self__OAJG->storage__HGQ)[Self__OAJG->count__04B]='\0';
      Self__OAJG->count__04B=(__INTEGER)(Self__OAJG->count__04B +  1);
    };
    Self__OAJG->count__04B=(__INTEGER)(Self__OAJG->count__04B -  1);
    Self__2B3F->stream__QSVD=((__POINTER )(fopen((char*)(Self__OAJG->storage__HGQ),"r+b")));
    __tmp__1URE=(Self__2B3F->stream__QSVD != (void *)NULL);
  };
  if ((! __tmp__1URE)) {
    ((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.child__HY2B=NULL;
  };
  return(((__ENTRY *)Self__5TRE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.child__HY2B);
}

static void* open__BY2B(__ENTRY *Self__CY2B)
// ({ENTRY}) With resultNo recursive, No inlinable.
{
  __DIRECTORY *result__3R3D,*Self__V1RE;
  __POINTER ptr__4R3D,ptr_table__F4JG,next__E4JG,result__G4JG;
  __POINTER ptr_table__K4JG,next__J4JG,result__L4JG,ptr__UQED;
  __POINTER ptr_table__P4JG,next__O4JG,result__Q4JG,ptr_table__U4JG;
  __POINTER next__T4JG,result__V4JG,ptr__QHVE,ptr_table__Z4JG;
  __POINTER next__Y4JG,result__04JG,ptr_table__44JG,next__34JG;
  __POINTER result__54JG;
  __INTEGER typ_id__DS3D,typ_id__ZQED,typ_id__VHVE,new_capacity__VAJG;
  __INTEGER old_nb_elts__YAJG,upper__F5JG,Self__D5JG;
  __UINTEGER_32 sz__AS3D,a__DAHG,new_size__EAHG,t__IAHG,a__HAHG;
  __UINTEGER_32 new_size__N4JG,lab_type__M4JG,sz__WQED,a__LAHG;
  __UINTEGER_32 new_size__MAHG,t__QAHG,a__PAHG,new_size__X4JG;
  __UINTEGER_32 lab_type__W4JG,sz__SHVE,a__TAHG,new_size__UAHG,t__YAHG;
  __UINTEGER_32 a__XAHG,new_size__B5JG,lab_type__A5JG;
  __STD_FILE *result__TQED,*Self__4B3F;
  void *__tmp__4Y2B;
  __STRING_CONSTANT *Self__DB5F;
  __STRING *new__EB5F,*Self__20Q;
  __LINKED_LISToENTRYo *result__PHVE;
  __BOOLEAN __tmp__AZ2B;
  __CHARACTER *Self__XAJG,*new__ZAJG;
  Self__CY2B->parent_abstract_entry__LB.link_count__EY2B=(__INTEGER)(Self__CY2B->parent_abstract_entry__LB.link_count__EY2B +  1);
  if (((void *)Self__CY2B->parent_abstract_entry__LB.child__HY2B == (void *)NULL)) {
    if (Self__CY2B->parent_abstract_entry__LB.is_directory__BC) {
      result__3R3D=NULL;
      ptr__4R3D=((__POINTER )(NULL));
      typ_id__DS3D= 0;
      sz__AS3D=((__UINTEGER_32 )sizeof(__DIRECTORY));
      if ((sz__AS3D ==  0)) {
        result__3R3D=DIRECTORY__;
      } else {
        typ_id__DS3D=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__AS3D);
        if ((typ_id__DS3D == (__INTEGER)(-  1))) {
          a__DAHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__EAHG=(__UINTEGER_32)((__UINTEGER_32)(sz__AS3D + a__DAHG) & (__UINTEGER_32)(~ a__DAHG));
          ptr_table__F4JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EAHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__E4JG=((__POINTER )(NULL));
          result__G4JG=((__POINTER *)ptr_table__F4JG)[ 0];
          if ((result__G4JG == (void *)NULL)) {
            result__G4JG=new_lab__RUJ(new_size__EAHG);
            next__E4JG=(void *)((unsigned long)result__G4JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAHG)));
            ((__POINTER *)next__E4JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__F4JG)[ 0]=next__E4JG;
          } else {
            next__E4JG=((__POINTER *)result__G4JG)[ 0];
            if ((next__E4JG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G4JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__EAHG <<  1)) <=  4096)) {
                next__E4JG=(void *)((unsigned long)result__G4JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAHG)));
              } else {
                next__E4JG=new_lab__RUJ(new_size__EAHG);
              };
              ((__POINTER *)next__E4JG)[ 0]=NULL;
              ((__POINTER *)ptr_table__F4JG)[ 0]=next__E4JG;
            } else {
              ((__POINTER *)result__G4JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__E4JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__G4JG=next__E4JG;
            };
          };
          ptr__4R3D=result__G4JG;
        } else {
          t__IAHG=((__UINTEGER_32 )typ_id__DS3D);
          a__HAHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__N4JG=(__UINTEGER_32)((__UINTEGER_32)(sz__AS3D + a__HAHG) & (__UINTEGER_32)(~ a__HAHG));
          ptr_table__K4JG=((__POINTER )(&(table_type[(t__IAHG)])));
          lab_type__M4JG=(__UINTEGER_32)(t__IAHG |  1);
          next__J4JG=((__POINTER )(NULL));
          result__L4JG=((__POINTER *)ptr_table__K4JG)[ 0];
          if ((result__L4JG == (void *)NULL)) {
            result__L4JG=new_lab__RUJ(lab_type__M4JG);
            next__J4JG=(void *)((unsigned long)result__L4JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N4JG)));
            ((__POINTER *)next__J4JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__K4JG)[ 0]=next__J4JG;
          } else {
            next__J4JG=((__POINTER *)result__L4JG)[ 0];
            if ((next__J4JG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L4JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__N4JG <<  1)) <=  4096)) {
                next__J4JG=(void *)((unsigned long)result__L4JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N4JG)));
              } else {
                next__J4JG=new_lab__RUJ(lab_type__M4JG);
              };
              ((__POINTER *)next__J4JG)[ 0]=NULL;
              ((__POINTER *)ptr_table__K4JG)[ 0]=next__J4JG;
            } else {
              ((__POINTER *)result__L4JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__J4JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__L4JG=next__J4JG;
            };
          };
          ptr__4R3D=result__L4JG;
        };
        result__3R3D=((__DIRECTORY *)ptr__4R3D);
        *(result__3R3D) = *(DIRECTORY__);
      };
      Self__CY2B->parent_abstract_entry__LB.child__HY2B=result__3R3D;
    } else {
      result__TQED=NULL;
      ptr__UQED=((__POINTER )(NULL));
      typ_id__ZQED= 0;
      sz__WQED=((__UINTEGER_32 )sizeof(__STD_FILE));
      if ((sz__WQED ==  0)) {
        result__TQED=STD_FILE__;
      } else {
        typ_id__ZQED=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__WQED);
        if ((typ_id__ZQED == (__INTEGER)(-  1))) {
          a__LAHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__MAHG=(__UINTEGER_32)((__UINTEGER_32)(sz__WQED + a__LAHG) & (__UINTEGER_32)(~ a__LAHG));
          ptr_table__P4JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MAHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__O4JG=((__POINTER )(NULL));
          result__Q4JG=((__POINTER *)ptr_table__P4JG)[ 0];
          if ((result__Q4JG == (void *)NULL)) {
            result__Q4JG=new_lab__RUJ(new_size__MAHG);
            next__O4JG=(void *)((unsigned long)result__Q4JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MAHG)));
            ((__POINTER *)next__O4JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__P4JG)[ 0]=next__O4JG;
          } else {
            next__O4JG=((__POINTER *)result__Q4JG)[ 0];
            if ((next__O4JG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q4JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__MAHG <<  1)) <=  4096)) {
                next__O4JG=(void *)((unsigned long)result__Q4JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MAHG)));
              } else {
                next__O4JG=new_lab__RUJ(new_size__MAHG);
              };
              ((__POINTER *)next__O4JG)[ 0]=NULL;
              ((__POINTER *)ptr_table__P4JG)[ 0]=next__O4JG;
            } else {
              ((__POINTER *)result__Q4JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__O4JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__Q4JG=next__O4JG;
            };
          };
          ptr__UQED=result__Q4JG;
        } else {
          t__QAHG=((__UINTEGER_32 )typ_id__ZQED);
          a__PAHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__X4JG=(__UINTEGER_32)((__UINTEGER_32)(sz__WQED + a__PAHG) & (__UINTEGER_32)(~ a__PAHG));
          ptr_table__U4JG=((__POINTER )(&(table_type[(t__QAHG)])));
          lab_type__W4JG=(__UINTEGER_32)(t__QAHG |  1);
          next__T4JG=((__POINTER )(NULL));
          result__V4JG=((__POINTER *)ptr_table__U4JG)[ 0];
          if ((result__V4JG == (void *)NULL)) {
            result__V4JG=new_lab__RUJ(lab_type__W4JG);
            next__T4JG=(void *)((unsigned long)result__V4JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X4JG)));
            ((__POINTER *)next__T4JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__U4JG)[ 0]=next__T4JG;
          } else {
            next__T4JG=((__POINTER *)result__V4JG)[ 0];
            if ((next__T4JG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V4JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__X4JG <<  1)) <=  4096)) {
                next__T4JG=(void *)((unsigned long)result__V4JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X4JG)));
              } else {
                next__T4JG=new_lab__RUJ(lab_type__W4JG);
              };
              ((__POINTER *)next__T4JG)[ 0]=NULL;
              ((__POINTER *)ptr_table__U4JG)[ 0]=next__T4JG;
            } else {
              ((__POINTER *)result__V4JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__T4JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__V4JG=next__T4JG;
            };
          };
          ptr__UQED=result__V4JG;
        };
        result__TQED=((__STD_FILE *)ptr__UQED);
        *(result__TQED) = *(STD_FILE__);
      };
      Self__CY2B->parent_abstract_entry__LB.child__HY2B=result__TQED;
    };
  };
  __tmp__4Y2B=Self__CY2B->parent_abstract_entry__LB.child__HY2B;
  if (((struct ___OBJ *)__tmp__4Y2B)->__id==__DIRECTORY__) {
    Self__V1RE=((__DIRECTORY *)__tmp__4Y2B);
    Self__V1RE->parent_abstract_directory__NB.parent_entry__MB=Self__CY2B;
    result__PHVE=NULL;
    ptr__QHVE=((__POINTER )(NULL));
    typ_id__VHVE= 0;
    sz__SHVE=((__UINTEGER_32 )sizeof(__LINKED_LISToENTRYo));
    if ((sz__SHVE ==  0)) {
      result__PHVE=LINKED_LISToENTRYo__;
    } else {
      typ_id__VHVE=__LINKED_LISToENTRYo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__SHVE);
      if ((typ_id__VHVE == (__INTEGER)(-  1))) {
        a__TAHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__UAHG=(__UINTEGER_32)((__UINTEGER_32)(sz__SHVE + a__TAHG) & (__UINTEGER_32)(~ a__TAHG));
        ptr_table__Z4JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UAHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__Y4JG=((__POINTER )(NULL));
        result__04JG=((__POINTER *)ptr_table__Z4JG)[ 0];
        if ((result__04JG == (void *)NULL)) {
          result__04JG=new_lab__RUJ(new_size__UAHG);
          next__Y4JG=(void *)((unsigned long)result__04JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UAHG)));
          ((__POINTER *)next__Y4JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__Z4JG)[ 0]=next__Y4JG;
        } else {
          next__Y4JG=((__POINTER *)result__04JG)[ 0];
          if ((next__Y4JG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__04JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__UAHG <<  1)) <=  4096)) {
              next__Y4JG=(void *)((unsigned long)result__04JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UAHG)));
            } else {
              next__Y4JG=new_lab__RUJ(new_size__UAHG);
            };
            ((__POINTER *)next__Y4JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__Z4JG)[ 0]=next__Y4JG;
          } else {
            ((__POINTER *)result__04JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y4JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__04JG=next__Y4JG;
          };
        };
        ptr__QHVE=result__04JG;
      } else {
        t__YAHG=((__UINTEGER_32 )typ_id__VHVE);
        a__XAHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__B5JG=(__UINTEGER_32)((__UINTEGER_32)(sz__SHVE + a__XAHG) & (__UINTEGER_32)(~ a__XAHG));
        ptr_table__44JG=((__POINTER )(&(table_type[(t__YAHG)])));
        lab_type__A5JG=(__UINTEGER_32)(t__YAHG |  1);
        next__34JG=((__POINTER )(NULL));
        result__54JG=((__POINTER *)ptr_table__44JG)[ 0];
        if ((result__54JG == (void *)NULL)) {
          result__54JG=new_lab__RUJ(lab_type__A5JG);
          next__34JG=(void *)((unsigned long)result__54JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B5JG)));
          ((__POINTER *)next__34JG)[ 0]=NULL;
          ((__POINTER *)ptr_table__44JG)[ 0]=next__34JG;
        } else {
          next__34JG=((__POINTER *)result__54JG)[ 0];
          if ((next__34JG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__54JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__B5JG <<  1)) <=  4096)) {
              next__34JG=(void *)((unsigned long)result__54JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B5JG)));
            } else {
              next__34JG=new_lab__RUJ(lab_type__A5JG);
            };
            ((__POINTER *)next__34JG)[ 0]=NULL;
            ((__POINTER *)ptr_table__44JG)[ 0]=next__34JG;
          } else {
            ((__POINTER *)result__54JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__34JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__54JG=next__34JG;
          };
        };
        ptr__QHVE=result__54JG;
      };
      result__PHVE=((__LINKED_LISToENTRYo *)ptr__QHVE);
      *(result__PHVE) = *(LINKED_LISToENTRYo__);
    };
    Self__V1RE->parent_abstract_directory__NB.list__21RE=result__PHVE;
    __tmp__AZ2B=refresh__GBUE(Self__V1RE);
  } else {
    Self__4B3F=((__STD_FILE *)__tmp__4Y2B);
    Self__4B3F->parent_abstract_file__B3B.parent_entry__A3B=Self__CY2B;
    Self__DB5F=((__STRING_CONSTANT *)((__ENTRY *)Self__4B3F->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.path__2C);
    new__EB5F=create__01(Self__DB5F->count__4C);
    copy__5GQ(new__EB5F,Self__DB5F);
    Self__20Q=((__STRING *)new__EB5F);
    if ((Self__20Q->capacity__4FQ > Self__20Q->count__04B)) {
      Self__20Q->count__04B=(__INTEGER)(Self__20Q->count__04B +  1);
      if ((((__CHARACTER *)Self__20Q->storage__HGQ)[(__INTEGER)(Self__20Q->count__04B -  1)] != '\0')) {
        ((__CHARACTER *)Self__20Q->storage__HGQ)[(__INTEGER)(Self__20Q->count__04B -  1)]='\0';
      };
    } else {
      new_capacity__VAJG= 0;
      if ((Self__20Q->capacity__4FQ <= Self__20Q->count__04B)) {
        if ((Self__20Q->capacity__4FQ ==  0)) {
          Self__20Q->capacity__4FQ= 32;
          Self__20Q->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__VAJG=(__INTEGER)(Self__20Q->capacity__4FQ <<  1);
          Self__XAJG=((__CHARACTER *)Self__20Q->storage__HGQ);
          old_nb_elts__YAJG=Self__20Q->capacity__4FQ;
          new__ZAJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__XAJG),((__UINTEGER_32 )old_nb_elts__YAJG),((__UINTEGER_32 )new_capacity__VAJG)));
          upper__F5JG=(__INTEGER)(new_capacity__VAJG -  1);
          Self__D5JG=old_nb_elts__YAJG;
          while ((Self__D5JG <= upper__F5JG)) {
            new__ZAJG[Self__D5JG]='\0';
            Self__D5JG=(__INTEGER)(Self__D5JG +  1);
          };
          Self__20Q->storage__HGQ=new__ZAJG;
          Self__20Q->capacity__4FQ=new_capacity__VAJG;
        };
      };
      ((__CHARACTER *)Self__20Q->storage__HGQ)[Self__20Q->count__04B]='\0';
      Self__20Q->count__04B=(__INTEGER)(Self__20Q->count__04B +  1);
    };
    Self__20Q->count__04B=(__INTEGER)(Self__20Q->count__04B -  1);
    Self__4B3F->stream__QSVD=((__POINTER )(fopen((char*)(Self__20Q->storage__HGQ),"r+b")));
    __tmp__AZ2B=(Self__4B3F->stream__QSVD != (void *)NULL);
  };
  if ((! __tmp__AZ2B)) {
    Self__CY2B->parent_abstract_entry__LB.child__HY2B=NULL;
  };
  return(Self__CY2B->parent_abstract_entry__LB.child__HY2B);
}

static __BOOLEAN refresh__GBUE(__DIRECTORY *Self__HBUE)
// ({DIRECTORY}) With resultNo recursive, No inlinable.
{
  __POINTER dirent__WJVE,dir__UJVE,ptr__HGJG,ptr_table__25JG,next__15JG;
  __POINTER result__35JG,ptr_table__BAKG,next__AAKG,result__CAKG;
  __POINTER ptr__GAKG,ptr_table__QAKG,next__PAKG,result__RAKG;
  __POINTER ptr_table__VAKG,next__UAKG,result__WAKG,ptr__VUPF;
  __POINTER ptr_table__0AKG,next__ZAKG,result__1AKG,ptr_table__5AKG;
  __POINTER next__4AKG,result__ABKG;
  __INTEGER i__0JVE,new_capacity__LFJG,old_nb_elts__OFJG,upper__K5JG;
  __INTEGER Self__I5JG,new_capacity__RFJG,old_nb_elts__UFJG,upper__P5JG;
  __INTEGER Self__N5JG,new_capacity__XFJG,old_nb_elts__0FJG,upper__U5JG;
  __INTEGER Self__S5JG,Self__BHOF,i__BTIG,j__DTIG,Self__4ULG,stat__3LNF;
  __INTEGER i__2LNF,Self__I1RF,n__FTIG,idx__ONNF,n__HTIG,Self__4FTF;
  __INTEGER n__JTIG,idx__URNF,new_capacity__AGJG,old_nb_elts__DGJG;
  __INTEGER upper__Z5JG,Self__X5JG,typ_id__IGJG,typ_id__HAKG;
  __INTEGER typ_id__0UPF;
  __STRING_CONSTANT *Self__CG3F;
  __STRING *new__DG3F,*Self__5SIG,*Self__SFJG,*new__DC0F,*Self__INFF;
  __STRING *Self__NKNF,*Self__ATIG,*Self__ETIG,*Self__GTIG,*Self__ITIG;
  __STRING *Self__HHHG,*Self__JHHG,*Self__BGJG;
  void *other__CTIG;
  void *result__0SNF;
  __ENTRY *result__GGJG;
  __UINTEGER_32 sz__JGJG,a__KGJG,new_size__LGJG,t__MGJG,a__NGJG;
  __UINTEGER_32 new_size__EAKG,lab_type__DAKG,sz__IAKG,a__JAKG;
  __UINTEGER_32 new_size__KAKG,t__LAKG,a__MAKG,new_size__YAKG;
  __UINTEGER_32 lab_type__XAKG,sz__XUPF,a__MOHG,new_size__NOHG,t__ROHG;
  __UINTEGER_32 a__QOHG,new_size__CBKG,lab_type__BBKG;
  __CHARACTER *n__TJVE,*Self__NFJG,*new__PFJG,*Self__TFJG,*new__VFJG;
  __CHARACTER *Self__ZFJG,*new__1FJG,*__tmp__PLIG,*__tmp__QLIG;
  __CHARACTER *Self__5ULG,*model__AVLG,*Self__CGJG,*new__EGJG;
  __BOOLEAN result__ZJVE,result__A3FF,__tmp__FONF,__tmp__KPNF;
  __BOOLEAN result__OGRF,result__3FJG,__tmp__5FJG,__tmp__LQNF;
  __LINKED_LISToENTRYo *Self__NJFF,*Self__TFPF;
  __CHARACTER ch__WFJG,car__4LNF,Self__4FJG;
  __LINKED_LIST_NODEoENTRYo *result__FAKG,*Self__NAKG,*result__UUPF;
  __LINKED_LIST_NODEoENTRYo *Self__AUQF;
  n__TJVE=NULL;
  dirent__WJVE=((__POINTER )(NULL));
  result__ZJVE=FALSE__;
  i__0JVE= 0;
  Self__NJFF=((__LINKED_LISToENTRYo *)Self__HBUE->parent_abstract_directory__NB.list__21RE);
  if (((void *)Self__NJFF->first_link__PJFF != (void *)NULL)) {
    Self__NJFF->first_link__PJFF=NULL;
    Self__NJFF->mem_idx__WJFF= 0;
    Self__NJFF->mem_lnk__XJFF=NULL;
    Self__NJFF->parent_linked_collection__01RE.upper__HEEF= 0;
    Self__NJFF->last_link__YJFF=NULL;
  };
  Self__CG3F=((__STRING_CONSTANT *)((__ENTRY *)Self__HBUE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.path__2C);
  new__DG3F=create__01(Self__CG3F->count__4C);
  copy__5GQ(new__DG3F,Self__CG3F);
  Self__5SIG=((__STRING *)new__DG3F);
  if ((Self__5SIG->capacity__4FQ > Self__5SIG->count__04B)) {
    Self__5SIG->count__04B=(__INTEGER)(Self__5SIG->count__04B +  1);
    if ((((__CHARACTER *)Self__5SIG->storage__HGQ)[(__INTEGER)(Self__5SIG->count__04B -  1)] != '\0')) {
      ((__CHARACTER *)Self__5SIG->storage__HGQ)[(__INTEGER)(Self__5SIG->count__04B -  1)]='\0';
    };
  } else {
    new_capacity__LFJG= 0;
    if ((Self__5SIG->capacity__4FQ <= Self__5SIG->count__04B)) {
      if ((Self__5SIG->capacity__4FQ ==  0)) {
        Self__5SIG->capacity__4FQ= 32;
        Self__5SIG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__LFJG=(__INTEGER)(Self__5SIG->capacity__4FQ <<  1);
        Self__NFJG=((__CHARACTER *)Self__5SIG->storage__HGQ);
        old_nb_elts__OFJG=Self__5SIG->capacity__4FQ;
        new__PFJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__NFJG),((__UINTEGER_32 )old_nb_elts__OFJG),((__UINTEGER_32 )new_capacity__LFJG)));
        upper__K5JG=(__INTEGER)(new_capacity__LFJG -  1);
        Self__I5JG=old_nb_elts__OFJG;
        while ((Self__I5JG <= upper__K5JG)) {
          new__PFJG[Self__I5JG]='\0';
          Self__I5JG=(__INTEGER)(Self__I5JG +  1);
        };
        Self__5SIG->storage__HGQ=new__PFJG;
        Self__5SIG->capacity__4FQ=new_capacity__LFJG;
      };
    };
    ((__CHARACTER *)Self__5SIG->storage__HGQ)[Self__5SIG->count__04B]='\0';
    Self__5SIG->count__04B=(__INTEGER)(Self__5SIG->count__04B +  1);
  };
  Self__5SIG->count__04B=(__INTEGER)(Self__5SIG->count__04B -  1);
  dir__UJVE=((__POINTER )(opendir((Self__5SIG->storage__HGQ))));
  if ((dir__UJVE != (void *)NULL)) {
    result__ZJVE=TRUE__;
    do {
      dirent__WJVE=((__POINTER )(readdir((dir__UJVE))));
      if ((dirent__WJVE != (void *)NULL)) {
        n__TJVE=((__CHARACTER *)(((struct dirent *)(dirent__WJVE))->d_name));
        ((__STRING *)string_tmp__PKVE)->count__04B= 0;
        i__0JVE= 0;
        while ((((__CHARACTER *)n__TJVE)[i__0JVE] != '\0')) {
          Self__SFJG=((__STRING *)string_tmp__PKVE);
          ch__WFJG=((__CHARACTER *)n__TJVE)[i__0JVE];
          new_capacity__RFJG= 0;
          if ((Self__SFJG->capacity__4FQ <= Self__SFJG->count__04B)) {
            if ((Self__SFJG->capacity__4FQ ==  0)) {
              Self__SFJG->capacity__4FQ= 32;
              Self__SFJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__RFJG=(__INTEGER)(Self__SFJG->capacity__4FQ <<  1);
              Self__TFJG=((__CHARACTER *)Self__SFJG->storage__HGQ);
              old_nb_elts__UFJG=Self__SFJG->capacity__4FQ;
              new__VFJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__TFJG),((__UINTEGER_32 )old_nb_elts__UFJG),((__UINTEGER_32 )new_capacity__RFJG)));
              upper__P5JG=(__INTEGER)(new_capacity__RFJG -  1);
              Self__N5JG=old_nb_elts__UFJG;
              while ((Self__N5JG <= upper__P5JG)) {
                new__VFJG[Self__N5JG]='\0';
                Self__N5JG=(__INTEGER)(Self__N5JG +  1);
              };
              Self__SFJG->storage__HGQ=new__VFJG;
              Self__SFJG->capacity__4FQ=new_capacity__RFJG;
            };
          };
          ((__CHARACTER *)Self__SFJG->storage__HGQ)[Self__SFJG->count__04B]=ch__WFJG;
          Self__SFJG->count__04B=(__INTEGER)(Self__SFJG->count__04B +  1);
          i__0JVE=(__INTEGER)(i__0JVE +  1);
        };
        new__DC0F=create__01(((__STRING_CONSTANT *)(&__string_165))->count__4C);
        copy__5GQ(new__DC0F,(&__string_165));
        Self__INFF=((__STRING *)string_tmp__PKVE);
        result__A3FF=FALSE__;
        if ((Self__INFF->count__04B == new__DC0F->count__04B)) {
          result__A3FF=((Self__INFF->count__04B ==  0) || fast_memcmp__until__0EVB(Self__INFF->storage__HGQ,new__DC0F->storage__HGQ,Self__INFF->count__04B));
        };
        if ((! result__A3FF)) {
          Self__NKNF=((__STRING *)string_tmp__PKVE);
          new_capacity__XFJG= 0;
          if ((Self__NKNF->capacity__4FQ <= Self__NKNF->count__04B)) {
            if ((Self__NKNF->capacity__4FQ ==  0)) {
              Self__NKNF->capacity__4FQ= 32;
              Self__NKNF->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__XFJG=(__INTEGER)(Self__NKNF->capacity__4FQ <<  1);
              Self__ZFJG=((__CHARACTER *)Self__NKNF->storage__HGQ);
              old_nb_elts__0FJG=Self__NKNF->capacity__4FQ;
              new__1FJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__ZFJG),((__UINTEGER_32 )old_nb_elts__0FJG),((__UINTEGER_32 )new_capacity__XFJG)));
              upper__U5JG=(__INTEGER)(new_capacity__XFJG -  1);
              Self__S5JG=old_nb_elts__0FJG;
              while ((Self__S5JG <= upper__U5JG)) {
                new__1FJG[Self__S5JG]='\0';
                Self__S5JG=(__INTEGER)(Self__S5JG +  1);
              };
              Self__NKNF->storage__HGQ=new__1FJG;
              Self__NKNF->capacity__4FQ=new_capacity__XFJG;
            };
          };
          ((__CHARACTER *)Self__NKNF->storage__HGQ)[Self__NKNF->count__04B]=' ';
          Self__NKNF->count__04B=(__INTEGER)(Self__NKNF->count__04B +  1);
          Self__BHOF=Self__NKNF->count__04B;
          __tmp__PLIG=Self__NKNF->storage__HGQ;
          __tmp__QLIG=Self__NKNF->storage__HGQ;
          while ((Self__BHOF >=  2)) {
            ((__CHARACTER *)__tmp__QLIG)[(__INTEGER)(Self__BHOF -  1)]=((__CHARACTER *)__tmp__PLIG)[(__INTEGER)((__INTEGER)(Self__BHOF -  1) -  1)];
            Self__BHOF=(__INTEGER)(Self__BHOF -  1);
          };
          ((__CHARACTER *)Self__NKNF->storage__HGQ)[ 0]='/';
          Self__ATIG=((__STRING *)string_tmp__PKVE);
          other__CTIG=((__ENTRY *)Self__HBUE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.path__2C;
          i__BTIG=Self__ATIG->count__04B;
          j__DTIG=((__STRING_CONSTANT *)other__CTIG)->count__4C;
          resize__54X(Self__ATIG,(__INTEGER)(i__BTIG + j__DTIG));
          if (((i__BTIG >  0) && (j__DTIG >  0))) {
            move__to__by__YP4B(Self__ATIG->storage__HGQ, 0,(__INTEGER)(i__BTIG -  1),j__DTIG);
          };
          Self__5ULG=((__CHARACTER *)Self__ATIG->storage__HGQ);
          model__AVLG=((__STRING_CONSTANT *)other__CTIG)->storage__E5M;
          Self__4ULG=(__INTEGER)(j__DTIG -  1);
          while ((Self__4ULG >=  0)) {
            Self__5ULG[Self__4ULG]=((__CHARACTER *)model__AVLG)[Self__4ULG];
            Self__4ULG=(__INTEGER)(Self__4ULG -  1);
          };
          stat__3LNF= 0;
          car__4LNF='\0';
          replace_all__with__HTQ(string_tmp__PKVE,'\\','/');
          i__2LNF= 1;
          while ((i__2LNF <= ((__STRING *)string_tmp__PKVE)->count__04B)) {
            car__4LNF=((__CHARACTER *)((__STRING *)string_tmp__PKVE)->storage__HGQ)[(__INTEGER)(i__2LNF -  1)];
            if ((car__4LNF == '/')) {
              Self__I1RF=stat__3LNF;
              if ((stat__3LNF ==  0)) {
                stat__3LNF= 1;
              };
              if ((Self__I1RF ==  1)) {
                Self__ETIG=((__STRING *)string_tmp__PKVE);
                n__FTIG=(__INTEGER)(i__2LNF -  1);
                if ((n__FTIG > Self__ETIG->count__04B)) {
                  Self__ETIG->count__04B= 0;
                } else {
                  if ((n__FTIG >  0)) {
                    remove_between__to__4IS(Self__ETIG, 1,n__FTIG);
                  };
                };
                i__2LNF= 1;
              };
              if ((Self__I1RF ==  2)) {
                remove_between__to__4IS(string_tmp__PKVE,(__INTEGER)(i__2LNF -  1),i__2LNF);
                i__2LNF=(__INTEGER)(i__2LNF -  2);
                stat__3LNF= 1;
              };
              if ((Self__I1RF ==  3)) {
                idx__ONNF=last_index_of__since__YXR(string_tmp__PKVE,(__INTEGER)(i__2LNF -  4));
                if ((idx__ONNF ==  0)) {
                  Self__GTIG=((__STRING *)string_tmp__PKVE);
                  n__HTIG=(__INTEGER)(i__2LNF -  1);
                  if ((n__HTIG > Self__GTIG->count__04B)) {
                    Self__GTIG->count__04B= 0;
                  } else {
                    if ((n__HTIG >  0)) {
                      remove_between__to__4IS(Self__GTIG, 1,n__HTIG);
                    };
                  };
                  i__2LNF= 1;
                } else {
                  remove_between__to__4IS(string_tmp__PKVE,idx__ONNF,(__INTEGER)(i__2LNF -  1));
                  i__2LNF=idx__ONNF;
                };
                stat__3LNF= 1;
              };
              __tmp__FONF=TRUE__;
            } else {
              __tmp__FONF=FALSE__;
            };
            if (__tmp__FONF) {
              __tmp__KPNF=TRUE__;
            } else {
              result__OGRF=(car__4LNF == '.');
              if (result__OGRF) {
                Self__4FTF=stat__3LNF;
                if ((stat__3LNF ==  1)) {
                  stat__3LNF= 2;
                };
                if ((Self__4FTF ==  2)) {
                  stat__3LNF= 3;
                };
                if ((Self__4FTF ==  3)) {
                  stat__3LNF= 0;
                };
              };
              __tmp__KPNF=result__OGRF;
            };
            if ((! __tmp__KPNF)) {
              if (((car__4LNF == ':') && (i__2LNF >  2))) {
                Self__4FJG=((__CHARACTER *)((__STRING *)string_tmp__PKVE)->storage__HGQ)[(__INTEGER)((__INTEGER)(i__2LNF -  1) -  1)];
                result__3FJG=FALSE__;
                if ((((__INTEGER_8 )Self__4FJG) >= ((__INTEGER_8 )'a'))) {
                  result__3FJG=(((__INTEGER_8 )Self__4FJG) <= ((__INTEGER_8 )'z'));
                  __tmp__5FJG=TRUE__;
                } else {
                  __tmp__5FJG=FALSE__;
                };
                if ((! __tmp__5FJG)) {
                  if ((((__INTEGER_8 )Self__4FJG) >= ((__INTEGER_8 )'A'))) {
                    result__3FJG=(((__INTEGER_8 )Self__4FJG) <= ((__INTEGER_8 )'Z'));
                  };
                };
                __tmp__LQNF=result__3FJG;
              } else {
                __tmp__LQNF=FALSE__;
              };
              if ((__tmp__LQNF && (((__CHARACTER *)((__STRING *)string_tmp__PKVE)->storage__HGQ)[(__INTEGER)((__INTEGER)(i__2LNF -  2) -  1)] == '/'))) {
                Self__ITIG=((__STRING *)string_tmp__PKVE);
                n__JTIG=(__INTEGER)(i__2LNF -  2);
                if ((n__JTIG > Self__ITIG->count__04B)) {
                  Self__ITIG->count__04B= 0;
                } else {
                  if ((n__JTIG >  0)) {
                    remove_between__to__4IS(Self__ITIG, 1,n__JTIG);
                  };
                };
                i__2LNF= 1;
              } else {
                stat__3LNF= 0;
              };
            };
            i__2LNF=(__INTEGER)(i__2LNF +  1);
          };
          if ((stat__3LNF ==  1)) {
            Self__HHHG=((__STRING *)string_tmp__PKVE);
            if (( 1 > Self__HHHG->count__04B)) {
              Self__HHHG->count__04B= 0;
            } else {
              Self__HHHG->count__04B=(__INTEGER)(Self__HHHG->count__04B -  1);
            };
          };
          if ((stat__3LNF ==  2)) {
            Self__JHHG=((__STRING *)string_tmp__PKVE);
            if (( 2 > Self__JHHG->count__04B)) {
              Self__JHHG->count__04B= 0;
            } else {
              Self__JHHG->count__04B=(__INTEGER)(Self__JHHG->count__04B -  2);
            };
          };
          if ((stat__3LNF ==  3)) {
            idx__URNF=last_index_of__since__YXR(string_tmp__PKVE,(__INTEGER)(i__2LNF -  4));
            if ((idx__URNF ==  0)) {
              ((__STRING *)string_tmp__PKVE)->count__04B= 0;
            } else {
              remove_between__to__4IS(string_tmp__PKVE,idx__URNF,(__INTEGER)(i__2LNF -  1));
            };
          };
          if ((((__STRING *)string_tmp__PKVE)->count__04B ==  0)) {
            Self__BGJG=((__STRING *)string_tmp__PKVE);
            new_capacity__AGJG= 0;
            if ((Self__BGJG->capacity__4FQ <= Self__BGJG->count__04B)) {
              if ((Self__BGJG->capacity__4FQ ==  0)) {
                Self__BGJG->capacity__4FQ= 32;
                Self__BGJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__AGJG=(__INTEGER)(Self__BGJG->capacity__4FQ <<  1);
                Self__CGJG=((__CHARACTER *)Self__BGJG->storage__HGQ);
                old_nb_elts__DGJG=Self__BGJG->capacity__4FQ;
                new__EGJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__CGJG),((__UINTEGER_32 )old_nb_elts__DGJG),((__UINTEGER_32 )new_capacity__AGJG)));
                upper__Z5JG=(__INTEGER)(new_capacity__AGJG -  1);
                Self__X5JG=old_nb_elts__DGJG;
                while ((Self__X5JG <= upper__Z5JG)) {
                  new__EGJG[Self__X5JG]='\0';
                  Self__X5JG=(__INTEGER)(Self__X5JG +  1);
                };
                Self__BGJG->storage__HGQ=new__EGJG;
                Self__BGJG->capacity__4FQ=new_capacity__AGJG;
              };
            };
            ((__CHARACTER *)Self__BGJG->storage__HGQ)[Self__BGJG->count__04B]='/';
            Self__BGJG->count__04B=(__INTEGER)(Self__BGJG->count__04B +  1);
          };
          result__0SNF=NULL;
          if (has__YHR(alias__WBF,string_tmp__PKVE)) {
            result__0SNF=at__MX1(alias__WBF,string_tmp__PKVE);
          } else {
            result__GGJG=NULL;
            ptr__HGJG=((__POINTER )(NULL));
            typ_id__IGJG= 0;
            sz__JGJG=((__UINTEGER_32 )sizeof(__ENTRY));
            if ((sz__JGJG ==  0)) {
              result__GGJG=ENTRY__;
            } else {
              typ_id__IGJG=-1;
              clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__JGJG);
              if ((typ_id__IGJG == (__INTEGER)(-  1))) {
                a__KGJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__LGJG=(__UINTEGER_32)((__UINTEGER_32)(sz__JGJG + a__KGJG) & (__UINTEGER_32)(~ a__KGJG));
                ptr_table__25JG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LGJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                next__15JG=((__POINTER )(NULL));
                result__35JG=((__POINTER *)ptr_table__25JG)[ 0];
                if ((result__35JG == (void *)NULL)) {
                  result__35JG=new_lab__RUJ(new_size__LGJG);
                  next__15JG=(void *)((unsigned long)result__35JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LGJG)));
                  ((__POINTER *)next__15JG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__25JG)[ 0]=next__15JG;
                } else {
                  next__15JG=((__POINTER *)result__35JG)[ 0];
                  if ((next__15JG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__35JG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LGJG <<  1)) <=  4096)) {
                      next__15JG=(void *)((unsigned long)result__35JG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LGJG)));
                    } else {
                      next__15JG=new_lab__RUJ(new_size__LGJG);
                    };
                    ((__POINTER *)next__15JG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__25JG)[ 0]=next__15JG;
                  } else {
                    ((__POINTER *)result__35JG)[ 0]=(void *)((unsigned long)((__POINTER *)next__15JG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__35JG=next__15JG;
                  };
                };
                ptr__HGJG=result__35JG;
              } else {
                t__MGJG=((__UINTEGER_32 )typ_id__IGJG);
                a__NGJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__EAKG=(__UINTEGER_32)((__UINTEGER_32)(sz__JGJG + a__NGJG) & (__UINTEGER_32)(~ a__NGJG));
                ptr_table__BAKG=((__POINTER )(&(table_type[(t__MGJG)])));
                lab_type__DAKG=(__UINTEGER_32)(t__MGJG |  1);
                next__AAKG=((__POINTER )(NULL));
                result__CAKG=((__POINTER *)ptr_table__BAKG)[ 0];
                if ((result__CAKG == (void *)NULL)) {
                  result__CAKG=new_lab__RUJ(lab_type__DAKG);
                  next__AAKG=(void *)((unsigned long)result__CAKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAKG)));
                  ((__POINTER *)next__AAKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__BAKG)[ 0]=next__AAKG;
                } else {
                  next__AAKG=((__POINTER *)result__CAKG)[ 0];
                  if ((next__AAKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CAKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__EAKG <<  1)) <=  4096)) {
                      next__AAKG=(void *)((unsigned long)result__CAKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAKG)));
                    } else {
                      next__AAKG=new_lab__RUJ(lab_type__DAKG);
                    };
                    ((__POINTER *)next__AAKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__BAKG)[ 0]=next__AAKG;
                  } else {
                    ((__POINTER *)result__CAKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__AAKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__CAKG=next__AAKG;
                  };
                };
                ptr__HGJG=result__CAKG;
              };
              result__GGJG=((__ENTRY *)ptr__HGJG);
              *(result__GGJG) = *(ENTRY__);
            };
            if (make_entry__5V3B(result__GGJG,string_tmp__PKVE)) {
              put__to__PJ0D(alias__WBF,result__GGJG,result__GGJG->parent_abstract_entry__LB.path__2C);
              result__0SNF=result__GGJG;
            };
          };
          if (((void *)result__0SNF == (void *)NULL)) {
            result__ZJVE=FALSE__;
          } else {
            if ((((__STRING_CONSTANT *)((__ENTRY *)result__0SNF)->parent_abstract_entry__LB.path__2C)->count__4C >= ((__STRING_CONSTANT *)((__ENTRY *)Self__HBUE->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.path__2C)->count__4C)) {
              Self__TFPF=((__LINKED_LISToENTRYo *)Self__HBUE->parent_abstract_directory__NB.list__21RE);
              if (((void *)Self__TFPF->first_link__PJFF == (void *)NULL)) {
                result__FAKG=NULL;
                ptr__GAKG=((__POINTER )(NULL));
                typ_id__HAKG= 0;
                sz__IAKG=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
                if ((sz__IAKG ==  0)) {
                  result__FAKG=LINKED_LIST_NODEoENTRYo__;
                } else {
                  typ_id__HAKG=__LINKED_LIST_NODEoENTRYo__;
                  clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__IAKG);
                  if ((typ_id__HAKG == (__INTEGER)(-  1))) {
                    a__JAKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                    new_size__KAKG=(__UINTEGER_32)((__UINTEGER_32)(sz__IAKG + a__JAKG) & (__UINTEGER_32)(~ a__JAKG));
                    ptr_table__QAKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KAKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                    next__PAKG=((__POINTER )(NULL));
                    result__RAKG=((__POINTER *)ptr_table__QAKG)[ 0];
                    if ((result__RAKG == (void *)NULL)) {
                      result__RAKG=new_lab__RUJ(new_size__KAKG);
                      next__PAKG=(void *)((unsigned long)result__RAKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KAKG)));
                      ((__POINTER *)next__PAKG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__QAKG)[ 0]=next__PAKG;
                    } else {
                      next__PAKG=((__POINTER *)result__RAKG)[ 0];
                      if ((next__PAKG == (void *)NULL)) {
                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RAKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KAKG <<  1)) <=  4096)) {
                          next__PAKG=(void *)((unsigned long)result__RAKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KAKG)));
                        } else {
                          next__PAKG=new_lab__RUJ(new_size__KAKG);
                        };
                        ((__POINTER *)next__PAKG)[ 0]=NULL;
                        ((__POINTER *)ptr_table__QAKG)[ 0]=next__PAKG;
                      } else {
                        ((__POINTER *)result__RAKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__PAKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                        result__RAKG=next__PAKG;
                      };
                    };
                    ptr__GAKG=result__RAKG;
                  } else {
                    t__LAKG=((__UINTEGER_32 )typ_id__HAKG);
                    a__MAKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                    new_size__YAKG=(__UINTEGER_32)((__UINTEGER_32)(sz__IAKG + a__MAKG) & (__UINTEGER_32)(~ a__MAKG));
                    ptr_table__VAKG=((__POINTER )(&(table_type[(t__LAKG)])));
                    lab_type__XAKG=(__UINTEGER_32)(t__LAKG |  1);
                    next__UAKG=((__POINTER )(NULL));
                    result__WAKG=((__POINTER *)ptr_table__VAKG)[ 0];
                    if ((result__WAKG == (void *)NULL)) {
                      result__WAKG=new_lab__RUJ(lab_type__XAKG);
                      next__UAKG=(void *)((unsigned long)result__WAKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAKG)));
                      ((__POINTER *)next__UAKG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__VAKG)[ 0]=next__UAKG;
                    } else {
                      next__UAKG=((__POINTER *)result__WAKG)[ 0];
                      if ((next__UAKG == (void *)NULL)) {
                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WAKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YAKG <<  1)) <=  4096)) {
                          next__UAKG=(void *)((unsigned long)result__WAKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAKG)));
                        } else {
                          next__UAKG=new_lab__RUJ(lab_type__XAKG);
                        };
                        ((__POINTER *)next__UAKG)[ 0]=NULL;
                        ((__POINTER *)ptr_table__VAKG)[ 0]=next__UAKG;
                      } else {
                        ((__POINTER *)result__WAKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__UAKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                        result__WAKG=next__UAKG;
                      };
                    };
                    ptr__GAKG=result__WAKG;
                  };
                  result__FAKG=((__LINKED_LIST_NODEoENTRYo *)ptr__GAKG);
                  *(result__FAKG) = *(LINKED_LIST_NODEoENTRYo__);
                };
                Self__NAKG=((__LINKED_LIST_NODEoENTRYo *)result__FAKG);
                Self__NAKG->item__0WPF=result__0SNF;
                Self__NAKG->next__KBQF=NULL;
                Self__TFPF->first_link__PJFF=result__FAKG;
                Self__TFPF->parent_linked_collection__01RE.upper__HEEF= 1;
                Self__TFPF->last_link__YJFF=result__FAKG;
                Self__TFPF->mem_idx__WJFF= 1;
                Self__TFPF->mem_lnk__XJFF=result__FAKG;
              } else {
                result__UUPF=NULL;
                ptr__VUPF=((__POINTER )(NULL));
                typ_id__0UPF= 0;
                sz__XUPF=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
                if ((sz__XUPF ==  0)) {
                  result__UUPF=LINKED_LIST_NODEoENTRYo__;
                } else {
                  typ_id__0UPF=__LINKED_LIST_NODEoENTRYo__;
                  clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__XUPF);
                  if ((typ_id__0UPF == (__INTEGER)(-  1))) {
                    a__MOHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                    new_size__NOHG=(__UINTEGER_32)((__UINTEGER_32)(sz__XUPF + a__MOHG) & (__UINTEGER_32)(~ a__MOHG));
                    ptr_table__0AKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NOHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                    next__ZAKG=((__POINTER )(NULL));
                    result__1AKG=((__POINTER *)ptr_table__0AKG)[ 0];
                    if ((result__1AKG == (void *)NULL)) {
                      result__1AKG=new_lab__RUJ(new_size__NOHG);
                      next__ZAKG=(void *)((unsigned long)result__1AKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NOHG)));
                      ((__POINTER *)next__ZAKG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__0AKG)[ 0]=next__ZAKG;
                    } else {
                      next__ZAKG=((__POINTER *)result__1AKG)[ 0];
                      if ((next__ZAKG == (void *)NULL)) {
                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1AKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__NOHG <<  1)) <=  4096)) {
                          next__ZAKG=(void *)((unsigned long)result__1AKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NOHG)));
                        } else {
                          next__ZAKG=new_lab__RUJ(new_size__NOHG);
                        };
                        ((__POINTER *)next__ZAKG)[ 0]=NULL;
                        ((__POINTER *)ptr_table__0AKG)[ 0]=next__ZAKG;
                      } else {
                        ((__POINTER *)result__1AKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZAKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                        result__1AKG=next__ZAKG;
                      };
                    };
                    ptr__VUPF=result__1AKG;
                  } else {
                    t__ROHG=((__UINTEGER_32 )typ_id__0UPF);
                    a__QOHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                    new_size__CBKG=(__UINTEGER_32)((__UINTEGER_32)(sz__XUPF + a__QOHG) & (__UINTEGER_32)(~ a__QOHG));
                    ptr_table__5AKG=((__POINTER )(&(table_type[(t__ROHG)])));
                    lab_type__BBKG=(__UINTEGER_32)(t__ROHG |  1);
                    next__4AKG=((__POINTER )(NULL));
                    result__ABKG=((__POINTER *)ptr_table__5AKG)[ 0];
                    if ((result__ABKG == (void *)NULL)) {
                      result__ABKG=new_lab__RUJ(lab_type__BBKG);
                      next__4AKG=(void *)((unsigned long)result__ABKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CBKG)));
                      ((__POINTER *)next__4AKG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__5AKG)[ 0]=next__4AKG;
                    } else {
                      next__4AKG=((__POINTER *)result__ABKG)[ 0];
                      if ((next__4AKG == (void *)NULL)) {
                        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ABKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CBKG <<  1)) <=  4096)) {
                          next__4AKG=(void *)((unsigned long)result__ABKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CBKG)));
                        } else {
                          next__4AKG=new_lab__RUJ(lab_type__BBKG);
                        };
                        ((__POINTER *)next__4AKG)[ 0]=NULL;
                        ((__POINTER *)ptr_table__5AKG)[ 0]=next__4AKG;
                      } else {
                        ((__POINTER *)result__ABKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__4AKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                        result__ABKG=next__4AKG;
                      };
                    };
                    ptr__VUPF=result__ABKG;
                  };
                  result__UUPF=((__LINKED_LIST_NODEoENTRYo *)ptr__VUPF);
                  *(result__UUPF) = *(LINKED_LIST_NODEoENTRYo__);
                };
                Self__AUQF=((__LINKED_LIST_NODEoENTRYo *)result__UUPF);
                Self__AUQF->item__0WPF=result__0SNF;
                Self__AUQF->next__KBQF=NULL;
                ((__LINKED_LIST_NODEoENTRYo *)Self__TFPF->last_link__YJFF)->next__KBQF=result__UUPF;
                Self__TFPF->parent_linked_collection__01RE.upper__HEEF=(__INTEGER)(Self__TFPF->parent_linked_collection__01RE.upper__HEEF +  1);
                Self__TFPF->last_link__YJFF=result__UUPF;
              };
            };
          };
        };
      };
    } while (((dirent__WJVE != (void *)NULL) & result__ZJVE));
    closedir((dir__UJVE));
  };
  return(result__ZJVE);
}

static void check_in__begin__5WNC(void *entry__BXNC,__INTEGER n__CXNC)
// ({NULLxDIRECTORYxENTRY},{INTEGER}) VoidRecursive, No inlinable.
{
  void *name__DXNC,*tok__EXNC,*__tmp__OXNC,*k__0O5B,*k__UJTF;
  void *dir__GXNC,*__tmp__VXNC;
  void *__tmp__IXNC;
  __INTEGER __tmp__0XNC,Self__BOED,__tmp__PYNC,Self__QOED,__tmp__0ZNC;
  __INTEGER Self__EJTF,new_capacity__1AJG,old_nb_elts__4AJG,upper__GBKG;
  __INTEGER Self__EBKG,new_capacity__BBJG,old_nb_elts__EBJG,upper__LBKG;
  __INTEGER Self__JBKG,i__CW5C,j__DW5C,Self__U3GB,__tmp__A4NC;
  __INTEGER Self__QUPD,new_capacity__HBJG,old_nb_elts__KBJG,upper__RBKG;
  __INTEGER Self__PBKG;
  __STRING *Self__PUQ,*Self__2AJG,*Self__CBJG,*Self__AW5C,*Self__420;
  __STRING *Self__IBJG;
  void *tok_lst__FXNC;
  __CHARACTER *Self__3AJG,*new__5AJG,*Self__DBJG,*new__FBJG,*Self__34BB;
  __CHARACTER *model__44BB,*Self__JBJG,*new__LBJG;
  __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__ZO5B,*Self__TJTF;
  void *node__DP5B,*node__4JTF;
  name__DXNC=NULL;
  tok__EXNC=NULL;
  tok_lst__FXNC=NULL;
  dir__GXNC=NULL;
  if (((struct ___OBJ *)entry__BXNC)->__id==__DIRECTORY__) {
    __tmp__IXNC=open__4TRE(entry__BXNC);
  } else {
    __tmp__IXNC=open__BY2B(entry__BXNC);
  };
  if (((void *)__tmp__IXNC == (void *)NULL)) {
    print__CCD((&__string_166));
    if (((struct ___OBJ *)entry__BXNC)->__id==__DIRECTORY__) {
      __tmp__OXNC=((__ENTRY *)((__DIRECTORY *)entry__BXNC)->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.path__2C;
    } else {
      __tmp__OXNC=((__ENTRY *)entry__BXNC)->parent_abstract_entry__LB.path__2C;
    };
    print__CCD(__tmp__OXNC);
    print__CCD((&__string_127));
  } else {
    if (__tmp__IXNC==NULL) {
      __tmp__VXNC=NULL;
    } else {
      switch (((struct ___OBJ *)__tmp__IXNC)->__id) {
      case __DIRECTORY__: {
        __tmp__VXNC=((void *)__tmp__IXNC);
      } break;
      case __STD_FILE__: {
        __tmp__VXNC=NULL;
      } break;
      }
    };
    dir__GXNC=__tmp__VXNC;
    __tmp__0XNC=((__LINKED_LISToENTRYo *)((__DIRECTORY *)__tmp__VXNC)->parent_abstract_directory__NB.list__21RE)->parent_linked_collection__01RE.upper__HEEF;
    Self__BOED= 1;
    while ((Self__BOED <= __tmp__0XNC)) {
      if (((__ENTRY *)item__EQQF(dir__GXNC,Self__BOED))->parent_abstract_entry__LB.is_directory__BC) {
        check_in__begin__5WNC(item__EQQF(dir__GXNC,Self__BOED),n__CXNC);
      };
      Self__BOED=(__INTEGER)(Self__BOED +  1);
    };
    __tmp__PYNC=((__LINKED_LISToENTRYo *)((__DIRECTORY *)__tmp__VXNC)->parent_abstract_directory__NB.list__21RE)->parent_linked_collection__01RE.upper__HEEF;
    Self__QOED= 1;
    while ((Self__QOED <= __tmp__PYNC)) {
      if ((! ((__ENTRY *)item__EQQF(dir__GXNC,Self__QOED))->parent_abstract_entry__LB.is_directory__BC)) {
        name__DXNC=((__ENTRY *)item__EQQF(dir__GXNC,Self__QOED))->parent_abstract_entry__LB.name__SKFC;
        if (has_suffix__VLQ(name__DXNC)) {
          copy__5GQ(string_tmp__QH,name__DXNC);
          Self__PUQ=((__STRING *)string_tmp__QH);
          if (( 3 > Self__PUQ->count__04B)) {
            Self__PUQ->count__04B= 0;
          } else {
            Self__PUQ->count__04B=(__INTEGER)(Self__PUQ->count__04B -  3);
          };
          to_upper__UVQ(string_tmp__QH);
          tok__EXNC=get__TPB(string_tmp__QH);
          if (fast_has__ZER(short_dico__LD,(&__string_111))) {
            tok_lst__FXNC=fast_at__GU1(short_dico__LD,(&__string_111));
            __tmp__0ZNC=((__LINKED_LISToSTRING_CONSTANTo *)tok_lst__FXNC)->parent_linked_collection__GD.upper__F2C;
            Self__EJTF= 1;
            while ((Self__EJTF <= __tmp__0ZNC)) {
              if (((void *)item__WZPD(tok_lst__FXNC,Self__EJTF) == (void *)NULL)) {
                append__CRQ(current_list__YB,tok__EXNC);
                append__CRQ(file_list__WB,tok__EXNC);
              } else {
                append__CRQ(current_list__YB,item__WZPD(tok_lst__FXNC,Self__EJTF));
                append__CRQ(file_list__WB,item__WZPD(tok_lst__FXNC,Self__EJTF));
              };
              Self__EJTF=(__INTEGER)(Self__EJTF +  1);
            };
          } else {
            append__CRQ(current_list__YB,tok__EXNC);
            Self__2AJG=((__STRING *)current_list__YB);
            new_capacity__1AJG= 0;
            if ((Self__2AJG->capacity__4FQ <= Self__2AJG->count__04B)) {
              if ((Self__2AJG->capacity__4FQ ==  0)) {
                Self__2AJG->capacity__4FQ= 32;
                Self__2AJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__1AJG=(__INTEGER)(Self__2AJG->capacity__4FQ <<  1);
                Self__3AJG=((__CHARACTER *)Self__2AJG->storage__HGQ);
                old_nb_elts__4AJG=Self__2AJG->capacity__4FQ;
                new__5AJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__3AJG),((__UINTEGER_32 )old_nb_elts__4AJG),((__UINTEGER_32 )new_capacity__1AJG)));
                upper__GBKG=(__INTEGER)(new_capacity__1AJG -  1);
                Self__EBKG=old_nb_elts__4AJG;
                while ((Self__EBKG <= upper__GBKG)) {
                  new__5AJG[Self__EBKG]='\0';
                  Self__EBKG=(__INTEGER)(Self__EBKG +  1);
                };
                Self__2AJG->storage__HGQ=new__5AJG;
                Self__2AJG->capacity__4FQ=new_capacity__1AJG;
              };
            };
            ((__CHARACTER *)Self__2AJG->storage__HGQ)[Self__2AJG->count__04B]='\n';
            Self__2AJG->count__04B=(__INTEGER)(Self__2AJG->count__04B +  1);
            append__CRQ(file_list__WB,tok__EXNC);
            Self__CBJG=((__STRING *)file_list__WB);
            new_capacity__BBJG= 0;
            if ((Self__CBJG->capacity__4FQ <= Self__CBJG->count__04B)) {
              if ((Self__CBJG->capacity__4FQ ==  0)) {
                Self__CBJG->capacity__4FQ= 32;
                Self__CBJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__BBJG=(__INTEGER)(Self__CBJG->capacity__4FQ <<  1);
                Self__DBJG=((__CHARACTER *)Self__CBJG->storage__HGQ);
                old_nb_elts__EBJG=Self__CBJG->capacity__4FQ;
                new__FBJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__DBJG),((__UINTEGER_32 )old_nb_elts__EBJG),((__UINTEGER_32 )new_capacity__BBJG)));
                upper__LBKG=(__INTEGER)(new_capacity__BBJG -  1);
                Self__JBKG=old_nb_elts__EBJG;
                while ((Self__JBKG <= upper__LBKG)) {
                  new__FBJG[Self__JBKG]='\0';
                  Self__JBKG=(__INTEGER)(Self__JBKG +  1);
                };
                Self__CBJG->storage__HGQ=new__FBJG;
                Self__CBJG->capacity__4FQ=new_capacity__BBJG;
              };
            };
            ((__CHARACTER *)Self__CBJG->storage__HGQ)[Self__CBJG->count__04B]='\n';
            Self__CBJG->count__04B=(__INTEGER)(Self__CBJG->count__04B +  1);
          };
          Self__ZO5B=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__PWQ);
          k__0O5B=tok__EXNC;
          node__DP5B=((void **)Self__ZO5B->buckets__ME3B)[(__INTEGER)(hash_code__LQU(tok__EXNC) % Self__ZO5B->capacity__HE3B)];
          while ((! (((void *)node__DP5B == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__DP5B)->key__YE3B == (void *)k__0O5B)))) {
            node__DP5B=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__DP5B)->next__DF3B;
          };
          if (((void *)node__DP5B != (void *)NULL)) {
            print__CCD((&__string_167));
            Self__TJTF=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__PWQ);
            k__UJTF=tok__EXNC;
            node__4JTF=((void **)Self__TJTF->buckets__ME3B)[(__INTEGER)(hash_code__LQU(tok__EXNC) % Self__TJTF->capacity__HE3B)];
            while (((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__4JTF)->key__YE3B != (void *)k__UJTF)) {
              node__4JTF=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__4JTF)->next__DF3B;
            };
            print__CCD(((__PROTOTYPE *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__4JTF)->item__P2ED)->filename__AUG);
            fputc((int)('\n'),stdout);
            print__CCD(((__ENTRY *)item__EQQF(dir__GXNC,Self__QOED))->parent_abstract_entry__LB.path__2C);
            fputc((int)('\n'),stdout);
            exit(( 1));
          };
          proto_input__AI=create__name__generic_count__2ZB(((__ENTRY *)item__EQQF(dir__GXNC,Self__QOED))->parent_abstract_entry__LB.path__2C,tok__EXNC);
          go_on__F0B(proto_input__AI);
          copy__5GQ(string_tmp__QH,tok__EXNC);
          if (fast_has__ZER(short_dico__LD,(&__string_88))) {
            append__CRQ(string_tmp__QH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(short_dico__LD,(&__string_88)))->first_link__SWAC)->item__P4FD);
          } else {
            append__CRQ(string_tmp__QH,(&__string_128));
          };
          save_file__with__22B(get__TPB(string_tmp__QH),output_code__RI);
        };
      };
      Self__QOED=(__INTEGER)(Self__QOED +  1);
    };
    if ((((__STRING *)current_list__YB)->count__04B !=  0)) {
      if (fast_has__ZER(short_dico__LD,(&__string_110))) {
        tok__EXNC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(short_dico__LD,(&__string_110)))->first_link__SWAC)->item__P4FD;
        Self__AW5C=((__STRING *)current_list__YB);
        i__CW5C=Self__AW5C->count__04B;
        j__DW5C=((__STRING_CONSTANT *)tok__EXNC)->count__4C;
        resize__54X(Self__AW5C,(__INTEGER)(i__CW5C + j__DW5C));
        if (((i__CW5C >  0) && (j__DW5C >  0))) {
          move__to__by__YP4B(Self__AW5C->storage__HGQ, 0,(__INTEGER)(i__CW5C -  1),j__DW5C);
        };
        Self__34BB=((__CHARACTER *)Self__AW5C->storage__HGQ);
        model__44BB=((__STRING_CONSTANT *)tok__EXNC)->storage__E5M;
        Self__U3GB=(__INTEGER)(j__DW5C -  1);
        while ((Self__U3GB >=  0)) {
          Self__34BB[Self__U3GB]=((__CHARACTER *)model__44BB)[Self__U3GB];
          Self__U3GB=(__INTEGER)(Self__U3GB -  1);
        };
      };
      if (fast_has__ZER(short_dico__LD,(&__string_112))) {
        tok__EXNC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(short_dico__LD,(&__string_112)))->first_link__SWAC)->item__P4FD;
        append__CRQ(current_list__YB,tok__EXNC);
      };
      copy__5GQ(string_tmp__QH,((__ENTRY *)((__DIRECTORY *)__tmp__VXNC)->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.path__2C);
      Self__420=((__STRING *)string_tmp__QH);
      if ((n__CXNC > Self__420->count__04B)) {
        Self__420->count__04B= 0;
      } else {
        if ((n__CXNC >  0)) {
          remove_between__to__4IS(Self__420, 1,n__CXNC);
        };
      };
      if ((((__STRING *)string_tmp__QH)->count__04B !=  0)) {
        replace_all__with__HTQ(string_tmp__QH,'/','-');
        tok__EXNC=get__TPB(string_tmp__QH);
        if (fast_has__ZER(short_dico__LD,(&__string_108))) {
          tok_lst__FXNC=fast_at__GU1(short_dico__LD,(&__string_108));
          __tmp__A4NC=((__LINKED_LISToSTRING_CONSTANTo *)tok_lst__FXNC)->parent_linked_collection__GD.upper__F2C;
          Self__QUPD= 1;
          while ((Self__QUPD <= __tmp__A4NC)) {
            if (((void *)item__WZPD(tok_lst__FXNC,Self__QUPD) == (void *)NULL)) {
              append__CRQ(directory_list__UB,tok__EXNC);
            } else {
              append__CRQ(directory_list__UB,item__WZPD(tok_lst__FXNC,Self__QUPD));
            };
            Self__QUPD=(__INTEGER)(Self__QUPD +  1);
          };
        } else {
          append__CRQ(directory_list__UB,tok__EXNC);
          Self__IBJG=((__STRING *)directory_list__UB);
          new_capacity__HBJG= 0;
          if ((Self__IBJG->capacity__4FQ <= Self__IBJG->count__04B)) {
            if ((Self__IBJG->capacity__4FQ ==  0)) {
              Self__IBJG->capacity__4FQ= 32;
              Self__IBJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__HBJG=(__INTEGER)(Self__IBJG->capacity__4FQ <<  1);
              Self__JBJG=((__CHARACTER *)Self__IBJG->storage__HGQ);
              old_nb_elts__KBJG=Self__IBJG->capacity__4FQ;
              new__LBJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__JBJG),((__UINTEGER_32 )old_nb_elts__KBJG),((__UINTEGER_32 )new_capacity__HBJG)));
              upper__RBKG=(__INTEGER)(new_capacity__HBJG -  1);
              Self__PBKG=old_nb_elts__KBJG;
              while ((Self__PBKG <= upper__RBKG)) {
                new__LBJG[Self__PBKG]='\0';
                Self__PBKG=(__INTEGER)(Self__PBKG +  1);
              };
              Self__IBJG->storage__HGQ=new__LBJG;
              Self__IBJG->capacity__4FQ=new_capacity__HBJG;
            };
          };
          ((__CHARACTER *)Self__IBJG->storage__HGQ)[Self__IBJG->count__04B]='\n';
          Self__IBJG->count__04B=(__INTEGER)(Self__IBJG->count__04B +  1);
        };
        copy__5GQ(string_tmp__QH,tok__EXNC);
        if (fast_has__ZER(short_dico__LD,(&__string_88))) {
          append__CRQ(string_tmp__QH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__GU1(short_dico__LD,(&__string_88)))->first_link__SWAC)->item__P4FD);
        } else {
          append__CRQ(string_tmp__QH,(&__string_128));
        };
        save_file__with__22B(get__TPB(string_tmp__QH),current_list__YB);
        ((__STRING *)current_list__YB)->count__04B= 0;
      };
    };
  };
}

static void* fast_at__GU1(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__HU1,void *k__IU1)
// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *node__SU1;
  node__SU1=((void **)Self__HU1->buckets__MFR)[(__INTEGER)(hash_code__LQU(k__IU1) % Self__HU1->capacity__HFR)];
  while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__SU1)->key__YFR != (void *)k__IU1)) {
    node__SU1=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__SU1)->next__DGR;
  };
  return(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__SU1)->item__FV1);
}

static void save_file__with__22B(void *n__42B,void *buf__52B)
// ({NULLxSTRING_CONSTANT},{NULLxSTRING}) VoidNo recursive, No inlinable.
{
  __STRING *Self__3AHG,*Self__QGR,*Self__OBJG,*Self__UBJG,*Self__KRIG;
  __STRING *Self__BBHG,*Self__5BJG,*Self__DCJG,*new__SE5F,*Self__LRIG;
  __STRING *Self__MDMF,*Self__4GMF,*Self__PCJG;
  __INTEGER new_capacity__NBJG,old_nb_elts__QBJG,upper__WBKG,Self__UBKG;
  __INTEGER new_capacity__TBJG,old_nb_elts__WBJG,upper__1BKG,Self__ZBKG;
  __INTEGER new_capacity__ZBJG,old_nb_elts__2BJG,upper__ACKG,Self__4BKG;
  __INTEGER i__XBMF,n__ACJG,n__BCJG,new_capacity__CCJG;
  __INTEGER old_nb_elts__FCJG,upper__FCKG,Self__DCKG,__tmp__24B;
  __INTEGER result__BOMF,elt_ofs__DOMF,size_byte__EOMF,size_block__FOMF;
  __INTEGER idx_elt__GOMF,__tmp__EQMF,Self__RCRF,new_capacity__ICJG;
  __INTEGER old_nb_elts__LCJG,upper__KCKG,Self__ICKG,h__QIIG,m__SIIG;
  __INTEGER s__TIIG,h__ZIIG,m__1IIG,s__2IIG,i__MTOF,n__5GMF,n__PHHG;
  __INTEGER new_capacity__OCJG,old_nb_elts__RCJG,upper__PCKG,Self__NCKG;
  void *result__VOEF,*ent__P4LF,*__tmp__E5LF,*__tmp__W4B,*result__DRMF;
  void *ent__3YNF,*__tmp__SZNF;
  void *__tmp__COFF,*result__Q4LF,*__tmp__F5LF,*result__4YNF;
  void *__tmp__TZNF;
  __POINTER stream__GVFF,__tmp__HBHG,str__E4MF,tt__WROF;
  void *__tmp__LPEF,*__tmp__RRMF;
  void *__tmp__X4B,*file__C3B;
  __STD_FILE *Self__2NMF,*Self__BRMF;
  __STRING_CONSTANT *Self__IBHG,*Self__RE5F;
  __UINTEGER_32 date__MIIG,t__RIIG,date__VIIG,t__0IIG;
  __UINTEGER_16 y__HIIG,y__TQPF;
  __BOOLEAN __tmp__X3B,result__IVFF,__tmp__ESOF;
  __CHARACTER *Self__PBJG,*new__RBJG,*Self__VBJG,*new__XBJG,*Self__1BJG;
  __CHARACTER *new__3BJG,*Self__ECJG,*new__GCJG,*__tmp__FIIG,*pe__VROF;
  __CHARACTER *Self__KCJG,*new__MCJG,*Self__QCJG,*new__SCJG;
  __UINTEGER_8 m__IIIG,md__JIIG,wd__KIIG,m__QQPF,md__NQPF,wd__KQPF;
  if (((void *)output_name__CI != (void *)NULL)) {
    copy__5GQ(string_tmp__QH,output_name__CI);
    Self__3AHG=((__STRING *)string_tmp__QH);
    if ((((__CHARACTER *)Self__3AHG->storage__HGQ)[(__INTEGER)(Self__3AHG->count__04B -  1)] != '/')) {
      __tmp__X3B=TRUE__;
    } else {
      Self__QGR=((__STRING *)string_tmp__QH);
      __tmp__X3B=(((__CHARACTER *)Self__QGR->storage__HGQ)[(__INTEGER)(Self__QGR->count__04B -  1)] != '\\');
    };
    if (__tmp__X3B) {
      Self__OBJG=((__STRING *)string_tmp__QH);
      new_capacity__NBJG= 0;
      if ((Self__OBJG->capacity__4FQ <= Self__OBJG->count__04B)) {
        if ((Self__OBJG->capacity__4FQ ==  0)) {
          Self__OBJG->capacity__4FQ= 32;
          Self__OBJG->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__NBJG=(__INTEGER)(Self__OBJG->capacity__4FQ <<  1);
          Self__PBJG=((__CHARACTER *)Self__OBJG->storage__HGQ);
          old_nb_elts__QBJG=Self__OBJG->capacity__4FQ;
          new__RBJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__PBJG),((__UINTEGER_32 )old_nb_elts__QBJG),((__UINTEGER_32 )new_capacity__NBJG)));
          upper__WBKG=(__INTEGER)(new_capacity__NBJG -  1);
          Self__UBKG=old_nb_elts__QBJG;
          while ((Self__UBKG <= upper__WBKG)) {
            new__RBJG[Self__UBKG]='\0';
            Self__UBKG=(__INTEGER)(Self__UBKG +  1);
          };
          Self__OBJG->storage__HGQ=new__RBJG;
          Self__OBJG->capacity__4FQ=new_capacity__NBJG;
        };
      };
      ((__CHARACTER *)Self__OBJG->storage__HGQ)[Self__OBJG->count__04B]='/';
      Self__OBJG->count__04B=(__INTEGER)(Self__OBJG->count__04B +  1);
    };
  } else {
    ((__STRING *)string_tmp__QH)->count__04B= 0;
  };
  append__CRQ(string_tmp__QH,n__42B);
  if (FILE_SYSTEM__->parent_directory__K5C==0) {
  } else {
    parent_directory__U3C();
  };
  result__VOEF=NULL;
  if (FILE_SYSTEM__->parent_directory__K5C==0) {
    __tmp__COFF=FILE_SYSTEM__->parent_directory__J5C;
  } else {
    __tmp__COFF=parent_directory__U3C();
  };
  copy__5GQ(string_tmp__03C,((__ENTRY *)((__DIRECTORY *)__tmp__COFF)->parent_abstract_directory__NB.parent_entry__MB)->parent_abstract_entry__LB.path__2C);
  Self__UBJG=((__STRING *)string_tmp__03C);
  new_capacity__TBJG= 0;
  if ((Self__UBJG->capacity__4FQ <= Self__UBJG->count__04B)) {
    if ((Self__UBJG->capacity__4FQ ==  0)) {
      Self__UBJG->capacity__4FQ= 32;
      Self__UBJG->storage__HGQ=create__D4BB( 32);
    } else {
      new_capacity__TBJG=(__INTEGER)(Self__UBJG->capacity__4FQ <<  1);
      Self__VBJG=((__CHARACTER *)Self__UBJG->storage__HGQ);
      old_nb_elts__WBJG=Self__UBJG->capacity__4FQ;
      new__XBJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__VBJG),((__UINTEGER_32 )old_nb_elts__WBJG),((__UINTEGER_32 )new_capacity__TBJG)));
      upper__1BKG=(__INTEGER)(new_capacity__TBJG -  1);
      Self__ZBKG=old_nb_elts__WBJG;
      while ((Self__ZBKG <= upper__1BKG)) {
        new__XBJG[Self__ZBKG]='\0';
        Self__ZBKG=(__INTEGER)(Self__ZBKG +  1);
      };
      Self__UBJG->storage__HGQ=new__XBJG;
      Self__UBJG->capacity__4FQ=new_capacity__TBJG;
    };
  };
  ((__CHARACTER *)Self__UBJG->storage__HGQ)[Self__UBJG->count__04B]='/';
  Self__UBJG->count__04B=(__INTEGER)(Self__UBJG->count__04B +  1);
  append__CRQ(string_tmp__03C,string_tmp__QH);
  if (FILE_SYSTEM__->parent_directory__K5C==0) {
  } else {
    parent_directory__U3C();
  };
  reduce_path__KOFF(string_tmp__03C);
  if (FILE_SYSTEM__->parent_directory__K5C==0) {
  } else {
    parent_directory__U3C();
  };
  result__IVFF=FALSE__;
  Self__KRIG=((__STRING *)string_tmp__03C);
  if ((Self__KRIG->capacity__4FQ > Self__KRIG->count__04B)) {
    Self__KRIG->count__04B=(__INTEGER)(Self__KRIG->count__04B +  1);
    if ((((__CHARACTER *)Self__KRIG->storage__HGQ)[(__INTEGER)(Self__KRIG->count__04B -  1)] != '\0')) {
      ((__CHARACTER *)Self__KRIG->storage__HGQ)[(__INTEGER)(Self__KRIG->count__04B -  1)]='\0';
    };
  } else {
    new_capacity__ZBJG= 0;
    if ((Self__KRIG->capacity__4FQ <= Self__KRIG->count__04B)) {
      if ((Self__KRIG->capacity__4FQ ==  0)) {
        Self__KRIG->capacity__4FQ= 32;
        Self__KRIG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__ZBJG=(__INTEGER)(Self__KRIG->capacity__4FQ <<  1);
        Self__1BJG=((__CHARACTER *)Self__KRIG->storage__HGQ);
        old_nb_elts__2BJG=Self__KRIG->capacity__4FQ;
        new__3BJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__1BJG),((__UINTEGER_32 )old_nb_elts__2BJG),((__UINTEGER_32 )new_capacity__ZBJG)));
        upper__ACKG=(__INTEGER)(new_capacity__ZBJG -  1);
        Self__4BKG=old_nb_elts__2BJG;
        while ((Self__4BKG <= upper__ACKG)) {
          new__3BJG[Self__4BKG]='\0';
          Self__4BKG=(__INTEGER)(Self__4BKG +  1);
        };
        Self__KRIG->storage__HGQ=new__3BJG;
        Self__KRIG->capacity__4FQ=new_capacity__ZBJG;
      };
    };
    ((__CHARACTER *)Self__KRIG->storage__HGQ)[Self__KRIG->count__04B]='\0';
    Self__KRIG->count__04B=(__INTEGER)(Self__KRIG->count__04B +  1);
  };
  Self__KRIG->count__04B=(__INTEGER)(Self__KRIG->count__04B -  1);
  stream__GVFF=((__POINTER )(fopen((char*)(Self__KRIG->storage__HGQ),"w+b")));
  if ((stream__GVFF != (void *)NULL)) {
    result__IVFF=(((__INTEGER )(fclose((FILE*)(stream__GVFF)))) ==  0);
  };
  if (result__IVFF) {
    if (FILE_SYSTEM__->parent_directory__K5C==0) {
    } else {
      parent_directory__U3C();
    };
    result__VOEF=get_entry__HWFF(string_tmp__03C);
    if (((void *)result__VOEF != (void *)NULL)) {
      __tmp__LPEF=((__ENTRY *)result__VOEF)->parent_abstract_entry__LB.path__2C;
      if (FILE_SYSTEM__->parent_directory__K5C==0) {
      } else {
        parent_directory__U3C();
      };
      ent__P4LF=NULL;
      result__Q4LF=NULL;
      if (FILE_SYSTEM__->parent_directory__K5C==0) {
      } else {
        parent_directory__U3C();
      };
      if (((void *)string_tmp__03C != (void *)__tmp__LPEF)) {
        copy__5GQ(string_tmp__03C,__tmp__LPEF);
      };
      Self__BBHG=((__STRING *)string_tmp__03C);
      i__XBMF=(__INTEGER)( 1 + fast_reverse_index_of__from__GOAD(Self__BBHG->storage__HGQ,(__INTEGER)(Self__BBHG->count__04B -  1)));
      if ((i__XBMF ==  0)) {
        copy__5GQ(string_tmp__03C,(&__string_168));
      } else {
        Self__5BJG=((__STRING *)string_tmp__03C);
        n__ACJG=(__INTEGER)(i__XBMF -  1);
        if ((n__ACJG < Self__5BJG->count__04B)) {
          n__BCJG=(__INTEGER)(Self__5BJG->count__04B - n__ACJG);
          if ((n__BCJG > Self__5BJG->count__04B)) {
            Self__5BJG->count__04B= 0;
          } else {
            Self__5BJG->count__04B=(__INTEGER)(Self__5BJG->count__04B - n__BCJG);
          };
        };
        if ((((__STRING *)string_tmp__03C)->count__04B ==  0)) {
          Self__DCJG=((__STRING *)string_tmp__03C);
          new_capacity__CCJG= 0;
          if ((Self__DCJG->capacity__4FQ <= Self__DCJG->count__04B)) {
            if ((Self__DCJG->capacity__4FQ ==  0)) {
              Self__DCJG->capacity__4FQ= 32;
              Self__DCJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__CCJG=(__INTEGER)(Self__DCJG->capacity__4FQ <<  1);
              Self__ECJG=((__CHARACTER *)Self__DCJG->storage__HGQ);
              old_nb_elts__FCJG=Self__DCJG->capacity__4FQ;
              new__GCJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__ECJG),((__UINTEGER_32 )old_nb_elts__FCJG),((__UINTEGER_32 )new_capacity__CCJG)));
              upper__FCKG=(__INTEGER)(new_capacity__CCJG -  1);
              Self__DCKG=old_nb_elts__FCJG;
              while ((Self__DCKG <= upper__FCKG)) {
                new__GCJG[Self__DCKG]='\0';
                Self__DCKG=(__INTEGER)(Self__DCKG +  1);
              };
              Self__DCJG->storage__HGQ=new__GCJG;
              Self__DCJG->capacity__4FQ=new_capacity__CCJG;
            };
          };
          ((__CHARACTER *)Self__DCJG->storage__HGQ)[Self__DCJG->count__04B]='/';
          Self__DCJG->count__04B=(__INTEGER)(Self__DCJG->count__04B +  1);
        };
      };
      if (FILE_SYSTEM__->parent_directory__K5C==0) {
      } else {
        parent_directory__U3C();
      };
      if (has__YHR(alias__WBF,string_tmp__03C)) {
        if (FILE_SYSTEM__->parent_directory__K5C==0) {
        } else {
          parent_directory__U3C();
        };
        ent__P4LF=at__MX1(alias__WBF,string_tmp__03C);
        if (((void *)((__ENTRY *)ent__P4LF)->parent_abstract_entry__LB.child__HY2B != (void *)NULL)) {
          __tmp__E5LF=((__ENTRY *)ent__P4LF)->parent_abstract_entry__LB.child__HY2B;
          if (__tmp__E5LF==NULL) {
            __tmp__F5LF=NULL;
          } else {
            switch (((struct ___OBJ *)__tmp__E5LF)->__id) {
            case __DIRECTORY__: {
              __tmp__F5LF=((void *)__tmp__E5LF);
            } break;
            case __STD_FILE__: {
              __tmp__F5LF=NULL;
            } break;
            }
          };
          result__Q4LF=__tmp__F5LF;
        };
      };
      if (((void *)result__Q4LF != (void *)NULL)) {
        refresh__GBUE(result__Q4LF);
      };
    };
  };
  if (((void *)result__VOEF == (void *)NULL)) {
    put_string__55F((&__string_169));
    put_string__55F(string_tmp__QH);
    put_string__55F((&__string_170));
    exit(( 1));
  };
  __tmp__W4B=open__BY2B(result__VOEF);
  if (__tmp__W4B==NULL) {
    __tmp__X4B=NULL;
  } else {
    switch (((struct ___OBJ *)__tmp__W4B)->__id) {
    case __DIRECTORY__: {
      __tmp__X4B=NULL;
    } break;
    case __STD_FILE__: {
      __tmp__X4B=((void *)__tmp__W4B);
    } break;
    }
  };
  file__C3B=__tmp__X4B;
  __tmp__24B=((__STRING *)buf__52B)->count__04B;
  Self__2NMF=((__STD_FILE *)__tmp__X4B);
  result__BOMF= 0;
  elt_ofs__DOMF= 0;
  size_byte__EOMF=__tmp__24B;
  fseek((FILE*)((Self__2NMF->stream__QSVD)),(((__INTEGER )Self__2NMF->parent_abstract_file__B3B.cursor__IPMF)),SEEK_SET);
  Self__2NMF->parent_abstract_file__B3B.cursor__IPMF=(__UINTEGER_32)(Self__2NMF->parent_abstract_file__B3B.cursor__IPMF + ((__UINTEGER_32 )__tmp__24B));
  size_block__FOMF= 2048;
  idx_elt__GOMF= 1;
  __tmp__HBHG=Self__2NMF->stream__QSVD;
  __tmp__FIIG=((__STRING *)buf__52B)->storage__HGQ;
  while ((size_byte__EOMF >  0)) {
    if ((size_byte__EOMF <  2048)) {
      size_block__FOMF=size_byte__EOMF;
    };
    __tmp__EQMF=(__INTEGER)(size_block__FOMF -  1);
    Self__RCRF= 0;
    while ((Self__RCRF <= __tmp__EQMF)) {
      tmp_buffer__MQMF[Self__RCRF]=((__UINTEGER_8 )((__CHARACTER *)__tmp__FIIG)[(__INTEGER)(idx_elt__GOMF -  1)]);
      elt_ofs__DOMF=(__INTEGER)(elt_ofs__DOMF +  1);
      if ((elt_ofs__DOMF ==  1)) {
        elt_ofs__DOMF= 0;
        idx_elt__GOMF=(__INTEGER)(idx_elt__GOMF +  1);
      };
      Self__RCRF=(__INTEGER)(Self__RCRF +  1);
    };
    result__BOMF=(__INTEGER)(result__BOMF + ((__INTEGER )(fwrite((void *)((tmp_buffer__MQMF)),(size_t)(1), (size_t)((size_block__FOMF)),(FILE*)((__tmp__HBHG))))));
    size_byte__EOMF=(__INTEGER)(size_byte__EOMF - size_block__FOMF);
  };
  Self__BRMF=((__STD_FILE *)__tmp__X4B);
  ((__ENTRY *)Self__BRMF->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.link_count__EY2B=(__INTEGER)(((__ENTRY *)Self__BRMF->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.link_count__EY2B -  1);
  result__DRMF=Self__BRMF->parent_abstract_file__B3B.parent_entry__A3B;
  Self__BRMF->parent_abstract_file__B3B.cursor__IPMF= 0;
  str__E4MF=Self__BRMF->stream__QSVD;
  Self__BRMF->stream__QSVD=NULL;
  if ((((__INTEGER )(fclose((FILE*)((str__E4MF))))) ==  0)) {
    pe__VROF=NULL;
    tt__WROF=((__POINTER )(NULL));
    if ((((__STRING_CONSTANT *)((__ENTRY *)Self__BRMF->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.path__2C)->count__4C ==  2)) {
      Self__IBHG=((__STRING_CONSTANT *)((__ENTRY *)Self__BRMF->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.path__2C);
      __tmp__ESOF=(((__CHARACTER *)Self__IBHG->storage__E5M)[(__INTEGER)(Self__IBHG->count__4C -  1)] == ':');
    } else {
      __tmp__ESOF=FALSE__;
    };
    if (__tmp__ESOF) {
      ((__ENTRY *)Self__BRMF->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.is_directory__BC=TRUE__;
    } else {
      Self__RE5F=((__STRING_CONSTANT *)((__ENTRY *)Self__BRMF->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.path__2C);
      new__SE5F=create__01(Self__RE5F->count__4C);
      copy__5GQ(new__SE5F,Self__RE5F);
      Self__LRIG=((__STRING *)new__SE5F);
      if ((Self__LRIG->capacity__4FQ > Self__LRIG->count__04B)) {
        Self__LRIG->count__04B=(__INTEGER)(Self__LRIG->count__04B +  1);
        if ((((__CHARACTER *)Self__LRIG->storage__HGQ)[(__INTEGER)(Self__LRIG->count__04B -  1)] != '\0')) {
          ((__CHARACTER *)Self__LRIG->storage__HGQ)[(__INTEGER)(Self__LRIG->count__04B -  1)]='\0';
        };
      } else {
        new_capacity__ICJG= 0;
        if ((Self__LRIG->capacity__4FQ <= Self__LRIG->count__04B)) {
          if ((Self__LRIG->capacity__4FQ ==  0)) {
            Self__LRIG->capacity__4FQ= 32;
            Self__LRIG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__ICJG=(__INTEGER)(Self__LRIG->capacity__4FQ <<  1);
            Self__KCJG=((__CHARACTER *)Self__LRIG->storage__HGQ);
            old_nb_elts__LCJG=Self__LRIG->capacity__4FQ;
            new__MCJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__KCJG),((__UINTEGER_32 )old_nb_elts__LCJG),((__UINTEGER_32 )new_capacity__ICJG)));
            upper__KCKG=(__INTEGER)(new_capacity__ICJG -  1);
            Self__ICKG=old_nb_elts__LCJG;
            while ((Self__ICKG <= upper__KCKG)) {
              new__MCJG[Self__ICKG]='\0';
              Self__ICKG=(__INTEGER)(Self__ICKG +  1);
            };
            Self__LRIG->storage__HGQ=new__MCJG;
            Self__LRIG->capacity__4FQ=new_capacity__ICJG;
          };
        };
        ((__CHARACTER *)Self__LRIG->storage__HGQ)[Self__LRIG->count__04B]='\0';
        Self__LRIG->count__04B=(__INTEGER)(Self__LRIG->count__04B +  1);
      };
      Self__LRIG->count__04B=(__INTEGER)(Self__LRIG->count__04B -  1);
      pe__VROF=Self__LRIG->storage__HGQ;
      { struct stat t;
      if ((((__INTEGER )(stat((pe__VROF),&t))) ==  0)) {
        ((__ENTRY *)Self__BRMF->parent_abstract_file__B3B.parent_entry__A3B)->parent_abstract_entry__LB.is_directory__BC=((__BOOLEAN )(S_ISDIR(t.st_mode)));
        tt__WROF=((__POINTER )(localtime(&(t.st_atime))));
        y__HIIG=(__UINTEGER_16)(((__UINTEGER_16 )(((struct tm *)(tt__WROF))->tm_year)) +  1900);
        m__IIIG=(__UINTEGER_8)(((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_mon)) +  1);
        md__JIIG=((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_mday));
        wd__KIIG=((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_wday));
        if ((! (( 1 <= wd__KIIG) && ( 7 >= wd__KIIG)))) {
          wd__KIIG= 1;
        };
        date__MIIG=(__UINTEGER_32)(((__UINTEGER_32 )y__HIIG) <<  16);
        date__MIIG=(__UINTEGER_32)(date__MIIG | (__UINTEGER_32)(((__UINTEGER_32 )m__IIIG) <<  8));
        date__MIIG=(__UINTEGER_32)(date__MIIG | ((__UINTEGER_32 )md__JIIG));
        date__MIIG=(__UINTEGER_32)(date__MIIG | ((__UINTEGER_32 )(__UINTEGER_8)(wd__KIIG <<  5)));
        h__QIIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_hour)));
        m__SIIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_min)));
        s__TIIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_sec)));
        t__RIIG=(__UINTEGER_32)(((__UINTEGER_32 )h__QIIG) <<  24);
        t__RIIG=(__UINTEGER_32)(t__RIIG | (__UINTEGER_32)(((__UINTEGER_32 )m__SIIG) <<  16));
        t__RIIG=(__UINTEGER_32)(t__RIIG | (__UINTEGER_32)(((__UINTEGER_32 )s__TIIG) <<  8));
        tt__WROF=((__POINTER )(localtime(&(t.st_mtime))));
        y__TQPF=(__UINTEGER_16)(((__UINTEGER_16 )(((struct tm *)(tt__WROF))->tm_year)) +  1900);
        m__QQPF=(__UINTEGER_8)(((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_mon)) +  1);
        md__NQPF=((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_mday));
        wd__KQPF=((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_wday));
        if ((! (( 1 <= wd__KQPF) && ( 7 >= wd__KQPF)))) {
          wd__KQPF= 1;
        };
        date__VIIG=(__UINTEGER_32)(((__UINTEGER_32 )y__TQPF) <<  16);
        date__VIIG=(__UINTEGER_32)(date__VIIG | (__UINTEGER_32)(((__UINTEGER_32 )m__QQPF) <<  8));
        date__VIIG=(__UINTEGER_32)(date__VIIG | ((__UINTEGER_32 )md__NQPF));
        date__VIIG=(__UINTEGER_32)(date__VIIG | ((__UINTEGER_32 )(__UINTEGER_8)(wd__KQPF <<  5)));
        h__ZIIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_hour)));
        m__1IIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_min)));
        s__2IIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__WROF))->tm_sec)));
        t__0IIG=(__UINTEGER_32)(((__UINTEGER_32 )h__ZIIG) <<  24);
        t__0IIG=(__UINTEGER_32)(t__0IIG | (__UINTEGER_32)(((__UINTEGER_32 )m__1IIG) <<  16));
        t__0IIG=(__UINTEGER_32)(t__0IIG | (__UINTEGER_32)(((__UINTEGER_32 )s__2IIG) <<  8));
      };
      };
    };
    __tmp__RRMF=((__ENTRY *)result__DRMF)->parent_abstract_entry__LB.path__2C;
    ent__3YNF=NULL;
    result__4YNF=NULL;
    if (((void *)string_tmp__PKVE != (void *)__tmp__RRMF)) {
      copy__5GQ(string_tmp__PKVE,__tmp__RRMF);
    };
    Self__MDMF=((__STRING *)string_tmp__PKVE);
    i__MTOF=(__INTEGER)( 1 + fast_reverse_index_of__from__GOAD(Self__MDMF->storage__HGQ,(__INTEGER)(Self__MDMF->count__04B -  1)));
    if ((i__MTOF ==  0)) {
      copy__5GQ(string_tmp__PKVE,(&__string_168));
    } else {
      Self__4GMF=((__STRING *)string_tmp__PKVE);
      n__5GMF=(__INTEGER)(i__MTOF -  1);
      if ((n__5GMF < Self__4GMF->count__04B)) {
        n__PHHG=(__INTEGER)(Self__4GMF->count__04B - n__5GMF);
        if ((n__PHHG > Self__4GMF->count__04B)) {
          Self__4GMF->count__04B= 0;
        } else {
          Self__4GMF->count__04B=(__INTEGER)(Self__4GMF->count__04B - n__PHHG);
        };
      };
      if ((((__STRING *)string_tmp__PKVE)->count__04B ==  0)) {
        Self__PCJG=((__STRING *)string_tmp__PKVE);
        new_capacity__OCJG= 0;
        if ((Self__PCJG->capacity__4FQ <= Self__PCJG->count__04B)) {
          if ((Self__PCJG->capacity__4FQ ==  0)) {
            Self__PCJG->capacity__4FQ= 32;
            Self__PCJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__OCJG=(__INTEGER)(Self__PCJG->capacity__4FQ <<  1);
            Self__QCJG=((__CHARACTER *)Self__PCJG->storage__HGQ);
            old_nb_elts__RCJG=Self__PCJG->capacity__4FQ;
            new__SCJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__QCJG),((__UINTEGER_32 )old_nb_elts__RCJG),((__UINTEGER_32 )new_capacity__OCJG)));
            upper__PCKG=(__INTEGER)(new_capacity__OCJG -  1);
            Self__NCKG=old_nb_elts__RCJG;
            while ((Self__NCKG <= upper__PCKG)) {
              new__SCJG[Self__NCKG]='\0';
              Self__NCKG=(__INTEGER)(Self__NCKG +  1);
            };
            Self__PCJG->storage__HGQ=new__SCJG;
            Self__PCJG->capacity__4FQ=new_capacity__OCJG;
          };
        };
        ((__CHARACTER *)Self__PCJG->storage__HGQ)[Self__PCJG->count__04B]='/';
        Self__PCJG->count__04B=(__INTEGER)(Self__PCJG->count__04B +  1);
      };
    };
    if (has__YHR(alias__WBF,string_tmp__PKVE)) {
      ent__3YNF=at__MX1(alias__WBF,string_tmp__PKVE);
      if (((void *)((__ENTRY *)ent__3YNF)->parent_abstract_entry__LB.child__HY2B != (void *)NULL)) {
        __tmp__SZNF=((__ENTRY *)ent__3YNF)->parent_abstract_entry__LB.child__HY2B;
        if (__tmp__SZNF==NULL) {
          __tmp__TZNF=NULL;
        } else {
          switch (((struct ___OBJ *)__tmp__SZNF)->__id) {
          case __DIRECTORY__: {
            __tmp__TZNF=((void *)__tmp__SZNF);
          } break;
          case __STD_FILE__: {
            __tmp__TZNF=NULL;
          } break;
          }
        };
        result__4YNF=__tmp__TZNF;
      };
    };
    if (((void *)result__4YNF != (void *)NULL)) {
      refresh__GBUE(result__4YNF);
    };
  } else {
    result__DRMF=NULL;
  };
}

static void resize__54X(__STRING *Self__A5X,__INTEGER new_count__B5X)
// ({STRING},{INTEGER}) VoidNo recursive, No inlinable.
{
  __INTEGER old_nb_elts__OBGG,upper__UCKG,Self__SCKG,lower__WCKG;
  __INTEGER upper__ZCKG,Self__XCKG;
  __CHARACTER *Self__NBGG,*new__QBGG,*Self__YCKG;
  if ((! (new_count__B5X <= Self__A5X->count__04B))) {
    if ((Self__A5X->capacity__4FQ < new_count__B5X)) {
      if ((Self__A5X->capacity__4FQ ==  0)) {
        Self__A5X->storage__HGQ=create__D4BB(new_count__B5X);
      } else {
        Self__NBGG=((__CHARACTER *)Self__A5X->storage__HGQ);
        old_nb_elts__OBGG=Self__A5X->capacity__4FQ;
        new__QBGG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__NBGG),((__UINTEGER_32 )old_nb_elts__OBGG),((__UINTEGER_32 )new_count__B5X)));
        upper__UCKG=(__INTEGER)(new_count__B5X -  1);
        Self__SCKG=old_nb_elts__OBGG;
        while ((Self__SCKG <= upper__UCKG)) {
          new__QBGG[Self__SCKG]='\0';
          Self__SCKG=(__INTEGER)(Self__SCKG +  1);
        };
        Self__A5X->storage__HGQ=new__QBGG;
      };
      Self__A5X->capacity__4FQ=new_count__B5X;
    } else {
      Self__YCKG=((__CHARACTER *)Self__A5X->storage__HGQ);
      lower__WCKG=Self__A5X->count__04B;
      upper__ZCKG=(__INTEGER)(new_count__B5X -  1);
      Self__XCKG=lower__WCKG;
      while ((Self__XCKG <= upper__ZCKG)) {
        Self__YCKG[Self__XCKG]='\0';
        Self__XCKG=(__INTEGER)(Self__XCKG +  1);
      };
    };
  };
  Self__A5X->count__04B=new_count__B5X;
}

static void move__to__by__YP4B(__CHARACTER *Self__ZP4B,__INTEGER lower__0P4B,__INTEGER upper__1P4B,__INTEGER offset__2P4B)
// ({NATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
{
  __INTEGER Self__VKFD,Self__ELFD;
  if ((offset__2P4B !=  0)) {
    if ((offset__2P4B <  0)) {
      Self__VKFD=lower__0P4B;
      while ((Self__VKFD <= upper__1P4B)) {
        Self__ZP4B[(__INTEGER)(Self__VKFD + offset__2P4B)]=Self__ZP4B[Self__VKFD];
        Self__VKFD=(__INTEGER)(Self__VKFD +  1);
      };
    } else {
      Self__ELFD=upper__1P4B;
      while ((Self__ELFD >= lower__0P4B)) {
        Self__ZP4B[(__INTEGER)(Self__ELFD + offset__2P4B)]=Self__ZP4B[Self__ELFD];
        Self__ELFD=(__INTEGER)(Self__ELFD -  1);
      };
    };
  };
}

static __BOOLEAN __infix_equal_equal__GQBB(__STRING_CONSTANT *Self__HQBB,void *other__IQBB)
// ({STRING_CONSTANT},{NULLxSTRING_CONSTANTxSTRING}) With resultNo recursive, No inlinable.
{
  __INTEGER __tmp__RQBB,__tmp__SQBB;
  __BOOLEAN result__KQBB;
  __CHARACTER *__tmp__DRBB,*__tmp__ERBB;
  result__KQBB=FALSE__;
  __tmp__RQBB=Self__HQBB->count__4C;
  if (((struct ___OBJ *)other__IQBB)->__id==__STRING_CONSTANT__) {
    __tmp__SQBB=((__STRING_CONSTANT *)other__IQBB)->count__4C;
  } else {
    __tmp__SQBB=((__STRING *)other__IQBB)->count__04B;
  };
  if ((__tmp__RQBB == __tmp__SQBB)) {
    if ((Self__HQBB->count__4C ==  0)) {
      result__KQBB=TRUE__;
    } else {
      __tmp__DRBB=Self__HQBB->storage__E5M;
      if (((struct ___OBJ *)other__IQBB)->__id==__STRING_CONSTANT__) {
        __tmp__ERBB=((__STRING_CONSTANT *)other__IQBB)->storage__E5M;
      } else {
        __tmp__ERBB=((__STRING *)other__IQBB)->storage__HGQ;
      };
      result__KQBB=fast_memcmp__until__0EVB(__tmp__DRBB,__tmp__ERBB,Self__HQBB->count__4C);
    };
  };
  return(result__KQBB);
}

static void* at__VK2(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__WK2,void *k__XK2)
// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *node__BL2;
  node__BL2=((void **)Self__WK2->buckets__MFR)[(__INTEGER)(hash_code__LQU(k__XK2) % Self__WK2->capacity__HFR)];
  while ((! __infix_equal_equal__GQBB(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BL2)->key__YFR,k__XK2))) {
    node__BL2=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BL2)->next__DGR;
  };
  return(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__BL2)->item__FV1);
}

static __BOOLEAN has_suffix__VLQ(__STRING_CONSTANT *Self__WLQ)
// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  __INTEGER i1__0LQ,i2__1LQ,__tmp__NBHG,__tmp__OBHG;
  __BOOLEAN result__ZLQ;
  __CHARACTER *__tmp__PBHG,*__tmp__QBHG;
  result__ZLQ=FALSE__;
  i1__0LQ= 0;
  i2__1LQ= 0;
  if ((((__STRING_CONSTANT *)(&__string_115))->count__4C <= Self__WLQ->count__4C)) {
    i1__0LQ=(__INTEGER)((__INTEGER)(Self__WLQ->count__4C - ((__STRING_CONSTANT *)(&__string_115))->count__4C) +  1);
    i2__1LQ= 1;
    __tmp__NBHG=Self__WLQ->count__4C;
    __tmp__OBHG=((__STRING_CONSTANT *)(&__string_115))->count__4C;
    __tmp__PBHG=Self__WLQ->storage__E5M;
    __tmp__QBHG=((__STRING_CONSTANT *)(&__string_115))->storage__E5M;
    while ((! (((i1__0LQ > __tmp__NBHG) || (i2__1LQ > __tmp__OBHG)) || (((__CHARACTER *)__tmp__PBHG)[(__INTEGER)(i1__0LQ -  1)] != ((__CHARACTER *)__tmp__QBHG)[(__INTEGER)(i2__1LQ -  1)])))) {
      i1__0LQ=(__INTEGER)(i1__0LQ +  1);
      i2__1LQ=(__INTEGER)(i2__1LQ +  1);
    };
    result__ZLQ=(i1__0LQ > Self__WLQ->count__4C);
  };
  return(result__ZLQ);
}

static void replace_all__with__HTQ(__STRING *Self__ITQ,__CHARACTER old_char__JTQ,__CHARACTER new_char__KTQ)
// ({STRING},{CHARACTER},{CHARACTER}) VoidNo recursive, No inlinable.
{
  __INTEGER __tmp__QTQ,Self__FQEC;
  __CHARACTER *__tmp__NTQ,*Self__4C3B;
  __tmp__NTQ=Self__ITQ->storage__HGQ;
  __tmp__QTQ=(__INTEGER)(Self__ITQ->count__04B -  1);
  Self__4C3B=((__CHARACTER *)__tmp__NTQ);
  Self__FQEC=__tmp__QTQ;
  while ((Self__FQEC >=  0)) {
    if ((old_char__JTQ == Self__4C3B[Self__FQEC])) {
      Self__4C3B[Self__FQEC]=new_char__KTQ;
    };
    Self__FQEC=(__INTEGER)(Self__FQEC -  1);
  };
}

static __INTEGER last_index__EMC(void *n__GMC,__CHARACTER c__HMC)
// ({NULLxSTRING},{CHARACTER}) With resultNo recursive, No inlinable.
{
  __INTEGER result__JMC;
  __CHARACTER *__tmp__RBHG;
  result__JMC=((__STRING *)n__GMC)->count__04B;
  __tmp__RBHG=((__STRING *)n__GMC)->storage__HGQ;
  while ((! ((result__JMC <  1) || (((__CHARACTER *)__tmp__RBHG)[(__INTEGER)(result__JMC -  1)] == c__HMC)))) {
    result__JMC=(__INTEGER)(result__JMC -  1);
  };
  return(result__JMC);
}

static void remove_between__to__4IS(__STRING *Self__5IS,__INTEGER start__AJS,__INTEGER end__BJS)
// ({STRING},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
{
  __INTEGER len__CJS,__tmp__5JS,__tmp__AKS,Self__UIDB;
  __CHARACTER *__tmp__QKIG,*__tmp__RKIG;
  len__CJS=(__INTEGER)((__INTEGER)(end__BJS - start__AJS) +  1);
  if ((len__CJS >  0)) {
    __tmp__5JS=(__INTEGER)(end__BJS +  1);
    __tmp__AKS=Self__5IS->count__04B;
    Self__UIDB=__tmp__5JS;
    __tmp__QKIG=Self__5IS->storage__HGQ;
    __tmp__RKIG=Self__5IS->storage__HGQ;
    while ((Self__UIDB <= __tmp__AKS)) {
      ((__CHARACTER *)__tmp__RKIG)[(__INTEGER)((__INTEGER)(Self__UIDB - len__CJS) -  1)]=((__CHARACTER *)__tmp__QKIG)[(__INTEGER)(Self__UIDB -  1)];
      Self__UIDB=(__INTEGER)(Self__UIDB +  1);
    };
    Self__5IS->count__04B=(__INTEGER)(Self__5IS->count__04B - len__CJS);
  };
}

static void to_upper__UVQ(__STRING *Self__VVQ)
// ({STRING}) VoidNo recursive, No inlinable.
{
  __INTEGER Self__NRV;
  __CHARACTER *__tmp__FJIG,*__tmp__GJIG;
  __CHARACTER Self__SWKB,result__UWKB;
  Self__NRV=Self__VVQ->count__04B;
  __tmp__FJIG=Self__VVQ->storage__HGQ;
  __tmp__GJIG=Self__VVQ->storage__HGQ;
  while ((Self__NRV >=  1)) {
    Self__SWKB=((__CHARACTER *)__tmp__FJIG)[(__INTEGER)(Self__NRV -  1)];
    result__UWKB='\0';
    if (((((__INTEGER_8 )Self__SWKB) <  97) || (((__INTEGER_8 )Self__SWKB) >  122))) {
      result__UWKB=Self__SWKB;
    } else {
      result__UWKB=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )Self__SWKB) -  32))));
    };
    ((__CHARACTER *)__tmp__GJIG)[(__INTEGER)(Self__NRV -  1)]=result__UWKB;
    Self__NRV=(__INTEGER)(Self__NRV -  1);
  };
}

static void go_on__F0B(void *obj__H0B)
// ({NULLxPROTOTYPE}) VoidNo recursive, No inlinable.
{
  __POINTER ptr__TJG,ptr_table__2CKG,next__1CKG,result__3CKG;
  __POINTER ptr_table__BDKG,next__ADKG,result__CDKG,ptr__1DKG;
  __POINTER ptr_table__DEKG,next__CEKG,result__EEKG,ptr_table__IEKG;
  __POINTER next__HEKG,result__JEKG,ptr__TTGD,ptr_table__NEKG;
  __POINTER next__MEKG,result__OEKG,ptr_table__SEKG,next__REKG;
  __POINTER result__TEKG,ptr__CJVB,ptr_table__XEKG,next__WEKG;
  __POINTER result__YEKG,ptr_table__2EKG,next__1EKG,result__3EKG;
  __POINTER ptr__J0GD,ptr_table__BFKG,next__AFKG,result__CFKG;
  __POINTER ptr_table__GFKG,next__FFKG,result__HFKG,ptr__RFKG;
  __POINTER ptr_table__0FKG,next__ZFKG,result__1FKG,ptr_table__5FKG;
  __POINTER next__4FKG,result__AGKG,ptr__EGKG,ptr_table__QGKG;
  __POINTER next__PGKG,result__RGKG,ptr_table__VGKG,next__UGKG;
  __POINTER result__WGKG,ptr__QJ1B,ptr_table__CHKG,next__BHKG;
  __POINTER result__DHKG,ptr_table__HHKG,next__GHKG,result__IHKG;
  __POINTER ptr__AGHD,ptr_table__YHKG,next__XHKG,result__ZHKG;
  __POINTER ptr_table__3HKG,next__2HKG,result__4HKG;
  __INTEGER typ_id__YJG,new_capacity__PKW,pos_sec__4QC,old_derive__5QC;
  __INTEGER new_capacity__UCJG,old_nb_elts__XCJG,upper__ODKG,Self__MDKG;
  __INTEGER new_capacity__0CJG,old_nb_elts__3CJG,upper__TDKG,Self__RDKG;
  __INTEGER new_capacity__ADJG,old_nb_elts__DDJG,upper__YDKG,Self__WDKG;
  __INTEGER typ_id__2DKG,h__V3BC,idx__W3BC,idx__JRGD,new_capacity__KRGD;
  __INTEGER i__LRGD,typ_id__YTGD,typ_id__HJVB,h__PACC,idx__QACC;
  __INTEGER idx__5XGD,new_capacity__AYGD,i__BYGD,typ_id__O0GD;
  __INTEGER old_pos__HCLB,old_derive__ICLB,typ_id__SFKG,typ_id__FGKG;
  __INTEGER typ_id__VJ1B,new_capacity__FYCC,other_upper__EYCC;
  __INTEGER Self__YWXD,new_capacity__KHDC,__tmp__SIDC,__tmp__GPUD;
  __INTEGER Self__BRUE,__tmp__2FCC,__tmp__41FG,__tmp__51FG,__tmp__A2FG;
  __INTEGER h__IZCC,idx__JZCC,idx__WDHD,new_capacity__XDHD,i__YDHD;
  __INTEGER typ_id__FGHD,__tmp__SLZB,Self__R5MC;
  __UINTEGER_32 sz__VJG,a__UBHG,new_size__VBHG,t__ZBHG,a__YBHG;
  __UINTEGER_32 new_size__EDKG,lab_type__DDKG,sz__3DKG,a__4DKG;
  __UINTEGER_32 new_size__5DKG,t__AEKG,a__BEKG,new_size__LEKG;
  __UINTEGER_32 lab_type__KEKG,sz__VTGD,a__KCHG,new_size__LCHG,t__PCHG;
  __UINTEGER_32 a__OCHG,new_size__VEKG,lab_type__UEKG,sz__EJVB,a__AIHG;
  __UINTEGER_32 new_size__BIHG,t__FIHG,a__EIHG,new_size__5EKG;
  __UINTEGER_32 lab_type__4EKG,sz__L0GD,a__4CHG,new_size__5CHG,t__DDHG;
  __UINTEGER_32 a__CDHG,new_size__JFKG,lab_type__IFKG,sz__TFKG,a__UFKG;
  __UINTEGER_32 new_size__VFKG,t__WFKG,a__XFKG,new_size__CGKG;
  __UINTEGER_32 lab_type__BGKG,sz__GGKG,a__HGKG,new_size__IGKG,t__JGKG;
  __UINTEGER_32 a__KGKG,new_size__YGKG,lab_type__XGKG,sz__SJ1B,a__ULHG;
  __UINTEGER_32 new_size__VLHG,t__ZLHG,a__YLHG,new_size__KHKG;
  __UINTEGER_32 lab_type__JHKG,sz__CGHD,a__BEHG,new_size__CEHG,t__GEHG;
  __UINTEGER_32 a__FEHG,new_size__AIKG,lab_type__5HKG;
  __POSITION pos__LBZF,pos__NBZF,pos__PBZF,pos__0BZF,pos__XDZF;
  __POSITION pos__0DZF,pos__2DZF,pos__0FZF,pos__2FZF,p__YFKG,pos__4FZF;
  __POSITION pos__AGZF,p__NGKG,pos__CGZF,pos__EGZF,pos__GGZF,pos__IGZF;
  __POSITION pos__KGZF,p__BT0B,pos__NGZF,__tmp__OGCC,__tmp__1GCC;
  __POSITION pos__2HZF,pos__4HZF,pos__AIZF,pos__N5GD,pos__CIZF;
  __POSITION pos__EIZF,pos__VKZF,pos__XKZF;
  __STRING *Self__VCJG,*Self__1CJG,*Self__BDJG;
  void *n__40KB,*n__22KB,*name__XNVB,*priority__ZNVB,*result__R2O;
  void *__tmp__DLLB,*__tmp__BXVB;
  void *result__JRAC,*result__42KB,*result__PTAC,*result__IBLB;
  void *sec__OGKG,*sec__DT0B;
  __SECTION_ *result__0DKG,*Self__NJ5F,*Self__OJ5F,*result__BJVB;
  __SECTION_ *Self__4N5F,*Self__RHBC;
  void *t__2BLB;
  void *arg__5BLB,*arg__1NVB,*Result__BF4C,*__tmp__NGCC,*__tmp__0GCC;
  __ITM_ARG *result__QFKG;
  void *n__YNVB,*result__B0O;
  void *result__2NVB,*result__DJCC,*s__4WVB,*v__AZCC;
  __ITM_SLOT *result__DGKG,*Self__LGKG,*result__PJ1B,*Self__H0DC;
  __ITM_SLOT *Self__SFCC,*Self__IHCC;
  void *tm__KHCC,*__tmp__THCC;
  __PROTOTYPE *Self__3WVB;
  __HASHED_SEToSTRING_CONSTANTo *result__SJG,*Self__BNR,*Self__NLZB;
  void *t__HRC,*k__ETAC,*k__IACC,*lt__3BLB;
  __BOOLEAN result__GDKG,result__IDKG,result__KDKG,result__YWBB;
  __BOOLEAN __tmp__FXBB,result__UH3,result__0BHG,result__F43;
  __BOOLEAN __tmp__3YBB,result__XL4,__tmp__4YBB,__tmp__BZBB,__tmp__QVC;
  __BOOLEAN __tmp__FVC,result__1BLB,result__KFKG,result__NFKG;
  __BOOLEAN __tmp__QQVB,result__ZGKG,result__2GKG,result__AHKG;
  __BOOLEAN __tmp__YSVB,result__V0D,__tmp__ZHDC,__tmp__AGCC;
  __BOOLEAN result__LHKG,__tmp__4ELB,result__OHKG,result__RHKG;
  __BOOLEAN result__UHKG,__tmp__YJLB,__tmp__ZJLB;
  __CHARACTER result__IH5F,result__JH5F,result__KH5F,result__LH5F;
  __CHARACTER result__MH5F,result__NH5F,result__OH5F,result__PH5F;
  __CHARACTER result__QH5F,affect__GCLB,result__LFKG,result__OFKG;
  __CHARACTER result__0GKG,result__3GKG,result__MHKG,result__PHKG;
  __CHARACTER result__SHKG,result__VHKG,result__KO5F,result__LO5F;
  __CHARACTER result__MO5F,result__NO5F,result__2Q5F;
  __CHARACTER *Self__WCJG,*new__YCJG,*Self__2CJG,*new__4CJG,*Self__CDJG;
  __CHARACTER *new__EDJG,*__tmp__WJIG,*__tmp__XJIG,*__tmp__YJIG;
  __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *Self__3QAC,*Self__M3BC;
  void *node__IRAC,*node__X3BC,*node1__NRGD,*node2__ORGD,*__tmp__F5BC;
  void **old_buckets__MRGD;
  __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *result__STGD;
  __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *Self__3HUD;
  __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__DTAC;
  __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__GACC;
  void *node__OTAC,*node__RACC,*node1__DYGD,*node2__EYGD,*__tmp__5BCC;
  void **old_buckets__CYGD;
  __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *result__I0GD;
  __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__2IUD;
  void *result__TMVB,*list_arg__VNVB,*result__JVVB;
  __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *Self__TNWC,*Self__JOWC;
  __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *Self__IHDC;
  __FAST_ARRAYoSTRINGo *Self__3N4,*Self__TO4;
  __FAST_ARRAYoITM_ARGUMENTo *Self__CYCC,*Self__TJIG,*Self__52GD;
  void **__tmp__YYCC,**__tmp__0YCC,**Self__JYTD;
  void **__tmp__RIDC,**new__TOUD;
  void *__tmp__ALLB,*__tmp__5WVB;
  __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__XICC,*Self__5YCC;
  void *node__CJCC,*node__KZCC,*node1__0DHD,*node2__1DHD,*__tmp__Y0CC;
  void **old_buckets__ZDHD;
  __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *result__5FHD;
  __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *Self__OLUD;
  void **__tmp__PLZB,**Self__TXDC;
  object__M0B=obj__H0B;
  source__S0B=((__PROTOTYPE *)obj__H0B)->source__Q0B;
  position__V0B= 1;
  pos_cur__Y0B= 1;
  pos_line__Z0B= 1;
  pos_col__00B= 0;
  ((__FAST_ARRAYoSTRING_CONSTANTo *)keyword_generic_list__40B)->parent_arrayed_collection__30B.upper__I5N=(__INTEGER)(-  1);
  is_active_short__L1B=TRUE__;
  key_comment_default__N1B=(&__string_101);
  short_derive__O1B= 0;
  copy__5GQ(output_code__RI,source__S0B);
  result__SJG=NULL;
  ptr__TJG=((__POINTER )(NULL));
  typ_id__YJG= 0;
  sz__VJG=((__UINTEGER_32 )sizeof(__HASHED_SEToSTRING_CONSTANTo));
  if ((sz__VJG ==  0)) {
    result__SJG=HASHED_SEToSTRING_CONSTANTo__;
  } else {
    typ_id__YJG=__HASHED_SEToSTRING_CONSTANTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__VJG);
    if ((typ_id__YJG == (__INTEGER)(-  1))) {
      a__UBHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__VBHG=(__UINTEGER_32)((__UINTEGER_32)(sz__VJG + a__UBHG) & (__UINTEGER_32)(~ a__UBHG));
      ptr_table__2CKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VBHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__1CKG=((__POINTER )(NULL));
      result__3CKG=((__POINTER *)ptr_table__2CKG)[ 0];
      if ((result__3CKG == (void *)NULL)) {
        result__3CKG=new_lab__RUJ(new_size__VBHG);
        next__1CKG=(void *)((unsigned long)result__3CKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VBHG)));
        ((__POINTER *)next__1CKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__2CKG)[ 0]=next__1CKG;
      } else {
        next__1CKG=((__POINTER *)result__3CKG)[ 0];
        if ((next__1CKG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3CKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VBHG <<  1)) <=  4096)) {
            next__1CKG=(void *)((unsigned long)result__3CKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VBHG)));
          } else {
            next__1CKG=new_lab__RUJ(new_size__VBHG);
          };
          ((__POINTER *)next__1CKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__2CKG)[ 0]=next__1CKG;
        } else {
          ((__POINTER *)result__3CKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1CKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__3CKG=next__1CKG;
        };
      };
      ptr__TJG=result__3CKG;
    } else {
      t__ZBHG=((__UINTEGER_32 )typ_id__YJG);
      a__YBHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__EDKG=(__UINTEGER_32)((__UINTEGER_32)(sz__VJG + a__YBHG) & (__UINTEGER_32)(~ a__YBHG));
      ptr_table__BDKG=((__POINTER )(&(table_type[(t__ZBHG)])));
      lab_type__DDKG=(__UINTEGER_32)(t__ZBHG |  1);
      next__ADKG=((__POINTER )(NULL));
      result__CDKG=((__POINTER *)ptr_table__BDKG)[ 0];
      if ((result__CDKG == (void *)NULL)) {
        result__CDKG=new_lab__RUJ(lab_type__DDKG);
        next__ADKG=(void *)((unsigned long)result__CDKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EDKG)));
        ((__POINTER *)next__ADKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__BDKG)[ 0]=next__ADKG;
      } else {
        next__ADKG=((__POINTER *)result__CDKG)[ 0];
        if ((next__ADKG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CDKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__EDKG <<  1)) <=  4096)) {
            next__ADKG=(void *)((unsigned long)result__CDKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EDKG)));
          } else {
            next__ADKG=new_lab__RUJ(lab_type__DDKG);
          };
          ((__POINTER *)next__ADKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__BDKG)[ 0]=next__ADKG;
        } else {
          ((__POINTER *)result__CDKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ADKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__CDKG=next__ADKG;
        };
      };
      ptr__TJG=result__CDKG;
    };
    result__SJG=((__HASHED_SEToSTRING_CONSTANTo *)ptr__TJG);
    *(result__SJG) = *(HASHED_SEToSTRING_CONSTANTo__);
  };
  Self__BNR=((__HASHED_SEToSTRING_CONSTANTo *)result__SJG);
  new_capacity__PKW=prime_number_ceiling__33Z( 53);
  Self__BNR->buckets__3KT=create__221(new_capacity__PKW);
  Self__BNR->capacity__PNR=new_capacity__PKW;
  Self__BNR->count__UKW= 0;
  short_local__W1B=result__SJG;
  short__token__to__R0C((&__string_89), 1, 1);
  t__HRC=NULL;
  read_space__MMD();
  pos_sec__4QC=position__V0B;
  old_derive__5QC=short_derive__O1B;
  result__GDKG=read_word__NSF((&__string_4));
  if (result__GDKG) {
    short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
  };
  if ((! result__GDKG)) {
    pos__LBZF=current_position__A0F();
    put_error__text__WRG( 0,(&__string_171));
    put_position__ATG(pos__LBZF);
    put_string__55F(msg_err__1RG);
    if ((type_error__0RG !=  2)) {
      exit(( 1));
    };
  };
  key_comment_default__N1B=(&__string_99);
  result__IDKG=read_word__NSF((&__string_18));
  if (result__IDKG) {
    if (((void *)(&__string_18) == (void *)(&__string_4))) {
      short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
    } else {
      short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
    };
  };
  if ((! result__IDKG)) {
    pos__NBZF=current_position__A0F();
    put_error__text__WRG( 0,(&__string_172));
    put_position__ATG(pos__NBZF);
    put_string__55F(msg_err__1RG);
    if ((type_error__0RG !=  2)) {
      exit(( 1));
    };
  };
  if ((! read_slot_header__I2D(TRUE__))) {
    pos__PBZF=current_position__A0F();
    put_error__text__WRG( 0,(&__string_173));
    put_position__ATG(pos__PBZF);
    put_string__55F(msg_err__1RG);
    if ((type_error__0RG !=  2)) {
      exit(( 1));
    };
  };
  while (read_slot_header__I2D(FALSE__)) {
  };
  while_do__RXE:
  {
    result__KDKG=read_word__NSF((&__string_4));
    if (result__KDKG) {
      short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
    };
    if (result__KDKG) {
      result__YWBB=FALSE__;
      if ((! read_space__MMD())) {
        __tmp__FXBB=TRUE__;
      } else {
        result__IH5F='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__IH5F=((__CHARACTER )(( 0)));
        } else {
          result__IH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        result__UH3=FALSE__;
        if ((((__INTEGER_8 )result__IH5F) >= ((__INTEGER_8 )'A'))) {
          result__UH3=(((__INTEGER_8 )result__IH5F) <= ((__INTEGER_8 )'Z'));
        };
        __tmp__FXBB=(! result__UH3);
      };
      if (__tmp__FXBB) {
        result__YWBB=FALSE__;
      } else {
        ((__STRING *)string_tmp__QH)->count__04B= 0;
        result__JH5F='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__JH5F=((__CHARACTER )(( 0)));
        } else {
          result__JH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        Self__VCJG=((__STRING *)string_tmp__QH);
        new_capacity__UCJG= 0;
        if ((Self__VCJG->capacity__4FQ <= Self__VCJG->count__04B)) {
          if ((Self__VCJG->capacity__4FQ ==  0)) {
            Self__VCJG->capacity__4FQ= 32;
            Self__VCJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__UCJG=(__INTEGER)(Self__VCJG->capacity__4FQ <<  1);
            Self__WCJG=((__CHARACTER *)Self__VCJG->storage__HGQ);
            old_nb_elts__XCJG=Self__VCJG->capacity__4FQ;
            new__YCJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__WCJG),((__UINTEGER_32 )old_nb_elts__XCJG),((__UINTEGER_32 )new_capacity__UCJG)));
            upper__ODKG=(__INTEGER)(new_capacity__UCJG -  1);
            Self__MDKG=old_nb_elts__XCJG;
            while ((Self__MDKG <= upper__ODKG)) {
              new__YCJG[Self__MDKG]='\0';
              Self__MDKG=(__INTEGER)(Self__MDKG +  1);
            };
            Self__VCJG->storage__HGQ=new__YCJG;
            Self__VCJG->capacity__4FQ=new_capacity__UCJG;
          };
        };
        ((__CHARACTER *)Self__VCJG->storage__HGQ)[Self__VCJG->count__04B]=result__JH5F;
        Self__VCJG->count__04B=(__INTEGER)(Self__VCJG->count__04B +  1);
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__KH5F='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__KH5F=((__CHARACTER )(( 0)));
        } else {
          result__KH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        result__0BHG=FALSE__;
        if ((((__INTEGER_8 )result__KH5F) >= ((__INTEGER_8 )'a'))) {
          result__0BHG=(((__INTEGER_8 )result__KH5F) <= ((__INTEGER_8 )'z'));
        };
        if (result__0BHG) {
          result__LH5F='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__LH5F=((__CHARACTER )(( 0)));
          } else {
            result__LH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          Self__1CJG=((__STRING *)string_tmp__QH);
          new_capacity__0CJG= 0;
          if ((Self__1CJG->capacity__4FQ <= Self__1CJG->count__04B)) {
            if ((Self__1CJG->capacity__4FQ ==  0)) {
              Self__1CJG->capacity__4FQ= 32;
              Self__1CJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__0CJG=(__INTEGER)(Self__1CJG->capacity__4FQ <<  1);
              Self__2CJG=((__CHARACTER *)Self__1CJG->storage__HGQ);
              old_nb_elts__3CJG=Self__1CJG->capacity__4FQ;
              new__4CJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__2CJG),((__UINTEGER_32 )old_nb_elts__3CJG),((__UINTEGER_32 )new_capacity__0CJG)));
              upper__TDKG=(__INTEGER)(new_capacity__0CJG -  1);
              Self__RDKG=old_nb_elts__3CJG;
              while ((Self__RDKG <= upper__TDKG)) {
                new__4CJG[Self__RDKG]='\0';
                Self__RDKG=(__INTEGER)(Self__RDKG +  1);
              };
              Self__1CJG->storage__HGQ=new__4CJG;
              Self__1CJG->capacity__4FQ=new_capacity__0CJG;
            };
          };
          ((__CHARACTER *)Self__1CJG->storage__HGQ)[Self__1CJG->count__04B]=result__LH5F;
          Self__1CJG->count__04B=(__INTEGER)(Self__1CJG->count__04B +  1);
          position__V0B=(__INTEGER)(position__V0B +  1);
          while_do__C55E:
          {
            result__MH5F='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__MH5F=((__CHARACTER )(( 0)));
            } else {
              result__MH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__MH5F != ((__CHARACTER )(( 0))))) {
              result__NH5F='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__NH5F=((__CHARACTER )(( 0)));
              } else {
                result__NH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              result__F43=FALSE__;
              if ((((__INTEGER_8 )result__NH5F) >= ((__INTEGER_8 )'a'))) {
                result__F43=(((__INTEGER_8 )result__NH5F) <= ((__INTEGER_8 )'z'));
              };
              if (result__F43) {
                __tmp__3YBB=TRUE__;
              } else {
                result__OH5F='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__OH5F=((__CHARACTER )(( 0)));
                } else {
                  result__OH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                result__XL4=FALSE__;
                if ((((__INTEGER_8 )result__OH5F) >= ((__INTEGER_8 )'0'))) {
                  result__XL4=(((__INTEGER_8 )result__OH5F) <= ((__INTEGER_8 )'9'));
                };
                __tmp__3YBB=result__XL4;
              };
              if (__tmp__3YBB) {
                __tmp__4YBB=TRUE__;
              } else {
                result__PH5F='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__PH5F=((__CHARACTER )(( 0)));
                } else {
                  result__PH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                __tmp__4YBB=(result__PH5F == '_');
              };
              __tmp__BZBB=__tmp__4YBB;
            } else {
              __tmp__BZBB=FALSE__;
            };
            if (__tmp__BZBB) {
              result__QH5F='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__QH5F=((__CHARACTER )(( 0)));
              } else {
                result__QH5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              Self__BDJG=((__STRING *)string_tmp__QH);
              new_capacity__ADJG= 0;
              if ((Self__BDJG->capacity__4FQ <= Self__BDJG->count__04B)) {
                if ((Self__BDJG->capacity__4FQ ==  0)) {
                  Self__BDJG->capacity__4FQ= 32;
                  Self__BDJG->storage__HGQ=create__D4BB( 32);
                } else {
                  new_capacity__ADJG=(__INTEGER)(Self__BDJG->capacity__4FQ <<  1);
                  Self__CDJG=((__CHARACTER *)Self__BDJG->storage__HGQ);
                  old_nb_elts__DDJG=Self__BDJG->capacity__4FQ;
                  new__EDJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__CDJG),((__UINTEGER_32 )old_nb_elts__DDJG),((__UINTEGER_32 )new_capacity__ADJG)));
                  upper__YDKG=(__INTEGER)(new_capacity__ADJG -  1);
                  Self__WDKG=old_nb_elts__DDJG;
                  while ((Self__WDKG <= upper__YDKG)) {
                    new__EDJG[Self__WDKG]='\0';
                    Self__WDKG=(__INTEGER)(Self__WDKG +  1);
                  };
                  Self__BDJG->storage__HGQ=new__EDJG;
                  Self__BDJG->capacity__4FQ=new_capacity__ADJG;
                };
              };
              ((__CHARACTER *)Self__BDJG->storage__HGQ)[Self__BDJG->count__04B]=result__QH5F;
              Self__BDJG->count__04B=(__INTEGER)(Self__BDJG->count__04B +  1);
              position__V0B=(__INTEGER)(position__V0B +  1);
              goto while_do__C55E;
            };
          };
          last_string__NTC=get__TPB(string_tmp__QH);
          result__YWBB=TRUE__;
          short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        } else {
          position__V0B=(__INTEGER)(position__V0B -  1);
          result__YWBB=FALSE__;
        };
      };
      if (result__YWBB) {
        n__40KB=last_string__NTC;
        if ((! (((((((((void *)n__40KB == (void *)(&__string_19)) || ((void *)n__40KB == (void *)(&__string_20))) || ((void *)n__40KB == (void *)(&__string_21))) || ((void *)n__40KB == (void *)(&__string_22))) || ((void *)n__40KB == (void *)(&__string_23))) || ((void *)n__40KB == (void *)(&__string_24))) || ((void *)n__40KB == (void *)(&__string_25))) || ((void *)n__40KB == (void *)(&__string_26))))) {
          pos__0BZF=current_position__A0F();
          put_error__text__WRG( 0,(&__string_174));
          put_position__ATG(pos__0BZF);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        n__22KB=last_string__NTC;
        Self__3QAC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)bucket_name__D3KB);
        result__JRAC=NULL;
        node__IRAC=((void **)Self__3QAC->buckets__QRAC)[(__INTEGER)(hash_code__LQU(n__22KB) % Self__3QAC->capacity__LRAC)];
        while ((! (((void *)node__IRAC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IRAC)->key__2RAC == (void *)n__22KB)))) {
          node__IRAC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IRAC)->next__HSAC;
        };
        if (((void *)node__IRAC != (void *)NULL)) {
          result__JRAC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IRAC)->item__PSAC;
        };
        result__42KB=result__JRAC;
        if (((void *)result__JRAC == (void *)NULL)) {
          result__0DKG=NULL;
          ptr__1DKG=((__POINTER )(NULL));
          typ_id__2DKG= 0;
          sz__3DKG=((__UINTEGER_32 )sizeof(__SECTION_));
          if ((sz__3DKG ==  0)) {
            result__0DKG=SECTION___;
          } else {
            typ_id__2DKG=__SECTION___;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__3DKG);
            if ((typ_id__2DKG == (__INTEGER)(-  1))) {
              a__4DKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__5DKG=(__UINTEGER_32)((__UINTEGER_32)(sz__3DKG + a__4DKG) & (__UINTEGER_32)(~ a__4DKG));
              ptr_table__DEKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5DKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__CEKG=((__POINTER )(NULL));
              result__EEKG=((__POINTER *)ptr_table__DEKG)[ 0];
              if ((result__EEKG == (void *)NULL)) {
                result__EEKG=new_lab__RUJ(new_size__5DKG);
                next__CEKG=(void *)((unsigned long)result__EEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5DKG)));
                ((__POINTER *)next__CEKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__DEKG)[ 0]=next__CEKG;
              } else {
                next__CEKG=((__POINTER *)result__EEKG)[ 0];
                if ((next__CEKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EEKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5DKG <<  1)) <=  4096)) {
                    next__CEKG=(void *)((unsigned long)result__EEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5DKG)));
                  } else {
                    next__CEKG=new_lab__RUJ(new_size__5DKG);
                  };
                  ((__POINTER *)next__CEKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__DEKG)[ 0]=next__CEKG;
                } else {
                  ((__POINTER *)result__EEKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CEKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__EEKG=next__CEKG;
                };
              };
              ptr__1DKG=result__EEKG;
            } else {
              t__AEKG=((__UINTEGER_32 )typ_id__2DKG);
              a__BEKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__LEKG=(__UINTEGER_32)((__UINTEGER_32)(sz__3DKG + a__BEKG) & (__UINTEGER_32)(~ a__BEKG));
              ptr_table__IEKG=((__POINTER )(&(table_type[(t__AEKG)])));
              lab_type__KEKG=(__UINTEGER_32)(t__AEKG |  1);
              next__HEKG=((__POINTER )(NULL));
              result__JEKG=((__POINTER *)ptr_table__IEKG)[ 0];
              if ((result__JEKG == (void *)NULL)) {
                result__JEKG=new_lab__RUJ(lab_type__KEKG);
                next__HEKG=(void *)((unsigned long)result__JEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LEKG)));
                ((__POINTER *)next__HEKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__IEKG)[ 0]=next__HEKG;
              } else {
                next__HEKG=((__POINTER *)result__JEKG)[ 0];
                if ((next__HEKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JEKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LEKG <<  1)) <=  4096)) {
                    next__HEKG=(void *)((unsigned long)result__JEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LEKG)));
                  } else {
                    next__HEKG=new_lab__RUJ(lab_type__KEKG);
                  };
                  ((__POINTER *)next__HEKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__IEKG)[ 0]=next__HEKG;
                } else {
                  ((__POINTER *)result__JEKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HEKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__JEKG=next__HEKG;
                };
              };
              ptr__1DKG=result__JEKG;
            };
            result__0DKG=((__SECTION_ *)ptr__1DKG);
            *(result__0DKG) = *(SECTION___);
          };
          result__42KB=result__0DKG;
          ((__SECTION_ *)result__0DKG)->name__FQ5B=n__22KB;
          Self__M3BC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)bucket_name__D3KB);
          h__V3BC=hash_code__LQU(n__22KB);
          idx__W3BC=(__INTEGER)(h__V3BC % Self__M3BC->capacity__LRAC);
          node__X3BC=((void **)Self__M3BC->buckets__QRAC)[idx__W3BC];
          while ((! (((void *)node__X3BC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__X3BC)->key__2RAC == (void *)n__22KB)))) {
            node__X3BC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__X3BC)->next__HSAC;
          };
          if (((void *)node__X3BC == (void *)NULL)) {
            if ((Self__M3BC->capacity__LRAC == Self__M3BC->count__Y4BC)) {
              idx__JRGD= 0;
              node1__NRGD=NULL;
              node2__ORGD=NULL;
              old_buckets__MRGD=Self__M3BC->buckets__QRAC;
              new_capacity__KRGD=prime_number_ceiling__33Z((__INTEGER)(Self__M3BC->capacity__LRAC +  1));
              Self__M3BC->buckets__QRAC=create__LRVC(new_capacity__KRGD);
              i__LRGD=(__INTEGER)(Self__M3BC->capacity__LRAC -  1);
              Self__M3BC->capacity__LRAC=new_capacity__KRGD;
              while ((i__LRGD >=  0)) {
                node1__NRGD=((void **)old_buckets__MRGD)[i__LRGD];
                while (((void *)node1__NRGD != (void *)NULL)) {
                  node2__ORGD=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__NRGD)->next__HSAC;
                  idx__JRGD=(__INTEGER)(hash_code__LQU(((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__NRGD)->key__2RAC) % Self__M3BC->capacity__LRAC);
                  ((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__NRGD)->next__HSAC=((void **)Self__M3BC->buckets__QRAC)[idx__JRGD];
                  ((void **)Self__M3BC->buckets__QRAC)[idx__JRGD]=node1__NRGD;
                  node1__NRGD=node2__ORGD;
                };
                i__LRGD=(__INTEGER)(i__LRGD -  1);
              };
              idx__W3BC=(__INTEGER)(h__V3BC % Self__M3BC->capacity__LRAC);
            };
            __tmp__F5BC=((void **)Self__M3BC->buckets__QRAC)[idx__W3BC];
            result__STGD=NULL;
            ptr__TTGD=((__POINTER )(NULL));
            typ_id__YTGD= 0;
            sz__VTGD=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo));
            if ((sz__VTGD ==  0)) {
              result__STGD=HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__;
            } else {
              typ_id__YTGD=__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__;
              clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__VTGD);
              if ((typ_id__YTGD == (__INTEGER)(-  1))) {
                a__KCHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__LCHG=(__UINTEGER_32)((__UINTEGER_32)(sz__VTGD + a__KCHG) & (__UINTEGER_32)(~ a__KCHG));
                ptr_table__NEKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LCHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                next__MEKG=((__POINTER )(NULL));
                result__OEKG=((__POINTER *)ptr_table__NEKG)[ 0];
                if ((result__OEKG == (void *)NULL)) {
                  result__OEKG=new_lab__RUJ(new_size__LCHG);
                  next__MEKG=(void *)((unsigned long)result__OEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LCHG)));
                  ((__POINTER *)next__MEKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__NEKG)[ 0]=next__MEKG;
                } else {
                  next__MEKG=((__POINTER *)result__OEKG)[ 0];
                  if ((next__MEKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OEKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LCHG <<  1)) <=  4096)) {
                      next__MEKG=(void *)((unsigned long)result__OEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LCHG)));
                    } else {
                      next__MEKG=new_lab__RUJ(new_size__LCHG);
                    };
                    ((__POINTER *)next__MEKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__NEKG)[ 0]=next__MEKG;
                  } else {
                    ((__POINTER *)result__OEKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MEKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__OEKG=next__MEKG;
                  };
                };
                ptr__TTGD=result__OEKG;
              } else {
                t__PCHG=((__UINTEGER_32 )typ_id__YTGD);
                a__OCHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__VEKG=(__UINTEGER_32)((__UINTEGER_32)(sz__VTGD + a__OCHG) & (__UINTEGER_32)(~ a__OCHG));
                ptr_table__SEKG=((__POINTER )(&(table_type[(t__PCHG)])));
                lab_type__UEKG=(__UINTEGER_32)(t__PCHG |  1);
                next__REKG=((__POINTER )(NULL));
                result__TEKG=((__POINTER *)ptr_table__SEKG)[ 0];
                if ((result__TEKG == (void *)NULL)) {
                  result__TEKG=new_lab__RUJ(lab_type__UEKG);
                  next__REKG=(void *)((unsigned long)result__TEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEKG)));
                  ((__POINTER *)next__REKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__SEKG)[ 0]=next__REKG;
                } else {
                  next__REKG=((__POINTER *)result__TEKG)[ 0];
                  if ((next__REKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TEKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VEKG <<  1)) <=  4096)) {
                      next__REKG=(void *)((unsigned long)result__TEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEKG)));
                    } else {
                      next__REKG=new_lab__RUJ(lab_type__UEKG);
                    };
                    ((__POINTER *)next__REKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__SEKG)[ 0]=next__REKG;
                  } else {
                    ((__POINTER *)result__TEKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__REKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__TEKG=next__REKG;
                  };
                };
                ptr__TTGD=result__TEKG;
              };
              result__STGD=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)ptr__TTGD);
              *(result__STGD) = *(HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__);
            };
            Self__3HUD=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)result__STGD);
            Self__3HUD->item__PSAC=result__0DKG;
            Self__3HUD->key__2RAC=n__22KB;
            Self__3HUD->next__HSAC=__tmp__F5BC;
            node__X3BC=result__STGD;
            ((void **)Self__M3BC->buckets__QRAC)[idx__W3BC]=result__STGD;
            Self__M3BC->count__Y4BC=(__INTEGER)(Self__M3BC->count__Y4BC +  1);
          } else {
            ((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__X3BC)->item__PSAC=result__0DKG;
          };
        };
        last_section__2TC=result__42KB;
        if (((void *)((__SECTION_ *)result__42KB)->name__FQ5B == (void *)(&__string_24))) {
          __tmp__QVC=TRUE__;
        } else {
          Self__NJ5F=((__SECTION_ *)result__42KB);
          if (((((void *)Self__NJ5F->name__FQ5B == (void *)(&__string_19)) || ((void *)Self__NJ5F->name__FQ5B == (void *)(&__string_20))) && ((void *)((__PROTOTYPE *)object__M0B)->last_slot__UUC != (void *)NULL))) {
            Self__OJ5F=((__SECTION_ *)((__ITM_SLOT *)((__PROTOTYPE *)object__M0B)->last_slot__UUC)->id_section__4UC);
            __tmp__FVC=(! (((void *)Self__OJ5F->name__FQ5B == (void *)(&__string_19)) || ((void *)Self__OJ5F->name__FQ5B == (void *)(&__string_20))));
          } else {
            __tmp__FVC=FALSE__;
          };
          if (__tmp__FVC) {
            pos__XDZF=current_position__A0F();
            put_error__text__WRG( 0,(&__string_175));
            put_position__ATG(pos__XDZF);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          __tmp__QVC=__tmp__FVC;
        };
        if ((! __tmp__QVC)) {
          if ((((((void *)((__SECTION_ *)last_section__2TC)->name__FQ5B == (void *)(&__string_19)) && ((void *)((__PROTOTYPE *)object__M0B)->type_style__3VC == (void *)(&__string_9))) && ((void *)((__PROTOTYPE *)object__M0B)->parent_named__0H.name__KI != (void *)(&__string_37))) && ((void *)((__PROTOTYPE *)object__M0B)->parent_named__0H.name__KI != (void *)(&__string_38)))) {
            pos__0DZF=current_position__A0F();
            put_error__text__WRG( 2,(&__string_176));
            put_position__ATG(pos__0DZF);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
        };
      } else {
        t__HRC=read_type_list__O4KB(PARSER__,TRUE__);
        if (((void *)t__HRC == (void *)NULL)) {
          pos__2DZF=current_position__A0F();
          put_error__text__WRG( 0,(&__string_174));
          put_position__ATG(pos__2DZF);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        Self__DTAC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)bucket_list__MBLB);
        k__ETAC=t__HRC;
        result__PTAC=NULL;
        node__OTAC=((void **)Self__DTAC->buckets__WTAC)[(__INTEGER)(hash_code__ATY(t__HRC) % Self__DTAC->capacity__RTAC)];
        while ((! (((void *)node__OTAC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__OTAC)->key__CUAC == (void *)k__ETAC)))) {
          node__OTAC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__OTAC)->next__NUAC;
        };
        if (((void *)node__OTAC != (void *)NULL)) {
          result__PTAC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__OTAC)->item__VUAC;
        };
        result__IBLB=result__PTAC;
        if (((void *)result__PTAC == (void *)NULL)) {
          result__BJVB=NULL;
          ptr__CJVB=((__POINTER )(NULL));
          typ_id__HJVB= 0;
          sz__EJVB=((__UINTEGER_32 )sizeof(__SECTION_));
          if ((sz__EJVB ==  0)) {
            result__BJVB=SECTION___;
          } else {
            typ_id__HJVB=__SECTION___;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__EJVB);
            if ((typ_id__HJVB == (__INTEGER)(-  1))) {
              a__AIHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__BIHG=(__UINTEGER_32)((__UINTEGER_32)(sz__EJVB + a__AIHG) & (__UINTEGER_32)(~ a__AIHG));
              ptr_table__XEKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BIHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__WEKG=((__POINTER )(NULL));
              result__YEKG=((__POINTER *)ptr_table__XEKG)[ 0];
              if ((result__YEKG == (void *)NULL)) {
                result__YEKG=new_lab__RUJ(new_size__BIHG);
                next__WEKG=(void *)((unsigned long)result__YEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BIHG)));
                ((__POINTER *)next__WEKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__XEKG)[ 0]=next__WEKG;
              } else {
                next__WEKG=((__POINTER *)result__YEKG)[ 0];
                if ((next__WEKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YEKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__BIHG <<  1)) <=  4096)) {
                    next__WEKG=(void *)((unsigned long)result__YEKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BIHG)));
                  } else {
                    next__WEKG=new_lab__RUJ(new_size__BIHG);
                  };
                  ((__POINTER *)next__WEKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__XEKG)[ 0]=next__WEKG;
                } else {
                  ((__POINTER *)result__YEKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__WEKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__YEKG=next__WEKG;
                };
              };
              ptr__CJVB=result__YEKG;
            } else {
              t__FIHG=((__UINTEGER_32 )typ_id__HJVB);
              a__EIHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__5EKG=(__UINTEGER_32)((__UINTEGER_32)(sz__EJVB + a__EIHG) & (__UINTEGER_32)(~ a__EIHG));
              ptr_table__2EKG=((__POINTER )(&(table_type[(t__FIHG)])));
              lab_type__4EKG=(__UINTEGER_32)(t__FIHG |  1);
              next__1EKG=((__POINTER )(NULL));
              result__3EKG=((__POINTER *)ptr_table__2EKG)[ 0];
              if ((result__3EKG == (void *)NULL)) {
                result__3EKG=new_lab__RUJ(lab_type__4EKG);
                next__1EKG=(void *)((unsigned long)result__3EKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5EKG)));
                ((__POINTER *)next__1EKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__2EKG)[ 0]=next__1EKG;
              } else {
                next__1EKG=((__POINTER *)result__3EKG)[ 0];
                if ((next__1EKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3EKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5EKG <<  1)) <=  4096)) {
                    next__1EKG=(void *)((unsigned long)result__3EKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5EKG)));
                  } else {
                    next__1EKG=new_lab__RUJ(lab_type__4EKG);
                  };
                  ((__POINTER *)next__1EKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__2EKG)[ 0]=next__1EKG;
                } else {
                  ((__POINTER *)result__3EKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1EKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__3EKG=next__1EKG;
                };
              };
              ptr__CJVB=result__3EKG;
            };
            result__BJVB=((__SECTION_ *)ptr__CJVB);
            *(result__BJVB) = *(SECTION___);
          };
          result__IBLB=result__BJVB;
          ((__SECTION_ *)result__BJVB)->name__FQ5B=NULL;
          Self__GACC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)bucket_list__MBLB);
          k__IACC=t__HRC;
          h__PACC=hash_code__ATY(t__HRC);
          idx__QACC=(__INTEGER)(h__PACC % Self__GACC->capacity__RTAC);
          node__RACC=((void **)Self__GACC->buckets__WTAC)[idx__QACC];
          while ((! (((void *)node__RACC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__RACC)->key__CUAC == (void *)k__IACC)))) {
            node__RACC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__RACC)->next__NUAC;
          };
          if (((void *)node__RACC == (void *)NULL)) {
            if ((Self__GACC->capacity__RTAC == Self__GACC->count__SBCC)) {
              idx__5XGD= 0;
              node1__DYGD=NULL;
              node2__EYGD=NULL;
              old_buckets__CYGD=Self__GACC->buckets__WTAC;
              new_capacity__AYGD=prime_number_ceiling__33Z((__INTEGER)(Self__GACC->capacity__RTAC +  1));
              Self__GACC->buckets__WTAC=create__OWVC(new_capacity__AYGD);
              i__BYGD=(__INTEGER)(Self__GACC->capacity__RTAC -  1);
              Self__GACC->capacity__RTAC=new_capacity__AYGD;
              while ((i__BYGD >=  0)) {
                node1__DYGD=((void **)old_buckets__CYGD)[i__BYGD];
                while (((void *)node1__DYGD != (void *)NULL)) {
                  node2__EYGD=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DYGD)->next__NUAC;
                  idx__5XGD=(__INTEGER)(hash_code__ATY(((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DYGD)->key__CUAC) % Self__GACC->capacity__RTAC);
                  ((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DYGD)->next__NUAC=((void **)Self__GACC->buckets__WTAC)[idx__5XGD];
                  ((void **)Self__GACC->buckets__WTAC)[idx__5XGD]=node1__DYGD;
                  node1__DYGD=node2__EYGD;
                };
                i__BYGD=(__INTEGER)(i__BYGD -  1);
              };
              idx__QACC=(__INTEGER)(h__PACC % Self__GACC->capacity__RTAC);
            };
            __tmp__5BCC=((void **)Self__GACC->buckets__WTAC)[idx__QACC];
            result__I0GD=NULL;
            ptr__J0GD=((__POINTER )(NULL));
            typ_id__O0GD= 0;
            sz__L0GD=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo));
            if ((sz__L0GD ==  0)) {
              result__I0GD=HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
            } else {
              typ_id__O0GD=__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
              clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__L0GD);
              if ((typ_id__O0GD == (__INTEGER)(-  1))) {
                a__4CHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__5CHG=(__UINTEGER_32)((__UINTEGER_32)(sz__L0GD + a__4CHG) & (__UINTEGER_32)(~ a__4CHG));
                ptr_table__BFKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5CHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                next__AFKG=((__POINTER )(NULL));
                result__CFKG=((__POINTER *)ptr_table__BFKG)[ 0];
                if ((result__CFKG == (void *)NULL)) {
                  result__CFKG=new_lab__RUJ(new_size__5CHG);
                  next__AFKG=(void *)((unsigned long)result__CFKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5CHG)));
                  ((__POINTER *)next__AFKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__BFKG)[ 0]=next__AFKG;
                } else {
                  next__AFKG=((__POINTER *)result__CFKG)[ 0];
                  if ((next__AFKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CFKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5CHG <<  1)) <=  4096)) {
                      next__AFKG=(void *)((unsigned long)result__CFKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5CHG)));
                    } else {
                      next__AFKG=new_lab__RUJ(new_size__5CHG);
                    };
                    ((__POINTER *)next__AFKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__BFKG)[ 0]=next__AFKG;
                  } else {
                    ((__POINTER *)result__CFKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__AFKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__CFKG=next__AFKG;
                  };
                };
                ptr__J0GD=result__CFKG;
              } else {
                t__DDHG=((__UINTEGER_32 )typ_id__O0GD);
                a__CDHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__JFKG=(__UINTEGER_32)((__UINTEGER_32)(sz__L0GD + a__CDHG) & (__UINTEGER_32)(~ a__CDHG));
                ptr_table__GFKG=((__POINTER )(&(table_type[(t__DDHG)])));
                lab_type__IFKG=(__UINTEGER_32)(t__DDHG |  1);
                next__FFKG=((__POINTER )(NULL));
                result__HFKG=((__POINTER *)ptr_table__GFKG)[ 0];
                if ((result__HFKG == (void *)NULL)) {
                  result__HFKG=new_lab__RUJ(lab_type__IFKG);
                  next__FFKG=(void *)((unsigned long)result__HFKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JFKG)));
                  ((__POINTER *)next__FFKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__GFKG)[ 0]=next__FFKG;
                } else {
                  next__FFKG=((__POINTER *)result__HFKG)[ 0];
                  if ((next__FFKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HFKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__JFKG <<  1)) <=  4096)) {
                      next__FFKG=(void *)((unsigned long)result__HFKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JFKG)));
                    } else {
                      next__FFKG=new_lab__RUJ(lab_type__IFKG);
                    };
                    ((__POINTER *)next__FFKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__GFKG)[ 0]=next__FFKG;
                  } else {
                    ((__POINTER *)result__HFKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__FFKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__HFKG=next__FFKG;
                  };
                };
                ptr__J0GD=result__HFKG;
              };
              result__I0GD=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)ptr__J0GD);
              *(result__I0GD) = *(HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__);
            };
            Self__2IUD=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)result__I0GD);
            Self__2IUD->item__VUAC=result__BJVB;
            Self__2IUD->key__CUAC=t__HRC;
            Self__2IUD->next__NUAC=__tmp__5BCC;
            node__RACC=result__I0GD;
            ((void **)Self__GACC->buckets__WTAC)[idx__QACC]=result__I0GD;
            Self__GACC->count__SBCC=(__INTEGER)(Self__GACC->count__SBCC +  1);
          } else {
            ((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__RACC)->item__VUAC=result__BJVB;
          };
        };
        last_section__2TC=result__IBLB;
      };
      do {
        result__1BLB=FALSE__;
        t__2BLB=NULL;
        lt__3BLB=NULL;
        arg__5BLB=NULL;
        affect__GCLB='\0';
        old_pos__HCLB= 0;
        old_derive__ICLB= 0;
        if ((read_style__QUF() != ' ')) {
          key_comment_default__N1B=(&__string_100);
          result__1BLB=TRUE__;
          result__TMVB=NULL;
          if ((((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__ZMVB)->parent_arrayed_collection__YMVB.upper__CXCC <  0)) {
            result__TMVB=create_with_capacity__T3XB( 16);
          } else {
            Self__TNWC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__ZMVB);
            result__TMVB=((void **)Self__TNWC->parent_arrayed_collection__YMVB.storage__IIDC)[Self__TNWC->parent_arrayed_collection__YMVB.upper__CXCC];
            Self__JOWC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__ZMVB);
            Self__JOWC->parent_arrayed_collection__YMVB.upper__CXCC=(__INTEGER)(Self__JOWC->parent_arrayed_collection__YMVB.upper__CXCC -  1);
          };
          result__KFKG=FALSE__;
          if ((! read_space__MMD())) {
            result__KFKG=FALSE__;
          } else {
            result__LFKG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__LFKG=((__CHARACTER )(( 0)));
            } else {
              result__LFKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__LFKG == '(')) {
              position__V0B=(__INTEGER)(position__V0B +  1);
              result__KFKG=TRUE__;
            };
          };
          if (result__KFKG) {
            arg__5BLB=read_local_arg__with_self__QCZB(PARSER__,FALSE__,TRUE__);
            if (((void *)arg__5BLB == (void *)NULL)) {
              pos__0FZF=current_position__A0F();
              put_error__text__WRG( 0,(&__string_177));
              put_position__ATG(pos__0FZF);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
            result__NFKG=FALSE__;
            if ((! read_space__MMD())) {
              result__NFKG=FALSE__;
            } else {
              result__OFKG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__OFKG=((__CHARACTER )(( 0)));
              } else {
                result__OFKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__OFKG == ')')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                result__NFKG=TRUE__;
              };
            };
            if ((! result__NFKG)) {
              pos__2FZF=current_position__A0F();
              put_error__text__WRG( 2,(&__string_178));
              put_position__ATG(pos__2FZF);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
          } else {
            p__YFKG=current_position__A0F();
            result__QFKG=NULL;
            ptr__RFKG=((__POINTER )(NULL));
            typ_id__SFKG= 0;
            sz__TFKG=((__UINTEGER_32 )sizeof(__ITM_ARG));
            if ((sz__TFKG ==  0)) {
              result__QFKG=ITM_ARG__;
            } else {
              typ_id__SFKG=-1;
              clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__TFKG);
              if ((typ_id__SFKG == (__INTEGER)(-  1))) {
                a__UFKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__VFKG=(__UINTEGER_32)((__UINTEGER_32)(sz__TFKG + a__UFKG) & (__UINTEGER_32)(~ a__UFKG));
                ptr_table__0FKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VFKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                next__ZFKG=((__POINTER )(NULL));
                result__1FKG=((__POINTER *)ptr_table__0FKG)[ 0];
                if ((result__1FKG == (void *)NULL)) {
                  result__1FKG=new_lab__RUJ(new_size__VFKG);
                  next__ZFKG=(void *)((unsigned long)result__1FKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VFKG)));
                  ((__POINTER *)next__ZFKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__0FKG)[ 0]=next__ZFKG;
                } else {
                  next__ZFKG=((__POINTER *)result__1FKG)[ 0];
                  if ((next__ZFKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1FKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VFKG <<  1)) <=  4096)) {
                      next__ZFKG=(void *)((unsigned long)result__1FKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VFKG)));
                    } else {
                      next__ZFKG=new_lab__RUJ(new_size__VFKG);
                    };
                    ((__POINTER *)next__ZFKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__0FKG)[ 0]=next__ZFKG;
                  } else {
                    ((__POINTER *)result__1FKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZFKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__1FKG=next__ZFKG;
                  };
                };
                ptr__RFKG=result__1FKG;
              } else {
                t__WFKG=((__UINTEGER_32 )typ_id__SFKG);
                a__XFKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__CGKG=(__UINTEGER_32)((__UINTEGER_32)(sz__TFKG + a__XFKG) & (__UINTEGER_32)(~ a__XFKG));
                ptr_table__5FKG=((__POINTER )(&(table_type[(t__WFKG)])));
                lab_type__BGKG=(__UINTEGER_32)(t__WFKG |  1);
                next__4FKG=((__POINTER )(NULL));
                result__AGKG=((__POINTER *)ptr_table__5FKG)[ 0];
                if ((result__AGKG == (void *)NULL)) {
                  result__AGKG=new_lab__RUJ(lab_type__BGKG);
                  next__4FKG=(void *)((unsigned long)result__AGKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CGKG)));
                  ((__POINTER *)next__4FKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__5FKG)[ 0]=next__4FKG;
                } else {
                  next__4FKG=((__POINTER *)result__AGKG)[ 0];
                  if ((next__4FKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AGKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CGKG <<  1)) <=  4096)) {
                      next__4FKG=(void *)((unsigned long)result__AGKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CGKG)));
                    } else {
                      next__4FKG=new_lab__RUJ(lab_type__BGKG);
                    };
                    ((__POINTER *)next__4FKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__5FKG)[ 0]=next__4FKG;
                  } else {
                    ((__POINTER *)result__AGKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__4FKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__AGKG=next__4FKG;
                  };
                };
                ptr__RFKG=result__AGKG;
              };
              result__QFKG=((__ITM_ARG *)ptr__RFKG);
              *(result__QFKG) = *(ITM_ARG__);
            };
            ((__ITM_ARG *)result__QFKG)->parent_itm_argument__Q4EB.parent_itm_code__YDN.position__REJ=p__YFKG;
            arg__5BLB=result__QFKG;
          };
          add_last__TCCC(result__TMVB,arg__5BLB);
          list_arg__VNVB=result__TMVB;
          name__XNVB=NULL;
          n__YNVB=NULL;
          priority__ZNVB=NULL;
          arg__1NVB=NULL;
          result__2NVB=NULL;
          if (read_identifier__EBL()) {
            short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
            result__B0O=NULL;
            if ((((__FAST_ARRAYoSTRINGo *)free__C0O)->parent_arrayed_collection__YDC.upper__1DC <  0)) {
              result__B0O=create__01( 128);
            } else {
              Self__3N4=((__FAST_ARRAYoSTRINGo *)free__C0O);
              result__B0O=((void **)Self__3N4->parent_arrayed_collection__YDC.storage__2LR)[Self__3N4->parent_arrayed_collection__YDC.upper__1DC];
              Self__TO4=((__FAST_ARRAYoSTRINGo *)free__C0O);
              Self__TO4->parent_arrayed_collection__YDC.upper__1DC=(__INTEGER)(Self__TO4->parent_arrayed_collection__YDC.upper__1DC -  1);
            };
            n__YNVB=result__B0O;
            copy__5GQ(result__B0O,last_string__NTC);
            arg__1NVB=read_loc_arg__E3EB(PARSER__,FALSE__);
            if (((void *)arg__1NVB != (void *)NULL)) {
              add_last__TCCC(result__TMVB,arg__1NVB);
              if (read_identifier__EBL()) {
                if (((void *)((__SECTION_ *)last_section__2TC)->name__FQ5B == (void *)(&__string_26))) {
                  pos__4FZF=current_position__A0F();
                  put_error__text__WRG( 0,(&__string_179));
                  put_position__ATG(pos__4FZF);
                  put_string__55F(msg_err__1RG);
                  if ((type_error__0RG !=  2)) {
                    exit(( 1));
                  };
                };
                do {
                  short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
                  append__CRQ(n__YNVB,(&__string_84));
                  append__CRQ(n__YNVB,last_string__NTC);
                  arg__1NVB=read_loc_arg__E3EB(PARSER__,FALSE__);
                  if (((void *)arg__1NVB == (void *)NULL)) {
                    pos__AGZF=current_position__A0F();
                    put_error__text__WRG( 0,(&__string_124));
                    put_position__ATG(pos__AGZF);
                    put_string__55F(msg_err__1RG);
                    if ((type_error__0RG !=  2)) {
                      exit(( 1));
                    };
                  };
                  add_last__TCCC(list_arg__VNVB,arg__1NVB);
                } while (read_identifier__EBL());
              };
            };
            result__R2O=get__TPB(result__B0O);
            add_last__RST(free__C0O,result__B0O);
            ((__STRING *)result__B0O)->count__04B= 0;
            p__NGKG=current_position__A0F();
            sec__OGKG=last_section__2TC;
            result__DGKG=NULL;
            ptr__EGKG=((__POINTER )(NULL));
            typ_id__FGKG= 0;
            sz__GGKG=((__UINTEGER_32 )sizeof(__ITM_SLOT));
            if ((sz__GGKG ==  0)) {
              result__DGKG=ITM_SLOT__;
            } else {
              typ_id__FGKG=__ITM_SLOT__;
              clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__GGKG);
              if ((typ_id__FGKG == (__INTEGER)(-  1))) {
                a__HGKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__IGKG=(__UINTEGER_32)((__UINTEGER_32)(sz__GGKG + a__HGKG) & (__UINTEGER_32)(~ a__HGKG));
                ptr_table__QGKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IGKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                next__PGKG=((__POINTER )(NULL));
                result__RGKG=((__POINTER *)ptr_table__QGKG)[ 0];
                if ((result__RGKG == (void *)NULL)) {
                  result__RGKG=new_lab__RUJ(new_size__IGKG);
                  next__PGKG=(void *)((unsigned long)result__RGKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IGKG)));
                  ((__POINTER *)next__PGKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__QGKG)[ 0]=next__PGKG;
                } else {
                  next__PGKG=((__POINTER *)result__RGKG)[ 0];
                  if ((next__PGKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RGKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__IGKG <<  1)) <=  4096)) {
                      next__PGKG=(void *)((unsigned long)result__RGKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IGKG)));
                    } else {
                      next__PGKG=new_lab__RUJ(new_size__IGKG);
                    };
                    ((__POINTER *)next__PGKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__QGKG)[ 0]=next__PGKG;
                  } else {
                    ((__POINTER *)result__RGKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__PGKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__RGKG=next__PGKG;
                  };
                };
                ptr__EGKG=result__RGKG;
              } else {
                t__JGKG=((__UINTEGER_32 )typ_id__FGKG);
                a__KGKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__YGKG=(__UINTEGER_32)((__UINTEGER_32)(sz__GGKG + a__KGKG) & (__UINTEGER_32)(~ a__KGKG));
                ptr_table__VGKG=((__POINTER )(&(table_type[(t__JGKG)])));
                lab_type__XGKG=(__UINTEGER_32)(t__JGKG |  1);
                next__UGKG=((__POINTER )(NULL));
                result__WGKG=((__POINTER *)ptr_table__VGKG)[ 0];
                if ((result__WGKG == (void *)NULL)) {
                  result__WGKG=new_lab__RUJ(lab_type__XGKG);
                  next__UGKG=(void *)((unsigned long)result__WGKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YGKG)));
                  ((__POINTER *)next__UGKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__VGKG)[ 0]=next__UGKG;
                } else {
                  next__UGKG=((__POINTER *)result__WGKG)[ 0];
                  if ((next__UGKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WGKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YGKG <<  1)) <=  4096)) {
                      next__UGKG=(void *)((unsigned long)result__WGKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YGKG)));
                    } else {
                      next__UGKG=new_lab__RUJ(lab_type__XGKG);
                    };
                    ((__POINTER *)next__UGKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__VGKG)[ 0]=next__UGKG;
                  } else {
                    ((__POINTER *)result__WGKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__UGKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__WGKG=next__UGKG;
                  };
                };
                ptr__EGKG=result__WGKG;
              };
              result__DGKG=((__ITM_SLOT *)ptr__EGKG);
              *(result__DGKG) = *(ITM_SLOT__);
            };
            Self__LGKG=((__ITM_SLOT *)result__DGKG);
            Self__LGKG->parent_named__TUC.name__KI=result__R2O;
            Self__LGKG->parent_named__TUC.parent_itm_object__ZH.position__REJ=p__NGKG;
            Self__LGKG->id_section__4UC=sec__OGKG;
            result__2NVB=result__DGKG;
            __tmp__QQVB=TRUE__;
          } else {
            __tmp__QQVB=FALSE__;
          };
          if ((! __tmp__QQVB)) {
            result__ZGKG=FALSE__;
            if ((! read_space__MMD())) {
              result__ZGKG=FALSE__;
            } else {
              result__0GKG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__0GKG=((__CHARACTER )(( 0)));
              } else {
                result__0GKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__0GKG == '\'')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                result__ZGKG=TRUE__;
              };
            };
            if (result__ZGKG) {
              if ((! read_operator__BRL())) {
                pos__CGZF=current_position__A0F();
                put_error__text__WRG( 0,(&__string_180));
                put_position__ATG(pos__CGZF);
                put_string__55F(msg_err__1RG);
                if ((type_error__0RG !=  2)) {
                  exit(( 1));
                };
              };
              if ((((void *)last_string__NTC == (void *)(&__string_16)) || ((void *)last_string__NTC == (void *)(&__string_17)))) {
                pos__EGZF=current_position__A0F();
                put_error__text__WRG( 0,(&__string_181));
                put_position__ATG(pos__EGZF);
                put_string__55F(msg_err__1RG);
                if ((type_error__0RG !=  2)) {
                  exit(( 1));
                };
              };
              name__XNVB=last_string__NTC;
              result__2GKG=FALSE__;
              if ((! read_space__MMD())) {
                result__2GKG=FALSE__;
              } else {
                result__3GKG='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__3GKG=((__CHARACTER )(( 0)));
                } else {
                  result__3GKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                if ((result__3GKG == '\'')) {
                  position__V0B=(__INTEGER)(position__V0B +  1);
                  result__2GKG=TRUE__;
                };
              };
              if ((! result__2GKG)) {
                pos__GGZF=current_position__A0F();
                put_error__text__WRG( 2,(&__string_182));
                put_position__ATG(pos__GGZF);
                put_string__55F(msg_err__1RG);
                if ((type_error__0RG !=  2)) {
                  exit(( 1));
                };
              };
              result__AHKG=read_word__NSF((&__string_6));
              if (result__AHKG) {
                if (((void *)(&__string_6) == (void *)(&__string_4))) {
                  short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
                } else {
                  short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
                };
              };
              if (result__AHKG) {
                __tmp__YSVB=TRUE__;
              } else {
                result__V0D=read_word__NSF((&__string_5));
                if (result__V0D) {
                  if (((void *)(&__string_5) == (void *)(&__string_4))) {
                    short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
                  } else {
                    short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
                  };
                };
                __tmp__YSVB=result__V0D;
              };
              if (__tmp__YSVB) {
                priority__ZNVB=last_string__NTC;
                if ((! read_integer__LJO())) {
                  pos__IGZF=current_position__A0F();
                  put_error__text__WRG( 0,(&__string_183));
                  put_position__ATG(pos__IGZF);
                  put_string__55F(msg_err__1RG);
                  if ((type_error__0RG !=  2)) {
                    exit(( 1));
                  };
                };
              };
              arg__1NVB=read_loc_arg__E3EB(PARSER__,FALSE__);
              if (((void *)arg__1NVB != (void *)NULL)) {
                add_last__TCCC(result__TMVB,arg__1NVB);
                name__XNVB=operator_to_name__SBM((&__string_78),name__XNVB);
                if (((void *)priority__ZNVB == (void *)NULL)) {
                  priority__ZNVB=(&__string_6);
                };
              } else {
                name__XNVB=operator_to_name__SBM((&__string_79),name__XNVB);
                if (((void *)priority__ZNVB != (void *)NULL)) {
                  pos__KGZF=current_position__A0F();
                  put_error__text__WRG( 0,(&__string_184));
                  put_position__ATG(pos__KGZF);
                  put_string__55F(msg_err__1RG);
                  if ((type_error__0RG !=  2)) {
                    exit(( 1));
                  };
                };
              };
              p__BT0B=current_position__A0F();
              sec__DT0B=last_section__2TC;
              result__PJ1B=NULL;
              ptr__QJ1B=((__POINTER )(NULL));
              typ_id__VJ1B= 0;
              sz__SJ1B=((__UINTEGER_32 )sizeof(__ITM_SLOT));
              if ((sz__SJ1B ==  0)) {
                result__PJ1B=ITM_SLOT__;
              } else {
                typ_id__VJ1B=__ITM_SLOT__;
                clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__SJ1B);
                if ((typ_id__VJ1B == (__INTEGER)(-  1))) {
                  a__ULHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                  new_size__VLHG=(__UINTEGER_32)((__UINTEGER_32)(sz__SJ1B + a__ULHG) & (__UINTEGER_32)(~ a__ULHG));
                  ptr_table__CHKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VLHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                  next__BHKG=((__POINTER )(NULL));
                  result__DHKG=((__POINTER *)ptr_table__CHKG)[ 0];
                  if ((result__DHKG == (void *)NULL)) {
                    result__DHKG=new_lab__RUJ(new_size__VLHG);
                    next__BHKG=(void *)((unsigned long)result__DHKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VLHG)));
                    ((__POINTER *)next__BHKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__CHKG)[ 0]=next__BHKG;
                  } else {
                    next__BHKG=((__POINTER *)result__DHKG)[ 0];
                    if ((next__BHKG == (void *)NULL)) {
                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DHKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VLHG <<  1)) <=  4096)) {
                        next__BHKG=(void *)((unsigned long)result__DHKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VLHG)));
                      } else {
                        next__BHKG=new_lab__RUJ(new_size__VLHG);
                      };
                      ((__POINTER *)next__BHKG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__CHKG)[ 0]=next__BHKG;
                    } else {
                      ((__POINTER *)result__DHKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BHKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                      result__DHKG=next__BHKG;
                    };
                  };
                  ptr__QJ1B=result__DHKG;
                } else {
                  t__ZLHG=((__UINTEGER_32 )typ_id__VJ1B);
                  a__YLHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                  new_size__KHKG=(__UINTEGER_32)((__UINTEGER_32)(sz__SJ1B + a__YLHG) & (__UINTEGER_32)(~ a__YLHG));
                  ptr_table__HHKG=((__POINTER )(&(table_type[(t__ZLHG)])));
                  lab_type__JHKG=(__UINTEGER_32)(t__ZLHG |  1);
                  next__GHKG=((__POINTER )(NULL));
                  result__IHKG=((__POINTER *)ptr_table__HHKG)[ 0];
                  if ((result__IHKG == (void *)NULL)) {
                    result__IHKG=new_lab__RUJ(lab_type__JHKG);
                    next__GHKG=(void *)((unsigned long)result__IHKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KHKG)));
                    ((__POINTER *)next__GHKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__HHKG)[ 0]=next__GHKG;
                  } else {
                    next__GHKG=((__POINTER *)result__IHKG)[ 0];
                    if ((next__GHKG == (void *)NULL)) {
                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IHKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KHKG <<  1)) <=  4096)) {
                        next__GHKG=(void *)((unsigned long)result__IHKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KHKG)));
                      } else {
                        next__GHKG=new_lab__RUJ(lab_type__JHKG);
                      };
                      ((__POINTER *)next__GHKG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__HHKG)[ 0]=next__GHKG;
                    } else {
                      ((__POINTER *)result__IHKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__GHKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                      result__IHKG=next__GHKG;
                    };
                  };
                  ptr__QJ1B=result__IHKG;
                };
                result__PJ1B=((__ITM_SLOT *)ptr__QJ1B);
                *(result__PJ1B) = *(ITM_SLOT__);
              };
              Self__H0DC=((__ITM_SLOT *)result__PJ1B);
              Self__H0DC->parent_named__TUC.name__KI=name__XNVB;
              Self__H0DC->parent_named__TUC.parent_itm_object__ZH.position__REJ=p__BT0B;
              Self__H0DC->id_section__4UC=sec__DT0B;
              result__2NVB=result__PJ1B;
            };
          };
          last_slot__ZDLB=result__2NVB;
          if (((void *)result__2NVB == (void *)NULL)) {
            pos__NGZF=current_position__A0F();
            put_error__text__WRG( 0,(&__string_185));
            put_position__ATG(pos__NGZF);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          result__JVVB=create_with_capacity__T3XB((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)result__TMVB)->parent_arrayed_collection__ECLB.upper__XCCC +  1));
          Self__CYCC=((__FAST_ARRAYoITM_ARGUMENTo *)result__JVVB);
          new_capacity__FYCC= 0;
          other_upper__EYCC=((__FAST_ARRAYoITM_ARGUMENTo *)result__TMVB)->parent_arrayed_collection__ECLB.upper__XCCC;
          if ((other_upper__EYCC >=  0)) {
            new_capacity__FYCC=(__INTEGER)(other_upper__EYCC +  1);
            if ((Self__CYCC->parent_arrayed_collection__ECLB.capacity__ZCCC < new_capacity__FYCC)) {
              Self__CYCC->parent_arrayed_collection__ECLB.storage__VDCC=create__NC5C(new_capacity__FYCC);
              Self__CYCC->parent_arrayed_collection__ECLB.capacity__ZCCC=new_capacity__FYCC;
            };
            __tmp__YYCC=Self__CYCC->parent_arrayed_collection__ECLB.storage__VDCC;
            __tmp__0YCC=((__FAST_ARRAYoITM_ARGUMENTo *)result__TMVB)->parent_arrayed_collection__ECLB.storage__VDCC;
            Self__JYTD=((void **)__tmp__YYCC);
            Self__YWXD=other_upper__EYCC;
            while ((Self__YWXD >=  0)) {
              Self__JYTD[Self__YWXD]=((void **)__tmp__0YCC)[Self__YWXD];
              Self__YWXD=(__INTEGER)(Self__YWXD -  1);
            };
          };
          Self__CYCC->parent_arrayed_collection__ECLB.upper__XCCC=other_upper__EYCC;
          ((__FAST_ARRAYoITM_ARGUMENTo *)result__TMVB)->parent_arrayed_collection__ECLB.upper__XCCC=(__INTEGER)(-  1);
          Self__IHDC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__ZMVB);
          new_capacity__KHDC= 0;
          if (((__INTEGER)(Self__IHDC->parent_arrayed_collection__YMVB.upper__CXCC +  1) <= (__INTEGER)(Self__IHDC->parent_arrayed_collection__YMVB.capacity__MHDC -  1))) {
            Self__IHDC->parent_arrayed_collection__YMVB.upper__CXCC=(__INTEGER)(Self__IHDC->parent_arrayed_collection__YMVB.upper__CXCC +  1);
            __tmp__ZHDC=TRUE__;
          } else {
            __tmp__ZHDC=FALSE__;
          };
          if ((! __tmp__ZHDC)) {
            if ((Self__IHDC->parent_arrayed_collection__YMVB.capacity__MHDC ==  0)) {
              Self__IHDC->parent_arrayed_collection__YMVB.storage__IIDC=create__AJ5C( 2);
              Self__IHDC->parent_arrayed_collection__YMVB.capacity__MHDC= 2;
              Self__IHDC->parent_arrayed_collection__YMVB.upper__CXCC= 0;
            } else {
              new_capacity__KHDC=(__INTEGER)(Self__IHDC->parent_arrayed_collection__YMVB.capacity__MHDC <<  1);
              __tmp__RIDC=Self__IHDC->parent_arrayed_collection__YMVB.storage__IIDC;
              __tmp__SIDC=Self__IHDC->parent_arrayed_collection__YMVB.capacity__MHDC;
              new__TOUD=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__RIDC)),((__UINTEGER_32 )(__INTEGER)(__tmp__SIDC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__KHDC * ((__INTEGER )(sizeof(void *)))))));
              __tmp__GPUD=(__INTEGER)(new_capacity__KHDC -  1);
              Self__BRUE=__tmp__SIDC;
              while ((Self__BRUE <= __tmp__GPUD)) {
                new__TOUD[Self__BRUE]=NULL;
                Self__BRUE=(__INTEGER)(Self__BRUE +  1);
              };
              Self__IHDC->parent_arrayed_collection__YMVB.storage__IIDC=new__TOUD;
              Self__IHDC->parent_arrayed_collection__YMVB.capacity__MHDC=new_capacity__KHDC;
              Self__IHDC->parent_arrayed_collection__YMVB.upper__CXCC=(__INTEGER)(Self__IHDC->parent_arrayed_collection__YMVB.upper__CXCC +  1);
            };
          };
          ((void **)Self__IHDC->parent_arrayed_collection__YMVB.storage__IIDC)[Self__IHDC->parent_arrayed_collection__YMVB.upper__CXCC]=result__TMVB;
          Self__SFCC=((__ITM_SLOT *)last_slot__ZDLB);
          if (((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)result__JVVB)->parent_arrayed_collection__ECLB.upper__XCCC +  1) >  1)) {
            __tmp__AGCC=TRUE__;
          } else {
            Result__BF4C=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)result__JVVB)->parent_arrayed_collection__ECLB.storage__VDCC)[ 0];
            if (((struct ___OBJ *)Result__BF4C)->__id==__ITM_ARG__) {
              __tmp__2FCC= 1;
            } else {
              __tmp__2FCC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)Result__BF4C)->name__OEEC)->parent_arrayed_collection__30B.upper__I5N +  1);
            };
            __tmp__AGCC=(__tmp__2FCC >  1);
          };
          if (__tmp__AGCC) {
            if (((void *)((__SECTION_ *)Self__SFCC->id_section__4UC)->name__FQ5B == (void *)(&__string_21))) {
              Self__TJIG=((__FAST_ARRAYoITM_ARGUMENTo *)result__JVVB);
              __tmp__NGCC=((void **)Self__TJIG->parent_arrayed_collection__ECLB.storage__VDCC)[Self__TJIG->parent_arrayed_collection__ECLB.upper__XCCC];
              if (((struct ___OBJ *)__tmp__NGCC)->__id==__ITM_ARG__) {
                __tmp__OGCC=((__ITM_ARG *)__tmp__NGCC)->parent_itm_argument__Q4EB.parent_itm_code__YDN.position__REJ;
              } else {
                __tmp__OGCC=((__ITM_ARGS *)__tmp__NGCC)->parent_itm_argument__IHZB.parent_itm_code__YDN.position__REJ;
              };
              put_error__text__WRG( 1,(&__string_186));
              put_position__ATG(__tmp__OGCC);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
            Self__4N5F=((__SECTION_ *)Self__SFCC->id_section__4UC);
            if ((((void *)Self__4N5F->name__FQ5B == (void *)(&__string_19)) || ((void *)Self__4N5F->name__FQ5B == (void *)(&__string_20)))) {
              Self__52GD=((__FAST_ARRAYoITM_ARGUMENTo *)result__JVVB);
              __tmp__0GCC=((void **)Self__52GD->parent_arrayed_collection__ECLB.storage__VDCC)[Self__52GD->parent_arrayed_collection__ECLB.upper__XCCC];
              if (((struct ___OBJ *)__tmp__0GCC)->__id==__ITM_ARG__) {
                __tmp__1GCC=((__ITM_ARG *)__tmp__0GCC)->parent_itm_argument__Q4EB.parent_itm_code__YDN.position__REJ;
              } else {
                __tmp__1GCC=((__ITM_ARGS *)__tmp__0GCC)->parent_itm_argument__IHZB.parent_itm_code__YDN.position__REJ;
              };
              put_error__text__WRG( 1,(&__string_187));
              put_position__ATG(__tmp__1GCC);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
          };
          if (read_affect__QY3()) {
            affect__GCLB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__NTC)->storage__E5M)[ 0];
          } else {
            affect__GCLB=' ';
          };
          if ((affect__GCLB == ' ')) {
            result__LHKG=FALSE__;
            if ((! read_space__MMD())) {
              result__LHKG=FALSE__;
            } else {
              result__MHKG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__MHKG=((__CHARACTER )(( 0)));
              } else {
                result__MHKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__MHKG == ':')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                result__LHKG=TRUE__;
              };
            };
            __tmp__4ELB=result__LHKG;
          } else {
            __tmp__4ELB=FALSE__;
          };
          if (__tmp__4ELB) {
            result__OHKG=FALSE__;
            if ((! read_space__MMD())) {
              result__OHKG=FALSE__;
            } else {
              result__PHKG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__PHKG=((__CHARACTER )(( 0)));
              } else {
                result__PHKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__PHKG == '(')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                result__OHKG=TRUE__;
              };
            };
            if (result__OHKG) {
              lt__3BLB=read_type_list__O4KB(PARSER__,FALSE__);
              if (((void *)lt__3BLB == (void *)NULL)) {
                pos__2HZF=current_position__A0F();
                put_error__text__WRG( 0,(&__string_188));
                put_position__ATG(pos__2HZF);
                put_string__55F(msg_err__1RG);
                if ((type_error__0RG !=  2)) {
                  exit(( 1));
                };
              };
              result__RHKG=FALSE__;
              if ((! read_space__MMD())) {
                result__RHKG=FALSE__;
              } else {
                result__SHKG='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__SHKG=((__CHARACTER )(( 0)));
                } else {
                  result__SHKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                if ((result__SHKG == ')')) {
                  position__V0B=(__INTEGER)(position__V0B +  1);
                  result__RHKG=TRUE__;
                };
              };
              if ((! result__RHKG)) {
                pos__4HZF=current_position__A0F();
                put_error__text__WRG( 2,(&__string_178));
                put_position__ATG(pos__4HZF);
                put_string__55F(msg_err__1RG);
                if ((type_error__0RG !=  2)) {
                  exit(( 1));
                };
              };
              t__2BLB=get__CJ2B(lt__3BLB);
            } else {
              t__2BLB=read_type__5FP(PARSER__,FALSE__);
              if (((void *)t__2BLB == (void *)NULL)) {
                pos__AIZF=current_position__A0F();
                put_error__text__WRG( 0,(&__string_188));
                put_position__ATG(pos__AIZF);
                put_string__55F(msg_err__1RG);
                if ((type_error__0RG !=  2)) {
                  exit(( 1));
                };
              };
            };
            if (read_affect__QY3()) {
              affect__GCLB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__NTC)->storage__E5M)[ 0];
            };
          } else {
            t__2BLB=type_void__XYF;
          };
          Self__IHCC=((__ITM_SLOT *)last_slot__ZDLB);
          tm__KHCC=NULL;
          Self__RHBC=((__SECTION_ *)Self__IHCC->id_section__4UC);
          if ((((void *)Self__RHBC->name__FQ5B == (void *)(&__string_19)) || ((void *)Self__RHBC->name__FQ5B == (void *)(&__string_20)))) {
            if (t__2BLB==NULL) {
              __tmp__THCC=NULL;
            } else {
              switch (((struct ___OBJ *)t__2BLB)->__id) {
              case __ITM_TYPE_SIMPLE__: {
                __tmp__THCC=((void *)t__2BLB);
              } break;
              case __ITM_TYPE_SELF__: {
                __tmp__THCC=((void *)t__2BLB);
              } break;
              case __ITM_TYPE_GENERIC__: {
                __tmp__THCC=((void *)t__2BLB);
              } break;
              case __ITM_TYPE_STYLE__: {
                __tmp__THCC=((void *)t__2BLB);
              } break;
              case __ITM_TYPE_MULTI__: {
                __tmp__THCC=NULL;
              } break;
              }
            };
            tm__KHCC=__tmp__THCC;
            if (((((void *)__tmp__THCC == (void *)NULL) || ((void *)__tmp__THCC == (void *)ITM_TYPE_SELF__)) || ((void *)__tmp__THCC == (void *)type_void__XYF))) {
              pos__N5GD=Self__IHCC->parent_named__TUC.parent_itm_object__ZH.position__REJ;
              put_error__text__WRG( 1,(&__string_189));
              put_position__ATG(pos__N5GD);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
          };
          if ((affect__GCLB != ' ')) {
            read_space__MMD();
            old_pos__HCLB=position__V0B;
            old_derive__ICLB=short_derive__O1B;
            read_contract__AWF();
            if (((void *)read_expr__25I(PARSER__) == (void *)NULL)) {
              pos__CIZF=current_position__A0F();
              put_error__text__WRG( 0,(&__string_190));
              put_position__ATG(pos__CIZF);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
            read_contract__AWF();
          };
          result__UHKG=FALSE__;
          if ((! read_space__MMD())) {
            result__UHKG=FALSE__;
          } else {
            result__VHKG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__VHKG=((__CHARACTER )(( 0)));
            } else {
              result__VHKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__VHKG == ';')) {
              position__V0B=(__INTEGER)(position__V0B +  1);
              result__UHKG=TRUE__;
            };
          };
          if ((! result__UHKG)) {
            pos__EIZF=current_position__A0F();
            put_error__text__WRG( 2,(&__string_191));
            put_position__ATG(pos__EIZF);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          if ((((! is_short_code__RW) && (old_pos__HCLB !=  0)) && ((void *)((__SECTION_ *)last_section__2TC)->name__FQ5B != (void *)(&__string_18)))) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )current_position__A0F()) >>  9) &  255) <  5)) {
              __tmp__41FG=((__STRING *)source__S0B)->count__04B;
              __tmp__51FG=((__STRING *)source__S0B)->count__04B;
              __tmp__A2FG=((__STRING *)source__S0B)->count__04B;
              __tmp__WJIG=((__STRING *)source__S0B)->storage__HGQ;
              __tmp__XJIG=((__STRING *)source__S0B)->storage__HGQ;
              __tmp__YJIG=((__STRING *)source__S0B)->storage__HGQ;
              while_do__SZLE:
              {
                result__KO5F='\0';
                if ((position__V0B > __tmp__41FG)) {
                  result__KO5F=((__CHARACTER )(( 0)));
                } else {
                  result__KO5F=((__CHARACTER *)__tmp__WJIG)[(__INTEGER)(position__V0B -  1)];
                };
                if ((result__KO5F != ((__CHARACTER )(( 0))))) {
                  result__LO5F='\0';
                  if ((position__V0B > __tmp__51FG)) {
                    result__LO5F=((__CHARACTER )(( 0)));
                  } else {
                    result__LO5F=((__CHARACTER *)__tmp__XJIG)[(__INTEGER)(position__V0B -  1)];
                  };
                  __tmp__YJLB=(((((((result__LO5F == ' ') || (result__LO5F == '\t')) || (result__LO5F == '\n')) || (result__LO5F == '\r')) || (result__LO5F == '\0')) || (result__LO5F == '\f')) || (result__LO5F == '\v'));
                } else {
                  __tmp__YJLB=FALSE__;
                };
                if (__tmp__YJLB) {
                  result__MO5F='\0';
                  if ((position__V0B > __tmp__A2FG)) {
                    result__MO5F=((__CHARACTER )(( 0)));
                  } else {
                    result__MO5F=((__CHARACTER *)__tmp__YJIG)[(__INTEGER)(position__V0B -  1)];
                  };
                  __tmp__ZJLB=(result__MO5F != '\n');
                } else {
                  __tmp__ZJLB=FALSE__;
                };
                if (__tmp__ZJLB) {
                  position__V0B=(__INTEGER)(position__V0B +  1);
                  goto while_do__SZLE;
                };
              };
              result__NO5F='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__NO5F=((__CHARACTER )(( 0)));
              } else {
                result__NO5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__NO5F == '\n')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
              };
            };
            remove_between__to__4IS(output_code__RI,(__INTEGER)(old_pos__HCLB + old_derive__ICLB),(__INTEGER)((__INTEGER)(position__V0B + short_derive__O1B) -  1));
            short_derive__O1B=(__INTEGER)(old_derive__ICLB - (__INTEGER)(position__V0B - old_pos__HCLB));
          };
          __tmp__ALLB=((__PROTOTYPE *)object__M0B)->slot_list__MXQ;
          __tmp__DLLB=((__ITM_SLOT *)last_slot__ZDLB)->parent_named__TUC.name__KI;
          Self__XICC=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)__tmp__ALLB);
          result__DJCC=NULL;
          node__CJCC=((void **)Self__XICC->buckets__JJCC)[(__INTEGER)(hash_code__LQU(__tmp__DLLB) % Self__XICC->capacity__FU3B)];
          while ((! (((void *)node__CJCC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__CJCC)->key__VJCC == (void *)__tmp__DLLB)))) {
            node__CJCC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__CJCC)->next__AKCC;
          };
          if (((void *)node__CJCC != (void *)NULL)) {
            result__DJCC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__CJCC)->item__IKCC;
          };
          if (((void *)result__DJCC != (void *)NULL)) {
            put_error__text__WRG( 1,(&__string_192));
            put_position__ATG(((__ITM_SLOT *)result__DJCC)->parent_named__TUC.parent_itm_object__ZH.position__REJ);
            put_position__ATG(((__ITM_SLOT *)last_slot__ZDLB)->parent_named__TUC.parent_itm_object__ZH.position__REJ);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          Self__3WVB=((__PROTOTYPE *)object__M0B);
          s__4WVB=last_slot__ZDLB;
          __tmp__5WVB=Self__3WVB->slot_list__MXQ;
          __tmp__BXVB=((__ITM_SLOT *)last_slot__ZDLB)->parent_named__TUC.name__KI;
          Self__5YCC=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)__tmp__5WVB);
          v__AZCC=last_slot__ZDLB;
          h__IZCC=hash_code__LQU(__tmp__BXVB);
          idx__JZCC=(__INTEGER)(h__IZCC % Self__5YCC->capacity__FU3B);
          node__KZCC=((void **)Self__5YCC->buckets__JJCC)[idx__JZCC];
          while ((! (((void *)node__KZCC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__KZCC)->key__VJCC == (void *)__tmp__BXVB)))) {
            node__KZCC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__KZCC)->next__AKCC;
          };
          if (((void *)node__KZCC == (void *)NULL)) {
            if ((Self__5YCC->capacity__FU3B == Self__5YCC->count__L0CC)) {
              idx__WDHD= 0;
              node1__0DHD=NULL;
              node2__1DHD=NULL;
              old_buckets__ZDHD=Self__5YCC->buckets__JJCC;
              new_capacity__XDHD=prime_number_ceiling__33Z((__INTEGER)(Self__5YCC->capacity__FU3B +  1));
              Self__5YCC->buckets__JJCC=create__QOPC(new_capacity__XDHD);
              i__YDHD=(__INTEGER)(Self__5YCC->capacity__FU3B -  1);
              Self__5YCC->capacity__FU3B=new_capacity__XDHD;
              while ((i__YDHD >=  0)) {
                node1__0DHD=((void **)old_buckets__ZDHD)[i__YDHD];
                while (((void *)node1__0DHD != (void *)NULL)) {
                  node2__1DHD=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__0DHD)->next__AKCC;
                  idx__WDHD=(__INTEGER)(hash_code__LQU(((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__0DHD)->key__VJCC) % Self__5YCC->capacity__FU3B);
                  ((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__0DHD)->next__AKCC=((void **)Self__5YCC->buckets__JJCC)[idx__WDHD];
                  ((void **)Self__5YCC->buckets__JJCC)[idx__WDHD]=node1__0DHD;
                  node1__0DHD=node2__1DHD;
                };
                i__YDHD=(__INTEGER)(i__YDHD -  1);
              };
              idx__JZCC=(__INTEGER)(h__IZCC % Self__5YCC->capacity__FU3B);
            };
            __tmp__Y0CC=((void **)Self__5YCC->buckets__JJCC)[idx__JZCC];
            result__5FHD=NULL;
            ptr__AGHD=((__POINTER )(NULL));
            typ_id__FGHD= 0;
            sz__CGHD=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo));
            if ((sz__CGHD ==  0)) {
              result__5FHD=HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__;
            } else {
              typ_id__FGHD=__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__;
              clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__CGHD);
              if ((typ_id__FGHD == (__INTEGER)(-  1))) {
                a__BEHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__CEHG=(__UINTEGER_32)((__UINTEGER_32)(sz__CGHD + a__BEHG) & (__UINTEGER_32)(~ a__BEHG));
                ptr_table__YHKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CEHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                next__XHKG=((__POINTER )(NULL));
                result__ZHKG=((__POINTER *)ptr_table__YHKG)[ 0];
                if ((result__ZHKG == (void *)NULL)) {
                  result__ZHKG=new_lab__RUJ(new_size__CEHG);
                  next__XHKG=(void *)((unsigned long)result__ZHKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CEHG)));
                  ((__POINTER *)next__XHKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__YHKG)[ 0]=next__XHKG;
                } else {
                  next__XHKG=((__POINTER *)result__ZHKG)[ 0];
                  if ((next__XHKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZHKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CEHG <<  1)) <=  4096)) {
                      next__XHKG=(void *)((unsigned long)result__ZHKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CEHG)));
                    } else {
                      next__XHKG=new_lab__RUJ(new_size__CEHG);
                    };
                    ((__POINTER *)next__XHKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__YHKG)[ 0]=next__XHKG;
                  } else {
                    ((__POINTER *)result__ZHKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__XHKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__ZHKG=next__XHKG;
                  };
                };
                ptr__AGHD=result__ZHKG;
              } else {
                t__GEHG=((__UINTEGER_32 )typ_id__FGHD);
                a__FEHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                new_size__AIKG=(__UINTEGER_32)((__UINTEGER_32)(sz__CGHD + a__FEHG) & (__UINTEGER_32)(~ a__FEHG));
                ptr_table__3HKG=((__POINTER )(&(table_type[(t__GEHG)])));
                lab_type__5HKG=(__UINTEGER_32)(t__GEHG |  1);
                next__2HKG=((__POINTER )(NULL));
                result__4HKG=((__POINTER *)ptr_table__3HKG)[ 0];
                if ((result__4HKG == (void *)NULL)) {
                  result__4HKG=new_lab__RUJ(lab_type__5HKG);
                  next__2HKG=(void *)((unsigned long)result__4HKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AIKG)));
                  ((__POINTER *)next__2HKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__3HKG)[ 0]=next__2HKG;
                } else {
                  next__2HKG=((__POINTER *)result__4HKG)[ 0];
                  if ((next__2HKG == (void *)NULL)) {
                    if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4HKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__AIKG <<  1)) <=  4096)) {
                      next__2HKG=(void *)((unsigned long)result__4HKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AIKG)));
                    } else {
                      next__2HKG=new_lab__RUJ(lab_type__5HKG);
                    };
                    ((__POINTER *)next__2HKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__3HKG)[ 0]=next__2HKG;
                  } else {
                    ((__POINTER *)result__4HKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__2HKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                    result__4HKG=next__2HKG;
                  };
                };
                ptr__AGHD=result__4HKG;
              };
              result__5FHD=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)ptr__AGHD);
              *(result__5FHD) = *(HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__);
            };
            Self__OLUD=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)result__5FHD);
            Self__OLUD->item__IKCC=v__AZCC;
            Self__OLUD->key__VJCC=__tmp__BXVB;
            Self__OLUD->next__AKCC=__tmp__Y0CC;
            node__KZCC=result__5FHD;
            ((void **)Self__5YCC->buckets__JJCC)[idx__JZCC]=result__5FHD;
            Self__5YCC->count__L0CC=(__INTEGER)(Self__5YCC->count__L0CC +  1);
          } else {
            ((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__KZCC)->item__IKCC=v__AZCC;
          };
          if (((void *)Self__3WVB->first_slot__CXVB == (void *)NULL)) {
            Self__3WVB->first_slot__CXVB=s__4WVB;
          };
          Self__3WVB->last_slot__UUC=s__4WVB;
          Self__NLZB=((__HASHED_SEToSTRING_CONSTANTo *)short_local__W1B);
          Self__NLZB->count__UKW= 0;
          __tmp__PLZB=Self__NLZB->buckets__3KT;
          __tmp__SLZB=(__INTEGER)(Self__NLZB->capacity__PNR -  1);
          Self__TXDC=((void **)__tmp__PLZB);
          Self__R5MC=__tmp__SLZB;
          while ((Self__R5MC >=  0)) {
            Self__TXDC[Self__R5MC]=NULL;
            Self__R5MC=(__INTEGER)(Self__R5MC -  1);
          };
        };
      } while (result__1BLB);
      if (((! is_short_private__5W) && ((void *)((__SECTION_ *)last_section__2TC)->name__FQ5B == (void *)(&__string_22)))) {
        remove_between__to__4IS(output_code__RI,(__INTEGER)(pos_sec__4QC + old_derive__5QC),(__INTEGER)((__INTEGER)(position__V0B + short_derive__O1B) -  1));
        short_derive__O1B=(__INTEGER)(old_derive__5QC - (__INTEGER)(position__V0B - pos_sec__4QC));
      };
      pos_sec__4QC=position__V0B;
      old_derive__5QC=short_derive__O1B;
      goto while_do__RXE;
    };
  };
  if (((void *)read_contract__AWF() != (void *)NULL)) {
    pos__VKZF=current_position__A0F();
    put_error__text__WRG( 2,(&__string_193));
    put_position__ATG(pos__VKZF);
    put_string__55F(msg_err__1RG);
    if ((type_error__0RG !=  2)) {
      exit(( 1));
    };
  };
  read_space__MMD();
  result__2Q5F='\0';
  if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
    result__2Q5F=((__CHARACTER )(( 0)));
  } else {
    result__2Q5F=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
  };
  if ((result__2Q5F != ((__CHARACTER )(( 0))))) {
    pos__XKZF=current_position__A0F();
    put_error__text__WRG( 0,(&__string_124));
    put_position__ATG(pos__XKZF);
    put_string__55F(msg_err__1RG);
    if ((type_error__0RG !=  2)) {
      exit(( 1));
    };
  };
  short__token__to__R0C((&__string_90),((__STRING *)source__S0B)->count__04B,((__STRING *)source__S0B)->count__04B);
  object__M0B=NULL;
}

static __MEMORY* new_page__NE3()
// () With resultNo recursive, No inlinable.
{
  __POINTER mem__HRMB;
  __UINTEGER_32 cap__ERMB,old_size__QE3;
  __MEMORY *block__WE3;
  if ((capacity_max__XE3 ==  0)) {
    mem__HRMB=((__POINTER )(NULL));
    cap__ERMB= 33554432;
    do {
      cap__ERMB=(__UINTEGER_32)(cap__ERMB <<  1);
      mem__HRMB=((__POINTER )(malloc((cap__ERMB))));
      if ((mem__HRMB != (void *)NULL)) {
        free((mem__HRMB));
      };
    } while ((! ((mem__HRMB == (void *)NULL) || (cap__ERMB ==  2147483648LU))));
    if ((mem__HRMB == (void *)NULL)) {
      cap__ERMB=(__UINTEGER_32)(cap__ERMB >>  1);
    };
    capacity_max__XE3=cap__ERMB;
    begin_memory__J0H=((__POINTER )(malloc((cap__ERMB))));
  };
  old_size__QE3=(__UINTEGER_32)(nb_page__DVJ <<  26);
  nb_page__DVJ=(__UINTEGER_32)(nb_page__DVJ +  1);
  if (((__UINTEGER_32)(old_size__QE3 +  67108864) > capacity_max__XE3)) {
    print__CCD((&__string_194));
    exit(( 1));
  };
  block__WE3=((__MEMORY *)(void *)((unsigned long)begin_memory__J0H - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__QE3))));
  block__WE3->previous_linear__XMB= 4294967295LU;
  block__WE3->size_and_id__YMB= 67108858;
  block__WE3->next_free__ZMB=first_free__EVRB;
  block__WE3->previous_free__0MB=NULL;
  if (((void *)first_free__EVRB != (void *)NULL)) {
    ((__MEMORY *)first_free__EVRB)->previous_free__0MB=block__WE3;
  };
  first_free__EVRB=block__WE3;
  last_block[((__UINTEGER_32)(nb_page__DVJ -  1))] = (block__WE3);
  return(block__WE3);
}

static void to_busy__index__IZBC(__MEMORY *Self__JZBC,__UINTEGER_32 sz__KZBC,__UINTEGER_32 idx__LZBC)
// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
{
  __MEMORY *new__SZBC,*prev__MWKC,*next__NWKC,*Self__PI4B,*Self__XDCG;
  __UINTEGER_32 siz__MZBC,new_size__PZBC;
  new__SZBC=NULL;
  prev__MWKC=Self__JZBC->previous_free__0MB;
  next__NWKC=Self__JZBC->next_free__ZMB;
  if (((void *)prev__MWKC == (void *)NULL)) {
    first_free__EVRB=next__NWKC;
  } else {
    ((__MEMORY *)prev__MWKC)->next_free__ZMB=next__NWKC;
  };
  if (((void *)next__NWKC != (void *)NULL)) {
    ((__MEMORY *)next__NWKC)->previous_free__0MB=prev__MWKC;
  };
  siz__MZBC=Self__JZBC->size_and_id__YMB;
  new_size__PZBC=(__UINTEGER_32)(siz__MZBC - sz__KZBC);
  if ((new_size__PZBC > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) +  2) +  8))) {
    siz__MZBC=sz__KZBC;
    new__SZBC=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__JZBC) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__KZBC))));
    ((__MEMORY *)new__SZBC)->previous_linear__XMB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__JZBC) - (unsigned long)begin_memory__J0H))));
    ((__MEMORY *)new__SZBC)->size_and_id__YMB=(__UINTEGER_32)(new_size__PZBC -  8);
    Self__PI4B=((__MEMORY *)new__SZBC);
    Self__PI4B->next_free__ZMB=first_free__EVRB;
    Self__PI4B->previous_free__0MB=NULL;
    if (((void *)first_free__EVRB != (void *)NULL)) {
      ((__MEMORY *)first_free__EVRB)->previous_free__0MB=Self__PI4B;
    };
    first_free__EVRB=Self__PI4B;
    if (((__UINTEGER_32)(((__MEMORY *)new__SZBC)->size_and_id__YMB &  2) !=  0)) {
      last_block[(idx__LZBC)] = (new__SZBC);
    } else {
      Self__XDCG=((__MEMORY *)new__SZBC);
      ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__XDCG) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__XDCG->size_and_id__YMB &  4294967292LU)))))->previous_linear__XMB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__SZBC)) - (unsigned long)begin_memory__J0H))));
    };
  };
  Self__JZBC->size_and_id__YMB=(__UINTEGER_32)(siz__MZBC |  1);
}

static void** create__JYMB(__INTEGER nb_elements__LYMB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__GSIG,a__FSIG,new_size__HSIG,new_size2__ISIG,a__JSIG;
  __UINTEGER_32 new_size__KSIG;
  __POINTER result__ESIG,ptr_table__HIKG,next__GIKG,result__IIKG;
  __INTEGER Self__4HJC;
  void **Result__2TPB;
  sz__GSIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__LYMB * ((__INTEGER )(sizeof(void *)))));
  result__ESIG=((__POINTER )(NULL));
  a__FSIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__HSIG=(__UINTEGER_32)((__UINTEGER_32)(sz__GSIG + a__FSIG) & (__UINTEGER_32)(~ a__FSIG));
  new_size2__ISIG=(__UINTEGER_32)(new_size__HSIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__ISIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__JSIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__KSIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ISIG + a__JSIG) & (__UINTEGER_32)(~ a__JSIG));
    ptr_table__HIKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KSIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__GIKG=((__POINTER )(NULL));
    result__IIKG=((__POINTER *)ptr_table__HIKG)[ 0];
    if ((result__IIKG == (void *)NULL)) {
      result__IIKG=new_lab__RUJ(new_size__KSIG);
      next__GIKG=(void *)((unsigned long)result__IIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KSIG)));
      ((__POINTER *)next__GIKG)[ 0]=NULL;
      ((__POINTER *)ptr_table__HIKG)[ 0]=next__GIKG;
    } else {
      next__GIKG=((__POINTER *)result__IIKG)[ 0];
      if ((next__GIKG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IIKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KSIG <<  1)) <=  4096)) {
          next__GIKG=(void *)((unsigned long)result__IIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KSIG)));
        } else {
          next__GIKG=new_lab__RUJ(new_size__KSIG);
        };
        ((__POINTER *)next__GIKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__HIKG)[ 0]=next__GIKG;
      } else {
        ((__POINTER *)result__IIKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__GIKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__IIKG=next__GIKG;
      };
    };
    ((__POINTER *)result__IIKG)[ 0]=((__POINTER ) 3);
    result__ESIG=(void *)((unsigned long)result__IIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__ESIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__HSIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__2TPB=((void **)result__ESIG);
  Self__4HJC=(__INTEGER)(nb_elements__LYMB -  1);
  while ((Self__4HJC >=  0)) {
    Result__2TPB[Self__4HJC]=NULL;
    Self__4HJC=(__INTEGER)(Self__4HJC -  1);
  };
  return(Result__2TPB);
}

static __BOOLEAN has__JSU(__HASHED_SEToABSTRACT_STRINGo *Self__KSU,void *e__LSU)
// ({HASHED_SEToABSTRACT_STRINGo},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *node__USU;
  node__USU=((void **)Self__KSU->buckets__E3P)[(__INTEGER)(hash_code__LQU(e__LSU) % Self__KSU->capacity__52P)];
  while ((! (((void *)node__USU == (void *)NULL) || __infix_equal_equal__GQBB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__USU)->item__Q3P,e__LSU)))) {
    node__USU=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__USU)->next__23P;
  };
  return(((void *)node__USU != (void *)NULL));
}

static void increase_capacity__G5JB(__HASHED_SEToABSTRACT_STRINGo *Self__H5JB)
// ({HASHED_SEToABSTRACT_STRINGo}) VoidNo recursive, No inlinable.
{
  __INTEGER idx__J5JB,new_capacity__K5JB,i__I5JB;
  void *node1__M5JB,*node2__N5JB;
  void **old_buckets__L5JB;
  idx__J5JB= 0;
  node1__M5JB=NULL;
  node2__N5JB=NULL;
  new_capacity__K5JB=prime_number_ceiling__33Z((__INTEGER)(Self__H5JB->capacity__52P +  1));
  old_buckets__L5JB=Self__H5JB->buckets__E3P;
  Self__H5JB->buckets__E3P=create__HJ0(new_capacity__K5JB);
  i__I5JB=(__INTEGER)(Self__H5JB->capacity__52P -  1);
  Self__H5JB->capacity__52P=new_capacity__K5JB;
  while ((i__I5JB >=  0)) {
    node1__M5JB=((void **)old_buckets__L5JB)[i__I5JB];
    while (((void *)node1__M5JB != (void *)NULL)) {
      node2__N5JB=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__M5JB)->next__23P;
      idx__J5JB=(__INTEGER)(hash_code__LQU(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__M5JB)->item__Q3P) % Self__H5JB->capacity__52P);
      ((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__M5JB)->next__23P=((void **)Self__H5JB->buckets__E3P)[idx__J5JB];
      ((void **)Self__H5JB->buckets__E3P)[idx__J5JB]=node1__M5JB;
      node1__M5JB=node2__N5JB;
    };
    i__I5JB=(__INTEGER)(i__I5JB -  1);
  };
}

static __INTEGER hash_code__VHV(__STRING *Self__WHV)
// ({STRING}) With resultNo recursive, No inlinable.
{
  __INTEGER result__YHV,__tmp__ZHV,Self__SU0;
  __CHARACTER *__tmp__D3FG;
  result__YHV= 0;
  __tmp__ZHV=Self__WHV->count__04B;
  Self__SU0= 1;
  __tmp__D3FG=Self__WHV->storage__HGQ;
  while ((Self__SU0 <= __tmp__ZHV)) {
    result__YHV=(__INTEGER)((__INTEGER)( 5 * result__YHV) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)__tmp__D3FG)[(__INTEGER)(Self__SU0 -  1)])));
    Self__SU0=(__INTEGER)(Self__SU0 +  1);
  };
  if ((result__YHV <  0)) {
    result__YHV=(__INTEGER)(~ result__YHV);
  };
  return(result__YHV);
}

static __BOOLEAN fast_has__W5V(__HASHED_SEToABSTRACT_STRINGo *Self__X5V,void *e__Y5V)
// ({HASHED_SEToABSTRACT_STRINGo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *node__BAW;
  node__BAW=((void **)Self__X5V->buckets__E3P)[(__INTEGER)(hash_code__LQU(e__Y5V) % Self__X5V->capacity__52P)];
  while ((! (((void *)node__BAW == (void *)NULL) || ((void *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__BAW)->item__Q3P == (void *)e__Y5V)))) {
    node__BAW=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__BAW)->next__23P;
  };
  return(((void *)node__BAW != (void *)NULL));
}

static void from_external__M2Q(__STRING *Self__N2Q,__CHARACTER *p__O2Q)
// ({STRING},{NULLxNATIVE_ARRAYoExpanded_CHARACTERo}) VoidNo recursive, No inlinable.
{
  Self__N2Q->count__04B= 0;
  while ((((__CHARACTER *)p__O2Q)[Self__N2Q->count__04B] != '\0')) {
    Self__N2Q->count__04B=(__INTEGER)(Self__N2Q->count__04B +  1);
  };
  if (((void *)Self__N2Q->storage__HGQ != (void *)p__O2Q)) {
    Self__N2Q->storage__HGQ=p__O2Q;
    Self__N2Q->capacity__4FQ=(__INTEGER)(Self__N2Q->count__04B +  1);
  };
}

static __INTEGER last_index_of__since__YXR(__STRING *Self__ZXR,__INTEGER start_index__1XR)
// ({STRING},{INTEGER}) With resultNo recursive, No inlinable.
{
  __INTEGER result__3XR;
  __CHARACTER *__tmp__Y3FG;
  result__3XR=start_index__1XR;
  __tmp__Y3FG=Self__ZXR->storage__HGQ;
  while ((! ((result__3XR <  1) || ('/' == ((__CHARACTER *)__tmp__Y3FG)[(__INTEGER)(result__3XR -  1)])))) {
    result__3XR=(__INTEGER)(result__3XR -  1);
  };
  return(result__3XR);
}

static __BOOLEAN has__YHR(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__ZHR,void *k__0HR)
// ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxSTRING}) With resultNo recursive, No inlinable.
{
  void *node__EIR;
  node__EIR=((void **)Self__ZHR->buckets__LIR)[(__INTEGER)(hash_code__VHV(k__0HR) % Self__ZHR->capacity__GIR)];
  while ((! (((void *)node__EIR == (void *)NULL) || __infix_equal_equal__GQBB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__EIR)->key__XIR,k__0HR)))) {
    node__EIR=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__EIR)->next__DJR;
  };
  return(((void *)node__EIR != (void *)NULL));
}

static void* at__MX1(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__NX1,void *k__OX1)
// ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxSTRING}) With resultNo recursive, No inlinable.
{
  void *node__YX1;
  node__YX1=((void **)Self__NX1->buckets__LIR)[(__INTEGER)(hash_code__VHV(k__OX1) % Self__NX1->capacity__GIR)];
  while ((! __infix_equal_equal__GQBB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__YX1)->key__XIR,k__OX1))) {
    node__YX1=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__YX1)->next__DJR;
  };
  return(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__YX1)->item__MY1);
}

static __BOOLEAN make_entry__5V3B(__ENTRY *Self__AW3B,void *p__BW3B)
// ({ENTRY},{NULLxSTRING}) With resultNo recursive, No inlinable.
{
  __STRING_CONSTANT *result__MDJG,*Self__NSIG,*Self__HUZC,*result__UDJG;
  __STRING_CONSTANT *Self__ZZVF,*Self__DGHG,*Self__ERAD;
  __POINTER ptr__NDJG,ptr_table__MIKG,next__LIKG,result__NIKG;
  __POINTER ptr_table__RIKG,next__QIKG,result__SIKG,ptr__VDJG;
  __POINTER ptr_table__1IKG,next__0IKG,result__2IKG,ptr_table__AJKG;
  __POINTER next__5IKG,result__BJKG,ptr__STPC,tt__JLFC;
  __INTEGER typ_id__ODJG,c__PSIG,Self__WIKG,result__KUZC,typ_id__WDJG;
  __INTEGER __tmp__ELFC,new_capacity__2DJG,old_nb_elts__5DJG;
  __INTEGER upper__HJKG,Self__FJKG,h__2KIG,m__4KIG,s__5KIG,h__UHLD;
  __INTEGER m__VHLD,s__WHLD;
  __UINTEGER_32 sz__PDJG,a__QDJG,new_size__RDJG,t__SDJG,a__TDJG;
  __UINTEGER_32 new_size__UIKG,lab_type__TIKG,sz__XDJG,a__YDJG;
  __UINTEGER_32 new_size__ZDJG,t__0DJG,a__1DJG,new_size__DJKG;
  __UINTEGER_32 lab_type__CJKG,date__YKIG,t__3KIG,date__SFLD,t__ZHLD;
  void *__tmp__2KFC;
  __STRING *new__BD0F,*Self__QSIG;
  __UINTEGER_16 y__TKIG,y__YYID;
  __CHARACTER *Self__XIKG,*model__YIKG,*__tmp__ALFC,*pe__ILFC;
  __CHARACTER *Self__4DJG,*new__AEJG;
  __BOOLEAN result__LLFC,__tmp__XLFC;
  __UINTEGER_8 m__UKIG,md__VKIG,wd__WKIG,m__UYID,md__RYID,wd__OYID;
  result__MDJG=NULL;
  ptr__NDJG=((__POINTER )(NULL));
  typ_id__ODJG= 0;
  sz__PDJG=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
  if ((sz__PDJG ==  0)) {
    result__MDJG=STRING_CONSTANT__;
  } else {
    typ_id__ODJG=-1;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__PDJG);
    if ((typ_id__ODJG == (__INTEGER)(-  1))) {
      a__QDJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__RDJG=(__UINTEGER_32)((__UINTEGER_32)(sz__PDJG + a__QDJG) & (__UINTEGER_32)(~ a__QDJG));
      ptr_table__MIKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RDJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__LIKG=((__POINTER )(NULL));
      result__NIKG=((__POINTER *)ptr_table__MIKG)[ 0];
      if ((result__NIKG == (void *)NULL)) {
        result__NIKG=new_lab__RUJ(new_size__RDJG);
        next__LIKG=(void *)((unsigned long)result__NIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RDJG)));
        ((__POINTER *)next__LIKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__MIKG)[ 0]=next__LIKG;
      } else {
        next__LIKG=((__POINTER *)result__NIKG)[ 0];
        if ((next__LIKG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NIKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__RDJG <<  1)) <=  4096)) {
            next__LIKG=(void *)((unsigned long)result__NIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RDJG)));
          } else {
            next__LIKG=new_lab__RUJ(new_size__RDJG);
          };
          ((__POINTER *)next__LIKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__MIKG)[ 0]=next__LIKG;
        } else {
          ((__POINTER *)result__NIKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__LIKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__NIKG=next__LIKG;
        };
      };
      ptr__NDJG=result__NIKG;
    } else {
      t__SDJG=((__UINTEGER_32 )typ_id__ODJG);
      a__TDJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__UIKG=(__UINTEGER_32)((__UINTEGER_32)(sz__PDJG + a__TDJG) & (__UINTEGER_32)(~ a__TDJG));
      ptr_table__RIKG=((__POINTER )(&(table_type[(t__SDJG)])));
      lab_type__TIKG=(__UINTEGER_32)(t__SDJG |  1);
      next__QIKG=((__POINTER )(NULL));
      result__SIKG=((__POINTER *)ptr_table__RIKG)[ 0];
      if ((result__SIKG == (void *)NULL)) {
        result__SIKG=new_lab__RUJ(lab_type__TIKG);
        next__QIKG=(void *)((unsigned long)result__SIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UIKG)));
        ((__POINTER *)next__QIKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__RIKG)[ 0]=next__QIKG;
      } else {
        next__QIKG=((__POINTER *)result__SIKG)[ 0];
        if ((next__QIKG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SIKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__UIKG <<  1)) <=  4096)) {
            next__QIKG=(void *)((unsigned long)result__SIKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UIKG)));
          } else {
            next__QIKG=new_lab__RUJ(lab_type__TIKG);
          };
          ((__POINTER *)next__QIKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__RIKG)[ 0]=next__QIKG;
        } else {
          ((__POINTER *)result__SIKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__QIKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__SIKG=next__QIKG;
        };
      };
      ptr__NDJG=result__SIKG;
    };
    result__MDJG=((__STRING_CONSTANT *)ptr__NDJG);
    *(result__MDJG) = *(STRING_CONSTANT__);
  };
  Self__NSIG=((__STRING_CONSTANT *)result__MDJG);
  c__PSIG=((__STRING *)p__BW3B)->count__04B;
  if ((c__PSIG !=  0)) {
    Self__NSIG->storage__E5M=create__D4BB(c__PSIG);
    Self__XIKG=((__CHARACTER *)Self__NSIG->storage__E5M);
    model__YIKG=((__STRING *)p__BW3B)->storage__HGQ;
    Self__WIKG=(__INTEGER)(c__PSIG -  1);
    while ((Self__WIKG >=  0)) {
      Self__XIKG[Self__WIKG]=((__CHARACTER *)model__YIKG)[Self__WIKG];
      Self__WIKG=(__INTEGER)(Self__WIKG -  1);
    };
    Self__NSIG->count__4C=c__PSIG;
  };
  Self__AW3B->parent_abstract_entry__LB.path__2C=result__MDJG;
  Self__HUZC=((__STRING_CONSTANT *)Self__AW3B->parent_abstract_entry__LB.path__2C);
  result__KUZC=(__INTEGER)( 1 + fast_reverse_index_of__from__GOAD(Self__HUZC->storage__E5M,(__INTEGER)(Self__HUZC->count__4C -  1)));
  if (((void *)Self__AW3B->parent_abstract_entry__LB.name__SKFC == (void *)NULL)) {
    result__UDJG=NULL;
    ptr__VDJG=((__POINTER )(NULL));
    typ_id__WDJG= 0;
    sz__XDJG=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
    if ((sz__XDJG ==  0)) {
      result__UDJG=STRING_CONSTANT__;
    } else {
      typ_id__WDJG=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__XDJG);
      if ((typ_id__WDJG == (__INTEGER)(-  1))) {
        a__YDJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__ZDJG=(__UINTEGER_32)((__UINTEGER_32)(sz__XDJG + a__YDJG) & (__UINTEGER_32)(~ a__YDJG));
        ptr_table__1IKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZDJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__0IKG=((__POINTER )(NULL));
        result__2IKG=((__POINTER *)ptr_table__1IKG)[ 0];
        if ((result__2IKG == (void *)NULL)) {
          result__2IKG=new_lab__RUJ(new_size__ZDJG);
          next__0IKG=(void *)((unsigned long)result__2IKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZDJG)));
          ((__POINTER *)next__0IKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__1IKG)[ 0]=next__0IKG;
        } else {
          next__0IKG=((__POINTER *)result__2IKG)[ 0];
          if ((next__0IKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2IKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ZDJG <<  1)) <=  4096)) {
              next__0IKG=(void *)((unsigned long)result__2IKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZDJG)));
            } else {
              next__0IKG=new_lab__RUJ(new_size__ZDJG);
            };
            ((__POINTER *)next__0IKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__1IKG)[ 0]=next__0IKG;
          } else {
            ((__POINTER *)result__2IKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__0IKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__2IKG=next__0IKG;
          };
        };
        ptr__VDJG=result__2IKG;
      } else {
        t__0DJG=((__UINTEGER_32 )typ_id__WDJG);
        a__1DJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__DJKG=(__UINTEGER_32)((__UINTEGER_32)(sz__XDJG + a__1DJG) & (__UINTEGER_32)(~ a__1DJG));
        ptr_table__AJKG=((__POINTER )(&(table_type[(t__0DJG)])));
        lab_type__CJKG=(__UINTEGER_32)(t__0DJG |  1);
        next__5IKG=((__POINTER )(NULL));
        result__BJKG=((__POINTER *)ptr_table__AJKG)[ 0];
        if ((result__BJKG == (void *)NULL)) {
          result__BJKG=new_lab__RUJ(lab_type__CJKG);
          next__5IKG=(void *)((unsigned long)result__BJKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DJKG)));
          ((__POINTER *)next__5IKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__AJKG)[ 0]=next__5IKG;
        } else {
          next__5IKG=((__POINTER *)result__BJKG)[ 0];
          if ((next__5IKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BJKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__DJKG <<  1)) <=  4096)) {
              next__5IKG=(void *)((unsigned long)result__BJKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DJKG)));
            } else {
              next__5IKG=new_lab__RUJ(lab_type__CJKG);
            };
            ((__POINTER *)next__5IKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__AJKG)[ 0]=next__5IKG;
          } else {
            ((__POINTER *)result__BJKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5IKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__BJKG=next__5IKG;
          };
        };
        ptr__VDJG=result__BJKG;
      };
      result__UDJG=((__STRING_CONSTANT *)ptr__VDJG);
      *(result__UDJG) = *(STRING_CONSTANT__);
    };
    Self__AW3B->parent_abstract_entry__LB.name__SKFC=result__UDJG;
  };
  __tmp__2KFC=Self__AW3B->parent_abstract_entry__LB.name__SKFC;
  ptr__STPC=((__POINTER )((__CHARACTER *)((__STRING_CONSTANT *)Self__AW3B->parent_abstract_entry__LB.path__2C)->storage__E5M));
  ptr__STPC=(void *)((unsigned long)ptr__STPC - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )result__KUZC)));
  __tmp__ALFC=((__CHARACTER *)ptr__STPC);
  __tmp__ELFC=(__INTEGER)(((__STRING_CONSTANT *)Self__AW3B->parent_abstract_entry__LB.path__2C)->count__4C - result__KUZC);
  Self__ZZVF=((__STRING_CONSTANT *)__tmp__2KFC);
  Self__ZZVF->storage__E5M=__tmp__ALFC;
  Self__ZZVF->count__4C=__tmp__ELFC;
  pe__ILFC=NULL;
  tt__JLFC=((__POINTER )(NULL));
  result__LLFC=FALSE__;
  if ((((__STRING_CONSTANT *)Self__AW3B->parent_abstract_entry__LB.path__2C)->count__4C ==  2)) {
    Self__DGHG=((__STRING_CONSTANT *)Self__AW3B->parent_abstract_entry__LB.path__2C);
    __tmp__XLFC=(((__CHARACTER *)Self__DGHG->storage__E5M)[(__INTEGER)(Self__DGHG->count__4C -  1)] == ':');
  } else {
    __tmp__XLFC=FALSE__;
  };
  if (__tmp__XLFC) {
    Self__AW3B->parent_abstract_entry__LB.is_directory__BC=TRUE__;
    result__LLFC=TRUE__;
  } else {
    Self__ERAD=((__STRING_CONSTANT *)Self__AW3B->parent_abstract_entry__LB.path__2C);
    new__BD0F=create__01(Self__ERAD->count__4C);
    copy__5GQ(new__BD0F,Self__ERAD);
    Self__QSIG=((__STRING *)new__BD0F);
    if ((Self__QSIG->capacity__4FQ > Self__QSIG->count__04B)) {
      Self__QSIG->count__04B=(__INTEGER)(Self__QSIG->count__04B +  1);
      if ((((__CHARACTER *)Self__QSIG->storage__HGQ)[(__INTEGER)(Self__QSIG->count__04B -  1)] != '\0')) {
        ((__CHARACTER *)Self__QSIG->storage__HGQ)[(__INTEGER)(Self__QSIG->count__04B -  1)]='\0';
      };
    } else {
      new_capacity__2DJG= 0;
      if ((Self__QSIG->capacity__4FQ <= Self__QSIG->count__04B)) {
        if ((Self__QSIG->capacity__4FQ ==  0)) {
          Self__QSIG->capacity__4FQ= 32;
          Self__QSIG->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__2DJG=(__INTEGER)(Self__QSIG->capacity__4FQ <<  1);
          Self__4DJG=((__CHARACTER *)Self__QSIG->storage__HGQ);
          old_nb_elts__5DJG=Self__QSIG->capacity__4FQ;
          new__AEJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__4DJG),((__UINTEGER_32 )old_nb_elts__5DJG),((__UINTEGER_32 )new_capacity__2DJG)));
          upper__HJKG=(__INTEGER)(new_capacity__2DJG -  1);
          Self__FJKG=old_nb_elts__5DJG;
          while ((Self__FJKG <= upper__HJKG)) {
            new__AEJG[Self__FJKG]='\0';
            Self__FJKG=(__INTEGER)(Self__FJKG +  1);
          };
          Self__QSIG->storage__HGQ=new__AEJG;
          Self__QSIG->capacity__4FQ=new_capacity__2DJG;
        };
      };
      ((__CHARACTER *)Self__QSIG->storage__HGQ)[Self__QSIG->count__04B]='\0';
      Self__QSIG->count__04B=(__INTEGER)(Self__QSIG->count__04B +  1);
    };
    Self__QSIG->count__04B=(__INTEGER)(Self__QSIG->count__04B -  1);
    pe__ILFC=Self__QSIG->storage__HGQ;
    { struct stat t;
    result__LLFC=(((__INTEGER )(stat((pe__ILFC),&t))) ==  0);
    if (result__LLFC) {
      Self__AW3B->parent_abstract_entry__LB.is_directory__BC=((__BOOLEAN )(S_ISDIR(t.st_mode)));
      tt__JLFC=((__POINTER )(localtime(&(t.st_atime))));
      y__TKIG=(__UINTEGER_16)(((__UINTEGER_16 )(((struct tm *)(tt__JLFC))->tm_year)) +  1900);
      m__UKIG=(__UINTEGER_8)(((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_mon)) +  1);
      md__VKIG=((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_mday));
      wd__WKIG=((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_wday));
      if ((! (( 1 <= wd__WKIG) && ( 7 >= wd__WKIG)))) {
        wd__WKIG= 1;
      };
      date__YKIG=(__UINTEGER_32)(((__UINTEGER_32 )y__TKIG) <<  16);
      date__YKIG=(__UINTEGER_32)(date__YKIG | (__UINTEGER_32)(((__UINTEGER_32 )m__UKIG) <<  8));
      date__YKIG=(__UINTEGER_32)(date__YKIG | ((__UINTEGER_32 )md__VKIG));
      date__YKIG=(__UINTEGER_32)(date__YKIG | ((__UINTEGER_32 )(__UINTEGER_8)(wd__WKIG <<  5)));
      h__2KIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_hour)));
      m__4KIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_min)));
      s__5KIG=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_sec)));
      t__3KIG=(__UINTEGER_32)(((__UINTEGER_32 )h__2KIG) <<  24);
      t__3KIG=(__UINTEGER_32)(t__3KIG | (__UINTEGER_32)(((__UINTEGER_32 )m__4KIG) <<  16));
      t__3KIG=(__UINTEGER_32)(t__3KIG | (__UINTEGER_32)(((__UINTEGER_32 )s__5KIG) <<  8));
      tt__JLFC=((__POINTER )(localtime(&(t.st_mtime))));
      y__YYID=(__UINTEGER_16)(((__UINTEGER_16 )(((struct tm *)(tt__JLFC))->tm_year)) +  1900);
      m__UYID=(__UINTEGER_8)(((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_mon)) +  1);
      md__RYID=((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_mday));
      wd__OYID=((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_wday));
      if ((! (( 1 <= wd__OYID) && ( 7 >= wd__OYID)))) {
        wd__OYID= 1;
      };
      date__SFLD=(__UINTEGER_32)(((__UINTEGER_32 )y__YYID) <<  16);
      date__SFLD=(__UINTEGER_32)(date__SFLD | (__UINTEGER_32)(((__UINTEGER_32 )m__UYID) <<  8));
      date__SFLD=(__UINTEGER_32)(date__SFLD | ((__UINTEGER_32 )md__RYID));
      date__SFLD=(__UINTEGER_32)(date__SFLD | ((__UINTEGER_32 )(__UINTEGER_8)(wd__OYID <<  5)));
      h__UHLD=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_hour)));
      m__VHLD=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_min)));
      s__WHLD=((__INTEGER )((__UINTEGER_8 )(((struct tm *)(tt__JLFC))->tm_sec)));
      t__ZHLD=(__UINTEGER_32)(((__UINTEGER_32 )h__UHLD) <<  24);
      t__ZHLD=(__UINTEGER_32)(t__ZHLD | (__UINTEGER_32)(((__UINTEGER_32 )m__VHLD) <<  16));
      t__ZHLD=(__UINTEGER_32)(t__ZHLD | (__UINTEGER_32)(((__UINTEGER_32 )s__WHLD) <<  8));
    };
    };
  };
  return(result__LLFC);
}

static void put__to__PJ0D(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__QJ0D,void *v__RJ0D,void *k__SJ0D)
// ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxENTRY},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
{
  __INTEGER h__ZJ0D,idx__0J0D,idx__JQPE,new_capacity__KQPE,i__LQPE;
  __INTEGER typ_id__YSPE;
  __POINTER ptr__TSPE,ptr_table__KJKG,next__JJKG,result__LJKG;
  __POINTER ptr_table__PJKG,next__OJKG,result__QJKG;
  __UINTEGER_32 sz__VSPE,a__SGHG,new_size__TGHG,t__XGHG,a__WGHG;
  __UINTEGER_32 new_size__SJKG,lab_type__RJKG;
  void *node__1J0D,*node1__NQPE,*node2__OQPE,*__tmp__JL0D;
  void **old_buckets__MQPE;
  __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *result__SSPE;
  __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *Self__BZTE;
  h__ZJ0D=hash_code__LQU(k__SJ0D);
  idx__0J0D=(__INTEGER)(h__ZJ0D % Self__QJ0D->capacity__GIR);
  node__1J0D=((void **)Self__QJ0D->buckets__LIR)[idx__0J0D];
  while ((! (((void *)node__1J0D == (void *)NULL) || __infix_equal_equal__GQBB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__1J0D)->key__XIR,k__SJ0D)))) {
    node__1J0D=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__1J0D)->next__DJR;
  };
  if (((void *)node__1J0D == (void *)NULL)) {
    if ((Self__QJ0D->capacity__GIR == Self__QJ0D->count__GPW)) {
      idx__JQPE= 0;
      node1__NQPE=NULL;
      node2__OQPE=NULL;
      old_buckets__MQPE=Self__QJ0D->buckets__LIR;
      new_capacity__KQPE=prime_number_ceiling__33Z((__INTEGER)(Self__QJ0D->capacity__GIR +  1));
      Self__QJ0D->buckets__LIR=create__KG2(new_capacity__KQPE);
      i__LQPE=(__INTEGER)(Self__QJ0D->capacity__GIR -  1);
      Self__QJ0D->capacity__GIR=new_capacity__KQPE;
      while ((i__LQPE >=  0)) {
        node1__NQPE=((void **)old_buckets__MQPE)[i__LQPE];
        while (((void *)node1__NQPE != (void *)NULL)) {
          node2__OQPE=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__NQPE)->next__DJR;
          idx__JQPE=(__INTEGER)(hash_code__LQU(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__NQPE)->key__XIR) % Self__QJ0D->capacity__GIR);
          ((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__NQPE)->next__DJR=((void **)Self__QJ0D->buckets__LIR)[idx__JQPE];
          ((void **)Self__QJ0D->buckets__LIR)[idx__JQPE]=node1__NQPE;
          node1__NQPE=node2__OQPE;
        };
        i__LQPE=(__INTEGER)(i__LQPE -  1);
      };
      idx__0J0D=(__INTEGER)(h__ZJ0D % Self__QJ0D->capacity__GIR);
    };
    __tmp__JL0D=((void **)Self__QJ0D->buckets__LIR)[idx__0J0D];
    result__SSPE=NULL;
    ptr__TSPE=((__POINTER )(NULL));
    typ_id__YSPE= 0;
    sz__VSPE=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo));
    if ((sz__VSPE ==  0)) {
      result__SSPE=HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__;
    } else {
      typ_id__YSPE=__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__VSPE);
      if ((typ_id__YSPE == (__INTEGER)(-  1))) {
        a__SGHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__TGHG=(__UINTEGER_32)((__UINTEGER_32)(sz__VSPE + a__SGHG) & (__UINTEGER_32)(~ a__SGHG));
        ptr_table__KJKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TGHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__JJKG=((__POINTER )(NULL));
        result__LJKG=((__POINTER *)ptr_table__KJKG)[ 0];
        if ((result__LJKG == (void *)NULL)) {
          result__LJKG=new_lab__RUJ(new_size__TGHG);
          next__JJKG=(void *)((unsigned long)result__LJKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TGHG)));
          ((__POINTER *)next__JJKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__KJKG)[ 0]=next__JJKG;
        } else {
          next__JJKG=((__POINTER *)result__LJKG)[ 0];
          if ((next__JJKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LJKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__TGHG <<  1)) <=  4096)) {
              next__JJKG=(void *)((unsigned long)result__LJKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TGHG)));
            } else {
              next__JJKG=new_lab__RUJ(new_size__TGHG);
            };
            ((__POINTER *)next__JJKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__KJKG)[ 0]=next__JJKG;
          } else {
            ((__POINTER *)result__LJKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__JJKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__LJKG=next__JJKG;
          };
        };
        ptr__TSPE=result__LJKG;
      } else {
        t__XGHG=((__UINTEGER_32 )typ_id__YSPE);
        a__WGHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__SJKG=(__UINTEGER_32)((__UINTEGER_32)(sz__VSPE + a__WGHG) & (__UINTEGER_32)(~ a__WGHG));
        ptr_table__PJKG=((__POINTER )(&(table_type[(t__XGHG)])));
        lab_type__RJKG=(__UINTEGER_32)(t__XGHG |  1);
        next__OJKG=((__POINTER )(NULL));
        result__QJKG=((__POINTER *)ptr_table__PJKG)[ 0];
        if ((result__QJKG == (void *)NULL)) {
          result__QJKG=new_lab__RUJ(lab_type__RJKG);
          next__OJKG=(void *)((unsigned long)result__QJKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJKG)));
          ((__POINTER *)next__OJKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__PJKG)[ 0]=next__OJKG;
        } else {
          next__OJKG=((__POINTER *)result__QJKG)[ 0];
          if ((next__OJKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QJKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SJKG <<  1)) <=  4096)) {
              next__OJKG=(void *)((unsigned long)result__QJKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJKG)));
            } else {
              next__OJKG=new_lab__RUJ(lab_type__RJKG);
            };
            ((__POINTER *)next__OJKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__PJKG)[ 0]=next__OJKG;
          } else {
            ((__POINTER *)result__QJKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__OJKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__QJKG=next__OJKG;
          };
        };
        ptr__TSPE=result__QJKG;
      };
      result__SSPE=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)ptr__TSPE);
      *(result__SSPE) = *(HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__);
    };
    Self__BZTE=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)result__SSPE);
    Self__BZTE->item__MY1=v__RJ0D;
    Self__BZTE->key__XIR=k__SJ0D;
    Self__BZTE->next__DJR=__tmp__JL0D;
    node__1J0D=result__SSPE;
    ((void **)Self__QJ0D->buckets__LIR)[idx__0J0D]=result__SSPE;
    Self__QJ0D->count__GPW=(__INTEGER)(Self__QJ0D->count__GPW +  1);
  } else {
    ((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__1J0D)->item__MY1=v__RJ0D;
  };
}

static void reduce_path__KOFF(void *st__MOFF)
// ({NULLxSTRING}) VoidNo recursive, No inlinable.
{
  __INTEGER stat__OOFF,i__NOFF,Self__YCPF,n__SSIG,idx__5PFF,n__USIG;
  __INTEGER Self__SHRF,n__WSIG,idx__FUFF,new_capacity__FEJG;
  __INTEGER old_nb_elts__IEJG,upper__WJKG,Self__UJKG;
  __STRING *Self__RSIG,*Self__TSIG,*Self__VSIG,*Self__1GHG,*Self__3GHG;
  __STRING *Self__GEJG;
  __CHARACTER car__POFF,Self__DEJG;
  __BOOLEAN __tmp__WQFF,__tmp__1RFF,result__QPOF,result__CEJG;
  __BOOLEAN __tmp__EEJG,__tmp__2SFF;
  __CHARACTER *Self__HEJG,*new__JEJG;
  stat__OOFF= 0;
  car__POFF='\0';
  replace_all__with__HTQ(st__MOFF,'\\','/');
  i__NOFF= 1;
  while ((i__NOFF <= ((__STRING *)st__MOFF)->count__04B)) {
    car__POFF=((__CHARACTER *)((__STRING *)st__MOFF)->storage__HGQ)[(__INTEGER)(i__NOFF -  1)];
    if ((car__POFF == '/')) {
      Self__YCPF=stat__OOFF;
      if ((stat__OOFF ==  0)) {
        stat__OOFF= 1;
      };
      if ((Self__YCPF ==  1)) {
        Self__RSIG=((__STRING *)st__MOFF);
        n__SSIG=(__INTEGER)(i__NOFF -  1);
        if ((n__SSIG > Self__RSIG->count__04B)) {
          Self__RSIG->count__04B= 0;
        } else {
          if ((n__SSIG >  0)) {
            remove_between__to__4IS(Self__RSIG, 1,n__SSIG);
          };
        };
        i__NOFF= 1;
      };
      if ((Self__YCPF ==  2)) {
        remove_between__to__4IS(st__MOFF,(__INTEGER)(i__NOFF -  1),i__NOFF);
        i__NOFF=(__INTEGER)(i__NOFF -  2);
        stat__OOFF= 1;
      };
      if ((Self__YCPF ==  3)) {
        idx__5PFF=last_index_of__since__YXR(st__MOFF,(__INTEGER)(i__NOFF -  4));
        if ((idx__5PFF ==  0)) {
          Self__TSIG=((__STRING *)st__MOFF);
          n__USIG=(__INTEGER)(i__NOFF -  1);
          if ((n__USIG > Self__TSIG->count__04B)) {
            Self__TSIG->count__04B= 0;
          } else {
            if ((n__USIG >  0)) {
              remove_between__to__4IS(Self__TSIG, 1,n__USIG);
            };
          };
          i__NOFF= 1;
        } else {
          remove_between__to__4IS(st__MOFF,idx__5PFF,(__INTEGER)(i__NOFF -  1));
          i__NOFF=idx__5PFF;
        };
        stat__OOFF= 1;
      };
      __tmp__WQFF=TRUE__;
    } else {
      __tmp__WQFF=FALSE__;
    };
    if (__tmp__WQFF) {
      __tmp__1RFF=TRUE__;
    } else {
      result__QPOF=(car__POFF == '.');
      if (result__QPOF) {
        Self__SHRF=stat__OOFF;
        if ((stat__OOFF ==  1)) {
          stat__OOFF= 2;
        };
        if ((Self__SHRF ==  2)) {
          stat__OOFF= 3;
        };
        if ((Self__SHRF ==  3)) {
          stat__OOFF= 0;
        };
      };
      __tmp__1RFF=result__QPOF;
    };
    if ((! __tmp__1RFF)) {
      if (((car__POFF == ':') && (i__NOFF >  2))) {
        Self__DEJG=((__CHARACTER *)((__STRING *)st__MOFF)->storage__HGQ)[(__INTEGER)((__INTEGER)(i__NOFF -  1) -  1)];
        result__CEJG=FALSE__;
        if ((((__INTEGER_8 )Self__DEJG) >= ((__INTEGER_8 )'a'))) {
          result__CEJG=(((__INTEGER_8 )Self__DEJG) <= ((__INTEGER_8 )'z'));
          __tmp__EEJG=TRUE__;
        } else {
          __tmp__EEJG=FALSE__;
        };
        if ((! __tmp__EEJG)) {
          if ((((__INTEGER_8 )Self__DEJG) >= ((__INTEGER_8 )'A'))) {
            result__CEJG=(((__INTEGER_8 )Self__DEJG) <= ((__INTEGER_8 )'Z'));
          };
        };
        __tmp__2SFF=result__CEJG;
      } else {
        __tmp__2SFF=FALSE__;
      };
      if ((__tmp__2SFF && (((__CHARACTER *)((__STRING *)st__MOFF)->storage__HGQ)[(__INTEGER)((__INTEGER)(i__NOFF -  2) -  1)] == '/'))) {
        Self__VSIG=((__STRING *)st__MOFF);
        n__WSIG=(__INTEGER)(i__NOFF -  2);
        if ((n__WSIG > Self__VSIG->count__04B)) {
          Self__VSIG->count__04B= 0;
        } else {
          if ((n__WSIG >  0)) {
            remove_between__to__4IS(Self__VSIG, 1,n__WSIG);
          };
        };
        i__NOFF= 1;
      } else {
        stat__OOFF= 0;
      };
    };
    i__NOFF=(__INTEGER)(i__NOFF +  1);
  };
  if ((stat__OOFF ==  1)) {
    Self__1GHG=((__STRING *)st__MOFF);
    if (( 1 > Self__1GHG->count__04B)) {
      Self__1GHG->count__04B= 0;
    } else {
      Self__1GHG->count__04B=(__INTEGER)(Self__1GHG->count__04B -  1);
    };
  };
  if ((stat__OOFF ==  2)) {
    Self__3GHG=((__STRING *)st__MOFF);
    if (( 2 > Self__3GHG->count__04B)) {
      Self__3GHG->count__04B= 0;
    } else {
      Self__3GHG->count__04B=(__INTEGER)(Self__3GHG->count__04B -  2);
    };
  };
  if ((stat__OOFF ==  3)) {
    idx__FUFF=last_index_of__since__YXR(st__MOFF,(__INTEGER)(i__NOFF -  4));
    if ((idx__FUFF ==  0)) {
      ((__STRING *)st__MOFF)->count__04B= 0;
    } else {
      remove_between__to__4IS(st__MOFF,idx__FUFF,(__INTEGER)(i__NOFF -  1));
    };
  };
  if ((((__STRING *)st__MOFF)->count__04B ==  0)) {
    Self__GEJG=((__STRING *)st__MOFF);
    new_capacity__FEJG= 0;
    if ((Self__GEJG->capacity__4FQ <= Self__GEJG->count__04B)) {
      if ((Self__GEJG->capacity__4FQ ==  0)) {
        Self__GEJG->capacity__4FQ= 32;
        Self__GEJG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__FEJG=(__INTEGER)(Self__GEJG->capacity__4FQ <<  1);
        Self__HEJG=((__CHARACTER *)Self__GEJG->storage__HGQ);
        old_nb_elts__IEJG=Self__GEJG->capacity__4FQ;
        new__JEJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__HEJG),((__UINTEGER_32 )old_nb_elts__IEJG),((__UINTEGER_32 )new_capacity__FEJG)));
        upper__WJKG=(__INTEGER)(new_capacity__FEJG -  1);
        Self__UJKG=old_nb_elts__IEJG;
        while ((Self__UJKG <= upper__WJKG)) {
          new__JEJG[Self__UJKG]='\0';
          Self__UJKG=(__INTEGER)(Self__UJKG +  1);
        };
        Self__GEJG->storage__HGQ=new__JEJG;
        Self__GEJG->capacity__4FQ=new_capacity__FEJG;
      };
    };
    ((__CHARACTER *)Self__GEJG->storage__HGQ)[Self__GEJG->count__04B]='/';
    Self__GEJG->count__04B=(__INTEGER)(Self__GEJG->count__04B +  1);
  };
}

static void* get_entry__HWFF(void *p__JWFF)
// ({NULLxSTRING}) With resultNo recursive, No inlinable.
{
  void *result__MWFF;
  __ENTRY *result__LEJG;
  __POINTER ptr__MEJG,ptr_table__ZJKG,next__YJKG,result__0JKG;
  __POINTER ptr_table__4JKG,next__3JKG,result__5JKG;
  __INTEGER typ_id__NEJG;
  __UINTEGER_32 sz__OEJG,a__PEJG,new_size__QEJG,t__REJG,a__SEJG;
  __UINTEGER_32 new_size__BKKG,lab_type__AKKG;
  result__MWFF=NULL;
  if (FILE_SYSTEM__->parent_directory__K5C==0) {
  } else {
    parent_directory__U3C();
  };
  if (has__YHR(alias__WBF,p__JWFF)) {
    if (FILE_SYSTEM__->parent_directory__K5C==0) {
    } else {
      parent_directory__U3C();
    };
    result__MWFF=at__MX1(alias__WBF,p__JWFF);
  } else {
    result__LEJG=NULL;
    ptr__MEJG=((__POINTER )(NULL));
    typ_id__NEJG= 0;
    sz__OEJG=((__UINTEGER_32 )sizeof(__ENTRY));
    if ((sz__OEJG ==  0)) {
      result__LEJG=ENTRY__;
    } else {
      typ_id__NEJG=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__OEJG);
      if ((typ_id__NEJG == (__INTEGER)(-  1))) {
        a__PEJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__QEJG=(__UINTEGER_32)((__UINTEGER_32)(sz__OEJG + a__PEJG) & (__UINTEGER_32)(~ a__PEJG));
        ptr_table__ZJKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QEJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__YJKG=((__POINTER )(NULL));
        result__0JKG=((__POINTER *)ptr_table__ZJKG)[ 0];
        if ((result__0JKG == (void *)NULL)) {
          result__0JKG=new_lab__RUJ(new_size__QEJG);
          next__YJKG=(void *)((unsigned long)result__0JKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QEJG)));
          ((__POINTER *)next__YJKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__ZJKG)[ 0]=next__YJKG;
        } else {
          next__YJKG=((__POINTER *)result__0JKG)[ 0];
          if ((next__YJKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0JKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__QEJG <<  1)) <=  4096)) {
              next__YJKG=(void *)((unsigned long)result__0JKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QEJG)));
            } else {
              next__YJKG=new_lab__RUJ(new_size__QEJG);
            };
            ((__POINTER *)next__YJKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__ZJKG)[ 0]=next__YJKG;
          } else {
            ((__POINTER *)result__0JKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__YJKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__0JKG=next__YJKG;
          };
        };
        ptr__MEJG=result__0JKG;
      } else {
        t__REJG=((__UINTEGER_32 )typ_id__NEJG);
        a__SEJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__BKKG=(__UINTEGER_32)((__UINTEGER_32)(sz__OEJG + a__SEJG) & (__UINTEGER_32)(~ a__SEJG));
        ptr_table__4JKG=((__POINTER )(&(table_type[(t__REJG)])));
        lab_type__AKKG=(__UINTEGER_32)(t__REJG |  1);
        next__3JKG=((__POINTER )(NULL));
        result__5JKG=((__POINTER *)ptr_table__4JKG)[ 0];
        if ((result__5JKG == (void *)NULL)) {
          result__5JKG=new_lab__RUJ(lab_type__AKKG);
          next__3JKG=(void *)((unsigned long)result__5JKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BKKG)));
          ((__POINTER *)next__3JKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__4JKG)[ 0]=next__3JKG;
        } else {
          next__3JKG=((__POINTER *)result__5JKG)[ 0];
          if ((next__3JKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5JKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__BKKG <<  1)) <=  4096)) {
              next__3JKG=(void *)((unsigned long)result__5JKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BKKG)));
            } else {
              next__3JKG=new_lab__RUJ(lab_type__AKKG);
            };
            ((__POINTER *)next__3JKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__4JKG)[ 0]=next__3JKG;
          } else {
            ((__POINTER *)result__5JKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3JKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__5JKG=next__3JKG;
          };
        };
        ptr__MEJG=result__5JKG;
      };
      result__LEJG=((__ENTRY *)ptr__MEJG);
      *(result__LEJG) = *(ENTRY__);
    };
    if (make_entry__5V3B(result__LEJG,p__JWFF)) {
      if (FILE_SYSTEM__->parent_directory__K5C==0) {
      } else {
        parent_directory__U3C();
      };
      put__to__PJ0D(alias__WBF,result__LEJG,result__LEJG->parent_abstract_entry__LB.path__2C);
      result__MWFF=result__LEJG;
    };
  };
  return(result__MWFF);
}

static void** create__QOPC(__INTEGER nb_elements__SOPC)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__ZSIG,a__YSIG,new_size__0SIG,new_size2__1SIG,a__2SIG;
  __UINTEGER_32 new_size__3SIG;
  __POINTER result__XSIG,ptr_table__DKKG,next__CKKG,result__EKKG;
  __INTEGER Self__3CXD;
  void **Result__KNZC;
  sz__ZSIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__SOPC * ((__INTEGER )(sizeof(void *)))));
  result__XSIG=((__POINTER )(NULL));
  a__YSIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__0SIG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSIG + a__YSIG) & (__UINTEGER_32)(~ a__YSIG));
  new_size2__1SIG=(__UINTEGER_32)(new_size__0SIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__1SIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__2SIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__3SIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1SIG + a__2SIG) & (__UINTEGER_32)(~ a__2SIG));
    ptr_table__DKKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3SIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__CKKG=((__POINTER )(NULL));
    result__EKKG=((__POINTER *)ptr_table__DKKG)[ 0];
    if ((result__EKKG == (void *)NULL)) {
      result__EKKG=new_lab__RUJ(new_size__3SIG);
      next__CKKG=(void *)((unsigned long)result__EKKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3SIG)));
      ((__POINTER *)next__CKKG)[ 0]=NULL;
      ((__POINTER *)ptr_table__DKKG)[ 0]=next__CKKG;
    } else {
      next__CKKG=((__POINTER *)result__EKKG)[ 0];
      if ((next__CKKG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EKKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__3SIG <<  1)) <=  4096)) {
          next__CKKG=(void *)((unsigned long)result__EKKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3SIG)));
        } else {
          next__CKKG=new_lab__RUJ(new_size__3SIG);
        };
        ((__POINTER *)next__CKKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__DKKG)[ 0]=next__CKKG;
      } else {
        ((__POINTER *)result__EKKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CKKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__EKKG=next__CKKG;
      };
    };
    ((__POINTER *)result__EKKG)[ 0]=((__POINTER ) 3);
    result__XSIG=(void *)((unsigned long)result__EKKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__XSIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__0SIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__KNZC=((void **)result__XSIG);
  Self__3CXD=(__INTEGER)(nb_elements__SOPC -  1);
  while ((Self__3CXD >=  0)) {
    Result__KNZC[Self__3CXD]=NULL;
    Self__3CXD=(__INTEGER)(Self__3CXD -  1);
  };
  return(Result__KNZC);
}

static void short__token__to__R0C(void *key__T0C,__INTEGER beg__U0C,__INTEGER end__V0C)
// ({NULLxSTRING_CONSTANT},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
{
  __INTEGER pos__W0C,__tmp__R1C,Self__HK2,new_capacity__FFJG;
  __INTEGER old_nb_elts__IFJG,upper__ZKKG,Self__XKKG,__tmp__H2C;
  __INTEGER Self__YL2,__tmp__32C,__tmp__A3C;
  void *add_text__X0C;
  __STRING *Self__GFJG;
  void *fmt__Y0C;
  __CHARACTER ch__KFJG;
  __CHARACTER *Self__HFJG,*new__JFJG;
  pos__W0C= 0;
  add_text__X0C=NULL;
  fmt__Y0C=NULL;
  if (is_active_short__L1B) {
    if (fast_has__ZER(short_dico__LD,key__T0C)) {
      ((__STRING *)token__M1C)->count__04B= 0;
      pos__W0C=(__INTEGER)(beg__U0C + short_derive__O1B);
      __tmp__R1C=(__INTEGER)(end__V0C -  1);
      Self__HK2=beg__U0C;
      while ((Self__HK2 <= __tmp__R1C)) {
        Self__GFJG=((__STRING *)token__M1C);
        ch__KFJG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(Self__HK2 -  1)];
        new_capacity__FFJG= 0;
        if ((Self__GFJG->capacity__4FQ <= Self__GFJG->count__04B)) {
          if ((Self__GFJG->capacity__4FQ ==  0)) {
            Self__GFJG->capacity__4FQ= 32;
            Self__GFJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__FFJG=(__INTEGER)(Self__GFJG->capacity__4FQ <<  1);
            Self__HFJG=((__CHARACTER *)Self__GFJG->storage__HGQ);
            old_nb_elts__IFJG=Self__GFJG->capacity__4FQ;
            new__JFJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__HFJG),((__UINTEGER_32 )old_nb_elts__IFJG),((__UINTEGER_32 )new_capacity__FFJG)));
            upper__ZKKG=(__INTEGER)(new_capacity__FFJG -  1);
            Self__XKKG=old_nb_elts__IFJG;
            while ((Self__XKKG <= upper__ZKKG)) {
              new__JFJG[Self__XKKG]='\0';
              Self__XKKG=(__INTEGER)(Self__XKKG +  1);
            };
            Self__GFJG->storage__HGQ=new__JFJG;
            Self__GFJG->capacity__4FQ=new_capacity__FFJG;
          };
        };
        ((__CHARACTER *)Self__GFJG->storage__HGQ)[Self__GFJG->count__04B]=ch__KFJG;
        Self__GFJG->count__04B=(__INTEGER)(Self__GFJG->count__04B +  1);
        remove_between__to__4IS(((__STRING *)output_code__RI),pos__W0C,pos__W0C);
        Self__HK2=(__INTEGER)(Self__HK2 +  1);
      };
      short_derive__O1B=(__INTEGER)(short_derive__O1B - ((__STRING *)token__M1C)->count__04B);
      fmt__Y0C=at__VK2(short_dico__LD,key__T0C);
      __tmp__H2C=((__LINKED_LISToSTRING_CONSTANTo *)fmt__Y0C)->parent_linked_collection__GD.upper__F2C;
      Self__YL2= 1;
      while ((Self__YL2 <= __tmp__H2C)) {
        if (((void *)item__WZPD(fmt__Y0C,Self__YL2) == (void *)NULL)) {
          add_text__X0C=token__M1C;
        } else {
          add_text__X0C=item__WZPD(fmt__Y0C,Self__YL2);
        };
        insert_string__to__SCT(output_code__RI,add_text__X0C,pos__W0C);
        if (((struct ___OBJ *)add_text__X0C)->__id==__STRING_CONSTANT__) {
          __tmp__32C=((__STRING_CONSTANT *)add_text__X0C)->count__4C;
        } else {
          __tmp__32C=((__STRING *)add_text__X0C)->count__04B;
        };
        pos__W0C=(__INTEGER)(pos__W0C + __tmp__32C);
        if (((struct ___OBJ *)add_text__X0C)->__id==__STRING_CONSTANT__) {
          __tmp__A3C=((__STRING_CONSTANT *)add_text__X0C)->count__4C;
        } else {
          __tmp__A3C=((__STRING *)add_text__X0C)->count__04B;
        };
        short_derive__O1B=(__INTEGER)(short_derive__O1B + __tmp__A3C);
        Self__YL2=(__INTEGER)(Self__YL2 +  1);
      };
    };
  };
}

static __INTEGER first_substring_index__D15E(__STRING *Self__E15E)
// ({STRING}) With resultNo recursive, No inlinable.
{
  __INTEGER i__YQDF,result__0QDF,s__ZQDF,__tmp__Q4FG,__tmp__R4FG;
  __INTEGER __tmp__S4FG,__tmp__V4FG;
  __CHARACTER *__tmp__T4FG,*__tmp__U4FG;
  i__YQDF= 0;
  result__0QDF= 0;
  s__ZQDF= 1;
  __tmp__Q4FG=((__STRING_CONSTANT *)(&__string_84))->count__4C;
  __tmp__R4FG=Self__E15E->count__04B;
  __tmp__S4FG=((__STRING_CONSTANT *)(&__string_84))->count__4C;
  __tmp__T4FG=Self__E15E->storage__HGQ;
  __tmp__U4FG=((__STRING_CONSTANT *)(&__string_84))->storage__E5M;
  __tmp__V4FG=((__STRING_CONSTANT *)(&__string_84))->count__4C;
  while ((! ((result__0QDF !=  0) || ((__INTEGER)((__INTEGER)(s__ZQDF + __tmp__Q4FG) -  1) > __tmp__R4FG)))) {
    i__YQDF= 1;
    while ((! ((i__YQDF > __tmp__S4FG) || (((__CHARACTER *)__tmp__T4FG)[(__INTEGER)((__INTEGER)((__INTEGER)(s__ZQDF + i__YQDF) -  1) -  1)] != ((__CHARACTER *)__tmp__U4FG)[(__INTEGER)(i__YQDF -  1)])))) {
      i__YQDF=(__INTEGER)(i__YQDF +  1);
    };
    if ((i__YQDF > __tmp__V4FG)) {
      result__0QDF=s__ZQDF;
    } else {
      s__ZQDF=(__INTEGER)(s__ZQDF +  1);
    };
  };
  return(result__0QDF);
}

static void append_in__GMH(__UINTEGER_32 Self__HMH,void *buffer__IMH)
// ({UINTEGER_32},{NULLxSTRING}) VoidNo recursive, No inlinable.
{
  __UINTEGER_32 val__JMH;
  __INTEGER i__MMH,j__NMH,new_capacity__TEJG,old_nb_elts__WEJG;
  __INTEGER upper__KKKG,Self__IKKG,new_capacity__ZEJG,old_nb_elts__2EJG;
  __INTEGER upper__PKKG,Self__NKKG;
  __STRING *Self__UEJG,*Self__0EJG,*Self__4JDB;
  __CHARACTER *Self__VEJG,*new__XEJG,*Self__1EJG,*new__3EJG;
  __CHARACTER ch__4EJG,tmp__BKDB;
  val__JMH= 0;
  i__MMH= 0;
  j__NMH= 0;
  if ((Self__HMH ==  0)) {
    Self__UEJG=((__STRING *)buffer__IMH);
    new_capacity__TEJG= 0;
    if ((Self__UEJG->capacity__4FQ <= Self__UEJG->count__04B)) {
      if ((Self__UEJG->capacity__4FQ ==  0)) {
        Self__UEJG->capacity__4FQ= 32;
        Self__UEJG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__TEJG=(__INTEGER)(Self__UEJG->capacity__4FQ <<  1);
        Self__VEJG=((__CHARACTER *)Self__UEJG->storage__HGQ);
        old_nb_elts__WEJG=Self__UEJG->capacity__4FQ;
        new__XEJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__VEJG),((__UINTEGER_32 )old_nb_elts__WEJG),((__UINTEGER_32 )new_capacity__TEJG)));
        upper__KKKG=(__INTEGER)(new_capacity__TEJG -  1);
        Self__IKKG=old_nb_elts__WEJG;
        while ((Self__IKKG <= upper__KKKG)) {
          new__XEJG[Self__IKKG]='\0';
          Self__IKKG=(__INTEGER)(Self__IKKG +  1);
        };
        Self__UEJG->storage__HGQ=new__XEJG;
        Self__UEJG->capacity__4FQ=new_capacity__TEJG;
      };
    };
    ((__CHARACTER *)Self__UEJG->storage__HGQ)[Self__UEJG->count__04B]='0';
    Self__UEJG->count__04B=(__INTEGER)(Self__UEJG->count__04B +  1);
  } else {
    i__MMH=(__INTEGER)(((__STRING *)buffer__IMH)->count__04B +  1);
    val__JMH=Self__HMH;
    while ((val__JMH !=  0)) {
      Self__0EJG=((__STRING *)buffer__IMH);
      ch__4EJG=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__UINTEGER_32)(val__JMH %  10)) + ((__INTEGER_8 )'0')))));
      new_capacity__ZEJG= 0;
      if ((Self__0EJG->capacity__4FQ <= Self__0EJG->count__04B)) {
        if ((Self__0EJG->capacity__4FQ ==  0)) {
          Self__0EJG->capacity__4FQ= 32;
          Self__0EJG->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__ZEJG=(__INTEGER)(Self__0EJG->capacity__4FQ <<  1);
          Self__1EJG=((__CHARACTER *)Self__0EJG->storage__HGQ);
          old_nb_elts__2EJG=Self__0EJG->capacity__4FQ;
          new__3EJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__1EJG),((__UINTEGER_32 )old_nb_elts__2EJG),((__UINTEGER_32 )new_capacity__ZEJG)));
          upper__PKKG=(__INTEGER)(new_capacity__ZEJG -  1);
          Self__NKKG=old_nb_elts__2EJG;
          while ((Self__NKKG <= upper__PKKG)) {
            new__3EJG[Self__NKKG]='\0';
            Self__NKKG=(__INTEGER)(Self__NKKG +  1);
          };
          Self__0EJG->storage__HGQ=new__3EJG;
          Self__0EJG->capacity__4FQ=new_capacity__ZEJG;
        };
      };
      ((__CHARACTER *)Self__0EJG->storage__HGQ)[Self__0EJG->count__04B]=ch__4EJG;
      Self__0EJG->count__04B=(__INTEGER)(Self__0EJG->count__04B +  1);
      val__JMH=(__UINTEGER_32)(val__JMH /  10);
    };
    j__NMH=((__STRING *)buffer__IMH)->count__04B;
    while ((i__MMH < j__NMH)) {
      Self__4JDB=((__STRING *)buffer__IMH);
      tmp__BKDB=((__CHARACTER *)Self__4JDB->storage__HGQ)[(__INTEGER)(i__MMH -  1)];
      ((__CHARACTER *)Self__4JDB->storage__HGQ)[(__INTEGER)(i__MMH -  1)]=((__CHARACTER *)Self__4JDB->storage__HGQ)[(__INTEGER)(j__NMH -  1)];
      ((__CHARACTER *)Self__4JDB->storage__HGQ)[(__INTEGER)(j__NMH -  1)]=tmp__BKDB;
      j__NMH=(__INTEGER)(j__NMH -  1);
      i__MMH=(__INTEGER)(i__MMH +  1);
    };
  };
}

static __BOOLEAN read_string__WSO()
// () With resultNo recursive, No inlinable.
{
  __INTEGER old_pos__0SO,new_capacity__5EJG,old_nb_elts__CFJG;
  __INTEGER upper__UKKG,Self__SKKG;
  __STRING *Self__AFJG;
  __POSITION pos__53ZF;
  __BOOLEAN result__ZSO,__tmp__ETO,__tmp__DUO,__tmp__EUO;
  __CHARACTER result__D3AG,result__J3AG,result__K3AG,result__L3AG;
  __CHARACTER result__M3AG,result__N3AG,result__O3AG;
  __CHARACTER *Self__BFJG,*new__DFJG;
  result__ZSO=FALSE__;
  old_pos__0SO= 0;
  if (read_space__MMD()) {
    result__D3AG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__D3AG=((__CHARACTER )(( 0)));
    } else {
      result__D3AG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    __tmp__ETO=(result__D3AG == '"');
  } else {
    __tmp__ETO=FALSE__;
  };
  if (__tmp__ETO) {
    last_len_string__3IN= 0;
    old_pos__0SO=position__V0B;
    position__V0B=(__INTEGER)(position__V0B +  1);
    ((__STRING *)string_tmp__QH)->count__04B= 0;
    until_do__5HOC:
    {
      result__J3AG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__J3AG=((__CHARACTER )(( 0)));
      } else {
        result__J3AG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__J3AG == ((__CHARACTER )(( 0))))) {
        __tmp__DUO=TRUE__;
      } else {
        result__K3AG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__K3AG=((__CHARACTER )(( 0)));
        } else {
          result__K3AG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__DUO=(result__K3AG == '\n');
      };
      if (__tmp__DUO) {
        __tmp__EUO=TRUE__;
      } else {
        result__L3AG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__L3AG=((__CHARACTER )(( 0)));
        } else {
          result__L3AG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__EUO=(result__L3AG == '"');
      };
      if ((! __tmp__EUO)) {
        result__M3AG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__M3AG=((__CHARACTER )(( 0)));
        } else {
          result__M3AG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        Self__AFJG=((__STRING *)string_tmp__QH);
        new_capacity__5EJG= 0;
        if ((Self__AFJG->capacity__4FQ <= Self__AFJG->count__04B)) {
          if ((Self__AFJG->capacity__4FQ ==  0)) {
            Self__AFJG->capacity__4FQ= 32;
            Self__AFJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__5EJG=(__INTEGER)(Self__AFJG->capacity__4FQ <<  1);
            Self__BFJG=((__CHARACTER *)Self__AFJG->storage__HGQ);
            old_nb_elts__CFJG=Self__AFJG->capacity__4FQ;
            new__DFJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__BFJG),((__UINTEGER_32 )old_nb_elts__CFJG),((__UINTEGER_32 )new_capacity__5EJG)));
            upper__UKKG=(__INTEGER)(new_capacity__5EJG -  1);
            Self__SKKG=old_nb_elts__CFJG;
            while ((Self__SKKG <= upper__UKKG)) {
              new__DFJG[Self__SKKG]='\0';
              Self__SKKG=(__INTEGER)(Self__SKKG +  1);
            };
            Self__AFJG->storage__HGQ=new__DFJG;
            Self__AFJG->capacity__4FQ=new_capacity__5EJG;
          };
        };
        ((__CHARACTER *)Self__AFJG->storage__HGQ)[Self__AFJG->count__04B]=result__M3AG;
        Self__AFJG->count__04B=(__INTEGER)(Self__AFJG->count__04B +  1);
        result__N3AG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__N3AG=((__CHARACTER )(( 0)));
        } else {
          result__N3AG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__N3AG == '\\')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          read_escape_character__AVDF();
        } else {
          position__V0B=(__INTEGER)(position__V0B +  1);
          last_len_string__3IN=(__INTEGER)(last_len_string__3IN +  1);
        };
        goto until_do__5HOC;
      };
    };
    result__O3AG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__O3AG=((__CHARACTER )(( 0)));
    } else {
      result__O3AG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__O3AG == '"')) {
      position__V0B=(__INTEGER)(position__V0B +  1);
      last_string__NTC=get__TPB(string_tmp__QH);
      result__ZSO=TRUE__;
      short__token__to__R0C((&__string_95),old_pos__0SO,position__V0B);
    } else {
      position__V0B=begin_position__H0D;
      pos__53ZF=current_position__A0F();
      put_error__text__WRG( 0,(&__string_195));
      put_position__ATG(pos__53ZF);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
  };
  return(result__ZSO);
}

static __BOOLEAN fast_memcmp__until__0EVB(__CHARACTER *Self__1EVB,__CHARACTER *other__2EVB,__INTEGER capacity__3EVB)
// ({NATIVE_ARRAYoExpanded_CHARACTERo},{NULLxNATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER}) With resultNo recursive, No inlinable.
{
  __INTEGER i__PFVB;
  i__PFVB=(__INTEGER)(capacity__3EVB -  1);
  while (((i__PFVB >=  0) && (Self__1EVB[i__PFVB] == ((__CHARACTER *)other__2EVB)[i__PFVB]))) {
    i__PFVB=(__INTEGER)(i__PFVB -  1);
  };
  return((i__PFVB <  0));
}

static void* item__EQQF(__DIRECTORY *Self__FQQF,__INTEGER i__GQQF)
// ({DIRECTORY},{INTEGER}) With resultNo recursive, No inlinable.
{
  __LINKED_LISToENTRYo *Self__Z1PF;
  Self__Z1PF=((__LINKED_LISToENTRYo *)Self__FQQF->parent_abstract_directory__NB.list__21RE);
  if ((i__GQQF != Self__Z1PF->mem_idx__WJFF)) {
    if ((Self__Z1PF->mem_idx__WJFF > i__GQQF)) {
      Self__Z1PF->mem_idx__WJFF= 1;
      Self__Z1PF->mem_lnk__XJFF=Self__Z1PF->first_link__PJFF;
    };
    while ((i__GQQF != Self__Z1PF->mem_idx__WJFF)) {
      Self__Z1PF->mem_lnk__XJFF=((__LINKED_LIST_NODEoENTRYo *)Self__Z1PF->mem_lnk__XJFF)->next__KBQF;
      Self__Z1PF->mem_idx__WJFF=(__INTEGER)(Self__Z1PF->mem_idx__WJFF +  1);
    };
  };
  return(((__LINKED_LIST_NODEoENTRYo *)Self__Z1PF->mem_lnk__XJFF)->item__0WPF);
}

static void* item__WZPD(__LINKED_LISToSTRING_CONSTANTo *Self__XZPD,__INTEGER i__YZPD)
// ({LINKED_LISToSTRING_CONSTANTo},{INTEGER}) With resultNo recursive, No inlinable.
{
  if ((i__YZPD != Self__XZPD->mem_idx__2WAC)) {
    if ((Self__XZPD->mem_idx__2WAC > i__YZPD)) {
      Self__XZPD->mem_idx__2WAC= 1;
      Self__XZPD->mem_lnk__4WAC=Self__XZPD->first_link__SWAC;
    };
    while ((i__YZPD != Self__XZPD->mem_idx__2WAC)) {
      Self__XZPD->mem_lnk__4WAC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__XZPD->mem_lnk__4WAC)->next__NQQD;
      Self__XZPD->mem_idx__2WAC=(__INTEGER)(Self__XZPD->mem_idx__2WAC +  1);
    };
  };
  return(((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__XZPD->mem_lnk__4WAC)->item__P4FD);
}

static __INTEGER fast_reverse_index_of__from__GOAD(__CHARACTER *Self__HOAD,__INTEGER upper__JOAD)
// ({NATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER}) With resultNo recursive, No inlinable.
{
  __INTEGER idx__TOAD;
  idx__TOAD=upper__JOAD;
  while ((! ((idx__TOAD <  0) || ('/' == Self__HOAD[idx__TOAD])))) {
    idx__TOAD=(__INTEGER)(idx__TOAD -  1);
  };
  return(idx__TOAD);
}

static void** create__221(__INTEGER nb_elements__421)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__MTIG,a__LTIG,new_size__NTIG,new_size2__OTIG,a__PTIG;
  __UINTEGER_32 new_size__QTIG;
  __POINTER result__KTIG,ptr_table__2KKG,next__1KKG,result__3KKG;
  __INTEGER Self__IWFC;
  void **Result__PGCB;
  sz__MTIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__421 * ((__INTEGER )(sizeof(void *)))));
  result__KTIG=((__POINTER )(NULL));
  a__LTIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__NTIG=(__UINTEGER_32)((__UINTEGER_32)(sz__MTIG + a__LTIG) & (__UINTEGER_32)(~ a__LTIG));
  new_size2__OTIG=(__UINTEGER_32)(new_size__NTIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__OTIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__PTIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__QTIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OTIG + a__PTIG) & (__UINTEGER_32)(~ a__PTIG));
    ptr_table__2KKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QTIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__1KKG=((__POINTER )(NULL));
    result__3KKG=((__POINTER *)ptr_table__2KKG)[ 0];
    if ((result__3KKG == (void *)NULL)) {
      result__3KKG=new_lab__RUJ(new_size__QTIG);
      next__1KKG=(void *)((unsigned long)result__3KKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QTIG)));
      ((__POINTER *)next__1KKG)[ 0]=NULL;
      ((__POINTER *)ptr_table__2KKG)[ 0]=next__1KKG;
    } else {
      next__1KKG=((__POINTER *)result__3KKG)[ 0];
      if ((next__1KKG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3KKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__QTIG <<  1)) <=  4096)) {
          next__1KKG=(void *)((unsigned long)result__3KKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QTIG)));
        } else {
          next__1KKG=new_lab__RUJ(new_size__QTIG);
        };
        ((__POINTER *)next__1KKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__2KKG)[ 0]=next__1KKG;
      } else {
        ((__POINTER *)result__3KKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1KKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__3KKG=next__1KKG;
      };
    };
    ((__POINTER *)result__3KKG)[ 0]=((__POINTER ) 3);
    result__KTIG=(void *)((unsigned long)result__3KKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__KTIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__NTIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__PGCB=((void **)result__KTIG);
  Self__IWFC=(__INTEGER)(nb_elements__421 -  1);
  while ((Self__IWFC >=  0)) {
    Result__PGCB[Self__IWFC]=NULL;
    Self__IWFC=(__INTEGER)(Self__IWFC -  1);
  };
  return(Result__PGCB);
}

static __BOOLEAN read_word__NSF(void *st__PSF)
// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  __INTEGER posold__RSF,idx__SSF,__tmp__TKGG,__tmp__UKGG;
  __BOOLEAN result__TSF,__tmp__RTF;
  __CHARACTER *__tmp__VKGG,*__tmp__POIG;
  __CHARACTER result__SSCG;
  posold__RSF= 0;
  idx__SSF= 0;
  result__TSF=FALSE__;
  if ((! read_space__MMD())) {
    result__TSF=FALSE__;
  } else {
    posold__RSF=position__V0B;
    idx__SSF= 1;
    __tmp__TKGG=((__STRING_CONSTANT *)st__PSF)->count__4C;
    __tmp__UKGG=((__STRING *)source__S0B)->count__04B;
    __tmp__VKGG=((__STRING_CONSTANT *)st__PSF)->storage__E5M;
    __tmp__POIG=((__STRING *)source__S0B)->storage__HGQ;
    until_do__SA2:
    {
      if ((idx__SSF > __tmp__TKGG)) {
        __tmp__RTF=TRUE__;
      } else {
        result__SSCG='\0';
        if ((position__V0B > __tmp__UKGG)) {
          result__SSCG=((__CHARACTER )(( 0)));
        } else {
          result__SSCG=((__CHARACTER *)__tmp__POIG)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__RTF=(result__SSCG != ((__CHARACTER *)__tmp__VKGG)[(__INTEGER)(idx__SSF -  1)]);
      };
      if ((! __tmp__RTF)) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        idx__SSF=(__INTEGER)(idx__SSF +  1);
        goto until_do__SA2;
      };
    };
    if ((idx__SSF > ((__STRING_CONSTANT *)st__PSF)->count__4C)) {
      last_string__NTC=st__PSF;
      result__TSF=TRUE__;
    } else {
      position__V0B=posold__RSF;
    };
  };
  return(result__TSF);
}

static __BOOLEAN read_slot_header__I2D(__BOOLEAN first__K2D)
// ({TRUExFALSE}) With resultNo recursive, No inlinable.
{
  void *t__O2D,*__tmp__MIE,*__tmp__EJE;
  void *v__Q2D;
  __POSITION pos__4E0F,pos__AF0F,pos__CF0F,pos__EF0F,pos__GF0F;
  __POSITION pos__IF0F,pos__KF0F,pos__MF0F,pos__OF0F,pos__QF0F;
  __POSITION pos__SF0F,pos__AG0F,pos__CG0F,pos__EG0F,pos__GG0F;
  __POSITION pos__IG0F,pos__KG0F,pos__MG0F,pos__OG0F,pos__QG0F;
  __POSITION pos__FG3F,pos__SG0F,pos__UG0F,pos__34LB,pos__WG0F;
  __POSITION pos__YG0F,pos__0G0F,pos__2G0F,pos__4G0F,pos__AH0F;
  __POINTER ptr__PQPB,ptr_table__NLKG,next__MLKG,result__OLKG;
  __POINTER ptr_table__SLKG,next__RLKG,result__TLKG;
  __INTEGER typ_id__UQPB,new_capacity__BFJC,new_capacity__SGJG;
  __INTEGER old_nb_elts__VGJG,upper__2LKG,Self__0LKG,new_capacity__YGJG;
  __INTEGER old_nb_elts__1GJG,upper__BMKG,Self__5LKG;
  __UINTEGER_32 sz__RQPB,a__YHHG,new_size__ZHHG,t__3HHG,a__2HHG;
  __UINTEGER_32 new_size__VLKG,lab_type__ULKG;
  void *__tmp__LIE,*__tmp__DJE;
  __STRING *Self__TGJG,*Self__ZGJG;
  __BOOLEAN result__M2D,is_export__Y2D,result__PGJG,__tmp__N5D;
  __BOOLEAN result__RGJG,result__ALKG,result__DLKG,result__GLKG;
  __BOOLEAN result__JLKG,result__WLKG,__tmp__IKE,__tmp__IME,result__YCH;
  __BOOLEAN __tmp__5NE,result__KDH,__tmp__1PE,result__2DH,__tmp__XRE;
  __BOOLEAN result__OEH,__tmp__ETE,result__AFH,result__DMKG;
  void *cast__W2D;
  __CHARACTER style__X2D,result__BLKG,result__ELKG,result__HLKG;
  __CHARACTER result__KLKG,result__XLKG,result__EMKG;
  __HASHED_SEToITM_TYPE_SIMPLEo *result__OQPB,*Self__HZAC;
  __CHARACTER *Self__UGJG,*new__WGJG,*Self__0GJG,*new__2GJG;
  result__M2D=FALSE__;
  t__O2D=NULL;
  v__Q2D=NULL;
  cast__W2D=NULL;
  is_export__Y2D=FALSE__;
  style__X2D=read_style__QUF();
  if ((style__X2D != ' ')) {
    result__M2D=TRUE__;
    if (((! first__K2D) && (style__X2D == '+'))) {
      pos__4E0F=current_position__A0F();
      put_error__text__WRG( 2,(&__string_196));
      put_position__ATG(pos__4E0F);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
    if (first__K2D) {
      if (read_word__NSF((&__string_60))) {
        if ((style__X2D == '-')) {
          pos__AF0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_197));
          put_position__ATG(pos__AF0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        ((__PROTOTYPE *)object__M0B)->parent_named__0H.parent_itm_object__ZH.position__REJ=current_position__A0F();
        if ((! read_symbol__I0J((&__string_12)))) {
          pos__CF0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_198));
          put_position__ATG(pos__CF0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        result__PGJG=read_word__NSF((&__string_9));
        if (result__PGJG) {
          if (((void *)(&__string_9) == (void *)(&__string_4))) {
            short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
          } else {
            short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
          };
        };
        if (result__PGJG) {
          __tmp__N5D=TRUE__;
        } else {
          result__RGJG=read_word__NSF((&__string_10));
          if (result__RGJG) {
            if (((void *)(&__string_10) == (void *)(&__string_4))) {
              short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
            } else {
              short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
            };
          };
          __tmp__N5D=result__RGJG;
        };
        if (__tmp__N5D) {
          ((__PROTOTYPE *)object__M0B)->type_style__3VC=last_string__NTC;
        };
        if ((! read_cap_identifier__X2J())) {
          pos__EF0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_199));
          put_position__ATG(pos__EF0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        short__token__to__R0C((&__string_97),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        if (((void *)last_string__NTC != (void *)((__PROTOTYPE *)object__M0B)->parent_named__0H.name__KI)) {
          pos__GF0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_200));
          put_position__ATG(pos__GF0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        result__ALKG=FALSE__;
        if ((! read_space__MMD())) {
          result__ALKG=FALSE__;
        } else {
          result__BLKG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__BLKG=((__CHARACTER )(( 0)));
          } else {
            result__BLKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__BLKG == '[')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__ALKG=TRUE__;
          };
        };
        if (result__ALKG) {
          if ((! read_cap_identifier__X2J())) {
            pos__IF0F=current_position__A0F();
            put_error__text__WRG( 0,(&__string_201));
            put_position__ATG(pos__IF0F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          short__token__to__R0C((&__string_98),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
          add_last__1VS(keyword_generic_list__40B,last_string__NTC);
          while_do__QXK:
          {
            result__DLKG=FALSE__;
            if ((! read_space__MMD())) {
              result__DLKG=FALSE__;
            } else {
              result__ELKG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__ELKG=((__CHARACTER )(( 0)));
              } else {
                result__ELKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__ELKG == ',')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                result__DLKG=TRUE__;
              };
            };
            if (result__DLKG) {
              if ((! read_cap_identifier__X2J())) {
                pos__KF0F=current_position__A0F();
                put_error__text__WRG( 0,(&__string_202));
                put_position__ATG(pos__KF0F);
                put_string__55F(msg_err__1RG);
                if ((type_error__0RG !=  2)) {
                  exit(( 1));
                };
              };
              short__token__to__R0C((&__string_98),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
              add_last__1VS(keyword_generic_list__40B,last_string__NTC);
              goto while_do__QXK;
            };
          };
          while (read_identifier__EBL()) {
            short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
            pos__MF0F=current_position__A0F();
            put_error__text__WRG( 2,(&__string_203));
            put_position__ATG(pos__MF0F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
            if ((! read_cap_identifier__X2J())) {
              pos__OF0F=current_position__A0F();
              put_error__text__WRG( 0,(&__string_202));
              put_position__ATG(pos__OF0F);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
            short__token__to__R0C((&__string_98),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
            add_last__1VS(keyword_generic_list__40B,last_string__NTC);
            while_do__F4DB:
            {
              result__GLKG=FALSE__;
              if ((! read_space__MMD())) {
                result__GLKG=FALSE__;
              } else {
                result__HLKG='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__HLKG=((__CHARACTER )(( 0)));
                } else {
                  result__HLKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                if ((result__HLKG == ',')) {
                  position__V0B=(__INTEGER)(position__V0B +  1);
                  result__GLKG=TRUE__;
                };
              };
              if (result__GLKG) {
                if ((! read_cap_identifier__X2J())) {
                  pos__QF0F=current_position__A0F();
                  put_error__text__WRG( 0,(&__string_202));
                  put_position__ATG(pos__QF0F);
                  put_string__55F(msg_err__1RG);
                  if ((type_error__0RG !=  2)) {
                    exit(( 1));
                  };
                };
                short__token__to__R0C((&__string_98),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
                add_last__1VS(keyword_generic_list__40B,last_string__NTC);
                goto while_do__F4DB;
              };
            };
          };
          result__JLKG=FALSE__;
          if ((! read_space__MMD())) {
            result__JLKG=FALSE__;
          } else {
            result__KLKG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__KLKG=((__CHARACTER )(( 0)));
            } else {
              result__KLKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__KLKG == ']')) {
              position__V0B=(__INTEGER)(position__V0B +  1);
              result__JLKG=TRUE__;
            };
          };
          if ((! result__JLKG)) {
            pos__SF0F=current_position__A0F();
            put_error__text__WRG( 2,(&__string_204));
            put_position__ATG(pos__SF0F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
        };
        while_do__YAK:
        {
          is_export__Y2D=read_symbol__I0J((&__string_15));
          if ((is_export__Y2D || read_symbol__I0J((&__string_14)))) {
            if (is_export__Y2D) {
              cast__W2D=((__PROTOTYPE *)object__M0B)->export_list__XHE;
            } else {
              cast__W2D=((__PROTOTYPE *)object__M0B)->import_list__5HE;
            };
            if (((void *)cast__W2D == (void *)NULL)) {
              result__OQPB=NULL;
              ptr__PQPB=((__POINTER )(NULL));
              typ_id__UQPB= 0;
              sz__RQPB=((__UINTEGER_32 )sizeof(__HASHED_SEToITM_TYPE_SIMPLEo));
              if ((sz__RQPB ==  0)) {
                result__OQPB=HASHED_SEToITM_TYPE_SIMPLEo__;
              } else {
                typ_id__UQPB=__HASHED_SEToITM_TYPE_SIMPLEo__;
                clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__RQPB);
                if ((typ_id__UQPB == (__INTEGER)(-  1))) {
                  a__YHHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                  new_size__ZHHG=(__UINTEGER_32)((__UINTEGER_32)(sz__RQPB + a__YHHG) & (__UINTEGER_32)(~ a__YHHG));
                  ptr_table__NLKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZHHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                  next__MLKG=((__POINTER )(NULL));
                  result__OLKG=((__POINTER *)ptr_table__NLKG)[ 0];
                  if ((result__OLKG == (void *)NULL)) {
                    result__OLKG=new_lab__RUJ(new_size__ZHHG);
                    next__MLKG=(void *)((unsigned long)result__OLKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZHHG)));
                    ((__POINTER *)next__MLKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__NLKG)[ 0]=next__MLKG;
                  } else {
                    next__MLKG=((__POINTER *)result__OLKG)[ 0];
                    if ((next__MLKG == (void *)NULL)) {
                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OLKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ZHHG <<  1)) <=  4096)) {
                        next__MLKG=(void *)((unsigned long)result__OLKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZHHG)));
                      } else {
                        next__MLKG=new_lab__RUJ(new_size__ZHHG);
                      };
                      ((__POINTER *)next__MLKG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__NLKG)[ 0]=next__MLKG;
                    } else {
                      ((__POINTER *)result__OLKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MLKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                      result__OLKG=next__MLKG;
                    };
                  };
                  ptr__PQPB=result__OLKG;
                } else {
                  t__3HHG=((__UINTEGER_32 )typ_id__UQPB);
                  a__2HHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                  new_size__VLKG=(__UINTEGER_32)((__UINTEGER_32)(sz__RQPB + a__2HHG) & (__UINTEGER_32)(~ a__2HHG));
                  ptr_table__SLKG=((__POINTER )(&(table_type[(t__3HHG)])));
                  lab_type__ULKG=(__UINTEGER_32)(t__3HHG |  1);
                  next__RLKG=((__POINTER )(NULL));
                  result__TLKG=((__POINTER *)ptr_table__SLKG)[ 0];
                  if ((result__TLKG == (void *)NULL)) {
                    result__TLKG=new_lab__RUJ(lab_type__ULKG);
                    next__RLKG=(void *)((unsigned long)result__TLKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VLKG)));
                    ((__POINTER *)next__RLKG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__SLKG)[ 0]=next__RLKG;
                  } else {
                    next__RLKG=((__POINTER *)result__TLKG)[ 0];
                    if ((next__RLKG == (void *)NULL)) {
                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TLKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VLKG <<  1)) <=  4096)) {
                        next__RLKG=(void *)((unsigned long)result__TLKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VLKG)));
                      } else {
                        next__RLKG=new_lab__RUJ(lab_type__ULKG);
                      };
                      ((__POINTER *)next__RLKG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__SLKG)[ 0]=next__RLKG;
                    } else {
                      ((__POINTER *)result__TLKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__RLKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                      result__TLKG=next__RLKG;
                    };
                  };
                  ptr__PQPB=result__TLKG;
                };
                result__OQPB=((__HASHED_SEToITM_TYPE_SIMPLEo *)ptr__PQPB);
                *(result__OQPB) = *(HASHED_SEToITM_TYPE_SIMPLEo__);
              };
              Self__HZAC=((__HASHED_SEToITM_TYPE_SIMPLEo *)result__OQPB);
              new_capacity__BFJC=prime_number_ceiling__33Z( 53);
              Self__HZAC->buckets__5J4B=create__T2TC(new_capacity__BFJC);
              Self__HZAC->capacity__0J4B=new_capacity__BFJC;
              Self__HZAC->count__5K4B= 0;
              cast__W2D=result__OQPB;
            };
            __tmp__LIE=read_type__5FP(PARSER__,TRUE__);
            if (__tmp__LIE==NULL) {
              __tmp__MIE=NULL;
            } else {
              switch (((struct ___OBJ *)__tmp__LIE)->__id) {
              case __ITM_TYPE_SIMPLE__: {
                __tmp__MIE=((void *)__tmp__LIE);
              } break;
              case __ITM_TYPE_SELF__: {
                __tmp__MIE=((void *)__tmp__LIE);
              } break;
              case __ITM_TYPE_GENERIC__: {
                __tmp__MIE=((void *)__tmp__LIE);
              } break;
              case __ITM_TYPE_STYLE__: {
                __tmp__MIE=((void *)__tmp__LIE);
              } break;
              }
            };
            t__O2D=__tmp__MIE;
            if (((void *)__tmp__MIE == (void *)NULL)) {
              pos__AG0F=current_position__A0F();
              put_error__text__WRG( 0,(&__string_205));
              put_position__ATG(pos__AG0F);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
            while_do__4PDB:
            {
              result__WLKG=FALSE__;
              if ((! read_space__MMD())) {
                result__WLKG=FALSE__;
              } else {
                result__XLKG='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__XLKG=((__CHARACTER )(( 0)));
                } else {
                  result__XLKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                if ((result__XLKG == ',')) {
                  position__V0B=(__INTEGER)(position__V0B +  1);
                  result__WLKG=TRUE__;
                };
              };
              if (result__WLKG) {
                fast_add__KJ4B(cast__W2D,t__O2D);
                __tmp__DJE=read_type__5FP(PARSER__,TRUE__);
                if (__tmp__DJE==NULL) {
                  __tmp__EJE=NULL;
                } else {
                  switch (((struct ___OBJ *)__tmp__DJE)->__id) {
                  case __ITM_TYPE_SIMPLE__: {
                    __tmp__EJE=((void *)__tmp__DJE);
                  } break;
                  case __ITM_TYPE_SELF__: {
                    __tmp__EJE=((void *)__tmp__DJE);
                  } break;
                  case __ITM_TYPE_GENERIC__: {
                    __tmp__EJE=((void *)__tmp__DJE);
                  } break;
                  case __ITM_TYPE_STYLE__: {
                    __tmp__EJE=((void *)__tmp__DJE);
                  } break;
                  }
                };
                t__O2D=__tmp__EJE;
                if (((void *)__tmp__EJE == (void *)NULL)) {
                  pos__CG0F=current_position__A0F();
                  put_error__text__WRG( 0,(&__string_205));
                  put_position__ATG(pos__CG0F);
                  put_string__55F(msg_err__1RG);
                  if ((type_error__0RG !=  2)) {
                    exit(( 1));
                  };
                };
                goto while_do__4PDB;
              };
            };
            fast_add__KJ4B(cast__W2D,t__O2D);
            if (is_export__Y2D) {
              ((__PROTOTYPE *)object__M0B)->export_list__XHE=cast__W2D;
            } else {
              ((__PROTOTYPE *)object__M0B)->import_list__5HE=cast__W2D;
            };
            goto while_do__YAK;
          };
        };
      } else {
        pos__EG0F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_206));
        put_position__ATG(pos__EG0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      __tmp__IKE=TRUE__;
    } else {
      __tmp__IKE=FALSE__;
    };
    if (__tmp__IKE) {
      __tmp__IME=TRUE__;
    } else {
      result__YCH=read_word__NSF((&__string_61));
      if (result__YCH) {
        pos__GG0F=current_position__A0F();
        put_error__text__WRG( 2,(&__string_207));
        put_position__ATG(pos__GG0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
        short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        if ((! read_symbol__I0J((&__string_12)))) {
          pos__IG0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_198));
          put_position__ATG(pos__IG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        read_cap_identifier__X2J();
        short__token__to__R0C((&__string_98),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
      };
      __tmp__IME=result__YCH;
    };
    if (__tmp__IME) {
      __tmp__5NE=TRUE__;
    } else {
      result__KDH=read_word__NSF((&__string_62));
      if (result__KDH) {
        short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        if ((! read_symbol__I0J((&__string_12)))) {
          pos__KG0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_198));
          put_position__ATG(pos__KG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        if ((! read_external__ZVO())) {
          pos__MG0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_208));
          put_position__ATG(pos__MG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        append__CRQ(output_decl__UNE,(&__string_209));
        append__CRQ(output_decl__UNE,((__PROTOTYPE *)object__M0B)->parent_named__0H.name__KI);
        Self__TGJG=((__STRING *)output_decl__UNE);
        new_capacity__SGJG= 0;
        if ((Self__TGJG->capacity__4FQ <= Self__TGJG->count__04B)) {
          if ((Self__TGJG->capacity__4FQ ==  0)) {
            Self__TGJG->capacity__4FQ= 32;
            Self__TGJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__SGJG=(__INTEGER)(Self__TGJG->capacity__4FQ <<  1);
            Self__UGJG=((__CHARACTER *)Self__TGJG->storage__HGQ);
            old_nb_elts__VGJG=Self__TGJG->capacity__4FQ;
            new__WGJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__UGJG),((__UINTEGER_32 )old_nb_elts__VGJG),((__UINTEGER_32 )new_capacity__SGJG)));
            upper__2LKG=(__INTEGER)(new_capacity__SGJG -  1);
            Self__0LKG=old_nb_elts__VGJG;
            while ((Self__0LKG <= upper__2LKG)) {
              new__WGJG[Self__0LKG]='\0';
              Self__0LKG=(__INTEGER)(Self__0LKG +  1);
            };
            Self__TGJG->storage__HGQ=new__WGJG;
            Self__TGJG->capacity__4FQ=new_capacity__SGJG;
          };
        };
        ((__CHARACTER *)Self__TGJG->storage__HGQ)[Self__TGJG->count__04B]='\n';
        Self__TGJG->count__04B=(__INTEGER)(Self__TGJG->count__04B +  1);
        append__CRQ(output_decl__UNE,last_string__NTC);
        Self__ZGJG=((__STRING *)output_decl__UNE);
        new_capacity__YGJG= 0;
        if ((Self__ZGJG->capacity__4FQ <= Self__ZGJG->count__04B)) {
          if ((Self__ZGJG->capacity__4FQ ==  0)) {
            Self__ZGJG->capacity__4FQ= 32;
            Self__ZGJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__YGJG=(__INTEGER)(Self__ZGJG->capacity__4FQ <<  1);
            Self__0GJG=((__CHARACTER *)Self__ZGJG->storage__HGQ);
            old_nb_elts__1GJG=Self__ZGJG->capacity__4FQ;
            new__2GJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__0GJG),((__UINTEGER_32 )old_nb_elts__1GJG),((__UINTEGER_32 )new_capacity__YGJG)));
            upper__BMKG=(__INTEGER)(new_capacity__YGJG -  1);
            Self__5LKG=old_nb_elts__1GJG;
            while ((Self__5LKG <= upper__BMKG)) {
              new__2GJG[Self__5LKG]='\0';
              Self__5LKG=(__INTEGER)(Self__5LKG +  1);
            };
            Self__ZGJG->storage__HGQ=new__2GJG;
            Self__ZGJG->capacity__4FQ=new_capacity__YGJG;
          };
        };
        ((__CHARACTER *)Self__ZGJG->storage__HGQ)[Self__ZGJG->count__04B]='\n';
        Self__ZGJG->count__04B=(__INTEGER)(Self__ZGJG->count__04B +  1);
      };
      __tmp__5NE=result__KDH;
    };
    if (__tmp__5NE) {
      __tmp__1PE=TRUE__;
    } else {
      result__2DH=read_word__NSF((&__string_63));
      if (result__2DH) {
        short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        if ((! read_symbol__I0J((&__string_12)))) {
          pos__OG0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_198));
          put_position__ATG(pos__OG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        v__Q2D=read_expr_primary__MDN(PARSER__);
        if (((void *)v__Q2D == (void *)NULL)) {
          pos__QG0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_210));
          put_position__ATG(pos__QG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        if (((void *)((__PROTOTYPE *)object__M0B)->default_value__NPE != (void *)NULL)) {
          pos__FG3F=current_position__A0F();
          put_error__text__WRG( 1,(&__string_211));
          put_position__ATG(pos__FG3F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        ((__PROTOTYPE *)object__M0B)->default_value__NPE=v__Q2D;
      };
      __tmp__1PE=result__2DH;
    };
    if (__tmp__1PE) {
      __tmp__XRE=TRUE__;
    } else {
      result__OEH=read_word__NSF((&__string_64));
      if (result__OEH) {
        short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        if ((! read_symbol__I0J((&__string_12)))) {
          pos__SG0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_198));
          put_position__ATG(pos__SG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        if ((! read_external__ZVO())) {
          pos__UG0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_208));
          put_position__ATG(pos__UG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        if (((void *)((__PROTOTYPE *)object__M0B)->type_c__IRE != (void *)NULL)) {
          pos__34LB=current_position__A0F();
          put_error__text__WRG( 1,(&__string_212));
          put_position__ATG(pos__34LB);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        ((__PROTOTYPE *)object__M0B)->type_c__IRE=last_string__NTC;
      };
      __tmp__XRE=result__OEH;
    };
    if (__tmp__XRE) {
      __tmp__ETE=TRUE__;
    } else {
      result__AFH=read_word__NSF((&__string_65));
      if (result__AFH) {
        short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        if ((! read_symbol__I0J((&__string_12)))) {
          pos__WG0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_198));
          put_position__ATG(pos__WG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        if ((! read_integer__LJO())) {
          pos__YG0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_213));
          put_position__ATG(pos__YG0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
      };
      __tmp__ETE=result__AFH;
    };
    if ((! __tmp__ETE)) {
      if (((((((read_word__NSF((&__string_66)) || read_word__NSF((&__string_67))) || read_word__NSF((&__string_68))) || read_word__NSF((&__string_69))) || read_word__NSF((&__string_70))) || read_word__NSF((&__string_71))) || read_word__NSF((&__string_72)))) {
        short__token__to__R0C((&__string_102),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        if ((! read_symbol__I0J((&__string_12)))) {
          pos__0G0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_198));
          put_position__ATG(pos__0G0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        if ((! read_string__WSO())) {
          pos__2G0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_214));
          put_position__ATG(pos__2G0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
      } else {
        pos__4G0F=current_position__A0F();
        put_error__text__WRG( 2,(&__string_215));
        put_position__ATG(pos__4G0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
    };
    result__DMKG=FALSE__;
    if ((! read_space__MMD())) {
      result__DMKG=FALSE__;
    } else {
      result__EMKG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__EMKG=((__CHARACTER )(( 0)));
      } else {
        result__EMKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__EMKG == ';')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__DMKG=TRUE__;
      };
    };
    if ((! result__DMKG)) {
      pos__AH0F=current_position__A0F();
      put_error__text__WRG( 2,(&__string_191));
      put_position__ATG(pos__AH0F);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
  };
  return(result__M2D);
}

static void* read_type_list__O4KB(__PARSER *Self__P4KB,__BOOLEAN is_section__Q4KB)
// ({PARSER},{TRUExFALSE}) With resultNo recursive, No inlinable.
{
  void *ts__U4KB,*__tmp__B5KB,*__tmp__LALB;
  void *t__T4KB;
  __POSITION pos__OH0F,pos__QH0F,pos__SH0F;
  void *lst__S4KB,*result__STIG;
  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__TTIG,*Self__UTIG;
  __BOOLEAN result__GMKG;
  __CHARACTER result__HMKG;
  lst__S4KB=NULL;
  ts__U4KB=NULL;
  t__T4KB=read_type__5FP(Self__P4KB,FALSE__);
  if (((void *)t__T4KB != (void *)NULL)) {
    if (is_section__Q4KB) {
      if (t__T4KB==NULL) {
        __tmp__B5KB=NULL;
      } else {
        switch (((struct ___OBJ *)t__T4KB)->__id) {
        case __ITM_TYPE_SIMPLE__: {
          __tmp__B5KB=((void *)t__T4KB);
        } break;
        case __ITM_TYPE_SELF__: {
          __tmp__B5KB=((void *)t__T4KB);
        } break;
        case __ITM_TYPE_GENERIC__: {
          __tmp__B5KB=((void *)t__T4KB);
        } break;
        case __ITM_TYPE_STYLE__: {
          __tmp__B5KB=((void *)t__T4KB);
        } break;
        }
      };
      ts__U4KB=__tmp__B5KB;
      if (((void *)__tmp__B5KB == (void *)NULL)) {
        pos__OH0F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_216));
        put_position__ATG(pos__OH0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
    };
    result__STIG=NULL;
    if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O)->parent_arrayed_collection__N5O.upper__IZT <  0)) {
      result__STIG=create_with_capacity__VOP( 16);
    } else {
      Self__TTIG=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O);
      result__STIG=((void **)Self__TTIG->parent_arrayed_collection__N5O.storage__ZDU)[Self__TTIG->parent_arrayed_collection__N5O.upper__IZT];
      Self__UTIG=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O);
      Self__UTIG->parent_arrayed_collection__N5O.upper__IZT=(__INTEGER)(Self__UTIG->parent_arrayed_collection__N5O.upper__IZT -  1);
    };
    lst__S4KB=result__STIG;
    add_last__M5T(result__STIG,t__T4KB);
    while_do__RKVB:
    {
      result__GMKG=FALSE__;
      if ((! read_space__MMD())) {
        result__GMKG=FALSE__;
      } else {
        result__HMKG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__HMKG=((__CHARACTER )(( 0)));
        } else {
          result__HMKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__HMKG == ',')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__GMKG=TRUE__;
        };
      };
      if (result__GMKG) {
        t__T4KB=read_type__5FP(Self__P4KB,FALSE__);
        if (((void *)t__T4KB == (void *)NULL)) {
          pos__QH0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_217));
          put_position__ATG(pos__QH0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        if (is_section__Q4KB) {
          if (t__T4KB==NULL) {
            __tmp__LALB=NULL;
          } else {
            switch (((struct ___OBJ *)t__T4KB)->__id) {
            case __ITM_TYPE_SIMPLE__: {
              __tmp__LALB=((void *)t__T4KB);
            } break;
            case __ITM_TYPE_SELF__: {
              __tmp__LALB=((void *)t__T4KB);
            } break;
            case __ITM_TYPE_GENERIC__: {
              __tmp__LALB=((void *)t__T4KB);
            } break;
            case __ITM_TYPE_STYLE__: {
              __tmp__LALB=((void *)t__T4KB);
            } break;
            }
          };
          ts__U4KB=__tmp__LALB;
          if (((void *)__tmp__LALB == (void *)NULL)) {
            pos__SH0F=current_position__A0F();
            put_error__text__WRG( 0,(&__string_216));
            put_position__ATG(pos__SH0F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
        };
        add_last__M5T(lst__S4KB,t__T4KB);
        goto while_do__RKVB;
      };
    };
    lst__S4KB=alias__KAP(result__STIG);
  };
  return(lst__S4KB);
}

static __INTEGER hash_code__ATY(__FAST_ARRAYoITM_TYPE_MONOo *Self__BTY)
// ({FAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
{
  __INTEGER result__DTY,__tmp__STY,__tmp__BUY;
  void *__tmp__RTY,*__tmp__AUY;
  __BOOLEAN __tmp__UTY;
  result__DTY= 0;
  if ((! (Self__BTY->parent_arrayed_collection__GRC.upper__Q5T <  0))) {
    if (((void *)((void **)Self__BTY->parent_arrayed_collection__GRC.storage__OAU)[Self__BTY->parent_arrayed_collection__GRC.upper__Q5T] != (void *)NULL)) {
      __tmp__RTY=((void **)Self__BTY->parent_arrayed_collection__GRC.storage__OAU)[Self__BTY->parent_arrayed_collection__GRC.upper__Q5T];
      switch (((struct ___OBJ *)__tmp__RTY)->__id) {
      case __ITM_TYPE_SIMPLE__: {
        __tmp__STY=hash_code__LQU(((__ITM_TYPE_SIMPLE *)__tmp__RTY)->name__MEK);
      } break;
      case __ITM_TYPE_SELF__: {
        __tmp__STY=hash_code__LQU(((__ITM_TYPE_SELF *)__tmp__RTY)->parent_itm_type_simple__KMJ.name__MEK);
      } break;
      case __ITM_TYPE_GENERIC__: {
        __tmp__STY=hash_code__LQU(((__ITM_TYPE_GENERIC *)__tmp__RTY)->parent_itm_type_mono__S4N.parent_itm_type_simple__R4N.name__MEK);
      } break;
      case __ITM_TYPE_STYLE__: {
        __tmp__STY=hash_code__LQU(((__ITM_TYPE_STYLE *)__tmp__RTY)->parent_itm_type_simple__R4N.name__MEK);
      } break;
      };
      result__DTY=__tmp__STY;
      __tmp__UTY=TRUE__;
    } else {
      __tmp__UTY=FALSE__;
    };
    if ((! __tmp__UTY)) {
      if (((void *)((void **)Self__BTY->parent_arrayed_collection__GRC.storage__OAU)[ 0] != (void *)NULL)) {
        __tmp__AUY=((void **)Self__BTY->parent_arrayed_collection__GRC.storage__OAU)[ 0];
        switch (((struct ___OBJ *)__tmp__AUY)->__id) {
        case __ITM_TYPE_SIMPLE__: {
          __tmp__BUY=hash_code__LQU(((__ITM_TYPE_SIMPLE *)__tmp__AUY)->name__MEK);
        } break;
        case __ITM_TYPE_SELF__: {
          __tmp__BUY=hash_code__LQU(((__ITM_TYPE_SELF *)__tmp__AUY)->parent_itm_type_simple__KMJ.name__MEK);
        } break;
        case __ITM_TYPE_GENERIC__: {
          __tmp__BUY=hash_code__LQU(((__ITM_TYPE_GENERIC *)__tmp__AUY)->parent_itm_type_mono__S4N.parent_itm_type_simple__R4N.name__MEK);
        } break;
        case __ITM_TYPE_STYLE__: {
          __tmp__BUY=hash_code__LQU(((__ITM_TYPE_STYLE *)__tmp__AUY)->parent_itm_type_simple__R4N.name__MEK);
        } break;
        };
        result__DTY=__tmp__BUY;
      };
    };
  };
  return(result__DTY);
}

static __CHARACTER read_style__QUF()
// () With resultNo recursive, No inlinable.
{
  __CHARACTER result__TUF,result__KMKG,result__NMKG;
  __BOOLEAN result__JMKG,__tmp__AVF,result__MMKG;
  result__TUF='\0';
  result__JMKG=FALSE__;
  if ((! read_space__MMD())) {
    result__JMKG=FALSE__;
  } else {
    result__KMKG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__KMKG=((__CHARACTER )(( 0)));
    } else {
      result__KMKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__KMKG == '-')) {
      position__V0B=(__INTEGER)(position__V0B +  1);
      result__JMKG=TRUE__;
    };
  };
  if (result__JMKG) {
    result__TUF='-';
    short__token__to__R0C((&__string_104),(__INTEGER)(position__V0B -  1),position__V0B);
    __tmp__AVF=TRUE__;
  } else {
    __tmp__AVF=FALSE__;
  };
  if ((! __tmp__AVF)) {
    result__MMKG=FALSE__;
    if ((! read_space__MMD())) {
      result__MMKG=FALSE__;
    } else {
      result__NMKG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__NMKG=((__CHARACTER )(( 0)));
      } else {
        result__NMKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__NMKG == '+')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__MMKG=TRUE__;
      };
    };
    if (result__MMKG) {
      result__TUF='+';
      short__token__to__R0C((&__string_104),(__INTEGER)(position__V0B -  1),position__V0B);
    } else {
      result__TUF=' ';
    };
  };
  return(result__TUF);
}

static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__T3XB(__INTEGER new_count__V3XB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __POINTER ptr__FJZB,ptr_table__QMKG,next__PMKG,result__RMKG;
  __POINTER ptr_table__VMKG,next__UMKG,result__WMKG;
  __INTEGER typ_id__KJZB;
  __UINTEGER_32 sz__HJZB,a__IIHG,new_size__JIHG,t__NIHG,a__MIHG;
  __UINTEGER_32 new_size__YMKG,lab_type__XMKG;
  __FAST_ARRAYoITM_ARGUMENTo *result__EJZB,*Self__RFDC;
  result__EJZB=NULL;
  ptr__FJZB=((__POINTER )(NULL));
  typ_id__KJZB= 0;
  sz__HJZB=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_ARGUMENTo));
  if ((sz__HJZB ==  0)) {
    result__EJZB=FAST_ARRAYoITM_ARGUMENTo__;
  } else {
    typ_id__KJZB=__FAST_ARRAYoITM_ARGUMENTo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__HJZB);
    if ((typ_id__KJZB == (__INTEGER)(-  1))) {
      a__IIHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__JIHG=(__UINTEGER_32)((__UINTEGER_32)(sz__HJZB + a__IIHG) & (__UINTEGER_32)(~ a__IIHG));
      ptr_table__QMKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JIHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__PMKG=((__POINTER )(NULL));
      result__RMKG=((__POINTER *)ptr_table__QMKG)[ 0];
      if ((result__RMKG == (void *)NULL)) {
        result__RMKG=new_lab__RUJ(new_size__JIHG);
        next__PMKG=(void *)((unsigned long)result__RMKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JIHG)));
        ((__POINTER *)next__PMKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__QMKG)[ 0]=next__PMKG;
      } else {
        next__PMKG=((__POINTER *)result__RMKG)[ 0];
        if ((next__PMKG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RMKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__JIHG <<  1)) <=  4096)) {
            next__PMKG=(void *)((unsigned long)result__RMKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JIHG)));
          } else {
            next__PMKG=new_lab__RUJ(new_size__JIHG);
          };
          ((__POINTER *)next__PMKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__QMKG)[ 0]=next__PMKG;
        } else {
          ((__POINTER *)result__RMKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__PMKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__RMKG=next__PMKG;
        };
      };
      ptr__FJZB=result__RMKG;
    } else {
      t__NIHG=((__UINTEGER_32 )typ_id__KJZB);
      a__MIHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__YMKG=(__UINTEGER_32)((__UINTEGER_32)(sz__HJZB + a__MIHG) & (__UINTEGER_32)(~ a__MIHG));
      ptr_table__VMKG=((__POINTER )(&(table_type[(t__NIHG)])));
      lab_type__XMKG=(__UINTEGER_32)(t__NIHG |  1);
      next__UMKG=((__POINTER )(NULL));
      result__WMKG=((__POINTER *)ptr_table__VMKG)[ 0];
      if ((result__WMKG == (void *)NULL)) {
        result__WMKG=new_lab__RUJ(lab_type__XMKG);
        next__UMKG=(void *)((unsigned long)result__WMKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YMKG)));
        ((__POINTER *)next__UMKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__VMKG)[ 0]=next__UMKG;
      } else {
        next__UMKG=((__POINTER *)result__WMKG)[ 0];
        if ((next__UMKG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WMKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YMKG <<  1)) <=  4096)) {
            next__UMKG=(void *)((unsigned long)result__WMKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YMKG)));
          } else {
            next__UMKG=new_lab__RUJ(lab_type__XMKG);
          };
          ((__POINTER *)next__UMKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__VMKG)[ 0]=next__UMKG;
        } else {
          ((__POINTER *)result__WMKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__UMKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__WMKG=next__UMKG;
        };
      };
      ptr__FJZB=result__WMKG;
    };
    result__EJZB=((__FAST_ARRAYoITM_ARGUMENTo *)ptr__FJZB);
    *(result__EJZB) = *(FAST_ARRAYoITM_ARGUMENTo__);
  };
  Self__RFDC=((__FAST_ARRAYoITM_ARGUMENTo *)result__EJZB);
  if ((Self__RFDC->parent_arrayed_collection__ECLB.capacity__ZCCC < new_count__V3XB)) {
    Self__RFDC->parent_arrayed_collection__ECLB.storage__VDCC=create__NC5C(new_count__V3XB);
    Self__RFDC->parent_arrayed_collection__ECLB.capacity__ZCCC=new_count__V3XB;
  };
  Self__RFDC->parent_arrayed_collection__ECLB.upper__XCCC=(__INTEGER)(-  1);
  return(result__EJZB);
}

static void* read_local_arg__with_self__QCZB(__PARSER *Self__RCZB,__BOOLEAN m__SCZB,__BOOLEAN s__TCZB)
// ({PARSER},{TRUExFALSE},{TRUExFALSE}) With resultNo recursive, No inlinable.
{
  void *t__VCZB,*tmp__UCID;
  __INTEGER beg__ZCZB,Self__A4XC,limit_up__B4XC,Self__KSPD,Self__3TPD;
  __INTEGER typ_id__UR0B,typ_id__KN2B,__tmp__VHZB,Self__JL2B;
  void *result__1CZB;
  __POSITION pos__RI0F,pos__TI0F,pos__AJ0F,p__RIZB,p__BL2B;
  void *tmp__13HD;
  __ITM_ARG *result__OR0B;
  __POINTER ptr__PR0B,ptr_table__ANKG,next__5MKG,result__BNKG;
  __POINTER ptr_table__FNKG,next__ENKG,result__GNKG,ptr__FN2B;
  __POINTER ptr_table__KNKG,next__JNKG,result__LNKG,ptr_table__PNKG;
  __POINTER next__ONKG,result__QNKG;
  __UINTEGER_32 sz__RR0B,a__MLHG,new_size__NLHG,t__RLHG,a__QLHG;
  __UINTEGER_32 new_size__INKG,lab_type__HNKG,sz__HN2B,a__BLHG;
  __UINTEGER_32 new_size__CLHG,t__GLHG,a__FLHG,new_size__SNKG;
  __UINTEGER_32 lab_type__RNKG;
  __ITM_ARGS *result__EN2B,*Self__KEEC;
  void *type__XCZB,*result__I5O;
  void *name__YCZB,*result__VTIG;
  __BOOLEAN mute__0CZB,result__ZMKG,__tmp__QEZB,result__2MKG;
  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__WTIG,*Self__XTIG;
  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__FY4,*Self__1Y4;
  __CHARACTER result__0MKG,result__AQBG,result__3MKG;
  __FAST_ARRAYoSTRING_CONSTANTo *Self__D5DC;
  void **__tmp__OMIG,**__tmp__PMIG,**__tmp__QMIG;
  __FAST_ARRAYoITM_TYPE_MONOo *Self__JBEC;
  void **__tmp__GNIG,**__tmp__HNIG,**__tmp__INIG;
  t__VCZB=NULL;
  type__XCZB=NULL;
  name__YCZB=NULL;
  beg__ZCZB= 0;
  result__1CZB=NULL;
  mute__0CZB=m__SCZB;
  if (read_identifier__EBL()) {
    result__VTIG=NULL;
    if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL)->parent_arrayed_collection__55K.upper__B5S <  0)) {
      result__VTIG=create_with_capacity__GMD( 16);
    } else {
      Self__WTIG=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL);
      result__VTIG=((void **)Self__WTIG->parent_arrayed_collection__55K.storage__5BT)[Self__WTIG->parent_arrayed_collection__55K.upper__B5S];
      Self__XTIG=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL);
      Self__XTIG->parent_arrayed_collection__55K.upper__B5S=(__INTEGER)(Self__XTIG->parent_arrayed_collection__55K.upper__B5S -  1);
    };
    name__YCZB=result__VTIG;
    result__I5O=NULL;
    if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O)->parent_arrayed_collection__N5O.upper__IZT <  0)) {
      result__I5O=create_with_capacity__VOP( 16);
    } else {
      Self__FY4=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O);
      result__I5O=((void **)Self__FY4->parent_arrayed_collection__N5O.storage__ZDU)[Self__FY4->parent_arrayed_collection__N5O.upper__IZT];
      Self__1Y4=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O);
      Self__1Y4->parent_arrayed_collection__N5O.upper__IZT=(__INTEGER)(Self__1Y4->parent_arrayed_collection__N5O.upper__IZT -  1);
    };
    type__XCZB=result__I5O;
    beg__ZCZB= 0;
    do {
      if (((((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__YCZB)->parent_arrayed_collection__30B.upper__I5N +  1) !=  0) && (! read_identifier__EBL())) && (! mute__0CZB))) {
        pos__RI0F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_218));
        put_position__ATG(pos__RI0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      add_last__1VS(name__YCZB,last_string__NTC);
      result__ZMKG=FALSE__;
      if ((! read_space__MMD())) {
        result__ZMKG=FALSE__;
      } else {
        result__0MKG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__0MKG=((__CHARACTER )(( 0)));
        } else {
          result__0MKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__0MKG == ':')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__ZMKG=TRUE__;
        };
      };
      if (result__ZMKG) {
        result__AQBG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__AQBG=((__CHARACTER )(( 0)));
        } else {
          result__AQBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__QEZB=(result__AQBG != '=');
      } else {
        __tmp__QEZB=FALSE__;
      };
      if (__tmp__QEZB) {
        mute__0CZB=FALSE__;
        t__VCZB=read_type__5FP(Self__RCZB,TRUE__);
        if (((void *)t__VCZB == (void *)NULL)) {
          pos__TI0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_219));
          put_position__ATG(pos__TI0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        Self__A4XC=beg__ZCZB;
        limit_up__B4XC=((__FAST_ARRAYoSTRING_CONSTANTo *)name__YCZB)->parent_arrayed_collection__30B.upper__I5N;
        while ((Self__A4XC <= limit_up__B4XC)) {
          add_last__M5T(type__XCZB,t__VCZB);
          Self__A4XC=(__INTEGER)(Self__A4XC +  1);
        };
        beg__ZCZB=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__YCZB)->parent_arrayed_collection__30B.upper__I5N +  1);
      };
      result__2MKG=FALSE__;
      if ((! read_space__MMD())) {
        result__2MKG=FALSE__;
      } else {
        result__3MKG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__3MKG=((__CHARACTER )(( 0)));
        } else {
          result__3MKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__3MKG == ',')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__2MKG=TRUE__;
        };
      };
    } while (result__2MKG);
    if ((beg__ZCZB != (__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__VTIG)->parent_arrayed_collection__30B.upper__I5N +  1))) {
      if ((! mute__0CZB)) {
        pos__AJ0F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_219));
        put_position__ATG(pos__AJ0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      free__5Z3(result__VTIG);
      free__TEP(result__I5O);
    } else {
      if (s__TCZB) {
        Self__D5DC=((__FAST_ARRAYoSTRING_CONSTANTo *)result__VTIG);
        add_last__1VS(Self__D5DC,(&__string_53));
        if ((Self__D5DC->parent_arrayed_collection__30B.upper__I5N !=  0)) {
          if ((Self__D5DC->parent_arrayed_collection__30B.upper__I5N ==  1)) {
            tmp__13HD=((void **)Self__D5DC->parent_arrayed_collection__30B.storage__WDR)[ 0];
            ((void **)Self__D5DC->parent_arrayed_collection__30B.storage__WDR)[ 0]=((void **)Self__D5DC->parent_arrayed_collection__30B.storage__WDR)[ 1];
            ((void **)Self__D5DC->parent_arrayed_collection__30B.storage__WDR)[ 1]=tmp__13HD;
          } else {
            Self__KSPD=(__INTEGER)(Self__D5DC->parent_arrayed_collection__30B.upper__I5N -  1);
            __tmp__OMIG=Self__D5DC->parent_arrayed_collection__30B.storage__WDR;
            __tmp__PMIG=Self__D5DC->parent_arrayed_collection__30B.storage__WDR;
            __tmp__QMIG=Self__D5DC->parent_arrayed_collection__30B.storage__WDR;
            while ((Self__KSPD >=  0)) {
              ((void **)__tmp__PMIG)[(__INTEGER)(Self__KSPD +  1)]=((void **)__tmp__OMIG)[Self__KSPD];
              ((void **)__tmp__QMIG)[Self__KSPD]=NULL;
              Self__KSPD=(__INTEGER)(Self__KSPD -  1);
            };
            ((void **)Self__D5DC->parent_arrayed_collection__30B.storage__WDR)[ 0]=(&__string_53);
          };
        };
        Self__JBEC=((__FAST_ARRAYoITM_TYPE_MONOo *)result__I5O);
        add_last__M5T(Self__JBEC,ITM_TYPE_SELF__);
        if ((Self__JBEC->parent_arrayed_collection__GRC.upper__Q5T !=  0)) {
          if ((Self__JBEC->parent_arrayed_collection__GRC.upper__Q5T ==  1)) {
            tmp__UCID=((void **)Self__JBEC->parent_arrayed_collection__GRC.storage__OAU)[ 0];
            ((void **)Self__JBEC->parent_arrayed_collection__GRC.storage__OAU)[ 0]=((void **)Self__JBEC->parent_arrayed_collection__GRC.storage__OAU)[ 1];
            ((void **)Self__JBEC->parent_arrayed_collection__GRC.storage__OAU)[ 1]=tmp__UCID;
          } else {
            Self__3TPD=(__INTEGER)(Self__JBEC->parent_arrayed_collection__GRC.upper__Q5T -  1);
            __tmp__GNIG=Self__JBEC->parent_arrayed_collection__GRC.storage__OAU;
            __tmp__HNIG=Self__JBEC->parent_arrayed_collection__GRC.storage__OAU;
            __tmp__INIG=Self__JBEC->parent_arrayed_collection__GRC.storage__OAU;
            while ((Self__3TPD >=  0)) {
              ((void **)__tmp__HNIG)[(__INTEGER)(Self__3TPD +  1)]=((void **)__tmp__GNIG)[Self__3TPD];
              ((void **)__tmp__INIG)[Self__3TPD]=NULL;
              Self__3TPD=(__INTEGER)(Self__3TPD -  1);
            };
            ((void **)Self__JBEC->parent_arrayed_collection__GRC.storage__OAU)[ 0]=ITM_TYPE_SELF__;
          };
        };
      };
      if (((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__VTIG)->parent_arrayed_collection__30B.upper__I5N +  1) ==  1)) {
        p__RIZB=current_position__A0F();
        result__OR0B=NULL;
        ptr__PR0B=((__POINTER )(NULL));
        typ_id__UR0B= 0;
        sz__RR0B=((__UINTEGER_32 )sizeof(__ITM_ARG));
        if ((sz__RR0B ==  0)) {
          result__OR0B=ITM_ARG__;
        } else {
          typ_id__UR0B=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__RR0B);
          if ((typ_id__UR0B == (__INTEGER)(-  1))) {
            a__MLHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__NLHG=(__UINTEGER_32)((__UINTEGER_32)(sz__RR0B + a__MLHG) & (__UINTEGER_32)(~ a__MLHG));
            ptr_table__ANKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NLHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__5MKG=((__POINTER )(NULL));
            result__BNKG=((__POINTER *)ptr_table__ANKG)[ 0];
            if ((result__BNKG == (void *)NULL)) {
              result__BNKG=new_lab__RUJ(new_size__NLHG);
              next__5MKG=(void *)((unsigned long)result__BNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NLHG)));
              ((__POINTER *)next__5MKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__ANKG)[ 0]=next__5MKG;
            } else {
              next__5MKG=((__POINTER *)result__BNKG)[ 0];
              if ((next__5MKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BNKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__NLHG <<  1)) <=  4096)) {
                  next__5MKG=(void *)((unsigned long)result__BNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NLHG)));
                } else {
                  next__5MKG=new_lab__RUJ(new_size__NLHG);
                };
                ((__POINTER *)next__5MKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__ANKG)[ 0]=next__5MKG;
              } else {
                ((__POINTER *)result__BNKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5MKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__BNKG=next__5MKG;
              };
            };
            ptr__PR0B=result__BNKG;
          } else {
            t__RLHG=((__UINTEGER_32 )typ_id__UR0B);
            a__QLHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__INKG=(__UINTEGER_32)((__UINTEGER_32)(sz__RR0B + a__QLHG) & (__UINTEGER_32)(~ a__QLHG));
            ptr_table__FNKG=((__POINTER )(&(table_type[(t__RLHG)])));
            lab_type__HNKG=(__UINTEGER_32)(t__RLHG |  1);
            next__ENKG=((__POINTER )(NULL));
            result__GNKG=((__POINTER *)ptr_table__FNKG)[ 0];
            if ((result__GNKG == (void *)NULL)) {
              result__GNKG=new_lab__RUJ(lab_type__HNKG);
              next__ENKG=(void *)((unsigned long)result__GNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__INKG)));
              ((__POINTER *)next__ENKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__FNKG)[ 0]=next__ENKG;
            } else {
              next__ENKG=((__POINTER *)result__GNKG)[ 0];
              if ((next__ENKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GNKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__INKG <<  1)) <=  4096)) {
                  next__ENKG=(void *)((unsigned long)result__GNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__INKG)));
                } else {
                  next__ENKG=new_lab__RUJ(lab_type__HNKG);
                };
                ((__POINTER *)next__ENKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__FNKG)[ 0]=next__ENKG;
              } else {
                ((__POINTER *)result__GNKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ENKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__GNKG=next__ENKG;
              };
            };
            ptr__PR0B=result__GNKG;
          };
          result__OR0B=((__ITM_ARG *)ptr__PR0B);
          *(result__OR0B) = *(ITM_ARG__);
        };
        ((__ITM_ARG *)result__OR0B)->parent_itm_argument__Q4EB.parent_itm_code__YDN.position__REJ=p__RIZB;
        result__1CZB=result__OR0B;
        free__5Z3(result__VTIG);
        free__TEP(result__I5O);
      } else {
        name__YCZB=alias__4PIB(result__VTIG);
        type__XCZB=alias__KAP(result__I5O);
        get__CJ2B(type__XCZB);
        p__BL2B=current_position__A0F();
        result__EN2B=NULL;
        ptr__FN2B=((__POINTER )(NULL));
        typ_id__KN2B= 0;
        sz__HN2B=((__UINTEGER_32 )sizeof(__ITM_ARGS));
        if ((sz__HN2B ==  0)) {
          result__EN2B=ITM_ARGS__;
        } else {
          typ_id__KN2B=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__HN2B);
          if ((typ_id__KN2B == (__INTEGER)(-  1))) {
            a__BLHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__CLHG=(__UINTEGER_32)((__UINTEGER_32)(sz__HN2B + a__BLHG) & (__UINTEGER_32)(~ a__BLHG));
            ptr_table__KNKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CLHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__JNKG=((__POINTER )(NULL));
            result__LNKG=((__POINTER *)ptr_table__KNKG)[ 0];
            if ((result__LNKG == (void *)NULL)) {
              result__LNKG=new_lab__RUJ(new_size__CLHG);
              next__JNKG=(void *)((unsigned long)result__LNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CLHG)));
              ((__POINTER *)next__JNKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__KNKG)[ 0]=next__JNKG;
            } else {
              next__JNKG=((__POINTER *)result__LNKG)[ 0];
              if ((next__JNKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LNKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CLHG <<  1)) <=  4096)) {
                  next__JNKG=(void *)((unsigned long)result__LNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CLHG)));
                } else {
                  next__JNKG=new_lab__RUJ(new_size__CLHG);
                };
                ((__POINTER *)next__JNKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__KNKG)[ 0]=next__JNKG;
              } else {
                ((__POINTER *)result__LNKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__JNKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__LNKG=next__JNKG;
              };
            };
            ptr__FN2B=result__LNKG;
          } else {
            t__GLHG=((__UINTEGER_32 )typ_id__KN2B);
            a__FLHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__SNKG=(__UINTEGER_32)((__UINTEGER_32)(sz__HN2B + a__FLHG) & (__UINTEGER_32)(~ a__FLHG));
            ptr_table__PNKG=((__POINTER )(&(table_type[(t__GLHG)])));
            lab_type__RNKG=(__UINTEGER_32)(t__GLHG |  1);
            next__ONKG=((__POINTER )(NULL));
            result__QNKG=((__POINTER *)ptr_table__PNKG)[ 0];
            if ((result__QNKG == (void *)NULL)) {
              result__QNKG=new_lab__RUJ(lab_type__RNKG);
              next__ONKG=(void *)((unsigned long)result__QNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SNKG)));
              ((__POINTER *)next__ONKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__PNKG)[ 0]=next__ONKG;
            } else {
              next__ONKG=((__POINTER *)result__QNKG)[ 0];
              if ((next__ONKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QNKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SNKG <<  1)) <=  4096)) {
                  next__ONKG=(void *)((unsigned long)result__QNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SNKG)));
                } else {
                  next__ONKG=new_lab__RUJ(lab_type__RNKG);
                };
                ((__POINTER *)next__ONKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__PNKG)[ 0]=next__ONKG;
              } else {
                ((__POINTER *)result__QNKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ONKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__QNKG=next__ONKG;
              };
            };
            ptr__FN2B=result__QNKG;
          };
          result__EN2B=((__ITM_ARGS *)ptr__FN2B);
          *(result__EN2B) = *(ITM_ARGS__);
        };
        Self__KEEC=((__ITM_ARGS *)result__EN2B);
        Self__KEEC->parent_itm_argument__IHZB.parent_itm_code__YDN.position__REJ=p__BL2B;
        Self__KEEC->name__OEEC=name__YCZB;
        result__1CZB=result__EN2B;
      };
      __tmp__VHZB=((__FAST_ARRAYoSTRING_CONSTANTo *)name__YCZB)->parent_arrayed_collection__30B.upper__I5N;
      Self__JL2B= 0;
      while ((Self__JL2B <= __tmp__VHZB)) {
        add__XTEB(short_local__W1B,((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)name__YCZB)->parent_arrayed_collection__30B.storage__WDR)[Self__JL2B]);
        Self__JL2B=(__INTEGER)(Self__JL2B +  1);
      };
    };
  };
  return(result__1CZB);
}

static void add_last__TCCC(__FAST_ARRAYoITM_ARGUMENTo *Self__UCCC,void *element__VCCC)
// ({FAST_ARRAYoITM_ARGUMENTo},{NULLxITM_ARGxITM_ARGS}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__WCCC,__tmp__5DCC,__tmp__BLUD,Self__DNUE;
  __BOOLEAN __tmp__GDCC;
  void **__tmp__4DCC,**new__OKUD;
  new_capacity__WCCC= 0;
  if (((__INTEGER)(Self__UCCC->parent_arrayed_collection__ECLB.upper__XCCC +  1) <= (__INTEGER)(Self__UCCC->parent_arrayed_collection__ECLB.capacity__ZCCC -  1))) {
    Self__UCCC->parent_arrayed_collection__ECLB.upper__XCCC=(__INTEGER)(Self__UCCC->parent_arrayed_collection__ECLB.upper__XCCC +  1);
    __tmp__GDCC=TRUE__;
  } else {
    __tmp__GDCC=FALSE__;
  };
  if ((! __tmp__GDCC)) {
    if ((Self__UCCC->parent_arrayed_collection__ECLB.capacity__ZCCC ==  0)) {
      Self__UCCC->parent_arrayed_collection__ECLB.storage__VDCC=create__NC5C( 2);
      Self__UCCC->parent_arrayed_collection__ECLB.capacity__ZCCC= 2;
      Self__UCCC->parent_arrayed_collection__ECLB.upper__XCCC= 0;
    } else {
      new_capacity__WCCC=(__INTEGER)(Self__UCCC->parent_arrayed_collection__ECLB.capacity__ZCCC <<  1);
      __tmp__4DCC=Self__UCCC->parent_arrayed_collection__ECLB.storage__VDCC;
      __tmp__5DCC=Self__UCCC->parent_arrayed_collection__ECLB.capacity__ZCCC;
      new__OKUD=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__4DCC)),((__UINTEGER_32 )(__INTEGER)(__tmp__5DCC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__WCCC * ((__INTEGER )(sizeof(void *)))))));
      __tmp__BLUD=(__INTEGER)(new_capacity__WCCC -  1);
      Self__DNUE=__tmp__5DCC;
      while ((Self__DNUE <= __tmp__BLUD)) {
        new__OKUD[Self__DNUE]=NULL;
        Self__DNUE=(__INTEGER)(Self__DNUE +  1);
      };
      Self__UCCC->parent_arrayed_collection__ECLB.storage__VDCC=new__OKUD;
      Self__UCCC->parent_arrayed_collection__ECLB.capacity__ZCCC=new_capacity__WCCC;
      Self__UCCC->parent_arrayed_collection__ECLB.upper__XCCC=(__INTEGER)(Self__UCCC->parent_arrayed_collection__ECLB.upper__XCCC +  1);
    };
  };
  ((void **)Self__UCCC->parent_arrayed_collection__ECLB.storage__VDCC)[Self__UCCC->parent_arrayed_collection__ECLB.upper__XCCC]=element__VCCC;
}

static void* read_loc_arg__E3EB(__PARSER *Self__F3EB,__BOOLEAN mute__G3EB)
// ({PARSER},{TRUExFALSE}) With resultNo recursive, No inlinable.
{
  void *result__I3EB;
  __POSITION pos__K3EB,pos__MN0F,pos__ON0F,pos__QN0F,pos__SN0F;
  void *n__N3EB;
  __ITM_ARG *result__4GJG;
  __POINTER ptr__5GJG,ptr_table__XNKG,next__WNKG,result__YNKG;
  __POINTER ptr_table__2NKG,next__1NKG,result__3NKG;
  __INTEGER typ_id__AHJG;
  __UINTEGER_32 sz__BHJG,a__CHJG,new_size__DHJG,t__EHJG,a__FHJG;
  __UINTEGER_32 new_size__5NKG,lab_type__4NKG;
  __BOOLEAN result__TNKG,__tmp__53EB,__tmp__K5EB,result__AOKG;
  __BOOLEAN result__DOKG;
  __CHARACTER result__UNKG,result__XVBG,result__BOKG,result__EOKG;
  result__I3EB=NULL;
  pos__K3EB=((__POSITION ) 0);
  n__N3EB=NULL;
  if (read_identifier__EBL()) {
    pos__K3EB=current_position__A0F();
    n__N3EB=last_string__NTC;
    result__TNKG=FALSE__;
    if ((! read_space__MMD())) {
      result__TNKG=FALSE__;
    } else {
      result__UNKG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__UNKG=((__CHARACTER )(( 0)));
      } else {
        result__UNKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__UNKG == ':')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__TNKG=TRUE__;
      };
    };
    if (result__TNKG) {
      result__XVBG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__XVBG=((__CHARACTER )(( 0)));
      } else {
        result__XVBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      __tmp__53EB=(result__XVBG != '=');
    } else {
      __tmp__53EB=FALSE__;
    };
    if (__tmp__53EB) {
      if (((void *)read_type__5FP(Self__F3EB,TRUE__) == (void *)NULL)) {
        pos__MN0F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_205));
        put_position__ATG(pos__MN0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      result__4GJG=NULL;
      ptr__5GJG=((__POINTER )(NULL));
      typ_id__AHJG= 0;
      sz__BHJG=((__UINTEGER_32 )sizeof(__ITM_ARG));
      if ((sz__BHJG ==  0)) {
        result__4GJG=ITM_ARG__;
      } else {
        typ_id__AHJG=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__BHJG);
        if ((typ_id__AHJG == (__INTEGER)(-  1))) {
          a__CHJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__DHJG=(__UINTEGER_32)((__UINTEGER_32)(sz__BHJG + a__CHJG) & (__UINTEGER_32)(~ a__CHJG));
          ptr_table__XNKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DHJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__WNKG=((__POINTER )(NULL));
          result__YNKG=((__POINTER *)ptr_table__XNKG)[ 0];
          if ((result__YNKG == (void *)NULL)) {
            result__YNKG=new_lab__RUJ(new_size__DHJG);
            next__WNKG=(void *)((unsigned long)result__YNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DHJG)));
            ((__POINTER *)next__WNKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__XNKG)[ 0]=next__WNKG;
          } else {
            next__WNKG=((__POINTER *)result__YNKG)[ 0];
            if ((next__WNKG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YNKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__DHJG <<  1)) <=  4096)) {
                next__WNKG=(void *)((unsigned long)result__YNKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DHJG)));
              } else {
                next__WNKG=new_lab__RUJ(new_size__DHJG);
              };
              ((__POINTER *)next__WNKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__XNKG)[ 0]=next__WNKG;
            } else {
              ((__POINTER *)result__YNKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__WNKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__YNKG=next__WNKG;
            };
          };
          ptr__5GJG=result__YNKG;
        } else {
          t__EHJG=((__UINTEGER_32 )typ_id__AHJG);
          a__FHJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__5NKG=(__UINTEGER_32)((__UINTEGER_32)(sz__BHJG + a__FHJG) & (__UINTEGER_32)(~ a__FHJG));
          ptr_table__2NKG=((__POINTER )(&(table_type[(t__EHJG)])));
          lab_type__4NKG=(__UINTEGER_32)(t__EHJG |  1);
          next__1NKG=((__POINTER )(NULL));
          result__3NKG=((__POINTER *)ptr_table__2NKG)[ 0];
          if ((result__3NKG == (void *)NULL)) {
            result__3NKG=new_lab__RUJ(lab_type__4NKG);
            next__1NKG=(void *)((unsigned long)result__3NKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5NKG)));
            ((__POINTER *)next__1NKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__2NKG)[ 0]=next__1NKG;
          } else {
            next__1NKG=((__POINTER *)result__3NKG)[ 0];
            if ((next__1NKG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3NKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5NKG <<  1)) <=  4096)) {
                next__1NKG=(void *)((unsigned long)result__3NKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5NKG)));
              } else {
                next__1NKG=new_lab__RUJ(lab_type__4NKG);
              };
              ((__POINTER *)next__1NKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__2NKG)[ 0]=next__1NKG;
            } else {
              ((__POINTER *)result__3NKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1NKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__3NKG=next__1NKG;
            };
          };
          ptr__5GJG=result__3NKG;
        };
        result__4GJG=((__ITM_ARG *)ptr__5GJG);
        *(result__4GJG) = *(ITM_ARG__);
      };
      ((__ITM_ARG *)result__4GJG)->parent_itm_argument__Q4EB.parent_itm_code__YDN.position__REJ=pos__K3EB;
      result__I3EB=result__4GJG;
      add__XTEB(short_local__W1B,n__N3EB);
    } else {
      if ((! mute__G3EB)) {
        pos__ON0F=current_position__A0F();
        put_error__text__WRG( 2,(&__string_220));
        put_position__ATG(pos__ON0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
    };
    __tmp__K5EB=TRUE__;
  } else {
    __tmp__K5EB=FALSE__;
  };
  if ((! __tmp__K5EB)) {
    result__AOKG=FALSE__;
    if ((! read_space__MMD())) {
      result__AOKG=FALSE__;
    } else {
      result__BOKG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__BOKG=((__CHARACTER )(( 0)));
      } else {
        result__BOKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__BOKG == '(')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__AOKG=TRUE__;
      };
    };
    if (result__AOKG) {
      result__I3EB=read_local_arg__with_self__QCZB(Self__F3EB,mute__G3EB,FALSE__);
      if (((void *)result__I3EB == (void *)NULL)) {
        if ((! mute__G3EB)) {
          pos__QN0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_177));
          put_position__ATG(pos__QN0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
      } else {
        result__DOKG=FALSE__;
        if ((! read_space__MMD())) {
          result__DOKG=FALSE__;
        } else {
          result__EOKG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__EOKG=((__CHARACTER )(( 0)));
          } else {
            result__EOKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__EOKG == ')')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__DOKG=TRUE__;
          };
        };
        if ((! result__DOKG)) {
          pos__SN0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_221));
          put_position__ATG(pos__SN0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
      };
    };
  };
  return(result__I3EB);
}

static __BOOLEAN read_operator__BRL()
// () With resultNo recursive, No inlinable.
{
  __INTEGER old_pos__FRL,__tmp__I5M,i__GBN,new_capacity__HHJG;
  __INTEGER old_nb_elts__KHJG,upper__JOKG,Self__HOKG;
  __STRING *Self__IHJG;
  __POSITION pos__5N0F;
  __BOOLEAN result__ERL,__tmp__ASL;
  __CHARACTER result__JWBG,result__KWBG,ch__C5M,result__LWBG;
  __CHARACTER *__tmp__F5M,*Self__0AN,*Self__JHJG,*new__LHJG;
  result__ERL=FALSE__;
  read_space__MMD();
  old_pos__FRL=position__V0B;
  ((__STRING *)string_tmp__QH)->count__04B= 0;
  until_do__PYL:
  {
    result__JWBG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__JWBG=((__CHARACTER )(( 0)));
    } else {
      result__JWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__JWBG == ((__CHARACTER )(( 0))))) {
      __tmp__ASL=TRUE__;
    } else {
      result__KWBG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__KWBG=((__CHARACTER )(( 0)));
      } else {
        result__KWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      ch__C5M=result__KWBG;
      __tmp__F5M=((__STRING_CONSTANT *)(&__string_222))->storage__E5M;
      __tmp__I5M=(__INTEGER)(((__STRING_CONSTANT *)(&__string_222))->count__4C -  1);
      Self__0AN=((__CHARACTER *)__tmp__F5M);
      i__GBN=__tmp__I5M;
      while ((! ((i__GBN <  0) || (ch__C5M == Self__0AN[i__GBN])))) {
        i__GBN=(__INTEGER)(i__GBN -  1);
      };
      __tmp__ASL=(i__GBN <  0);
    };
    if ((! __tmp__ASL)) {
      result__LWBG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__LWBG=((__CHARACTER )(( 0)));
      } else {
        result__LWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      Self__IHJG=((__STRING *)string_tmp__QH);
      new_capacity__HHJG= 0;
      if ((Self__IHJG->capacity__4FQ <= Self__IHJG->count__04B)) {
        if ((Self__IHJG->capacity__4FQ ==  0)) {
          Self__IHJG->capacity__4FQ= 32;
          Self__IHJG->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__HHJG=(__INTEGER)(Self__IHJG->capacity__4FQ <<  1);
          Self__JHJG=((__CHARACTER *)Self__IHJG->storage__HGQ);
          old_nb_elts__KHJG=Self__IHJG->capacity__4FQ;
          new__LHJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__JHJG),((__UINTEGER_32 )old_nb_elts__KHJG),((__UINTEGER_32 )new_capacity__HHJG)));
          upper__JOKG=(__INTEGER)(new_capacity__HHJG -  1);
          Self__HOKG=old_nb_elts__KHJG;
          while ((Self__HOKG <= upper__JOKG)) {
            new__LHJG[Self__HOKG]='\0';
            Self__HOKG=(__INTEGER)(Self__HOKG +  1);
          };
          Self__IHJG->storage__HGQ=new__LHJG;
          Self__IHJG->capacity__4FQ=new_capacity__HHJG;
        };
      };
      ((__CHARACTER *)Self__IHJG->storage__HGQ)[Self__IHJG->count__04B]=result__LWBG;
      Self__IHJG->count__04B=(__INTEGER)(Self__IHJG->count__04B +  1);
      position__V0B=(__INTEGER)(position__V0B +  1);
      goto until_do__PYL;
    };
  };
  if ((((__STRING *)string_tmp__QH)->count__04B !=  0)) {
    last_string__NTC=get__TPB(string_tmp__QH);
    if (((((void *)last_string__NTC == (void *)(&__string_12)) || ((void *)last_string__NTC == (void *)(&__string_14))) || ((void *)last_string__NTC == (void *)(&__string_13)))) {
      pos__5N0F=current_position__A0F();
      put_error__text__WRG( 0,(&__string_181));
      put_position__ATG(pos__5N0F);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
    short__token__to__R0C((&__string_96),old_pos__FRL,position__V0B);
    result__ERL=TRUE__;
  };
  return(result__ERL);
}

static __BOOLEAN read_integer__LJO()
// () With resultNo recursive, No inlinable.
{
  __INTEGER_64 result__B4JE,__tmp__T4JE,result__NCPE,result__D3PE;
  __INTEGER pos_old__PJO,new_capacity__NHJG,old_nb_elts__QHJG;
  __INTEGER upper__OOKG,Self__MOKG,new_capacity__THJG,old_nb_elts__WHJG;
  __INTEGER upper__TOKG,Self__ROKG,__tmp__M4JE,Self__JIOE,result__ZTQE;
  __INTEGER j__4APE,__tmp__NSGG,__tmp__YCPE,Self__SPPE,i__N1PE;
  __INTEGER __tmp__O3PE,Self__VYQE,state__Q4PE,value__R4PE,i__P4PE;
  __INTEGER __tmp__ZNIG,state__LGQE,result__OGQE,i__KGQE,__tmp__4NIG;
  __INTEGER __tmp__AOIG;
  __STRING *Self__OHJG,*Self__UHJG,*Self__53JE,*Self__IEGG,*Self__2LHG;
  __STRING *Self__1APE,*Self__LCPE,*Self__L1PE,*Self__B3PE,*Self__N4PE;
  __STRING *Self__IGQE;
  __POSITION pos__KP0F,pos__1P0F,pos__JQ0F;
  __BOOLEAN result__OJO,result__0LHG,__tmp__0JO,__tmp__UKO,__tmp__QUQE;
  __BOOLEAN result__3APE,__tmp__WBPE,result__2ORE,__tmp__2MO;
  __BOOLEAN result__O1PE,negative__S4PE,result__T4PE,__tmp__BAQE;
  __BOOLEAN result__0VTF,__tmp__NAQE,result__HWTF,result__4LHG;
  __BOOLEAN __tmp__BBQE,__tmp__ACQE,result__YV5E,result__AMHG;
  __BOOLEAN __tmp__UEQE,result__KW5E,result__CMHG,__tmp__BEQE;
  __BOOLEAN negative__NGQE,__tmp__0HQE,result__JXTF,__tmp__NIQE;
  __BOOLEAN __tmp__CJQE,result__YX5E,__tmp__JKQE,result__KY5E;
  __BOOLEAN result__EMHG;
  __CHARACTER result__MWBG,result__SWBG,result__TWBG,result__UWBG;
  __CHARACTER result__VWBG,result__WWBG,result__XWBG,Self__XTQE;
  __CHARACTER result__HXBG,Self__0ORE,result__XXBG,Self__IU5E;
  __CHARACTER result__1XBG,cc__U4PE,cc__MGQE;
  __CHARACTER *Self__PHJG,*new__RHJG,*Self__VHJG,*new__XHJG,*__tmp__HEGG;
  __CHARACTER *__tmp__OSGG,*__tmp__WEGG,*__tmp__TSGG,*__tmp__AFGG;
  __CHARACTER *__tmp__0NIG,*__tmp__5NIG;
  result__OJO=FALSE__;
  pos_old__PJO= 0;
  if (read_space__MMD()) {
    result__MWBG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__MWBG=((__CHARACTER )(( 0)));
    } else {
      result__MWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    result__0LHG=FALSE__;
    if ((((__INTEGER_8 )result__MWBG) >= ((__INTEGER_8 )'0'))) {
      result__0LHG=(((__INTEGER_8 )result__MWBG) <= ((__INTEGER_8 )'9'));
    };
    __tmp__0JO=result__0LHG;
  } else {
    __tmp__0JO=FALSE__;
  };
  if (__tmp__0JO) {
    result__OJO=TRUE__;
    ((__STRING *)string_tmp__QH)->count__04B= 0;
    result__SWBG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__SWBG=((__CHARACTER )(( 0)));
    } else {
      result__SWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    Self__OHJG=((__STRING *)string_tmp__QH);
    new_capacity__NHJG= 0;
    if ((Self__OHJG->capacity__4FQ <= Self__OHJG->count__04B)) {
      if ((Self__OHJG->capacity__4FQ ==  0)) {
        Self__OHJG->capacity__4FQ= 32;
        Self__OHJG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__NHJG=(__INTEGER)(Self__OHJG->capacity__4FQ <<  1);
        Self__PHJG=((__CHARACTER *)Self__OHJG->storage__HGQ);
        old_nb_elts__QHJG=Self__OHJG->capacity__4FQ;
        new__RHJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__PHJG),((__UINTEGER_32 )old_nb_elts__QHJG),((__UINTEGER_32 )new_capacity__NHJG)));
        upper__OOKG=(__INTEGER)(new_capacity__NHJG -  1);
        Self__MOKG=old_nb_elts__QHJG;
        while ((Self__MOKG <= upper__OOKG)) {
          new__RHJG[Self__MOKG]='\0';
          Self__MOKG=(__INTEGER)(Self__MOKG +  1);
        };
        Self__OHJG->storage__HGQ=new__RHJG;
        Self__OHJG->capacity__4FQ=new_capacity__NHJG;
      };
    };
    ((__CHARACTER *)Self__OHJG->storage__HGQ)[Self__OHJG->count__04B]=result__SWBG;
    Self__OHJG->count__04B=(__INTEGER)(Self__OHJG->count__04B +  1);
    pos_old__PJO=position__V0B;
    position__V0B=(__INTEGER)(position__V0B +  1);
    while_do__3E0D:
    {
      result__TWBG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__TWBG=((__CHARACTER )(( 0)));
      } else {
        result__TWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if (is_hexadecimal_digit__51JE(result__TWBG)) {
        __tmp__UKO=TRUE__;
      } else {
        result__UWBG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__UWBG=((__CHARACTER )(( 0)));
        } else {
          result__UWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__UKO=(result__UWBG == '_');
      };
      if (__tmp__UKO) {
        result__VWBG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__VWBG=((__CHARACTER )(( 0)));
        } else {
          result__VWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__VWBG != '_')) {
          result__WWBG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__WWBG=((__CHARACTER )(( 0)));
          } else {
            result__WWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          Self__UHJG=((__STRING *)string_tmp__QH);
          new_capacity__THJG= 0;
          if ((Self__UHJG->capacity__4FQ <= Self__UHJG->count__04B)) {
            if ((Self__UHJG->capacity__4FQ ==  0)) {
              Self__UHJG->capacity__4FQ= 32;
              Self__UHJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__THJG=(__INTEGER)(Self__UHJG->capacity__4FQ <<  1);
              Self__VHJG=((__CHARACTER *)Self__UHJG->storage__HGQ);
              old_nb_elts__WHJG=Self__UHJG->capacity__4FQ;
              new__XHJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__VHJG),((__UINTEGER_32 )old_nb_elts__WHJG),((__UINTEGER_32 )new_capacity__THJG)));
              upper__TOKG=(__INTEGER)(new_capacity__THJG -  1);
              Self__ROKG=old_nb_elts__WHJG;
              while ((Self__ROKG <= upper__TOKG)) {
                new__XHJG[Self__ROKG]='\0';
                Self__ROKG=(__INTEGER)(Self__ROKG +  1);
              };
              Self__UHJG->storage__HGQ=new__XHJG;
              Self__UHJG->capacity__4FQ=new_capacity__THJG;
            };
          };
          ((__CHARACTER *)Self__UHJG->storage__HGQ)[Self__UHJG->count__04B]=result__WWBG;
          Self__UHJG->count__04B=(__INTEGER)(Self__UHJG->count__04B +  1);
        };
        position__V0B=(__INTEGER)(position__V0B +  1);
        goto while_do__3E0D;
      };
    };
    result__XWBG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__XWBG=((__CHARACTER )(( 0)));
    } else {
      result__XWBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__XWBG == 'h')) {
      Self__53JE=((__STRING *)string_tmp__QH);
      result__B4JE= 0;
      __tmp__M4JE=Self__53JE->count__04B;
      Self__JIOE= 1;
      __tmp__HEGG=Self__53JE->storage__HGQ;
      while ((Self__JIOE <= __tmp__M4JE)) {
        __tmp__T4JE=(__INTEGER_64)(result__B4JE <<  4);
        Self__XTQE=((__CHARACTER *)__tmp__HEGG)[(__INTEGER)(Self__JIOE -  1)];
        result__ZTQE= 0;
        if ((((__INTEGER_8 )Self__XTQE) < ((__INTEGER_8 )'A'))) {
          result__ZTQE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__XTQE) -  48));
          __tmp__QUQE=TRUE__;
        } else {
          __tmp__QUQE=FALSE__;
        };
        if ((! __tmp__QUQE)) {
          if ((((__INTEGER_8 )Self__XTQE) < ((__INTEGER_8 )'a'))) {
            result__ZTQE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__XTQE) -  55));
          } else {
            result__ZTQE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__XTQE) -  87));
          };
        };
        result__B4JE=(__INTEGER_64)(__tmp__T4JE | ((__INTEGER_64 )result__ZTQE));
        Self__JIOE=(__INTEGER)(Self__JIOE +  1);
      };
      last_integer__ZHN=result__B4JE;
      position__V0B=(__INTEGER)(position__V0B +  1);
    } else {
      Self__IEGG=((__STRING *)string_tmp__QH);
      if ((((__INTEGER_8 )((__CHARACTER *)Self__IEGG->storage__HGQ)[(__INTEGER)(Self__IEGG->count__04B -  1)]) > ((__INTEGER_8 )'9'))) {
        Self__2LHG=((__STRING *)string_tmp__QH);
        if (( 1 > Self__2LHG->count__04B)) {
          Self__2LHG->count__04B= 0;
        } else {
          Self__2LHG->count__04B=(__INTEGER)(Self__2LHG->count__04B -  1);
        };
        position__V0B=(__INTEGER)(position__V0B -  1);
      };
      result__HXBG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__HXBG=((__CHARACTER )(( 0)));
      } else {
        result__HXBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__HXBG == 'o')) {
        Self__1APE=((__STRING *)string_tmp__QH);
        result__3APE=FALSE__;
        j__4APE= 0;
        if ((Self__1APE->count__04B !=  0)) {
          j__4APE= 1;
          __tmp__NSGG=Self__1APE->count__04B;
          __tmp__OSGG=Self__1APE->storage__HGQ;
          until_do__EWQE:
          {
            if ((j__4APE > __tmp__NSGG)) {
              __tmp__WBPE=TRUE__;
            } else {
              Self__0ORE=((__CHARACTER *)__tmp__OSGG)[(__INTEGER)(j__4APE -  1)];
              result__2ORE=FALSE__;
              if ((((__INTEGER_8 )Self__0ORE) >= ((__INTEGER_8 )'0'))) {
                result__2ORE=(((__INTEGER_8 )Self__0ORE) <= ((__INTEGER_8 )'7'));
              };
              __tmp__WBPE=(! result__2ORE);
            };
            if ((! __tmp__WBPE)) {
              j__4APE=(__INTEGER)(j__4APE +  1);
              goto until_do__EWQE;
            };
          };
          result__3APE=(j__4APE > Self__1APE->count__04B);
        };
        if ((! result__3APE)) {
          pos__KP0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_223));
          put_position__ATG(pos__KP0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        Self__LCPE=((__STRING *)string_tmp__QH);
        result__NCPE= 0;
        __tmp__YCPE=Self__LCPE->count__04B;
        Self__SPPE= 1;
        __tmp__WEGG=Self__LCPE->storage__HGQ;
        while ((Self__SPPE <= __tmp__YCPE)) {
          result__NCPE=(__INTEGER_64)((__INTEGER_64)(result__NCPE <<  3) | ((__INTEGER_64 )((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )((__CHARACTER *)__tmp__WEGG)[(__INTEGER)(Self__SPPE -  1)]) -  48))));
          Self__SPPE=(__INTEGER)(Self__SPPE +  1);
        };
        last_integer__ZHN=result__NCPE;
        position__V0B=(__INTEGER)(position__V0B +  1);
        __tmp__2MO=TRUE__;
      } else {
        __tmp__2MO=FALSE__;
      };
      if ((! __tmp__2MO)) {
        result__XXBG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__XXBG=((__CHARACTER )(( 0)));
        } else {
          result__XXBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__XXBG == 'b')) {
          Self__L1PE=((__STRING *)string_tmp__QH);
          i__N1PE=Self__L1PE->count__04B;
          result__O1PE=TRUE__;
          __tmp__TSGG=Self__L1PE->storage__HGQ;
          while ((! ((! result__O1PE) || (i__N1PE ==  0)))) {
            Self__IU5E=((__CHARACTER *)__tmp__TSGG)[(__INTEGER)(i__N1PE -  1)];
            result__O1PE=((Self__IU5E == '0') || (Self__IU5E == '1'));
            i__N1PE=(__INTEGER)(i__N1PE -  1);
          };
          if ((! result__O1PE)) {
            pos__1P0F=current_position__A0F();
            put_error__text__WRG( 0,(&__string_224));
            put_position__ATG(pos__1P0F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          Self__B3PE=((__STRING *)string_tmp__QH);
          result__D3PE= 0;
          __tmp__O3PE=Self__B3PE->count__04B;
          Self__VYQE= 1;
          __tmp__AFGG=Self__B3PE->storage__HGQ;
          while ((Self__VYQE <= __tmp__O3PE)) {
            result__D3PE=(__INTEGER_64)(result__D3PE <<  1);
            if ((((__CHARACTER *)__tmp__AFGG)[(__INTEGER)(Self__VYQE -  1)] == '1')) {
              result__D3PE=(__INTEGER_64)(~ (__INTEGER_64)((__INTEGER_64)(~ result__D3PE) &  -2));
            };
            Self__VYQE=(__INTEGER)(Self__VYQE +  1);
          };
          last_integer__ZHN=result__D3PE;
          position__V0B=(__INTEGER)(position__V0B +  1);
        } else {
          result__1XBG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__1XBG=((__CHARACTER )(( 0)));
          } else {
            result__1XBG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__1XBG == 'd')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
          };
          Self__N4PE=((__STRING *)string_tmp__QH);
          state__Q4PE= 0;
          value__R4PE= 0;
          negative__S4PE=FALSE__;
          result__T4PE=FALSE__;
          cc__U4PE='\0';
          i__P4PE= 1;
          __tmp__ZNIG=Self__N4PE->count__04B;
          __tmp__0NIG=Self__N4PE->storage__HGQ;
          while ((! ((state__Q4PE ==  4) || (i__P4PE > __tmp__ZNIG)))) {
            cc__U4PE=((__CHARACTER *)__tmp__0NIG)[(__INTEGER)(i__P4PE -  1)];
            if ((state__Q4PE ==  0)) {
              if ((((((((cc__U4PE == ' ') || (cc__U4PE == '\t')) || (cc__U4PE == '\n')) || (cc__U4PE == '\r')) || (cc__U4PE == '\0')) || (cc__U4PE == '\f')) || (cc__U4PE == '\v'))) {
                __tmp__BAQE=TRUE__;
              } else {
                result__0VTF=(cc__U4PE == '+');
                if (result__0VTF) {
                  state__Q4PE= 1;
                };
                __tmp__BAQE=result__0VTF;
              };
              if (__tmp__BAQE) {
                __tmp__NAQE=TRUE__;
              } else {
                result__HWTF=(cc__U4PE == '-');
                if (result__HWTF) {
                  negative__S4PE=TRUE__;
                  state__Q4PE= 1;
                };
                __tmp__NAQE=result__HWTF;
              };
              if ((! __tmp__NAQE)) {
                result__4LHG=FALSE__;
                if ((((__INTEGER_8 )cc__U4PE) >= ((__INTEGER_8 )'0'))) {
                  result__4LHG=(((__INTEGER_8 )cc__U4PE) <= ((__INTEGER_8 )'9'));
                };
                if (result__4LHG) {
                  value__R4PE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__U4PE)) -  48);
                  state__Q4PE= 2;
                } else {
                  state__Q4PE= 4;
                };
              };
              __tmp__BBQE=TRUE__;
            } else {
              __tmp__BBQE=FALSE__;
            };
            if (__tmp__BBQE) {
              __tmp__ACQE=TRUE__;
            } else {
              result__YV5E=(state__Q4PE ==  1);
              if (result__YV5E) {
                result__AMHG=FALSE__;
                if ((((__INTEGER_8 )cc__U4PE) >= ((__INTEGER_8 )'0'))) {
                  result__AMHG=(((__INTEGER_8 )cc__U4PE) <= ((__INTEGER_8 )'9'));
                };
                if (result__AMHG) {
                  value__R4PE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__U4PE)) -  48);
                  if (negative__S4PE) {
                    value__R4PE=(__INTEGER)(- value__R4PE);
                  };
                  state__Q4PE= 2;
                } else {
                  state__Q4PE= 4;
                };
              };
              __tmp__ACQE=result__YV5E;
            };
            if (__tmp__ACQE) {
              __tmp__UEQE=TRUE__;
            } else {
              result__KW5E=(state__Q4PE ==  2);
              if (result__KW5E) {
                result__CMHG=FALSE__;
                if ((((__INTEGER_8 )cc__U4PE) >= ((__INTEGER_8 )'0'))) {
                  result__CMHG=(((__INTEGER_8 )cc__U4PE) <= ((__INTEGER_8 )'9'));
                };
                if (result__CMHG) {
                  if (negative__S4PE) {
                    value__R4PE=(__INTEGER)((__INTEGER)( 10 * value__R4PE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__U4PE)) -  48));
                  } else {
                    value__R4PE=(__INTEGER)((__INTEGER)( 10 * value__R4PE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__U4PE)) -  48));
                  };
                  if (((negative__S4PE && (value__R4PE >  0)) || ((! negative__S4PE) && (value__R4PE <  0)))) {
                    state__Q4PE= 4;
                  };
                  __tmp__BEQE=TRUE__;
                } else {
                  __tmp__BEQE=FALSE__;
                };
                if ((! __tmp__BEQE)) {
                  if ((((((((cc__U4PE == ' ') || (cc__U4PE == '\t')) || (cc__U4PE == '\n')) || (cc__U4PE == '\r')) || (cc__U4PE == '\0')) || (cc__U4PE == '\f')) || (cc__U4PE == '\v'))) {
                    state__Q4PE= 3;
                  } else {
                    state__Q4PE= 4;
                  };
                };
              };
              __tmp__UEQE=result__KW5E;
            };
            if ((! __tmp__UEQE)) {
              if ((state__Q4PE ==  3)) {
                if ((! (((((((cc__U4PE == ' ') || (cc__U4PE == '\t')) || (cc__U4PE == '\n')) || (cc__U4PE == '\r')) || (cc__U4PE == '\0')) || (cc__U4PE == '\f')) || (cc__U4PE == '\v')))) {
                  state__Q4PE= 4;
                };
              };
            };
            i__P4PE=(__INTEGER)(i__P4PE +  1);
          };
          if (((state__Q4PE !=  0) && (state__Q4PE !=  4))) {
            result__T4PE=TRUE__;
          };
          if ((! result__T4PE)) {
            pos__JQ0F=current_position__A0F();
            put_error__text__WRG( 0,(&__string_225));
            put_position__ATG(pos__JQ0F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          Self__IGQE=((__STRING *)string_tmp__QH);
          state__LGQE= 0;
          cc__MGQE='\0';
          negative__NGQE=FALSE__;
          result__OGQE= 0;
          i__KGQE= 1;
          __tmp__4NIG=Self__IGQE->count__04B;
          __tmp__5NIG=Self__IGQE->storage__HGQ;
          __tmp__AOIG=Self__IGQE->count__04B;
          while ((i__KGQE <= __tmp__4NIG)) {
            cc__MGQE=((__CHARACTER *)__tmp__5NIG)[(__INTEGER)(i__KGQE -  1)];
            if ((state__LGQE ==  0)) {
              if ((((((((cc__MGQE == ' ') || (cc__MGQE == '\t')) || (cc__MGQE == '\n')) || (cc__MGQE == '\r')) || (cc__MGQE == '\0')) || (cc__MGQE == '\f')) || (cc__MGQE == '\v'))) {
                __tmp__0HQE=TRUE__;
              } else {
                result__JXTF=(cc__MGQE == '+');
                if (result__JXTF) {
                  state__LGQE= 1;
                };
                __tmp__0HQE=result__JXTF;
              };
              if ((! __tmp__0HQE)) {
                if ((cc__MGQE == '-')) {
                  negative__NGQE=TRUE__;
                  state__LGQE= 1;
                } else {
                  result__OGQE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__MGQE)) -  48);
                  state__LGQE= 2;
                };
              };
              __tmp__NIQE=TRUE__;
            } else {
              __tmp__NIQE=FALSE__;
            };
            if (__tmp__NIQE) {
              __tmp__CJQE=TRUE__;
            } else {
              result__YX5E=(state__LGQE ==  1);
              if (result__YX5E) {
                result__OGQE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__MGQE)) -  48);
                if (negative__NGQE) {
                  result__OGQE=(__INTEGER)(- result__OGQE);
                };
                state__LGQE= 2;
              };
              __tmp__CJQE=result__YX5E;
            };
            if (__tmp__CJQE) {
              __tmp__JKQE=TRUE__;
            } else {
              result__KY5E=(state__LGQE ==  2);
              if (result__KY5E) {
                result__EMHG=FALSE__;
                if ((((__INTEGER_8 )cc__MGQE) >= ((__INTEGER_8 )'0'))) {
                  result__EMHG=(((__INTEGER_8 )cc__MGQE) <= ((__INTEGER_8 )'9'));
                };
                if (result__EMHG) {
                  if (negative__NGQE) {
                    result__OGQE=(__INTEGER)((__INTEGER)( 10 * result__OGQE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__MGQE)) -  48));
                  } else {
                    result__OGQE=(__INTEGER)((__INTEGER)( 10 * result__OGQE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__MGQE)) -  48));
                  };
                } else {
                  state__LGQE= 3;
                };
              };
              __tmp__JKQE=result__KY5E;
            };
            if ((! __tmp__JKQE)) {
              if ((state__LGQE ==  3)) {
                i__KGQE=__tmp__AOIG;
              };
            };
            i__KGQE=(__INTEGER)(i__KGQE +  1);
          };
          last_integer__ZHN=((__INTEGER_64 )result__OGQE);
        };
      };
    };
  };
  if (result__OJO) {
    short__token__to__R0C((&__string_93),pos_old__PJO,position__V0B);
  };
  return(result__OJO);
}

static void* operator_to_name__SBM(void *typ__UBM,void *op__VBM)
// ({STRING_CONSTANT},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  __INTEGER __tmp__2BM,Self__YRM;
  __CHARACTER c__XBM;
  __BOOLEAN __tmp__KCM,__tmp__XCM,result__VHEB,__tmp__EDM,result__HIEB;
  __BOOLEAN __tmp__RDM,result__ZIEB,__tmp__4DM,result__LJEB,__tmp__LEM;
  __BOOLEAN result__3JEB,__tmp__YEM,result__PKEB,__tmp__FFM;
  __BOOLEAN result__BLEB,__tmp__SFM,result__TLEB,__tmp__5FM;
  __BOOLEAN result__FMEB,__tmp__MGM,result__XMEB,__tmp__ZGM;
  __BOOLEAN result__JNEB,__tmp__GHM,result__1NEB,__tmp__THM;
  __BOOLEAN result__NOEB,__tmp__AIM,result__5OEB,__tmp__NIM;
  __BOOLEAN result__RPEB,__tmp__0IM,result__DQEB;
  c__XBM='\0';
  copy__5GQ(string_tmp__QH,typ__UBM);
  __tmp__2BM=((__STRING_CONSTANT *)op__VBM)->count__4C;
  Self__YRM= 1;
  while ((Self__YRM <= __tmp__2BM)) {
    c__XBM=((__CHARACTER *)((__STRING_CONSTANT *)op__VBM)->storage__E5M)[(__INTEGER)(Self__YRM -  1)];
    if ((c__XBM == '+')) {
      append__CRQ(string_tmp__QH,(&__string_131));
      __tmp__KCM=TRUE__;
    } else {
      __tmp__KCM=FALSE__;
    };
    if (__tmp__KCM) {
      __tmp__XCM=TRUE__;
    } else {
      result__VHEB=(c__XBM == '-');
      if (result__VHEB) {
        append__CRQ(string_tmp__QH,(&__string_132));
      };
      __tmp__XCM=result__VHEB;
    };
    if (__tmp__XCM) {
      __tmp__EDM=TRUE__;
    } else {
      result__HIEB=(c__XBM == '~');
      if (result__HIEB) {
        append__CRQ(string_tmp__QH,(&__string_133));
      };
      __tmp__EDM=result__HIEB;
    };
    if (__tmp__EDM) {
      __tmp__RDM=TRUE__;
    } else {
      result__ZIEB=(c__XBM == '!');
      if (result__ZIEB) {
        append__CRQ(string_tmp__QH,(&__string_134));
      };
      __tmp__RDM=result__ZIEB;
    };
    if (__tmp__RDM) {
      __tmp__4DM=TRUE__;
    } else {
      result__LJEB=(c__XBM == '/');
      if (result__LJEB) {
        append__CRQ(string_tmp__QH,(&__string_135));
      };
      __tmp__4DM=result__LJEB;
    };
    if (__tmp__4DM) {
      __tmp__LEM=TRUE__;
    } else {
      result__3JEB=(c__XBM == '*');
      if (result__3JEB) {
        append__CRQ(string_tmp__QH,(&__string_136));
      };
      __tmp__LEM=result__3JEB;
    };
    if (__tmp__LEM) {
      __tmp__YEM=TRUE__;
    } else {
      result__PKEB=(c__XBM == '^');
      if (result__PKEB) {
        append__CRQ(string_tmp__QH,(&__string_137));
      };
      __tmp__YEM=result__PKEB;
    };
    if (__tmp__YEM) {
      __tmp__FFM=TRUE__;
    } else {
      result__BLEB=(c__XBM == '%');
      if (result__BLEB) {
        append__CRQ(string_tmp__QH,(&__string_138));
      };
      __tmp__FFM=result__BLEB;
    };
    if (__tmp__FFM) {
      __tmp__SFM=TRUE__;
    } else {
      result__TLEB=(c__XBM == '>');
      if (result__TLEB) {
        append__CRQ(string_tmp__QH,(&__string_139));
      };
      __tmp__SFM=result__TLEB;
    };
    if (__tmp__SFM) {
      __tmp__5FM=TRUE__;
    } else {
      result__FMEB=(c__XBM == '<');
      if (result__FMEB) {
        append__CRQ(string_tmp__QH,(&__string_140));
      };
      __tmp__5FM=result__FMEB;
    };
    if (__tmp__5FM) {
      __tmp__MGM=TRUE__;
    } else {
      result__XMEB=(c__XBM == '=');
      if (result__XMEB) {
        append__CRQ(string_tmp__QH,(&__string_141));
      };
      __tmp__MGM=result__XMEB;
    };
    if (__tmp__MGM) {
      __tmp__ZGM=TRUE__;
    } else {
      result__JNEB=(c__XBM == '\\');
      if (result__JNEB) {
        append__CRQ(string_tmp__QH,(&__string_142));
      };
      __tmp__ZGM=result__JNEB;
    };
    if (__tmp__ZGM) {
      __tmp__GHM=TRUE__;
    } else {
      result__1NEB=(c__XBM == '|');
      if (result__1NEB) {
        append__CRQ(string_tmp__QH,(&__string_143));
      };
      __tmp__GHM=result__1NEB;
    };
    if (__tmp__GHM) {
      __tmp__THM=TRUE__;
    } else {
      result__NOEB=(c__XBM == '&');
      if (result__NOEB) {
        append__CRQ(string_tmp__QH,(&__string_144));
      };
      __tmp__THM=result__NOEB;
    };
    if (__tmp__THM) {
      __tmp__AIM=TRUE__;
    } else {
      result__5OEB=(c__XBM == '$');
      if (result__5OEB) {
        append__CRQ(string_tmp__QH,(&__string_145));
      };
      __tmp__AIM=result__5OEB;
    };
    if (__tmp__AIM) {
      __tmp__NIM=TRUE__;
    } else {
      result__RPEB=(c__XBM == '#');
      if (result__RPEB) {
        append__CRQ(string_tmp__QH,(&__string_146));
      };
      __tmp__NIM=result__RPEB;
    };
    if (__tmp__NIM) {
      __tmp__0IM=TRUE__;
    } else {
      result__DQEB=(c__XBM == '@');
      if (result__DQEB) {
        append__CRQ(string_tmp__QH,(&__string_147));
      };
      __tmp__0IM=result__DQEB;
    };
    if ((! __tmp__0IM)) {
      if ((c__XBM == '?')) {
        append__CRQ(string_tmp__QH,(&__string_148));
      };
    };
    Self__YRM=(__INTEGER)(Self__YRM +  1);
  };
  return(get__TPB(string_tmp__QH));
}

static void** create__NC5C(__INTEGER nb_elements__PC5C)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__0TIG,a__ZTIG,new_size__1TIG,new_size2__2TIG,a__3TIG;
  __UINTEGER_32 new_size__4TIG;
  __POINTER result__YTIG,ptr_table__WOKG,next__VOKG,result__XOKG;
  __INTEGER Self__5EYD;
  void **Result__Z4DD;
  sz__0TIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__PC5C * ((__INTEGER )(sizeof(void *)))));
  result__YTIG=((__POINTER )(NULL));
  a__ZTIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__1TIG=(__UINTEGER_32)((__UINTEGER_32)(sz__0TIG + a__ZTIG) & (__UINTEGER_32)(~ a__ZTIG));
  new_size2__2TIG=(__UINTEGER_32)(new_size__1TIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__2TIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__3TIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__4TIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__2TIG + a__3TIG) & (__UINTEGER_32)(~ a__3TIG));
    ptr_table__WOKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4TIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__VOKG=((__POINTER )(NULL));
    result__XOKG=((__POINTER *)ptr_table__WOKG)[ 0];
    if ((result__XOKG == (void *)NULL)) {
      result__XOKG=new_lab__RUJ(new_size__4TIG);
      next__VOKG=(void *)((unsigned long)result__XOKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TIG)));
      ((__POINTER *)next__VOKG)[ 0]=NULL;
      ((__POINTER *)ptr_table__WOKG)[ 0]=next__VOKG;
    } else {
      next__VOKG=((__POINTER *)result__XOKG)[ 0];
      if ((next__VOKG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XOKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4TIG <<  1)) <=  4096)) {
          next__VOKG=(void *)((unsigned long)result__XOKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TIG)));
        } else {
          next__VOKG=new_lab__RUJ(new_size__4TIG);
        };
        ((__POINTER *)next__VOKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__WOKG)[ 0]=next__VOKG;
      } else {
        ((__POINTER *)result__XOKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__VOKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__XOKG=next__VOKG;
      };
    };
    ((__POINTER *)result__XOKG)[ 0]=((__POINTER ) 3);
    result__YTIG=(void *)((unsigned long)result__XOKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__YTIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__1TIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__Z4DD=((void **)result__YTIG);
  Self__5EYD=(__INTEGER)(nb_elements__PC5C -  1);
  while ((Self__5EYD >=  0)) {
    Result__Z4DD[Self__5EYD]=NULL;
    Self__5EYD=(__INTEGER)(Self__5EYD -  1);
  };
  return(Result__Z4DD);
}

static __BOOLEAN read_affect__QY3()
// () With resultNo recursive, No inlinable.
{
  __BOOLEAN result__TY3,__tmp__4Y3,__tmp__OZ3,result__1ZDB;
  result__TY3=FALSE__;
  if (read_symbol__I0J((&__string_12))) {
    last_string__NTC=(&__string_12);
    result__TY3=TRUE__;
    __tmp__4Y3=TRUE__;
  } else {
    __tmp__4Y3=FALSE__;
  };
  if (__tmp__4Y3) {
    __tmp__OZ3=TRUE__;
  } else {
    result__1ZDB=read_symbol__I0J((&__string_13));
    if (result__1ZDB) {
      last_string__NTC=(&__string_13);
      result__TY3=TRUE__;
    };
    __tmp__OZ3=result__1ZDB;
  };
  if ((! __tmp__OZ3)) {
    if (read_symbol__I0J((&__string_14))) {
      last_string__NTC=(&__string_14);
      result__TY3=TRUE__;
    };
  };
  return(result__TY3);
}

static void* get__CJ2B(void *lt__EJ2B)
// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
{
  void *result__GJ2B;
  __INTEGER idx__HJ2B,__tmp__DOIG,typ_id__MS2B,new_capacity__RGEC;
  __INTEGER __tmp__VHEC,__tmp__ZQUD,Self__ATUE;
  __ITM_TYPE_MULTI *result__GS2B;
  __POINTER ptr__HS2B,ptr_table__1OKG,next__0OKG,result__2OKG;
  __POINTER ptr_table__APKG,next__5OKG,result__BPKG;
  __UINTEGER_32 sz__JS2B,a__IMHG,new_size__JMHG,t__NMHG,a__MMHG;
  __UINTEGER_32 new_size__DPKG,lab_type__CPKG;
  void **__tmp__AUIG,**__tmp__UHEC,**new__GQUD;
  __FAST_ARRAYoITM_TYPE_MULTIo *Self__PGEC;
  __BOOLEAN __tmp__5GEC;
  result__GJ2B=NULL;
  idx__HJ2B= 0;
  __tmp__DOIG=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__NJ2B)->parent_arrayed_collection__MJ2B.upper__WJ2B;
  __tmp__AUIG=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__NJ2B)->parent_arrayed_collection__MJ2B.storage__NFEC;
  while (((idx__HJ2B <= __tmp__DOIG) && ((void *)((__ITM_TYPE_MULTI *)((void **)__tmp__AUIG)[idx__HJ2B])->list_type__AK2B != (void *)lt__EJ2B))) {
    idx__HJ2B=(__INTEGER)(idx__HJ2B +  1);
  };
  if ((idx__HJ2B <= ((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__NJ2B)->parent_arrayed_collection__MJ2B.upper__WJ2B)) {
    result__GJ2B=((void **)((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__NJ2B)->parent_arrayed_collection__MJ2B.storage__NFEC)[idx__HJ2B];
  } else {
    result__GS2B=NULL;
    ptr__HS2B=((__POINTER )(NULL));
    typ_id__MS2B= 0;
    sz__JS2B=((__UINTEGER_32 )sizeof(__ITM_TYPE_MULTI));
    if ((sz__JS2B ==  0)) {
      result__GS2B=ITM_TYPE_MULTI__;
    } else {
      typ_id__MS2B=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__JS2B);
      if ((typ_id__MS2B == (__INTEGER)(-  1))) {
        a__IMHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__JMHG=(__UINTEGER_32)((__UINTEGER_32)(sz__JS2B + a__IMHG) & (__UINTEGER_32)(~ a__IMHG));
        ptr_table__1OKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JMHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__0OKG=((__POINTER )(NULL));
        result__2OKG=((__POINTER *)ptr_table__1OKG)[ 0];
        if ((result__2OKG == (void *)NULL)) {
          result__2OKG=new_lab__RUJ(new_size__JMHG);
          next__0OKG=(void *)((unsigned long)result__2OKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JMHG)));
          ((__POINTER *)next__0OKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__1OKG)[ 0]=next__0OKG;
        } else {
          next__0OKG=((__POINTER *)result__2OKG)[ 0];
          if ((next__0OKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2OKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__JMHG <<  1)) <=  4096)) {
              next__0OKG=(void *)((unsigned long)result__2OKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JMHG)));
            } else {
              next__0OKG=new_lab__RUJ(new_size__JMHG);
            };
            ((__POINTER *)next__0OKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__1OKG)[ 0]=next__0OKG;
          } else {
            ((__POINTER *)result__2OKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__0OKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__2OKG=next__0OKG;
          };
        };
        ptr__HS2B=result__2OKG;
      } else {
        t__NMHG=((__UINTEGER_32 )typ_id__MS2B);
        a__MMHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__DPKG=(__UINTEGER_32)((__UINTEGER_32)(sz__JS2B + a__MMHG) & (__UINTEGER_32)(~ a__MMHG));
        ptr_table__APKG=((__POINTER )(&(table_type[(t__NMHG)])));
        lab_type__CPKG=(__UINTEGER_32)(t__NMHG |  1);
        next__5OKG=((__POINTER )(NULL));
        result__BPKG=((__POINTER *)ptr_table__APKG)[ 0];
        if ((result__BPKG == (void *)NULL)) {
          result__BPKG=new_lab__RUJ(lab_type__CPKG);
          next__5OKG=(void *)((unsigned long)result__BPKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DPKG)));
          ((__POINTER *)next__5OKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__APKG)[ 0]=next__5OKG;
        } else {
          next__5OKG=((__POINTER *)result__BPKG)[ 0];
          if ((next__5OKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BPKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__DPKG <<  1)) <=  4096)) {
              next__5OKG=(void *)((unsigned long)result__BPKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DPKG)));
            } else {
              next__5OKG=new_lab__RUJ(lab_type__CPKG);
            };
            ((__POINTER *)next__5OKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__APKG)[ 0]=next__5OKG;
          } else {
            ((__POINTER *)result__BPKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5OKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__BPKG=next__5OKG;
          };
        };
        ptr__HS2B=result__BPKG;
      };
      result__GS2B=((__ITM_TYPE_MULTI *)ptr__HS2B);
      *(result__GS2B) = *(ITM_TYPE_MULTI__);
    };
    ((__ITM_TYPE_MULTI *)result__GS2B)->list_type__AK2B=lt__EJ2B;
    result__GJ2B=result__GS2B;
    Self__PGEC=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__NJ2B);
    new_capacity__RGEC= 0;
    if (((__INTEGER)(Self__PGEC->parent_arrayed_collection__MJ2B.upper__WJ2B +  1) <= (__INTEGER)(Self__PGEC->parent_arrayed_collection__MJ2B.capacity__CFEC -  1))) {
      Self__PGEC->parent_arrayed_collection__MJ2B.upper__WJ2B=(__INTEGER)(Self__PGEC->parent_arrayed_collection__MJ2B.upper__WJ2B +  1);
      __tmp__5GEC=TRUE__;
    } else {
      __tmp__5GEC=FALSE__;
    };
    if ((! __tmp__5GEC)) {
      if ((Self__PGEC->parent_arrayed_collection__MJ2B.capacity__CFEC ==  0)) {
        Self__PGEC->parent_arrayed_collection__MJ2B.storage__NFEC=create__2T5C( 2);
        Self__PGEC->parent_arrayed_collection__MJ2B.capacity__CFEC= 2;
        Self__PGEC->parent_arrayed_collection__MJ2B.upper__WJ2B= 0;
      } else {
        new_capacity__RGEC=(__INTEGER)(Self__PGEC->parent_arrayed_collection__MJ2B.capacity__CFEC <<  1);
        __tmp__UHEC=Self__PGEC->parent_arrayed_collection__MJ2B.storage__NFEC;
        __tmp__VHEC=Self__PGEC->parent_arrayed_collection__MJ2B.capacity__CFEC;
        new__GQUD=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__UHEC)),((__UINTEGER_32 )(__INTEGER)(__tmp__VHEC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__RGEC * ((__INTEGER )(sizeof(void *)))))));
        __tmp__ZQUD=(__INTEGER)(new_capacity__RGEC -  1);
        Self__ATUE=__tmp__VHEC;
        while ((Self__ATUE <= __tmp__ZQUD)) {
          new__GQUD[Self__ATUE]=NULL;
          Self__ATUE=(__INTEGER)(Self__ATUE +  1);
        };
        Self__PGEC->parent_arrayed_collection__MJ2B.storage__NFEC=new__GQUD;
        Self__PGEC->parent_arrayed_collection__MJ2B.capacity__CFEC=new_capacity__RGEC;
        Self__PGEC->parent_arrayed_collection__MJ2B.upper__WJ2B=(__INTEGER)(Self__PGEC->parent_arrayed_collection__MJ2B.upper__WJ2B +  1);
      };
    };
    ((void **)Self__PGEC->parent_arrayed_collection__MJ2B.storage__NFEC)[Self__PGEC->parent_arrayed_collection__MJ2B.upper__WJ2B]=result__GS2B;
  };
  return(result__GJ2B);
}

static void* read_type__5FP(__PARSER *Self__AGP,__BOOLEAN is_local__BGP)
// ({PARSER},{TRUExFALSE}) With resultRecursive, No inlinable.
{
  void *style__DGP;
  __POSITION pos__UT0F;
  __BOOLEAN result__0HJG,__tmp__RGP,result__2HJG;
  style__DGP=NULL;
  result__0HJG=read_word__NSF((&__string_9));
  if (result__0HJG) {
    if (((void *)(&__string_9) == (void *)(&__string_4))) {
      short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
    } else {
      short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
    };
  };
  if (result__0HJG) {
    __tmp__RGP=TRUE__;
  } else {
    result__2HJG=read_word__NSF((&__string_10));
    if (result__2HJG) {
      if (((void *)(&__string_10) == (void *)(&__string_4))) {
        short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
      } else {
        short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
      };
    };
    __tmp__RGP=result__2HJG;
  };
  if (__tmp__RGP) {
    style__DGP=last_string__NTC;
    if ((is_local__BGP && ((void *)last_string__NTC == (void *)(&__string_9)))) {
      pos__UT0F=current_position__A0F();
      put_error__text__WRG( 0,(&__string_226));
      put_position__ATG(pos__UT0F);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
  };
  return(read_prototype__I2N(Self__AGP,style__DGP));
}

static void* read_contract__AWF()
// () With resultNo recursive, No inlinable.
{
  void *e__EWF;
  void *result__FWF;
  __POSITION p__PPKG,p__EUL,pos__3T0F,pos__5T0F,p__SQKG;
  __ITM_LIST *result__HPKG;
  __POINTER ptr__IPKG,ptr_table__RPKG,next__QPKG,result__SPKG;
  __POINTER ptr_table__WPKG,next__VPKG,result__XPKG,ptr__GZL;
  __POINTER ptr_table__1PKG,next__0PKG,result__2PKG,ptr_table__AQKG;
  __POINTER next__5PKG,result__BQKG,ptr__LQKG,ptr_table__UQKG;
  __POINTER next__TQKG,result__VQKG,ptr_table__ZQKG,next__YQKG;
  __POINTER result__0QKG;
  __INTEGER typ_id__JPKG,typ_id__LZL,typ_id__MQKG;
  __UINTEGER_32 sz__KPKG,a__LPKG,new_size__MPKG,t__NPKG,a__OPKG;
  __UINTEGER_32 new_size__ZPKG,lab_type__YPKG,sz__IZL,a__WMHG;
  __UINTEGER_32 new_size__XMHG,t__1MHG,a__0MHG,new_size__DQKG;
  __UINTEGER_32 lab_type__CQKG,sz__NQKG,a__OQKG,new_size__PQKG,t__QQKG;
  __UINTEGER_32 a__RQKG,new_size__2QKG,lab_type__1QKG;
  __ITM_LDOTS *result__FZL;
  __ITM_PROTOTYPE *result__KQKG;
  __BOOLEAN continue__DWF,result__EPKG,result__EQKG,result__HQKG;
  void *lst__LWF,*result__BUIG;
  __CHARACTER result__FPKG,result__FQKG,result__IQKG;
  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__CUIG,*Self__DUIG;
  continue__DWF=FALSE__;
  e__EWF=NULL;
  result__FWF=NULL;
  lst__LWF=NULL;
  result__EPKG=FALSE__;
  if ((! read_space__MMD())) {
    result__EPKG=FALSE__;
  } else {
    result__FPKG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__FPKG=((__CHARACTER )(( 0)));
    } else {
      result__FPKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__FPKG == '[')) {
      position__V0B=(__INTEGER)(position__V0B +  1);
      result__EPKG=TRUE__;
    };
  };
  if (result__EPKG) {
    p__PPKG=current_position__A0F();
    result__HPKG=NULL;
    ptr__IPKG=((__POINTER )(NULL));
    typ_id__JPKG= 0;
    sz__KPKG=((__UINTEGER_32 )sizeof(__ITM_LIST));
    if ((sz__KPKG ==  0)) {
      result__HPKG=ITM_LIST__;
    } else {
      typ_id__JPKG=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__KPKG);
      if ((typ_id__JPKG == (__INTEGER)(-  1))) {
        a__LPKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__MPKG=(__UINTEGER_32)((__UINTEGER_32)(sz__KPKG + a__LPKG) & (__UINTEGER_32)(~ a__LPKG));
        ptr_table__RPKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MPKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__QPKG=((__POINTER )(NULL));
        result__SPKG=((__POINTER *)ptr_table__RPKG)[ 0];
        if ((result__SPKG == (void *)NULL)) {
          result__SPKG=new_lab__RUJ(new_size__MPKG);
          next__QPKG=(void *)((unsigned long)result__SPKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MPKG)));
          ((__POINTER *)next__QPKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__RPKG)[ 0]=next__QPKG;
        } else {
          next__QPKG=((__POINTER *)result__SPKG)[ 0];
          if ((next__QPKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SPKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__MPKG <<  1)) <=  4096)) {
              next__QPKG=(void *)((unsigned long)result__SPKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MPKG)));
            } else {
              next__QPKG=new_lab__RUJ(new_size__MPKG);
            };
            ((__POINTER *)next__QPKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__RPKG)[ 0]=next__QPKG;
          } else {
            ((__POINTER *)result__SPKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__QPKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__SPKG=next__QPKG;
          };
        };
        ptr__IPKG=result__SPKG;
      } else {
        t__NPKG=((__UINTEGER_32 )typ_id__JPKG);
        a__OPKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__ZPKG=(__UINTEGER_32)((__UINTEGER_32)(sz__KPKG + a__OPKG) & (__UINTEGER_32)(~ a__OPKG));
        ptr_table__WPKG=((__POINTER )(&(table_type[(t__NPKG)])));
        lab_type__YPKG=(__UINTEGER_32)(t__NPKG |  1);
        next__VPKG=((__POINTER )(NULL));
        result__XPKG=((__POINTER *)ptr_table__WPKG)[ 0];
        if ((result__XPKG == (void *)NULL)) {
          result__XPKG=new_lab__RUJ(lab_type__YPKG);
          next__VPKG=(void *)((unsigned long)result__XPKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZPKG)));
          ((__POINTER *)next__VPKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__WPKG)[ 0]=next__VPKG;
        } else {
          next__VPKG=((__POINTER *)result__XPKG)[ 0];
          if ((next__VPKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XPKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ZPKG <<  1)) <=  4096)) {
              next__VPKG=(void *)((unsigned long)result__XPKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZPKG)));
            } else {
              next__VPKG=new_lab__RUJ(lab_type__YPKG);
            };
            ((__POINTER *)next__VPKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__WPKG)[ 0]=next__VPKG;
          } else {
            ((__POINTER *)result__XPKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__VPKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__XPKG=next__VPKG;
          };
        };
        ptr__IPKG=result__XPKG;
      };
      result__HPKG=((__ITM_LIST *)ptr__IPKG);
      *(result__HPKG) = *(ITM_LIST__);
    };
    ((__ITM_LIST *)result__HPKG)->parent_itm_code__4XE.parent_itm_object__P2D.position__REJ=p__PPKG;
    last_group__UWF=result__HPKG;
    result__FWF=result__HPKG;
    read_def_local__15H(PARSER__);
    result__BUIG=NULL;
    if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI)->parent_arrayed_collection__4CI.upper__M1R <  0)) {
      result__BUIG=create_with_capacity__X0I( 16);
    } else {
      Self__CUIG=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
      result__BUIG=((void **)Self__CUIG->parent_arrayed_collection__4CI.storage__1FS)[Self__CUIG->parent_arrayed_collection__4CI.upper__M1R];
      Self__DUIG=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
      Self__DUIG->parent_arrayed_collection__4CI.upper__M1R=(__INTEGER)(Self__DUIG->parent_arrayed_collection__4CI.upper__M1R -  1);
    };
    lst__LWF=result__BUIG;
    do {
      e__EWF=read_expr__25I(PARSER__);
      if (((void *)e__EWF == (void *)NULL)) {
        continue__DWF=read_word__NSF((&__string_7));
        if (continue__DWF) {
          p__EUL=current_position__A0F();
          result__FZL=NULL;
          ptr__GZL=((__POINTER )(NULL));
          typ_id__LZL= 0;
          sz__IZL=((__UINTEGER_32 )sizeof(__ITM_LDOTS));
          if ((sz__IZL ==  0)) {
            result__FZL=ITM_LDOTS__;
          } else {
            typ_id__LZL=__ITM_LDOTS__;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__IZL);
            if ((typ_id__LZL == (__INTEGER)(-  1))) {
              a__WMHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__XMHG=(__UINTEGER_32)((__UINTEGER_32)(sz__IZL + a__WMHG) & (__UINTEGER_32)(~ a__WMHG));
              ptr_table__1PKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XMHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__0PKG=((__POINTER )(NULL));
              result__2PKG=((__POINTER *)ptr_table__1PKG)[ 0];
              if ((result__2PKG == (void *)NULL)) {
                result__2PKG=new_lab__RUJ(new_size__XMHG);
                next__0PKG=(void *)((unsigned long)result__2PKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XMHG)));
                ((__POINTER *)next__0PKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__1PKG)[ 0]=next__0PKG;
              } else {
                next__0PKG=((__POINTER *)result__2PKG)[ 0];
                if ((next__0PKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2PKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__XMHG <<  1)) <=  4096)) {
                    next__0PKG=(void *)((unsigned long)result__2PKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XMHG)));
                  } else {
                    next__0PKG=new_lab__RUJ(new_size__XMHG);
                  };
                  ((__POINTER *)next__0PKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__1PKG)[ 0]=next__0PKG;
                } else {
                  ((__POINTER *)result__2PKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__0PKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__2PKG=next__0PKG;
                };
              };
              ptr__GZL=result__2PKG;
            } else {
              t__1MHG=((__UINTEGER_32 )typ_id__LZL);
              a__0MHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__DQKG=(__UINTEGER_32)((__UINTEGER_32)(sz__IZL + a__0MHG) & (__UINTEGER_32)(~ a__0MHG));
              ptr_table__AQKG=((__POINTER )(&(table_type[(t__1MHG)])));
              lab_type__CQKG=(__UINTEGER_32)(t__1MHG |  1);
              next__5PKG=((__POINTER )(NULL));
              result__BQKG=((__POINTER *)ptr_table__AQKG)[ 0];
              if ((result__BQKG == (void *)NULL)) {
                result__BQKG=new_lab__RUJ(lab_type__CQKG);
                next__5PKG=(void *)((unsigned long)result__BQKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DQKG)));
                ((__POINTER *)next__5PKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__AQKG)[ 0]=next__5PKG;
              } else {
                next__5PKG=((__POINTER *)result__BQKG)[ 0];
                if ((next__5PKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BQKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__DQKG <<  1)) <=  4096)) {
                    next__5PKG=(void *)((unsigned long)result__BQKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DQKG)));
                  } else {
                    next__5PKG=new_lab__RUJ(lab_type__CQKG);
                  };
                  ((__POINTER *)next__5PKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__AQKG)[ 0]=next__5PKG;
                } else {
                  ((__POINTER *)result__BQKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5PKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__BQKG=next__5PKG;
                };
              };
              ptr__GZL=result__BQKG;
            };
            result__FZL=((__ITM_LDOTS *)ptr__GZL);
            *(result__FZL) = *(ITM_LDOTS__);
          };
          ((__ITM_LDOTS *)result__FZL)->parent_itm_constant__JXF.parent_itm_object__P2D.position__REJ=p__EUL;
          add_last__GVT(lst__LWF,result__FZL);
        };
      } else {
        add_last__GVT(lst__LWF,e__EWF);
        result__EQKG=FALSE__;
        if ((! read_space__MMD())) {
          result__EQKG=FALSE__;
        } else {
          result__FQKG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__FQKG=((__CHARACTER )(( 0)));
          } else {
            result__FQKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__FQKG == ';')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__EQKG=TRUE__;
          };
        };
        if ((! result__EQKG)) {
          pos__3T0F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_191));
          put_position__ATG(pos__3T0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        continue__DWF=TRUE__;
      };
    } while (continue__DWF);
    result__HQKG=FALSE__;
    if ((! read_space__MMD())) {
      result__HQKG=FALSE__;
    } else {
      result__IQKG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__IQKG=((__CHARACTER )(( 0)));
      } else {
        result__IQKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__IQKG == ']')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__HQKG=TRUE__;
      };
    };
    if ((! result__HQKG)) {
      pos__5T0F=current_position__A0F();
      put_error__text__WRG( 2,(&__string_204));
      put_position__ATG(pos__5T0F);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
    p__SQKG=current_position__A0F();
    result__KQKG=NULL;
    ptr__LQKG=((__POINTER )(NULL));
    typ_id__MQKG= 0;
    sz__NQKG=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
    if ((sz__NQKG ==  0)) {
      result__KQKG=ITM_PROTOTYPE__;
    } else {
      typ_id__MQKG=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__NQKG);
      if ((typ_id__MQKG == (__INTEGER)(-  1))) {
        a__OQKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__PQKG=(__UINTEGER_32)((__UINTEGER_32)(sz__NQKG + a__OQKG) & (__UINTEGER_32)(~ a__OQKG));
        ptr_table__UQKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PQKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__TQKG=((__POINTER )(NULL));
        result__VQKG=((__POINTER *)ptr_table__UQKG)[ 0];
        if ((result__VQKG == (void *)NULL)) {
          result__VQKG=new_lab__RUJ(new_size__PQKG);
          next__TQKG=(void *)((unsigned long)result__VQKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQKG)));
          ((__POINTER *)next__TQKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__UQKG)[ 0]=next__TQKG;
        } else {
          next__TQKG=((__POINTER *)result__VQKG)[ 0];
          if ((next__TQKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VQKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__PQKG <<  1)) <=  4096)) {
              next__TQKG=(void *)((unsigned long)result__VQKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQKG)));
            } else {
              next__TQKG=new_lab__RUJ(new_size__PQKG);
            };
            ((__POINTER *)next__TQKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__UQKG)[ 0]=next__TQKG;
          } else {
            ((__POINTER *)result__VQKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__TQKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__VQKG=next__TQKG;
          };
        };
        ptr__LQKG=result__VQKG;
      } else {
        t__QQKG=((__UINTEGER_32 )typ_id__MQKG);
        a__RQKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__2QKG=(__UINTEGER_32)((__UINTEGER_32)(sz__NQKG + a__RQKG) & (__UINTEGER_32)(~ a__RQKG));
        ptr_table__ZQKG=((__POINTER )(&(table_type[(t__QQKG)])));
        lab_type__1QKG=(__UINTEGER_32)(t__QQKG |  1);
        next__YQKG=((__POINTER )(NULL));
        result__0QKG=((__POINTER *)ptr_table__ZQKG)[ 0];
        if ((result__0QKG == (void *)NULL)) {
          result__0QKG=new_lab__RUJ(lab_type__1QKG);
          next__YQKG=(void *)((unsigned long)result__0QKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2QKG)));
          ((__POINTER *)next__YQKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__ZQKG)[ 0]=next__YQKG;
        } else {
          next__YQKG=((__POINTER *)result__0QKG)[ 0];
          if ((next__YQKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0QKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__2QKG <<  1)) <=  4096)) {
              next__YQKG=(void *)((unsigned long)result__0QKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2QKG)));
            } else {
              next__YQKG=new_lab__RUJ(lab_type__1QKG);
            };
            ((__POINTER *)next__YQKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__ZQKG)[ 0]=next__YQKG;
          } else {
            ((__POINTER *)result__0QKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__YQKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__0QKG=next__YQKG;
          };
        };
        ptr__LQKG=result__0QKG;
      };
      result__KQKG=((__ITM_PROTOTYPE *)ptr__LQKG);
      *(result__KQKG) = *(ITM_PROTOTYPE__);
    };
    ((__ITM_PROTOTYPE *)result__KQKG)->parent_itm_constant__VYF.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ=p__SQKG;
    e__EWF=result__KQKG;
    add_last__GVT(result__BUIG,result__KQKG);
    copy__OEI(result__BUIG);
  };
  return(result__FWF);
}

static void* read_expr__25I(__PARSER *Self__35I)
// ({PARSER}) With resultRecursive, No inlinable.
{
  void *result__55I,*value__AAJ;
  __INTEGER p__NAJ,typ_id__0UYC,typ_id__SRKG,typ_id__FSKG,typ_id__YSKG;
  __INTEGER typ_id__OJYB,typ_id__5KYB,typ_id__QMYB,new_capacity__A1AC;
  __INTEGER __tmp__E2AC,__tmp__LHUD,Self__ELUE,typ_id__1IP;
  __INTEGER new_capacity__4BAC,other_upper__3BAC,Self__2IXD;
  __INTEGER typ_id__BBNB;
  void *name__OAJ;
  __POSITION p__1EOC,pos__JU0F,p__YRKG,pos__LU0F,pos__NU0F,__tmp__IFJ;
  __POSITION p__4SKG,pos__QU0F,__tmp__JIJ,__tmp__TIJ,__tmp__2IJ;
  __POSITION __tmp__OKJ,v__3ITE,pos__AW0F,p__IFP;
  __ITM_LIST_IDF *result__UUYC;
  __POINTER ptr__VUYC,ptr_table__HRKG,next__GRKG,result__IRKG;
  __POINTER ptr_table__MRKG,next__LRKG,result__NRKG,ptr__RRKG;
  __POINTER ptr_table__0RKG,next__ZRKG,result__1RKG,ptr_table__5RKG;
  __POINTER next__4RKG,result__ASKG,ptr__ESKG,ptr_table__NSKG;
  __POINTER next__MSKG,result__OSKG,ptr_table__SSKG,next__RSKG;
  __POINTER result__TSKG,ptr__XSKG,ptr_table__ATKG,next__5SKG;
  __POINTER result__BTKG,ptr_table__FTKG,next__ETKG,result__GTKG;
  __POINTER ptr__JJYB,ptr_table__KTKG,next__JTKG,result__LTKG;
  __POINTER ptr_table__PTKG,next__OTKG,result__QTKG,ptr__0KYB;
  __POINTER ptr_table__UTKG,next__TTKG,result__VTKG,ptr_table__ZTKG;
  __POINTER next__YTKG,result__0TKG,ptr__LMYB,ptr_table__4TKG;
  __POINTER next__3TKG,result__5TKG,ptr_table__DUKG,next__CUKG;
  __POINTER result__EUKG,ptr__WIP,ptr_table__IUKG,next__HUKG;
  __POINTER result__JUKG,ptr_table__NUKG,next__MUKG,result__OUKG;
  __POINTER ptr__2ANB,ptr_table__SUKG,next__RUKG,result__TUKG;
  __POINTER ptr_table__XUKG,next__WUKG,result__YUKG;
  __UINTEGER_32 sz__XUYC,a__4MHG,new_size__5MHG,t__DNHG,a__CNHG;
  __UINTEGER_32 new_size__PRKG,lab_type__ORKG,sz__TRKG,a__URKG;
  __UINTEGER_32 new_size__VRKG,t__WRKG,a__XRKG,new_size__CSKG;
  __UINTEGER_32 lab_type__BSKG,sz__GSKG,a__HSKG,new_size__ISKG,t__JSKG;
  __UINTEGER_32 a__KSKG,new_size__VSKG,lab_type__USKG,sz__ZSKG,a__0SKG;
  __UINTEGER_32 new_size__1SKG,t__2SKG,a__3SKG,new_size__ITKG;
  __UINTEGER_32 lab_type__HTKG,sz__LJYB,a__WYHG,new_size__XYHG,t__1YHG;
  __UINTEGER_32 a__0YHG,new_size__STKG,lab_type__RTKG,sz__2KYB,a__GNHG;
  __UINTEGER_32 new_size__HNHG,t__LNHG,a__KNHG,new_size__2TKG;
  __UINTEGER_32 lab_type__1TKG,sz__NMYB,a__4YHG,new_size__5YHG,t__DZHG;
  __UINTEGER_32 a__CZHG,new_size__GUKG,lab_type__FUKG,sz__YIP,a__4ZHG;
  __UINTEGER_32 new_size__5ZHG,t__D0HG,a__C0HG,new_size__QUKG;
  __UINTEGER_32 lab_type__PUKG,sz__4ANB,a__0NHG,new_size__1NHG,t__5NHG;
  __UINTEGER_32 a__4NHG,new_size__0UKG,lab_type__ZUKG;
  __ITM_WRITE_VALUE *result__QRKG,*result__IJYB;
  __ITM_WRITE_CAST *result__DSKG,*result__KMYB;
  __ITM_READ *result__WSKG;
  __ITM_WRITE_CODE *result__ZKYB;
  __ITM_READ_ARG2 *result__VIP;
  __ITM_BINARY *result__1ANB;
  void *l_expr__BAJ,*result__ZCI;
  void *l_oper__CAJ,*l_assignment__MAJ,*result__EUIG,*result__VEOC;
  void *result__05K;
  void *l_posi__IAJ,*result__G03,*result__YQIB;
  __BOOLEAN is_not_op__JAJ,again__LAJ,result__3QKG,result__ARKG;
  __BOOLEAN result__DRKG,__tmp__SDJ,__tmp__UFJ,__tmp__O1AC;
  __CHARACTER affect__KAJ,result__4QKG,result__BRKG,result__ERKG;
  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__FUIG,*Self__GUIG;
  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__N23,*Self__D33;
  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__MO2,*Self__CP2;
  __FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *Self__X0QC,*Self__N1QC;
  __FAST_ARRAYoExpanded_POSITIONo *Self__40AC,*Self__1BAC;
  __POSITION *__tmp__D2AC,*new__YGUD,*__tmp__RCAC,*__tmp__TCAC;
  __POSITION *Self__3RTD;
  result__55I=NULL;
  value__AAJ=NULL;
  l_expr__BAJ=NULL;
  l_oper__CAJ=NULL;
  l_posi__IAJ=NULL;
  is_not_op__JAJ=FALSE__;
  affect__KAJ='\0';
  again__LAJ=FALSE__;
  l_assignment__MAJ=NULL;
  p__NAJ= 0;
  name__OAJ=NULL;
  old_position__QWI=position__V0B;
  old_pos_cur__SWI=pos_cur__Y0B;
  old_pos_line__UWI=pos_line__Z0B;
  old_pos_col__WWI=pos_col__00B;
  old_short_derive__YWI=short_derive__O1B;
  result__3QKG=FALSE__;
  if ((! read_space__MMD())) {
    result__3QKG=FALSE__;
  } else {
    result__4QKG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__4QKG=((__CHARACTER )(( 0)));
    } else {
      result__4QKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__4QKG == '(')) {
      position__V0B=(__INTEGER)(position__V0B +  1);
      result__3QKG=TRUE__;
    };
  };
  if (result__3QKG) {
    result__EUIG=NULL;
    if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL)->parent_arrayed_collection__55K.upper__B5S <  0)) {
      result__EUIG=create_with_capacity__GMD( 16);
    } else {
      Self__FUIG=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL);
      result__EUIG=((void **)Self__FUIG->parent_arrayed_collection__55K.storage__5BT)[Self__FUIG->parent_arrayed_collection__55K.upper__B5S];
      Self__GUIG=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL);
      Self__GUIG->parent_arrayed_collection__55K.upper__B5S=(__INTEGER)(Self__GUIG->parent_arrayed_collection__55K.upper__B5S -  1);
    };
    l_assignment__MAJ=result__EUIG;
    do {
      again__LAJ=FALSE__;
      if (read_identifier__EBL()) {
        p__NAJ=(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C);
        copy__5GQ(string_tmp2__FBJ,last_string__NTC);
        while (read_identifier__EBL()) {
          append__CRQ(string_tmp2__FBJ,(&__string_84));
          append__CRQ(string_tmp2__FBJ,last_string__NTC);
        };
        name__OAJ=get__TPB(string_tmp2__FBJ);
        add_last__1VS(l_assignment__MAJ,name__OAJ);
        if ((! fast_has__LKT(short_local__W1B,name__OAJ))) {
          short__token__to__R0C((&__string_103),p__NAJ,position__V0B);
        };
        result__ARKG=FALSE__;
        if ((! read_space__MMD())) {
          result__ARKG=FALSE__;
        } else {
          result__BRKG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__BRKG=((__CHARACTER )(( 0)));
          } else {
            result__BRKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__BRKG == ',')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__ARKG=TRUE__;
          };
        };
        if (result__ARKG) {
          again__LAJ=TRUE__;
        };
      };
    } while (again__LAJ);
    if ((! (((__FAST_ARRAYoSTRING_CONSTANTo *)result__EUIG)->parent_arrayed_collection__30B.upper__I5N <  0))) {
      result__DRKG=FALSE__;
      if ((! read_space__MMD())) {
        result__DRKG=FALSE__;
      } else {
        result__ERKG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__ERKG=((__CHARACTER )(( 0)));
        } else {
          result__ERKG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__ERKG == ')')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__DRKG=TRUE__;
        };
      };
      __tmp__SDJ=result__DRKG;
    } else {
      __tmp__SDJ=FALSE__;
    };
    if ((__tmp__SDJ && read_affect__QY3())) {
      result__VEOC=create_with_capacity__GMD((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__EUIG)->parent_arrayed_collection__30B.upper__I5N +  1));
      copy__0PBC(result__VEOC,result__EUIG);
      free__5Z3(result__EUIG);
      l_assignment__MAJ=result__VEOC;
      p__1EOC=current_position__A0F();
      result__UUYC=NULL;
      ptr__VUYC=((__POINTER )(NULL));
      typ_id__0UYC= 0;
      sz__XUYC=((__UINTEGER_32 )sizeof(__ITM_LIST_IDF));
      if ((sz__XUYC ==  0)) {
        result__UUYC=ITM_LIST_IDF__;
      } else {
        typ_id__0UYC=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__XUYC);
        if ((typ_id__0UYC == (__INTEGER)(-  1))) {
          a__4MHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__5MHG=(__UINTEGER_32)((__UINTEGER_32)(sz__XUYC + a__4MHG) & (__UINTEGER_32)(~ a__4MHG));
          ptr_table__HRKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5MHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__GRKG=((__POINTER )(NULL));
          result__IRKG=((__POINTER *)ptr_table__HRKG)[ 0];
          if ((result__IRKG == (void *)NULL)) {
            result__IRKG=new_lab__RUJ(new_size__5MHG);
            next__GRKG=(void *)((unsigned long)result__IRKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MHG)));
            ((__POINTER *)next__GRKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__HRKG)[ 0]=next__GRKG;
          } else {
            next__GRKG=((__POINTER *)result__IRKG)[ 0];
            if ((next__GRKG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IRKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5MHG <<  1)) <=  4096)) {
                next__GRKG=(void *)((unsigned long)result__IRKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MHG)));
              } else {
                next__GRKG=new_lab__RUJ(new_size__5MHG);
              };
              ((__POINTER *)next__GRKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__HRKG)[ 0]=next__GRKG;
            } else {
              ((__POINTER *)result__IRKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__GRKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__IRKG=next__GRKG;
            };
          };
          ptr__VUYC=result__IRKG;
        } else {
          t__DNHG=((__UINTEGER_32 )typ_id__0UYC);
          a__CNHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__PRKG=(__UINTEGER_32)((__UINTEGER_32)(sz__XUYC + a__CNHG) & (__UINTEGER_32)(~ a__CNHG));
          ptr_table__MRKG=((__POINTER )(&(table_type[(t__DNHG)])));
          lab_type__ORKG=(__UINTEGER_32)(t__DNHG |  1);
          next__LRKG=((__POINTER )(NULL));
          result__NRKG=((__POINTER *)ptr_table__MRKG)[ 0];
          if ((result__NRKG == (void *)NULL)) {
            result__NRKG=new_lab__RUJ(lab_type__ORKG);
            next__LRKG=(void *)((unsigned long)result__NRKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRKG)));
            ((__POINTER *)next__LRKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__MRKG)[ 0]=next__LRKG;
          } else {
            next__LRKG=((__POINTER *)result__NRKG)[ 0];
            if ((next__LRKG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NRKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__PRKG <<  1)) <=  4096)) {
                next__LRKG=(void *)((unsigned long)result__NRKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRKG)));
              } else {
                next__LRKG=new_lab__RUJ(lab_type__ORKG);
              };
              ((__POINTER *)next__LRKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__MRKG)[ 0]=next__LRKG;
            } else {
              ((__POINTER *)result__NRKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__LRKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__NRKG=next__LRKG;
            };
          };
          ptr__VUYC=result__NRKG;
        };
        result__UUYC=((__ITM_LIST_IDF *)ptr__VUYC);
        *(result__UUYC) = *(ITM_LIST_IDF__);
      };
      ((__ITM_LIST_IDF *)result__UUYC)->parent_itm_code__0DJ.parent_itm_object__P2D.position__REJ=p__1EOC;
      result__55I=result__UUYC;
      affect__KAJ=((__CHARACTER *)((__STRING_CONSTANT *)last_string__NTC)->storage__E5M)[ 0];
      value__AAJ=read_expr__25I(Self__35I);
      if (((void *)value__AAJ == (void *)NULL)) {
        pos__JU0F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_190));
        put_position__ATG(pos__JU0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      if ((affect__KAJ == ':')) {
        p__YRKG=result__UUYC->parent_itm_code__0DJ.parent_itm_object__P2D.position__REJ;
        result__QRKG=NULL;
        ptr__RRKG=((__POINTER )(NULL));
        typ_id__SRKG= 0;
        sz__TRKG=((__UINTEGER_32 )sizeof(__ITM_WRITE_VALUE));
        if ((sz__TRKG ==  0)) {
          result__QRKG=ITM_WRITE_VALUE__;
        } else {
          typ_id__SRKG=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__TRKG);
          if ((typ_id__SRKG == (__INTEGER)(-  1))) {
            a__URKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__VRKG=(__UINTEGER_32)((__UINTEGER_32)(sz__TRKG + a__URKG) & (__UINTEGER_32)(~ a__URKG));
            ptr_table__0RKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VRKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__ZRKG=((__POINTER )(NULL));
            result__1RKG=((__POINTER *)ptr_table__0RKG)[ 0];
            if ((result__1RKG == (void *)NULL)) {
              result__1RKG=new_lab__RUJ(new_size__VRKG);
              next__ZRKG=(void *)((unsigned long)result__1RKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VRKG)));
              ((__POINTER *)next__ZRKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__0RKG)[ 0]=next__ZRKG;
            } else {
              next__ZRKG=((__POINTER *)result__1RKG)[ 0];
              if ((next__ZRKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1RKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VRKG <<  1)) <=  4096)) {
                  next__ZRKG=(void *)((unsigned long)result__1RKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VRKG)));
                } else {
                  next__ZRKG=new_lab__RUJ(new_size__VRKG);
                };
                ((__POINTER *)next__ZRKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__0RKG)[ 0]=next__ZRKG;
              } else {
                ((__POINTER *)result__1RKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZRKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__1RKG=next__ZRKG;
              };
            };
            ptr__RRKG=result__1RKG;
          } else {
            t__WRKG=((__UINTEGER_32 )typ_id__SRKG);
            a__XRKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__CSKG=(__UINTEGER_32)((__UINTEGER_32)(sz__TRKG + a__XRKG) & (__UINTEGER_32)(~ a__XRKG));
            ptr_table__5RKG=((__POINTER )(&(table_type[(t__WRKG)])));
            lab_type__BSKG=(__UINTEGER_32)(t__WRKG |  1);
            next__4RKG=((__POINTER )(NULL));
            result__ASKG=((__POINTER *)ptr_table__5RKG)[ 0];
            if ((result__ASKG == (void *)NULL)) {
              result__ASKG=new_lab__RUJ(lab_type__BSKG);
              next__4RKG=(void *)((unsigned long)result__ASKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CSKG)));
              ((__POINTER *)next__4RKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__5RKG)[ 0]=next__4RKG;
            } else {
              next__4RKG=((__POINTER *)result__ASKG)[ 0];
              if ((next__4RKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ASKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CSKG <<  1)) <=  4096)) {
                  next__4RKG=(void *)((unsigned long)result__ASKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CSKG)));
                } else {
                  next__4RKG=new_lab__RUJ(lab_type__BSKG);
                };
                ((__POINTER *)next__4RKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__5RKG)[ 0]=next__4RKG;
              } else {
                ((__POINTER *)result__ASKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__4RKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__ASKG=next__4RKG;
              };
            };
            ptr__RRKG=result__ASKG;
          };
          result__QRKG=((__ITM_WRITE_VALUE *)ptr__RRKG);
          *(result__QRKG) = *(ITM_WRITE_VALUE__);
        };
        ((__ITM_WRITE_VALUE *)result__QRKG)->parent_itm_write__QEJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ=p__YRKG;
        result__55I=result__QRKG;
      };
      if ((affect__KAJ == '<')) {
        pos__LU0F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_227));
        put_position__ATG(pos__LU0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      if ((affect__KAJ == '?')) {
        pos__NU0F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_228));
        put_position__ATG(pos__NU0F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
        switch (((struct ___OBJ *)result__55I)->__id) {
        case __ITM_LIST__: {
          __tmp__IFJ=((__ITM_LIST *)result__55I)->parent_itm_code__4XE.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_PROTOTYPE__: {
          __tmp__IFJ=((__ITM_PROTOTYPE *)result__55I)->parent_itm_constant__VYF.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_LIST_IDF__: {
          __tmp__IFJ=((__ITM_LIST_IDF *)result__55I)->parent_itm_code__0DJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_WRITE_VALUE__: {
          __tmp__IFJ=((__ITM_WRITE_VALUE *)result__55I)->parent_itm_write__QEJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_WRITE_CAST__: {
          __tmp__IFJ=((__ITM_WRITE_CAST *)result__55I)->parent_itm_write__HFJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_READ__: {
          __tmp__IFJ=((__ITM_READ *)result__55I)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_WRITE_CODE__: {
          __tmp__IFJ=((__ITM_WRITE_CODE *)result__55I)->parent_itm_write__SIJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_READ_ARG2__: {
          __tmp__IFJ=((__ITM_READ_ARG2 *)result__55I)->parent_itm_read__DLJ.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_BINARY__: {
          __tmp__IFJ=((__ITM_BINARY *)result__55I)->parent_itm_code__XLJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_READ_ARG1__: {
          __tmp__IFJ=((__ITM_READ_ARG1 *)result__55I)->parent_itm_read__TGL.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_OLD__: {
          __tmp__IFJ=((__ITM_OLD *)result__55I)->parent_itm_code__RUM.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_EXTERNAL_TYPE__: {
          __tmp__IFJ=((__ITM_EXTERNAL_TYPE *)result__55I)->parent_itm_extern__TDN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_REAL__: {
          __tmp__IFJ=((__ITM_REAL *)result__55I)->parent_itm_constant__FHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_NUMBER__: {
          __tmp__IFJ=((__ITM_NUMBER *)result__55I)->parent_itm_constant__XHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_CHARACTER__: {
          __tmp__IFJ=((__ITM_CHARACTER *)result__55I)->parent_itm_constant__JIN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_STRING__: {
          __tmp__IFJ=((__ITM_STRING *)result__55I)->parent_itm_code__0IN.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_EXTERNAL__: {
          __tmp__IFJ=((__ITM_EXTERNAL *)result__55I)->parent_itm_extern__VMN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_READ_ARGS__: {
          __tmp__IFJ=((__ITM_READ_ARGS *)result__55I)->parent_itm_read__B2N.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
        } break;
        };
        result__DSKG=NULL;
        ptr__ESKG=((__POINTER )(NULL));
        typ_id__FSKG= 0;
        sz__GSKG=((__UINTEGER_32 )sizeof(__ITM_WRITE_CAST));
        if ((sz__GSKG ==  0)) {
          result__DSKG=ITM_WRITE_CAST__;
        } else {
          typ_id__FSKG=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__GSKG);
          if ((typ_id__FSKG == (__INTEGER)(-  1))) {
            a__HSKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__ISKG=(__UINTEGER_32)((__UINTEGER_32)(sz__GSKG + a__HSKG) & (__UINTEGER_32)(~ a__HSKG));
            ptr_table__NSKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ISKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__MSKG=((__POINTER )(NULL));
            result__OSKG=((__POINTER *)ptr_table__NSKG)[ 0];
            if ((result__OSKG == (void *)NULL)) {
              result__OSKG=new_lab__RUJ(new_size__ISKG);
              next__MSKG=(void *)((unsigned long)result__OSKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISKG)));
              ((__POINTER *)next__MSKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__NSKG)[ 0]=next__MSKG;
            } else {
              next__MSKG=((__POINTER *)result__OSKG)[ 0];
              if ((next__MSKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OSKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ISKG <<  1)) <=  4096)) {
                  next__MSKG=(void *)((unsigned long)result__OSKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISKG)));
                } else {
                  next__MSKG=new_lab__RUJ(new_size__ISKG);
                };
                ((__POINTER *)next__MSKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__NSKG)[ 0]=next__MSKG;
              } else {
                ((__POINTER *)result__OSKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MSKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__OSKG=next__MSKG;
              };
            };
            ptr__ESKG=result__OSKG;
          } else {
            t__JSKG=((__UINTEGER_32 )typ_id__FSKG);
            a__KSKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__VSKG=(__UINTEGER_32)((__UINTEGER_32)(sz__GSKG + a__KSKG) & (__UINTEGER_32)(~ a__KSKG));
            ptr_table__SSKG=((__POINTER )(&(table_type[(t__JSKG)])));
            lab_type__USKG=(__UINTEGER_32)(t__JSKG |  1);
            next__RSKG=((__POINTER )(NULL));
            result__TSKG=((__POINTER *)ptr_table__SSKG)[ 0];
            if ((result__TSKG == (void *)NULL)) {
              result__TSKG=new_lab__RUJ(lab_type__USKG);
              next__RSKG=(void *)((unsigned long)result__TSKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VSKG)));
              ((__POINTER *)next__RSKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__SSKG)[ 0]=next__RSKG;
            } else {
              next__RSKG=((__POINTER *)result__TSKG)[ 0];
              if ((next__RSKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TSKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VSKG <<  1)) <=  4096)) {
                  next__RSKG=(void *)((unsigned long)result__TSKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VSKG)));
                } else {
                  next__RSKG=new_lab__RUJ(lab_type__USKG);
                };
                ((__POINTER *)next__RSKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__SSKG)[ 0]=next__RSKG;
              } else {
                ((__POINTER *)result__TSKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__RSKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__TSKG=next__RSKG;
              };
            };
            ptr__ESKG=result__TSKG;
          };
          result__DSKG=((__ITM_WRITE_CAST *)ptr__ESKG);
          *(result__DSKG) = *(ITM_WRITE_CAST__);
        };
        ((__ITM_WRITE_CAST *)result__DSKG)->parent_itm_write__HFJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ=__tmp__IFJ;
        result__55I=result__DSKG;
      };
    } else {
      free__5Z3(l_assignment__MAJ);
    };
    __tmp__UFJ=TRUE__;
  } else {
    __tmp__UFJ=FALSE__;
  };
  if ((! __tmp__UFJ)) {
    if (read_identifier__EBL()) {
      p__NAJ=(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C);
      copy__5GQ(string_tmp2__FBJ,last_string__NTC);
      while (read_identifier__EBL()) {
        append__CRQ(string_tmp2__FBJ,(&__string_84));
        append__CRQ(string_tmp2__FBJ,last_string__NTC);
      };
      name__OAJ=get__TPB(string_tmp2__FBJ);
      if ((! fast_has__LKT(short_local__W1B,name__OAJ))) {
        short__token__to__R0C((&__string_103),p__NAJ,position__V0B);
      };
      if (read_affect__QY3()) {
        p__4SKG=current_position__A0F();
        result__WSKG=NULL;
        ptr__XSKG=((__POINTER )(NULL));
        typ_id__YSKG= 0;
        sz__ZSKG=((__UINTEGER_32 )sizeof(__ITM_READ));
        if ((sz__ZSKG ==  0)) {
          result__WSKG=ITM_READ__;
        } else {
          typ_id__YSKG=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__ZSKG);
          if ((typ_id__YSKG == (__INTEGER)(-  1))) {
            a__0SKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__1SKG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSKG + a__0SKG) & (__UINTEGER_32)(~ a__0SKG));
            ptr_table__ATKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1SKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__5SKG=((__POINTER )(NULL));
            result__BTKG=((__POINTER *)ptr_table__ATKG)[ 0];
            if ((result__BTKG == (void *)NULL)) {
              result__BTKG=new_lab__RUJ(new_size__1SKG);
              next__5SKG=(void *)((unsigned long)result__BTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1SKG)));
              ((__POINTER *)next__5SKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__ATKG)[ 0]=next__5SKG;
            } else {
              next__5SKG=((__POINTER *)result__BTKG)[ 0];
              if ((next__5SKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BTKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1SKG <<  1)) <=  4096)) {
                  next__5SKG=(void *)((unsigned long)result__BTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1SKG)));
                } else {
                  next__5SKG=new_lab__RUJ(new_size__1SKG);
                };
                ((__POINTER *)next__5SKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__ATKG)[ 0]=next__5SKG;
              } else {
                ((__POINTER *)result__BTKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5SKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__BTKG=next__5SKG;
              };
            };
            ptr__XSKG=result__BTKG;
          } else {
            t__2SKG=((__UINTEGER_32 )typ_id__YSKG);
            a__3SKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__ITKG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSKG + a__3SKG) & (__UINTEGER_32)(~ a__3SKG));
            ptr_table__FTKG=((__POINTER )(&(table_type[(t__2SKG)])));
            lab_type__HTKG=(__UINTEGER_32)(t__2SKG |  1);
            next__ETKG=((__POINTER )(NULL));
            result__GTKG=((__POINTER *)ptr_table__FTKG)[ 0];
            if ((result__GTKG == (void *)NULL)) {
              result__GTKG=new_lab__RUJ(lab_type__HTKG);
              next__ETKG=(void *)((unsigned long)result__GTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ITKG)));
              ((__POINTER *)next__ETKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__FTKG)[ 0]=next__ETKG;
            } else {
              next__ETKG=((__POINTER *)result__GTKG)[ 0];
              if ((next__ETKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GTKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__ITKG <<  1)) <=  4096)) {
                  next__ETKG=(void *)((unsigned long)result__GTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ITKG)));
                } else {
                  next__ETKG=new_lab__RUJ(lab_type__HTKG);
                };
                ((__POINTER *)next__ETKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__FTKG)[ 0]=next__ETKG;
              } else {
                ((__POINTER *)result__GTKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ETKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__GTKG=next__ETKG;
              };
            };
            ptr__XSKG=result__GTKG;
          };
          result__WSKG=((__ITM_READ *)ptr__XSKG);
          *(result__WSKG) = *(ITM_READ__);
        };
        ((__ITM_READ *)result__WSKG)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__4SKG;
        result__55I=result__WSKG;
        affect__KAJ=((__CHARACTER *)((__STRING_CONSTANT *)last_string__NTC)->storage__E5M)[ 0];
        value__AAJ=read_expr__25I(Self__35I);
        if (((void *)value__AAJ == (void *)NULL)) {
          pos__QU0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_190));
          put_position__ATG(pos__QU0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        if ((affect__KAJ == ':')) {
          __tmp__JIJ=result__WSKG->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          result__IJYB=NULL;
          ptr__JJYB=((__POINTER )(NULL));
          typ_id__OJYB= 0;
          sz__LJYB=((__UINTEGER_32 )sizeof(__ITM_WRITE_VALUE));
          if ((sz__LJYB ==  0)) {
            result__IJYB=ITM_WRITE_VALUE__;
          } else {
            typ_id__OJYB=-1;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__LJYB);
            if ((typ_id__OJYB == (__INTEGER)(-  1))) {
              a__WYHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__XYHG=(__UINTEGER_32)((__UINTEGER_32)(sz__LJYB + a__WYHG) & (__UINTEGER_32)(~ a__WYHG));
              ptr_table__KTKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XYHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__JTKG=((__POINTER )(NULL));
              result__LTKG=((__POINTER *)ptr_table__KTKG)[ 0];
              if ((result__LTKG == (void *)NULL)) {
                result__LTKG=new_lab__RUJ(new_size__XYHG);
                next__JTKG=(void *)((unsigned long)result__LTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XYHG)));
                ((__POINTER *)next__JTKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__KTKG)[ 0]=next__JTKG;
              } else {
                next__JTKG=((__POINTER *)result__LTKG)[ 0];
                if ((next__JTKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LTKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__XYHG <<  1)) <=  4096)) {
                    next__JTKG=(void *)((unsigned long)result__LTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XYHG)));
                  } else {
                    next__JTKG=new_lab__RUJ(new_size__XYHG);
                  };
                  ((__POINTER *)next__JTKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__KTKG)[ 0]=next__JTKG;
                } else {
                  ((__POINTER *)result__LTKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__JTKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__LTKG=next__JTKG;
                };
              };
              ptr__JJYB=result__LTKG;
            } else {
              t__1YHG=((__UINTEGER_32 )typ_id__OJYB);
              a__0YHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__STKG=(__UINTEGER_32)((__UINTEGER_32)(sz__LJYB + a__0YHG) & (__UINTEGER_32)(~ a__0YHG));
              ptr_table__PTKG=((__POINTER )(&(table_type[(t__1YHG)])));
              lab_type__RTKG=(__UINTEGER_32)(t__1YHG |  1);
              next__OTKG=((__POINTER )(NULL));
              result__QTKG=((__POINTER *)ptr_table__PTKG)[ 0];
              if ((result__QTKG == (void *)NULL)) {
                result__QTKG=new_lab__RUJ(lab_type__RTKG);
                next__OTKG=(void *)((unsigned long)result__QTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__STKG)));
                ((__POINTER *)next__OTKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__PTKG)[ 0]=next__OTKG;
              } else {
                next__OTKG=((__POINTER *)result__QTKG)[ 0];
                if ((next__OTKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QTKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__STKG <<  1)) <=  4096)) {
                    next__OTKG=(void *)((unsigned long)result__QTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__STKG)));
                  } else {
                    next__OTKG=new_lab__RUJ(lab_type__RTKG);
                  };
                  ((__POINTER *)next__OTKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__PTKG)[ 0]=next__OTKG;
                } else {
                  ((__POINTER *)result__QTKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__OTKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__QTKG=next__OTKG;
                };
              };
              ptr__JJYB=result__QTKG;
            };
            result__IJYB=((__ITM_WRITE_VALUE *)ptr__JJYB);
            *(result__IJYB) = *(ITM_WRITE_VALUE__);
          };
          ((__ITM_WRITE_VALUE *)result__IJYB)->parent_itm_write__QEJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ=__tmp__JIJ;
          result__55I=result__IJYB;
        };
        if ((affect__KAJ == '<')) {
          switch (((struct ___OBJ *)result__55I)->__id) {
          case __ITM_LIST__: {
            __tmp__TIJ=((__ITM_LIST *)result__55I)->parent_itm_code__4XE.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_PROTOTYPE__: {
            __tmp__TIJ=((__ITM_PROTOTYPE *)result__55I)->parent_itm_constant__VYF.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_LIST_IDF__: {
            __tmp__TIJ=((__ITM_LIST_IDF *)result__55I)->parent_itm_code__0DJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_WRITE_VALUE__: {
            __tmp__TIJ=((__ITM_WRITE_VALUE *)result__55I)->parent_itm_write__QEJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_WRITE_CAST__: {
            __tmp__TIJ=((__ITM_WRITE_CAST *)result__55I)->parent_itm_write__HFJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_READ__: {
            __tmp__TIJ=((__ITM_READ *)result__55I)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_WRITE_CODE__: {
            __tmp__TIJ=((__ITM_WRITE_CODE *)result__55I)->parent_itm_write__SIJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_READ_ARG2__: {
            __tmp__TIJ=((__ITM_READ_ARG2 *)result__55I)->parent_itm_read__DLJ.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_BINARY__: {
            __tmp__TIJ=((__ITM_BINARY *)result__55I)->parent_itm_code__XLJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_READ_ARG1__: {
            __tmp__TIJ=((__ITM_READ_ARG1 *)result__55I)->parent_itm_read__TGL.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_OLD__: {
            __tmp__TIJ=((__ITM_OLD *)result__55I)->parent_itm_code__RUM.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_EXTERNAL_TYPE__: {
            __tmp__TIJ=((__ITM_EXTERNAL_TYPE *)result__55I)->parent_itm_extern__TDN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_REAL__: {
            __tmp__TIJ=((__ITM_REAL *)result__55I)->parent_itm_constant__FHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_NUMBER__: {
            __tmp__TIJ=((__ITM_NUMBER *)result__55I)->parent_itm_constant__XHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_CHARACTER__: {
            __tmp__TIJ=((__ITM_CHARACTER *)result__55I)->parent_itm_constant__JIN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_STRING__: {
            __tmp__TIJ=((__ITM_STRING *)result__55I)->parent_itm_code__0IN.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_EXTERNAL__: {
            __tmp__TIJ=((__ITM_EXTERNAL *)result__55I)->parent_itm_extern__VMN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_READ_ARGS__: {
            __tmp__TIJ=((__ITM_READ_ARGS *)result__55I)->parent_itm_read__B2N.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          } break;
          };
          result__ZKYB=NULL;
          ptr__0KYB=((__POINTER )(NULL));
          typ_id__5KYB= 0;
          sz__2KYB=((__UINTEGER_32 )sizeof(__ITM_WRITE_CODE));
          if ((sz__2KYB ==  0)) {
            result__ZKYB=ITM_WRITE_CODE__;
          } else {
            typ_id__5KYB=-1;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__2KYB);
            if ((typ_id__5KYB == (__INTEGER)(-  1))) {
              a__GNHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__HNHG=(__UINTEGER_32)((__UINTEGER_32)(sz__2KYB + a__GNHG) & (__UINTEGER_32)(~ a__GNHG));
              ptr_table__UTKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HNHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__TTKG=((__POINTER )(NULL));
              result__VTKG=((__POINTER *)ptr_table__UTKG)[ 0];
              if ((result__VTKG == (void *)NULL)) {
                result__VTKG=new_lab__RUJ(new_size__HNHG);
                next__TTKG=(void *)((unsigned long)result__VTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HNHG)));
                ((__POINTER *)next__TTKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__UTKG)[ 0]=next__TTKG;
              } else {
                next__TTKG=((__POINTER *)result__VTKG)[ 0];
                if ((next__TTKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VTKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__HNHG <<  1)) <=  4096)) {
                    next__TTKG=(void *)((unsigned long)result__VTKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HNHG)));
                  } else {
                    next__TTKG=new_lab__RUJ(new_size__HNHG);
                  };
                  ((__POINTER *)next__TTKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__UTKG)[ 0]=next__TTKG;
                } else {
                  ((__POINTER *)result__VTKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__TTKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__VTKG=next__TTKG;
                };
              };
              ptr__0KYB=result__VTKG;
            } else {
              t__LNHG=((__UINTEGER_32 )typ_id__5KYB);
              a__KNHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__2TKG=(__UINTEGER_32)((__UINTEGER_32)(sz__2KYB + a__KNHG) & (__UINTEGER_32)(~ a__KNHG));
              ptr_table__ZTKG=((__POINTER )(&(table_type[(t__LNHG)])));
              lab_type__1TKG=(__UINTEGER_32)(t__LNHG |  1);
              next__YTKG=((__POINTER )(NULL));
              result__0TKG=((__POINTER *)ptr_table__ZTKG)[ 0];
              if ((result__0TKG == (void *)NULL)) {
                result__0TKG=new_lab__RUJ(lab_type__1TKG);
                next__YTKG=(void *)((unsigned long)result__0TKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2TKG)));
                ((__POINTER *)next__YTKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__ZTKG)[ 0]=next__YTKG;
              } else {
                next__YTKG=((__POINTER *)result__0TKG)[ 0];
                if ((next__YTKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0TKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__2TKG <<  1)) <=  4096)) {
                    next__YTKG=(void *)((unsigned long)result__0TKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2TKG)));
                  } else {
                    next__YTKG=new_lab__RUJ(lab_type__1TKG);
                  };
                  ((__POINTER *)next__YTKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__ZTKG)[ 0]=next__YTKG;
                } else {
                  ((__POINTER *)result__0TKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__YTKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__0TKG=next__YTKG;
                };
              };
              ptr__0KYB=result__0TKG;
            };
            result__ZKYB=((__ITM_WRITE_CODE *)ptr__0KYB);
            *(result__ZKYB) = *(ITM_WRITE_CODE__);
          };
          ((__ITM_WRITE_CODE *)result__ZKYB)->parent_itm_write__SIJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ=__tmp__TIJ;
          result__55I=result__ZKYB;
        };
        if ((affect__KAJ == '?')) {
          switch (((struct ___OBJ *)result__55I)->__id) {
          case __ITM_LIST__: {
            __tmp__2IJ=((__ITM_LIST *)result__55I)->parent_itm_code__4XE.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_PROTOTYPE__: {
            __tmp__2IJ=((__ITM_PROTOTYPE *)result__55I)->parent_itm_constant__VYF.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_LIST_IDF__: {
            __tmp__2IJ=((__ITM_LIST_IDF *)result__55I)->parent_itm_code__0DJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_WRITE_VALUE__: {
            __tmp__2IJ=((__ITM_WRITE_VALUE *)result__55I)->parent_itm_write__QEJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_WRITE_CAST__: {
            __tmp__2IJ=((__ITM_WRITE_CAST *)result__55I)->parent_itm_write__HFJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_READ__: {
            __tmp__2IJ=((__ITM_READ *)result__55I)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_WRITE_CODE__: {
            __tmp__2IJ=((__ITM_WRITE_CODE *)result__55I)->parent_itm_write__SIJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_READ_ARG2__: {
            __tmp__2IJ=((__ITM_READ_ARG2 *)result__55I)->parent_itm_read__DLJ.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_BINARY__: {
            __tmp__2IJ=((__ITM_BINARY *)result__55I)->parent_itm_code__XLJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_READ_ARG1__: {
            __tmp__2IJ=((__ITM_READ_ARG1 *)result__55I)->parent_itm_read__TGL.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_OLD__: {
            __tmp__2IJ=((__ITM_OLD *)result__55I)->parent_itm_code__RUM.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_EXTERNAL_TYPE__: {
            __tmp__2IJ=((__ITM_EXTERNAL_TYPE *)result__55I)->parent_itm_extern__TDN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_REAL__: {
            __tmp__2IJ=((__ITM_REAL *)result__55I)->parent_itm_constant__FHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_NUMBER__: {
            __tmp__2IJ=((__ITM_NUMBER *)result__55I)->parent_itm_constant__XHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_CHARACTER__: {
            __tmp__2IJ=((__ITM_CHARACTER *)result__55I)->parent_itm_constant__JIN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_STRING__: {
            __tmp__2IJ=((__ITM_STRING *)result__55I)->parent_itm_code__0IN.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_EXTERNAL__: {
            __tmp__2IJ=((__ITM_EXTERNAL *)result__55I)->parent_itm_extern__VMN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ;
          } break;
          case __ITM_READ_ARGS__: {
            __tmp__2IJ=((__ITM_READ_ARGS *)result__55I)->parent_itm_read__B2N.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
          } break;
          };
          result__KMYB=NULL;
          ptr__LMYB=((__POINTER )(NULL));
          typ_id__QMYB= 0;
          sz__NMYB=((__UINTEGER_32 )sizeof(__ITM_WRITE_CAST));
          if ((sz__NMYB ==  0)) {
            result__KMYB=ITM_WRITE_CAST__;
          } else {
            typ_id__QMYB=-1;
            clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__NMYB);
            if ((typ_id__QMYB == (__INTEGER)(-  1))) {
              a__4YHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__5YHG=(__UINTEGER_32)((__UINTEGER_32)(sz__NMYB + a__4YHG) & (__UINTEGER_32)(~ a__4YHG));
              ptr_table__4TKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5YHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
              next__3TKG=((__POINTER )(NULL));
              result__5TKG=((__POINTER *)ptr_table__4TKG)[ 0];
              if ((result__5TKG == (void *)NULL)) {
                result__5TKG=new_lab__RUJ(new_size__5YHG);
                next__3TKG=(void *)((unsigned long)result__5TKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5YHG)));
                ((__POINTER *)next__3TKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__4TKG)[ 0]=next__3TKG;
              } else {
                next__3TKG=((__POINTER *)result__5TKG)[ 0];
                if ((next__3TKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5TKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5YHG <<  1)) <=  4096)) {
                    next__3TKG=(void *)((unsigned long)result__5TKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5YHG)));
                  } else {
                    next__3TKG=new_lab__RUJ(new_size__5YHG);
                  };
                  ((__POINTER *)next__3TKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__4TKG)[ 0]=next__3TKG;
                } else {
                  ((__POINTER *)result__5TKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3TKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__5TKG=next__3TKG;
                };
              };
              ptr__LMYB=result__5TKG;
            } else {
              t__DZHG=((__UINTEGER_32 )typ_id__QMYB);
              a__CZHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
              new_size__GUKG=(__UINTEGER_32)((__UINTEGER_32)(sz__NMYB + a__CZHG) & (__UINTEGER_32)(~ a__CZHG));
              ptr_table__DUKG=((__POINTER )(&(table_type[(t__DZHG)])));
              lab_type__FUKG=(__UINTEGER_32)(t__DZHG |  1);
              next__CUKG=((__POINTER )(NULL));
              result__EUKG=((__POINTER *)ptr_table__DUKG)[ 0];
              if ((result__EUKG == (void *)NULL)) {
                result__EUKG=new_lab__RUJ(lab_type__FUKG);
                next__CUKG=(void *)((unsigned long)result__EUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GUKG)));
                ((__POINTER *)next__CUKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__DUKG)[ 0]=next__CUKG;
              } else {
                next__CUKG=((__POINTER *)result__EUKG)[ 0];
                if ((next__CUKG == (void *)NULL)) {
                  if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EUKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__GUKG <<  1)) <=  4096)) {
                    next__CUKG=(void *)((unsigned long)result__EUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GUKG)));
                  } else {
                    next__CUKG=new_lab__RUJ(lab_type__FUKG);
                  };
                  ((__POINTER *)next__CUKG)[ 0]=NULL;
                  ((__POINTER *)ptr_table__DUKG)[ 0]=next__CUKG;
                } else {
                  ((__POINTER *)result__EUKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CUKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                  result__EUKG=next__CUKG;
                };
              };
              ptr__LMYB=result__EUKG;
            };
            result__KMYB=((__ITM_WRITE_CAST *)ptr__LMYB);
            *(result__KMYB) = *(ITM_WRITE_CAST__);
          };
          ((__ITM_WRITE_CAST *)result__KMYB)->parent_itm_write__HFJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ=__tmp__2IJ;
          result__55I=result__KMYB;
        };
      };
    };
  };
  if (((void *)result__55I == (void *)NULL)) {
    restore_context__MEL();
    result__55I=read_expr_prefix__XFL(Self__35I);
    if ((((void *)result__55I != (void *)NULL) && read_operator__BRL())) {
      result__ZCI=NULL;
      if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI)->parent_arrayed_collection__4CI.upper__M1R <  0)) {
        result__ZCI=create_with_capacity__X0I( 16);
      } else {
        Self__MO2=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
        result__ZCI=((void **)Self__MO2->parent_arrayed_collection__4CI.storage__1FS)[Self__MO2->parent_arrayed_collection__4CI.upper__M1R];
        Self__CP2=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
        Self__CP2->parent_arrayed_collection__4CI.upper__M1R=(__INTEGER)(Self__CP2->parent_arrayed_collection__4CI.upper__M1R -  1);
      };
      l_expr__BAJ=result__ZCI;
      result__05K=NULL;
      if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL)->parent_arrayed_collection__55K.upper__B5S <  0)) {
        result__05K=create_with_capacity__GMD( 16);
      } else {
        Self__N23=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL);
        result__05K=((void **)Self__N23->parent_arrayed_collection__55K.storage__5BT)[Self__N23->parent_arrayed_collection__55K.upper__B5S];
        Self__D33=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL);
        Self__D33->parent_arrayed_collection__55K.upper__B5S=(__INTEGER)(Self__D33->parent_arrayed_collection__55K.upper__B5S -  1);
      };
      l_oper__CAJ=result__05K;
      result__G03=NULL;
      if ((((__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *)free_list__M03)->parent_arrayed_collection__L03.upper__RO4B <  0)) {
        result__G03=create_with_capacity__MANB( 16);
      } else {
        Self__X0QC=((__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *)free_list__M03);
        result__G03=((void **)Self__X0QC->parent_arrayed_collection__L03.storage__505B)[Self__X0QC->parent_arrayed_collection__L03.upper__RO4B];
        Self__N1QC=((__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *)free_list__M03);
        Self__N1QC->parent_arrayed_collection__L03.upper__RO4B=(__INTEGER)(Self__N1QC->parent_arrayed_collection__L03.upper__RO4B -  1);
      };
      l_posi__IAJ=result__G03;
      while ((! is_not_op__JAJ)) {
        add_last__GVT(l_expr__BAJ,result__55I);
        add_last__1VS(l_oper__CAJ,operator_to_name__SBM((&__string_78),last_string__NTC));
        __tmp__OKJ=current_position__A0F();
        Self__40AC=((__FAST_ARRAYoExpanded_POSITIONo *)l_posi__IAJ);
        new_capacity__A1AC= 0;
        if (((__INTEGER)(Self__40AC->parent_arrayed_collection__HAJ.upper__V15B +  1) <= (__INTEGER)(Self__40AC->parent_arrayed_collection__HAJ.capacity__B25B -  1))) {
          Self__40AC->parent_arrayed_collection__HAJ.upper__V15B=(__INTEGER)(Self__40AC->parent_arrayed_collection__HAJ.upper__V15B +  1);
          __tmp__O1AC=TRUE__;
        } else {
          __tmp__O1AC=FALSE__;
        };
        if ((! __tmp__O1AC)) {
          if ((Self__40AC->parent_arrayed_collection__HAJ.capacity__B25B ==  0)) {
            Self__40AC->parent_arrayed_collection__HAJ.storage__WD5B=create__KB3C( 2);
            Self__40AC->parent_arrayed_collection__HAJ.capacity__B25B= 2;
            Self__40AC->parent_arrayed_collection__HAJ.upper__V15B= 0;
          } else {
            new_capacity__A1AC=(__INTEGER)(Self__40AC->parent_arrayed_collection__HAJ.capacity__B25B <<  1);
            __tmp__D2AC=Self__40AC->parent_arrayed_collection__HAJ.storage__WD5B;
            __tmp__E2AC=Self__40AC->parent_arrayed_collection__HAJ.capacity__B25B;
            new__YGUD=((__POSITION *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((__POSITION *)__tmp__D2AC)),((__UINTEGER_32 )(__INTEGER)(__tmp__E2AC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__A1AC * ((__INTEGER )(sizeof(void *)))))));
            __tmp__LHUD=(__INTEGER)(new_capacity__A1AC -  1);
            v__3ITE=((__POSITION ) 0);
            Self__ELUE=__tmp__E2AC;
            while ((Self__ELUE <= __tmp__LHUD)) {
              new__YGUD[Self__ELUE]=v__3ITE;
              Self__ELUE=(__INTEGER)(Self__ELUE +  1);
            };
            Self__40AC->parent_arrayed_collection__HAJ.storage__WD5B=new__YGUD;
            Self__40AC->parent_arrayed_collection__HAJ.capacity__B25B=new_capacity__A1AC;
            Self__40AC->parent_arrayed_collection__HAJ.upper__V15B=(__INTEGER)(Self__40AC->parent_arrayed_collection__HAJ.upper__V15B +  1);
          };
        };
        ((__POSITION *)Self__40AC->parent_arrayed_collection__HAJ.storage__WD5B)[Self__40AC->parent_arrayed_collection__HAJ.upper__V15B]=__tmp__OKJ;
        result__55I=read_expr_prefix__XFL(Self__35I);
        if (((void *)result__55I == (void *)NULL)) {
          pos__AW0F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_190));
          put_position__ATG(pos__AW0F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        is_not_op__JAJ=(! read_operator__BRL());
      };
      add_last__GVT(result__ZCI,result__55I);
      if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__ZCI)->parent_arrayed_collection__KWF.upper__D2R +  1) ==  2)) {
        p__IFP=((__POSITION *)((__FAST_ARRAYoExpanded_POSITIONo *)result__G03)->parent_arrayed_collection__HAJ.storage__WD5B)[ 0];
        result__VIP=NULL;
        ptr__WIP=((__POINTER )(NULL));
        typ_id__1IP= 0;
        sz__YIP=((__UINTEGER_32 )sizeof(__ITM_READ_ARG2));
        if ((sz__YIP ==  0)) {
          result__VIP=ITM_READ_ARG2__;
        } else {
          typ_id__1IP=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__YIP);
          if ((typ_id__1IP == (__INTEGER)(-  1))) {
            a__4ZHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__5ZHG=(__UINTEGER_32)((__UINTEGER_32)(sz__YIP + a__4ZHG) & (__UINTEGER_32)(~ a__4ZHG));
            ptr_table__IUKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5ZHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__HUKG=((__POINTER )(NULL));
            result__JUKG=((__POINTER *)ptr_table__IUKG)[ 0];
            if ((result__JUKG == (void *)NULL)) {
              result__JUKG=new_lab__RUJ(new_size__5ZHG);
              next__HUKG=(void *)((unsigned long)result__JUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ZHG)));
              ((__POINTER *)next__HUKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__IUKG)[ 0]=next__HUKG;
            } else {
              next__HUKG=((__POINTER *)result__JUKG)[ 0];
              if ((next__HUKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JUKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5ZHG <<  1)) <=  4096)) {
                  next__HUKG=(void *)((unsigned long)result__JUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ZHG)));
                } else {
                  next__HUKG=new_lab__RUJ(new_size__5ZHG);
                };
                ((__POINTER *)next__HUKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__IUKG)[ 0]=next__HUKG;
              } else {
                ((__POINTER *)result__JUKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HUKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__JUKG=next__HUKG;
              };
            };
            ptr__WIP=result__JUKG;
          } else {
            t__D0HG=((__UINTEGER_32 )typ_id__1IP);
            a__C0HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__QUKG=(__UINTEGER_32)((__UINTEGER_32)(sz__YIP + a__C0HG) & (__UINTEGER_32)(~ a__C0HG));
            ptr_table__NUKG=((__POINTER )(&(table_type[(t__D0HG)])));
            lab_type__PUKG=(__UINTEGER_32)(t__D0HG |  1);
            next__MUKG=((__POINTER )(NULL));
            result__OUKG=((__POINTER *)ptr_table__NUKG)[ 0];
            if ((result__OUKG == (void *)NULL)) {
              result__OUKG=new_lab__RUJ(lab_type__PUKG);
              next__MUKG=(void *)((unsigned long)result__OUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUKG)));
              ((__POINTER *)next__MUKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__NUKG)[ 0]=next__MUKG;
            } else {
              next__MUKG=((__POINTER *)result__OUKG)[ 0];
              if ((next__MUKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OUKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__QUKG <<  1)) <=  4096)) {
                  next__MUKG=(void *)((unsigned long)result__OUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUKG)));
                } else {
                  next__MUKG=new_lab__RUJ(lab_type__PUKG);
                };
                ((__POINTER *)next__MUKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__NUKG)[ 0]=next__MUKG;
              } else {
                ((__POINTER *)result__OUKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MUKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__OUKG=next__MUKG;
              };
            };
            ptr__WIP=result__OUKG;
          };
          result__VIP=((__ITM_READ_ARG2 *)ptr__WIP);
          *(result__VIP) = *(ITM_READ_ARG2__);
        };
        ((__ITM_READ_ARG2 *)result__VIP)->parent_itm_read__DLJ.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__IFP;
        result__55I=result__VIP;
        free__30I(result__ZCI);
        free__5Z3(result__05K);
        free__0PIB(result__G03);
      } else {
        l_expr__BAJ=copy__OEI(result__ZCI);
        l_oper__CAJ=alias__4PIB(result__05K);
        result__YQIB=create_with_capacity__MANB((__INTEGER)(((__FAST_ARRAYoExpanded_POSITIONo *)result__G03)->parent_arrayed_collection__HAJ.upper__V15B +  1));
        Self__1BAC=((__FAST_ARRAYoExpanded_POSITIONo *)result__YQIB);
        new_capacity__4BAC= 0;
        other_upper__3BAC=((__FAST_ARRAYoExpanded_POSITIONo *)result__G03)->parent_arrayed_collection__HAJ.upper__V15B;
        if ((other_upper__3BAC >=  0)) {
          new_capacity__4BAC=(__INTEGER)(other_upper__3BAC +  1);
          if ((Self__1BAC->parent_arrayed_collection__HAJ.capacity__B25B < new_capacity__4BAC)) {
            Self__1BAC->parent_arrayed_collection__HAJ.storage__WD5B=create__KB3C(new_capacity__4BAC);
            Self__1BAC->parent_arrayed_collection__HAJ.capacity__B25B=new_capacity__4BAC;
          };
          __tmp__RCAC=Self__1BAC->parent_arrayed_collection__HAJ.storage__WD5B;
          __tmp__TCAC=((__FAST_ARRAYoExpanded_POSITIONo *)result__G03)->parent_arrayed_collection__HAJ.storage__WD5B;
          Self__3RTD=((__POSITION *)__tmp__RCAC);
          Self__2IXD=other_upper__3BAC;
          while ((Self__2IXD >=  0)) {
            Self__3RTD[Self__2IXD]=((__POSITION *)__tmp__TCAC)[Self__2IXD];
            Self__2IXD=(__INTEGER)(Self__2IXD -  1);
          };
        };
        Self__1BAC->parent_arrayed_collection__HAJ.upper__V15B=other_upper__3BAC;
        free__0PIB(result__G03);
        l_posi__IAJ=result__YQIB;
        result__1ANB=NULL;
        ptr__2ANB=((__POINTER )(NULL));
        typ_id__BBNB= 0;
        sz__4ANB=((__UINTEGER_32 )sizeof(__ITM_BINARY));
        if ((sz__4ANB ==  0)) {
          result__1ANB=ITM_BINARY__;
        } else {
          typ_id__BBNB=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__4ANB);
          if ((typ_id__BBNB == (__INTEGER)(-  1))) {
            a__0NHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__1NHG=(__UINTEGER_32)((__UINTEGER_32)(sz__4ANB + a__0NHG) & (__UINTEGER_32)(~ a__0NHG));
            ptr_table__SUKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1NHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__RUKG=((__POINTER )(NULL));
            result__TUKG=((__POINTER *)ptr_table__SUKG)[ 0];
            if ((result__TUKG == (void *)NULL)) {
              result__TUKG=new_lab__RUJ(new_size__1NHG);
              next__RUKG=(void *)((unsigned long)result__TUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1NHG)));
              ((__POINTER *)next__RUKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__SUKG)[ 0]=next__RUKG;
            } else {
              next__RUKG=((__POINTER *)result__TUKG)[ 0];
              if ((next__RUKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TUKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1NHG <<  1)) <=  4096)) {
                  next__RUKG=(void *)((unsigned long)result__TUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1NHG)));
                } else {
                  next__RUKG=new_lab__RUJ(new_size__1NHG);
                };
                ((__POINTER *)next__RUKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__SUKG)[ 0]=next__RUKG;
              } else {
                ((__POINTER *)result__TUKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__RUKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__TUKG=next__RUKG;
              };
            };
            ptr__2ANB=result__TUKG;
          } else {
            t__5NHG=((__UINTEGER_32 )typ_id__BBNB);
            a__4NHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__0UKG=(__UINTEGER_32)((__UINTEGER_32)(sz__4ANB + a__4NHG) & (__UINTEGER_32)(~ a__4NHG));
            ptr_table__XUKG=((__POINTER )(&(table_type[(t__5NHG)])));
            lab_type__ZUKG=(__UINTEGER_32)(t__5NHG |  1);
            next__WUKG=((__POINTER )(NULL));
            result__YUKG=((__POINTER *)ptr_table__XUKG)[ 0];
            if ((result__YUKG == (void *)NULL)) {
              result__YUKG=new_lab__RUJ(lab_type__ZUKG);
              next__WUKG=(void *)((unsigned long)result__YUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UKG)));
              ((__POINTER *)next__WUKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__XUKG)[ 0]=next__WUKG;
            } else {
              next__WUKG=((__POINTER *)result__YUKG)[ 0];
              if ((next__WUKG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YUKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__0UKG <<  1)) <=  4096)) {
                  next__WUKG=(void *)((unsigned long)result__YUKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UKG)));
                } else {
                  next__WUKG=new_lab__RUJ(lab_type__ZUKG);
                };
                ((__POINTER *)next__WUKG)[ 0]=NULL;
                ((__POINTER *)ptr_table__XUKG)[ 0]=next__WUKG;
              } else {
                ((__POINTER *)result__YUKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__WUKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__YUKG=next__WUKG;
              };
            };
            ptr__2ANB=result__YUKG;
          };
          result__1ANB=((__ITM_BINARY *)ptr__2ANB);
          *(result__1ANB) = *(ITM_BINARY__);
        };
        result__55I=result__1ANB;
      };
    };
  };
  return(result__55I);
}

static void insert_string__to__SCT(__STRING *Self__TCT,void *s__UCT,__INTEGER i__VCT)
// ({STRING},{NULLxSTRING_CONSTANTxSTRING},{INTEGER}) VoidNo recursive, No inlinable.
{
  __INTEGER j__WCT,__tmp__JDT,dest__VVKG,src_capacity__ZVKG,i2__UVKG;
  __INTEGER i1__WVKG;
  __CHARACTER *__tmp__ZDT,*__tmp__0DT,*Self__XVKG,*src__YVKG;
  j__WCT=Self__TCT->count__04B;
  if (((struct ___OBJ *)s__UCT)->__id==__STRING_CONSTANT__) {
    __tmp__JDT=((__STRING_CONSTANT *)s__UCT)->count__4C;
  } else {
    __tmp__JDT=((__STRING *)s__UCT)->count__04B;
  };
  resize__54X(Self__TCT,(__INTEGER)(j__WCT + __tmp__JDT));
  if ((i__VCT <= j__WCT)) {
    move__to__by__YP4B(Self__TCT->storage__HGQ,(__INTEGER)(i__VCT -  1),(__INTEGER)(j__WCT -  1),__tmp__JDT);
  };
  __tmp__ZDT=Self__TCT->storage__HGQ;
  if (((struct ___OBJ *)s__UCT)->__id==__STRING_CONSTANT__) {
    __tmp__0DT=((__STRING_CONSTANT *)s__UCT)->storage__E5M;
  } else {
    __tmp__0DT=((__STRING *)s__UCT)->storage__HGQ;
  };
  Self__XVKG=((__CHARACTER *)__tmp__ZDT);
  src__YVKG=__tmp__0DT;
  dest__VVKG=(__INTEGER)(i__VCT -  1);
  src_capacity__ZVKG=__tmp__JDT;
  i2__UVKG= 0;
  i1__WVKG=dest__VVKG;
  while ((i2__UVKG != src_capacity__ZVKG)) {
    Self__XVKG[i1__WVKG]=((__CHARACTER *)src__YVKG)[i2__UVKG];
    i2__UVKG=(__INTEGER)(i2__UVKG +  1);
    i1__WVKG=(__INTEGER)(i1__WVKG +  1);
  };
}

static void read_escape_character__AVDF()
// () VoidNo recursive, No inlinable.
{
  __INTEGER val__DVDF,__tmp__ZGGG,__tmp__0GGG,new_capacity__3HJG;
  __INTEGER old_nb_elts__AIJG,upper__4UKG,Self__2UKG,new_capacity__DIJG;
  __INTEGER old_nb_elts__GIJG,upper__DVKG,Self__BVKG,new_capacity__JIJG;
  __INTEGER old_nb_elts__MIJG,upper__IVKG,Self__GVKG,new_capacity__PIJG;
  __INTEGER old_nb_elts__SIJG,upper__NVKG,Self__LVKG,new_capacity__VIJG;
  __INTEGER old_nb_elts__YIJG,upper__SVKG,Self__QVKG;
  __STRING *Self__IOHG,*Self__4HJG,*Self__EIJG,*Self__KIJG,*Self__QIJG;
  __STRING *Self__WIJG;
  __POSITION pos__M30F,pos__Z30F,pos__G40F,pos__I40F;
  __CHARACTER result__SMCG,result__TMCG,result__VMCG,result__WMCG;
  __CHARACTER result__XMCG,result__YMCG,result__ZMCG,result__0MCG;
  __CHARACTER result__1MCG,result__2MCG,result__3MCG,result__4MCG;
  __CHARACTER result__5MCG,result__ANCG,result__BNCG,result__CNCG;
  __CHARACTER result__DNCG,result__ENCG,result__JNCG,result__KNCG;
  __CHARACTER result__ONCG,ch__OIJG,ch__UIJG,ch__0IJG,result__PNCG;
  __CHARACTER *__tmp__GOHG,*__tmp__HOHG,*Self__5HJG,*new__BIJG;
  __CHARACTER *Self__FIJG,*new__HIJG,*Self__LIJG,*new__NIJG,*Self__RIJG;
  __CHARACTER *new__TIJG,*Self__XIJG,*new__ZIJG;
  __BOOLEAN __tmp__2VDF,__tmp__QWDF,__tmp__DXDF,__tmp__YZDF,__tmp__ZZDF;
  __BOOLEAN __tmp__0ZDF,__tmp__1ZDF,__tmp__2ZDF,__tmp__3ZDF,__tmp__4ZDF;
  __BOOLEAN __tmp__5ZDF,__tmp__A0DF,__tmp__B0DF,__tmp__M0DF;
  val__DVDF= 0;
  result__SMCG='\0';
  if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
    result__SMCG=((__CHARACTER )(( 0)));
  } else {
    result__SMCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
  };
  if ((((((((result__SMCG == ' ') || (result__SMCG == '\t')) || (result__SMCG == '\n')) || (result__SMCG == '\r')) || (result__SMCG == '\0')) || (result__SMCG == '\f')) || (result__SMCG == '\v'))) {
    position__V0B=(__INTEGER)(position__V0B +  1);
    __tmp__ZGGG=((__STRING *)source__S0B)->count__04B;
    __tmp__0GGG=((__STRING *)source__S0B)->count__04B;
    __tmp__GOHG=((__STRING *)source__S0B)->storage__HGQ;
    __tmp__HOHG=((__STRING *)source__S0B)->storage__HGQ;
    until_do__VIEF:
    {
      result__TMCG='\0';
      if ((position__V0B > __tmp__ZGGG)) {
        result__TMCG=((__CHARACTER )(( 0)));
      } else {
        result__TMCG=((__CHARACTER *)__tmp__GOHG)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__TMCG == ((__CHARACTER )(( 0))))) {
        __tmp__2VDF=TRUE__;
      } else {
        result__VMCG='\0';
        if ((position__V0B > __tmp__0GGG)) {
          result__VMCG=((__CHARACTER )(( 0)));
        } else {
          result__VMCG=((__CHARACTER *)__tmp__HOHG)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__2VDF=(! (((((((result__VMCG == ' ') || (result__VMCG == '\t')) || (result__VMCG == '\n')) || (result__VMCG == '\r')) || (result__VMCG == '\0')) || (result__VMCG == '\f')) || (result__VMCG == '\v')));
      };
      if ((! __tmp__2VDF)) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        goto until_do__VIEF;
      };
    };
    result__WMCG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__WMCG=((__CHARACTER )(( 0)));
    } else {
      result__WMCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__WMCG == '\\')) {
      Self__IOHG=((__STRING *)string_tmp__QH);
      if (( 1 > Self__IOHG->count__04B)) {
        Self__IOHG->count__04B= 0;
      } else {
        Self__IOHG->count__04B=(__INTEGER)(Self__IOHG->count__04B -  1);
      };
      position__V0B=(__INTEGER)(position__V0B +  1);
      __tmp__QWDF=TRUE__;
    } else {
      __tmp__QWDF=FALSE__;
    };
    if ((! __tmp__QWDF)) {
      result__XMCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__XMCG=((__CHARACTER )(( 0)));
      } else {
        result__XMCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__XMCG != ((__CHARACTER )(( 0))))) {
        pos__M30F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_229));
        put_position__ATG(pos__M30F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
    };
    __tmp__DXDF=TRUE__;
  } else {
    __tmp__DXDF=FALSE__;
  };
  if ((! __tmp__DXDF)) {
    result__YMCG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__YMCG=((__CHARACTER )(( 0)));
    } else {
      result__YMCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__YMCG != ((__CHARACTER )(( 0))))) {
      result__ZMCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__ZMCG=((__CHARACTER )(( 0)));
      } else {
        result__ZMCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__ZMCG == 'a')) {
        __tmp__YZDF=TRUE__;
      } else {
        result__0MCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__0MCG=((__CHARACTER )(( 0)));
        } else {
          result__0MCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__YZDF=(result__0MCG == 'b');
      };
      if (__tmp__YZDF) {
        __tmp__ZZDF=TRUE__;
      } else {
        result__1MCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__1MCG=((__CHARACTER )(( 0)));
        } else {
          result__1MCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__ZZDF=(result__1MCG == 'f');
      };
      if (__tmp__ZZDF) {
        __tmp__0ZDF=TRUE__;
      } else {
        result__2MCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__2MCG=((__CHARACTER )(( 0)));
        } else {
          result__2MCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__0ZDF=(result__2MCG == 'n');
      };
      if (__tmp__0ZDF) {
        __tmp__1ZDF=TRUE__;
      } else {
        result__3MCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__3MCG=((__CHARACTER )(( 0)));
        } else {
          result__3MCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__1ZDF=(result__3MCG == 'r');
      };
      if (__tmp__1ZDF) {
        __tmp__2ZDF=TRUE__;
      } else {
        result__4MCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__4MCG=((__CHARACTER )(( 0)));
        } else {
          result__4MCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__2ZDF=(result__4MCG == 't');
      };
      if (__tmp__2ZDF) {
        __tmp__3ZDF=TRUE__;
      } else {
        result__5MCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__5MCG=((__CHARACTER )(( 0)));
        } else {
          result__5MCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__3ZDF=(result__5MCG == 'v');
      };
      if (__tmp__3ZDF) {
        __tmp__4ZDF=TRUE__;
      } else {
        result__ANCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__ANCG=((__CHARACTER )(( 0)));
        } else {
          result__ANCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__4ZDF=(result__ANCG == '\\');
      };
      if (__tmp__4ZDF) {
        __tmp__5ZDF=TRUE__;
      } else {
        result__BNCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__BNCG=((__CHARACTER )(( 0)));
        } else {
          result__BNCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__5ZDF=(result__BNCG == '?');
      };
      if (__tmp__5ZDF) {
        __tmp__A0DF=TRUE__;
      } else {
        result__CNCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__CNCG=((__CHARACTER )(( 0)));
        } else {
          result__CNCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__A0DF=(result__CNCG == '\'');
      };
      if (__tmp__A0DF) {
        __tmp__B0DF=TRUE__;
      } else {
        result__DNCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__DNCG=((__CHARACTER )(( 0)));
        } else {
          result__DNCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        __tmp__B0DF=(result__DNCG == '\"');
      };
      if (__tmp__B0DF) {
        result__ENCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__ENCG=((__CHARACTER )(( 0)));
        } else {
          result__ENCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        Self__4HJG=((__STRING *)string_tmp__QH);
        new_capacity__3HJG= 0;
        if ((Self__4HJG->capacity__4FQ <= Self__4HJG->count__04B)) {
          if ((Self__4HJG->capacity__4FQ ==  0)) {
            Self__4HJG->capacity__4FQ= 32;
            Self__4HJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__3HJG=(__INTEGER)(Self__4HJG->capacity__4FQ <<  1);
            Self__5HJG=((__CHARACTER *)Self__4HJG->storage__HGQ);
            old_nb_elts__AIJG=Self__4HJG->capacity__4FQ;
            new__BIJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__5HJG),((__UINTEGER_32 )old_nb_elts__AIJG),((__UINTEGER_32 )new_capacity__3HJG)));
            upper__4UKG=(__INTEGER)(new_capacity__3HJG -  1);
            Self__2UKG=old_nb_elts__AIJG;
            while ((Self__2UKG <= upper__4UKG)) {
              new__BIJG[Self__2UKG]='\0';
              Self__2UKG=(__INTEGER)(Self__2UKG +  1);
            };
            Self__4HJG->storage__HGQ=new__BIJG;
            Self__4HJG->capacity__4FQ=new_capacity__3HJG;
          };
        };
        ((__CHARACTER *)Self__4HJG->storage__HGQ)[Self__4HJG->count__04B]=result__ENCG;
        Self__4HJG->count__04B=(__INTEGER)(Self__4HJG->count__04B +  1);
        position__V0B=(__INTEGER)(position__V0B +  1);
        __tmp__M0DF=TRUE__;
      } else {
        __tmp__M0DF=FALSE__;
      };
      if ((! __tmp__M0DF)) {
        result__JNCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__JNCG=((__CHARACTER )(( 0)));
        } else {
          result__JNCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if (((((__INTEGER_8 )result__JNCG) >= ((__INTEGER_8 )'0')) && (((__INTEGER_8 )result__JNCG) <= ((__INTEGER_8 )'9')))) {
          result__KNCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__KNCG=((__CHARACTER )(( 0)));
          } else {
            result__KNCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((((result__KNCG == '0') && (position__V0B < ((__STRING *)source__S0B)->count__04B)) && (! is_hexadecimal_digit__51JE(((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)((__INTEGER)(position__V0B +  1) -  1)])))) {
            result__ONCG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__ONCG=((__CHARACTER )(( 0)));
            } else {
              result__ONCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            Self__EIJG=((__STRING *)string_tmp__QH);
            new_capacity__DIJG= 0;
            if ((Self__EIJG->capacity__4FQ <= Self__EIJG->count__04B)) {
              if ((Self__EIJG->capacity__4FQ ==  0)) {
                Self__EIJG->capacity__4FQ= 32;
                Self__EIJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__DIJG=(__INTEGER)(Self__EIJG->capacity__4FQ <<  1);
                Self__FIJG=((__CHARACTER *)Self__EIJG->storage__HGQ);
                old_nb_elts__GIJG=Self__EIJG->capacity__4FQ;
                new__HIJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__FIJG),((__UINTEGER_32 )old_nb_elts__GIJG),((__UINTEGER_32 )new_capacity__DIJG)));
                upper__DVKG=(__INTEGER)(new_capacity__DIJG -  1);
                Self__BVKG=old_nb_elts__GIJG;
                while ((Self__BVKG <= upper__DVKG)) {
                  new__HIJG[Self__BVKG]='\0';
                  Self__BVKG=(__INTEGER)(Self__BVKG +  1);
                };
                Self__EIJG->storage__HGQ=new__HIJG;
                Self__EIJG->capacity__4FQ=new_capacity__DIJG;
              };
            };
            ((__CHARACTER *)Self__EIJG->storage__HGQ)[Self__EIJG->count__04B]=result__ONCG;
            Self__EIJG->count__04B=(__INTEGER)(Self__EIJG->count__04B +  1);
            position__V0B=(__INTEGER)(position__V0B +  1);
          } else {
            copy__5GQ(string_tmp2__FBJ,string_tmp__QH);
            read_integer__LJO();
            copy__5GQ(string_tmp__QH,string_tmp2__FBJ);
            if ((last_integer__ZHN >  255)) {
              pos__Z30F=current_position__A0F();
              put_error__text__WRG( 0,(&__string_230));
              put_position__ATG(pos__Z30F);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
            val__DVDF=((__INTEGER )last_integer__ZHN);
            Self__KIJG=((__STRING *)string_tmp__QH);
            ch__OIJG=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__DVDF >>  6)) + ((__INTEGER_8 )'0')))));
            new_capacity__JIJG= 0;
            if ((Self__KIJG->capacity__4FQ <= Self__KIJG->count__04B)) {
              if ((Self__KIJG->capacity__4FQ ==  0)) {
                Self__KIJG->capacity__4FQ= 32;
                Self__KIJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__JIJG=(__INTEGER)(Self__KIJG->capacity__4FQ <<  1);
                Self__LIJG=((__CHARACTER *)Self__KIJG->storage__HGQ);
                old_nb_elts__MIJG=Self__KIJG->capacity__4FQ;
                new__NIJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__LIJG),((__UINTEGER_32 )old_nb_elts__MIJG),((__UINTEGER_32 )new_capacity__JIJG)));
                upper__IVKG=(__INTEGER)(new_capacity__JIJG -  1);
                Self__GVKG=old_nb_elts__MIJG;
                while ((Self__GVKG <= upper__IVKG)) {
                  new__NIJG[Self__GVKG]='\0';
                  Self__GVKG=(__INTEGER)(Self__GVKG +  1);
                };
                Self__KIJG->storage__HGQ=new__NIJG;
                Self__KIJG->capacity__4FQ=new_capacity__JIJG;
              };
            };
            ((__CHARACTER *)Self__KIJG->storage__HGQ)[Self__KIJG->count__04B]=ch__OIJG;
            Self__KIJG->count__04B=(__INTEGER)(Self__KIJG->count__04B +  1);
            Self__QIJG=((__STRING *)string_tmp__QH);
            ch__UIJG=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)((__INTEGER)(val__DVDF &  63) >>  3)) + ((__INTEGER_8 )'0')))));
            new_capacity__PIJG= 0;
            if ((Self__QIJG->capacity__4FQ <= Self__QIJG->count__04B)) {
              if ((Self__QIJG->capacity__4FQ ==  0)) {
                Self__QIJG->capacity__4FQ= 32;
                Self__QIJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__PIJG=(__INTEGER)(Self__QIJG->capacity__4FQ <<  1);
                Self__RIJG=((__CHARACTER *)Self__QIJG->storage__HGQ);
                old_nb_elts__SIJG=Self__QIJG->capacity__4FQ;
                new__TIJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__RIJG),((__UINTEGER_32 )old_nb_elts__SIJG),((__UINTEGER_32 )new_capacity__PIJG)));
                upper__NVKG=(__INTEGER)(new_capacity__PIJG -  1);
                Self__LVKG=old_nb_elts__SIJG;
                while ((Self__LVKG <= upper__NVKG)) {
                  new__TIJG[Self__LVKG]='\0';
                  Self__LVKG=(__INTEGER)(Self__LVKG +  1);
                };
                Self__QIJG->storage__HGQ=new__TIJG;
                Self__QIJG->capacity__4FQ=new_capacity__PIJG;
              };
            };
            ((__CHARACTER *)Self__QIJG->storage__HGQ)[Self__QIJG->count__04B]=ch__UIJG;
            Self__QIJG->count__04B=(__INTEGER)(Self__QIJG->count__04B +  1);
            Self__WIJG=((__STRING *)string_tmp__QH);
            ch__0IJG=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__DVDF &  7)) + ((__INTEGER_8 )'0')))));
            new_capacity__VIJG= 0;
            if ((Self__WIJG->capacity__4FQ <= Self__WIJG->count__04B)) {
              if ((Self__WIJG->capacity__4FQ ==  0)) {
                Self__WIJG->capacity__4FQ= 32;
                Self__WIJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__VIJG=(__INTEGER)(Self__WIJG->capacity__4FQ <<  1);
                Self__XIJG=((__CHARACTER *)Self__WIJG->storage__HGQ);
                old_nb_elts__YIJG=Self__WIJG->capacity__4FQ;
                new__ZIJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__XIJG),((__UINTEGER_32 )old_nb_elts__YIJG),((__UINTEGER_32 )new_capacity__VIJG)));
                upper__SVKG=(__INTEGER)(new_capacity__VIJG -  1);
                Self__QVKG=old_nb_elts__YIJG;
                while ((Self__QVKG <= upper__SVKG)) {
                  new__ZIJG[Self__QVKG]='\0';
                  Self__QVKG=(__INTEGER)(Self__QVKG +  1);
                };
                Self__WIJG->storage__HGQ=new__ZIJG;
                Self__WIJG->capacity__4FQ=new_capacity__VIJG;
              };
            };
            ((__CHARACTER *)Self__WIJG->storage__HGQ)[Self__WIJG->count__04B]=ch__0IJG;
            Self__WIJG->count__04B=(__INTEGER)(Self__WIJG->count__04B +  1);
            result__PNCG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__PNCG=((__CHARACTER )(( 0)));
            } else {
              result__PNCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__PNCG == '\\')) {
              position__V0B=(__INTEGER)(position__V0B +  1);
            } else {
              pos__G40F=current_position__A0F();
              put_error__text__WRG( 0,(&__string_231));
              put_position__ATG(pos__G40F);
              put_string__55F(msg_err__1RG);
              if ((type_error__0RG !=  2)) {
                exit(( 1));
              };
            };
          };
        } else {
          pos__I40F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_229));
          put_position__ATG(pos__I40F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
      };
      last_len_string__3IN=(__INTEGER)(last_len_string__3IN +  1);
    };
  };
}

static __BOOLEAN read_cap_identifier__X2J()
// () With resultNo recursive, No inlinable.
{
  __INTEGER posold__02J,idx__12J,new_capacity__1IJG,old_nb_elts__4IJG;
  __INTEGER upper__4VKG,Self__2VKG;
  __STRING *Self__2IJG;
  __POSITION pos__FB1F;
  __BOOLEAN result__22J,__tmp__J3J,result__TSCG,__tmp__Z4J,result__5SCG;
  __BOOLEAN result__SOHG,__tmp__V4J,__tmp__W4J;
  __CHARACTER result__YSCG,result__4SCG,result__ETCG,result__FTCG;
  __CHARACTER result__GTCG,result__HTCG;
  __CHARACTER *Self__3IJG,*new__5IJG;
  posold__02J= 0;
  idx__12J= 0;
  result__22J=FALSE__;
  if ((! read_space__MMD())) {
    __tmp__J3J=TRUE__;
  } else {
    result__YSCG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__YSCG=((__CHARACTER )(( 0)));
    } else {
      result__YSCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    result__TSCG=FALSE__;
    if ((((__INTEGER_8 )result__YSCG) >= ((__INTEGER_8 )'A'))) {
      result__TSCG=(((__INTEGER_8 )result__YSCG) <= ((__INTEGER_8 )'Z'));
    };
    __tmp__J3J=(! result__TSCG);
  };
  if (__tmp__J3J) {
    result__22J=FALSE__;
  } else {
    posold__02J=position__V0B;
    ((__STRING *)string_tmp__QH)->count__04B= 0;
    until_do__Q4UE:
    {
      result__4SCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__4SCG=((__CHARACTER )(( 0)));
      } else {
        result__4SCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__4SCG == ((__CHARACTER )(( 0))))) {
        __tmp__Z4J=TRUE__;
      } else {
        result__ETCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__ETCG=((__CHARACTER )(( 0)));
        } else {
          result__ETCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        result__5SCG=FALSE__;
        if ((((__INTEGER_8 )result__ETCG) >= ((__INTEGER_8 )'A'))) {
          result__5SCG=(((__INTEGER_8 )result__ETCG) <= ((__INTEGER_8 )'Z'));
        };
        if ((! result__5SCG)) {
          result__FTCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__FTCG=((__CHARACTER )(( 0)));
          } else {
            result__FTCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          result__SOHG=FALSE__;
          if ((((__INTEGER_8 )result__FTCG) >= ((__INTEGER_8 )'0'))) {
            result__SOHG=(((__INTEGER_8 )result__FTCG) <= ((__INTEGER_8 )'9'));
          };
          __tmp__V4J=(! result__SOHG);
        } else {
          __tmp__V4J=FALSE__;
        };
        if (__tmp__V4J) {
          result__GTCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__GTCG=((__CHARACTER )(( 0)));
          } else {
            result__GTCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          __tmp__W4J=(result__GTCG != '_');
        } else {
          __tmp__W4J=FALSE__;
        };
        __tmp__Z4J=__tmp__W4J;
      };
      if ((! __tmp__Z4J)) {
        result__HTCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__HTCG=((__CHARACTER )(( 0)));
        } else {
          result__HTCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        Self__2IJG=((__STRING *)string_tmp__QH);
        new_capacity__1IJG= 0;
        if ((Self__2IJG->capacity__4FQ <= Self__2IJG->count__04B)) {
          if ((Self__2IJG->capacity__4FQ ==  0)) {
            Self__2IJG->capacity__4FQ= 32;
            Self__2IJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__1IJG=(__INTEGER)(Self__2IJG->capacity__4FQ <<  1);
            Self__3IJG=((__CHARACTER *)Self__2IJG->storage__HGQ);
            old_nb_elts__4IJG=Self__2IJG->capacity__4FQ;
            new__5IJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__3IJG),((__UINTEGER_32 )old_nb_elts__4IJG),((__UINTEGER_32 )new_capacity__1IJG)));
            upper__4VKG=(__INTEGER)(new_capacity__1IJG -  1);
            Self__2VKG=old_nb_elts__4IJG;
            while ((Self__2VKG <= upper__4VKG)) {
              new__5IJG[Self__2VKG]='\0';
              Self__2VKG=(__INTEGER)(Self__2VKG +  1);
            };
            Self__2IJG->storage__HGQ=new__5IJG;
            Self__2IJG->capacity__4FQ=new_capacity__1IJG;
          };
        };
        ((__CHARACTER *)Self__2IJG->storage__HGQ)[Self__2IJG->count__04B]=result__HTCG;
        Self__2IJG->count__04B=(__INTEGER)(Self__2IJG->count__04B +  1);
        position__V0B=(__INTEGER)(position__V0B +  1);
        goto until_do__Q4UE;
      };
    };
    if ((((__STRING *)string_tmp__QH)->count__04B !=  0)) {
      idx__12J=first_substring_index__D15E(string_tmp__QH);
      if ((idx__12J !=  0)) {
        position__V0B=(__INTEGER)(posold__02J + idx__12J);
        pos__FB1F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_152));
        put_position__ATG(pos__FB1F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      last_string__NTC=get__TPB(string_tmp__QH);
      result__22J=TRUE__;
    };
  };
  return(result__22J);
}

static void add_last__1VS(__FAST_ARRAYoSTRING_CONSTANTo *Self__2VS,void *element__3VS)
// ({FAST_ARRAYoSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__4VS,__tmp__CXS,__tmp__AY5B,Self__R2VD;
  __BOOLEAN __tmp__MWS;
  void **__tmp__BXS,**new__NX5B;
  new_capacity__4VS= 0;
  if (((__INTEGER)(Self__2VS->parent_arrayed_collection__30B.upper__I5N +  1) <= (__INTEGER)(Self__2VS->parent_arrayed_collection__30B.capacity__5XQ -  1))) {
    Self__2VS->parent_arrayed_collection__30B.upper__I5N=(__INTEGER)(Self__2VS->parent_arrayed_collection__30B.upper__I5N +  1);
    __tmp__MWS=TRUE__;
  } else {
    __tmp__MWS=FALSE__;
  };
  if ((! __tmp__MWS)) {
    if ((Self__2VS->parent_arrayed_collection__30B.capacity__5XQ ==  0)) {
      Self__2VS->parent_arrayed_collection__30B.storage__WDR=create__JYMB( 2);
      Self__2VS->parent_arrayed_collection__30B.capacity__5XQ= 2;
      Self__2VS->parent_arrayed_collection__30B.upper__I5N= 0;
    } else {
      new_capacity__4VS=(__INTEGER)(Self__2VS->parent_arrayed_collection__30B.capacity__5XQ <<  1);
      __tmp__BXS=Self__2VS->parent_arrayed_collection__30B.storage__WDR;
      __tmp__CXS=Self__2VS->parent_arrayed_collection__30B.capacity__5XQ;
      new__NX5B=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__BXS)),((__UINTEGER_32 )(__INTEGER)(__tmp__CXS * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__4VS * ((__INTEGER )(sizeof(void *)))))));
      __tmp__AY5B=(__INTEGER)(new_capacity__4VS -  1);
      Self__R2VD=__tmp__CXS;
      while ((Self__R2VD <= __tmp__AY5B)) {
        new__NX5B[Self__R2VD]=NULL;
        Self__R2VD=(__INTEGER)(Self__R2VD +  1);
      };
      Self__2VS->parent_arrayed_collection__30B.storage__WDR=new__NX5B;
      Self__2VS->parent_arrayed_collection__30B.capacity__5XQ=new_capacity__4VS;
      Self__2VS->parent_arrayed_collection__30B.upper__I5N=(__INTEGER)(Self__2VS->parent_arrayed_collection__30B.upper__I5N +  1);
    };
  };
  ((void **)Self__2VS->parent_arrayed_collection__30B.storage__WDR)[Self__2VS->parent_arrayed_collection__30B.upper__I5N]=element__3VS;
}

static void** create__T2TC(__INTEGER nb_elements__V2TC)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__JUIG,a__IUIG,new_size__KUIG,new_size2__LUIG,a__MUIG;
  __UINTEGER_32 new_size__NUIG;
  __POINTER result__HUIG,ptr_table__BWKG,next__AWKG,result__CWKG;
  __INTEGER Self__1KXD;
  void **Result__J42C;
  sz__JUIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__V2TC * ((__INTEGER )(sizeof(void *)))));
  result__HUIG=((__POINTER )(NULL));
  a__IUIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__KUIG=(__UINTEGER_32)((__UINTEGER_32)(sz__JUIG + a__IUIG) & (__UINTEGER_32)(~ a__IUIG));
  new_size2__LUIG=(__UINTEGER_32)(new_size__KUIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__LUIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__MUIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__NUIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LUIG + a__MUIG) & (__UINTEGER_32)(~ a__MUIG));
    ptr_table__BWKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NUIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__AWKG=((__POINTER )(NULL));
    result__CWKG=((__POINTER *)ptr_table__BWKG)[ 0];
    if ((result__CWKG == (void *)NULL)) {
      result__CWKG=new_lab__RUJ(new_size__NUIG);
      next__AWKG=(void *)((unsigned long)result__CWKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUIG)));
      ((__POINTER *)next__AWKG)[ 0]=NULL;
      ((__POINTER *)ptr_table__BWKG)[ 0]=next__AWKG;
    } else {
      next__AWKG=((__POINTER *)result__CWKG)[ 0];
      if ((next__AWKG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CWKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__NUIG <<  1)) <=  4096)) {
          next__AWKG=(void *)((unsigned long)result__CWKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUIG)));
        } else {
          next__AWKG=new_lab__RUJ(new_size__NUIG);
        };
        ((__POINTER *)next__AWKG)[ 0]=NULL;
        ((__POINTER *)ptr_table__BWKG)[ 0]=next__AWKG;
      } else {
        ((__POINTER *)result__CWKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__AWKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__CWKG=next__AWKG;
      };
    };
    ((__POINTER *)result__CWKG)[ 0]=((__POINTER ) 3);
    result__HUIG=(void *)((unsigned long)result__CWKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__HUIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__KUIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__J42C=((void **)result__HUIG);
  Self__1KXD=(__INTEGER)(nb_elements__V2TC -  1);
  while ((Self__1KXD >=  0)) {
    Result__J42C[Self__1KXD]=NULL;
    Self__1KXD=(__INTEGER)(Self__1KXD -  1);
  };
  return(Result__J42C);
}

static void fast_add__KJ4B(__HASHED_SEToITM_TYPE_SIMPLEo *Self__LJ4B,void *e__MJ4B)
// ({HASHED_SEToITM_TYPE_SIMPLEo},{NULLxITM_TYPE_SIMPLExITM_TYPE_SELFxITM_TYPE_GENERICxITM_TYPE_STYLE}) VoidNo recursive, No inlinable.
{
  __INTEGER __tmp__ZJ4B,idx__UJ4B,idx__KFFD,new_capacity__LFFD,i__JFFD;
  __INTEGER __tmp__QGFD,typ_id__KIBD;
  void *__tmp__PGFD;
  __POINTER ptr__FIBD,ptr_table__GWKG,next__FWKG,result__HWKG;
  __POINTER ptr_table__LWKG,next__KWKG,result__MWKG;
  __UINTEGER_32 sz__HIBD,a__IPHG,new_size__JPHG,t__NPHG,a__MPHG;
  __UINTEGER_32 new_size__OWKG,lab_type__NWKG;
  void *node__WJ4B,*node1__NFFD,*node2__OFFD,*__tmp__ML4B;
  void **old_buckets__MFFD;
  __HASHED_SET_NODEoITM_TYPE_SIMPLEo *result__EIBD,*Self__U0TD;
  fast_has__M5FC(Self__LJ4B,e__MJ4B);
  fast_has__M5FC(Self__LJ4B,e__MJ4B);
  switch (((struct ___OBJ *)e__MJ4B)->__id) {
  case __ITM_TYPE_SIMPLE__: {
    __tmp__ZJ4B=hash_code__LQU(((__ITM_TYPE_SIMPLE *)e__MJ4B)->name__MEK);
  } break;
  case __ITM_TYPE_SELF__: {
    __tmp__ZJ4B=hash_code__LQU(((__ITM_TYPE_SELF *)e__MJ4B)->parent_itm_type_simple__KMJ.name__MEK);
  } break;
  case __ITM_TYPE_GENERIC__: {
    __tmp__ZJ4B=hash_code__LQU(((__ITM_TYPE_GENERIC *)e__MJ4B)->parent_itm_type_mono__S4N.parent_itm_type_simple__R4N.name__MEK);
  } break;
  case __ITM_TYPE_STYLE__: {
    __tmp__ZJ4B=hash_code__LQU(((__ITM_TYPE_STYLE *)e__MJ4B)->parent_itm_type_simple__R4N.name__MEK);
  } break;
  };
  idx__UJ4B=(__INTEGER)(__tmp__ZJ4B % Self__LJ4B->capacity__0J4B);
  node__WJ4B=((void **)Self__LJ4B->buckets__5J4B)[idx__UJ4B];
  while ((! (((void *)node__WJ4B == (void *)NULL) || ((void *)((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)node__WJ4B)->item__LK4B == (void *)e__MJ4B)))) {
    node__WJ4B=((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)node__WJ4B)->next__WK4B;
  };
  if (((void *)node__WJ4B == (void *)NULL)) {
    if ((Self__LJ4B->capacity__0J4B == Self__LJ4B->count__5K4B)) {
      idx__KFFD= 0;
      node1__NFFD=NULL;
      node2__OFFD=NULL;
      new_capacity__LFFD=prime_number_ceiling__33Z((__INTEGER)(Self__LJ4B->capacity__0J4B +  1));
      old_buckets__MFFD=Self__LJ4B->buckets__5J4B;
      Self__LJ4B->buckets__5J4B=create__T2TC(new_capacity__LFFD);
      i__JFFD=(__INTEGER)(Self__LJ4B->capacity__0J4B -  1);
      Self__LJ4B->capacity__0J4B=new_capacity__LFFD;
      while ((i__JFFD >=  0)) {
        node1__NFFD=((void **)old_buckets__MFFD)[i__JFFD];
        while (((void *)node1__NFFD != (void *)NULL)) {
          node2__OFFD=((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)node1__NFFD)->next__WK4B;
          __tmp__PGFD=((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)node1__NFFD)->item__LK4B;
          switch (((struct ___OBJ *)__tmp__PGFD)->__id) {
          case __ITM_TYPE_SIMPLE__: {
            __tmp__QGFD=hash_code__LQU(((__ITM_TYPE_SIMPLE *)__tmp__PGFD)->name__MEK);
          } break;
          case __ITM_TYPE_SELF__: {
            __tmp__QGFD=hash_code__LQU(((__ITM_TYPE_SELF *)__tmp__PGFD)->parent_itm_type_simple__KMJ.name__MEK);
          } break;
          case __ITM_TYPE_GENERIC__: {
            __tmp__QGFD=hash_code__LQU(((__ITM_TYPE_GENERIC *)__tmp__PGFD)->parent_itm_type_mono__S4N.parent_itm_type_simple__R4N.name__MEK);
          } break;
          case __ITM_TYPE_STYLE__: {
            __tmp__QGFD=hash_code__LQU(((__ITM_TYPE_STYLE *)__tmp__PGFD)->parent_itm_type_simple__R4N.name__MEK);
          } break;
          };
          idx__KFFD=(__INTEGER)(__tmp__QGFD % Self__LJ4B->capacity__0J4B);
          ((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)node1__NFFD)->next__WK4B=((void **)Self__LJ4B->buckets__5J4B)[idx__KFFD];
          ((void **)Self__LJ4B->buckets__5J4B)[idx__KFFD]=node1__NFFD;
          node1__NFFD=node2__OFFD;
        };
        i__JFFD=(__INTEGER)(i__JFFD -  1);
      };
      idx__UJ4B=(__INTEGER)(__tmp__ZJ4B % Self__LJ4B->capacity__0J4B);
    };
    __tmp__ML4B=((void **)Self__LJ4B->buckets__5J4B)[idx__UJ4B];
    result__EIBD=NULL;
    ptr__FIBD=((__POINTER )(NULL));
    typ_id__KIBD= 0;
    sz__HIBD=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoITM_TYPE_SIMPLEo));
    if ((sz__HIBD ==  0)) {
      result__EIBD=HASHED_SET_NODEoITM_TYPE_SIMPLEo__;
    } else {
      typ_id__KIBD=__HASHED_SET_NODEoITM_TYPE_SIMPLEo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__HIBD);
      if ((typ_id__KIBD == (__INTEGER)(-  1))) {
        a__IPHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__JPHG=(__UINTEGER_32)((__UINTEGER_32)(sz__HIBD + a__IPHG) & (__UINTEGER_32)(~ a__IPHG));
        ptr_table__GWKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JPHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__FWKG=((__POINTER )(NULL));
        result__HWKG=((__POINTER *)ptr_table__GWKG)[ 0];
        if ((result__HWKG == (void *)NULL)) {
          result__HWKG=new_lab__RUJ(new_size__JPHG);
          next__FWKG=(void *)((unsigned long)result__HWKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JPHG)));
          ((__POINTER *)next__FWKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__GWKG)[ 0]=next__FWKG;
        } else {
          next__FWKG=((__POINTER *)result__HWKG)[ 0];
          if ((next__FWKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HWKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__JPHG <<  1)) <=  4096)) {
              next__FWKG=(void *)((unsigned long)result__HWKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JPHG)));
            } else {
              next__FWKG=new_lab__RUJ(new_size__JPHG);
            };
            ((__POINTER *)next__FWKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__GWKG)[ 0]=next__FWKG;
          } else {
            ((__POINTER *)result__HWKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__FWKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__HWKG=next__FWKG;
          };
        };
        ptr__FIBD=result__HWKG;
      } else {
        t__NPHG=((__UINTEGER_32 )typ_id__KIBD);
        a__MPHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__OWKG=(__UINTEGER_32)((__UINTEGER_32)(sz__HIBD + a__MPHG) & (__UINTEGER_32)(~ a__MPHG));
        ptr_table__LWKG=((__POINTER )(&(table_type[(t__NPHG)])));
        lab_type__NWKG=(__UINTEGER_32)(t__NPHG |  1);
        next__KWKG=((__POINTER )(NULL));
        result__MWKG=((__POINTER *)ptr_table__LWKG)[ 0];
        if ((result__MWKG == (void *)NULL)) {
          result__MWKG=new_lab__RUJ(lab_type__NWKG);
          next__KWKG=(void *)((unsigned long)result__MWKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OWKG)));
          ((__POINTER *)next__KWKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__LWKG)[ 0]=next__KWKG;
        } else {
          next__KWKG=((__POINTER *)result__MWKG)[ 0];
          if ((next__KWKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MWKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__OWKG <<  1)) <=  4096)) {
              next__KWKG=(void *)((unsigned long)result__MWKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OWKG)));
            } else {
              next__KWKG=new_lab__RUJ(lab_type__NWKG);
            };
            ((__POINTER *)next__KWKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__LWKG)[ 0]=next__KWKG;
          } else {
            ((__POINTER *)result__MWKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__KWKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__MWKG=next__KWKG;
          };
        };
        ptr__FIBD=result__MWKG;
      };
      result__EIBD=((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)ptr__FIBD);
      *(result__EIBD) = *(HASHED_SET_NODEoITM_TYPE_SIMPLEo__);
    };
    Self__U0TD=((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)result__EIBD);
    Self__U0TD->item__LK4B=e__MJ4B;
    Self__U0TD->next__WK4B=__tmp__ML4B;
    node__WJ4B=result__EIBD;
    ((void **)Self__LJ4B->buckets__5J4B)[idx__UJ4B]=result__EIBD;
    Self__LJ4B->count__5K4B=(__INTEGER)(Self__LJ4B->count__5K4B +  1);
  };
}

static __BOOLEAN read_external__ZVO()
// () With resultNo recursive, No inlinable.
{
  __INTEGER pos_old__3VO,new_capacity__BJJG,old_nb_elts__EJJG;
  __INTEGER upper__SWKG,Self__QWKG,new_capacity__HJJG,old_nb_elts__KJJG;
  __INTEGER upper__XWKG,Self__VWKG;
  __STRING *Self__CJJG,*Self__IJJG;
  __BOOLEAN result__2VO,__tmp__IWO;
  __CHARACTER result__DXCG,result__JXCG,result__KXCG,result__LXCG;
  __CHARACTER result__MXCG,result__NXCG,result__OXCG,result__PXCG;
  __CHARACTER *Self__DJJG,*new__FJJG,*Self__JJJG,*new__LJJG;
  result__2VO=FALSE__;
  pos_old__3VO= 0;
  if ((! read_space__MMD())) {
    __tmp__IWO=TRUE__;
  } else {
    result__DXCG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__DXCG=((__CHARACTER )(( 0)));
    } else {
      result__DXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    __tmp__IWO=(result__DXCG != '`');
  };
  if (__tmp__IWO) {
    result__2VO=FALSE__;
  } else {
    pos_old__3VO=position__V0B;
    position__V0B=(__INTEGER)(position__V0B +  1);
    ((__STRING *)string_tmp__QH)->count__04B= 0;
    until_do__VIOC:
    {
      result__JXCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__JXCG=((__CHARACTER )(( 0)));
      } else {
        result__JXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      result__KXCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__KXCG=((__CHARACTER )(( 0)));
      } else {
        result__KXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((! ((result__JXCG == ((__CHARACTER )(( 0)))) | (result__KXCG == '`')))) {
        result__LXCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__LXCG=((__CHARACTER )(( 0)));
        } else {
          result__LXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        Self__CJJG=((__STRING *)string_tmp__QH);
        new_capacity__BJJG= 0;
        if ((Self__CJJG->capacity__4FQ <= Self__CJJG->count__04B)) {
          if ((Self__CJJG->capacity__4FQ ==  0)) {
            Self__CJJG->capacity__4FQ= 32;
            Self__CJJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__BJJG=(__INTEGER)(Self__CJJG->capacity__4FQ <<  1);
            Self__DJJG=((__CHARACTER *)Self__CJJG->storage__HGQ);
            old_nb_elts__EJJG=Self__CJJG->capacity__4FQ;
            new__FJJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__DJJG),((__UINTEGER_32 )old_nb_elts__EJJG),((__UINTEGER_32 )new_capacity__BJJG)));
            upper__SWKG=(__INTEGER)(new_capacity__BJJG -  1);
            Self__QWKG=old_nb_elts__EJJG;
            while ((Self__QWKG <= upper__SWKG)) {
              new__FJJG[Self__QWKG]='\0';
              Self__QWKG=(__INTEGER)(Self__QWKG +  1);
            };
            Self__CJJG->storage__HGQ=new__FJJG;
            Self__CJJG->capacity__4FQ=new_capacity__BJJG;
          };
        };
        ((__CHARACTER *)Self__CJJG->storage__HGQ)[Self__CJJG->count__04B]=result__LXCG;
        Self__CJJG->count__04B=(__INTEGER)(Self__CJJG->count__04B +  1);
        result__MXCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__MXCG=((__CHARACTER )(( 0)));
        } else {
          result__MXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__MXCG == '\\')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__NXCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__NXCG=((__CHARACTER )(( 0)));
          } else {
            result__NXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          Self__IJJG=((__STRING *)string_tmp__QH);
          new_capacity__HJJG= 0;
          if ((Self__IJJG->capacity__4FQ <= Self__IJJG->count__04B)) {
            if ((Self__IJJG->capacity__4FQ ==  0)) {
              Self__IJJG->capacity__4FQ= 32;
              Self__IJJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__HJJG=(__INTEGER)(Self__IJJG->capacity__4FQ <<  1);
              Self__JJJG=((__CHARACTER *)Self__IJJG->storage__HGQ);
              old_nb_elts__KJJG=Self__IJJG->capacity__4FQ;
              new__LJJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__JJJG),((__UINTEGER_32 )old_nb_elts__KJJG),((__UINTEGER_32 )new_capacity__HJJG)));
              upper__XWKG=(__INTEGER)(new_capacity__HJJG -  1);
              Self__VWKG=old_nb_elts__KJJG;
              while ((Self__VWKG <= upper__XWKG)) {
                new__LJJG[Self__VWKG]='\0';
                Self__VWKG=(__INTEGER)(Self__VWKG +  1);
              };
              Self__IJJG->storage__HGQ=new__LJJG;
              Self__IJJG->capacity__4FQ=new_capacity__HJJG;
            };
          };
          ((__CHARACTER *)Self__IJJG->storage__HGQ)[Self__IJJG->count__04B]=result__NXCG;
          Self__IJJG->count__04B=(__INTEGER)(Self__IJJG->count__04B +  1);
          result__OXCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__OXCG=((__CHARACTER )(( 0)));
          } else {
            result__OXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__OXCG != ((__CHARACTER )(( 0))))) {
            position__V0B=(__INTEGER)(position__V0B +  1);
          };
        } else {
          position__V0B=(__INTEGER)(position__V0B +  1);
        };
        goto until_do__VIOC;
      };
    };
    result__PXCG='\0';
    if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
      result__PXCG=((__CHARACTER )(( 0)));
    } else {
      result__PXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
    };
    if ((result__PXCG != ((__CHARACTER )(( 0))))) {
      position__V0B=(__INTEGER)(position__V0B +  1);
      last_string__NTC=get__TPB(string_tmp__QH);
      result__2VO=TRUE__;
      short__token__to__R0C((&__string_62),pos_old__3VO,position__V0B);
    } else {
      result__2VO=FALSE__;
    };
  };
  return(result__2VO);
}

static void* read_expr_primary__MDN(__PARSER *Self__NDN)
// ({PARSER}) With resultRecursive, No inlinable.
{
  void *result__PDN;
  void *type__QDN;
  void *group_sav__VDN;
  __POSITION p__BXKG,pos__QE1F,p__PL4,p__IYKG,pos__NF1F,__tmp__GHN;
  __POSITION __tmp__YHN,pos__MG1F,pos__OG1F,__tmp__KIN,__tmp__1IN;
  __POSITION p__C2KG,pos__PI1F,p__X5H,pos__RI1F,p__JEI,pos__0I1F;
  __POSITION __tmp__WMN,__tmp__4MN,pos__KJ1F,pos__MJ1F,pos__OJ1F;
  __POSITION pos__QJ1F;
  __ITM_READ *result__ZWKG,*result__FXEB;
  __POINTER ptr__0WKG,ptr_table__DXKG,next__CXKG,result__EXKG;
  __POINTER ptr_table__IXKG,next__HXKG,result__JXKG,ptr__GXEB;
  __POINTER ptr_table__XXKG,next__WXKG,result__YXKG,ptr_table__2XKG;
  __POINTER next__1XKG,result__3XKG,ptr__BYKG,ptr_table__KYKG;
  __POINTER next__JYKG,result__LYKG,ptr_table__PYKG,next__OYKG;
  __POINTER result__QYKG,ptr__EAJB,ptr_table__B0KG,next__A0KG;
  __POINTER result__C0KG,ptr_table__G0KG,next__F0KG,result__H0KG;
  __POINTER ptr__XBJB,ptr_table__L0KG,next__K0KG,result__M0KG;
  __POINTER ptr_table__Q0KG,next__P0KG,result__R0KG,ptr__JDJB;
  __POINTER ptr_table__00KG,next__Z0KG,result__10KG,ptr_table__50KG;
  __POINTER next__40KG,result__A1KG,ptr__0EJB,ptr_table__E1KG;
  __POINTER next__D1KG,result__F1KG,ptr_table__J1KG,next__I1KG;
  __POINTER result__K1KG,ptr__1MOE,ptr_table__O1KG,next__N1KG;
  __POINTER result__P1KG,ptr_table__T1KG,next__S1KG,result__U1KG;
  __POINTER ptr__11KG,ptr_table__E2KG,next__D2KG,result__F2KG;
  __POINTER ptr_table__J2KG,next__I2KG,result__K2KG,ptr__GVI;
  __POINTER ptr_table__U2KG,next__T2KG,result__V2KG,ptr_table__Z2KG;
  __POINTER next__Y2KG,result__02KG,ptr__WHJB,ptr_table__B3KG;
  __POINTER next__A3KG,result__C3KG,ptr_table__G3KG,next__F3KG;
  __POINTER result__H3KG,ptr__QZI,ptr_table__L3KG,next__K3KG;
  __POINTER result__M3KG,ptr_table__Q3KG,next__P3KG,result__R3KG;
  __POINTER ptr__JJQB,ptr_table__13KG,next__03KG,result__23KG;
  __POINTER ptr_table__A4KG,next__53KG,result__B4KG,ptr__1KQB;
  __POINTER ptr_table__I4KG,next__H4KG,result__J4KG,ptr_table__N4KG;
  __POINTER next__M4KG,result__O4KG;
  __INTEGER typ_id__1WKG,new_capacity__RJJG,old_nb_elts__UJJG;
  __INTEGER upper__PXKG,Self__NXKG,new_capacity__XJJG,old_nb_elts__0JJG;
  __INTEGER upper__UXKG,Self__SXKG,typ_id__LXEB,typ_id__CYKG;
  __INTEGER pos_old__LDO,new_capacity__3JJG,old_nb_elts__AKJG;
  __INTEGER upper__WYKG,Self__UYKG,new_capacity__DKJG,old_nb_elts__GKJG;
  __INTEGER upper__1YKG,Self__ZYKG,new_capacity__JKJG,old_nb_elts__MKJG;
  __INTEGER upper__AZKG,Self__4YKG,new_capacity__PKJG,old_nb_elts__SKJG;
  __INTEGER upper__FZKG,Self__DZKG,new_capacity__VKJG,old_nb_elts__YKJG;
  __INTEGER upper__KZKG,Self__IZKG,new_capacity__1KJG,old_nb_elts__4KJG;
  __INTEGER upper__PZKG,Self__NZKG,new_capacity__BLJG,old_nb_elts__ELJG;
  __INTEGER upper__UZKG,Self__SZKG,new_capacity__HLJG,old_nb_elts__KLJG;
  __INTEGER upper__ZZKG,Self__XZKG,new_capacity__NLJG,old_nb_elts__QLJG;
  __INTEGER upper__4ZKG,Self__2ZKG,typ_id__JAJB,typ_id__2BJB;
  __INTEGER old_pos__LPO,new_capacity__TLJG,old_nb_elts__WLJG;
  __INTEGER upper__X0KG,Self__V0KG,typ_id__ODJB,typ_id__5EJB,h__XHSD;
  __INTEGER idx__YHSD,idx__QKOE,new_capacity__RKOE,i__SKOE,typ_id__ANOE;
  __INTEGER typ_id__21KG,typ_id__LVI,typ_id__1HJB,typ_id__VZI;
  __INTEGER typ_id__OJQB,typ_id__ALQB;
  __UINTEGER_32 sz__2WKG,a__3WKG,new_size__4WKG,t__5WKG,a__AXKG;
  __UINTEGER_32 new_size__LXKG,lab_type__KXKG,sz__IXEB,a__GZHG;
  __UINTEGER_32 new_size__HZHG,t__LZHG,a__KZHG,new_size__5XKG;
  __UINTEGER_32 lab_type__4XKG,sz__DYKG,a__EYKG,new_size__FYKG,t__GYKG;
  __UINTEGER_32 a__HYKG,new_size__SYKG,lab_type__RYKG,sz__GAJB,a__4PHG;
  __UINTEGER_32 new_size__5PHG,t__DQHG,a__CQHG,new_size__J0KG;
  __UINTEGER_32 lab_type__I0KG,sz__ZBJB,a__GQHG,new_size__HQHG,t__LQHG;
  __UINTEGER_32 a__KQHG,new_size__T0KG,lab_type__S0KG,sz__LDJB,a__OQHG;
  __UINTEGER_32 new_size__PQHG,t__TQHG,a__SQHG,new_size__C1KG;
  __UINTEGER_32 lab_type__B1KG,sz__2EJB,a__WQHG,new_size__XQHG,t__1QHG;
  __UINTEGER_32 a__0QHG,new_size__M1KG,lab_type__L1KG,sz__3MOE,a__KRHG;
  __UINTEGER_32 new_size__LRHG,t__PRHG,a__ORHG,new_size__W1KG;
  __UINTEGER_32 lab_type__V1KG,sz__31KG,a__41KG,new_size__51KG,t__A2KG;
  __UINTEGER_32 a__B2KG,new_size__M2KG,lab_type__L2KG,sz__IVI,a__DXHG;
  __UINTEGER_32 new_size__EXHG,t__IXHG,a__HXHG,new_size__22KG;
  __UINTEGER_32 lab_type__12KG,sz__YHJB,a__VRHG,new_size__WRHG,t__0RHG;
  __UINTEGER_32 a__ZRHG,new_size__J3KG,lab_type__I3KG,sz__SZI,a__FYHG;
  __UINTEGER_32 new_size__GYHG,t__KYHG,a__JYHG,new_size__T3KG;
  __UINTEGER_32 lab_type__S3KG,sz__LJQB,a__3RHG,new_size__4RHG,t__CSHG;
  __UINTEGER_32 a__BSHG,new_size__D4KG,lab_type__C4KG,sz__3KQB,a__FSHG;
  __UINTEGER_32 new_size__GSHG,t__KSHG,a__JSHG,new_size__Q4KG;
  __UINTEGER_32 lab_type__P4KG;
  __STRING *Self__SJJG,*Self__YJJG,*Self__4JJG,*Self__EKJG,*Self__KKJG;
  __STRING *Self__QKJG,*Self__WKJG,*Self__2KJG,*Self__CLJG,*Self__ILJG;
  __STRING *Self__OLJG,*Self__ULJG;
  __ITM_PROTOTYPE *result__AYKG,*result__PZI;
  __ITM_REAL *result__DAJB;
  __ITM_NUMBER *result__WBJB;
  __ITM_CHARACTER *result__IDJB;
  void *__tmp__2IN;
  __ITM_STRING *result__ZEJB;
  __ITM_LIST *result__01KG,*result__FVI;
  __ITM_EXTERNAL *result__IJQB;
  __ITM_EXTERNAL_TYPE *result__0KQB,*Self__XABC;
  __BOOLEAN result__OJJG,__tmp__HEN,__tmp__KGN,result__QJJG;
  __BOOLEAN result__OPHG,__tmp__ZGN,result__MRN,__tmp__LHN,result__KDO;
  __BOOLEAN result__QPHG,__tmp__WDO,result__SPHG,__tmp__QEO;
  __BOOLEAN result__UPHG,result__WPHG,__tmp__3GO,result__YPHG;
  __BOOLEAN result__0PHG,__tmp__3HN,result__GSN,__tmp__OIN,result__KPO;
  __BOOLEAN __tmp__VPO,__tmp__UQO,__tmp__VQO,__tmp__BJN,result__ATN;
  __BOOLEAN __tmp__4JN,result__X1KG,result__N2KG,__tmp__CMN;
  __BOOLEAN result__Q2KG,result__32KG,result__U3KG,result__X3KG;
  __BOOLEAN result__E4KG,result__R4KG,result__U4KG,result__X4KG;
  __BOOLEAN __tmp__YON;
  __CHARACTER result__QXCG,result__RXCG,result__SXCG,result__TXCG;
  __CHARACTER result__ZXCG,result__0XCG,result__1XCG,result__2XCG;
  __CHARACTER result__3XCG,result__4XCG,result__5XCG,result__AYCG;
  __CHARACTER result__BYCG,result__CYCG,result__DYCG,result__EYCG;
  __CHARACTER result__FYCG,result__GYCG,result__HYCG,result__IYCG;
  __CHARACTER result__JYCG,result__KYCG,result__DZCG,result__JZCG;
  __CHARACTER result__KZCG,result__LZCG,result__MZCG,result__NZCG;
  __CHARACTER result__OZCG,result__Y1KG,result__O2KG,result__R2KG;
  __CHARACTER result__42KG,result__V3KG,result__Y3KG,result__F4KG;
  __CHARACTER result__S4KG,result__V4KG,result__Y4KG;
  __CHARACTER *Self__TJJG,*new__VJJG,*Self__ZJJG,*new__1JJG,*Self__5JJG;
  __CHARACTER *new__BKJG,*Self__FKJG,*new__HKJG,*Self__LKJG,*new__NKJG;
  __CHARACTER *Self__RKJG,*new__TKJG,*Self__XKJG,*new__ZKJG,*Self__3KJG;
  __CHARACTER *new__5KJG,*Self__DLJG,*new__FLJG,*Self__JLJG,*new__LLJG;
  __CHARACTER *Self__PLJG,*new__RLJG,*Self__VLJG,*new__XLJG;
  __HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo *Self__OHSD;
  void *node__0HSD,*node1__UKOE,*node2__VKOE,*__tmp__OJSD;
  void **old_buckets__TKOE;
  __HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *result__0MOE;
  __HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *Self__CXTE;
  result__PDN=NULL;
  type__QDN=NULL;
  group_sav__VDN=NULL;
  result__OJJG=read_word__NSF((&__string_53));
  if (result__OJJG) {
    if (((void *)(&__string_53) == (void *)(&__string_4))) {
      short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
    } else {
      short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
    };
  };
  if (result__OJJG) {
    p__BXKG=current_position__A0F();
    result__ZWKG=NULL;
    ptr__0WKG=((__POINTER )(NULL));
    typ_id__1WKG= 0;
    sz__2WKG=((__UINTEGER_32 )sizeof(__ITM_READ));
    if ((sz__2WKG ==  0)) {
      result__ZWKG=ITM_READ__;
    } else {
      typ_id__1WKG=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__2WKG);
      if ((typ_id__1WKG == (__INTEGER)(-  1))) {
        a__3WKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__4WKG=(__UINTEGER_32)((__UINTEGER_32)(sz__2WKG + a__3WKG) & (__UINTEGER_32)(~ a__3WKG));
        ptr_table__DXKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4WKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__CXKG=((__POINTER )(NULL));
        result__EXKG=((__POINTER *)ptr_table__DXKG)[ 0];
        if ((result__EXKG == (void *)NULL)) {
          result__EXKG=new_lab__RUJ(new_size__4WKG);
          next__CXKG=(void *)((unsigned long)result__EXKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4WKG)));
          ((__POINTER *)next__CXKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__DXKG)[ 0]=next__CXKG;
        } else {
          next__CXKG=((__POINTER *)result__EXKG)[ 0];
          if ((next__CXKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EXKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4WKG <<  1)) <=  4096)) {
              next__CXKG=(void *)((unsigned long)result__EXKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4WKG)));
            } else {
              next__CXKG=new_lab__RUJ(new_size__4WKG);
            };
            ((__POINTER *)next__CXKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__DXKG)[ 0]=next__CXKG;
          } else {
            ((__POINTER *)result__EXKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CXKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__EXKG=next__CXKG;
          };
        };
        ptr__0WKG=result__EXKG;
      } else {
        t__5WKG=((__UINTEGER_32 )typ_id__1WKG);
        a__AXKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__LXKG=(__UINTEGER_32)((__UINTEGER_32)(sz__2WKG + a__AXKG) & (__UINTEGER_32)(~ a__AXKG));
        ptr_table__IXKG=((__POINTER )(&(table_type[(t__5WKG)])));
        lab_type__KXKG=(__UINTEGER_32)(t__5WKG |  1);
        next__HXKG=((__POINTER )(NULL));
        result__JXKG=((__POINTER *)ptr_table__IXKG)[ 0];
        if ((result__JXKG == (void *)NULL)) {
          result__JXKG=new_lab__RUJ(lab_type__KXKG);
          next__HXKG=(void *)((unsigned long)result__JXKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LXKG)));
          ((__POINTER *)next__HXKG)[ 0]=NULL;
          ((__POINTER *)ptr_table__IXKG)[ 0]=next__HXKG;
        } else {
          next__HXKG=((__POINTER *)result__JXKG)[ 0];
          if ((next__HXKG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JXKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LXKG <<  1)) <=  4096)) {
              next__HXKG=(void *)((unsigned long)result__JXKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LXKG)));
            } else {
              next__HXKG=new_lab__RUJ(lab_type__KXKG);
            };
            ((__POINTER *)next__HXKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__IXKG)[ 0]=next__HXKG;
          } else {
            ((__POINTER *)result__JXKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HXKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__JXKG=next__HXKG;
          };
        };
        ptr__0WKG=result__JXKG;
      };
      result__ZWKG=((__ITM_READ *)ptr__0WKG);
      *(result__ZWKG) = *(ITM_READ__);
    };
    ((__ITM_READ *)result__ZWKG)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__BXKG;
    result__PDN=result__ZWKG;
    __tmp__HEN=TRUE__;
  } else {
    __tmp__HEN=FALSE__;
  };
  if (__tmp__HEN) {
    __tmp__KGN=TRUE__;
  } else {
    result__QJJG=read_word__NSF((&__string_11));
    if (result__QJJG) {
      if (((void *)(&__string_11) == (void *)(&__string_4))) {
        short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
      } else {
        short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
      };
    };
    if (result__QJJG) {
      result__QXCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__QXCG=((__CHARACTER )(( 0)));
      } else {
        result__QXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__QXCG == '_')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        copy__5GQ(string_tmp__QH,(&__string_11));
        Self__SJJG=((__STRING *)string_tmp__QH);
        new_capacity__RJJG= 0;
        if ((Self__SJJG->capacity__4FQ <= Self__SJJG->count__04B)) {
          if ((Self__SJJG->capacity__4FQ ==  0)) {
            Self__SJJG->capacity__4FQ= 32;
            Self__SJJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__RJJG=(__INTEGER)(Self__SJJG->capacity__4FQ <<  1);
            Self__TJJG=((__CHARACTER *)Self__SJJG->storage__HGQ);
            old_nb_elts__UJJG=Self__SJJG->capacity__4FQ;
            new__VJJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__TJJG),((__UINTEGER_32 )old_nb_elts__UJJG),((__UINTEGER_32 )new_capacity__RJJG)));
            upper__PXKG=(__INTEGER)(new_capacity__RJJG -  1);
            Self__NXKG=old_nb_elts__UJJG;
            while ((Self__NXKG <= upper__PXKG)) {
              new__VJJG[Self__NXKG]='\0';
              Self__NXKG=(__INTEGER)(Self__NXKG +  1);
            };
            Self__SJJG->storage__HGQ=new__VJJG;
            Self__SJJG->capacity__4FQ=new_capacity__RJJG;
          };
        };
        ((__CHARACTER *)Self__SJJG->storage__HGQ)[Self__SJJG->count__04B]='_';
        Self__SJJG->count__04B=(__INTEGER)(Self__SJJG->count__04B +  1);
        while_do__VONB:
        {
          result__RXCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__RXCG=((__CHARACTER )(( 0)));
          } else {
            result__RXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          result__OPHG=FALSE__;
          if ((((__INTEGER_8 )result__RXCG) >= ((__INTEGER_8 )'0'))) {
            result__OPHG=(((__INTEGER_8 )result__RXCG) <= ((__INTEGER_8 )'9'));
          };
          if (result__OPHG) {
            result__SXCG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__SXCG=((__CHARACTER )(( 0)));
            } else {
              result__SXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            Self__YJJG=((__STRING *)string_tmp__QH);
            new_capacity__XJJG= 0;
            if ((Self__YJJG->capacity__4FQ <= Self__YJJG->count__04B)) {
              if ((Self__YJJG->capacity__4FQ ==  0)) {
                Self__YJJG->capacity__4FQ= 32;
                Self__YJJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__XJJG=(__INTEGER)(Self__YJJG->capacity__4FQ <<  1);
                Self__ZJJG=((__CHARACTER *)Self__YJJG->storage__HGQ);
                old_nb_elts__0JJG=Self__YJJG->capacity__4FQ;
                new__1JJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__ZJJG),((__UINTEGER_32 )old_nb_elts__0JJG),((__UINTEGER_32 )new_capacity__XJJG)));
                upper__UXKG=(__INTEGER)(new_capacity__XJJG -  1);
                Self__SXKG=old_nb_elts__0JJG;
                while ((Self__SXKG <= upper__UXKG)) {
                  new__1JJG[Self__SXKG]='\0';
                  Self__SXKG=(__INTEGER)(Self__SXKG +  1);
                };
                Self__YJJG->storage__HGQ=new__1JJG;
                Self__YJJG->capacity__4FQ=new_capacity__XJJG;
              };
            };
            ((__CHARACTER *)Self__YJJG->storage__HGQ)[Self__YJJG->count__04B]=result__SXCG;
            Self__YJJG->count__04B=(__INTEGER)(Self__YJJG->count__04B +  1);
            position__V0B=(__INTEGER)(position__V0B +  1);
            goto while_do__VONB;
          };
        };
        if ((((__STRING *)string_tmp__QH)->count__04B ==  0)) {
          pos__QE1F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_232));
          put_position__ATG(pos__QE1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        get__TPB(string_tmp__QH);
      };
      p__PL4=current_position__A0F();
      result__FXEB=NULL;
      ptr__GXEB=((__POINTER )(NULL));
      typ_id__LXEB= 0;
      sz__IXEB=((__UINTEGER_32 )sizeof(__ITM_READ));
      if ((sz__IXEB ==  0)) {
        result__FXEB=ITM_READ__;
      } else {
        typ_id__LXEB=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__IXEB);
        if ((typ_id__LXEB == (__INTEGER)(-  1))) {
          a__GZHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__HZHG=(__UINTEGER_32)((__UINTEGER_32)(sz__IXEB + a__GZHG) & (__UINTEGER_32)(~ a__GZHG));
          ptr_table__XXKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HZHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__WXKG=((__POINTER )(NULL));
          result__YXKG=((__POINTER *)ptr_table__XXKG)[ 0];
          if ((result__YXKG == (void *)NULL)) {
            result__YXKG=new_lab__RUJ(new_size__HZHG);
            next__WXKG=(void *)((unsigned long)result__YXKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HZHG)));
            ((__POINTER *)next__WXKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__XXKG)[ 0]=next__WXKG;
          } else {
            next__WXKG=((__POINTER *)result__YXKG)[ 0];
            if ((next__WXKG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YXKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__HZHG <<  1)) <=  4096)) {
                next__WXKG=(void *)((unsigned long)result__YXKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HZHG)));
              } else {
                next__WXKG=new_lab__RUJ(new_size__HZHG);
              };
              ((__POINTER *)next__WXKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__XXKG)[ 0]=next__WXKG;
            } else {
              ((__POINTER *)result__YXKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__WXKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__YXKG=next__WXKG;
            };
          };
          ptr__GXEB=result__YXKG;
        } else {
          t__LZHG=((__UINTEGER_32 )typ_id__LXEB);
          a__KZHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__5XKG=(__UINTEGER_32)((__UINTEGER_32)(sz__IXEB + a__KZHG) & (__UINTEGER_32)(~ a__KZHG));
          ptr_table__2XKG=((__POINTER )(&(table_type[(t__LZHG)])));
          lab_type__4XKG=(__UINTEGER_32)(t__LZHG |  1);
          next__1XKG=((__POINTER )(NULL));
          result__3XKG=((__POINTER *)ptr_table__2XKG)[ 0];
          if ((result__3XKG == (void *)NULL)) {
            result__3XKG=new_lab__RUJ(lab_type__4XKG);
            next__1XKG=(void *)((unsigned long)result__3XKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5XKG)));
            ((__POINTER *)next__1XKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__2XKG)[ 0]=next__1XKG;
          } else {
            next__1XKG=((__POINTER *)result__3XKG)[ 0];
            if ((next__1XKG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3XKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5XKG <<  1)) <=  4096)) {
                next__1XKG=(void *)((unsigned long)result__3XKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5XKG)));
              } else {
                next__1XKG=new_lab__RUJ(lab_type__4XKG);
              };
              ((__POINTER *)next__1XKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__2XKG)[ 0]=next__1XKG;
            } else {
              ((__POINTER *)result__3XKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1XKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__3XKG=next__1XKG;
            };
          };
          ptr__GXEB=result__3XKG;
        };
        result__FXEB=((__ITM_READ *)ptr__GXEB);
        *(result__FXEB) = *(ITM_READ__);
      };
      ((__ITM_READ *)result__FXEB)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__PL4;
      result__PDN=result__FXEB;
    };
    __tmp__KGN=result__QJJG;
  };
  if (__tmp__KGN) {
    __tmp__ZGN=TRUE__;
  } else {
    type__QDN=read_prototype__I2N(Self__NDN,NULL);
    result__MRN=((void *)type__QDN != (void *)NULL);
    if (result__MRN) {
      p__IYKG=current_position__A0F();
      result__AYKG=NULL;
      ptr__BYKG=((__POINTER )(NULL));
      typ_id__CYKG= 0;
      sz__DYKG=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
      if ((sz__DYKG ==  0)) {
        result__AYKG=ITM_PROTOTYPE__;
      } else {
        typ_id__CYKG=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__DYKG);
        if ((typ_id__CYKG == (__INTEGER)(-  1))) {
          a__EYKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__FYKG=(__UINTEGER_32)((__UINTEGER_32)(sz__DYKG + a__EYKG) & (__UINTEGER_32)(~ a__EYKG));
          ptr_table__KYKG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FYKG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__JYKG=((__POINTER )(NULL));
          result__LYKG=((__POINTER *)ptr_table__KYKG)[ 0];
          if ((result__LYKG == (void *)NULL)) {
            result__LYKG=new_lab__RUJ(new_size__FYKG);
            next__JYKG=(void *)((unsigned long)result__LYKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FYKG)));
            ((__POINTER *)next__JYKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__KYKG)[ 0]=next__JYKG;
          } else {
            next__JYKG=((__POINTER *)result__LYKG)[ 0];
            if ((next__JYKG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LYKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__FYKG <<  1)) <=  4096)) {
                next__JYKG=(void *)((unsigned long)result__LYKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FYKG)));
              } else {
                next__JYKG=new_lab__RUJ(new_size__FYKG);
              };
              ((__POINTER *)next__JYKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__KYKG)[ 0]=next__JYKG;
            } else {
              ((__POINTER *)result__LYKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__JYKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__LYKG=next__JYKG;
            };
          };
          ptr__BYKG=result__LYKG;
        } else {
          t__GYKG=((__UINTEGER_32 )typ_id__CYKG);
          a__HYKG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__SYKG=(__UINTEGER_32)((__UINTEGER_32)(sz__DYKG + a__HYKG) & (__UINTEGER_32)(~ a__HYKG));
          ptr_table__PYKG=((__POINTER )(&(table_type[(t__GYKG)])));
          lab_type__RYKG=(__UINTEGER_32)(t__GYKG |  1);
          next__OYKG=((__POINTER )(NULL));
          result__QYKG=((__POINTER *)ptr_table__PYKG)[ 0];
          if ((result__QYKG == (void *)NULL)) {
            result__QYKG=new_lab__RUJ(lab_type__RYKG);
            next__OYKG=(void *)((unsigned long)result__QYKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SYKG)));
            ((__POINTER *)next__OYKG)[ 0]=NULL;
            ((__POINTER *)ptr_table__PYKG)[ 0]=next__OYKG;
          } else {
            next__OYKG=((__POINTER *)result__QYKG)[ 0];
            if ((next__OYKG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QYKG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__SYKG <<  1)) <=  4096)) {
                next__OYKG=(void *)((unsigned long)result__QYKG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SYKG)));
              } else {
                next__OYKG=new_lab__RUJ(lab_type__RYKG);
              };
              ((__POINTER *)next__OYKG)[ 0]=NULL;
              ((__POINTER *)ptr_table__PYKG)[ 0]=next__OYKG;
            } else {
              ((__POINTER *)result__QYKG)[ 0]=(void *)((unsigned long)((__POINTER *)next__OYKG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__QYKG=next__OYKG;
            };
          };
          ptr__BYKG=result__QYKG;
        };
        result__AYKG=((__ITM_PROTOTYPE *)ptr__BYKG);
        *(result__AYKG) = *(ITM_PROTOTYPE__);
      };
      ((__ITM_PROTOTYPE *)result__AYKG)->parent_itm_constant__VYF.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ=p__IYKG;
      result__PDN=result__AYKG;
    };
    __tmp__ZGN=result__MRN;
  };
  if (__tmp__ZGN) {
    __tmp__LHN=TRUE__;
  } else {
    result__KDO=FALSE__;
    pos_old__LDO= 0;
    if (read_space__MMD()) {
      result__TXCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__TXCG=((__CHARACTER )(( 0)));
      } else {
        result__TXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      result__QPHG=FALSE__;
      if ((((__INTEGER_8 )result__TXCG) >= ((__INTEGER_8 )'0'))) {
        result__QPHG=(((__INTEGER_8 )result__TXCG) <= ((__INTEGER_8 )'9'));
      };
      __tmp__WDO=result__QPHG;
    } else {
      __tmp__WDO=FALSE__;
    };
    if (__tmp__WDO) {
      ((__STRING *)string_tmp__QH)->count__04B= 0;
      result__ZXCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__ZXCG=((__CHARACTER )(( 0)));
      } else {
        result__ZXCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      Self__4JJG=((__STRING *)string_tmp__QH);
      new_capacity__3JJG= 0;
      if ((Self__4JJG->capacity__4FQ <= Self__4JJG->count__04B)) {
        if ((Self__4JJG->capacity__4FQ ==  0)) {
          Self__4JJG->capacity__4FQ= 32;
          Self__4JJG->storage__HGQ=create__D4BB( 32);
        } else {
          new_capacity__3JJG=(__INTEGER)(Self__4JJG->capacity__4FQ <<  1);
          Self__5JJG=((__CHARACTER *)Self__4JJG->storage__HGQ);
          old_nb_elts__AKJG=Self__4JJG->capacity__4FQ;
          new__BKJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__5JJG),((__UINTEGER_32 )old_nb_elts__AKJG),((__UINTEGER_32 )new_capacity__3JJG)));
          upper__WYKG=(__INTEGER)(new_capacity__3JJG -  1);
          Self__UYKG=old_nb_elts__AKJG;
          while ((Self__UYKG <= upper__WYKG)) {
            new__BKJG[Self__UYKG]='\0';
            Self__UYKG=(__INTEGER)(Self__UYKG +  1);
          };
          Self__4JJG->storage__HGQ=new__BKJG;
          Self__4JJG->capacity__4FQ=new_capacity__3JJG;
        };
      };
      ((__CHARACTER *)Self__4JJG->storage__HGQ)[Self__4JJG->count__04B]=result__ZXCG;
      Self__4JJG->count__04B=(__INTEGER)(Self__4JJG->count__04B +  1);
      pos_old__LDO=position__V0B;
      position__V0B=(__INTEGER)(position__V0B +  1);
      while_do__AE0D:
      {
        result__0XCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__0XCG=((__CHARACTER )(( 0)));
        } else {
          result__0XCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        result__SPHG=FALSE__;
        if ((((__INTEGER_8 )result__0XCG) >= ((__INTEGER_8 )'0'))) {
          result__SPHG=(((__INTEGER_8 )result__0XCG) <= ((__INTEGER_8 )'9'));
        };
        if (result__SPHG) {
          __tmp__QEO=TRUE__;
        } else {
          result__1XCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__1XCG=((__CHARACTER )(( 0)));
          } else {
            result__1XCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          __tmp__QEO=(result__1XCG == '_');
        };
        if (__tmp__QEO) {
          result__2XCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__2XCG=((__CHARACTER )(( 0)));
          } else {
            result__2XCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__2XCG != '_')) {
            result__3XCG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__3XCG=((__CHARACTER )(( 0)));
            } else {
              result__3XCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            Self__EKJG=((__STRING *)string_tmp__QH);
            new_capacity__DKJG= 0;
            if ((Self__EKJG->capacity__4FQ <= Self__EKJG->count__04B)) {
              if ((Self__EKJG->capacity__4FQ ==  0)) {
                Self__EKJG->capacity__4FQ= 32;
                Self__EKJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__DKJG=(__INTEGER)(Self__EKJG->capacity__4FQ <<  1);
                Self__FKJG=((__CHARACTER *)Self__EKJG->storage__HGQ);
                old_nb_elts__GKJG=Self__EKJG->capacity__4FQ;
                new__HKJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__FKJG),((__UINTEGER_32 )old_nb_elts__GKJG),((__UINTEGER_32 )new_capacity__DKJG)));
                upper__1YKG=(__INTEGER)(new_capacity__DKJG -  1);
                Self__ZYKG=old_nb_elts__GKJG;
                while ((Self__ZYKG <= upper__1YKG)) {
                  new__HKJG[Self__ZYKG]='\0';
                  Self__ZYKG=(__INTEGER)(Self__ZYKG +  1);
                };
                Self__EKJG->storage__HGQ=new__HKJG;
                Self__EKJG->capacity__4FQ=new_capacity__DKJG;
              };
            };
            ((__CHARACTER *)Self__EKJG->storage__HGQ)[Self__EKJG->count__04B]=result__3XCG;
            Self__EKJG->count__04B=(__INTEGER)(Self__EKJG->count__04B +  1);
          };
          position__V0B=(__INTEGER)(position__V0B +  1);
          goto while_do__AE0D;
        };
      };
      result__4XCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__4XCG=((__CHARACTER )(( 0)));
      } else {
        result__4XCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__4XCG == '.')) {
        Self__KKJG=((__STRING *)string_tmp__QH);
        new_capacity__JKJG= 0;
        if ((Self__KKJG->capacity__4FQ <= Self__KKJG->count__04B)) {
          if ((Self__KKJG->capacity__4FQ ==  0)) {
            Self__KKJG->capacity__4FQ= 32;
            Self__KKJG->storage__HGQ=create__D4BB( 32);
          } else {
            new_capacity__JKJG=(__INTEGER)(Self__KKJG->capacity__4FQ <<  1);
            Self__LKJG=((__CHARACTER *)Self__KKJG->storage__HGQ);
            old_nb_elts__MKJG=Self__KKJG->capacity__4FQ;
            new__NKJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__LKJG),((__UINTEGER_32 )old_nb_elts__MKJG),((__UINTEGER_32 )new_capacity__JKJG)));
            upper__AZKG=(__INTEGER)(new_capacity__JKJG -  1);
            Self__4YKG=old_nb_elts__MKJG;
            while ((Self__4YKG <= upper__AZKG)) {
              new__NKJG[Self__4YKG]='\0';
              Self__4YKG=(__INTEGER)(Self__4YKG +  1);
            };
            Self__KKJG->storage__HGQ=new__NKJG;
            Self__KKJG->capacity__4FQ=new_capacity__JKJG;
          };
        };
        ((__CHARACTER *)Self__KKJG->storage__HGQ)[Self__KKJG->count__04B]='.';
        Self__KKJG->count__04B=(__INTEGER)(Self__KKJG->count__04B +  1);
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__5XCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__5XCG=((__CHARACTER )(( 0)));
        } else {
          result__5XCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        result__UPHG=FALSE__;
        if ((((__INTEGER_8 )result__5XCG) >= ((__INTEGER_8 )'0'))) {
          result__UPHG=(((__INTEGER_8 )result__5XCG) <= ((__INTEGER_8 )'9'));
        };
        if (result__UPHG) {
          result__KDO=TRUE__;
          result__AYCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__AYCG=((__CHARACTER )(( 0)));
          } else {
            result__AYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          Self__QKJG=((__STRING *)string_tmp__QH);
          new_capacity__PKJG= 0;
          if ((Self__QKJG->capacity__4FQ <= Self__QKJG->count__04B)) {
            if ((Self__QKJG->capacity__4FQ ==  0)) {
              Self__QKJG->capacity__4FQ= 32;
              Self__QKJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__PKJG=(__INTEGER)(Self__QKJG->capacity__4FQ <<  1);
              Self__RKJG=((__CHARACTER *)Self__QKJG->storage__HGQ);
              old_nb_elts__SKJG=Self__QKJG->capacity__4FQ;
              new__TKJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__RKJG),((__UINTEGER_32 )old_nb_elts__SKJG),((__UINTEGER_32 )new_capacity__PKJG)));
              upper__FZKG=(__INTEGER)(new_capacity__PKJG -  1);
              Self__DZKG=old_nb_elts__SKJG;
              while ((Self__DZKG <= upper__FZKG)) {
                new__TKJG[Self__DZKG]='\0';
                Self__DZKG=(__INTEGER)(Self__DZKG +  1);
              };
              Self__QKJG->storage__HGQ=new__TKJG;
              Self__QKJG->capacity__4FQ=new_capacity__PKJG;
            };
          };
          ((__CHARACTER *)Self__QKJG->storage__HGQ)[Self__QKJG->count__04B]=result__AYCG;
          Self__QKJG->count__04B=(__INTEGER)(Self__QKJG->count__04B +  1);
          position__V0B=(__INTEGER)(position__V0B +  1);
          while_do__Y3OE:
          {
            result__BYCG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__BYCG=((__CHARACTER )(( 0)));
            } else {
              result__BYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            result__WPHG=FALSE__;
            if ((((__INTEGER_8 )result__BYCG) >= ((__INTEGER_8 )'0'))) {
              result__WPHG=(((__INTEGER_8 )result__BYCG) <= ((__INTEGER_8 )'9'));
            };
            if (result__WPHG) {
              result__CYCG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__CYCG=((__CHARACTER )(( 0)));
              } else {
                result__CYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              Self__WKJG=((__STRING *)string_tmp__QH);
              new_capacity__VKJG= 0;
              if ((Self__WKJG->capacity__4FQ <= Self__WKJG->count__04B)) {
                if ((Self__WKJG->capacity__4FQ ==  0)) {
                  Self__WKJG->capacity__4FQ= 32;
                  Self__WKJG->storage__HGQ=create__D4BB( 32);
                } else {
                  new_capacity__VKJG=(__INTEGER)(Self__WKJG->capacity__4FQ <<  1);
                  Self__XKJG=((__CHARACTER *)Self__WKJG->storage__HGQ);
                  old_nb_elts__YKJG=Self__WKJG->capacity__4FQ;
                  new__ZKJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__XKJG),((__UINTEGER_32 )old_nb_elts__YKJG),((__UINTEGER_32 )new_capacity__VKJG)));
                  upper__KZKG=(__INTEGER)(new_capacity__VKJG -  1);
                  Self__IZKG=old_nb_elts__YKJG;
                  while ((Self__IZKG <= upper__KZKG)) {
                    new__ZKJG[Self__IZKG]='\0';
                    Self__IZKG=(__INTEGER)(Self__IZKG +  1);
                  };
                  Self__WKJG->storage__HGQ=new__ZKJG;
                  Self__WKJG->capacity__4FQ=new_capacity__VKJG;
                };
              };
              ((__CHARACTER *)Self__WKJG->storage__HGQ)[Self__WKJG->count__04B]=result__CYCG;
              Self__WKJG->count__04B=(__INTEGER)(Self__WKJG->count__04B +  1);
              position__V0B=(__INTEGER)(position__V0B +  1);
              goto while_do__Y3OE;
            };
          };
        };
        result__DYCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__DYCG=((__CHARACTER )(( 0)));
        } else {
          result__DYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__DYCG == 'E')) {
          result__KDO=TRUE__;
          Self__2KJG=((__STRING *)string_tmp__QH);
          new_capacity__1KJG= 0;
          if ((Self__2KJG->capacity__4FQ <= Self__2KJG->count__04B)) {
            if ((Self__2KJG->capacity__4FQ ==  0)) {
              Self__2KJG->capacity__4FQ= 32;
              Self__2KJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__1KJG=(__INTEGER)(Self__2KJG->capacity__4FQ <<  1);
              Self__3KJG=((__CHARACTER *)Self__2KJG->storage__HGQ);
              old_nb_elts__4KJG=Self__2KJG->capacity__4FQ;
              new__5KJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__3KJG),((__UINTEGER_32 )old_nb_elts__4KJG),((__UINTEGER_32 )new_capacity__1KJG)));
              upper__PZKG=(__INTEGER)(new_capacity__1KJG -  1);
              Self__NZKG=old_nb_elts__4KJG;
              while ((Self__NZKG <= upper__PZKG)) {
                new__5KJG[Self__NZKG]='\0';
                Self__NZKG=(__INTEGER)(Self__NZKG +  1);
              };
              Self__2KJG->storage__HGQ=new__5KJG;
              Self__2KJG->capacity__4FQ=new_capacity__1KJG;
            };
          };
          ((__CHARACTER *)Self__2KJG->storage__HGQ)[Self__2KJG->count__04B]='E';
          Self__2KJG->count__04B=(__INTEGER)(Self__2KJG->count__04B +  1);
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__EYCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__EYCG=((__CHARACTER )(( 0)));
          } else {
            result__EYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__EYCG == '+')) {
            __tmp__3GO=TRUE__;
          } else {
            result__FYCG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__FYCG=((__CHARACTER )(( 0)));
            } else {
              result__FYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            __tmp__3GO=(result__FYCG == '-');
          };
          if (__tmp__3GO) {
            result__GYCG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__GYCG=((__CHARACTER )(( 0)));
            } else {
              result__GYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            Self__CLJG=((__STRING *)string_tmp__QH);
            new_capacity__BLJG= 0;
            if ((Self__CLJG->capacity__4FQ <= Self__CLJG->count__04B)) {
              if ((Self__CLJG->capacity__4FQ ==  0)) {
                Self__CLJG->capacity__4FQ= 32;
                Self__CLJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__BLJG=(__INTEGER)(Self__CLJG->capacity__4FQ <<  1);
                Self__DLJG=((__CHARACTER *)Self__CLJG->storage__HGQ);
                old_nb_elts__ELJG=Self__CLJG->capacity__4FQ;
                new__FLJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__DLJG),((__UINTEGER_32 )old_nb_elts__ELJG),((__UINTEGER_32 )new_capacity__BLJG)));
                upper__UZKG=(__INTEGER)(new_capacity__BLJG -  1);
                Self__SZKG=old_nb_elts__ELJG;
                while ((Self__SZKG <= upper__UZKG)) {
                  new__FLJG[Self__SZKG]='\0';
                  Self__SZKG=(__INTEGER)(Self__SZKG +  1);
                };
                Self__CLJG->storage__HGQ=new__FLJG;
                Self__CLJG->capacity__4FQ=new_capacity__BLJG;
              };
            };
            ((__CHARACTER *)Self__CLJG->storage__HGQ)[Self__CLJG->count__04B]=result__GYCG;
            Self__CLJG->count__04B=(__INTEGER)(Self__CLJG->count__04B +  1);
            position__V0B=(__INTEGER)(position__V0B +  1);
          };
          result__HYCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__HYCG=((__CHARACTER )(( 0)));
          } else {
            result__HYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          result__YPHG=FALSE__;
          if ((((__INTEGER_8 )result__HYCG) >= ((__INTEGER_8 )'0'))) {
            result__YPHG=(((__INTEGER_8 )result__HYCG) <= ((__INTEGER_8 )'9'));
          };
          if (result__YPHG) {
            result__IYCG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__IYCG=((__CHARACTER )(( 0)));
            } else {
              result__IYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            Self__ILJG=((__STRING *)string_tmp__QH);
            new_capacity__HLJG= 0;
            if ((Self__ILJG->capacity__4FQ <= Self__ILJG->count__04B)) {
              if ((Self__ILJG->capacity__4FQ ==  0)) {
                Self__ILJG->capacity__4FQ= 32;
                Self__ILJG->storage__HGQ=create__D4BB( 32);
              } else {
                new_capacity__HLJG=(__INTEGER)(Self__ILJG->capacity__4FQ <<  1);
                Self__JLJG=((__CHARACTER *)Self__ILJG->storage__HGQ);
                old_nb_elts__KLJG=Self__ILJG->capacity__4FQ;
                new__LLJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__JLJG),((__UINTEGER_32 )old_nb_elts__KLJG),((__UINTEGER_32 )new_capacity__HLJG)));
                upper__ZZKG=(__INTEGER)(new_capacity__HLJG -  1);
                Self__XZKG=old_nb_elts__KLJG;
                while ((Self__XZKG <= upper__ZZKG)) {
                  new__LLJG[Self__XZKG]='\0';
                  Self__XZKG=(__INTEGER)(Self__XZKG +  1);
                };
                Self__ILJG->storage__HGQ=new__LLJG;
                Self__ILJG->capacity__4FQ=new_capacity__HLJG;
              };
            };
            ((__CHARACTER *)Self__ILJG->storage__HGQ)[Self__ILJG->count__04B]=result__IYCG;
            Self__ILJG->count__04B=(__INTEGER)(Self__ILJG->count__04B +  1);
            position__V0B=(__INTEGER)(position__V0B +  1);
            while_do__1ZPE:
            {
              result__JYCG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__JYCG=((__CHARACTER )(( 0)));
              } else {
                result__JYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              result__0PHG=FALSE__;
              if ((((__INTEGER_8 )result__JYCG) >= ((__INTEGER_8 )'0'))) {
                result__0PHG=(((__INTEGER_8 )result__JYCG) <= ((__INTEGER_8 )'9'));
              };
              if (result__0PHG) {
                result__KYCG='\0';
                if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                  result__KYCG=((__CHARACTER )(( 0)));
                } else {
                  result__KYCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
                };
                Self__OLJG=((__STRING *)string_tmp__QH);
                new_capacity__NLJG= 0;
                if ((Self__OLJG->capacity__4FQ <= Self__OLJG->count__04B)) {
                  if ((Self__OLJG->capacity__4FQ ==  0)) {
                    Self__OLJG->capacity__4FQ= 32;
                    Self__OLJG->storage__HGQ=create__D4BB( 32);
                  } else {
                    new_capacity__NLJG=(__INTEGER)(Self__OLJG->capacity__4FQ <<  1);
                    Self__PLJG=((__CHARACTER *)Self__OLJG->storage__HGQ);
                    old_nb_elts__QLJG=Self__OLJG->capacity__4FQ;
                    new__RLJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__PLJG),((__UINTEGER_32 )old_nb_elts__QLJG),((__UINTEGER_32 )new_capacity__NLJG)));
                    upper__4ZKG=(__INTEGER)(new_capacity__NLJG -  1);
                    Self__2ZKG=old_nb_elts__QLJG;
                    while ((Self__2ZKG <= upper__4ZKG)) {
                      new__RLJG[Self__2ZKG]='\0';
                      Self__2ZKG=(__INTEGER)(Self__2ZKG +  1);
                    };
                    Self__OLJG->storage__HGQ=new__RLJG;
                    Self__OLJG->capacity__4FQ=new_capacity__NLJG;
                  };
                };
                ((__CHARACTER *)Self__OLJG->storage__HGQ)[Self__OLJG->count__04B]=result__KYCG;
                Self__OLJG->count__04B=(__INTEGER)(Self__OLJG->count__04B +  1);
                position__V0B=(__INTEGER)(position__V0B +  1);
                goto while_do__1ZPE;
              };
            };
          } else {
            pos__NF1F=current_position__A0F();
            put_error__text__WRG( 0,(&__string_233));
            put_position__ATG(pos__NF1F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
        };
      };
      if (result__KDO) {
        get__TPB(string_tmp__QH);
      } else {
        position__V0B=pos_old__LDO;
      };
    };
    if (result__KDO) {
      short__token__to__R0C((&__string_93),pos_old__LDO,position__V0B);
    };
    if (result__KDO) {
      __tmp__GHN=current_position__A0F();
      result__DAJB=NULL;
      ptr__EAJB=((__POINTER )(NULL));
      typ_id__JAJB= 0;
      sz__GAJB=((__UINTEGER_32 )sizeof(__ITM_REAL));
      if ((sz__GAJB ==  0)) {
        result__DAJB=ITM_REAL__;
      } else {
        typ_id__JAJB=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__GAJB);
        if ((typ_id__JAJB == (__INTEGER)(-  1))) {
          a__4PHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__5PHG=(__UINTEGER_32)((__UINTEGER_32)(sz__GAJB + a__4PHG) & (__UINTEGER_32)(~ a__4PHG));
          ptr_table__B0KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5PHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__A0KG=((__POINTER )(NULL));
          result__C0KG=((__POINTER *)ptr_table__B0KG)[ 0];
          if ((result__C0KG == (void *)NULL)) {
            result__C0KG=new_lab__RUJ(new_size__5PHG);
            next__A0KG=(void *)((unsigned long)result__C0KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5PHG)));
            ((__POINTER *)next__A0KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__B0KG)[ 0]=next__A0KG;
          } else {
            next__A0KG=((__POINTER *)result__C0KG)[ 0];
            if ((next__A0KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C0KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__5PHG <<  1)) <=  4096)) {
                next__A0KG=(void *)((unsigned long)result__C0KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5PHG)));
              } else {
                next__A0KG=new_lab__RUJ(new_size__5PHG);
              };
              ((__POINTER *)next__A0KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__B0KG)[ 0]=next__A0KG;
            } else {
              ((__POINTER *)result__C0KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__A0KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__C0KG=next__A0KG;
            };
          };
          ptr__EAJB=result__C0KG;
        } else {
          t__DQHG=((__UINTEGER_32 )typ_id__JAJB);
          a__CQHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__J0KG=(__UINTEGER_32)((__UINTEGER_32)(sz__GAJB + a__CQHG) & (__UINTEGER_32)(~ a__CQHG));
          ptr_table__G0KG=((__POINTER )(&(table_type[(t__DQHG)])));
          lab_type__I0KG=(__UINTEGER_32)(t__DQHG |  1);
          next__F0KG=((__POINTER )(NULL));
          result__H0KG=((__POINTER *)ptr_table__G0KG)[ 0];
          if ((result__H0KG == (void *)NULL)) {
            result__H0KG=new_lab__RUJ(lab_type__I0KG);
            next__F0KG=(void *)((unsigned long)result__H0KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J0KG)));
            ((__POINTER *)next__F0KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__G0KG)[ 0]=next__F0KG;
          } else {
            next__F0KG=((__POINTER *)result__H0KG)[ 0];
            if ((next__F0KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H0KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__J0KG <<  1)) <=  4096)) {
                next__F0KG=(void *)((unsigned long)result__H0KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J0KG)));
              } else {
                next__F0KG=new_lab__RUJ(lab_type__I0KG);
              };
              ((__POINTER *)next__F0KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__G0KG)[ 0]=next__F0KG;
            } else {
              ((__POINTER *)result__H0KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__F0KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__H0KG=next__F0KG;
            };
          };
          ptr__EAJB=result__H0KG;
        };
        result__DAJB=((__ITM_REAL *)ptr__EAJB);
        *(result__DAJB) = *(ITM_REAL__);
      };
      ((__ITM_REAL *)result__DAJB)->parent_itm_constant__FHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ=__tmp__GHN;
      result__PDN=result__DAJB;
    };
    __tmp__LHN=result__KDO;
  };
  if (__tmp__LHN) {
    __tmp__3HN=TRUE__;
  } else {
    result__GSN=read_integer__LJO();
    if (result__GSN) {
      __tmp__YHN=current_position__A0F();
      result__WBJB=NULL;
      ptr__XBJB=((__POINTER )(NULL));
      typ_id__2BJB= 0;
      sz__ZBJB=((__UINTEGER_32 )sizeof(__ITM_NUMBER));
      if ((sz__ZBJB ==  0)) {
        result__WBJB=ITM_NUMBER__;
      } else {
        typ_id__2BJB=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__ZBJB);
        if ((typ_id__2BJB == (__INTEGER)(-  1))) {
          a__GQHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__HQHG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZBJB + a__GQHG) & (__UINTEGER_32)(~ a__GQHG));
          ptr_table__L0KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HQHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__K0KG=((__POINTER )(NULL));
          result__M0KG=((__POINTER *)ptr_table__L0KG)[ 0];
          if ((result__M0KG == (void *)NULL)) {
            result__M0KG=new_lab__RUJ(new_size__HQHG);
            next__K0KG=(void *)((unsigned long)result__M0KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQHG)));
            ((__POINTER *)next__K0KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__L0KG)[ 0]=next__K0KG;
          } else {
            next__K0KG=((__POINTER *)result__M0KG)[ 0];
            if ((next__K0KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M0KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__HQHG <<  1)) <=  4096)) {
                next__K0KG=(void *)((unsigned long)result__M0KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQHG)));
              } else {
                next__K0KG=new_lab__RUJ(new_size__HQHG);
              };
              ((__POINTER *)next__K0KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__L0KG)[ 0]=next__K0KG;
            } else {
              ((__POINTER *)result__M0KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__K0KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__M0KG=next__K0KG;
            };
          };
          ptr__XBJB=result__M0KG;
        } else {
          t__LQHG=((__UINTEGER_32 )typ_id__2BJB);
          a__KQHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__T0KG=(__UINTEGER_32)((__UINTEGER_32)(sz__ZBJB + a__KQHG) & (__UINTEGER_32)(~ a__KQHG));
          ptr_table__Q0KG=((__POINTER )(&(table_type[(t__LQHG)])));
          lab_type__S0KG=(__UINTEGER_32)(t__LQHG |  1);
          next__P0KG=((__POINTER )(NULL));
          result__R0KG=((__POINTER *)ptr_table__Q0KG)[ 0];
          if ((result__R0KG == (void *)NULL)) {
            result__R0KG=new_lab__RUJ(lab_type__S0KG);
            next__P0KG=(void *)((unsigned long)result__R0KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T0KG)));
            ((__POINTER *)next__P0KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__Q0KG)[ 0]=next__P0KG;
          } else {
            next__P0KG=((__POINTER *)result__R0KG)[ 0];
            if ((next__P0KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__R0KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__T0KG <<  1)) <=  4096)) {
                next__P0KG=(void *)((unsigned long)result__R0KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T0KG)));
              } else {
                next__P0KG=new_lab__RUJ(lab_type__S0KG);
              };
              ((__POINTER *)next__P0KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__Q0KG)[ 0]=next__P0KG;
            } else {
              ((__POINTER *)result__R0KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__P0KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__R0KG=next__P0KG;
            };
          };
          ptr__XBJB=result__R0KG;
        };
        result__WBJB=((__ITM_NUMBER *)ptr__XBJB);
        *(result__WBJB) = *(ITM_NUMBER__);
      };
      ((__ITM_NUMBER *)result__WBJB)->parent_itm_constant__XHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ=__tmp__YHN;
      result__PDN=result__WBJB;
    };
    __tmp__3HN=result__GSN;
  };
  if (__tmp__3HN) {
    __tmp__OIN=TRUE__;
  } else {
    result__KPO=FALSE__;
    old_pos__LPO= 0;
    if (read_space__MMD()) {
      result__DZCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__DZCG=((__CHARACTER )(( 0)));
      } else {
        result__DZCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      __tmp__VPO=(result__DZCG == '\'');
    } else {
      __tmp__VPO=FALSE__;
    };
    if (__tmp__VPO) {
      old_pos__LPO=position__V0B;
      last_len_string__3IN= 0;
      position__V0B=(__INTEGER)(position__V0B +  1);
      ((__STRING *)string_tmp__QH)->count__04B= 0;
      until_do__JHOC:
      {
        result__JZCG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__JZCG=((__CHARACTER )(( 0)));
        } else {
          result__JZCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__JZCG == ((__CHARACTER )(( 0))))) {
          __tmp__UQO=TRUE__;
        } else {
          result__KZCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__KZCG=((__CHARACTER )(( 0)));
          } else {
            result__KZCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          __tmp__UQO=(result__KZCG == '\n');
        };
        if (__tmp__UQO) {
          __tmp__VQO=TRUE__;
        } else {
          result__LZCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__LZCG=((__CHARACTER )(( 0)));
          } else {
            result__LZCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          __tmp__VQO=(result__LZCG == '\'');
        };
        if ((! __tmp__VQO)) {
          result__MZCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__MZCG=((__CHARACTER )(( 0)));
          } else {
            result__MZCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          Self__ULJG=((__STRING *)string_tmp__QH);
          new_capacity__TLJG= 0;
          if ((Self__ULJG->capacity__4FQ <= Self__ULJG->count__04B)) {
            if ((Self__ULJG->capacity__4FQ ==  0)) {
              Self__ULJG->capacity__4FQ= 32;
              Self__ULJG->storage__HGQ=create__D4BB( 32);
            } else {
              new_capacity__TLJG=(__INTEGER)(Self__ULJG->capacity__4FQ <<  1);
              Self__VLJG=((__CHARACTER *)Self__ULJG->storage__HGQ);
              old_nb_elts__WLJG=Self__ULJG->capacity__4FQ;
              new__XLJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__VLJG),((__UINTEGER_32 )old_nb_elts__WLJG),((__UINTEGER_32 )new_capacity__TLJG)));
              upper__X0KG=(__INTEGER)(new_capacity__TLJG -  1);
              Self__V0KG=old_nb_elts__WLJG;
              while ((Self__V0KG <= upper__X0KG)) {
                new__XLJG[Self__V0KG]='\0';
                Self__V0KG=(__INTEGER)(Self__V0KG +  1);
              };
              Self__ULJG->storage__HGQ=new__XLJG;
              Self__ULJG->capacity__4FQ=new_capacity__TLJG;
            };
          };
          ((__CHARACTER *)Self__ULJG->storage__HGQ)[Self__ULJG->count__04B]=result__MZCG;
          Self__ULJG->count__04B=(__INTEGER)(Self__ULJG->count__04B +  1);
          result__NZCG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__NZCG=((__CHARACTER )(( 0)));
          } else {
            result__NZCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__NZCG == '\\')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            read_escape_character__AVDF();
          } else {
            position__V0B=(__INTEGER)(position__V0B +  1);
            last_len_string__3IN=(__INTEGER)(last_len_string__3IN +  1);
          };
          goto until_do__JHOC;
        };
      };
      result__OZCG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__OZCG=((__CHARACTER )(( 0)));
      } else {
        result__OZCG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__OZCG == '\'')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        last_string__NTC=get__TPB(string_tmp__QH);
        if ((last_len_string__3IN !=  1)) {
          position__V0B=begin_position__H0D;
          pos__MG1F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_234));
          put_position__ATG(pos__MG1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        result__KPO=TRUE__;
        short__token__to__R0C((&__string_94),old_pos__LPO,position__V0B);
      } else {
        position__V0B=begin_position__H0D;
        pos__OG1F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_235));
        put_position__ATG(pos__OG1F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
    };
    if (result__KPO) {
      __tmp__KIN=current_position__A0F();
      result__IDJB=NULL;
      ptr__JDJB=((__POINTER )(NULL));
      typ_id__ODJB= 0;
      sz__LDJB=((__UINTEGER_32 )sizeof(__ITM_CHARACTER));
      if ((sz__LDJB ==  0)) {
        result__IDJB=ITM_CHARACTER__;
      } else {
        typ_id__ODJB=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__LDJB);
        if ((typ_id__ODJB == (__INTEGER)(-  1))) {
          a__OQHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__PQHG=(__UINTEGER_32)((__UINTEGER_32)(sz__LDJB + a__OQHG) & (__UINTEGER_32)(~ a__OQHG));
          ptr_table__00KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PQHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__Z0KG=((__POINTER )(NULL));
          result__10KG=((__POINTER *)ptr_table__00KG)[ 0];
          if ((result__10KG == (void *)NULL)) {
            result__10KG=new_lab__RUJ(new_size__PQHG);
            next__Z0KG=(void *)((unsigned long)result__10KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQHG)));
            ((__POINTER *)next__Z0KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__00KG)[ 0]=next__Z0KG;
          } else {
            next__Z0KG=((__POINTER *)result__10KG)[ 0];
            if ((next__Z0KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__10KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__PQHG <<  1)) <=  4096)) {
                next__Z0KG=(void *)((unsigned long)result__10KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQHG)));
              } else {
                next__Z0KG=new_lab__RUJ(new_size__PQHG);
              };
              ((__POINTER *)next__Z0KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__00KG)[ 0]=next__Z0KG;
            } else {
              ((__POINTER *)result__10KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__Z0KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__10KG=next__Z0KG;
            };
          };
          ptr__JDJB=result__10KG;
        } else {
          t__TQHG=((__UINTEGER_32 )typ_id__ODJB);
          a__SQHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__C1KG=(__UINTEGER_32)((__UINTEGER_32)(sz__LDJB + a__SQHG) & (__UINTEGER_32)(~ a__SQHG));
          ptr_table__50KG=((__POINTER )(&(table_type[(t__TQHG)])));
          lab_type__B1KG=(__UINTEGER_32)(t__TQHG |  1);
          next__40KG=((__POINTER )(NULL));
          result__A1KG=((__POINTER *)ptr_table__50KG)[ 0];
          if ((result__A1KG == (void *)NULL)) {
            result__A1KG=new_lab__RUJ(lab_type__B1KG);
            next__40KG=(void *)((unsigned long)result__A1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C1KG)));
            ((__POINTER *)next__40KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__50KG)[ 0]=next__40KG;
          } else {
            next__40KG=((__POINTER *)result__A1KG)[ 0];
            if ((next__40KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A1KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__C1KG <<  1)) <=  4096)) {
                next__40KG=(void *)((unsigned long)result__A1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C1KG)));
              } else {
                next__40KG=new_lab__RUJ(lab_type__B1KG);
              };
              ((__POINTER *)next__40KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__50KG)[ 0]=next__40KG;
            } else {
              ((__POINTER *)result__A1KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__40KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__A1KG=next__40KG;
            };
          };
          ptr__JDJB=result__A1KG;
        };
        result__IDJB=((__ITM_CHARACTER *)ptr__JDJB);
        *(result__IDJB) = *(ITM_CHARACTER__);
      };
      ((__ITM_CHARACTER *)result__IDJB)->parent_itm_constant__JIN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ=__tmp__KIN;
      result__PDN=result__IDJB;
    };
    __tmp__OIN=result__KPO;
  };
  if (__tmp__OIN) {
    __tmp__BJN=TRUE__;
  } else {
    result__ATN=read_string__WSO();
    if (result__ATN) {
      __tmp__1IN=current_position__A0F();
      __tmp__2IN=last_string__NTC;
      result__ZEJB=NULL;
      ptr__0EJB=((__POINTER )(NULL));
      typ_id__5EJB= 0;
      sz__2EJB=((__UINTEGER_32 )sizeof(__ITM_STRING));
      if ((sz__2EJB ==  0)) {
        result__ZEJB=ITM_STRING__;
      } else {
        typ_id__5EJB=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__2EJB);
        if ((typ_id__5EJB == (__INTEGER)(-  1))) {
          a__WQHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__XQHG=(__UINTEGER_32)((__UINTEGER_32)(sz__2EJB + a__WQHG) & (__UINTEGER_32)(~ a__WQHG));
          ptr_table__E1KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XQHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__D1KG=((__POINTER )(NULL));
          result__F1KG=((__POINTER *)ptr_table__E1KG)[ 0];
          if ((result__F1KG == (void *)NULL)) {
            result__F1KG=new_lab__RUJ(new_size__XQHG);
            next__D1KG=(void *)((unsigned long)result__F1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQHG)));
            ((__POINTER *)next__D1KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__E1KG)[ 0]=next__D1KG;
          } else {
            next__D1KG=((__POINTER *)result__F1KG)[ 0];
            if ((next__D1KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F1KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__XQHG <<  1)) <=  4096)) {
                next__D1KG=(void *)((unsigned long)result__F1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQHG)));
              } else {
                next__D1KG=new_lab__RUJ(new_size__XQHG);
              };
              ((__POINTER *)next__D1KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__E1KG)[ 0]=next__D1KG;
            } else {
              ((__POINTER *)result__F1KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__D1KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__F1KG=next__D1KG;
            };
          };
          ptr__0EJB=result__F1KG;
        } else {
          t__1QHG=((__UINTEGER_32 )typ_id__5EJB);
          a__0QHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__M1KG=(__UINTEGER_32)((__UINTEGER_32)(sz__2EJB + a__0QHG) & (__UINTEGER_32)(~ a__0QHG));
          ptr_table__J1KG=((__POINTER )(&(table_type[(t__1QHG)])));
          lab_type__L1KG=(__UINTEGER_32)(t__1QHG |  1);
          next__I1KG=((__POINTER )(NULL));
          result__K1KG=((__POINTER *)ptr_table__J1KG)[ 0];
          if ((result__K1KG == (void *)NULL)) {
            result__K1KG=new_lab__RUJ(lab_type__L1KG);
            next__I1KG=(void *)((unsigned long)result__K1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M1KG)));
            ((__POINTER *)next__I1KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__J1KG)[ 0]=next__I1KG;
          } else {
            next__I1KG=((__POINTER *)result__K1KG)[ 0];
            if ((next__I1KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K1KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__M1KG <<  1)) <=  4096)) {
                next__I1KG=(void *)((unsigned long)result__K1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M1KG)));
              } else {
                next__I1KG=new_lab__RUJ(lab_type__L1KG);
              };
              ((__POINTER *)next__I1KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__J1KG)[ 0]=next__I1KG;
            } else {
              ((__POINTER *)result__K1KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__I1KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__K1KG=next__I1KG;
            };
          };
          ptr__0EJB=result__K1KG;
        };
        result__ZEJB=((__ITM_STRING *)ptr__0EJB);
        *(result__ZEJB) = *(ITM_STRING__);
      };
      ((__ITM_STRING *)result__ZEJB)->parent_itm_code__0IN.parent_itm_object__P2D.position__REJ=__tmp__1IN;
      Self__OHSD=((__HASHED_DICTIONARYoExpanded_INTEGERxSTRING_CONSTANTo *)dico_string__1I5B);
      h__XHSD=hash_code__LQU(__tmp__2IN);
      idx__YHSD=(__INTEGER)(h__XHSD % Self__OHSD->capacity__2HSD);
      node__0HSD=((void **)Self__OHSD->buckets__BISD)[idx__YHSD];
      while ((! (((void *)node__0HSD == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *)node__0HSD)->key__NISD == (void *)__tmp__2IN)))) {
        node__0HSD=((__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *)node__0HSD)->next__YISD;
      };
      if (((void *)node__0HSD == (void *)NULL)) {
        if ((Self__OHSD->capacity__2HSD == Self__OHSD->count__BJSD)) {
          idx__QKOE= 0;
          node1__UKOE=NULL;
          node2__VKOE=NULL;
          old_buckets__TKOE=Self__OHSD->buckets__BISD;
          new_capacity__RKOE=prime_number_ceiling__33Z((__INTEGER)(Self__OHSD->capacity__2HSD +  1));
          Self__OHSD->buckets__BISD=create__R23D(new_capacity__RKOE);
          i__SKOE=(__INTEGER)(Self__OHSD->capacity__2HSD -  1);
          Self__OHSD->capacity__2HSD=new_capacity__RKOE;
          while ((i__SKOE >=  0)) {
            node1__UKOE=((void **)old_buckets__TKOE)[i__SKOE];
            while (((void *)node1__UKOE != (void *)NULL)) {
              node2__VKOE=((__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *)node1__UKOE)->next__YISD;
              idx__QKOE=(__INTEGER)(hash_code__LQU(((__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *)node1__UKOE)->key__NISD) % Self__OHSD->capacity__2HSD);
              ((__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *)node1__UKOE)->next__YISD=((void **)Self__OHSD->buckets__BISD)[idx__QKOE];
              ((void **)Self__OHSD->buckets__BISD)[idx__QKOE]=node1__UKOE;
              node1__UKOE=node2__VKOE;
            };
            i__SKOE=(__INTEGER)(i__SKOE -  1);
          };
          idx__YHSD=(__INTEGER)(h__XHSD % Self__OHSD->capacity__2HSD);
        };
        __tmp__OJSD=((void **)Self__OHSD->buckets__BISD)[idx__YHSD];
        result__0MOE=NULL;
        ptr__1MOE=((__POINTER )(NULL));
        typ_id__ANOE= 0;
        sz__3MOE=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo));
        if ((sz__3MOE ==  0)) {
          result__0MOE=HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo__;
        } else {
          typ_id__ANOE=__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo__;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__3MOE);
          if ((typ_id__ANOE == (__INTEGER)(-  1))) {
            a__KRHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__LRHG=(__UINTEGER_32)((__UINTEGER_32)(sz__3MOE + a__KRHG) & (__UINTEGER_32)(~ a__KRHG));
            ptr_table__O1KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LRHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__N1KG=((__POINTER )(NULL));
            result__P1KG=((__POINTER *)ptr_table__O1KG)[ 0];
            if ((result__P1KG == (void *)NULL)) {
              result__P1KG=new_lab__RUJ(new_size__LRHG);
              next__N1KG=(void *)((unsigned long)result__P1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LRHG)));
              ((__POINTER *)next__N1KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__O1KG)[ 0]=next__N1KG;
            } else {
              next__N1KG=((__POINTER *)result__P1KG)[ 0];
              if ((next__N1KG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P1KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__LRHG <<  1)) <=  4096)) {
                  next__N1KG=(void *)((unsigned long)result__P1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LRHG)));
                } else {
                  next__N1KG=new_lab__RUJ(new_size__LRHG);
                };
                ((__POINTER *)next__N1KG)[ 0]=NULL;
                ((__POINTER *)ptr_table__O1KG)[ 0]=next__N1KG;
              } else {
                ((__POINTER *)result__P1KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__N1KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__P1KG=next__N1KG;
              };
            };
            ptr__1MOE=result__P1KG;
          } else {
            t__PRHG=((__UINTEGER_32 )typ_id__ANOE);
            a__ORHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__W1KG=(__UINTEGER_32)((__UINTEGER_32)(sz__3MOE + a__ORHG) & (__UINTEGER_32)(~ a__ORHG));
            ptr_table__T1KG=((__POINTER )(&(table_type[(t__PRHG)])));
            lab_type__V1KG=(__UINTEGER_32)(t__PRHG |  1);
            next__S1KG=((__POINTER )(NULL));
            result__U1KG=((__POINTER *)ptr_table__T1KG)[ 0];
            if ((result__U1KG == (void *)NULL)) {
              result__U1KG=new_lab__RUJ(lab_type__V1KG);
              next__S1KG=(void *)((unsigned long)result__U1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1KG)));
              ((__POINTER *)next__S1KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__T1KG)[ 0]=next__S1KG;
            } else {
              next__S1KG=((__POINTER *)result__U1KG)[ 0];
              if ((next__S1KG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U1KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__W1KG <<  1)) <=  4096)) {
                  next__S1KG=(void *)((unsigned long)result__U1KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1KG)));
                } else {
                  next__S1KG=new_lab__RUJ(lab_type__V1KG);
                };
                ((__POINTER *)next__S1KG)[ 0]=NULL;
                ((__POINTER *)ptr_table__T1KG)[ 0]=next__S1KG;
              } else {
                ((__POINTER *)result__U1KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__S1KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__U1KG=next__S1KG;
              };
            };
            ptr__1MOE=result__U1KG;
          };
          result__0MOE=((__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *)ptr__1MOE);
          *(result__0MOE) = *(HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo__);
        };
        Self__CXTE=((__HASHED_DICTIONARY_NODEoExpanded_INTEGERxSTRING_CONSTANTo *)result__0MOE);
        Self__CXTE->key__NISD=__tmp__2IN;
        Self__CXTE->next__YISD=__tmp__OJSD;
        node__0HSD=result__0MOE;
        ((void **)Self__OHSD->buckets__BISD)[idx__YHSD]=result__0MOE;
        Self__OHSD->count__BJSD=(__INTEGER)(Self__OHSD->count__BJSD +  1);
      };
      result__PDN=result__ZEJB;
    };
    __tmp__BJN=result__ATN;
  };
  if (__tmp__BJN) {
    __tmp__4JN=TRUE__;
  } else {
    result__X1KG=FALSE__;
    if ((! read_space__MMD())) {
      result__X1KG=FALSE__;
    } else {
      result__Y1KG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__Y1KG=((__CHARACTER )(( 0)));
      } else {
        result__Y1KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__Y1KG == '(')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__X1KG=TRUE__;
      };
    };
    if (result__X1KG) {
      group_sav__VDN=last_group__UWF;
      p__C2KG=current_position__A0F();
      result__01KG=NULL;
      ptr__11KG=((__POINTER )(NULL));
      typ_id__21KG= 0;
      sz__31KG=((__UINTEGER_32 )sizeof(__ITM_LIST));
      if ((sz__31KG ==  0)) {
        result__01KG=ITM_LIST__;
      } else {
        typ_id__21KG=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__31KG);
        if ((typ_id__21KG == (__INTEGER)(-  1))) {
          a__41KG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__51KG=(__UINTEGER_32)((__UINTEGER_32)(sz__31KG + a__41KG) & (__UINTEGER_32)(~ a__41KG));
          ptr_table__E2KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__51KG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__D2KG=((__POINTER )(NULL));
          result__F2KG=((__POINTER *)ptr_table__E2KG)[ 0];
          if ((result__F2KG == (void *)NULL)) {
            result__F2KG=new_lab__RUJ(new_size__51KG);
            next__D2KG=(void *)((unsigned long)result__F2KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__51KG)));
            ((__POINTER *)next__D2KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__E2KG)[ 0]=next__D2KG;
          } else {
            next__D2KG=((__POINTER *)result__F2KG)[ 0];
            if ((next__D2KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F2KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__51KG <<  1)) <=  4096)) {
                next__D2KG=(void *)((unsigned long)result__F2KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__51KG)));
              } else {
                next__D2KG=new_lab__RUJ(new_size__51KG);
              };
              ((__POINTER *)next__D2KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__E2KG)[ 0]=next__D2KG;
            } else {
              ((__POINTER *)result__F2KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__D2KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__F2KG=next__D2KG;
            };
          };
          ptr__11KG=result__F2KG;
        } else {
          t__A2KG=((__UINTEGER_32 )typ_id__21KG);
          a__B2KG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__M2KG=(__UINTEGER_32)((__UINTEGER_32)(sz__31KG + a__B2KG) & (__UINTEGER_32)(~ a__B2KG));
          ptr_table__J2KG=((__POINTER )(&(table_type[(t__A2KG)])));
          lab_type__L2KG=(__UINTEGER_32)(t__A2KG |  1);
          next__I2KG=((__POINTER )(NULL));
          result__K2KG=((__POINTER *)ptr_table__J2KG)[ 0];
          if ((result__K2KG == (void *)NULL)) {
            result__K2KG=new_lab__RUJ(lab_type__L2KG);
            next__I2KG=(void *)((unsigned long)result__K2KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M2KG)));
            ((__POINTER *)next__I2KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__J2KG)[ 0]=next__I2KG;
          } else {
            next__I2KG=((__POINTER *)result__K2KG)[ 0];
            if ((next__I2KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K2KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__M2KG <<  1)) <=  4096)) {
                next__I2KG=(void *)((unsigned long)result__K2KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M2KG)));
              } else {
                next__I2KG=new_lab__RUJ(lab_type__L2KG);
              };
              ((__POINTER *)next__I2KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__J2KG)[ 0]=next__I2KG;
            } else {
              ((__POINTER *)result__K2KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__I2KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__K2KG=next__I2KG;
            };
          };
          ptr__11KG=result__K2KG;
        };
        result__01KG=((__ITM_LIST *)ptr__11KG);
        *(result__01KG) = *(ITM_LIST__);
      };
      ((__ITM_LIST *)result__01KG)->parent_itm_code__4XE.parent_itm_object__P2D.position__REJ=p__C2KG;
      last_group__UWF=result__01KG;
      result__PDN=result__01KG;
      read_group__ZZEB(Self__NDN);
      result__N2KG=FALSE__;
      if ((! read_space__MMD())) {
        result__N2KG=FALSE__;
      } else {
        result__O2KG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__O2KG=((__CHARACTER )(( 0)));
        } else {
          result__O2KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__O2KG == ')')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__N2KG=TRUE__;
        };
      };
      if ((! result__N2KG)) {
        pos__PI1F=current_position__A0F();
        put_error__text__WRG( 2,(&__string_221));
        put_position__ATG(pos__PI1F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      last_group__UWF=group_sav__VDN;
    };
    __tmp__4JN=result__X1KG;
  };
  if (__tmp__4JN) {
    __tmp__CMN=TRUE__;
  } else {
    result__Q2KG=FALSE__;
    if ((! read_space__MMD())) {
      result__Q2KG=FALSE__;
    } else {
      result__R2KG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__R2KG=((__CHARACTER )(( 0)));
      } else {
        result__R2KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__R2KG == '{')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__Q2KG=TRUE__;
      };
    };
    if (result__Q2KG) {
      short__token__to__R0C((&__string_105),(__INTEGER)(position__V0B -  1),position__V0B);
      group_sav__VDN=last_group__UWF;
      p__X5H=current_position__A0F();
      result__FVI=NULL;
      ptr__GVI=((__POINTER )(NULL));
      typ_id__LVI= 0;
      sz__IVI=((__UINTEGER_32 )sizeof(__ITM_LIST));
      if ((sz__IVI ==  0)) {
        result__FVI=ITM_LIST__;
      } else {
        typ_id__LVI=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__IVI);
        if ((typ_id__LVI == (__INTEGER)(-  1))) {
          a__DXHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__EXHG=(__UINTEGER_32)((__UINTEGER_32)(sz__IVI + a__DXHG) & (__UINTEGER_32)(~ a__DXHG));
          ptr_table__U2KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__EXHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__T2KG=((__POINTER )(NULL));
          result__V2KG=((__POINTER *)ptr_table__U2KG)[ 0];
          if ((result__V2KG == (void *)NULL)) {
            result__V2KG=new_lab__RUJ(new_size__EXHG);
            next__T2KG=(void *)((unsigned long)result__V2KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EXHG)));
            ((__POINTER *)next__T2KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__U2KG)[ 0]=next__T2KG;
          } else {
            next__T2KG=((__POINTER *)result__V2KG)[ 0];
            if ((next__T2KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V2KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__EXHG <<  1)) <=  4096)) {
                next__T2KG=(void *)((unsigned long)result__V2KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EXHG)));
              } else {
                next__T2KG=new_lab__RUJ(new_size__EXHG);
              };
              ((__POINTER *)next__T2KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__U2KG)[ 0]=next__T2KG;
            } else {
              ((__POINTER *)result__V2KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__T2KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__V2KG=next__T2KG;
            };
          };
          ptr__GVI=result__V2KG;
        } else {
          t__IXHG=((__UINTEGER_32 )typ_id__LVI);
          a__HXHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__22KG=(__UINTEGER_32)((__UINTEGER_32)(sz__IVI + a__HXHG) & (__UINTEGER_32)(~ a__HXHG));
          ptr_table__Z2KG=((__POINTER )(&(table_type[(t__IXHG)])));
          lab_type__12KG=(__UINTEGER_32)(t__IXHG |  1);
          next__Y2KG=((__POINTER )(NULL));
          result__02KG=((__POINTER *)ptr_table__Z2KG)[ 0];
          if ((result__02KG == (void *)NULL)) {
            result__02KG=new_lab__RUJ(lab_type__12KG);
            next__Y2KG=(void *)((unsigned long)result__02KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__22KG)));
            ((__POINTER *)next__Y2KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__Z2KG)[ 0]=next__Y2KG;
          } else {
            next__Y2KG=((__POINTER *)result__02KG)[ 0];
            if ((next__Y2KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__02KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__22KG <<  1)) <=  4096)) {
                next__Y2KG=(void *)((unsigned long)result__02KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__22KG)));
              } else {
                next__Y2KG=new_lab__RUJ(lab_type__12KG);
              };
              ((__POINTER *)next__Y2KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__Z2KG)[ 0]=next__Y2KG;
            } else {
              ((__POINTER *)result__02KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y2KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__02KG=next__Y2KG;
            };
          };
          ptr__GVI=result__02KG;
        };
        result__FVI=((__ITM_LIST *)ptr__GVI);
        *(result__FVI) = *(ITM_LIST__);
      };
      ((__ITM_LIST *)result__FVI)->parent_itm_code__4XE.parent_itm_object__P2D.position__REJ=p__X5H;
      last_group__UWF=result__FVI;
      old_position__QWI=position__V0B;
      old_pos_cur__SWI=pos_cur__Y0B;
      old_pos_line__UWI=pos_line__Z0B;
      old_pos_col__WWI=pos_col__00B;
      old_short_derive__YWI=short_derive__O1B;
      if (((void *)read_loc_arg__E3EB(Self__NDN,TRUE__) != (void *)NULL)) {
        result__32KG=FALSE__;
        if ((! read_space__MMD())) {
          result__32KG=FALSE__;
        } else {
          result__42KG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__42KG=((__CHARACTER )(( 0)));
          } else {
            result__42KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__42KG == ';')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__32KG=TRUE__;
          };
        };
        if ((! result__32KG)) {
          pos__RI1F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_191));
          put_position__ATG(pos__RI1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
      } else {
        restore_context__MEL();
      };
      ptr__WHJB=((__POINTER )(NULL));
      typ_id__1HJB= 0;
      sz__YHJB=((__UINTEGER_32 )sizeof(__ITM_BLOCK));
      if ((sz__YHJB !=  0)) {
        typ_id__1HJB=__ITM_BLOCK__;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__YHJB);
        if ((typ_id__1HJB == (__INTEGER)(-  1))) {
          a__VRHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__WRHG=(__UINTEGER_32)((__UINTEGER_32)(sz__YHJB + a__VRHG) & (__UINTEGER_32)(~ a__VRHG));
          ptr_table__B3KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WRHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__A3KG=((__POINTER )(NULL));
          result__C3KG=((__POINTER *)ptr_table__B3KG)[ 0];
          if ((result__C3KG == (void *)NULL)) {
            result__C3KG=new_lab__RUJ(new_size__WRHG);
            next__A3KG=(void *)((unsigned long)result__C3KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WRHG)));
            ((__POINTER *)next__A3KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__B3KG)[ 0]=next__A3KG;
          } else {
            next__A3KG=((__POINTER *)result__C3KG)[ 0];
            if ((next__A3KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C3KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__WRHG <<  1)) <=  4096)) {
                next__A3KG=(void *)((unsigned long)result__C3KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WRHG)));
              } else {
                next__A3KG=new_lab__RUJ(new_size__WRHG);
              };
              ((__POINTER *)next__A3KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__B3KG)[ 0]=next__A3KG;
            } else {
              ((__POINTER *)result__C3KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__A3KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__C3KG=next__A3KG;
            };
          };
          ptr__WHJB=result__C3KG;
        } else {
          t__0RHG=((__UINTEGER_32 )typ_id__1HJB);
          a__ZRHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__J3KG=(__UINTEGER_32)((__UINTEGER_32)(sz__YHJB + a__ZRHG) & (__UINTEGER_32)(~ a__ZRHG));
          ptr_table__G3KG=((__POINTER )(&(table_type[(t__0RHG)])));
          lab_type__I3KG=(__UINTEGER_32)(t__0RHG |  1);
          next__F3KG=((__POINTER )(NULL));
          result__H3KG=((__POINTER *)ptr_table__G3KG)[ 0];
          if ((result__H3KG == (void *)NULL)) {
            result__H3KG=new_lab__RUJ(lab_type__I3KG);
            next__F3KG=(void *)((unsigned long)result__H3KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J3KG)));
            ((__POINTER *)next__F3KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__G3KG)[ 0]=next__F3KG;
          } else {
            next__F3KG=((__POINTER *)result__H3KG)[ 0];
            if ((next__F3KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H3KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__J3KG <<  1)) <=  4096)) {
                next__F3KG=(void *)((unsigned long)result__H3KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J3KG)));
              } else {
                next__F3KG=new_lab__RUJ(lab_type__I3KG);
              };
              ((__POINTER *)next__F3KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__G3KG)[ 0]=next__F3KG;
            } else {
              ((__POINTER *)result__H3KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__F3KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__H3KG=next__F3KG;
            };
          };
          ptr__WHJB=result__H3KG;
        };
        *(((__ITM_BLOCK *)ptr__WHJB)) = *(ITM_BLOCK__);
      };
      p__JEI=current_position__A0F();
      result__PZI=NULL;
      ptr__QZI=((__POINTER )(NULL));
      typ_id__VZI= 0;
      sz__SZI=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
      if ((sz__SZI ==  0)) {
        result__PZI=ITM_PROTOTYPE__;
      } else {
        typ_id__VZI=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__SZI);
        if ((typ_id__VZI == (__INTEGER)(-  1))) {
          a__FYHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__GYHG=(__UINTEGER_32)((__UINTEGER_32)(sz__SZI + a__FYHG) & (__UINTEGER_32)(~ a__FYHG));
          ptr_table__L3KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GYHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__K3KG=((__POINTER )(NULL));
          result__M3KG=((__POINTER *)ptr_table__L3KG)[ 0];
          if ((result__M3KG == (void *)NULL)) {
            result__M3KG=new_lab__RUJ(new_size__GYHG);
            next__K3KG=(void *)((unsigned long)result__M3KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GYHG)));
            ((__POINTER *)next__K3KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__L3KG)[ 0]=next__K3KG;
          } else {
            next__K3KG=((__POINTER *)result__M3KG)[ 0];
            if ((next__K3KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M3KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__GYHG <<  1)) <=  4096)) {
                next__K3KG=(void *)((unsigned long)result__M3KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GYHG)));
              } else {
                next__K3KG=new_lab__RUJ(new_size__GYHG);
              };
              ((__POINTER *)next__K3KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__L3KG)[ 0]=next__K3KG;
            } else {
              ((__POINTER *)result__M3KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__K3KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__M3KG=next__K3KG;
            };
          };
          ptr__QZI=result__M3KG;
        } else {
          t__KYHG=((__UINTEGER_32 )typ_id__VZI);
          a__JYHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__T3KG=(__UINTEGER_32)((__UINTEGER_32)(sz__SZI + a__JYHG) & (__UINTEGER_32)(~ a__JYHG));
          ptr_table__Q3KG=((__POINTER )(&(table_type[(t__KYHG)])));
          lab_type__S3KG=(__UINTEGER_32)(t__KYHG |  1);
          next__P3KG=((__POINTER )(NULL));
          result__R3KG=((__POINTER *)ptr_table__Q3KG)[ 0];
          if ((result__R3KG == (void *)NULL)) {
            result__R3KG=new_lab__RUJ(lab_type__S3KG);
            next__P3KG=(void *)((unsigned long)result__R3KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T3KG)));
            ((__POINTER *)next__P3KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__Q3KG)[ 0]=next__P3KG;
          } else {
            next__P3KG=((__POINTER *)result__R3KG)[ 0];
            if ((next__P3KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__R3KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__T3KG <<  1)) <=  4096)) {
                next__P3KG=(void *)((unsigned long)result__R3KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T3KG)));
              } else {
                next__P3KG=new_lab__RUJ(lab_type__S3KG);
              };
              ((__POINTER *)next__P3KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__Q3KG)[ 0]=next__P3KG;
            } else {
              ((__POINTER *)result__R3KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__P3KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__R3KG=next__P3KG;
            };
          };
          ptr__QZI=result__R3KG;
        };
        result__PZI=((__ITM_PROTOTYPE *)ptr__QZI);
        *(result__PZI) = *(ITM_PROTOTYPE__);
      };
      ((__ITM_PROTOTYPE *)result__PZI)->parent_itm_constant__VYF.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ=p__JEI;
      result__PDN=result__PZI;
      read_group__ZZEB(Self__NDN);
      result__U3KG=FALSE__;
      if ((! read_space__MMD())) {
        result__U3KG=FALSE__;
      } else {
        result__V3KG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__V3KG=((__CHARACTER )(( 0)));
        } else {
          result__V3KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__V3KG == '}')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__U3KG=TRUE__;
        };
      };
      if ((! result__U3KG)) {
        pos__0I1F=current_position__A0F();
        put_error__text__WRG( 2,(&__string_236));
        put_position__ATG(pos__0I1F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      short__token__to__R0C((&__string_105),(__INTEGER)(position__V0B -  1),position__V0B);
      last_group__UWF=group_sav__VDN;
    };
    __tmp__CMN=result__Q2KG;
  };
  if ((! __tmp__CMN)) {
    if (read_external__ZVO()) {
      result__X3KG=FALSE__;
      if ((! read_space__MMD())) {
        result__X3KG=FALSE__;
      } else {
        result__Y3KG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__Y3KG=((__CHARACTER )(( 0)));
        } else {
          result__Y3KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__Y3KG == ':')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__X3KG=TRUE__;
        };
      };
      if ((! result__X3KG)) {
        __tmp__WMN=current_position__A0F();
        result__IJQB=NULL;
        ptr__JJQB=((__POINTER )(NULL));
        typ_id__OJQB= 0;
        sz__LJQB=((__UINTEGER_32 )sizeof(__ITM_EXTERNAL));
        if ((sz__LJQB ==  0)) {
          result__IJQB=ITM_EXTERNAL__;
        } else {
          typ_id__OJQB=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__LJQB);
          if ((typ_id__OJQB == (__INTEGER)(-  1))) {
            a__3RHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__4RHG=(__UINTEGER_32)((__UINTEGER_32)(sz__LJQB + a__3RHG) & (__UINTEGER_32)(~ a__3RHG));
            ptr_table__13KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4RHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__03KG=((__POINTER )(NULL));
            result__23KG=((__POINTER *)ptr_table__13KG)[ 0];
            if ((result__23KG == (void *)NULL)) {
              result__23KG=new_lab__RUJ(new_size__4RHG);
              next__03KG=(void *)((unsigned long)result__23KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4RHG)));
              ((__POINTER *)next__03KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__13KG)[ 0]=next__03KG;
            } else {
              next__03KG=((__POINTER *)result__23KG)[ 0];
              if ((next__03KG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__23KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4RHG <<  1)) <=  4096)) {
                  next__03KG=(void *)((unsigned long)result__23KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4RHG)));
                } else {
                  next__03KG=new_lab__RUJ(new_size__4RHG);
                };
                ((__POINTER *)next__03KG)[ 0]=NULL;
                ((__POINTER *)ptr_table__13KG)[ 0]=next__03KG;
              } else {
                ((__POINTER *)result__23KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__03KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__23KG=next__03KG;
              };
            };
            ptr__JJQB=result__23KG;
          } else {
            t__CSHG=((__UINTEGER_32 )typ_id__OJQB);
            a__BSHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__D4KG=(__UINTEGER_32)((__UINTEGER_32)(sz__LJQB + a__BSHG) & (__UINTEGER_32)(~ a__BSHG));
            ptr_table__A4KG=((__POINTER )(&(table_type[(t__CSHG)])));
            lab_type__C4KG=(__UINTEGER_32)(t__CSHG |  1);
            next__53KG=((__POINTER )(NULL));
            result__B4KG=((__POINTER *)ptr_table__A4KG)[ 0];
            if ((result__B4KG == (void *)NULL)) {
              result__B4KG=new_lab__RUJ(lab_type__C4KG);
              next__53KG=(void *)((unsigned long)result__B4KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D4KG)));
              ((__POINTER *)next__53KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__A4KG)[ 0]=next__53KG;
            } else {
              next__53KG=((__POINTER *)result__B4KG)[ 0];
              if ((next__53KG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B4KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__D4KG <<  1)) <=  4096)) {
                  next__53KG=(void *)((unsigned long)result__B4KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D4KG)));
                } else {
                  next__53KG=new_lab__RUJ(lab_type__C4KG);
                };
                ((__POINTER *)next__53KG)[ 0]=NULL;
                ((__POINTER *)ptr_table__A4KG)[ 0]=next__53KG;
              } else {
                ((__POINTER *)result__B4KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__53KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__B4KG=next__53KG;
              };
            };
            ptr__JJQB=result__B4KG;
          };
          result__IJQB=((__ITM_EXTERNAL *)ptr__JJQB);
          *(result__IJQB) = *(ITM_EXTERNAL__);
        };
        ((__ITM_EXTERNAL *)result__IJQB)->parent_itm_extern__VMN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ=__tmp__WMN;
        result__PDN=result__IJQB;
      } else {
        __tmp__4MN=current_position__A0F();
        result__E4KG=FALSE__;
        if ((! read_space__MMD())) {
          result__E4KG=FALSE__;
        } else {
          result__F4KG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__F4KG=((__CHARACTER )(( 0)));
          } else {
            result__F4KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__F4KG == '(')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__E4KG=TRUE__;
          };
        };
        result__0KQB=NULL;
        ptr__1KQB=((__POINTER )(NULL));
        typ_id__ALQB= 0;
        sz__3KQB=((__UINTEGER_32 )sizeof(__ITM_EXTERNAL_TYPE));
        if ((sz__3KQB ==  0)) {
          result__0KQB=ITM_EXTERNAL_TYPE__;
        } else {
          typ_id__ALQB=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__3KQB);
          if ((typ_id__ALQB == (__INTEGER)(-  1))) {
            a__FSHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__GSHG=(__UINTEGER_32)((__UINTEGER_32)(sz__3KQB + a__FSHG) & (__UINTEGER_32)(~ a__FSHG));
            ptr_table__I4KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GSHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__H4KG=((__POINTER )(NULL));
            result__J4KG=((__POINTER *)ptr_table__I4KG)[ 0];
            if ((result__J4KG == (void *)NULL)) {
              result__J4KG=new_lab__RUJ(new_size__GSHG);
              next__H4KG=(void *)((unsigned long)result__J4KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GSHG)));
              ((__POINTER *)next__H4KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__I4KG)[ 0]=next__H4KG;
            } else {
              next__H4KG=((__POINTER *)result__J4KG)[ 0];
              if ((next__H4KG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J4KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__GSHG <<  1)) <=  4096)) {
                  next__H4KG=(void *)((unsigned long)result__J4KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GSHG)));
                } else {
                  next__H4KG=new_lab__RUJ(new_size__GSHG);
                };
                ((__POINTER *)next__H4KG)[ 0]=NULL;
                ((__POINTER *)ptr_table__I4KG)[ 0]=next__H4KG;
              } else {
                ((__POINTER *)result__J4KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__H4KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__J4KG=next__H4KG;
              };
            };
            ptr__1KQB=result__J4KG;
          } else {
            t__KSHG=((__UINTEGER_32 )typ_id__ALQB);
            a__JSHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__Q4KG=(__UINTEGER_32)((__UINTEGER_32)(sz__3KQB + a__JSHG) & (__UINTEGER_32)(~ a__JSHG));
            ptr_table__N4KG=((__POINTER )(&(table_type[(t__KSHG)])));
            lab_type__P4KG=(__UINTEGER_32)(t__KSHG |  1);
            next__M4KG=((__POINTER )(NULL));
            result__O4KG=((__POINTER *)ptr_table__N4KG)[ 0];
            if ((result__O4KG == (void *)NULL)) {
              result__O4KG=new_lab__RUJ(lab_type__P4KG);
              next__M4KG=(void *)((unsigned long)result__O4KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q4KG)));
              ((__POINTER *)next__M4KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__N4KG)[ 0]=next__M4KG;
            } else {
              next__M4KG=((__POINTER *)result__O4KG)[ 0];
              if ((next__M4KG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O4KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Q4KG <<  1)) <=  4096)) {
                  next__M4KG=(void *)((unsigned long)result__O4KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q4KG)));
                } else {
                  next__M4KG=new_lab__RUJ(lab_type__P4KG);
                };
                ((__POINTER *)next__M4KG)[ 0]=NULL;
                ((__POINTER *)ptr_table__N4KG)[ 0]=next__M4KG;
              } else {
                ((__POINTER *)result__O4KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__M4KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__O4KG=next__M4KG;
              };
            };
            ptr__1KQB=result__O4KG;
          };
          result__0KQB=((__ITM_EXTERNAL_TYPE *)ptr__1KQB);
          *(result__0KQB) = *(ITM_EXTERNAL_TYPE__);
        };
        Self__XABC=((__ITM_EXTERNAL_TYPE *)result__0KQB);
        Self__XABC->parent_itm_extern__TDN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ=__tmp__4MN;
        Self__XABC->is_persistant__NON=result__E4KG;
        type__QDN=read_type__5FP(Self__NDN,FALSE__);
        if (((void *)type__QDN == (void *)NULL)) {
          pos__KJ1F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_205));
          put_position__ATG(pos__KJ1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        result__R4KG=FALSE__;
        if ((! read_space__MMD())) {
          result__R4KG=FALSE__;
        } else {
          result__S4KG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__S4KG=((__CHARACTER )(( 0)));
          } else {
            result__S4KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__S4KG == '(')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__R4KG=TRUE__;
          };
        };
        if (result__R4KG) {
          if (((void *)read_type_list__O4KB(Self__NDN,FALSE__) == (void *)NULL)) {
            pos__MJ1F=current_position__A0F();
            put_error__text__WRG( 0,(&__string_237));
            put_position__ATG(pos__MJ1F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          result__U4KG=FALSE__;
          if ((! read_space__MMD())) {
            result__U4KG=FALSE__;
          } else {
            result__V4KG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__V4KG=((__CHARACTER )(( 0)));
            } else {
              result__V4KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__V4KG == ')')) {
              position__V0B=(__INTEGER)(position__V0B +  1);
              result__U4KG=TRUE__;
            };
          };
          if ((! result__U4KG)) {
            pos__OJ1F=current_position__A0F();
            put_error__text__WRG( 2,(&__string_221));
            put_position__ATG(pos__OJ1F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
        };
        if (result__0KQB->is_persistant__NON) {
          result__X4KG=FALSE__;
          if ((! read_space__MMD())) {
            result__X4KG=FALSE__;
          } else {
            result__Y4KG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__Y4KG=((__CHARACTER )(( 0)));
            } else {
              result__Y4KG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__Y4KG == ')')) {
              position__V0B=(__INTEGER)(position__V0B +  1);
              result__X4KG=TRUE__;
            };
          };
          __tmp__YON=(! result__X4KG);
        } else {
          __tmp__YON=FALSE__;
        };
        if (__tmp__YON) {
          pos__QJ1F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_221));
          put_position__ATG(pos__QJ1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        result__PDN=result__0KQB;
      };
    };
  };
  return(result__PDN);
}

static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__VOP(__INTEGER new_count__XOP)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __POINTER ptr__3SP,ptr_table__14KG,next__04KG,result__24KG;
  __POINTER ptr_table__A5KG,next__54KG,result__B5KG;
  __INTEGER typ_id__CTP;
  __UINTEGER_32 sz__5SP,a__00HG,new_size__10HG,t__50HG,a__40HG;
  __UINTEGER_32 new_size__D5KG,lab_type__C5KG;
  __FAST_ARRAYoITM_TYPE_MONOo *result__2SP,*Self__OOU;
  result__2SP=NULL;
  ptr__3SP=((__POINTER )(NULL));
  typ_id__CTP= 0;
  sz__5SP=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_MONOo));
  if ((sz__5SP ==  0)) {
    result__2SP=FAST_ARRAYoITM_TYPE_MONOo__;
  } else {
    typ_id__CTP=__FAST_ARRAYoITM_TYPE_MONOo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__5SP);
    if ((typ_id__CTP == (__INTEGER)(-  1))) {
      a__00HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__10HG=(__UINTEGER_32)((__UINTEGER_32)(sz__5SP + a__00HG) & (__UINTEGER_32)(~ a__00HG));
      ptr_table__14KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__10HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__04KG=((__POINTER )(NULL));
      result__24KG=((__POINTER *)ptr_table__14KG)[ 0];
      if ((result__24KG == (void *)NULL)) {
        result__24KG=new_lab__RUJ(new_size__10HG);
        next__04KG=(void *)((unsigned long)result__24KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__10HG)));
        ((__POINTER *)next__04KG)[ 0]=NULL;
        ((__POINTER *)ptr_table__14KG)[ 0]=next__04KG;
      } else {
        next__04KG=((__POINTER *)result__24KG)[ 0];
        if ((next__04KG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__24KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__10HG <<  1)) <=  4096)) {
            next__04KG=(void *)((unsigned long)result__24KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__10HG)));
          } else {
            next__04KG=new_lab__RUJ(new_size__10HG);
          };
          ((__POINTER *)next__04KG)[ 0]=NULL;
          ((__POINTER *)ptr_table__14KG)[ 0]=next__04KG;
        } else {
          ((__POINTER *)result__24KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__04KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__24KG=next__04KG;
        };
      };
      ptr__3SP=result__24KG;
    } else {
      t__50HG=((__UINTEGER_32 )typ_id__CTP);
      a__40HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__D5KG=(__UINTEGER_32)((__UINTEGER_32)(sz__5SP + a__40HG) & (__UINTEGER_32)(~ a__40HG));
      ptr_table__A5KG=((__POINTER )(&(table_type[(t__50HG)])));
      lab_type__C5KG=(__UINTEGER_32)(t__50HG |  1);
      next__54KG=((__POINTER )(NULL));
      result__B5KG=((__POINTER *)ptr_table__A5KG)[ 0];
      if ((result__B5KG == (void *)NULL)) {
        result__B5KG=new_lab__RUJ(lab_type__C5KG);
        next__54KG=(void *)((unsigned long)result__B5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D5KG)));
        ((__POINTER *)next__54KG)[ 0]=NULL;
        ((__POINTER *)ptr_table__A5KG)[ 0]=next__54KG;
      } else {
        next__54KG=((__POINTER *)result__B5KG)[ 0];
        if ((next__54KG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B5KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__D5KG <<  1)) <=  4096)) {
            next__54KG=(void *)((unsigned long)result__B5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D5KG)));
          } else {
            next__54KG=new_lab__RUJ(lab_type__C5KG);
          };
          ((__POINTER *)next__54KG)[ 0]=NULL;
          ((__POINTER *)ptr_table__A5KG)[ 0]=next__54KG;
        } else {
          ((__POINTER *)result__B5KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__54KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__B5KG=next__54KG;
        };
      };
      ptr__3SP=result__B5KG;
    };
    result__2SP=((__FAST_ARRAYoITM_TYPE_MONOo *)ptr__3SP);
    *(result__2SP) = *(FAST_ARRAYoITM_TYPE_MONOo__);
  };
  Self__OOU=((__FAST_ARRAYoITM_TYPE_MONOo *)result__2SP);
  if ((Self__OOU->parent_arrayed_collection__GRC.capacity__S5T < new_count__XOP)) {
    Self__OOU->parent_arrayed_collection__GRC.storage__OAU=create__2BOB(new_count__XOP);
    Self__OOU->parent_arrayed_collection__GRC.capacity__S5T=new_count__XOP;
  };
  Self__OOU->parent_arrayed_collection__GRC.upper__Q5T=(__INTEGER)(-  1);
  return(result__2SP);
}

static void add_last__M5T(__FAST_ARRAYoITM_TYPE_MONOo *Self__N5T,void *element__O5T)
// ({FAST_ARRAYoITM_TYPE_MONOo},{NULLxITM_TYPE_SIMPLExITM_TYPE_SELFxITM_TYPE_GENERICxITM_TYPE_STYLE}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__P5T,__tmp__YAU,__tmp__GLAC,Self__5IWD;
  __BOOLEAN __tmp__55T;
  void **__tmp__XAU,**new__TKAC;
  new_capacity__P5T= 0;
  if (((__INTEGER)(Self__N5T->parent_arrayed_collection__GRC.upper__Q5T +  1) <= (__INTEGER)(Self__N5T->parent_arrayed_collection__GRC.capacity__S5T -  1))) {
    Self__N5T->parent_arrayed_collection__GRC.upper__Q5T=(__INTEGER)(Self__N5T->parent_arrayed_collection__GRC.upper__Q5T +  1);
    __tmp__55T=TRUE__;
  } else {
    __tmp__55T=FALSE__;
  };
  if ((! __tmp__55T)) {
    if ((Self__N5T->parent_arrayed_collection__GRC.capacity__S5T ==  0)) {
      Self__N5T->parent_arrayed_collection__GRC.storage__OAU=create__2BOB( 2);
      Self__N5T->parent_arrayed_collection__GRC.capacity__S5T= 2;
      Self__N5T->parent_arrayed_collection__GRC.upper__Q5T= 0;
    } else {
      new_capacity__P5T=(__INTEGER)(Self__N5T->parent_arrayed_collection__GRC.capacity__S5T <<  1);
      __tmp__XAU=Self__N5T->parent_arrayed_collection__GRC.storage__OAU;
      __tmp__YAU=Self__N5T->parent_arrayed_collection__GRC.capacity__S5T;
      new__TKAC=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__XAU)),((__UINTEGER_32 )(__INTEGER)(__tmp__YAU * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__P5T * ((__INTEGER )(sizeof(void *)))))));
      __tmp__GLAC=(__INTEGER)(new_capacity__P5T -  1);
      Self__5IWD=__tmp__YAU;
      while ((Self__5IWD <= __tmp__GLAC)) {
        new__TKAC[Self__5IWD]=NULL;
        Self__5IWD=(__INTEGER)(Self__5IWD +  1);
      };
      Self__N5T->parent_arrayed_collection__GRC.storage__OAU=new__TKAC;
      Self__N5T->parent_arrayed_collection__GRC.capacity__S5T=new_capacity__P5T;
      Self__N5T->parent_arrayed_collection__GRC.upper__Q5T=(__INTEGER)(Self__N5T->parent_arrayed_collection__GRC.upper__Q5T +  1);
    };
  };
  ((void **)Self__N5T->parent_arrayed_collection__GRC.storage__OAU)[Self__N5T->parent_arrayed_collection__GRC.upper__Q5T]=element__O5T;
}

static void* alias__KAP(void *tmp__MAP)
// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
{
  __INTEGER __tmp__P0RD,i__4AYE,new_capacity__2IU,other_upper__1IU;
  __INTEGER Self__NNGC,h__3JU,idx__4JU,idx__OHOB,new_capacity__PHOB;
  __INTEGER i__NHOB,typ_id__Z3JB;
  __POINTER ptr__U3JB,ptr_table__F5KG,next__E5KG,result__G5KG;
  __POINTER ptr_table__K5KG,next__J5KG,result__L5KG;
  __UINTEGER_32 sz__W3JB,a__LTHG,new_size__MTHG,t__QTHG,a__PTHG;
  __UINTEGER_32 new_size__N5KG,lab_type__M5KG;
  __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__YZT,*Self__VJU;
  void *result__M0T,*result__OAP,*e__WJU;
  void *node__L0T,*node__5JU,*node1__RHOB,*node2__SHOB,*__tmp__PLU;
  __BOOLEAN __tmp__E1T,result__NZRD;
  __FAST_ARRAYoITM_TYPE_MONOo *Self__KZRD,*o__OZRD,*__tmp__0ZRD;
  __FAST_ARRAYoITM_TYPE_MONOo *Self__ZIU;
  void **__tmp__K0RD,**__tmp__M0RD,**Self__KAYE,**__tmp__PJU,**__tmp__RJU;
  void **Self__DX4B;
  void **old_buckets__QHOB;
  __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *result__T3JB,*Self__LL5B;
  Self__YZT=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)bucket__TAP);
  result__M0T=NULL;
  node__L0T=((void **)Self__YZT->buckets__T0T)[(__INTEGER)(hash_code__ATY(tmp__MAP) % Self__YZT->capacity__O0T)];
  until_do__IUY:
  {
    if (((void *)node__L0T == (void *)NULL)) {
      __tmp__E1T=TRUE__;
    } else {
      Self__KZRD=((__FAST_ARRAYoITM_TYPE_MONOo *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__L0T)->item__50T);
      result__NZRD=FALSE__;
      o__OZRD=NULL;
      if (((void *)Self__KZRD == (void *)tmp__MAP)) {
        result__NZRD=TRUE__;
      } else {
        if (tmp__MAP==NULL) {
          __tmp__0ZRD=NULL;
        } else {
          __tmp__0ZRD=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__MAP);
        };
        o__OZRD=__tmp__0ZRD;
        if ((((void *)__tmp__0ZRD != (void *)NULL) && (Self__KZRD->parent_arrayed_collection__GRC.upper__Q5T == __tmp__0ZRD->parent_arrayed_collection__GRC.upper__Q5T))) {
          __tmp__K0RD=Self__KZRD->parent_arrayed_collection__GRC.storage__OAU;
          __tmp__M0RD=__tmp__0ZRD->parent_arrayed_collection__GRC.storage__OAU;
          __tmp__P0RD=(__INTEGER)(Self__KZRD->parent_arrayed_collection__GRC.upper__Q5T +  1);
          Self__KAYE=((void **)__tmp__K0RD);
          i__4AYE=(__INTEGER)(__tmp__P0RD -  1);
          while (((i__4AYE >=  0) && ((void *)Self__KAYE[i__4AYE] == (void *)((void **)__tmp__M0RD)[i__4AYE]))) {
            i__4AYE=(__INTEGER)(i__4AYE -  1);
          };
          result__NZRD=(i__4AYE <  0);
        };
      };
      __tmp__E1T=result__NZRD;
    };
    if ((! __tmp__E1T)) {
      node__L0T=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__L0T)->next__L1T;
      goto until_do__IUY;
    };
  };
  if (((void *)node__L0T != (void *)NULL)) {
    result__M0T=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__L0T)->item__50T;
  };
  result__OAP=result__M0T;
  if (((void *)result__M0T == (void *)NULL)) {
    result__OAP=create_with_capacity__VOP((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__MAP)->parent_arrayed_collection__GRC.upper__Q5T +  1));
    Self__ZIU=((__FAST_ARRAYoITM_TYPE_MONOo *)result__OAP);
    new_capacity__2IU= 0;
    other_upper__1IU=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__MAP)->parent_arrayed_collection__GRC.upper__Q5T;
    if ((other_upper__1IU >=  0)) {
      new_capacity__2IU=(__INTEGER)(other_upper__1IU +  1);
      if ((Self__ZIU->parent_arrayed_collection__GRC.capacity__S5T < new_capacity__2IU)) {
        Self__ZIU->parent_arrayed_collection__GRC.storage__OAU=create__2BOB(new_capacity__2IU);
        Self__ZIU->parent_arrayed_collection__GRC.capacity__S5T=new_capacity__2IU;
      };
      __tmp__PJU=Self__ZIU->parent_arrayed_collection__GRC.storage__OAU;
      __tmp__RJU=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__MAP)->parent_arrayed_collection__GRC.storage__OAU;
      Self__DX4B=((void **)__tmp__PJU);
      Self__NNGC=other_upper__1IU;
      while ((Self__NNGC >=  0)) {
        Self__DX4B[Self__NNGC]=((void **)__tmp__RJU)[Self__NNGC];
        Self__NNGC=(__INTEGER)(Self__NNGC -  1);
      };
    };
    Self__ZIU->parent_arrayed_collection__GRC.upper__Q5T=other_upper__1IU;
    Self__VJU=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)bucket__TAP);
    e__WJU=result__OAP;
    fast_has__4LZ(Self__VJU,result__OAP);
    fast_has__4LZ(Self__VJU,result__OAP);
    h__3JU=hash_code__ATY(result__OAP);
    idx__4JU=(__INTEGER)(h__3JU % Self__VJU->capacity__O0T);
    node__5JU=((void **)Self__VJU->buckets__T0T)[idx__4JU];
    while ((! (((void *)node__5JU == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__5JU)->item__50T == (void *)e__WJU)))) {
      node__5JU=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__5JU)->next__L1T;
    };
    if (((void *)node__5JU == (void *)NULL)) {
      if ((Self__VJU->capacity__O0T == Self__VJU->count__CLU)) {
        idx__OHOB= 0;
        node1__RHOB=NULL;
        node2__SHOB=NULL;
        new_capacity__PHOB=prime_number_ceiling__33Z((__INTEGER)(Self__VJU->capacity__O0T +  1));
        old_buckets__QHOB=Self__VJU->buckets__T0T;
        Self__VJU->buckets__T0T=create__SP5(new_capacity__PHOB);
        i__NHOB=(__INTEGER)(Self__VJU->capacity__O0T -  1);
        Self__VJU->capacity__O0T=new_capacity__PHOB;
        while ((i__NHOB >=  0)) {
          node1__RHOB=((void **)old_buckets__QHOB)[i__NHOB];
          while (((void *)node1__RHOB != (void *)NULL)) {
            node2__SHOB=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__RHOB)->next__L1T;
            idx__OHOB=(__INTEGER)(hash_code__ATY(((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__RHOB)->item__50T) % Self__VJU->capacity__O0T);
            ((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__RHOB)->next__L1T=((void **)Self__VJU->buckets__T0T)[idx__OHOB];
            ((void **)Self__VJU->buckets__T0T)[idx__OHOB]=node1__RHOB;
            node1__RHOB=node2__SHOB;
          };
          i__NHOB=(__INTEGER)(i__NHOB -  1);
        };
        idx__4JU=(__INTEGER)(h__3JU % Self__VJU->capacity__O0T);
      };
      __tmp__PLU=((void **)Self__VJU->buckets__T0T)[idx__4JU];
      result__T3JB=NULL;
      ptr__U3JB=((__POINTER )(NULL));
      typ_id__Z3JB= 0;
      sz__W3JB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo));
      if ((sz__W3JB ==  0)) {
        result__T3JB=HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__;
      } else {
        typ_id__Z3JB=__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__W3JB);
        if ((typ_id__Z3JB == (__INTEGER)(-  1))) {
          a__LTHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__MTHG=(__UINTEGER_32)((__UINTEGER_32)(sz__W3JB + a__LTHG) & (__UINTEGER_32)(~ a__LTHG));
          ptr_table__F5KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MTHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__E5KG=((__POINTER )(NULL));
          result__G5KG=((__POINTER *)ptr_table__F5KG)[ 0];
          if ((result__G5KG == (void *)NULL)) {
            result__G5KG=new_lab__RUJ(new_size__MTHG);
            next__E5KG=(void *)((unsigned long)result__G5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MTHG)));
            ((__POINTER *)next__E5KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__F5KG)[ 0]=next__E5KG;
          } else {
            next__E5KG=((__POINTER *)result__G5KG)[ 0];
            if ((next__E5KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G5KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__MTHG <<  1)) <=  4096)) {
                next__E5KG=(void *)((unsigned long)result__G5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MTHG)));
              } else {
                next__E5KG=new_lab__RUJ(new_size__MTHG);
              };
              ((__POINTER *)next__E5KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__F5KG)[ 0]=next__E5KG;
            } else {
              ((__POINTER *)result__G5KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__E5KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__G5KG=next__E5KG;
            };
          };
          ptr__U3JB=result__G5KG;
        } else {
          t__QTHG=((__UINTEGER_32 )typ_id__Z3JB);
          a__PTHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__N5KG=(__UINTEGER_32)((__UINTEGER_32)(sz__W3JB + a__PTHG) & (__UINTEGER_32)(~ a__PTHG));
          ptr_table__K5KG=((__POINTER )(&(table_type[(t__QTHG)])));
          lab_type__M5KG=(__UINTEGER_32)(t__QTHG |  1);
          next__J5KG=((__POINTER )(NULL));
          result__L5KG=((__POINTER *)ptr_table__K5KG)[ 0];
          if ((result__L5KG == (void *)NULL)) {
            result__L5KG=new_lab__RUJ(lab_type__M5KG);
            next__J5KG=(void *)((unsigned long)result__L5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N5KG)));
            ((__POINTER *)next__J5KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__K5KG)[ 0]=next__J5KG;
          } else {
            next__J5KG=((__POINTER *)result__L5KG)[ 0];
            if ((next__J5KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L5KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__N5KG <<  1)) <=  4096)) {
                next__J5KG=(void *)((unsigned long)result__L5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N5KG)));
              } else {
                next__J5KG=new_lab__RUJ(lab_type__M5KG);
              };
              ((__POINTER *)next__J5KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__K5KG)[ 0]=next__J5KG;
            } else {
              ((__POINTER *)result__L5KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__J5KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__L5KG=next__J5KG;
            };
          };
          ptr__U3JB=result__L5KG;
        };
        result__T3JB=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)ptr__U3JB);
        *(result__T3JB) = *(HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__);
      };
      Self__LL5B=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)result__T3JB);
      Self__LL5B->item__50T=result__OAP;
      Self__LL5B->next__L1T=__tmp__PLU;
      node__5JU=result__T3JB;
      ((void **)Self__VJU->buckets__T0T)[idx__4JU]=result__T3JB;
      Self__VJU->count__CLU=(__INTEGER)(Self__VJU->count__CLU +  1);
    };
  };
  free__TEP(tmp__MAP);
  return(result__OAP);
}

static void free__5Z3(void *tmp__B03)
// ({NULLxFAST_ARRAYoSTRING_CONSTANTo}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__Y0DB,__tmp__21DB,__tmp__ZSCC,Self__ZWWD;
  __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__W0DB;
  __BOOLEAN __tmp__G1DB;
  void **__tmp__11DB,**new__GSCC;
  ((__FAST_ARRAYoSTRING_CONSTANTo *)tmp__B03)->parent_arrayed_collection__30B.upper__I5N=(__INTEGER)(-  1);
  Self__W0DB=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__AAL);
  new_capacity__Y0DB= 0;
  if (((__INTEGER)(Self__W0DB->parent_arrayed_collection__55K.upper__B5S +  1) <= (__INTEGER)(Self__W0DB->parent_arrayed_collection__55K.capacity__UBT -  1))) {
    Self__W0DB->parent_arrayed_collection__55K.upper__B5S=(__INTEGER)(Self__W0DB->parent_arrayed_collection__55K.upper__B5S +  1);
    __tmp__G1DB=TRUE__;
  } else {
    __tmp__G1DB=FALSE__;
  };
  if ((! __tmp__G1DB)) {
    if ((Self__W0DB->parent_arrayed_collection__55K.capacity__UBT ==  0)) {
      Self__W0DB->parent_arrayed_collection__55K.storage__5BT=create__4TWB( 2);
      Self__W0DB->parent_arrayed_collection__55K.capacity__UBT= 2;
      Self__W0DB->parent_arrayed_collection__55K.upper__B5S= 0;
    } else {
      new_capacity__Y0DB=(__INTEGER)(Self__W0DB->parent_arrayed_collection__55K.capacity__UBT <<  1);
      __tmp__11DB=Self__W0DB->parent_arrayed_collection__55K.storage__5BT;
      __tmp__21DB=Self__W0DB->parent_arrayed_collection__55K.capacity__UBT;
      new__GSCC=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__11DB)),((__UINTEGER_32 )(__INTEGER)(__tmp__21DB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__Y0DB * ((__INTEGER )(sizeof(void *)))))));
      __tmp__ZSCC=(__INTEGER)(new_capacity__Y0DB -  1);
      Self__ZWWD=__tmp__21DB;
      while ((Self__ZWWD <= __tmp__ZSCC)) {
        new__GSCC[Self__ZWWD]=NULL;
        Self__ZWWD=(__INTEGER)(Self__ZWWD +  1);
      };
      Self__W0DB->parent_arrayed_collection__55K.storage__5BT=new__GSCC;
      Self__W0DB->parent_arrayed_collection__55K.capacity__UBT=new_capacity__Y0DB;
      Self__W0DB->parent_arrayed_collection__55K.upper__B5S=(__INTEGER)(Self__W0DB->parent_arrayed_collection__55K.upper__B5S +  1);
    };
  };
  ((void **)Self__W0DB->parent_arrayed_collection__55K.storage__5BT)[Self__W0DB->parent_arrayed_collection__55K.upper__B5S]=tmp__B03;
}

static void free__TEP(void *tmp__VEP)
// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__2CU,__tmp__DEU,__tmp__ZMAC,Self__4KWD;
  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__0CU;
  __BOOLEAN __tmp__LDU;
  void **__tmp__CEU,**new__GMAC;
  ((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__VEP)->parent_arrayed_collection__GRC.upper__Q5T=(__INTEGER)(-  1);
  Self__0CU=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O);
  new_capacity__2CU= 0;
  if (((__INTEGER)(Self__0CU->parent_arrayed_collection__N5O.upper__IZT +  1) <= (__INTEGER)(Self__0CU->parent_arrayed_collection__N5O.capacity__4CU -  1))) {
    Self__0CU->parent_arrayed_collection__N5O.upper__IZT=(__INTEGER)(Self__0CU->parent_arrayed_collection__N5O.upper__IZT +  1);
    __tmp__LDU=TRUE__;
  } else {
    __tmp__LDU=FALSE__;
  };
  if ((! __tmp__LDU)) {
    if ((Self__0CU->parent_arrayed_collection__N5O.capacity__4CU ==  0)) {
      Self__0CU->parent_arrayed_collection__N5O.storage__ZDU=create__0DOB( 2);
      Self__0CU->parent_arrayed_collection__N5O.capacity__4CU= 2;
      Self__0CU->parent_arrayed_collection__N5O.upper__IZT= 0;
    } else {
      new_capacity__2CU=(__INTEGER)(Self__0CU->parent_arrayed_collection__N5O.capacity__4CU <<  1);
      __tmp__CEU=Self__0CU->parent_arrayed_collection__N5O.storage__ZDU;
      __tmp__DEU=Self__0CU->parent_arrayed_collection__N5O.capacity__4CU;
      new__GMAC=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__CEU)),((__UINTEGER_32 )(__INTEGER)(__tmp__DEU * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__2CU * ((__INTEGER )(sizeof(void *)))))));
      __tmp__ZMAC=(__INTEGER)(new_capacity__2CU -  1);
      Self__4KWD=__tmp__DEU;
      while ((Self__4KWD <= __tmp__ZMAC)) {
        new__GMAC[Self__4KWD]=NULL;
        Self__4KWD=(__INTEGER)(Self__4KWD +  1);
      };
      Self__0CU->parent_arrayed_collection__N5O.storage__ZDU=new__GMAC;
      Self__0CU->parent_arrayed_collection__N5O.capacity__4CU=new_capacity__2CU;
      Self__0CU->parent_arrayed_collection__N5O.upper__IZT=(__INTEGER)(Self__0CU->parent_arrayed_collection__N5O.upper__IZT +  1);
    };
  };
  ((void **)Self__0CU->parent_arrayed_collection__N5O.storage__ZDU)[Self__0CU->parent_arrayed_collection__N5O.upper__IZT]=tmp__VEP;
}

static void* alias__4PIB(void *tmp__AQIB)
// ({NULLxFAST_ARRAYoSTRING_CONSTANTo}) With resultNo recursive, No inlinable.
{
  __INTEGER __tmp__A1SE,i__1FHF,h__5QBC,idx__ARBC,idx__MMGD;
  __INTEGER new_capacity__NMGD,i__LMGD,typ_id__I5CD;
  __POINTER ptr__D5CD,ptr_table__P5KG,next__O5KG,result__Q5KG;
  __POINTER ptr_table__U5KG,next__T5KG,result__V5KG;
  __UINTEGER_32 sz__F5CD,a__3UHG,new_size__4UHG,t__CVHG,a__BVHG;
  __UINTEGER_32 new_size__X5KG,lab_type__W5KG;
  __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__345B,*Self__XQBC;
  void *result__R55B,*result__CQIB,*e__YQBC;
  void *node__Q55B,*node__BRBC,*node1__PMGD,*node2__QMGD,*__tmp__RSBC;
  __BOOLEAN __tmp__JAAC,result__4ZSE;
  __FAST_ARRAYoSTRING_CONSTANTo *Self__1ZSE,*o__5ZSE,*__tmp__L0SE;
  void **__tmp__10SE,**__tmp__30SE,**Self__HFHF;
  void **old_buckets__OMGD;
  __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *result__C5CD;
  __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *Self__F4TD;
  Self__345B=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__GQIB);
  result__R55B=NULL;
  node__Q55B=((void **)Self__345B->buckets__Y55B)[(__INTEGER)(hash_code__L4HC(tmp__AQIB) % Self__345B->capacity__T55B)];
  until_do__T5HC:
  {
    if (((void *)node__Q55B == (void *)NULL)) {
      __tmp__JAAC=TRUE__;
    } else {
      Self__1ZSE=((__FAST_ARRAYoSTRING_CONSTANTo *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__Q55B)->item__EAAC);
      result__4ZSE=FALSE__;
      o__5ZSE=NULL;
      if (((void *)Self__1ZSE == (void *)tmp__AQIB)) {
        result__4ZSE=TRUE__;
      } else {
        if (tmp__AQIB==NULL) {
          __tmp__L0SE=NULL;
        } else {
          __tmp__L0SE=((__FAST_ARRAYoSTRING_CONSTANTo *)tmp__AQIB);
        };
        o__5ZSE=__tmp__L0SE;
        if ((((void *)__tmp__L0SE != (void *)NULL) && (Self__1ZSE->parent_arrayed_collection__30B.upper__I5N == __tmp__L0SE->parent_arrayed_collection__30B.upper__I5N))) {
          __tmp__10SE=Self__1ZSE->parent_arrayed_collection__30B.storage__WDR;
          __tmp__30SE=__tmp__L0SE->parent_arrayed_collection__30B.storage__WDR;
          __tmp__A1SE=(__INTEGER)(Self__1ZSE->parent_arrayed_collection__30B.upper__I5N +  1);
          Self__HFHF=((void **)__tmp__10SE);
          i__1FHF=(__INTEGER)(__tmp__A1SE -  1);
          while (((i__1FHF >=  0) && ((void *)Self__HFHF[i__1FHF] == (void *)((void **)__tmp__30SE)[i__1FHF]))) {
            i__1FHF=(__INTEGER)(i__1FHF -  1);
          };
          result__4ZSE=(i__1FHF <  0);
        };
      };
      __tmp__JAAC=result__4ZSE;
    };
    if ((! __tmp__JAAC)) {
      node__Q55B=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__Q55B)->next__QAAC;
      goto until_do__T5HC;
    };
  };
  if (((void *)node__Q55B != (void *)NULL)) {
    result__R55B=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__Q55B)->item__EAAC;
  };
  result__CQIB=result__R55B;
  if (((void *)result__R55B == (void *)NULL)) {
    result__CQIB=create_with_capacity__GMD((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)tmp__AQIB)->parent_arrayed_collection__30B.upper__I5N +  1));
    copy__0PBC(result__CQIB,tmp__AQIB);
    Self__XQBC=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__GQIB);
    e__YQBC=result__CQIB;
    fast_has__ULKC(Self__XQBC,result__CQIB);
    fast_has__ULKC(Self__XQBC,result__CQIB);
    h__5QBC=hash_code__L4HC(result__CQIB);
    idx__ARBC=(__INTEGER)(h__5QBC % Self__XQBC->capacity__T55B);
    node__BRBC=((void **)Self__XQBC->buckets__Y55B)[idx__ARBC];
    while ((! (((void *)node__BRBC == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__BRBC)->item__EAAC == (void *)e__YQBC)))) {
      node__BRBC=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__BRBC)->next__QAAC;
    };
    if (((void *)node__BRBC == (void *)NULL)) {
      if ((Self__XQBC->capacity__T55B == Self__XQBC->count__ESBC)) {
        idx__MMGD= 0;
        node1__PMGD=NULL;
        node2__QMGD=NULL;
        new_capacity__NMGD=prime_number_ceiling__33Z((__INTEGER)(Self__XQBC->capacity__T55B +  1));
        old_buckets__OMGD=Self__XQBC->buckets__Y55B;
        Self__XQBC->buckets__Y55B=create__T3UC(new_capacity__NMGD);
        i__LMGD=(__INTEGER)(Self__XQBC->capacity__T55B -  1);
        Self__XQBC->capacity__T55B=new_capacity__NMGD;
        while ((i__LMGD >=  0)) {
          node1__PMGD=((void **)old_buckets__OMGD)[i__LMGD];
          while (((void *)node1__PMGD != (void *)NULL)) {
            node2__QMGD=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__PMGD)->next__QAAC;
            idx__MMGD=(__INTEGER)(hash_code__L4HC(((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__PMGD)->item__EAAC) % Self__XQBC->capacity__T55B);
            ((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__PMGD)->next__QAAC=((void **)Self__XQBC->buckets__Y55B)[idx__MMGD];
            ((void **)Self__XQBC->buckets__Y55B)[idx__MMGD]=node1__PMGD;
            node1__PMGD=node2__QMGD;
          };
          i__LMGD=(__INTEGER)(i__LMGD -  1);
        };
        idx__ARBC=(__INTEGER)(h__5QBC % Self__XQBC->capacity__T55B);
      };
      __tmp__RSBC=((void **)Self__XQBC->buckets__Y55B)[idx__ARBC];
      result__C5CD=NULL;
      ptr__D5CD=((__POINTER )(NULL));
      typ_id__I5CD= 0;
      sz__F5CD=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo));
      if ((sz__F5CD ==  0)) {
        result__C5CD=HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
      } else {
        typ_id__I5CD=__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__F5CD);
        if ((typ_id__I5CD == (__INTEGER)(-  1))) {
          a__3UHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__4UHG=(__UINTEGER_32)((__UINTEGER_32)(sz__F5CD + a__3UHG) & (__UINTEGER_32)(~ a__3UHG));
          ptr_table__P5KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4UHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__O5KG=((__POINTER )(NULL));
          result__Q5KG=((__POINTER *)ptr_table__P5KG)[ 0];
          if ((result__Q5KG == (void *)NULL)) {
            result__Q5KG=new_lab__RUJ(new_size__4UHG);
            next__O5KG=(void *)((unsigned long)result__Q5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4UHG)));
            ((__POINTER *)next__O5KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__P5KG)[ 0]=next__O5KG;
          } else {
            next__O5KG=((__POINTER *)result__Q5KG)[ 0];
            if ((next__O5KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q5KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4UHG <<  1)) <=  4096)) {
                next__O5KG=(void *)((unsigned long)result__Q5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4UHG)));
              } else {
                next__O5KG=new_lab__RUJ(new_size__4UHG);
              };
              ((__POINTER *)next__O5KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__P5KG)[ 0]=next__O5KG;
            } else {
              ((__POINTER *)result__Q5KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__O5KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__Q5KG=next__O5KG;
            };
          };
          ptr__D5CD=result__Q5KG;
        } else {
          t__CVHG=((__UINTEGER_32 )typ_id__I5CD);
          a__BVHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__X5KG=(__UINTEGER_32)((__UINTEGER_32)(sz__F5CD + a__BVHG) & (__UINTEGER_32)(~ a__BVHG));
          ptr_table__U5KG=((__POINTER )(&(table_type[(t__CVHG)])));
          lab_type__W5KG=(__UINTEGER_32)(t__CVHG |  1);
          next__T5KG=((__POINTER )(NULL));
          result__V5KG=((__POINTER *)ptr_table__U5KG)[ 0];
          if ((result__V5KG == (void *)NULL)) {
            result__V5KG=new_lab__RUJ(lab_type__W5KG);
            next__T5KG=(void *)((unsigned long)result__V5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5KG)));
            ((__POINTER *)next__T5KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__U5KG)[ 0]=next__T5KG;
          } else {
            next__T5KG=((__POINTER *)result__V5KG)[ 0];
            if ((next__T5KG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V5KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__X5KG <<  1)) <=  4096)) {
                next__T5KG=(void *)((unsigned long)result__V5KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5KG)));
              } else {
                next__T5KG=new_lab__RUJ(lab_type__W5KG);
              };
              ((__POINTER *)next__T5KG)[ 0]=NULL;
              ((__POINTER *)ptr_table__U5KG)[ 0]=next__T5KG;
            } else {
              ((__POINTER *)result__V5KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__T5KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__V5KG=next__T5KG;
            };
          };
          ptr__D5CD=result__V5KG;
        };
        result__C5CD=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)ptr__D5CD);
        *(result__C5CD) = *(HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__);
      };
      Self__F4TD=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)result__C5CD);
      Self__F4TD->item__EAAC=result__CQIB;
      Self__F4TD->next__QAAC=__tmp__RSBC;
      node__BRBC=result__C5CD;
      ((void **)Self__XQBC->buckets__Y55B)[idx__ARBC]=result__C5CD;
      Self__XQBC->count__ESBC=(__INTEGER)(Self__XQBC->count__ESBC +  1);
    };
  };
  free__5Z3(tmp__AQIB);
  return(result__CQIB);
}

static void add__XTEB(__HASHED_SEToSTRING_CONSTANTo *Self__YTEB,void *e__ZTEB)
// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
{
  __INTEGER h__AUEB,idx__BUEB,idx__A3WB,new_capacity__B3WB,i__52WB;
  __INTEGER typ_id__5DTB;
  __POINTER ptr__0DTB,ptr_table__Z5KG,next__Y5KG,result__05KG;
  __POINTER ptr_table__45KG,next__35KG,result__55KG;
  __UINTEGER_32 sz__2DTB,a__XVHG,new_size__YVHG,t__2VHG,a__1VHG;
  __UINTEGER_32 new_size__BALG,lab_type__AALG;
  void *node__CUEB,*node1__D3WB,*node2__E3WB,*__tmp__RVEB;
  void **old_buckets__C3WB;
  __HASHED_SET_NODEoSTRING_CONSTANTo *result__ZDTB,*Self__4TBC;
  has__P3IB(Self__YTEB,e__ZTEB);
  has__P3IB(Self__YTEB,e__ZTEB);
  h__AUEB=hash_code__LQU(e__ZTEB);
  idx__BUEB=(__INTEGER)(h__AUEB % Self__YTEB->capacity__PNR);
  node__CUEB=((void **)Self__YTEB->buckets__3KT)[idx__BUEB];
  while ((! (((void *)node__CUEB == (void *)NULL) || __infix_equal_equal__GQBB(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__CUEB)->item__JLT,e__ZTEB)))) {
    node__CUEB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__CUEB)->next__ULT;
  };
  if (((void *)node__CUEB == (void *)NULL)) {
    if ((Self__YTEB->capacity__PNR == Self__YTEB->count__UKW)) {
      idx__A3WB= 0;
      node1__D3WB=NULL;
      node2__E3WB=NULL;
      new_capacity__B3WB=prime_number_ceiling__33Z((__INTEGER)(Self__YTEB->capacity__PNR +  1));
      old_buckets__C3WB=Self__YTEB->buckets__3KT;
      Self__YTEB->buckets__3KT=create__221(new_capacity__B3WB);
      i__52WB=(__INTEGER)(Self__YTEB->capacity__PNR -  1);
      Self__YTEB->capacity__PNR=new_capacity__B3WB;
      while ((i__52WB >=  0)) {
        node1__D3WB=((void **)old_buckets__C3WB)[i__52WB];
        while (((void *)node1__D3WB != (void *)NULL)) {
          node2__E3WB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__D3WB)->next__ULT;
          idx__A3WB=(__INTEGER)(hash_code__LQU(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__D3WB)->item__JLT) % Self__YTEB->capacity__PNR);
          ((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__D3WB)->next__ULT=((void **)Self__YTEB->buckets__3KT)[idx__A3WB];
          ((void **)Self__YTEB->buckets__3KT)[idx__A3WB]=node1__D3WB;
          node1__D3WB=node2__E3WB;
        };
        i__52WB=(__INTEGER)(i__52WB -  1);
      };
      idx__BUEB=(__INTEGER)(h__AUEB % Self__YTEB->capacity__PNR);
    };
    __tmp__RVEB=((void **)Self__YTEB->buckets__3KT)[idx__BUEB];
    result__ZDTB=NULL;
    ptr__0DTB=((__POINTER )(NULL));
    typ_id__5DTB= 0;
    sz__2DTB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoSTRING_CONSTANTo));
    if ((sz__2DTB ==  0)) {
      result__ZDTB=HASHED_SET_NODEoSTRING_CONSTANTo__;
    } else {
      typ_id__5DTB=__HASHED_SET_NODEoSTRING_CONSTANTo__;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__2DTB);
      if ((typ_id__5DTB == (__INTEGER)(-  1))) {
        a__XVHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__YVHG=(__UINTEGER_32)((__UINTEGER_32)(sz__2DTB + a__XVHG) & (__UINTEGER_32)(~ a__XVHG));
        ptr_table__Z5KG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YVHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__Y5KG=((__POINTER )(NULL));
        result__05KG=((__POINTER *)ptr_table__Z5KG)[ 0];
        if ((result__05KG == (void *)NULL)) {
          result__05KG=new_lab__RUJ(new_size__YVHG);
          next__Y5KG=(void *)((unsigned long)result__05KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVHG)));
          ((__POINTER *)next__Y5KG)[ 0]=NULL;
          ((__POINTER *)ptr_table__Z5KG)[ 0]=next__Y5KG;
        } else {
          next__Y5KG=((__POINTER *)result__05KG)[ 0];
          if ((next__Y5KG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__05KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YVHG <<  1)) <=  4096)) {
              next__Y5KG=(void *)((unsigned long)result__05KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVHG)));
            } else {
              next__Y5KG=new_lab__RUJ(new_size__YVHG);
            };
            ((__POINTER *)next__Y5KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__Z5KG)[ 0]=next__Y5KG;
          } else {
            ((__POINTER *)result__05KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y5KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__05KG=next__Y5KG;
          };
        };
        ptr__0DTB=result__05KG;
      } else {
        t__2VHG=((__UINTEGER_32 )typ_id__5DTB);
        a__1VHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__BALG=(__UINTEGER_32)((__UINTEGER_32)(sz__2DTB + a__1VHG) & (__UINTEGER_32)(~ a__1VHG));
        ptr_table__45KG=((__POINTER )(&(table_type[(t__2VHG)])));
        lab_type__AALG=(__UINTEGER_32)(t__2VHG |  1);
        next__35KG=((__POINTER )(NULL));
        result__55KG=((__POINTER *)ptr_table__45KG)[ 0];
        if ((result__55KG == (void *)NULL)) {
          result__55KG=new_lab__RUJ(lab_type__AALG);
          next__35KG=(void *)((unsigned long)result__55KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BALG)));
          ((__POINTER *)next__35KG)[ 0]=NULL;
          ((__POINTER *)ptr_table__45KG)[ 0]=next__35KG;
        } else {
          next__35KG=((__POINTER *)result__55KG)[ 0];
          if ((next__35KG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__55KG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__BALG <<  1)) <=  4096)) {
              next__35KG=(void *)((unsigned long)result__55KG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BALG)));
            } else {
              next__35KG=new_lab__RUJ(lab_type__AALG);
            };
            ((__POINTER *)next__35KG)[ 0]=NULL;
            ((__POINTER *)ptr_table__45KG)[ 0]=next__35KG;
          } else {
            ((__POINTER *)result__55KG)[ 0]=(void *)((unsigned long)((__POINTER *)next__35KG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__55KG=next__35KG;
          };
        };
        ptr__0DTB=result__55KG;
      };
      result__ZDTB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)ptr__0DTB);
      *(result__ZDTB) = *(HASHED_SET_NODEoSTRING_CONSTANTo__);
    };
    Self__4TBC=((__HASHED_SET_NODEoSTRING_CONSTANTo *)result__ZDTB);
    Self__4TBC->item__JLT=e__ZTEB;
    Self__4TBC->next__ULT=__tmp__RVEB;
    node__CUEB=result__ZDTB;
    ((void **)Self__YTEB->buckets__3KT)[idx__BUEB]=result__ZDTB;
    Self__YTEB->count__UKW=(__INTEGER)(Self__YTEB->count__UKW +  1);
  };
}

static __BOOLEAN is_hexadecimal_digit__51JE(__CHARACTER Self__A2JE)
// ({CHARACTER}) With resultNo recursive, No inlinable.
{
  __BOOLEAN result__C2JE,result__AWHG,__tmp__K2JE,__tmp__Z2JE;
  __BOOLEAN result__ZFOE;
  result__C2JE=FALSE__;
  result__AWHG=FALSE__;
  if ((((__INTEGER_8 )Self__A2JE) >= ((__INTEGER_8 )'0'))) {
    result__AWHG=(((__INTEGER_8 )Self__A2JE) <= ((__INTEGER_8 )'9'));
  };
  if (result__AWHG) {
    result__C2JE=TRUE__;
    __tmp__K2JE=TRUE__;
  } else {
    __tmp__K2JE=FALSE__;
  };
  if (__tmp__K2JE) {
    __tmp__Z2JE=TRUE__;
  } else {
    result__ZFOE=(((__INTEGER_8 )Self__A2JE) >= ((__INTEGER_8 )'a'));
    if (result__ZFOE) {
      result__C2JE=(((__INTEGER_8 )Self__A2JE) <= ((__INTEGER_8 )'f'));
    };
    __tmp__Z2JE=result__ZFOE;
  };
  if ((! __tmp__Z2JE)) {
    if ((((__INTEGER_8 )Self__A2JE) >= ((__INTEGER_8 )'A'))) {
      result__C2JE=(((__INTEGER_8 )Self__A2JE) <= ((__INTEGER_8 )'F'));
    };
  };
  return(result__C2JE);
}

static void* read_prototype__I2N(__PARSER *Self__J2N,void *style__K2N)
// ({PARSER},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *name__M2N,*n__DBP,*element__XS4B,*n__YTQB;
  void *t__P2N,*result__Q2N;
  __INTEGER old_pos__S2N,old_derive__T2N,sav_derive__U2N,idx__IBP;
  __INTEGER __tmp__FPIG,typ_id__YPFB,new_capacity__B34,__tmp__F44;
  __INTEGER __tmp__OWBC,Self__HSWD,result__4XT,__tmp__HYT,idx__CT4B;
  __INTEGER idx__2TQB,__tmp__KPIG,typ_id__MB0B,new_capacity__PBDC;
  __INTEGER __tmp__TCDC,__tmp__TNUD,Self__CPUE;
  __POSITION pos__RU1F,pos__TU1F,pos__GW1F,__tmp__NBO;
  void *result__HBP;
  __ITM_TYPE_GENERIC *result__SPFB,*Self__GV4B;
  __POINTER ptr__TPFB,ptr_table__JALG,next__IALG,result__KALG;
  __POINTER ptr_table__OALG,next__NALG,result__PALG,ptr__HB0B;
  __POINTER ptr_table__WALG,next__VALG,result__XALG,ptr_table__1ALG;
  __POINTER next__0ALG,result__2ALG;
  __UINTEGER_32 sz__VPFB,a__EWHG,new_size__FWHG,t__JWHG,a__IWHG;
  __UINTEGER_32 new_size__RALG,lab_type__QALG,sz__JB0B,a__VWHG;
  __UINTEGER_32 new_size__WWHG,t__0WHG,a__ZWHG,new_size__4ALG;
  __UINTEGER_32 lab_type__3ALG;
  void *result__1TQB;
  __ITM_TYPE_STYLE *result__GB0B,*Self__ESDC;
  void *genericity__N2N,*result__2OIG,*lt__FBP;
  __BOOLEAN continue__O2N,result__CALG,result__FALG,__tmp__P34;
  __BOOLEAN result__SALG,__tmp__3BDC;
  __CHARACTER result__DALG,result__GALG,result__TALG;
  __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__3OIG,*Self__4OIG;
  void **__tmp__PUIG,**__tmp__QUIG,**__tmp__RUIG,**__tmp__E44,**new__1VBC;
  __FAST_ARRAYoITM_TYPE_GENERICo *Self__524;
  __FAST_ARRAYoSTRING_CONSTANTo *Self__1XT;
  void **__tmp__GYT,**Self__WS4B;
  void **__tmp__SUIG,**__tmp__TUIG,**__tmp__SCDC,**new__ANUD;
  __FAST_ARRAYoITM_TYPE_STYLEo *Self__NBDC;
  name__M2N=NULL;
  genericity__N2N=NULL;
  continue__O2N=FALSE__;
  t__P2N=NULL;
  result__Q2N=NULL;
  old_pos__S2N= 0;
  old_derive__T2N= 0;
  sav_derive__U2N= 0;
  if (read_cap_identifier__X2J()) {
    old_pos__S2N=position__V0B;
    old_derive__T2N=short_derive__O1B;
    name__M2N=last_string__NTC;
    result__CALG=FALSE__;
    if ((! read_space__MMD())) {
      result__CALG=FALSE__;
    } else {
      result__DALG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__DALG=((__CHARACTER )(( 0)));
      } else {
        result__DALG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__DALG == '[')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__CALG=TRUE__;
      };
    };
    if (result__CALG) {
      short__token__to__R0C((&__string_97),(__INTEGER)(old_pos__S2N - ((__STRING_CONSTANT *)name__M2N)->count__4C),old_pos__S2N);
      result__2OIG=NULL;
      if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O)->parent_arrayed_collection__N5O.upper__IZT <  0)) {
        result__2OIG=create_with_capacity__VOP( 16);
      } else {
        Self__3OIG=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O);
        result__2OIG=((void **)Self__3OIG->parent_arrayed_collection__N5O.storage__ZDU)[Self__3OIG->parent_arrayed_collection__N5O.upper__IZT];
        Self__4OIG=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__O5O);
        Self__4OIG->parent_arrayed_collection__N5O.upper__IZT=(__INTEGER)(Self__4OIG->parent_arrayed_collection__N5O.upper__IZT -  1);
      };
      genericity__N2N=result__2OIG;
      do {
        t__P2N=read_type__5FP(Self__J2N,FALSE__);
        if (((void *)t__P2N == (void *)NULL)) {
          pos__RU1F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_238));
          put_position__ATG(pos__RU1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        add_last__M5T(genericity__N2N,t__P2N);
        if (read_identifier__EBL()) {
          continue__O2N=TRUE__;
          pos__TU1F=current_position__A0F();
          put_error__text__WRG( 2,(&__string_203));
          put_position__ATG(pos__TU1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        } else {
          result__FALG=FALSE__;
          if ((! read_space__MMD())) {
            result__FALG=FALSE__;
          } else {
            result__GALG='\0';
            if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
              result__GALG=((__CHARACTER )(( 0)));
            } else {
              result__GALG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
            };
            if ((result__GALG == ',')) {
              position__V0B=(__INTEGER)(position__V0B +  1);
              result__FALG=TRUE__;
            };
          };
          continue__O2N=result__FALG;
        };
      } while (continue__O2N);
      genericity__N2N=alias__KAP(result__2OIG);
      n__DBP=name__M2N;
      lt__FBP=genericity__N2N;
      result__HBP=NULL;
      idx__IBP= 0;
      __tmp__FPIG=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__OBP)->parent_arrayed_collection__NBP.upper__XBP;
      __tmp__PUIG=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__OBP)->parent_arrayed_collection__NBP.storage__QNU;
      __tmp__QUIG=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__OBP)->parent_arrayed_collection__NBP.storage__QNU;
      __tmp__RUIG=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__OBP)->parent_arrayed_collection__NBP.storage__QNU;
      while (((idx__IBP <= __tmp__FPIG) && ((((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__PUIG)[idx__IBP])->parent_itm_type_mono__S4N.parent_itm_type_simple__R4N.name__MEK != (void *)n__DBP) || ((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__QUIG)[idx__IBP])->parent_itm_type_mono__S4N.style__JCP != (void *)style__K2N)) || ((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__RUIG)[idx__IBP])->list_type__TCP != (void *)lt__FBP)))) {
        idx__IBP=(__INTEGER)(idx__IBP +  1);
      };
      if ((idx__IBP <= ((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__OBP)->parent_arrayed_collection__NBP.upper__XBP)) {
        result__HBP=((void **)((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__OBP)->parent_arrayed_collection__NBP.storage__QNU)[idx__IBP];
      } else {
        result__SPFB=NULL;
        ptr__TPFB=((__POINTER )(NULL));
        typ_id__YPFB= 0;
        sz__VPFB=((__UINTEGER_32 )sizeof(__ITM_TYPE_GENERIC));
        if ((sz__VPFB ==  0)) {
          result__SPFB=ITM_TYPE_GENERIC__;
        } else {
          typ_id__YPFB=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__VPFB);
          if ((typ_id__YPFB == (__INTEGER)(-  1))) {
            a__EWHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__FWHG=(__UINTEGER_32)((__UINTEGER_32)(sz__VPFB + a__EWHG) & (__UINTEGER_32)(~ a__EWHG));
            ptr_table__JALG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FWHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__IALG=((__POINTER )(NULL));
            result__KALG=((__POINTER *)ptr_table__JALG)[ 0];
            if ((result__KALG == (void *)NULL)) {
              result__KALG=new_lab__RUJ(new_size__FWHG);
              next__IALG=(void *)((unsigned long)result__KALG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWHG)));
              ((__POINTER *)next__IALG)[ 0]=NULL;
              ((__POINTER *)ptr_table__JALG)[ 0]=next__IALG;
            } else {
              next__IALG=((__POINTER *)result__KALG)[ 0];
              if ((next__IALG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KALG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__FWHG <<  1)) <=  4096)) {
                  next__IALG=(void *)((unsigned long)result__KALG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWHG)));
                } else {
                  next__IALG=new_lab__RUJ(new_size__FWHG);
                };
                ((__POINTER *)next__IALG)[ 0]=NULL;
                ((__POINTER *)ptr_table__JALG)[ 0]=next__IALG;
              } else {
                ((__POINTER *)result__KALG)[ 0]=(void *)((unsigned long)((__POINTER *)next__IALG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__KALG=next__IALG;
              };
            };
            ptr__TPFB=result__KALG;
          } else {
            t__JWHG=((__UINTEGER_32 )typ_id__YPFB);
            a__IWHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__RALG=(__UINTEGER_32)((__UINTEGER_32)(sz__VPFB + a__IWHG) & (__UINTEGER_32)(~ a__IWHG));
            ptr_table__OALG=((__POINTER )(&(table_type[(t__JWHG)])));
            lab_type__QALG=(__UINTEGER_32)(t__JWHG |  1);
            next__NALG=((__POINTER )(NULL));
            result__PALG=((__POINTER *)ptr_table__OALG)[ 0];
            if ((result__PALG == (void *)NULL)) {
              result__PALG=new_lab__RUJ(lab_type__QALG);
              next__NALG=(void *)((unsigned long)result__PALG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RALG)));
              ((__POINTER *)next__NALG)[ 0]=NULL;
              ((__POINTER *)ptr_table__OALG)[ 0]=next__NALG;
            } else {
              next__NALG=((__POINTER *)result__PALG)[ 0];
              if ((next__NALG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PALG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__RALG <<  1)) <=  4096)) {
                  next__NALG=(void *)((unsigned long)result__PALG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RALG)));
                } else {
                  next__NALG=new_lab__RUJ(lab_type__QALG);
                };
                ((__POINTER *)next__NALG)[ 0]=NULL;
                ((__POINTER *)ptr_table__OALG)[ 0]=next__NALG;
              } else {
                ((__POINTER *)result__PALG)[ 0]=(void *)((unsigned long)((__POINTER *)next__NALG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__PALG=next__NALG;
              };
            };
            ptr__TPFB=result__PALG;
          };
          result__SPFB=((__ITM_TYPE_GENERIC *)ptr__TPFB);
          *(result__SPFB) = *(ITM_TYPE_GENERIC__);
        };
        Self__GV4B=((__ITM_TYPE_GENERIC *)result__SPFB);
        Self__GV4B->parent_itm_type_mono__S4N.parent_itm_type_simple__R4N.name__MEK=name__M2N;
        Self__GV4B->parent_itm_type_mono__S4N.style__JCP=style__K2N;
        Self__GV4B->list_type__TCP=genericity__N2N;
        result__HBP=result__SPFB;
        Self__524=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__OBP);
        new_capacity__B34= 0;
        if (((__INTEGER)(Self__524->parent_arrayed_collection__NBP.upper__XBP +  1) <= (__INTEGER)(Self__524->parent_arrayed_collection__NBP.capacity__FNU -  1))) {
          Self__524->parent_arrayed_collection__NBP.upper__XBP=(__INTEGER)(Self__524->parent_arrayed_collection__NBP.upper__XBP +  1);
          __tmp__P34=TRUE__;
        } else {
          __tmp__P34=FALSE__;
        };
        if ((! __tmp__P34)) {
          if ((Self__524->parent_arrayed_collection__NBP.capacity__FNU ==  0)) {
            Self__524->parent_arrayed_collection__NBP.storage__QNU=create__A3TB( 2);
            Self__524->parent_arrayed_collection__NBP.capacity__FNU= 2;
            Self__524->parent_arrayed_collection__NBP.upper__XBP= 0;
          } else {
            new_capacity__B34=(__INTEGER)(Self__524->parent_arrayed_collection__NBP.capacity__FNU <<  1);
            __tmp__E44=Self__524->parent_arrayed_collection__NBP.storage__QNU;
            __tmp__F44=Self__524->parent_arrayed_collection__NBP.capacity__FNU;
            new__1VBC=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__E44)),((__UINTEGER_32 )(__INTEGER)(__tmp__F44 * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__B34 * ((__INTEGER )(sizeof(void *)))))));
            __tmp__OWBC=(__INTEGER)(new_capacity__B34 -  1);
            Self__HSWD=__tmp__F44;
            while ((Self__HSWD <= __tmp__OWBC)) {
              new__1VBC[Self__HSWD]=NULL;
              Self__HSWD=(__INTEGER)(Self__HSWD +  1);
            };
            Self__524->parent_arrayed_collection__NBP.storage__QNU=new__1VBC;
            Self__524->parent_arrayed_collection__NBP.capacity__FNU=new_capacity__B34;
            Self__524->parent_arrayed_collection__NBP.upper__XBP=(__INTEGER)(Self__524->parent_arrayed_collection__NBP.upper__XBP +  1);
          };
        };
        ((void **)Self__524->parent_arrayed_collection__NBP.storage__QNU)[Self__524->parent_arrayed_collection__NBP.upper__XBP]=result__SPFB;
      };
      result__Q2N=result__HBP;
      result__SALG=FALSE__;
      if ((! read_space__MMD())) {
        result__SALG=FALSE__;
      } else {
        result__TALG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__TALG=((__CHARACTER )(( 0)));
        } else {
          result__TALG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__TALG == ']')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__SALG=TRUE__;
        };
      };
      if ((! result__SALG)) {
        pos__GW1F=current_position__A0F();
        put_error__text__WRG( 2,(&__string_204));
        put_position__ATG(pos__GW1F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
    } else {
      Self__1XT=((__FAST_ARRAYoSTRING_CONSTANTo *)keyword_generic_list__40B);
      result__4XT= 0;
      if ((Self__1XT->parent_arrayed_collection__30B.upper__I5N >=  0)) {
        __tmp__GYT=Self__1XT->parent_arrayed_collection__30B.storage__WDR;
        __tmp__HYT=Self__1XT->parent_arrayed_collection__30B.upper__I5N;
        Self__WS4B=((void **)__tmp__GYT);
        element__XS4B=name__M2N;
        idx__CT4B= 0;
        while ((! ((idx__CT4B > __tmp__HYT) || ((void *)element__XS4B == (void *)Self__WS4B[idx__CT4B])))) {
          idx__CT4B=(__INTEGER)(idx__CT4B +  1);
        };
        result__4XT=idx__CT4B;
      };
      if ((result__4XT <= ((__FAST_ARRAYoSTRING_CONSTANTo *)keyword_generic_list__40B)->parent_arrayed_collection__30B.upper__I5N)) {
        short__token__to__R0C((&__string_98),(__INTEGER)(old_pos__S2N - ((__STRING_CONSTANT *)name__M2N)->count__4C),old_pos__S2N);
        result__Q2N=type_null__15N;
      } else {
        if (((void *)style__K2N == (void *)NULL)) {
          result__Q2N=get__QYI(name__M2N);
        } else {
          if (((void *)name__M2N == (void *)(&__string_1))) {
            copy__5GQ(string_tmp__QH,(&__string_239));
            append__CRQ(string_tmp__QH,style__K2N);
            append__CRQ(string_tmp__QH,(&__string_240));
            __tmp__NBO=current_position__A0F();
            put_error__text__WRG( 2,string_tmp__QH);
            put_position__ATG(__tmp__NBO);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
            result__Q2N=ITM_TYPE_SELF__;
          } else {
            n__YTQB=name__M2N;
            result__1TQB=NULL;
            idx__2TQB= 0;
            __tmp__KPIG=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CUQB)->parent_arrayed_collection__BUQB.upper__LUQB;
            __tmp__SUIG=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CUQB)->parent_arrayed_collection__BUQB.storage__LADC;
            __tmp__TUIG=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CUQB)->parent_arrayed_collection__BUQB.storage__LADC;
            while (((idx__2TQB <= __tmp__KPIG) && (((void *)((__ITM_TYPE_STYLE *)((void **)__tmp__SUIG)[idx__2TQB])->parent_itm_type_simple__R4N.name__MEK != (void *)n__YTQB) || ((void *)((__ITM_TYPE_STYLE *)((void **)__tmp__TUIG)[idx__2TQB])->style__JCP != (void *)style__K2N)))) {
              idx__2TQB=(__INTEGER)(idx__2TQB +  1);
            };
            if ((idx__2TQB <= ((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CUQB)->parent_arrayed_collection__BUQB.upper__LUQB)) {
              result__1TQB=((void **)((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CUQB)->parent_arrayed_collection__BUQB.storage__LADC)[idx__2TQB];
            } else {
              result__GB0B=NULL;
              ptr__HB0B=((__POINTER )(NULL));
              typ_id__MB0B= 0;
              sz__JB0B=((__UINTEGER_32 )sizeof(__ITM_TYPE_STYLE));
              if ((sz__JB0B ==  0)) {
                result__GB0B=ITM_TYPE_STYLE__;
              } else {
                typ_id__MB0B=-1;
                clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__JB0B);
                if ((typ_id__MB0B == (__INTEGER)(-  1))) {
                  a__VWHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                  new_size__WWHG=(__UINTEGER_32)((__UINTEGER_32)(sz__JB0B + a__VWHG) & (__UINTEGER_32)(~ a__VWHG));
                  ptr_table__WALG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WWHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
                  next__VALG=((__POINTER )(NULL));
                  result__XALG=((__POINTER *)ptr_table__WALG)[ 0];
                  if ((result__XALG == (void *)NULL)) {
                    result__XALG=new_lab__RUJ(new_size__WWHG);
                    next__VALG=(void *)((unsigned long)result__XALG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WWHG)));
                    ((__POINTER *)next__VALG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__WALG)[ 0]=next__VALG;
                  } else {
                    next__VALG=((__POINTER *)result__XALG)[ 0];
                    if ((next__VALG == (void *)NULL)) {
                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XALG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__WWHG <<  1)) <=  4096)) {
                        next__VALG=(void *)((unsigned long)result__XALG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WWHG)));
                      } else {
                        next__VALG=new_lab__RUJ(new_size__WWHG);
                      };
                      ((__POINTER *)next__VALG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__WALG)[ 0]=next__VALG;
                    } else {
                      ((__POINTER *)result__XALG)[ 0]=(void *)((unsigned long)((__POINTER *)next__VALG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                      result__XALG=next__VALG;
                    };
                  };
                  ptr__HB0B=result__XALG;
                } else {
                  t__0WHG=((__UINTEGER_32 )typ_id__MB0B);
                  a__ZWHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
                  new_size__4ALG=(__UINTEGER_32)((__UINTEGER_32)(sz__JB0B + a__ZWHG) & (__UINTEGER_32)(~ a__ZWHG));
                  ptr_table__1ALG=((__POINTER )(&(table_type[(t__0WHG)])));
                  lab_type__3ALG=(__UINTEGER_32)(t__0WHG |  1);
                  next__0ALG=((__POINTER )(NULL));
                  result__2ALG=((__POINTER *)ptr_table__1ALG)[ 0];
                  if ((result__2ALG == (void *)NULL)) {
                    result__2ALG=new_lab__RUJ(lab_type__3ALG);
                    next__0ALG=(void *)((unsigned long)result__2ALG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4ALG)));
                    ((__POINTER *)next__0ALG)[ 0]=NULL;
                    ((__POINTER *)ptr_table__1ALG)[ 0]=next__0ALG;
                  } else {
                    next__0ALG=((__POINTER *)result__2ALG)[ 0];
                    if ((next__0ALG == (void *)NULL)) {
                      if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2ALG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__4ALG <<  1)) <=  4096)) {
                        next__0ALG=(void *)((unsigned long)result__2ALG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4ALG)));
                      } else {
                        next__0ALG=new_lab__RUJ(lab_type__3ALG);
                      };
                      ((__POINTER *)next__0ALG)[ 0]=NULL;
                      ((__POINTER *)ptr_table__1ALG)[ 0]=next__0ALG;
                    } else {
                      ((__POINTER *)result__2ALG)[ 0]=(void *)((unsigned long)((__POINTER *)next__0ALG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                      result__2ALG=next__0ALG;
                    };
                  };
                  ptr__HB0B=result__2ALG;
                };
                result__GB0B=((__ITM_TYPE_STYLE *)ptr__HB0B);
                *(result__GB0B) = *(ITM_TYPE_STYLE__);
              };
              Self__ESDC=((__ITM_TYPE_STYLE *)result__GB0B);
              Self__ESDC->parent_itm_type_simple__R4N.name__MEK=name__M2N;
              Self__ESDC->style__JCP=style__K2N;
              result__1TQB=result__GB0B;
              Self__NBDC=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CUQB);
              new_capacity__PBDC= 0;
              if (((__INTEGER)(Self__NBDC->parent_arrayed_collection__BUQB.upper__LUQB +  1) <= (__INTEGER)(Self__NBDC->parent_arrayed_collection__BUQB.capacity__AADC -  1))) {
                Self__NBDC->parent_arrayed_collection__BUQB.upper__LUQB=(__INTEGER)(Self__NBDC->parent_arrayed_collection__BUQB.upper__LUQB +  1);
                __tmp__3BDC=TRUE__;
              } else {
                __tmp__3BDC=FALSE__;
              };
              if ((! __tmp__3BDC)) {
                if ((Self__NBDC->parent_arrayed_collection__BUQB.capacity__AADC ==  0)) {
                  Self__NBDC->parent_arrayed_collection__BUQB.storage__LADC=create__R44C( 2);
                  Self__NBDC->parent_arrayed_collection__BUQB.capacity__AADC= 2;
                  Self__NBDC->parent_arrayed_collection__BUQB.upper__LUQB= 0;
                } else {
                  new_capacity__PBDC=(__INTEGER)(Self__NBDC->parent_arrayed_collection__BUQB.capacity__AADC <<  1);
                  __tmp__SCDC=Self__NBDC->parent_arrayed_collection__BUQB.storage__LADC;
                  __tmp__TCDC=Self__NBDC->parent_arrayed_collection__BUQB.capacity__AADC;
                  new__ANUD=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__SCDC)),((__UINTEGER_32 )(__INTEGER)(__tmp__TCDC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__PBDC * ((__INTEGER )(sizeof(void *)))))));
                  __tmp__TNUD=(__INTEGER)(new_capacity__PBDC -  1);
                  Self__CPUE=__tmp__TCDC;
                  while ((Self__CPUE <= __tmp__TNUD)) {
                    new__ANUD[Self__CPUE]=NULL;
                    Self__CPUE=(__INTEGER)(Self__CPUE +  1);
                  };
                  Self__NBDC->parent_arrayed_collection__BUQB.storage__LADC=new__ANUD;
                  Self__NBDC->parent_arrayed_collection__BUQB.capacity__AADC=new_capacity__PBDC;
                  Self__NBDC->parent_arrayed_collection__BUQB.upper__LUQB=(__INTEGER)(Self__NBDC->parent_arrayed_collection__BUQB.upper__LUQB +  1);
                };
              };
              ((void **)Self__NBDC->parent_arrayed_collection__BUQB.storage__LADC)[Self__NBDC->parent_arrayed_collection__BUQB.upper__LUQB]=result__GB0B;
            };
            result__Q2N=result__1TQB;
          };
        };
        sav_derive__U2N=short_derive__O1B;
        short_derive__O1B=old_derive__T2N;
        if ((((void *)result__Q2N == (void *)ITM_TYPE_SELF__) || ((void *)result__Q2N == (void *)type_null__15N))) {
          short__token__to__R0C((&__string_98),(__INTEGER)(old_pos__S2N - ((__STRING_CONSTANT *)name__M2N)->count__4C),old_pos__S2N);
        } else {
          short__token__to__R0C((&__string_97),(__INTEGER)(old_pos__S2N - ((__STRING_CONSTANT *)name__M2N)->count__4C),old_pos__S2N);
        };
        short_derive__O1B=(__INTEGER)(sav_derive__U2N + (__INTEGER)(short_derive__O1B - old_derive__T2N));
      };
    };
  };
  return(result__Q2N);
}

static void read_def_local__15H(__PARSER *Self__25H)
// ({PARSER}) VoidNo recursive, No inlinable.
{
  __INTEGER beg__KZK,typ_id__W2M,Self__VJ4,limit_up__WJ4,__tmp__O3K;
  __INTEGER Self__JAN;
  __POSITION pos__HZ1F,__tmp__W0K,pos__QZ1F,pos__3Z1F,pos__E01F;
  void *__tmp__X0K;
  __ITM_LOCAL *result__Q2M,*Self__IKT;
  __POINTER ptr__R2M,ptr_table__ABLG,next__5ALG,result__BBLG;
  __POINTER ptr_table__FBLG,next__EBLG,result__GBLG;
  __UINTEGER_32 sz__T2M,a__LXHG,new_size__MXHG,t__QXHG,a__PXHG;
  __UINTEGER_32 new_size__IBLG,lab_type__HBLG;
  __CHARACTER styl__GAI,result__KBLG,result__RRDG,result__NBLG;
  __CHARACTER result__QBLG;
  void *result__UUIG,*local_list__EAI,*result__XUIG,*static_list__FAI;
  void *result__JZK,*result__2WI;
  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__VUIG,*Self__WUIG;
  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__YUIG,*Self__ZUIG,*Self__VR2;
  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__LS2;
  __BOOLEAN mute__LZK,result__JBLG,__tmp__C1K,result__MBLG,result__PBLG;
  old_position__QWI=position__V0B;
  old_pos_cur__SWI=pos_cur__Y0B;
  old_pos_line__UWI=pos_line__Z0B;
  old_pos_col__WWI=pos_col__00B;
  old_short_derive__YWI=short_derive__O1B;
  styl__GAI=read_style__QUF();
  result__UUIG=NULL;
  if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI)->parent_arrayed_collection__BXI.upper__OAS <  0)) {
    result__UUIG=create_with_capacity__RMK( 16);
  } else {
    Self__VUIG=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI);
    result__UUIG=((void **)Self__VUIG->parent_arrayed_collection__BXI.storage__TSS)[Self__VUIG->parent_arrayed_collection__BXI.upper__OAS];
    Self__WUIG=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI);
    Self__WUIG->parent_arrayed_collection__BXI.upper__OAS=(__INTEGER)(Self__WUIG->parent_arrayed_collection__BXI.upper__OAS -  1);
  };
  local_list__EAI=result__UUIG;
  result__XUIG=NULL;
  if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI)->parent_arrayed_collection__BXI.upper__OAS <  0)) {
    result__XUIG=create_with_capacity__RMK( 16);
  } else {
    Self__YUIG=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI);
    result__XUIG=((void **)Self__YUIG->parent_arrayed_collection__BXI.storage__TSS)[Self__YUIG->parent_arrayed_collection__BXI.upper__OAS];
    Self__ZUIG=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI);
    Self__ZUIG->parent_arrayed_collection__BXI.upper__OAS=(__INTEGER)(Self__ZUIG->parent_arrayed_collection__BXI.upper__OAS -  1);
  };
  static_list__FAI=result__XUIG;
  while ((styl__GAI != ' ')) {
    result__JZK=NULL;
    beg__KZK= 0;
    mute__LZK=TRUE__;
    if (read_identifier__EBL()) {
      result__2WI=NULL;
      if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI)->parent_arrayed_collection__BXI.upper__OAS <  0)) {
        result__2WI=create_with_capacity__RMK( 16);
      } else {
        Self__VR2=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI);
        result__2WI=((void **)Self__VR2->parent_arrayed_collection__BXI.storage__TSS)[Self__VR2->parent_arrayed_collection__BXI.upper__OAS];
        Self__LS2=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI);
        Self__LS2->parent_arrayed_collection__BXI.upper__OAS=(__INTEGER)(Self__LS2->parent_arrayed_collection__BXI.upper__OAS -  1);
      };
      result__JZK=result__2WI;
      beg__KZK= 0;
      do {
        if (((((__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__JZK)->parent_arrayed_collection__CAI.upper__T1K +  1) !=  0) && (! read_identifier__EBL())) && (! mute__LZK))) {
          pos__HZ1F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_202));
          put_position__ATG(pos__HZ1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        __tmp__W0K=current_position__A0F();
        __tmp__X0K=last_string__NTC;
        result__Q2M=NULL;
        ptr__R2M=((__POINTER )(NULL));
        typ_id__W2M= 0;
        sz__T2M=((__UINTEGER_32 )sizeof(__ITM_LOCAL));
        if ((sz__T2M ==  0)) {
          result__Q2M=ITM_LOCAL__;
        } else {
          typ_id__W2M=__ITM_LOCAL__;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__T2M);
          if ((typ_id__W2M == (__INTEGER)(-  1))) {
            a__LXHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__MXHG=(__UINTEGER_32)((__UINTEGER_32)(sz__T2M + a__LXHG) & (__UINTEGER_32)(~ a__LXHG));
            ptr_table__ABLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MXHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__5ALG=((__POINTER )(NULL));
            result__BBLG=((__POINTER *)ptr_table__ABLG)[ 0];
            if ((result__BBLG == (void *)NULL)) {
              result__BBLG=new_lab__RUJ(new_size__MXHG);
              next__5ALG=(void *)((unsigned long)result__BBLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MXHG)));
              ((__POINTER *)next__5ALG)[ 0]=NULL;
              ((__POINTER *)ptr_table__ABLG)[ 0]=next__5ALG;
            } else {
              next__5ALG=((__POINTER *)result__BBLG)[ 0];
              if ((next__5ALG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BBLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__MXHG <<  1)) <=  4096)) {
                  next__5ALG=(void *)((unsigned long)result__BBLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MXHG)));
                } else {
                  next__5ALG=new_lab__RUJ(new_size__MXHG);
                };
                ((__POINTER *)next__5ALG)[ 0]=NULL;
                ((__POINTER *)ptr_table__ABLG)[ 0]=next__5ALG;
              } else {
                ((__POINTER *)result__BBLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__5ALG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__BBLG=next__5ALG;
              };
            };
            ptr__R2M=result__BBLG;
          } else {
            t__QXHG=((__UINTEGER_32 )typ_id__W2M);
            a__PXHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__IBLG=(__UINTEGER_32)((__UINTEGER_32)(sz__T2M + a__PXHG) & (__UINTEGER_32)(~ a__PXHG));
            ptr_table__FBLG=((__POINTER )(&(table_type[(t__QXHG)])));
            lab_type__HBLG=(__UINTEGER_32)(t__QXHG |  1);
            next__EBLG=((__POINTER )(NULL));
            result__GBLG=((__POINTER *)ptr_table__FBLG)[ 0];
            if ((result__GBLG == (void *)NULL)) {
              result__GBLG=new_lab__RUJ(lab_type__HBLG);
              next__EBLG=(void *)((unsigned long)result__GBLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IBLG)));
              ((__POINTER *)next__EBLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__FBLG)[ 0]=next__EBLG;
            } else {
              next__EBLG=((__POINTER *)result__GBLG)[ 0];
              if ((next__EBLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GBLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__IBLG <<  1)) <=  4096)) {
                  next__EBLG=(void *)((unsigned long)result__GBLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IBLG)));
                } else {
                  next__EBLG=new_lab__RUJ(lab_type__HBLG);
                };
                ((__POINTER *)next__EBLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__FBLG)[ 0]=next__EBLG;
              } else {
                ((__POINTER *)result__GBLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__EBLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__GBLG=next__EBLG;
              };
            };
            ptr__R2M=result__GBLG;
          };
          result__Q2M=((__ITM_LOCAL *)ptr__R2M);
          *(result__Q2M) = *(ITM_LOCAL__);
        };
        Self__IKT=((__ITM_LOCAL *)result__Q2M);
        Self__IKT->name__W3K=__tmp__X0K;
        Self__IKT->parent_itm_object__35H.position__REJ=__tmp__W0K;
        add_last__OGT(result__JZK,result__Q2M);
        result__JBLG=FALSE__;
        if ((! read_space__MMD())) {
          result__JBLG=FALSE__;
        } else {
          result__KBLG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__KBLG=((__CHARACTER )(( 0)));
          } else {
            result__KBLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__KBLG == ':')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__JBLG=TRUE__;
          };
        };
        if (result__JBLG) {
          result__RRDG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__RRDG=((__CHARACTER )(( 0)));
          } else {
            result__RRDG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          __tmp__C1K=(result__RRDG != '=');
        } else {
          __tmp__C1K=FALSE__;
        };
        if (__tmp__C1K) {
          mute__LZK=FALSE__;
          if (((void *)read_type__5FP(Self__25H,TRUE__) == (void *)NULL)) {
            pos__QZ1F=current_position__A0F();
            put_error__text__WRG( 0,(&__string_241));
            put_position__ATG(pos__QZ1F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          Self__VJ4=beg__KZK;
          limit_up__WJ4=((__FAST_ARRAYoITM_LOCALo *)result__JZK)->parent_arrayed_collection__CAI.upper__T1K;
          while ((Self__VJ4 <= limit_up__WJ4)) {
            Self__VJ4=(__INTEGER)(Self__VJ4 +  1);
          };
          beg__KZK=(__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__JZK)->parent_arrayed_collection__CAI.upper__T1K +  1);
        };
        result__MBLG=FALSE__;
        if ((! read_space__MMD())) {
          result__MBLG=FALSE__;
        } else {
          result__NBLG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__NBLG=((__CHARACTER )(( 0)));
          } else {
            result__NBLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__NBLG == ',')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__MBLG=TRUE__;
          };
        };
      } while (result__MBLG);
      if ((beg__KZK != (__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__2WI)->parent_arrayed_collection__CAI.upper__T1K +  1))) {
        if (mute__LZK) {
          free__XMK(result__2WI);
          result__JZK=NULL;
        } else {
          pos__3Z1F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_241));
          put_position__ATG(pos__3Z1F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
      } else {
        result__JZK=copy__KBK(result__JZK);
        __tmp__O3K=((__FAST_ARRAYoITM_LOCALo *)result__JZK)->parent_arrayed_collection__CAI.upper__T1K;
        Self__JAN= 0;
        while ((Self__JAN <= __tmp__O3K)) {
          add__XTEB(short_local__W1B,((__ITM_LOCAL *)((void **)((__FAST_ARRAYoITM_LOCALo *)result__JZK)->parent_arrayed_collection__CAI.storage__OUS)[Self__JAN])->name__W3K);
          Self__JAN=(__INTEGER)(Self__JAN +  1);
        };
      };
    };
    if (((void *)result__JZK != (void *)NULL)) {
      if ((styl__GAI == '+')) {
        append_collection__DERD(local_list__EAI,result__JZK);
      } else {
        append_collection__DERD(static_list__FAI,result__JZK);
      };
      result__PBLG=FALSE__;
      if ((! read_space__MMD())) {
        result__PBLG=FALSE__;
      } else {
        result__QBLG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__QBLG=((__CHARACTER )(( 0)));
        } else {
          result__QBLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__QBLG == ';')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__PBLG=TRUE__;
        };
      };
      if ((! result__PBLG)) {
        pos__E01F=current_position__A0F();
        put_error__text__WRG( 2,(&__string_191));
        put_position__ATG(pos__E01F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      old_position__QWI=position__V0B;
      old_pos_cur__SWI=pos_cur__Y0B;
      old_pos_line__UWI=pos_line__Z0B;
      old_pos_col__WWI=pos_col__00B;
      old_short_derive__YWI=short_derive__O1B;
      styl__GAI=read_style__QUF();
    } else {
      restore_context__MEL();
      styl__GAI=' ';
    };
  };
  if ((((__FAST_ARRAYoITM_LOCALo *)result__UUIG)->parent_arrayed_collection__CAI.upper__T1K <  0)) {
    free__XMK(result__UUIG);
  } else {
    copy__KBK(result__UUIG);
  };
  if ((((__FAST_ARRAYoITM_LOCALo *)result__XUIG)->parent_arrayed_collection__CAI.upper__T1K <  0)) {
    free__XMK(result__XUIG);
  } else {
    copy__KBK(result__XUIG);
  };
}

static __FAST_ARRAYoITM_CODEo* create_with_capacity__X0I(__INTEGER new_count__Z0I)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __POINTER ptr__SNJ,ptr_table__TBLG,next__SBLG,result__UBLG;
  __POINTER ptr_table__YBLG,next__XBLG,result__ZBLG;
  __INTEGER typ_id__XNJ;
  __UINTEGER_32 sz__UNJ,a__X1HG,new_size__Y1HG,t__21HG,a__11HG;
  __UINTEGER_32 new_size__1BLG,lab_type__0BLG;
  __FAST_ARRAYoITM_CODEo *result__RNJ,*Self__EDS;
  result__RNJ=NULL;
  ptr__SNJ=((__POINTER )(NULL));
  typ_id__XNJ= 0;
  sz__UNJ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_CODEo));
  if ((sz__UNJ ==  0)) {
    result__RNJ=FAST_ARRAYoITM_CODEo__;
  } else {
    typ_id__XNJ=__FAST_ARRAYoITM_CODEo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__UNJ);
    if ((typ_id__XNJ == (__INTEGER)(-  1))) {
      a__X1HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__Y1HG=(__UINTEGER_32)((__UINTEGER_32)(sz__UNJ + a__X1HG) & (__UINTEGER_32)(~ a__X1HG));
      ptr_table__TBLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Y1HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__SBLG=((__POINTER )(NULL));
      result__UBLG=((__POINTER *)ptr_table__TBLG)[ 0];
      if ((result__UBLG == (void *)NULL)) {
        result__UBLG=new_lab__RUJ(new_size__Y1HG);
        next__SBLG=(void *)((unsigned long)result__UBLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y1HG)));
        ((__POINTER *)next__SBLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__TBLG)[ 0]=next__SBLG;
      } else {
        next__SBLG=((__POINTER *)result__UBLG)[ 0];
        if ((next__SBLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UBLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__Y1HG <<  1)) <=  4096)) {
            next__SBLG=(void *)((unsigned long)result__UBLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Y1HG)));
          } else {
            next__SBLG=new_lab__RUJ(new_size__Y1HG);
          };
          ((__POINTER *)next__SBLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__TBLG)[ 0]=next__SBLG;
        } else {
          ((__POINTER *)result__UBLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__SBLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__UBLG=next__SBLG;
        };
      };
      ptr__SNJ=result__UBLG;
    } else {
      t__21HG=((__UINTEGER_32 )typ_id__XNJ);
      a__11HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__1BLG=(__UINTEGER_32)((__UINTEGER_32)(sz__UNJ + a__11HG) & (__UINTEGER_32)(~ a__11HG));
      ptr_table__YBLG=((__POINTER )(&(table_type[(t__21HG)])));
      lab_type__0BLG=(__UINTEGER_32)(t__21HG |  1);
      next__XBLG=((__POINTER )(NULL));
      result__ZBLG=((__POINTER *)ptr_table__YBLG)[ 0];
      if ((result__ZBLG == (void *)NULL)) {
        result__ZBLG=new_lab__RUJ(lab_type__0BLG);
        next__XBLG=(void *)((unsigned long)result__ZBLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1BLG)));
        ((__POINTER *)next__XBLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__YBLG)[ 0]=next__XBLG;
      } else {
        next__XBLG=((__POINTER *)result__ZBLG)[ 0];
        if ((next__XBLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZBLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__1BLG <<  1)) <=  4096)) {
            next__XBLG=(void *)((unsigned long)result__ZBLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1BLG)));
          } else {
            next__XBLG=new_lab__RUJ(lab_type__0BLG);
          };
          ((__POINTER *)next__XBLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__YBLG)[ 0]=next__XBLG;
        } else {
          ((__POINTER *)result__ZBLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__XBLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__ZBLG=next__XBLG;
        };
      };
      ptr__SNJ=result__ZBLG;
    };
    result__RNJ=((__FAST_ARRAYoITM_CODEo *)ptr__SNJ);
    *(result__RNJ) = *(FAST_ARRAYoITM_CODEo__);
  };
  Self__EDS=((__FAST_ARRAYoITM_CODEo *)result__RNJ);
  if ((Self__EDS->parent_arrayed_collection__KWF.capacity__52R < new_count__Z0I)) {
    Self__EDS->parent_arrayed_collection__KWF.storage__K3R=create__GWNB(new_count__Z0I);
    Self__EDS->parent_arrayed_collection__KWF.capacity__52R=new_count__Z0I;
  };
  Self__EDS->parent_arrayed_collection__KWF.upper__D2R=(__INTEGER)(-  1);
  return(result__RNJ);
}

static void add_last__GVT(__FAST_ARRAYoITM_CODEo *Self__HVT,void *element__IVT)
// ({FAST_ARRAYoITM_CODEo},{NULLxITM_LISTxITM_LDOTSxITM_PROTOTYPExITM_LIST_IDFxITM_WRITE_VALUExITM_WRITE_CASTxITM_READxITM_WRITE_CODExITM_READ_ARG2xITM_BINARYxITM_READ_ARG1xITM_OLDxITM_EXTERNAL_TYPExITM_REALxITM_NUMBERxITM_CHARACTERxITM_STRINGxITM_EXTERNALxITM_READ_ARGSxITM_RESULT}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__JVT,__tmp__NWT,__tmp__LJAC,Self__AHWD;
  __BOOLEAN __tmp__XVT;
  void **__tmp__MWT,**new__YIAC;
  new_capacity__JVT= 0;
  if (((__INTEGER)(Self__HVT->parent_arrayed_collection__KWF.upper__D2R +  1) <= (__INTEGER)(Self__HVT->parent_arrayed_collection__KWF.capacity__52R -  1))) {
    Self__HVT->parent_arrayed_collection__KWF.upper__D2R=(__INTEGER)(Self__HVT->parent_arrayed_collection__KWF.upper__D2R +  1);
    __tmp__XVT=TRUE__;
  } else {
    __tmp__XVT=FALSE__;
  };
  if ((! __tmp__XVT)) {
    if ((Self__HVT->parent_arrayed_collection__KWF.capacity__52R ==  0)) {
      Self__HVT->parent_arrayed_collection__KWF.storage__K3R=create__GWNB( 2);
      Self__HVT->parent_arrayed_collection__KWF.capacity__52R= 2;
      Self__HVT->parent_arrayed_collection__KWF.upper__D2R= 0;
    } else {
      new_capacity__JVT=(__INTEGER)(Self__HVT->parent_arrayed_collection__KWF.capacity__52R <<  1);
      __tmp__MWT=Self__HVT->parent_arrayed_collection__KWF.storage__K3R;
      __tmp__NWT=Self__HVT->parent_arrayed_collection__KWF.capacity__52R;
      new__YIAC=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__MWT)),((__UINTEGER_32 )(__INTEGER)(__tmp__NWT * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__JVT * ((__INTEGER )(sizeof(void *)))))));
      __tmp__LJAC=(__INTEGER)(new_capacity__JVT -  1);
      Self__AHWD=__tmp__NWT;
      while ((Self__AHWD <= __tmp__LJAC)) {
        new__YIAC[Self__AHWD]=NULL;
        Self__AHWD=(__INTEGER)(Self__AHWD +  1);
      };
      Self__HVT->parent_arrayed_collection__KWF.storage__K3R=new__YIAC;
      Self__HVT->parent_arrayed_collection__KWF.capacity__52R=new_capacity__JVT;
      Self__HVT->parent_arrayed_collection__KWF.upper__D2R=(__INTEGER)(Self__HVT->parent_arrayed_collection__KWF.upper__D2R +  1);
    };
  };
  ((void **)Self__HVT->parent_arrayed_collection__KWF.storage__K3R)[Self__HVT->parent_arrayed_collection__KWF.upper__D2R]=element__IVT;
}

static void* copy__OEI(void *tmp__QEI)
// ({NULLxFAST_ARRAYoITM_CODEo}) With resultNo recursive, No inlinable.
{
  __INTEGER new_capacity__W2R,other_upper__V2R,Self__3ZFC;
  void *result__SEI;
  __FAST_ARRAYoITM_CODEo *Self__T2R;
  void **__tmp__N3R,**__tmp__P3R,**Self__UG4B;
  result__SEI=create_with_capacity__X0I((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)tmp__QEI)->parent_arrayed_collection__KWF.upper__D2R +  1));
  Self__T2R=((__FAST_ARRAYoITM_CODEo *)result__SEI);
  new_capacity__W2R= 0;
  other_upper__V2R=((__FAST_ARRAYoITM_CODEo *)tmp__QEI)->parent_arrayed_collection__KWF.upper__D2R;
  if ((other_upper__V2R >=  0)) {
    new_capacity__W2R=(__INTEGER)(other_upper__V2R +  1);
    if ((Self__T2R->parent_arrayed_collection__KWF.capacity__52R < new_capacity__W2R)) {
      Self__T2R->parent_arrayed_collection__KWF.storage__K3R=create__GWNB(new_capacity__W2R);
      Self__T2R->parent_arrayed_collection__KWF.capacity__52R=new_capacity__W2R;
    };
    __tmp__N3R=Self__T2R->parent_arrayed_collection__KWF.storage__K3R;
    __tmp__P3R=((__FAST_ARRAYoITM_CODEo *)tmp__QEI)->parent_arrayed_collection__KWF.storage__K3R;
    Self__UG4B=((void **)__tmp__N3R);
    Self__3ZFC=other_upper__V2R;
    while ((Self__3ZFC >=  0)) {
      Self__UG4B[Self__3ZFC]=((void **)__tmp__P3R)[Self__3ZFC];
      Self__3ZFC=(__INTEGER)(Self__3ZFC -  1);
    };
  };
  Self__T2R->parent_arrayed_collection__KWF.upper__D2R=other_upper__V2R;
  free__30I(tmp__QEI);
  return(result__SEI);
}

static __BOOLEAN fast_has__LKT(__HASHED_SEToSTRING_CONSTANTo *Self__MKT,void *e__NKT)
// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *node__XKT;
  node__XKT=((void **)Self__MKT->buckets__3KT)[(__INTEGER)(hash_code__LQU(e__NKT) % Self__MKT->capacity__PNR)];
  while ((! (((void *)node__XKT == (void *)NULL) || ((void *)((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__XKT)->item__JLT == (void *)e__NKT)))) {
    node__XKT=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__XKT)->next__ULT;
  };
  return(((void *)node__XKT != (void *)NULL));
}

static void copy__0PBC(__FAST_ARRAYoSTRING_CONSTANTo *Self__1PBC,void *other__2PBC)
// ({FAST_ARRAYoSTRING_CONSTANTo},{NULLxFAST_ARRAYoSTRING_CONSTANTo}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__4PBC,other_upper__3PBC,Self__P4CD;
  void **__tmp__RQBC,**__tmp__TQBC,**Self__1O3C;
  new_capacity__4PBC= 0;
  other_upper__3PBC=((__FAST_ARRAYoSTRING_CONSTANTo *)other__2PBC)->parent_arrayed_collection__30B.upper__I5N;
  if ((other_upper__3PBC >=  0)) {
    new_capacity__4PBC=(__INTEGER)(other_upper__3PBC +  1);
    if ((Self__1PBC->parent_arrayed_collection__30B.capacity__5XQ < new_capacity__4PBC)) {
      Self__1PBC->parent_arrayed_collection__30B.storage__WDR=create__JYMB(new_capacity__4PBC);
      Self__1PBC->parent_arrayed_collection__30B.capacity__5XQ=new_capacity__4PBC;
    };
    __tmp__RQBC=Self__1PBC->parent_arrayed_collection__30B.storage__WDR;
    __tmp__TQBC=((__FAST_ARRAYoSTRING_CONSTANTo *)other__2PBC)->parent_arrayed_collection__30B.storage__WDR;
    Self__1O3C=((void **)__tmp__RQBC);
    Self__P4CD=other_upper__3PBC;
    while ((Self__P4CD >=  0)) {
      Self__1O3C[Self__P4CD]=((void **)__tmp__TQBC)[Self__P4CD];
      Self__P4CD=(__INTEGER)(Self__P4CD -  1);
    };
  };
  Self__1PBC->parent_arrayed_collection__30B.upper__I5N=other_upper__3PBC;
}

static void restore_context__MEL()
// () VoidNo recursive, No inlinable.
{
  __INTEGER beg__OEL,__tmp__AFL,__tmp__DFL,Self__DBM,new_capacity__ZLJG;
  __INTEGER old_nb_elts__2LJG,upper__5BLG,Self__3BLG;
  __STRING *Self__0LJG;
  __CHARACTER ch__4LJG;
  __CHARACTER *Self__1LJG,*new__3LJG;
  ((__STRING *)token__M1C)->count__04B= 0;
  beg__OEL=(__INTEGER)(old_position__QWI + old_short_derive__YWI);
  remove_between__to__4IS(output_code__RI,beg__OEL,(__INTEGER)((__INTEGER)(position__V0B + short_derive__O1B) -  1));
  __tmp__AFL=old_position__QWI;
  __tmp__DFL=(__INTEGER)(position__V0B -  1);
  Self__DBM=__tmp__AFL;
  while ((Self__DBM <= __tmp__DFL)) {
    Self__0LJG=((__STRING *)token__M1C);
    ch__4LJG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(Self__DBM -  1)];
    new_capacity__ZLJG= 0;
    if ((Self__0LJG->capacity__4FQ <= Self__0LJG->count__04B)) {
      if ((Self__0LJG->capacity__4FQ ==  0)) {
        Self__0LJG->capacity__4FQ= 32;
        Self__0LJG->storage__HGQ=create__D4BB( 32);
      } else {
        new_capacity__ZLJG=(__INTEGER)(Self__0LJG->capacity__4FQ <<  1);
        Self__1LJG=((__CHARACTER *)Self__0LJG->storage__HGQ);
        old_nb_elts__2LJG=Self__0LJG->capacity__4FQ;
        new__3LJG=((__CHARACTER *)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )Self__1LJG),((__UINTEGER_32 )old_nb_elts__2LJG),((__UINTEGER_32 )new_capacity__ZLJG)));
        upper__5BLG=(__INTEGER)(new_capacity__ZLJG -  1);
        Self__3BLG=old_nb_elts__2LJG;
        while ((Self__3BLG <= upper__5BLG)) {
          new__3LJG[Self__3BLG]='\0';
          Self__3BLG=(__INTEGER)(Self__3BLG +  1);
        };
        Self__0LJG->storage__HGQ=new__3LJG;
        Self__0LJG->capacity__4FQ=new_capacity__ZLJG;
      };
    };
    ((__CHARACTER *)Self__0LJG->storage__HGQ)[Self__0LJG->count__04B]=ch__4LJG;
    Self__0LJG->count__04B=(__INTEGER)(Self__0LJG->count__04B +  1);
    Self__DBM=(__INTEGER)(Self__DBM +  1);
  };
  insert_string__to__SCT(output_code__RI,token__M1C,beg__OEL);
  short_derive__O1B=old_short_derive__YWI;
  position__V0B=old_position__QWI;
  pos_cur__Y0B=old_pos_cur__SWI;
  pos_line__Z0B=old_pos_line__UWI;
  pos_col__00B=old_pos_col__WWI;
}

static void* read_expr_prefix__XFL(__PARSER *Self__YFL)
// ({PARSER}) With resultRecursive, No inlinable.
{
  void *result__0FL,*result__2TM,*result__4JM;
  __POSITION pos__J31F,p__VJM,pos__L31F,p__QK4,pos__U31F;
  __ITM_READ_ARG1 *result__RSM;
  __POINTER ptr__SSM,ptr_table__CCLG,next__BCLG,result__DCLG;
  __POINTER ptr_table__HCLG,next__GCLG,result__ICLG,ptr__HREB;
  __POINTER ptr_table__MCLG,next__LCLG,result__NCLG,ptr_table__RCLG;
  __POINTER next__QCLG,result__SCLG;
  __INTEGER typ_id__XSM,typ_id__MREB;
  __UINTEGER_32 sz__USM,a__51HG,new_size__A2HG,t__E2HG,a__D2HG;
  __UINTEGER_32 new_size__KCLG,lab_type__JCLG,sz__JREB,a__OZHG;
  __UINTEGER_32 new_size__PZHG,t__TZHG,a__SZHG,new_size__UCLG;
  __UINTEGER_32 lab_type__TCLG;
  __ITM_OLD *result__GREB;
  __BOOLEAN result__AMJG,result__VCLG;
  __CHARACTER result__WCLG;
  result__0FL=NULL;
  if (read_operator__BRL()) {
    operator_to_name__SBM((&__string_79),last_string__NTC);
    if (((void *)read_expr_prefix__XFL(Self__YFL) == (void *)NULL)) {
      pos__J31F=current_position__A0F();
      put_error__text__WRG( 0,(&__string_190));
      put_position__ATG(pos__J31F);
      put_string__55F(msg_err__1RG);
      if ((type_error__0RG !=  2)) {
        exit(( 1));
      };
    };
    p__VJM=current_position__A0F();
    result__RSM=NULL;
    ptr__SSM=((__POINTER )(NULL));
    typ_id__XSM= 0;
    sz__USM=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
    if ((sz__USM ==  0)) {
      result__RSM=ITM_READ_ARG1__;
    } else {
      typ_id__XSM=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__USM);
      if ((typ_id__XSM == (__INTEGER)(-  1))) {
        a__51HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__A2HG=(__UINTEGER_32)((__UINTEGER_32)(sz__USM + a__51HG) & (__UINTEGER_32)(~ a__51HG));
        ptr_table__CCLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__A2HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__BCLG=((__POINTER )(NULL));
        result__DCLG=((__POINTER *)ptr_table__CCLG)[ 0];
        if ((result__DCLG == (void *)NULL)) {
          result__DCLG=new_lab__RUJ(new_size__A2HG);
          next__BCLG=(void *)((unsigned long)result__DCLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2HG)));
          ((__POINTER *)next__BCLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__CCLG)[ 0]=next__BCLG;
        } else {
          next__BCLG=((__POINTER *)result__DCLG)[ 0];
          if ((next__BCLG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DCLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__A2HG <<  1)) <=  4096)) {
              next__BCLG=(void *)((unsigned long)result__DCLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2HG)));
            } else {
              next__BCLG=new_lab__RUJ(new_size__A2HG);
            };
            ((__POINTER *)next__BCLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__CCLG)[ 0]=next__BCLG;
          } else {
            ((__POINTER *)result__DCLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__BCLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__DCLG=next__BCLG;
          };
        };
        ptr__SSM=result__DCLG;
      } else {
        t__E2HG=((__UINTEGER_32 )typ_id__XSM);
        a__D2HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__KCLG=(__UINTEGER_32)((__UINTEGER_32)(sz__USM + a__D2HG) & (__UINTEGER_32)(~ a__D2HG));
        ptr_table__HCLG=((__POINTER )(&(table_type[(t__E2HG)])));
        lab_type__JCLG=(__UINTEGER_32)(t__E2HG |  1);
        next__GCLG=((__POINTER )(NULL));
        result__ICLG=((__POINTER *)ptr_table__HCLG)[ 0];
        if ((result__ICLG == (void *)NULL)) {
          result__ICLG=new_lab__RUJ(lab_type__JCLG);
          next__GCLG=(void *)((unsigned long)result__ICLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KCLG)));
          ((__POINTER *)next__GCLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__HCLG)[ 0]=next__GCLG;
        } else {
          next__GCLG=((__POINTER *)result__ICLG)[ 0];
          if ((next__GCLG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ICLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KCLG <<  1)) <=  4096)) {
              next__GCLG=(void *)((unsigned long)result__ICLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KCLG)));
            } else {
              next__GCLG=new_lab__RUJ(lab_type__JCLG);
            };
            ((__POINTER *)next__GCLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__HCLG)[ 0]=next__GCLG;
          } else {
            ((__POINTER *)result__ICLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__GCLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__ICLG=next__GCLG;
          };
        };
        ptr__SSM=result__ICLG;
      };
      result__RSM=((__ITM_READ_ARG1 *)ptr__SSM);
      *(result__RSM) = *(ITM_READ_ARG1__);
    };
    ((__ITM_READ_ARG1 *)result__RSM)->parent_itm_read__TGL.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__VJM;
    result__0FL=result__RSM;
  } else {
    result__2TM=NULL;
    result__AMJG=read_word__NSF((&__string_8));
    if (result__AMJG) {
      if (((void *)(&__string_8) == (void *)(&__string_4))) {
        short__token__to__R0C((&__string_92),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
      } else {
        short__token__to__R0C((&__string_91),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
      };
    };
    if (result__AMJG) {
      if (((void *)read_expr__25I(Self__YFL) == (void *)NULL)) {
        pos__L31F=current_position__A0F();
        put_error__text__WRG( 0,(&__string_242));
        put_position__ATG(pos__L31F);
        put_string__55F(msg_err__1RG);
        if ((type_error__0RG !=  2)) {
          exit(( 1));
        };
      };
      p__QK4=current_position__A0F();
      result__GREB=NULL;
      ptr__HREB=((__POINTER )(NULL));
      typ_id__MREB= 0;
      sz__JREB=((__UINTEGER_32 )sizeof(__ITM_OLD));
      if ((sz__JREB ==  0)) {
        result__GREB=ITM_OLD__;
      } else {
        typ_id__MREB=-1;
        clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__JREB);
        if ((typ_id__MREB == (__INTEGER)(-  1))) {
          a__OZHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__PZHG=(__UINTEGER_32)((__UINTEGER_32)(sz__JREB + a__OZHG) & (__UINTEGER_32)(~ a__OZHG));
          ptr_table__MCLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PZHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
          next__LCLG=((__POINTER )(NULL));
          result__NCLG=((__POINTER *)ptr_table__MCLG)[ 0];
          if ((result__NCLG == (void *)NULL)) {
            result__NCLG=new_lab__RUJ(new_size__PZHG);
            next__LCLG=(void *)((unsigned long)result__NCLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZHG)));
            ((__POINTER *)next__LCLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__MCLG)[ 0]=next__LCLG;
          } else {
            next__LCLG=((__POINTER *)result__NCLG)[ 0];
            if ((next__LCLG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NCLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__PZHG <<  1)) <=  4096)) {
                next__LCLG=(void *)((unsigned long)result__NCLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZHG)));
              } else {
                next__LCLG=new_lab__RUJ(new_size__PZHG);
              };
              ((__POINTER *)next__LCLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__MCLG)[ 0]=next__LCLG;
            } else {
              ((__POINTER *)result__NCLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__LCLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__NCLG=next__LCLG;
            };
          };
          ptr__HREB=result__NCLG;
        } else {
          t__TZHG=((__UINTEGER_32 )typ_id__MREB);
          a__SZHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
          new_size__UCLG=(__UINTEGER_32)((__UINTEGER_32)(sz__JREB + a__SZHG) & (__UINTEGER_32)(~ a__SZHG));
          ptr_table__RCLG=((__POINTER )(&(table_type[(t__TZHG)])));
          lab_type__TCLG=(__UINTEGER_32)(t__TZHG |  1);
          next__QCLG=((__POINTER )(NULL));
          result__SCLG=((__POINTER *)ptr_table__RCLG)[ 0];
          if ((result__SCLG == (void *)NULL)) {
            result__SCLG=new_lab__RUJ(lab_type__TCLG);
            next__QCLG=(void *)((unsigned long)result__SCLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UCLG)));
            ((__POINTER *)next__QCLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__RCLG)[ 0]=next__QCLG;
          } else {
            next__QCLG=((__POINTER *)result__SCLG)[ 0];
            if ((next__QCLG == (void *)NULL)) {
              if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SCLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__UCLG <<  1)) <=  4096)) {
                next__QCLG=(void *)((unsigned long)result__SCLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UCLG)));
              } else {
                next__QCLG=new_lab__RUJ(lab_type__TCLG);
              };
              ((__POINTER *)next__QCLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__RCLG)[ 0]=next__QCLG;
            } else {
              ((__POINTER *)result__SCLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__QCLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
              result__SCLG=next__QCLG;
            };
          };
          ptr__HREB=result__SCLG;
        };
        result__GREB=((__ITM_OLD *)ptr__HREB);
        *(result__GREB) = *(ITM_OLD__);
      };
      ((__ITM_OLD *)result__GREB)->parent_itm_code__RUM.parent_itm_object__P2D.position__REJ=p__QK4;
      result__2TM=result__GREB;
    } else {
      result__2TM=read_expr_primary__MDN(Self__YFL);
      if (((void *)result__2TM == (void *)NULL)) {
        result__2TM=read_send_msg__DXN(Self__YFL,NULL);
      };
    };
    result__4JM=result__2TM;
    if (((void *)result__2TM != (void *)NULL)) {
      while_do__K5M:
      {
        result__VCLG=FALSE__;
        if ((! read_space__MMD())) {
          result__VCLG=FALSE__;
        } else {
          result__WCLG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__WCLG=((__CHARACTER )(( 0)));
          } else {
            result__WCLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__WCLG == '.')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__VCLG=TRUE__;
          };
        };
        if (result__VCLG) {
          result__4JM=read_send_msg__DXN(Self__YFL,result__4JM);
          if (((void *)result__4JM == (void *)NULL)) {
            pos__U31F=current_position__A0F();
            put_error__text__WRG( 0,(&__string_243));
            put_position__ATG(pos__U31F);
            put_string__55F(msg_err__1RG);
            if ((type_error__0RG !=  2)) {
              exit(( 1));
            };
          };
          goto while_do__K5M;
        };
      };
    };
    result__0FL=result__4JM;
  };
  return(result__0FL);
}

static __FAST_ARRAYoExpanded_POSITIONo* create_with_capacity__MANB(__INTEGER new_count__OANB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __POINTER ptr__N0PB,ptr_table__ZCLG,next__YCLG,result__0CLG;
  __POINTER ptr_table__4CLG,next__3CLG,result__5CLG;
  __INTEGER typ_id__S0PB;
  __UINTEGER_32 sz__P0PB,a__WZHG,new_size__XZHG,t__1ZHG,a__0ZHG;
  __UINTEGER_32 new_size__BDLG,lab_type__ADLG;
  __FAST_ARRAYoExpanded_POSITIONo *result__M0PB,*Self__S3AC;
  result__M0PB=NULL;
  ptr__N0PB=((__POINTER )(NULL));
  typ_id__S0PB= 0;
  sz__P0PB=((__UINTEGER_32 )sizeof(__FAST_ARRAYoExpanded_POSITIONo));
  if ((sz__P0PB ==  0)) {
    result__M0PB=FAST_ARRAYoExpanded_POSITIONo__;
  } else {
    typ_id__S0PB=__FAST_ARRAYoExpanded_POSITIONo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__P0PB);
    if ((typ_id__S0PB == (__INTEGER)(-  1))) {
      a__WZHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__XZHG=(__UINTEGER_32)((__UINTEGER_32)(sz__P0PB + a__WZHG) & (__UINTEGER_32)(~ a__WZHG));
      ptr_table__ZCLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XZHG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__YCLG=((__POINTER )(NULL));
      result__0CLG=((__POINTER *)ptr_table__ZCLG)[ 0];
      if ((result__0CLG == (void *)NULL)) {
        result__0CLG=new_lab__RUJ(new_size__XZHG);
        next__YCLG=(void *)((unsigned long)result__0CLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XZHG)));
        ((__POINTER *)next__YCLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__ZCLG)[ 0]=next__YCLG;
      } else {
        next__YCLG=((__POINTER *)result__0CLG)[ 0];
        if ((next__YCLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0CLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__XZHG <<  1)) <=  4096)) {
            next__YCLG=(void *)((unsigned long)result__0CLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XZHG)));
          } else {
            next__YCLG=new_lab__RUJ(new_size__XZHG);
          };
          ((__POINTER *)next__YCLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__ZCLG)[ 0]=next__YCLG;
        } else {
          ((__POINTER *)result__0CLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__YCLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__0CLG=next__YCLG;
        };
      };
      ptr__N0PB=result__0CLG;
    } else {
      t__1ZHG=((__UINTEGER_32 )typ_id__S0PB);
      a__0ZHG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__BDLG=(__UINTEGER_32)((__UINTEGER_32)(sz__P0PB + a__0ZHG) & (__UINTEGER_32)(~ a__0ZHG));
      ptr_table__4CLG=((__POINTER )(&(table_type[(t__1ZHG)])));
      lab_type__ADLG=(__UINTEGER_32)(t__1ZHG |  1);
      next__3CLG=((__POINTER )(NULL));
      result__5CLG=((__POINTER *)ptr_table__4CLG)[ 0];
      if ((result__5CLG == (void *)NULL)) {
        result__5CLG=new_lab__RUJ(lab_type__ADLG);
        next__3CLG=(void *)((unsigned long)result__5CLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BDLG)));
        ((__POINTER *)next__3CLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__4CLG)[ 0]=next__3CLG;
      } else {
        next__3CLG=((__POINTER *)result__5CLG)[ 0];
        if ((next__3CLG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5CLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__BDLG <<  1)) <=  4096)) {
            next__3CLG=(void *)((unsigned long)result__5CLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BDLG)));
          } else {
            next__3CLG=new_lab__RUJ(lab_type__ADLG);
          };
          ((__POINTER *)next__3CLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__4CLG)[ 0]=next__3CLG;
        } else {
          ((__POINTER *)result__5CLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3CLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__5CLG=next__3CLG;
        };
      };
      ptr__N0PB=result__5CLG;
    };
    result__M0PB=((__FAST_ARRAYoExpanded_POSITIONo *)ptr__N0PB);
    *(result__M0PB) = *(FAST_ARRAYoExpanded_POSITIONo__);
  };
  Self__S3AC=((__FAST_ARRAYoExpanded_POSITIONo *)result__M0PB);
  if ((Self__S3AC->parent_arrayed_collection__HAJ.capacity__B25B < new_count__OANB)) {
    Self__S3AC->parent_arrayed_collection__HAJ.storage__WD5B=create__KB3C(new_count__OANB);
    Self__S3AC->parent_arrayed_collection__HAJ.capacity__B25B=new_count__OANB;
  };
  Self__S3AC->parent_arrayed_collection__HAJ.upper__V15B=(__INTEGER)(-  1);
  return(result__M0PB);
}

static __POSITION* create__KB3C(__INTEGER nb_elements__MB3C)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__2UIG,a__1UIG,new_size__3UIG,new_size2__4UIG,a__5UIG;
  __UINTEGER_32 new_size__AVIG;
  __POINTER result__0UIG,ptr_table__DDLG,next__CDLG,result__EDLG;
  __INTEGER __tmp__YB3C,Self__R5XD;
  __POSITION v__13TD;
  __POSITION *Result__EUCD;
  sz__2UIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__MB3C * ((__INTEGER )(sizeof(void *)))));
  result__0UIG=((__POINTER )(NULL));
  a__1UIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__3UIG=(__UINTEGER_32)((__UINTEGER_32)(sz__2UIG + a__1UIG) & (__UINTEGER_32)(~ a__1UIG));
  new_size2__4UIG=(__UINTEGER_32)(new_size__3UIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__4UIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__5UIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__AVIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4UIG + a__5UIG) & (__UINTEGER_32)(~ a__5UIG));
    ptr_table__DDLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AVIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__CDLG=((__POINTER )(NULL));
    result__EDLG=((__POINTER *)ptr_table__DDLG)[ 0];
    if ((result__EDLG == (void *)NULL)) {
      result__EDLG=new_lab__RUJ(new_size__AVIG);
      next__CDLG=(void *)((unsigned long)result__EDLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AVIG)));
      ((__POINTER *)next__CDLG)[ 0]=NULL;
      ((__POINTER *)ptr_table__DDLG)[ 0]=next__CDLG;
    } else {
      next__CDLG=((__POINTER *)result__EDLG)[ 0];
      if ((next__CDLG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EDLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__AVIG <<  1)) <=  4096)) {
          next__CDLG=(void *)((unsigned long)result__EDLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AVIG)));
        } else {
          next__CDLG=new_lab__RUJ(new_size__AVIG);
        };
        ((__POINTER *)next__CDLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__DDLG)[ 0]=next__CDLG;
      } else {
        ((__POINTER *)result__EDLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CDLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__EDLG=next__CDLG;
      };
    };
    ((__POINTER *)result__EDLG)[ 0]=((__POINTER ) 3);
    result__0UIG=(void *)((unsigned long)result__EDLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__0UIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__3UIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__EUCD=((__POSITION *)result__0UIG);
  __tmp__YB3C=(__INTEGER)(nb_elements__MB3C -  1);
  v__13TD=((__POSITION ) 0);
  Self__R5XD=__tmp__YB3C;
  while ((Self__R5XD >=  0)) {
    Result__EUCD[Self__R5XD]=v__13TD;
    Self__R5XD=(__INTEGER)(Self__R5XD -  1);
  };
  return(Result__EUCD);
}

static void free__30I(void *tmp__50I)
// ({NULLxFAST_ARRAYoITM_CODEo}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__3ES,__tmp__FGS,__tmp__GV5B,Self__S0VD;
  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__1ES;
  __BOOLEAN __tmp__MFS;
  void **__tmp__EGS,**new__TU5B;
  ((__FAST_ARRAYoITM_CODEo *)tmp__50I)->parent_arrayed_collection__KWF.upper__D2R=(__INTEGER)(-  1);
  Self__1ES=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
  new_capacity__3ES= 0;
  if (((__INTEGER)(Self__1ES->parent_arrayed_collection__4CI.upper__M1R +  1) <= (__INTEGER)(Self__1ES->parent_arrayed_collection__4CI.capacity__5ES -  1))) {
    Self__1ES->parent_arrayed_collection__4CI.upper__M1R=(__INTEGER)(Self__1ES->parent_arrayed_collection__4CI.upper__M1R +  1);
    __tmp__MFS=TRUE__;
  } else {
    __tmp__MFS=FALSE__;
  };
  if ((! __tmp__MFS)) {
    if ((Self__1ES->parent_arrayed_collection__4CI.capacity__5ES ==  0)) {
      Self__1ES->parent_arrayed_collection__4CI.storage__1FS=create__OFMB( 2);
      Self__1ES->parent_arrayed_collection__4CI.capacity__5ES= 2;
      Self__1ES->parent_arrayed_collection__4CI.upper__M1R= 0;
    } else {
      new_capacity__3ES=(__INTEGER)(Self__1ES->parent_arrayed_collection__4CI.capacity__5ES <<  1);
      __tmp__EGS=Self__1ES->parent_arrayed_collection__4CI.storage__1FS;
      __tmp__FGS=Self__1ES->parent_arrayed_collection__4CI.capacity__5ES;
      new__TU5B=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__EGS)),((__UINTEGER_32 )(__INTEGER)(__tmp__FGS * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__3ES * ((__INTEGER )(sizeof(void *)))))));
      __tmp__GV5B=(__INTEGER)(new_capacity__3ES -  1);
      Self__S0VD=__tmp__FGS;
      while ((Self__S0VD <= __tmp__GV5B)) {
        new__TU5B[Self__S0VD]=NULL;
        Self__S0VD=(__INTEGER)(Self__S0VD +  1);
      };
      Self__1ES->parent_arrayed_collection__4CI.storage__1FS=new__TU5B;
      Self__1ES->parent_arrayed_collection__4CI.capacity__5ES=new_capacity__3ES;
      Self__1ES->parent_arrayed_collection__4CI.upper__M1R=(__INTEGER)(Self__1ES->parent_arrayed_collection__4CI.upper__M1R +  1);
    };
  };
  ((void **)Self__1ES->parent_arrayed_collection__4CI.storage__1FS)[Self__1ES->parent_arrayed_collection__4CI.upper__M1R]=tmp__50I;
}

static void free__0PIB(void *tmp__2PIB)
// ({NULLxFAST_ARRAYoExpanded_POSITIONo}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__K25B,__tmp__O35B,__tmp__QFUD,Self__FJUE;
  __FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *Self__I25B;
  __BOOLEAN __tmp__Y25B;
  void **__tmp__N35B,**new__3EUD;
  ((__FAST_ARRAYoExpanded_POSITIONo *)tmp__2PIB)->parent_arrayed_collection__HAJ.upper__V15B=(__INTEGER)(-  1);
  Self__I25B=((__FAST_ARRAYoFAST_ARRAYoExpanded_POSITIONoo *)free_list__M03);
  new_capacity__K25B= 0;
  if (((__INTEGER)(Self__I25B->parent_arrayed_collection__L03.upper__RO4B +  1) <= (__INTEGER)(Self__I25B->parent_arrayed_collection__L03.capacity__U05B -  1))) {
    Self__I25B->parent_arrayed_collection__L03.upper__RO4B=(__INTEGER)(Self__I25B->parent_arrayed_collection__L03.upper__RO4B +  1);
    __tmp__Y25B=TRUE__;
  } else {
    __tmp__Y25B=FALSE__;
  };
  if ((! __tmp__Y25B)) {
    if ((Self__I25B->parent_arrayed_collection__L03.capacity__U05B ==  0)) {
      Self__I25B->parent_arrayed_collection__L03.storage__505B=create__FR2C( 2);
      Self__I25B->parent_arrayed_collection__L03.capacity__U05B= 2;
      Self__I25B->parent_arrayed_collection__L03.upper__RO4B= 0;
    } else {
      new_capacity__K25B=(__INTEGER)(Self__I25B->parent_arrayed_collection__L03.capacity__U05B <<  1);
      __tmp__N35B=Self__I25B->parent_arrayed_collection__L03.storage__505B;
      __tmp__O35B=Self__I25B->parent_arrayed_collection__L03.capacity__U05B;
      new__3EUD=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__N35B)),((__UINTEGER_32 )(__INTEGER)(__tmp__O35B * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__K25B * ((__INTEGER )(sizeof(void *)))))));
      __tmp__QFUD=(__INTEGER)(new_capacity__K25B -  1);
      Self__FJUE=__tmp__O35B;
      while ((Self__FJUE <= __tmp__QFUD)) {
        new__3EUD[Self__FJUE]=NULL;
        Self__FJUE=(__INTEGER)(Self__FJUE +  1);
      };
      Self__I25B->parent_arrayed_collection__L03.storage__505B=new__3EUD;
      Self__I25B->parent_arrayed_collection__L03.capacity__U05B=new_capacity__K25B;
      Self__I25B->parent_arrayed_collection__L03.upper__RO4B=(__INTEGER)(Self__I25B->parent_arrayed_collection__L03.upper__RO4B +  1);
    };
  };
  ((void **)Self__I25B->parent_arrayed_collection__L03.storage__505B)[Self__I25B->parent_arrayed_collection__L03.upper__RO4B]=tmp__2PIB;
}

static __BOOLEAN fast_has__M5FC(__HASHED_SEToITM_TYPE_SIMPLEo *Self__N5FC,void *e__O5FC)
// ({HASHED_SEToITM_TYPE_SIMPLEo},{NULLxITM_TYPE_SIMPLExITM_TYPE_SELFxITM_TYPE_GENERICxITM_TYPE_STYLE}) With resultNo recursive, No inlinable.
{
  __INTEGER __tmp__Y5FC;
  void *node__X5FC;
  switch (((struct ___OBJ *)e__O5FC)->__id) {
  case __ITM_TYPE_SIMPLE__: {
    __tmp__Y5FC=hash_code__LQU(((__ITM_TYPE_SIMPLE *)e__O5FC)->name__MEK);
  } break;
  case __ITM_TYPE_SELF__: {
    __tmp__Y5FC=hash_code__LQU(((__ITM_TYPE_SELF *)e__O5FC)->parent_itm_type_simple__KMJ.name__MEK);
  } break;
  case __ITM_TYPE_GENERIC__: {
    __tmp__Y5FC=hash_code__LQU(((__ITM_TYPE_GENERIC *)e__O5FC)->parent_itm_type_mono__S4N.parent_itm_type_simple__R4N.name__MEK);
  } break;
  case __ITM_TYPE_STYLE__: {
    __tmp__Y5FC=hash_code__LQU(((__ITM_TYPE_STYLE *)e__O5FC)->parent_itm_type_simple__R4N.name__MEK);
  } break;
  };
  node__X5FC=((void **)Self__N5FC->buckets__5J4B)[(__INTEGER)(__tmp__Y5FC % Self__N5FC->capacity__0J4B)];
  while ((! (((void *)node__X5FC == (void *)NULL) || ((void *)((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)node__X5FC)->item__LK4B == (void *)e__O5FC)))) {
    node__X5FC=((__HASHED_SET_NODEoITM_TYPE_SIMPLEo *)node__X5FC)->next__WK4B;
  };
  return(((void *)node__X5FC != (void *)NULL));
}

static void* read_group__ZZEB(__PARSER *Self__0ZEB)
// ({PARSER}) With resultNo recursive, No inlinable.
{
  void *e__3ZEB;
  __ITM_RESULT *result__JA1B,*Self__3YDC;
  __POINTER ptr__KA1B,ptr_table__ODLG,next__NDLG,result__PDLG;
  __POINTER ptr_table__TDLG,next__SDLG,result__UDLG,ptr__CMJG;
  __POINTER ptr_table__4DLG,next__3DLG,result__5DLG,ptr_table__DELG;
  __POINTER next__CELG,result__EELG;
  __INTEGER typ_id__PA1B,typ_id__DMJG;
  __UINTEGER_32 sz__MA1B,a__S0HG,new_size__T0HG,t__X0HG,a__W0HG;
  __UINTEGER_32 new_size__WDLG,lab_type__VDLG,sz__EMJG,a__FMJG;
  __UINTEGER_32 new_size__GMJG,t__HMJG,a__IMJG,new_size__GELG;
  __UINTEGER_32 lab_type__FELG;
  __POSITION __tmp__5YDC,pos__QD2F,p__JMJG;
  __ITM_PROTOTYPE *result__BMJG;
  void *result__UPIG,*result__4ZEB;
  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__VPIG,*Self__WPIG;
  __BOOLEAN result__HDLG,__tmp__N0EB,result__KDLG,result__XDLG;
  __BOOLEAN __tmp__U1EB,result__0DLG;
  __CHARACTER result__IDLG,result__LDLG,result__YDLG,result__1DLG;
  read_def_local__15H(Self__0ZEB);
  result__UPIG=NULL;
  if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI)->parent_arrayed_collection__4CI.upper__M1R <  0)) {
    result__UPIG=create_with_capacity__X0I( 16);
  } else {
    Self__VPIG=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
    result__UPIG=((void **)Self__VPIG->parent_arrayed_collection__4CI.storage__1FS)[Self__VPIG->parent_arrayed_collection__4CI.upper__M1R];
    Self__WPIG=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
    Self__WPIG->parent_arrayed_collection__4CI.upper__M1R=(__INTEGER)(Self__WPIG->parent_arrayed_collection__4CI.upper__M1R -  1);
  };
  result__4ZEB=result__UPIG;
  e__3ZEB=read_expr__25I(Self__0ZEB);
  while_do__BGJB:
  {
    if (((void *)e__3ZEB != (void *)NULL)) {
      result__HDLG=FALSE__;
      if ((! read_space__MMD())) {
        result__HDLG=FALSE__;
      } else {
        result__IDLG='\0';
        if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
          result__IDLG=((__CHARACTER )(( 0)));
        } else {
          result__IDLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
        };
        if ((result__IDLG == ';')) {
          position__V0B=(__INTEGER)(position__V0B +  1);
          result__HDLG=TRUE__;
        };
      };
      __tmp__N0EB=result__HDLG;
    } else {
      __tmp__N0EB=FALSE__;
    };
    if (__tmp__N0EB) {
      add_last__GVT(result__4ZEB,e__3ZEB);
      e__3ZEB=read_expr__25I(Self__0ZEB);
      goto while_do__BGJB;
    };
  };
  if (((void *)e__3ZEB != (void *)NULL)) {
    result__KDLG=FALSE__;
    if ((! read_space__MMD())) {
      result__KDLG=FALSE__;
    } else {
      result__LDLG='\0';
      if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
        result__LDLG=((__CHARACTER )(( 0)));
      } else {
        result__LDLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
      };
      if ((result__LDLG == ',')) {
        position__V0B=(__INTEGER)(position__V0B +  1);
        result__KDLG=TRUE__;
      };
    };
    if (result__KDLG) {
      do {
        result__JA1B=NULL;
        ptr__KA1B=((__POINTER )(NULL));
        typ_id__PA1B= 0;
        sz__MA1B=((__UINTEGER_32 )sizeof(__ITM_RESULT));
        if ((sz__MA1B ==  0)) {
          result__JA1B=ITM_RESULT__;
        } else {
          typ_id__PA1B=__ITM_RESULT__;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__MA1B);
          if ((typ_id__PA1B == (__INTEGER)(-  1))) {
            a__S0HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__T0HG=(__UINTEGER_32)((__UINTEGER_32)(sz__MA1B + a__S0HG) & (__UINTEGER_32)(~ a__S0HG));
            ptr_table__ODLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__T0HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__NDLG=((__POINTER )(NULL));
            result__PDLG=((__POINTER *)ptr_table__ODLG)[ 0];
            if ((result__PDLG == (void *)NULL)) {
              result__PDLG=new_lab__RUJ(new_size__T0HG);
              next__NDLG=(void *)((unsigned long)result__PDLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T0HG)));
              ((__POINTER *)next__NDLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__ODLG)[ 0]=next__NDLG;
            } else {
              next__NDLG=((__POINTER *)result__PDLG)[ 0];
              if ((next__NDLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PDLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__T0HG <<  1)) <=  4096)) {
                  next__NDLG=(void *)((unsigned long)result__PDLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T0HG)));
                } else {
                  next__NDLG=new_lab__RUJ(new_size__T0HG);
                };
                ((__POINTER *)next__NDLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__ODLG)[ 0]=next__NDLG;
              } else {
                ((__POINTER *)result__PDLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__NDLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__PDLG=next__NDLG;
              };
            };
            ptr__KA1B=result__PDLG;
          } else {
            t__X0HG=((__UINTEGER_32 )typ_id__PA1B);
            a__W0HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__WDLG=(__UINTEGER_32)((__UINTEGER_32)(sz__MA1B + a__W0HG) & (__UINTEGER_32)(~ a__W0HG));
            ptr_table__TDLG=((__POINTER )(&(table_type[(t__X0HG)])));
            lab_type__VDLG=(__UINTEGER_32)(t__X0HG |  1);
            next__SDLG=((__POINTER )(NULL));
            result__UDLG=((__POINTER *)ptr_table__TDLG)[ 0];
            if ((result__UDLG == (void *)NULL)) {
              result__UDLG=new_lab__RUJ(lab_type__VDLG);
              next__SDLG=(void *)((unsigned long)result__UDLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WDLG)));
              ((__POINTER *)next__SDLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__TDLG)[ 0]=next__SDLG;
            } else {
              next__SDLG=((__POINTER *)result__UDLG)[ 0];
              if ((next__SDLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UDLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__WDLG <<  1)) <=  4096)) {
                  next__SDLG=(void *)((unsigned long)result__UDLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WDLG)));
                } else {
                  next__SDLG=new_lab__RUJ(lab_type__VDLG);
                };
                ((__POINTER *)next__SDLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__TDLG)[ 0]=next__SDLG;
              } else {
                ((__POINTER *)result__UDLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__SDLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__UDLG=next__SDLG;
              };
            };
            ptr__KA1B=result__UDLG;
          };
          result__JA1B=((__ITM_RESULT *)ptr__KA1B);
          *(result__JA1B) = *(ITM_RESULT__);
        };
        Self__3YDC=((__ITM_RESULT *)result__JA1B);
        switch (((struct ___OBJ *)e__3ZEB)->__id) {
        case __ITM_LIST__: {
          __tmp__5YDC=((__ITM_LIST *)e__3ZEB)->parent_itm_code__4XE.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_PROTOTYPE__: {
          __tmp__5YDC=((__ITM_PROTOTYPE *)e__3ZEB)->parent_itm_constant__VYF.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_LIST_IDF__: {
          __tmp__5YDC=((__ITM_LIST_IDF *)e__3ZEB)->parent_itm_code__0DJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_WRITE_VALUE__: {
          __tmp__5YDC=((__ITM_WRITE_VALUE *)e__3ZEB)->parent_itm_write__QEJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_WRITE_CAST__: {
          __tmp__5YDC=((__ITM_WRITE_CAST *)e__3ZEB)->parent_itm_write__HFJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_READ__: {
          __tmp__5YDC=((__ITM_READ *)e__3ZEB)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_WRITE_CODE__: {
          __tmp__5YDC=((__ITM_WRITE_CODE *)e__3ZEB)->parent_itm_write__SIJ.parent_itm_code__PEJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_READ_ARG2__: {
          __tmp__5YDC=((__ITM_READ_ARG2 *)e__3ZEB)->parent_itm_read__DLJ.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_BINARY__: {
          __tmp__5YDC=((__ITM_BINARY *)e__3ZEB)->parent_itm_code__XLJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_READ_ARG1__: {
          __tmp__5YDC=((__ITM_READ_ARG1 *)e__3ZEB)->parent_itm_read__TGL.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_OLD__: {
          __tmp__5YDC=((__ITM_OLD *)e__3ZEB)->parent_itm_code__RUM.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_EXTERNAL_TYPE__: {
          __tmp__5YDC=((__ITM_EXTERNAL_TYPE *)e__3ZEB)->parent_itm_extern__TDN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_REAL__: {
          __tmp__5YDC=((__ITM_REAL *)e__3ZEB)->parent_itm_constant__FHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_NUMBER__: {
          __tmp__5YDC=((__ITM_NUMBER *)e__3ZEB)->parent_itm_constant__XHN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_CHARACTER__: {
          __tmp__5YDC=((__ITM_CHARACTER *)e__3ZEB)->parent_itm_constant__JIN.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_STRING__: {
          __tmp__5YDC=((__ITM_STRING *)e__3ZEB)->parent_itm_code__0IN.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_EXTERNAL__: {
          __tmp__5YDC=((__ITM_EXTERNAL *)e__3ZEB)->parent_itm_extern__VMN.parent_itm_code__SDN.parent_itm_object__P2D.position__REJ;
        } break;
        case __ITM_READ_ARGS__: {
          __tmp__5YDC=((__ITM_READ_ARGS *)e__3ZEB)->parent_itm_read__B2N.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ;
        } break;
        };
        Self__3YDC->parent_itm_code__F1EB.parent_itm_object__P2D.position__REJ=__tmp__5YDC;
        add_last__GVT(result__4ZEB,result__JA1B);
        e__3ZEB=read_expr__25I(Self__0ZEB);
        while_do__W4ZB:
        {
          if (((void *)e__3ZEB != (void *)NULL)) {
            result__XDLG=FALSE__;
            if ((! read_space__MMD())) {
              result__XDLG=FALSE__;
            } else {
              result__YDLG='\0';
              if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
                result__YDLG=((__CHARACTER )(( 0)));
              } else {
                result__YDLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
              };
              if ((result__YDLG == ';')) {
                position__V0B=(__INTEGER)(position__V0B +  1);
                result__XDLG=TRUE__;
              };
            };
            __tmp__U1EB=result__XDLG;
          } else {
            __tmp__U1EB=FALSE__;
          };
          if (__tmp__U1EB) {
            add_last__GVT(result__4ZEB,e__3ZEB);
            e__3ZEB=read_expr__25I(Self__0ZEB);
            goto while_do__W4ZB;
          };
        };
        if (((void *)e__3ZEB == (void *)NULL)) {
          pos__QD2F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_244));
          put_position__ATG(pos__QD2F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        result__0DLG=FALSE__;
        if ((! read_space__MMD())) {
          result__0DLG=FALSE__;
        } else {
          result__1DLG='\0';
          if ((position__V0B > ((__STRING *)source__S0B)->count__04B)) {
            result__1DLG=((__CHARACTER )(( 0)));
          } else {
            result__1DLG=((__CHARACTER *)((__STRING *)source__S0B)->storage__HGQ)[(__INTEGER)(position__V0B -  1)];
          };
          if ((result__1DLG == ',')) {
            position__V0B=(__INTEGER)(position__V0B +  1);
            result__0DLG=TRUE__;
          };
        };
      } while (result__0DLG);
      add_last__GVT(result__UPIG,e__3ZEB);
    } else {
      add_last__GVT(result__UPIG,e__3ZEB);
    };
  } else {
    p__JMJG=current_position__A0F();
    result__BMJG=NULL;
    ptr__CMJG=((__POINTER )(NULL));
    typ_id__DMJG= 0;
    sz__EMJG=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
    if ((sz__EMJG ==  0)) {
      result__BMJG=ITM_PROTOTYPE__;
    } else {
      typ_id__DMJG=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__EMJG);
      if ((typ_id__DMJG == (__INTEGER)(-  1))) {
        a__FMJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__GMJG=(__UINTEGER_32)((__UINTEGER_32)(sz__EMJG + a__FMJG) & (__UINTEGER_32)(~ a__FMJG));
        ptr_table__4DLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GMJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__3DLG=((__POINTER )(NULL));
        result__5DLG=((__POINTER *)ptr_table__4DLG)[ 0];
        if ((result__5DLG == (void *)NULL)) {
          result__5DLG=new_lab__RUJ(new_size__GMJG);
          next__3DLG=(void *)((unsigned long)result__5DLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GMJG)));
          ((__POINTER *)next__3DLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__4DLG)[ 0]=next__3DLG;
        } else {
          next__3DLG=((__POINTER *)result__5DLG)[ 0];
          if ((next__3DLG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5DLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__GMJG <<  1)) <=  4096)) {
              next__3DLG=(void *)((unsigned long)result__5DLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GMJG)));
            } else {
              next__3DLG=new_lab__RUJ(new_size__GMJG);
            };
            ((__POINTER *)next__3DLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__4DLG)[ 0]=next__3DLG;
          } else {
            ((__POINTER *)result__5DLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__3DLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__5DLG=next__3DLG;
          };
        };
        ptr__CMJG=result__5DLG;
      } else {
        t__HMJG=((__UINTEGER_32 )typ_id__DMJG);
        a__IMJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__GELG=(__UINTEGER_32)((__UINTEGER_32)(sz__EMJG + a__IMJG) & (__UINTEGER_32)(~ a__IMJG));
        ptr_table__DELG=((__POINTER )(&(table_type[(t__HMJG)])));
        lab_type__FELG=(__UINTEGER_32)(t__HMJG |  1);
        next__CELG=((__POINTER )(NULL));
        result__EELG=((__POINTER *)ptr_table__DELG)[ 0];
        if ((result__EELG == (void *)NULL)) {
          result__EELG=new_lab__RUJ(lab_type__FELG);
          next__CELG=(void *)((unsigned long)result__EELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GELG)));
          ((__POINTER *)next__CELG)[ 0]=NULL;
          ((__POINTER *)ptr_table__DELG)[ 0]=next__CELG;
        } else {
          next__CELG=((__POINTER *)result__EELG)[ 0];
          if ((next__CELG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EELG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__GELG <<  1)) <=  4096)) {
              next__CELG=(void *)((unsigned long)result__EELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GELG)));
            } else {
              next__CELG=new_lab__RUJ(lab_type__FELG);
            };
            ((__POINTER *)next__CELG)[ 0]=NULL;
            ((__POINTER *)ptr_table__DELG)[ 0]=next__CELG;
          } else {
            ((__POINTER *)result__EELG)[ 0]=(void *)((unsigned long)((__POINTER *)next__CELG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__EELG=next__CELG;
          };
        };
        ptr__CMJG=result__EELG;
      };
      result__BMJG=((__ITM_PROTOTYPE *)ptr__CMJG);
      *(result__BMJG) = *(ITM_PROTOTYPE__);
    };
    ((__ITM_PROTOTYPE *)result__BMJG)->parent_itm_constant__VYF.parent_itm_code__UYF.parent_itm_object__P2D.position__REJ=p__JMJG;
    add_last__GVT(result__UPIG,result__BMJG);
  };
  return(copy__OEI(result__UPIG));
}

static void** create__2BOB(__INTEGER nb_elements__4BOB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__EVIG,a__DVIG,new_size__FVIG,new_size2__GVIG,a__HVIG;
  __UINTEGER_32 new_size__IVIG;
  __POINTER result__CVIG,ptr_table__IELG,next__HELG,result__JELG;
  __INTEGER Self__1WJC;
  void **Result__CERB;
  sz__EVIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__4BOB * ((__INTEGER )(sizeof(void *)))));
  result__CVIG=((__POINTER )(NULL));
  a__DVIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__FVIG=(__UINTEGER_32)((__UINTEGER_32)(sz__EVIG + a__DVIG) & (__UINTEGER_32)(~ a__DVIG));
  new_size2__GVIG=(__UINTEGER_32)(new_size__FVIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__GVIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__HVIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__IVIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GVIG + a__HVIG) & (__UINTEGER_32)(~ a__HVIG));
    ptr_table__IELG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IVIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__HELG=((__POINTER )(NULL));
    result__JELG=((__POINTER *)ptr_table__IELG)[ 0];
    if ((result__JELG == (void *)NULL)) {
      result__JELG=new_lab__RUJ(new_size__IVIG);
      next__HELG=(void *)((unsigned long)result__JELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IVIG)));
      ((__POINTER *)next__HELG)[ 0]=NULL;
      ((__POINTER *)ptr_table__IELG)[ 0]=next__HELG;
    } else {
      next__HELG=((__POINTER *)result__JELG)[ 0];
      if ((next__HELG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JELG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__IVIG <<  1)) <=  4096)) {
          next__HELG=(void *)((unsigned long)result__JELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IVIG)));
        } else {
          next__HELG=new_lab__RUJ(new_size__IVIG);
        };
        ((__POINTER *)next__HELG)[ 0]=NULL;
        ((__POINTER *)ptr_table__IELG)[ 0]=next__HELG;
      } else {
        ((__POINTER *)result__JELG)[ 0]=(void *)((unsigned long)((__POINTER *)next__HELG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__JELG=next__HELG;
      };
    };
    ((__POINTER *)result__JELG)[ 0]=((__POINTER ) 3);
    result__CVIG=(void *)((unsigned long)result__JELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__CVIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__FVIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__CERB=((void **)result__CVIG);
  Self__1WJC=(__INTEGER)(nb_elements__4BOB -  1);
  while ((Self__1WJC >=  0)) {
    Result__CERB[Self__1WJC]=NULL;
    Self__1WJC=(__INTEGER)(Self__1WJC -  1);
  };
  return(Result__CERB);
}

static __BOOLEAN fast_has__4LZ(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__5LZ,void *e__AMZ)
// ({HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo},{NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
{
  void *node__JMZ;
  node__JMZ=((void **)Self__5LZ->buckets__T0T)[(__INTEGER)(hash_code__ATY(e__AMZ) % Self__5LZ->capacity__O0T)];
  while ((! (((void *)node__JMZ == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__JMZ)->item__50T == (void *)e__AMZ)))) {
    node__JMZ=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__JMZ)->next__L1T;
  };
  return(((void *)node__JMZ != (void *)NULL));
}

static __INTEGER hash_code__L4HC(__FAST_ARRAYoSTRING_CONSTANTo *Self__M4HC)
// ({FAST_ARRAYoSTRING_CONSTANTo}) With resultNo recursive, No inlinable.
{
  __INTEGER result__O4HC;
  __BOOLEAN __tmp__54HC;
  result__O4HC= 0;
  if ((! (Self__M4HC->parent_arrayed_collection__30B.upper__I5N <  0))) {
    if (((void *)((void **)Self__M4HC->parent_arrayed_collection__30B.storage__WDR)[Self__M4HC->parent_arrayed_collection__30B.upper__I5N] != (void *)NULL)) {
      result__O4HC=hash_code__LQU(((void **)Self__M4HC->parent_arrayed_collection__30B.storage__WDR)[Self__M4HC->parent_arrayed_collection__30B.upper__I5N]);
      __tmp__54HC=TRUE__;
    } else {
      __tmp__54HC=FALSE__;
    };
    if ((! __tmp__54HC)) {
      if (((void *)((void **)Self__M4HC->parent_arrayed_collection__30B.storage__WDR)[ 0] != (void *)NULL)) {
        result__O4HC=hash_code__LQU(((void **)Self__M4HC->parent_arrayed_collection__30B.storage__WDR)[ 0]);
      };
    };
  };
  return(result__O4HC);
}

static __BOOLEAN fast_has__ULKC(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__VLKC,void *e__WLKC)
// ({HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo},{NULLxFAST_ARRAYoSTRING_CONSTANTo}) With resultNo recursive, No inlinable.
{
  void *node__5LKC;
  node__5LKC=((void **)Self__VLKC->buckets__Y55B)[(__INTEGER)(hash_code__L4HC(e__WLKC) % Self__VLKC->capacity__T55B)];
  while ((! (((void *)node__5LKC == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__5LKC)->item__EAAC == (void *)e__WLKC)))) {
    node__5LKC=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__5LKC)->next__QAAC;
  };
  return(((void *)node__5LKC != (void *)NULL));
}

static __BOOLEAN has__P3IB(__HASHED_SEToSTRING_CONSTANTo *Self__Q3IB,void *e__R3IB)
// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
{
  void *node__03IB;
  node__03IB=((void **)Self__Q3IB->buckets__3KT)[(__INTEGER)(hash_code__LQU(e__R3IB) % Self__Q3IB->capacity__PNR)];
  while ((! (((void *)node__03IB == (void *)NULL) || __infix_equal_equal__GQBB(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__03IB)->item__JLT,e__R3IB)))) {
    node__03IB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__03IB)->next__ULT;
  };
  return(((void *)node__03IB != (void *)NULL));
}

static __FAST_ARRAYoITM_LOCALo* create_with_capacity__RMK(__INTEGER new_count__TMK)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __POINTER ptr__Q4K,ptr_table__NELG,next__MELG,result__OELG;
  __POINTER ptr_table__SELG,next__RELG,result__TELG;
  __INTEGER typ_id__V4K;
  __UINTEGER_32 sz__S4K,a__22HG,new_size__32HG,t__B3HG,a__A3HG;
  __UINTEGER_32 new_size__VELG,lab_type__UELG;
  __FAST_ARRAYoITM_LOCALo *result__P4K,*Self__VYS;
  result__P4K=NULL;
  ptr__Q4K=((__POINTER )(NULL));
  typ_id__V4K= 0;
  sz__S4K=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_LOCALo));
  if ((sz__S4K ==  0)) {
    result__P4K=FAST_ARRAYoITM_LOCALo__;
  } else {
    typ_id__V4K=__FAST_ARRAYoITM_LOCALo__;
    clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__S4K);
    if ((typ_id__V4K == (__INTEGER)(-  1))) {
      a__22HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__32HG=(__UINTEGER_32)((__UINTEGER_32)(sz__S4K + a__22HG) & (__UINTEGER_32)(~ a__22HG));
      ptr_table__NELG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__32HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
      next__MELG=((__POINTER )(NULL));
      result__OELG=((__POINTER *)ptr_table__NELG)[ 0];
      if ((result__OELG == (void *)NULL)) {
        result__OELG=new_lab__RUJ(new_size__32HG);
        next__MELG=(void *)((unsigned long)result__OELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__32HG)));
        ((__POINTER *)next__MELG)[ 0]=NULL;
        ((__POINTER *)ptr_table__NELG)[ 0]=next__MELG;
      } else {
        next__MELG=((__POINTER *)result__OELG)[ 0];
        if ((next__MELG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OELG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__32HG <<  1)) <=  4096)) {
            next__MELG=(void *)((unsigned long)result__OELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__32HG)));
          } else {
            next__MELG=new_lab__RUJ(new_size__32HG);
          };
          ((__POINTER *)next__MELG)[ 0]=NULL;
          ((__POINTER *)ptr_table__NELG)[ 0]=next__MELG;
        } else {
          ((__POINTER *)result__OELG)[ 0]=(void *)((unsigned long)((__POINTER *)next__MELG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__OELG=next__MELG;
        };
      };
      ptr__Q4K=result__OELG;
    } else {
      t__B3HG=((__UINTEGER_32 )typ_id__V4K);
      a__A3HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
      new_size__VELG=(__UINTEGER_32)((__UINTEGER_32)(sz__S4K + a__A3HG) & (__UINTEGER_32)(~ a__A3HG));
      ptr_table__SELG=((__POINTER )(&(table_type[(t__B3HG)])));
      lab_type__UELG=(__UINTEGER_32)(t__B3HG |  1);
      next__RELG=((__POINTER )(NULL));
      result__TELG=((__POINTER *)ptr_table__SELG)[ 0];
      if ((result__TELG == (void *)NULL)) {
        result__TELG=new_lab__RUJ(lab_type__UELG);
        next__RELG=(void *)((unsigned long)result__TELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VELG)));
        ((__POINTER *)next__RELG)[ 0]=NULL;
        ((__POINTER *)ptr_table__SELG)[ 0]=next__RELG;
      } else {
        next__RELG=((__POINTER *)result__TELG)[ 0];
        if ((next__RELG == (void *)NULL)) {
          if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TELG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__VELG <<  1)) <=  4096)) {
            next__RELG=(void *)((unsigned long)result__TELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VELG)));
          } else {
            next__RELG=new_lab__RUJ(lab_type__UELG);
          };
          ((__POINTER *)next__RELG)[ 0]=NULL;
          ((__POINTER *)ptr_table__SELG)[ 0]=next__RELG;
        } else {
          ((__POINTER *)result__TELG)[ 0]=(void *)((unsigned long)((__POINTER *)next__RELG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
          result__TELG=next__RELG;
        };
      };
      ptr__Q4K=result__TELG;
    };
    result__P4K=((__FAST_ARRAYoITM_LOCALo *)ptr__Q4K);
    *(result__P4K) = *(FAST_ARRAYoITM_LOCALo__);
  };
  Self__VYS=((__FAST_ARRAYoITM_LOCALo *)result__P4K);
  if ((Self__VYS->parent_arrayed_collection__CAI.capacity__DUS < new_count__TMK)) {
    Self__VYS->parent_arrayed_collection__CAI.storage__OUS=create__0GNB(new_count__TMK);
    Self__VYS->parent_arrayed_collection__CAI.capacity__DUS=new_count__TMK;
  };
  Self__VYS->parent_arrayed_collection__CAI.upper__T1K=(__INTEGER)(-  1);
  return(result__P4K);
}

static void add_last__OGT(__FAST_ARRAYoITM_LOCALo *Self__PGT,void *element__QGT)
// ({FAST_ARRAYoITM_LOCALo},{NULLxITM_LOCAL}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__RGT,__tmp__VHT,__tmp__AFAC,Self__CDWD;
  __BOOLEAN __tmp__5GT;
  void **__tmp__UHT,**new__NEAC;
  new_capacity__RGT= 0;
  if (((__INTEGER)(Self__PGT->parent_arrayed_collection__CAI.upper__T1K +  1) <= (__INTEGER)(Self__PGT->parent_arrayed_collection__CAI.capacity__DUS -  1))) {
    Self__PGT->parent_arrayed_collection__CAI.upper__T1K=(__INTEGER)(Self__PGT->parent_arrayed_collection__CAI.upper__T1K +  1);
    __tmp__5GT=TRUE__;
  } else {
    __tmp__5GT=FALSE__;
  };
  if ((! __tmp__5GT)) {
    if ((Self__PGT->parent_arrayed_collection__CAI.capacity__DUS ==  0)) {
      Self__PGT->parent_arrayed_collection__CAI.storage__OUS=create__0GNB( 2);
      Self__PGT->parent_arrayed_collection__CAI.capacity__DUS= 2;
      Self__PGT->parent_arrayed_collection__CAI.upper__T1K= 0;
    } else {
      new_capacity__RGT=(__INTEGER)(Self__PGT->parent_arrayed_collection__CAI.capacity__DUS <<  1);
      __tmp__UHT=Self__PGT->parent_arrayed_collection__CAI.storage__OUS;
      __tmp__VHT=Self__PGT->parent_arrayed_collection__CAI.capacity__DUS;
      new__NEAC=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__UHT)),((__UINTEGER_32 )(__INTEGER)(__tmp__VHT * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__RGT * ((__INTEGER )(sizeof(void *)))))));
      __tmp__AFAC=(__INTEGER)(new_capacity__RGT -  1);
      Self__CDWD=__tmp__VHT;
      while ((Self__CDWD <= __tmp__AFAC)) {
        new__NEAC[Self__CDWD]=NULL;
        Self__CDWD=(__INTEGER)(Self__CDWD +  1);
      };
      Self__PGT->parent_arrayed_collection__CAI.storage__OUS=new__NEAC;
      Self__PGT->parent_arrayed_collection__CAI.capacity__DUS=new_capacity__RGT;
      Self__PGT->parent_arrayed_collection__CAI.upper__T1K=(__INTEGER)(Self__PGT->parent_arrayed_collection__CAI.upper__T1K +  1);
    };
  };
  ((void **)Self__PGT->parent_arrayed_collection__CAI.storage__OUS)[Self__PGT->parent_arrayed_collection__CAI.upper__T1K]=element__QGT;
}

static void free__XMK(void *tmp__ZMK)
// ({NULLxFAST_ARRAYoITM_LOCALo}) VoidNo recursive, No inlinable.
{
  __INTEGER new_capacity__O0S,__tmp__S1S,__tmp__TZ5B,Self__Q4VD;
  __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__M0S;
  __BOOLEAN __tmp__20S;
  void **__tmp__R1S,**new__AZ5B;
  ((__FAST_ARRAYoITM_LOCALo *)tmp__ZMK)->parent_arrayed_collection__CAI.upper__T1K=(__INTEGER)(-  1);
  Self__M0S=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__CXI);
  new_capacity__O0S= 0;
  if (((__INTEGER)(Self__M0S->parent_arrayed_collection__BXI.upper__OAS +  1) <= (__INTEGER)(Self__M0S->parent_arrayed_collection__BXI.capacity__ISS -  1))) {
    Self__M0S->parent_arrayed_collection__BXI.upper__OAS=(__INTEGER)(Self__M0S->parent_arrayed_collection__BXI.upper__OAS +  1);
    __tmp__20S=TRUE__;
  } else {
    __tmp__20S=FALSE__;
  };
  if ((! __tmp__20S)) {
    if ((Self__M0S->parent_arrayed_collection__BXI.capacity__ISS ==  0)) {
      Self__M0S->parent_arrayed_collection__BXI.storage__TSS=create__K0MB( 2);
      Self__M0S->parent_arrayed_collection__BXI.capacity__ISS= 2;
      Self__M0S->parent_arrayed_collection__BXI.upper__OAS= 0;
    } else {
      new_capacity__O0S=(__INTEGER)(Self__M0S->parent_arrayed_collection__BXI.capacity__ISS <<  1);
      __tmp__R1S=Self__M0S->parent_arrayed_collection__BXI.storage__TSS;
      __tmp__S1S=Self__M0S->parent_arrayed_collection__BXI.capacity__ISS;
      new__AZ5B=((void **)realloc_dynamic__old_size__new_size__HBHC(((__POINTER )((void **)__tmp__R1S)),((__UINTEGER_32 )(__INTEGER)(__tmp__S1S * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__O0S * ((__INTEGER )(sizeof(void *)))))));
      __tmp__TZ5B=(__INTEGER)(new_capacity__O0S -  1);
      Self__Q4VD=__tmp__S1S;
      while ((Self__Q4VD <= __tmp__TZ5B)) {
        new__AZ5B[Self__Q4VD]=NULL;
        Self__Q4VD=(__INTEGER)(Self__Q4VD +  1);
      };
      Self__M0S->parent_arrayed_collection__BXI.storage__TSS=new__AZ5B;
      Self__M0S->parent_arrayed_collection__BXI.capacity__ISS=new_capacity__O0S;
      Self__M0S->parent_arrayed_collection__BXI.upper__OAS=(__INTEGER)(Self__M0S->parent_arrayed_collection__BXI.upper__OAS +  1);
    };
  };
  ((void **)Self__M0S->parent_arrayed_collection__BXI.storage__TSS)[Self__M0S->parent_arrayed_collection__BXI.upper__OAS]=tmp__ZMK;
}

static void* copy__KBK(void *tmp__MBK)
// ({NULLxFAST_ARRAYoITM_LOCALo}) With resultNo recursive, No inlinable.
{
  __INTEGER new_capacity__0TS,other_upper__ZTS,Self__UBGC;
  void *result__OBK;
  __FAST_ARRAYoITM_LOCALo *Self__XTS;
  void **__tmp__RUS,**__tmp__TUS,**Self__FN4B;
  result__OBK=create_with_capacity__RMK((__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)tmp__MBK)->parent_arrayed_collection__CAI.upper__T1K +  1));
  Self__XTS=((__FAST_ARRAYoITM_LOCALo *)result__OBK);
  new_capacity__0TS= 0;
  other_upper__ZTS=((__FAST_ARRAYoITM_LOCALo *)tmp__MBK)->parent_arrayed_collection__CAI.upper__T1K;
  if ((other_upper__ZTS >=  0)) {
    new_capacity__0TS=(__INTEGER)(other_upper__ZTS +  1);
    if ((Self__XTS->parent_arrayed_collection__CAI.capacity__DUS < new_capacity__0TS)) {
      Self__XTS->parent_arrayed_collection__CAI.storage__OUS=create__0GNB(new_capacity__0TS);
      Self__XTS->parent_arrayed_collection__CAI.capacity__DUS=new_capacity__0TS;
    };
    __tmp__RUS=Self__XTS->parent_arrayed_collection__CAI.storage__OUS;
    __tmp__TUS=((__FAST_ARRAYoITM_LOCALo *)tmp__MBK)->parent_arrayed_collection__CAI.storage__OUS;
    Self__FN4B=((void **)__tmp__RUS);
    Self__UBGC=other_upper__ZTS;
    while ((Self__UBGC >=  0)) {
      Self__FN4B[Self__UBGC]=((void **)__tmp__TUS)[Self__UBGC];
      Self__UBGC=(__INTEGER)(Self__UBGC -  1);
    };
  };
  Self__XTS->parent_arrayed_collection__CAI.upper__T1K=other_upper__ZTS;
  free__XMK(tmp__MBK);
  return(result__OBK);
}

static void append_collection__DERD(__FAST_ARRAYoITM_LOCALo *Self__EERD,void *other__FERD)
// ({FAST_ARRAYoITM_LOCALo},{NULLxFAST_ARRAYoITM_LOCALo}) VoidNo recursive, No inlinable.
{
  __INTEGER __tmp__PERD,Self__DQVD;
  __tmp__PERD=((__FAST_ARRAYoITM_LOCALo *)other__FERD)->parent_arrayed_collection__CAI.upper__T1K;
  Self__DQVD= 0;
  while ((Self__DQVD <= __tmp__PERD)) {
    add_last__OGT(Self__EERD,((void **)((__FAST_ARRAYoITM_LOCALo *)other__FERD)->parent_arrayed_collection__CAI.storage__OUS)[Self__DQVD]);
    Self__DQVD=(__INTEGER)(Self__DQVD +  1);
  };
}

static void** create__GWNB(__INTEGER nb_elements__IWNB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__MVIG,a__LVIG,new_size__NVIG,new_size2__OVIG,a__PVIG;
  __UINTEGER_32 new_size__QVIG;
  __POINTER result__KVIG,ptr_table__XELG,next__WELG,result__YELG;
  __INTEGER Self__UVJC;
  void **Result__KPQB;
  sz__MVIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__IWNB * ((__INTEGER )(sizeof(void *)))));
  result__KVIG=((__POINTER )(NULL));
  a__LVIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__NVIG=(__UINTEGER_32)((__UINTEGER_32)(sz__MVIG + a__LVIG) & (__UINTEGER_32)(~ a__LVIG));
  new_size2__OVIG=(__UINTEGER_32)(new_size__NVIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__OVIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__PVIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__QVIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OVIG + a__PVIG) & (__UINTEGER_32)(~ a__PVIG));
    ptr_table__XELG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QVIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__WELG=((__POINTER )(NULL));
    result__YELG=((__POINTER *)ptr_table__XELG)[ 0];
    if ((result__YELG == (void *)NULL)) {
      result__YELG=new_lab__RUJ(new_size__QVIG);
      next__WELG=(void *)((unsigned long)result__YELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QVIG)));
      ((__POINTER *)next__WELG)[ 0]=NULL;
      ((__POINTER *)ptr_table__XELG)[ 0]=next__WELG;
    } else {
      next__WELG=((__POINTER *)result__YELG)[ 0];
      if ((next__WELG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YELG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__QVIG <<  1)) <=  4096)) {
          next__WELG=(void *)((unsigned long)result__YELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QVIG)));
        } else {
          next__WELG=new_lab__RUJ(new_size__QVIG);
        };
        ((__POINTER *)next__WELG)[ 0]=NULL;
        ((__POINTER *)ptr_table__XELG)[ 0]=next__WELG;
      } else {
        ((__POINTER *)result__YELG)[ 0]=(void *)((unsigned long)((__POINTER *)next__WELG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__YELG=next__WELG;
      };
    };
    ((__POINTER *)result__YELG)[ 0]=((__POINTER ) 3);
    result__KVIG=(void *)((unsigned long)result__YELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__KVIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__NVIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__KPQB=((void **)result__KVIG);
  Self__UVJC=(__INTEGER)(nb_elements__IWNB -  1);
  while ((Self__UVJC >=  0)) {
    Result__KPQB[Self__UVJC]=NULL;
    Self__UVJC=(__INTEGER)(Self__UVJC -  1);
  };
  return(Result__KPQB);
}

static void* read_send_msg__DXN(__PARSER *Self__EXN,void *first_arg__FXN)
// ({PARSER},{NULLxITM_LISTxITM_PROTOTYPExITM_READxITM_READ_ARG2xITM_OLDxITM_EXTERNAL_TYPExITM_REALxITM_NUMBERxITM_CHARACTERxITM_STRINGxITM_EXTERNALxITM_READ_ARGS}) With resultNo recursive, No inlinable.
{
  void *result__HXN,*arg__LXN,*tmp__X3NB;
  void *n__JXN,*result__F2HG;
  __INTEGER p1__MXN,p2__NXN,old_derive__OXN,sav_derive__PXN;
  __INTEGER typ_id__MMJG,typ_id__VMJG,typ_id__4MJG,Self__VKWC;
  __INTEGER typ_id__NKP;
  __POSITION pos__SK2F,p__SMJG,p__1MJG,p__ENJG,p__TFP;
  __ITM_READ *result__KMJG;
  __POINTER ptr__LMJG,ptr_table__2ELG,next__1ELG,result__3ELG;
  __POINTER ptr_table__BFLG,next__AFLG,result__CFLG,ptr__UMJG;
  __POINTER ptr_table__GFLG,next__FFLG,result__HFLG,ptr_table__LFLG;
  __POINTER next__KFLG,result__MFLG,ptr__3MJG,ptr_table__QFLG;
  __POINTER next__PFLG,result__RFLG,ptr_table__VFLG,next__UFLG;
  __POINTER result__WFLG,ptr__IKP,ptr_table__0FLG,next__ZFLG;
  __POINTER result__1FLG,ptr_table__5FLG,next__4FLG,result__AGLG;
  __UINTEGER_32 sz__NMJG,a__OMJG,new_size__PMJG,t__QMJG,a__RMJG;
  __UINTEGER_32 new_size__EFLG,lab_type__DFLG,sz__WMJG,a__XMJG;
  __UINTEGER_32 new_size__YMJG,t__ZMJG,a__0MJG,new_size__OFLG;
  __UINTEGER_32 lab_type__NFLG,sz__5MJG,a__ANJG,new_size__BNJG,t__CNJG;
  __UINTEGER_32 a__DNJG,new_size__YFLG,lab_type__XFLG,sz__KKP,a__U2HG;
  __UINTEGER_32 new_size__V2HG,t__Z2HG,a__Y2HG,new_size__CGLG;
  __UINTEGER_32 lab_type__BGLG;
  __ITM_READ_ARG1 *result__TMJG;
  __ITM_READ_ARG2 *result__2MJG;
  __ITM_READ_ARGS *result__HKP;
  void *l_arg__KXN,*result__CQIG;
  __FAST_ARRAYoSTRINGo *Self__G2HG,*Self__I2HG;
  __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__DQIG,*Self__EQIG;
  __BOOLEAN __tmp__J1N;
  __FAST_ARRAYoITM_CODEo *Self__H3T;
  void **__tmp__XQIG,**__tmp__YQIG,**__tmp__ZQIG;
  result__HXN=NULL;
  n__JXN=NULL;
  l_arg__KXN=NULL;
  arg__LXN=NULL;
  p1__MXN= 0;
  p2__NXN= 0;
  old_derive__OXN= 0;
  sav_derive__PXN= 0;
  if (read_identifier__EBL()) {
    p1__MXN=(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C);
    p2__NXN=position__V0B;
    old_derive__OXN=short_derive__O1B;
    result__F2HG=NULL;
    if ((((__FAST_ARRAYoSTRINGo *)free__C0O)->parent_arrayed_collection__YDC.upper__1DC <  0)) {
      result__F2HG=create__01( 128);
    } else {
      Self__G2HG=((__FAST_ARRAYoSTRINGo *)free__C0O);
      result__F2HG=((void **)Self__G2HG->parent_arrayed_collection__YDC.storage__2LR)[Self__G2HG->parent_arrayed_collection__YDC.upper__1DC];
      Self__I2HG=((__FAST_ARRAYoSTRINGo *)free__C0O);
      Self__I2HG->parent_arrayed_collection__YDC.upper__1DC=(__INTEGER)(Self__I2HG->parent_arrayed_collection__YDC.upper__1DC -  1);
    };
    n__JXN=result__F2HG;
    copy__5GQ(result__F2HG,last_string__NTC);
    result__CQIG=NULL;
    if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI)->parent_arrayed_collection__4CI.upper__M1R <  0)) {
      result__CQIG=create_with_capacity__X0I( 16);
    } else {
      Self__DQIG=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
      result__CQIG=((void **)Self__DQIG->parent_arrayed_collection__4CI.storage__1FS)[Self__DQIG->parent_arrayed_collection__4CI.upper__M1R];
      Self__EQIG=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__5CI);
      Self__EQIG->parent_arrayed_collection__4CI.upper__M1R=(__INTEGER)(Self__EQIG->parent_arrayed_collection__4CI.upper__M1R -  1);
    };
    l_arg__KXN=result__CQIG;
    arg__LXN=read_argument__U0O(Self__EXN);
    if (((void *)arg__LXN != (void *)NULL)) {
      add_last__GVT(result__CQIG,arg__LXN);
      while (read_identifier__EBL()) {
        short__token__to__R0C((&__string_103),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
        append__CRQ(n__JXN,(&__string_84));
        append__CRQ(n__JXN,last_string__NTC);
        arg__LXN=read_argument__U0O(Self__EXN);
        if (((void *)arg__LXN == (void *)NULL)) {
          pos__SK2F=current_position__A0F();
          put_error__text__WRG( 0,(&__string_245));
          put_position__ATG(pos__SK2F);
          put_string__55F(msg_err__1RG);
          if ((type_error__0RG !=  2)) {
            exit(( 1));
          };
        };
        add_last__GVT(l_arg__KXN,arg__LXN);
      };
    };
    get__TPB(result__F2HG);
    add_last__RST(free__C0O,result__F2HG);
    ((__STRING *)result__F2HG)->count__04B= 0;
    if ((((! (((__FAST_ARRAYoITM_CODEo *)result__CQIG)->parent_arrayed_collection__KWF.upper__D2R <  0)) || ((void *)first_arg__FXN != (void *)NULL)) || (! fast_has__LKT(short_local__W1B,last_string__NTC)))) {
      sav_derive__PXN=short_derive__O1B;
      short_derive__O1B=old_derive__OXN;
      short__token__to__R0C((&__string_103),p1__MXN,p2__NXN);
      short_derive__O1B=(__INTEGER)(sav_derive__PXN + (__INTEGER)(short_derive__O1B - old_derive__OXN));
    };
    if ((((__FAST_ARRAYoITM_CODEo *)result__CQIG)->parent_arrayed_collection__KWF.upper__D2R <  0)) {
      if (((void *)first_arg__FXN == (void *)NULL)) {
        p__SMJG=current_position__A0F();
        result__KMJG=NULL;
        ptr__LMJG=((__POINTER )(NULL));
        typ_id__MMJG= 0;
        sz__NMJG=((__UINTEGER_32 )sizeof(__ITM_READ));
        if ((sz__NMJG ==  0)) {
          result__KMJG=ITM_READ__;
        } else {
          typ_id__MMJG=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__NMJG);
          if ((typ_id__MMJG == (__INTEGER)(-  1))) {
            a__OMJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__PMJG=(__UINTEGER_32)((__UINTEGER_32)(sz__NMJG + a__OMJG) & (__UINTEGER_32)(~ a__OMJG));
            ptr_table__2ELG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PMJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__1ELG=((__POINTER )(NULL));
            result__3ELG=((__POINTER *)ptr_table__2ELG)[ 0];
            if ((result__3ELG == (void *)NULL)) {
              result__3ELG=new_lab__RUJ(new_size__PMJG);
              next__1ELG=(void *)((unsigned long)result__3ELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMJG)));
              ((__POINTER *)next__1ELG)[ 0]=NULL;
              ((__POINTER *)ptr_table__2ELG)[ 0]=next__1ELG;
            } else {
              next__1ELG=((__POINTER *)result__3ELG)[ 0];
              if ((next__1ELG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3ELG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__PMJG <<  1)) <=  4096)) {
                  next__1ELG=(void *)((unsigned long)result__3ELG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMJG)));
                } else {
                  next__1ELG=new_lab__RUJ(new_size__PMJG);
                };
                ((__POINTER *)next__1ELG)[ 0]=NULL;
                ((__POINTER *)ptr_table__2ELG)[ 0]=next__1ELG;
              } else {
                ((__POINTER *)result__3ELG)[ 0]=(void *)((unsigned long)((__POINTER *)next__1ELG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__3ELG=next__1ELG;
              };
            };
            ptr__LMJG=result__3ELG;
          } else {
            t__QMJG=((__UINTEGER_32 )typ_id__MMJG);
            a__RMJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__EFLG=(__UINTEGER_32)((__UINTEGER_32)(sz__NMJG + a__RMJG) & (__UINTEGER_32)(~ a__RMJG));
            ptr_table__BFLG=((__POINTER )(&(table_type[(t__QMJG)])));
            lab_type__DFLG=(__UINTEGER_32)(t__QMJG |  1);
            next__AFLG=((__POINTER )(NULL));
            result__CFLG=((__POINTER *)ptr_table__BFLG)[ 0];
            if ((result__CFLG == (void *)NULL)) {
              result__CFLG=new_lab__RUJ(lab_type__DFLG);
              next__AFLG=(void *)((unsigned long)result__CFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EFLG)));
              ((__POINTER *)next__AFLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__BFLG)[ 0]=next__AFLG;
            } else {
              next__AFLG=((__POINTER *)result__CFLG)[ 0];
              if ((next__AFLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CFLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__EFLG <<  1)) <=  4096)) {
                  next__AFLG=(void *)((unsigned long)result__CFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EFLG)));
                } else {
                  next__AFLG=new_lab__RUJ(lab_type__DFLG);
                };
                ((__POINTER *)next__AFLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__BFLG)[ 0]=next__AFLG;
              } else {
                ((__POINTER *)result__CFLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__AFLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__CFLG=next__AFLG;
              };
            };
            ptr__LMJG=result__CFLG;
          };
          result__KMJG=((__ITM_READ *)ptr__LMJG);
          *(result__KMJG) = *(ITM_READ__);
        };
        ((__ITM_READ *)result__KMJG)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__SMJG;
        result__HXN=result__KMJG;
      } else {
        p__1MJG=current_position__A0F();
        result__TMJG=NULL;
        ptr__UMJG=((__POINTER )(NULL));
        typ_id__VMJG= 0;
        sz__WMJG=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
        if ((sz__WMJG ==  0)) {
          result__TMJG=ITM_READ_ARG1__;
        } else {
          typ_id__VMJG=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__WMJG);
          if ((typ_id__VMJG == (__INTEGER)(-  1))) {
            a__XMJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__YMJG=(__UINTEGER_32)((__UINTEGER_32)(sz__WMJG + a__XMJG) & (__UINTEGER_32)(~ a__XMJG));
            ptr_table__GFLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YMJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__FFLG=((__POINTER )(NULL));
            result__HFLG=((__POINTER *)ptr_table__GFLG)[ 0];
            if ((result__HFLG == (void *)NULL)) {
              result__HFLG=new_lab__RUJ(new_size__YMJG);
              next__FFLG=(void *)((unsigned long)result__HFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YMJG)));
              ((__POINTER *)next__FFLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__GFLG)[ 0]=next__FFLG;
            } else {
              next__FFLG=((__POINTER *)result__HFLG)[ 0];
              if ((next__FFLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HFLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YMJG <<  1)) <=  4096)) {
                  next__FFLG=(void *)((unsigned long)result__HFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YMJG)));
                } else {
                  next__FFLG=new_lab__RUJ(new_size__YMJG);
                };
                ((__POINTER *)next__FFLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__GFLG)[ 0]=next__FFLG;
              } else {
                ((__POINTER *)result__HFLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__FFLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__HFLG=next__FFLG;
              };
            };
            ptr__UMJG=result__HFLG;
          } else {
            t__ZMJG=((__UINTEGER_32 )typ_id__VMJG);
            a__0MJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__OFLG=(__UINTEGER_32)((__UINTEGER_32)(sz__WMJG + a__0MJG) & (__UINTEGER_32)(~ a__0MJG));
            ptr_table__LFLG=((__POINTER )(&(table_type[(t__ZMJG)])));
            lab_type__NFLG=(__UINTEGER_32)(t__ZMJG |  1);
            next__KFLG=((__POINTER )(NULL));
            result__MFLG=((__POINTER *)ptr_table__LFLG)[ 0];
            if ((result__MFLG == (void *)NULL)) {
              result__MFLG=new_lab__RUJ(lab_type__NFLG);
              next__KFLG=(void *)((unsigned long)result__MFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OFLG)));
              ((__POINTER *)next__KFLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__LFLG)[ 0]=next__KFLG;
            } else {
              next__KFLG=((__POINTER *)result__MFLG)[ 0];
              if ((next__KFLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MFLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__OFLG <<  1)) <=  4096)) {
                  next__KFLG=(void *)((unsigned long)result__MFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OFLG)));
                } else {
                  next__KFLG=new_lab__RUJ(lab_type__NFLG);
                };
                ((__POINTER *)next__KFLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__LFLG)[ 0]=next__KFLG;
              } else {
                ((__POINTER *)result__MFLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__KFLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__MFLG=next__KFLG;
              };
            };
            ptr__UMJG=result__MFLG;
          };
          result__TMJG=((__ITM_READ_ARG1 *)ptr__UMJG);
          *(result__TMJG) = *(ITM_READ_ARG1__);
        };
        ((__ITM_READ_ARG1 *)result__TMJG)->parent_itm_read__TGL.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__1MJG;
        result__HXN=result__TMJG;
      };
      free__30I(result__CQIG);
      __tmp__J1N=TRUE__;
    } else {
      __tmp__J1N=FALSE__;
    };
    if ((! __tmp__J1N)) {
      if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__CQIG)->parent_arrayed_collection__KWF.upper__D2R +  1) ==  1)) {
        p__ENJG=current_position__A0F();
        result__2MJG=NULL;
        ptr__3MJG=((__POINTER )(NULL));
        typ_id__4MJG= 0;
        sz__5MJG=((__UINTEGER_32 )sizeof(__ITM_READ_ARG2));
        if ((sz__5MJG ==  0)) {
          result__2MJG=ITM_READ_ARG2__;
        } else {
          typ_id__4MJG=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__5MJG);
          if ((typ_id__4MJG == (__INTEGER)(-  1))) {
            a__ANJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__BNJG=(__UINTEGER_32)((__UINTEGER_32)(sz__5MJG + a__ANJG) & (__UINTEGER_32)(~ a__ANJG));
            ptr_table__QFLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BNJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__PFLG=((__POINTER )(NULL));
            result__RFLG=((__POINTER *)ptr_table__QFLG)[ 0];
            if ((result__RFLG == (void *)NULL)) {
              result__RFLG=new_lab__RUJ(new_size__BNJG);
              next__PFLG=(void *)((unsigned long)result__RFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BNJG)));
              ((__POINTER *)next__PFLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__QFLG)[ 0]=next__PFLG;
            } else {
              next__PFLG=((__POINTER *)result__RFLG)[ 0];
              if ((next__PFLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RFLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__BNJG <<  1)) <=  4096)) {
                  next__PFLG=(void *)((unsigned long)result__RFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BNJG)));
                } else {
                  next__PFLG=new_lab__RUJ(new_size__BNJG);
                };
                ((__POINTER *)next__PFLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__QFLG)[ 0]=next__PFLG;
              } else {
                ((__POINTER *)result__RFLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__PFLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__RFLG=next__PFLG;
              };
            };
            ptr__3MJG=result__RFLG;
          } else {
            t__CNJG=((__UINTEGER_32 )typ_id__4MJG);
            a__DNJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__YFLG=(__UINTEGER_32)((__UINTEGER_32)(sz__5MJG + a__DNJG) & (__UINTEGER_32)(~ a__DNJG));
            ptr_table__VFLG=((__POINTER )(&(table_type[(t__CNJG)])));
            lab_type__XFLG=(__UINTEGER_32)(t__CNJG |  1);
            next__UFLG=((__POINTER )(NULL));
            result__WFLG=((__POINTER *)ptr_table__VFLG)[ 0];
            if ((result__WFLG == (void *)NULL)) {
              result__WFLG=new_lab__RUJ(lab_type__XFLG);
              next__UFLG=(void *)((unsigned long)result__WFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFLG)));
              ((__POINTER *)next__UFLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__VFLG)[ 0]=next__UFLG;
            } else {
              next__UFLG=((__POINTER *)result__WFLG)[ 0];
              if ((next__UFLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WFLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YFLG <<  1)) <=  4096)) {
                  next__UFLG=(void *)((unsigned long)result__WFLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFLG)));
                } else {
                  next__UFLG=new_lab__RUJ(lab_type__XFLG);
                };
                ((__POINTER *)next__UFLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__VFLG)[ 0]=next__UFLG;
              } else {
                ((__POINTER *)result__WFLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__UFLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__WFLG=next__UFLG;
              };
            };
            ptr__3MJG=result__WFLG;
          };
          result__2MJG=((__ITM_READ_ARG2 *)ptr__3MJG);
          *(result__2MJG) = *(ITM_READ_ARG2__);
        };
        ((__ITM_READ_ARG2 *)result__2MJG)->parent_itm_read__DLJ.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__ENJG;
        result__HXN=result__2MJG;
        free__30I(result__CQIG);
      } else {
        Self__H3T=((__FAST_ARRAYoITM_CODEo *)result__CQIG);
        add_last__GVT(Self__H3T,first_arg__FXN);
        if ((Self__H3T->parent_arrayed_collection__KWF.upper__D2R !=  0)) {
          if ((Self__H3T->parent_arrayed_collection__KWF.upper__D2R ==  1)) {
            tmp__X3NB=((void **)Self__H3T->parent_arrayed_collection__KWF.storage__K3R)[ 0];
            ((void **)Self__H3T->parent_arrayed_collection__KWF.storage__K3R)[ 0]=((void **)Self__H3T->parent_arrayed_collection__KWF.storage__K3R)[ 1];
            ((void **)Self__H3T->parent_arrayed_collection__KWF.storage__K3R)[ 1]=tmp__X3NB;
          } else {
            Self__VKWC=(__INTEGER)(Self__H3T->parent_arrayed_collection__KWF.upper__D2R -  1);
            __tmp__XQIG=Self__H3T->parent_arrayed_collection__KWF.storage__K3R;
            __tmp__YQIG=Self__H3T->parent_arrayed_collection__KWF.storage__K3R;
            __tmp__ZQIG=Self__H3T->parent_arrayed_collection__KWF.storage__K3R;
            while ((Self__VKWC >=  0)) {
              ((void **)__tmp__YQIG)[(__INTEGER)(Self__VKWC +  1)]=((void **)__tmp__XQIG)[Self__VKWC];
              ((void **)__tmp__ZQIG)[Self__VKWC]=NULL;
              Self__VKWC=(__INTEGER)(Self__VKWC -  1);
            };
            ((void **)Self__H3T->parent_arrayed_collection__KWF.storage__K3R)[ 0]=first_arg__FXN;
          };
        };
        l_arg__KXN=copy__OEI(result__CQIG);
        p__TFP=current_position__A0F();
        result__HKP=NULL;
        ptr__IKP=((__POINTER )(NULL));
        typ_id__NKP= 0;
        sz__KKP=((__UINTEGER_32 )sizeof(__ITM_READ_ARGS));
        if ((sz__KKP ==  0)) {
          result__HKP=ITM_READ_ARGS__;
        } else {
          typ_id__NKP=-1;
          clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__KKP);
          if ((typ_id__NKP == (__INTEGER)(-  1))) {
            a__U2HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__V2HG=(__UINTEGER_32)((__UINTEGER_32)(sz__KKP + a__U2HG) & (__UINTEGER_32)(~ a__U2HG));
            ptr_table__0FLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__V2HG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
            next__ZFLG=((__POINTER )(NULL));
            result__1FLG=((__POINTER *)ptr_table__0FLG)[ 0];
            if ((result__1FLG == (void *)NULL)) {
              result__1FLG=new_lab__RUJ(new_size__V2HG);
              next__ZFLG=(void *)((unsigned long)result__1FLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__V2HG)));
              ((__POINTER *)next__ZFLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__0FLG)[ 0]=next__ZFLG;
            } else {
              next__ZFLG=((__POINTER *)result__1FLG)[ 0];
              if ((next__ZFLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1FLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__V2HG <<  1)) <=  4096)) {
                  next__ZFLG=(void *)((unsigned long)result__1FLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__V2HG)));
                } else {
                  next__ZFLG=new_lab__RUJ(new_size__V2HG);
                };
                ((__POINTER *)next__ZFLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__0FLG)[ 0]=next__ZFLG;
              } else {
                ((__POINTER *)result__1FLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZFLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__1FLG=next__ZFLG;
              };
            };
            ptr__IKP=result__1FLG;
          } else {
            t__Z2HG=((__UINTEGER_32 )typ_id__NKP);
            a__Y2HG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
            new_size__CGLG=(__UINTEGER_32)((__UINTEGER_32)(sz__KKP + a__Y2HG) & (__UINTEGER_32)(~ a__Y2HG));
            ptr_table__5FLG=((__POINTER )(&(table_type[(t__Z2HG)])));
            lab_type__BGLG=(__UINTEGER_32)(t__Z2HG |  1);
            next__4FLG=((__POINTER )(NULL));
            result__AGLG=((__POINTER *)ptr_table__5FLG)[ 0];
            if ((result__AGLG == (void *)NULL)) {
              result__AGLG=new_lab__RUJ(lab_type__BGLG);
              next__4FLG=(void *)((unsigned long)result__AGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CGLG)));
              ((__POINTER *)next__4FLG)[ 0]=NULL;
              ((__POINTER *)ptr_table__5FLG)[ 0]=next__4FLG;
            } else {
              next__4FLG=((__POINTER *)result__AGLG)[ 0];
              if ((next__4FLG == (void *)NULL)) {
                if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AGLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__CGLG <<  1)) <=  4096)) {
                  next__4FLG=(void *)((unsigned long)result__AGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CGLG)));
                } else {
                  next__4FLG=new_lab__RUJ(lab_type__BGLG);
                };
                ((__POINTER *)next__4FLG)[ 0]=NULL;
                ((__POINTER *)ptr_table__5FLG)[ 0]=next__4FLG;
              } else {
                ((__POINTER *)result__AGLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__4FLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
                result__AGLG=next__4FLG;
              };
            };
            ptr__IKP=result__AGLG;
          };
          result__HKP=((__ITM_READ_ARGS *)ptr__IKP);
          *(result__HKP) = *(ITM_READ_ARGS__);
        };
        ((__ITM_READ_ARGS *)result__HKP)->parent_itm_read__B2N.parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__TFP;
        result__HXN=result__HKP;
      };
    };
  };
  return(result__HXN);
}

static void** create__0GNB(__INTEGER nb_elements__2GNB)
// ({INTEGER}) With resultNo recursive, No inlinable.
{
  __UINTEGER_32 sz__UVIG,a__TVIG,new_size__VVIG,new_size2__WVIG,a__XVIG;
  __UINTEGER_32 new_size__YVIG;
  __POINTER result__SVIG,ptr_table__EGLG,next__DGLG,result__FGLG;
  __INTEGER Self__DRJC;
  void **Result__X4PB;
  sz__UVIG=((__UINTEGER_32 )(__INTEGER)(nb_elements__2GNB * ((__INTEGER )(sizeof(void *)))));
  result__SVIG=((__POINTER )(NULL));
  a__TVIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
  new_size__VVIG=(__UINTEGER_32)((__UINTEGER_32)(sz__UVIG + a__TVIG) & (__UINTEGER_32)(~ a__TVIG));
  new_size2__WVIG=(__UINTEGER_32)(new_size__VVIG + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
  if ((new_size2__WVIG <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
    a__XVIG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
    new_size__YVIG=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WVIG + a__XVIG) & (__UINTEGER_32)(~ a__XVIG));
    ptr_table__EGLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YVIG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
    next__DGLG=((__POINTER )(NULL));
    result__FGLG=((__POINTER *)ptr_table__EGLG)[ 0];
    if ((result__FGLG == (void *)NULL)) {
      result__FGLG=new_lab__RUJ(new_size__YVIG);
      next__DGLG=(void *)((unsigned long)result__FGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVIG)));
      ((__POINTER *)next__DGLG)[ 0]=NULL;
      ((__POINTER *)ptr_table__EGLG)[ 0]=next__DGLG;
    } else {
      next__DGLG=((__POINTER *)result__FGLG)[ 0];
      if ((next__DGLG == (void *)NULL)) {
        if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FGLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__YVIG <<  1)) <=  4096)) {
          next__DGLG=(void *)((unsigned long)result__FGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVIG)));
        } else {
          next__DGLG=new_lab__RUJ(new_size__YVIG);
        };
        ((__POINTER *)next__DGLG)[ 0]=NULL;
        ((__POINTER *)ptr_table__EGLG)[ 0]=next__DGLG;
      } else {
        ((__POINTER *)result__FGLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__DGLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
        result__FGLG=next__DGLG;
      };
    };
    ((__POINTER *)result__FGLG)[ 0]=((__POINTER ) 3);
    result__SVIG=(void *)((unsigned long)result__FGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
  } else {
    result__SVIG=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__BURB(new_size__VVIG))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
  };
  Result__X4PB=((void **)result__SVIG);
  Self__DRJC=(__INTEGER)(nb_elements__2GNB -  1);
  while ((Self__DRJC >=  0)) {
    Result__X4PB[Self__DRJC]=NULL;
    Self__DRJC=(__INTEGER)(Self__DRJC -  1);
  };
  return(Result__X4PB);
}

static void* read_argument__U0O(__PARSER *Self__V0O)
// ({PARSER}) With resultNo recursive, No inlinable.
{
  void *result__X0O;
  __POSITION p__NNJG;
  __ITM_READ *result__FNJG;
  __POINTER ptr__GNJG,ptr_table__JGLG,next__IGLG,result__KGLG;
  __POINTER ptr_table__OGLG,next__NGLG,result__PGLG;
  __INTEGER typ_id__HNJG;
  __UINTEGER_32 sz__INJG,a__JNJG,new_size__KNJG,t__LNJG,a__MNJG;
  __UINTEGER_32 new_size__RGLG,lab_type__QGLG;
  result__X0O=read_expr_primary__MDN(Self__V0O);
  if ((((void *)result__X0O == (void *)NULL) && read_identifier__EBL())) {
    if ((! fast_has__LKT(short_local__W1B,last_string__NTC))) {
      short__token__to__R0C((&__string_103),(__INTEGER)(position__V0B - ((__STRING_CONSTANT *)last_string__NTC)->count__4C),position__V0B);
    };
    p__NNJG=current_position__A0F();
    result__FNJG=NULL;
    ptr__GNJG=((__POINTER )(NULL));
    typ_id__HNJG= 0;
    sz__INJG=((__UINTEGER_32 )sizeof(__ITM_READ));
    if ((sz__INJG ==  0)) {
      result__FNJG=ITM_READ__;
    } else {
      typ_id__HNJG=-1;
      clone_allocation_size__NMB=(__UINTEGER_32)(clone_allocation_size__NMB + sz__INJG);
      if ((typ_id__HNJG == (__INTEGER)(-  1))) {
        a__JNJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__KNJG=(__UINTEGER_32)((__UINTEGER_32)(sz__INJG + a__JNJG) & (__UINTEGER_32)(~ a__JNJG));
        ptr_table__JGLG=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KNJG / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
        next__IGLG=((__POINTER )(NULL));
        result__KGLG=((__POINTER *)ptr_table__JGLG)[ 0];
        if ((result__KGLG == (void *)NULL)) {
          result__KGLG=new_lab__RUJ(new_size__KNJG);
          next__IGLG=(void *)((unsigned long)result__KGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KNJG)));
          ((__POINTER *)next__IGLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__JGLG)[ 0]=next__IGLG;
        } else {
          next__IGLG=((__POINTER *)result__KGLG)[ 0];
          if ((next__IGLG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KGLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__KNJG <<  1)) <=  4096)) {
              next__IGLG=(void *)((unsigned long)result__KGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KNJG)));
            } else {
              next__IGLG=new_lab__RUJ(new_size__KNJG);
            };
            ((__POINTER *)next__IGLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__JGLG)[ 0]=next__IGLG;
          } else {
            ((__POINTER *)result__KGLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__IGLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__KGLG=next__IGLG;
          };
        };
        ptr__GNJG=result__KGLG;
      } else {
        t__LNJG=((__UINTEGER_32 )typ_id__HNJG);
        a__MNJG=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) -  1);
        new_size__RGLG=(__UINTEGER_32)((__UINTEGER_32)(sz__INJG + a__MNJG) & (__UINTEGER_32)(~ a__MNJG));
        ptr_table__OGLG=((__POINTER )(&(table_type[(t__LNJG)])));
        lab_type__QGLG=(__UINTEGER_32)(t__LNJG |  1);
        next__NGLG=((__POINTER )(NULL));
        result__PGLG=((__POINTER *)ptr_table__OGLG)[ 0];
        if ((result__PGLG == (void *)NULL)) {
          result__PGLG=new_lab__RUJ(lab_type__QGLG);
          next__NGLG=(void *)((unsigned long)result__PGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RGLG)));
          ((__POINTER *)next__NGLG)[ 0]=NULL;
          ((__POINTER *)ptr_table__OGLG)[ 0]=next__NGLG;
        } else {
          next__NGLG=((__POINTER *)result__PGLG)[ 0];
          if ((next__NGLG == (void *)NULL)) {
            if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PGLG - (unsigned long)begin_memory__J0H)))) &  4095) + (__UINTEGER_32)(new_size__RGLG <<  1)) <=  4096)) {
              next__NGLG=(void *)((unsigned long)result__PGLG - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RGLG)));
            } else {
              next__NGLG=new_lab__RUJ(lab_type__QGLG);
            };
            ((__POINTER *)next__NGLG)[ 0]=NULL;
            ((__POINTER *)ptr_table__OGLG)[ 0]=next__NGLG;
          } else {
            ((__POINTER *)result__PGLG)[ 0]=(void *)((unsigned long)((__POINTER *)next__NGLG)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~  3)));
            result__PGLG=next__NGLG;
          };
        };
        ptr__GNJG=result__PGLG;
      };
      result__FNJG=((__ITM_READ *)ptr__GNJG);
      *(result__FNJG) = *(ITM_READ__);
    };
    ((__ITM_READ *)result__FNJG)->parent_itm_code__UHJ.parent_itm_object__P2D.position__REJ=p__NNJG;
    result__X0O=result__FNJG;
  };
  return(result__X0O);
}

//==========================//
// DEBUG MANAGER            //
//==========================//

void print_string(char *str) 
{ 
  while (*str!=0) {
    print_char(*str); 
    str++; 
  };
}  

