[SCM] Lisaac compiler branch, debian, updated. lisaac-0.12-408-ga2d6814
Frédéric-Emmanuel PICCA
picca at synchrotron-soleil.fr
Tue Aug 18 16:07:08 UTC 2009
The following commit has been merged in the debian branch:
commit a2d6814aa5ace81429c103740d7244a2fe75e35b
Author: Frédéric-Emmanuel PICCA <picca at synchrotron-soleil.fr>
Date: Tue Aug 18 18:05:17 2009 +0200
* import the last 0.13.1-2 debian package.
we will now update from a known starting point.
diff --git a/debian/changelog b/debian/changelog
index a10cd90..4857a86 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,21 +1,33 @@
-lisaac (1:0.13-1) unstable; urgency=low
+lisaac (1:0.13.1-2) unstable; urgency=low
- [ Xavier Oswald ]
- * Update copyright
- * add manpage for shorter
- * update lisaac manpage
- * add Vcs-Svn field in the control file
- * add Vcs-Browser field in the control file
+ * Add myself to Uploaders with the team's agreement.
+ * Bump Standards-Version to 3.8.0.
+ * Switch to quilt.
+ * Add the DM-Upload-Allowed field for Xavier.
+ * Pass Debian CFLAGS to upstream Makefile.
+ * Move lisaac-mode from Recommends to Suggests for lisaac,
+ as not all people want the whole emacs stuff pulled by default.
+ * FTBFS with purpose on alpha, amd64, and ia64,
+ as upstream does not support 64-bit architectures yet.
+
+ -- Aurélien GÉRÔME <ag at debian.org> Sat, 02 Aug 2008 09:45:45 +0200
+
+lisaac (1:0.13.1-1) unstable; urgency=low
- [Frederic Picca]
* New upstream release
+ * Update copyright, new copyright is GPLv3
+ * add manpage for shorter
+ * update lisaac manpage
* add an epoch due to a error in my previous version numbering
* Fix the build-depends on a new gcc version (closes: #440426, #463065)
* Fix the dependacy on the new emacs version (closes: #434920)
+ * Fix the debian/watch, fail to report upstream's version (closes: #450198)
* Update the package description
- * Standards-Version: 3.7.3 - no changes required.
+ * Standards-Version: 3.7.3
+ * remove 01 -> 04 patches, no more relevant
+ * add the 05_Makefile
- -- Xavier Oswald <x.oswald at free.fr> Wed, 30 Jan 2008 15:21:47 +0100
+ -- Xavier Oswald <x.oswald at free.fr> Tue, 26 Feb 2008 00:22:08 +0100
lisaac (0.84-3) unstable; urgency=low
diff --git a/debian/control b/debian/control
index 648b0df..98d4e2e 100644
--- a/debian/control
+++ b/debian/control
@@ -2,17 +2,17 @@ Source: lisaac
Section: devel
Priority: optional
Maintainer: picca frederic <picca at synchrotron-soleil.fr>
-Uploaders: Xavier Oswald <x.oswald at free.fr>
-Build-Depends: debhelper (>= 5.0.0), gcc (>= 4.1), dpatch, emacs22 | emacsen
-Standards-Version: 3.7.3
+Uploaders: Xavier Oswald <x.oswald at free.fr>, Aurélien GÉRÔME <ag at debian.org>
+Build-Depends: debhelper (>= 5.0.0), gcc (>= 4.1), quilt, emacs22 | emacsen
+Standards-Version: 3.8.0
Homepage: http://isaacproject.u-strasbg.fr/
-Vcs-Svn: svn://svn.gna.org/svn/isaac/trunk/lisaac
-Vcs-Browser: http://svn.gna.org/viewcvs/isaac/trunk/lisaac/
+DM-Upload-Allowed: yes
Package: lisaac
Architecture: any
Depends: ${shlibs:Depends}, lisaac-common, gcc(>= 4.1)
-Recommends: lisaac-doc, lisaac-mode
+Recommends: lisaac-doc
+Suggests: lisaac-mode
Description: Object-oriented language base on prototype
Lisaac is a small prototype-based programming language. The ideas in
Lisaac are mostly inspired by Smalltalk (all values are objects), Self
diff --git a/debian/copyright b/debian/copyright
index ee4b0bb..0f02d47 100644
--- a/debian/copyright
+++ b/debian/copyright
@@ -1,7 +1,9 @@
This package was debianized by picca frederic <picca at synchrotron-soleil.fr> on
Tue, 6 Jun 2006 21:50:23 +0200.
-The current Debian maintainer is picca frederic <picca at synchrotorn-soleil.fr>
+The current Debian maintainer are:
+ - Frederic Picca <picca at synchrotorn-soleil.fr>
+ - Xavier Oswald <x.oswald at free.fr>
It was downloaded from: http://isaacos.loria.fr/download/
diff --git a/debian/lisaac-common.install b/debian/lisaac-common.install
index cf6d746..80da355 100644
--- a/debian/lisaac-common.install
+++ b/debian/lisaac-common.install
@@ -1,4 +1 @@
-./lib /usr/share/lisaac
-./lib_os/unix /usr/share/lisaac/lib_os
-./shorter /usr/share/lisaac
-path.li /usr/share/lisaac
+usr/share/lisaac
diff --git a/debian/lisaac-doc.examples b/debian/lisaac-doc.examples
deleted file mode 100644
index 0bbe99e..0000000
--- a/debian/lisaac-doc.examples
+++ /dev/null
@@ -1 +0,0 @@
-example/*
diff --git a/debian/lisaac-doc.install b/debian/lisaac-doc.install
index 2d4593f..1a184dc 100644
--- a/debian/lisaac-doc.install
+++ b/debian/lisaac-doc.install
@@ -1 +1,2 @@
-./lib_html/* /usr/share/doc/lisaac-doc/html
+usr/share/doc/lisaac-doc/html
+usr/share/doc/lisaac-doc/examples
diff --git a/debian/lisaac-mode.install b/debian/lisaac-mode.install
index 38da434..ea58b31 100644
--- a/debian/lisaac-mode.install
+++ b/debian/lisaac-mode.install
@@ -1 +1 @@
-./editor/emacs/lisaac-mode.el /usr/share/emacs/site-lisp/lisaac-mode
+usr/share/emacs/site-lisp/lisaac-mode
diff --git a/debian/lisaac.1 b/debian/lisaac.1
deleted file mode 100644
index a1fd27c..0000000
--- a/debian/lisaac.1
+++ /dev/null
@@ -1,65 +0,0 @@
-.\" Hey, EMACS: -*- nroff -*-
-.\" First parameter, NAME, should be all caps
-.\" Second parameter, SECTION, should be 1-8, maybe w/ subsection
-.\" other parameters are allowed: see man(7), man(1)
-.TH LISAAC 1 "juin 6, 2006"
-.\" Please adjust this date whenever revising the manpage.
-.\"
-.\" Some roff macros, for reference:
-.\" .nh disable hyphenation
-.\" .hy enable hyphenation
-.\" .ad l left justify
-.\" .ad b justify to both left and right margins
-.\" .nf disable filling
-.\" .fi enable filling
-.\" .br insert line break
-.\" .sp <n> insert n+1 empty lines
-.\" for manpage-specific macros, see man(7)
-.SH NAME
-lisaac \- The first compiler for Object Prototype Language
-.SH SYNOPSIS
-.B lisaac
-.RI "input_file[.li] [ options ]"
-.SH DESCRIPTION
-This manual page documents briefly the
-.B lisaac
-command.
-.PP
-.\" TeX users may be more comfortable with the \fB<whatever>\fP and
-.\" \fI<whatever>\fP escape sequences to invode bold face and italics,
-.\" respectively.
-\fBlisaac\fP generate an ANSI C code which is compile with gcc-3.4.
-.SH OPTIONS
-.TP
-.B \-h, \-\-help
-Show summary of options.
-.TP
-.B \-o
-output file (default:`input_file.c').
-.TP
-.B \-t
-target code (see path.li).
-.TP
-.B \-i
-output C for Isaac OS (default:C ANSI).
-.TP
-.B \-v[012]
-0: Pseudo-Code C.
-.br
-1: [0] + Require/Ensure.
-.br
-2: [1] + Context.
-.TP
-.B \-d
-`is_debug_mode' is True.
-.TP
-.B \-w
-warning error stop compiler.
-.TP
-.B \-O
-Full optimization.
-.SH AUTHOR
-lisaac was written by Benoit SONNTAG <bsonntag at loria.fr>.
-.PP
-This manual page was written by picca frederic <picca at synchrotron-soleil.fr>,
-for the Debian project (but may be used by others).
diff --git a/debian/lisaac.dirs b/debian/lisaac.dirs
index e772481..98d1583 100644
--- a/debian/lisaac.dirs
+++ b/debian/lisaac.dirs
@@ -1 +1,2 @@
usr/bin
+usr/share/man/man1
diff --git a/debian/lisaac.install b/debian/lisaac.install
new file mode 100644
index 0000000..1317f86
--- /dev/null
+++ b/debian/lisaac.install
@@ -0,0 +1,2 @@
+/usr/bin
+/usr/share/man/man1
diff --git a/debian/patches/00list b/debian/patches/00list
deleted file mode 100644
index 01eb530..0000000
--- a/debian/patches/00list
+++ /dev/null
@@ -1,4 +0,0 @@
-01_rm_clean
-02_shorter_local
-03_path.h
-04_rm_lib_number_essai
diff --git a/debian/patches/01_rm_clean.dpatch b/debian/patches/01_rm_clean.dpatch
deleted file mode 100755
index bd94096..0000000
--- a/debian/patches/01_rm_clean.dpatch
+++ /dev/null
@@ -1,14 +0,0 @@
-#! /bin/sh /usr/share/dpatch/dpatch-run
-## 01_rm_clean.dpatch by <picca at synchrotron-soleil.fr>
-##
-## All lines beginning with `## DP:' are a description of the patch.
-## DP: remove the lib/clean script
-
- at DPATCH@
-diff -urNad lisaac~/lib/clean lisaac/lib/clean
---- lisaac~/lib/clean 2007-09-24 00:20:01.000000000 +0200
-+++ lisaac/lib/clean 1970-01-01 01:00:00.000000000 +0100
-@@ -1,3 +0,0 @@
--for i in `find -name "*~"` ; do rm $i ; done
--for i in `find -name "*.c"` ; do rm $i ; done
--for i in `find -name "*.old"` ; do rm $i ; done
diff --git a/debian/patches/02_shorter_local.dpatch b/debian/patches/02_shorter_local.dpatch
deleted file mode 100755
index 7d1e2a5..0000000
--- a/debian/patches/02_shorter_local.dpatch
+++ /dev/null
@@ -1,27439 +0,0 @@
-#! /bin/sh /usr/share/dpatch/dpatch-run
-## 02_shorter_local.dpatch by <picca at synchrotron-soleil.fr>
-##
-## All lines beginning with `## DP:' are a description of the patch.
-## DP: Create a local copy of the shorter program
-## DP: with path.h replace by the right #define LISAAC_DIRECTORY
-## DP: to generate the html documentation of the library
-
- at DPATCH@
-diff -urNad lisaac~/bin/shorter_local.c lisaac/bin/shorter_local.c
---- lisaac~/bin/shorter_local.c 1970-01-01 01:00:00.000000000 +0100
-+++ lisaac/bin/shorter_local.c 2007-10-28 10:41:41.000000000 +0100
-@@ -0,0 +1,27426 @@
-+// C code generated by Lisaac compiler (www.isaacOS.com) //
-+int arg_count;
-+char **arg_vector;
-+
-+//==========================//
-+// EXTERNAL //
-+//==========================//
-+
-+// SHORTER
-+#define LISAAC_DIRECTORY "."
-+// 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 at icps.u-stras\
-+bg.fr --\n-- http://www.IsaacOS.com \
-+ --\n----------------------------------------------------------------\nUs\
-+age: \n shorter <input\
-+_file[.li]> [Options] \n \
-+ \nOptions: \
-+ \n -o <output> : output file or directory \
-+ \n (default: <input_file.ext>) \n -p \
-+ : include `Section Private' \n -c : inc\
-+lude code source \n -r : recursive builder\
-+ documentation \n -f <format_file> : formatting description file \
-+ \n (see `/lisaac/shorter/') \n \
-+ \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 at 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++;
-+ };
-+}
-+
diff --git a/debian/patches/03_path.h.dpatch b/debian/patches/03_path.h.dpatch
deleted file mode 100755
index 205780d..0000000
--- a/debian/patches/03_path.h.dpatch
+++ /dev/null
@@ -1,13 +0,0 @@
-#! /bin/sh /usr/share/dpatch/dpatch-run
-## 03_path.h.dpatch by <picca at synchrotron-soleil.fr>
-##
-## All lines beginning with `## DP:' are a description of the patch.
-## DP: Create the correct path.h for lisaac to be FHS complient.
-
- at DPATCH@
-diff -urNad lisaac~/bin/path.h lisaac/bin/path.h
---- lisaac~/bin/path.h 2007-09-24 00:20:01.000000000 +0200
-+++ lisaac/bin/path.h 2007-10-28 11:42:40.000000000 +0100
-@@ -1 +1 @@
--#define LISAAC_DIRECTORY "Lisaac installer message: Please install Lisaac ... "
-+#define LISAAC_DIRECTORY "/usr/share/lisaac"
diff --git a/debian/patches/04_rm_lib_number_essai.dpatch b/debian/patches/04_rm_lib_number_essai.dpatch
deleted file mode 100755
index 9a4a5c2..0000000
Binary files a/debian/patches/04_rm_lib_number_essai.dpatch and /dev/null differ
diff --git a/debian/patches/makefile.patch b/debian/patches/makefile.patch
new file mode 100644
index 0000000..36ade62
--- /dev/null
+++ b/debian/patches/makefile.patch
@@ -0,0 +1,48 @@
+Index: lisaac-0.13.1/Makefile
+===================================================================
+--- lisaac-0.13.1.orig/Makefile 2008-08-02 09:38:49.000000000 +0200
++++ lisaac-0.13.1/Makefile 2008-08-02 09:39:53.000000000 +0200
+@@ -54,12 +54,13 @@
+ # bug tracker system: https://gna.org/bugs/?func=additem&group=isaac
+ # mail to: Xavier Oswald <x.oswald at free.fr>
+
+-LIB=/usr/lib/lisaac
++LIB=/usr/share/lisaac
+ EXAMPLE=/examples
+ HTML=/html
+ BIN=/usr/bin
+ MAN=/usr/share/man/man1
+-DOC=/usr/share/doc/lisaac
++DOC=/usr/share/doc/lisaac-doc
++EMACS=/usr/share/emacs/site-lisp/lisaac-mode
+ DESTDIR=
+ CC=gcc
+ CFLAGS=-O2
+@@ -81,23 +82,21 @@
+ mkdir -p $(DESTDIR)$(MAN)
+ mkdir -p $(DESTDIR)$(DOC)$(HTML)
+ mkdir -p $(DESTDIR)$(DOC)$(EXAMPLE)
++ mkdir -p $(DESTDIR)$(EMACS)
+ cp bin/lisaac $(DESTDIR)$(BIN)
+ cp bin/shorter $(DESTDIR)$(BIN)
+ cp path.li $(DESTDIR)$(LIB)
+ cp -rf lib/ $(DESTDIR)$(LIB)
+ cp -rf lib_os/ $(DESTDIR)$(LIB)
++ cp -rf lib_html/* $(DESTDIR)$(DOC)$(HTML)
+ cp -rf example/* $(DESTDIR)$(DOC)$(EXAMPLE)
++ rm -rf $(DESTDIR)$(DOC)$(EXAMPLE)/shootout
+ cp -rf shorter/ $(DESTDIR)$(LIB)
+ cp -rf manpage/*.gz $(DESTDIR)$(MAN)
++ cp -f editor/emacs/lisaac-mode.el $(DESTDIR)$(EMACS)
+ #$(DESTDIR)$(BIN)/shorter -r -f html lib -o $(DESTDIR)$(DOC)$(HTML)
+
+ clean:
+ rm -rf bin/lisaac
+ rm -rf bin/shorter
+ rm -rf bin/path.h
+- rm -rf $(DESTDIR)$(BIN)/lisaac
+- rm -rf $(DESTDIR)$(BIN)/shorter
+- rm -rf $(DESTDIR)$(LIB)
+- rm -rf $(DESTDIR)$(DOC)
+- rm -rf $(DESTDIR)$(MAN)/lisaac.1.gz
+- rm -rf $(DESTDIR)$(MAN)/shorter.1.gz
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..82374e5
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+makefile.patch
diff --git a/debian/rules b/debian/rules
index 9d4cb50..7cddf05 100755
--- a/debian/rules
+++ b/debian/rules
@@ -1,5 +1,7 @@
#!/usr/bin/make -f
+include /usr/share/quilt/quilt.make
+
# This has to be exported to make some magic below work.
export DH_OPTIONS
@@ -20,53 +22,49 @@ build: patch build-arch build-indep
build-arch: build-arch-stamp
build-arch-stamp: configure-stamp
- gcc $(CFLAGS) bin/lisaac.c -o bin/lisaac
- gcc $(CFLAGS) bin/shorter.c -o bin/shorter
- gcc $(CFLAGS) bin/shorter_local.c -o bin/shorter_local
+ifeq (,$(filter $(shell dpkg-architecture -qDEB_BUILD_ARCH), alpha amd64 ia64))
+ $(MAKE) CFLAGS="$(CFLAGS)"
+else
+ @echo "************************************************************************" >&2
+ @echo "* Sorry, this package is not supposed to work on 64-bit architectures! *" >&2
+ @echo "************************************************************************" >&2
+ @false
+endif
touch build-arch-stamp
build-indep: build-indep-stamp
build-indep-stamp: configure-stamp
- mkdir lib_html
- bin/shorter_local -r -f html lib -o lib_html
touch build-indep-stamp
clean: clean-patched unpatch
clean-patched:
dh_testdir
dh_testroot
- rm -f configure-stamp
- rm -f build-arch-stamp build-indep-stamp
- rm -f bin/lisaac bin/shorter bin/shorter_local
- rm -rf lib_html
+ $(MAKE) clean DESTDIR=$(CURDIR)/debian/tmp
+ rm -f build-arch-stamp
+ rm -f build-indep-stamp
dh_clean
-patch: patch-stamp
-patch-stamp:
- dpatch apply-all
- touch patch-stamp
-
-unpatch:
- dpatch deapply-all
- rm -rf patch-stamp debian/patched
-
install: install-indep install-arch
install-indep:
dh_testdir
dh_testroot
dh_clean -k -i
dh_installdirs -i
- dh_install -i
+ $(MAKE) install DESTDIR=$(CURDIR)/debian/tmp
+ [ ! -f $(CURDIR)/debian/tmp/usr/share/lisaac/lib/clean ] || rm --verbose $(CURDIR)/debian/tmp/usr/share/lisaac/lib/clean
+ [ ! -f $(CURDIR)/debian/tmp/usr/share/lisaac/lib_os/clean ] || rm --verbose $(CURDIR)/debian/tmp/usr/share/lisaac/lib_os/clean
+ [ ! -f $(CURDIR)/debian/tmp/usr/share/lisaac/lib/number/essai ] || rm --verbose $(CURDIR)/debian/tmp/usr/share/lisaac/lib/number/essai
+ dh_install -i --sourcedir=debian/tmp
install-arch:
dh_testdir
dh_testroot
dh_clean -k -s
dh_installdirs -s
- dh_installman debian/lisaac.1 debian/shorter.1
- install -m 755 $(CURDIR)/bin/lisaac $(CURDIR)/debian/lisaac/usr/bin/lisaac
- install -m 755 $(CURDIR)/bin/shorter $(CURDIR)/debian/lisaac/usr/bin/shorter
- dh_install -s
+ $(MAKE) install DESTDIR=$(CURDIR)/debian/tmp
+ dh_install -s --sourcedir=debian/tmp
+ dh_installman
binary-common:
dh_testdir
@@ -75,7 +73,6 @@ binary-common:
dh_installdocs
dh_installemacsen
dh_installexamples
- dh_installman
dh_link
dh_strip
dh_compress
diff --git a/debian/shorter.1 b/debian/shorter.1
deleted file mode 100644
index 322c091..0000000
--- a/debian/shorter.1
+++ /dev/null
@@ -1,58 +0,0 @@
-.\" Hey, EMACS: -*- nroff -*-
-.\" First parameter, NAME, should be all caps
-.\" Second parameter, SECTION, should be 1-8, maybe w/ subsection
-.\" other parameters are allowed: see man(7), man(1)
-.TH LISAAC 1 "October 28, 2007"
-.\" Please adjust this date whenever revising the manpage.
-.\"
-.\" Some roff macros, for reference:
-.\" .nh disable hyphenation
-.\" .hy enable hyphenation
-.\" .ad l left justify
-.\" .ad b justify to both left and right margins
-.\" .nf disable filling
-.\" .fi enable filling
-.\" .br insert line break
-.\" .sp <n> insert n+1 empty lines
-.\" for manpage-specific macros, see man(7)
-.SH NAME
-shorter \- The lisaac documentation generator
-.SH SYNOPSIS
-.B shorter
-.RI "<input_file[.li]> [ options ]"
-.SH DESCRIPTION
-This manual page documents briefly the
-.B shorter
-command.
-.PP
-.\" TeX users may be more comfortable with the \fB<whatever>\fP and
-.\" \fI<whatever>\fP escape sequences to invode bold face and italics,
-.\" respectively.
-\fBshorter\fP generate for a .li file the corresponding documentation in different format.
-.SH OPTIONS
-.TP
-.B \-o <output>
-output file or directory (default: <input_file.ext>).
-.TP
-.B \-p
-include `Section Private'.
-.TP
-.B \-c
-include code source.
-.TP
-.B \-r
-recurcive builder documentation
-.TP
-.B \-f <format_file>
-formatting description file (html, html_raw, latex)
-.SH EXAMPLE
-* Build latex documentation:
- shorter -c -p -f latex hello_world.li
-
-* Build html documentation:
- shorter -r -f html ~/lisaac/lib
-.SH AUTHOR
-shorter was written by Benoit SONNTAG <bsonntag at loria.fr>.
-.PP
-This manual page was written by picca frederic <picca at synchrotron-soleil.fr>,
-for the Debian project (but may be used by others).
--
Lisaac compiler
More information about the Lisaac-commits
mailing list