al/string.c

Bug Summary

File:	lib/libfoamlib/al/string.c
Warning:	line 1111, column 9 Value stored to 'l1' is never read

Annotated Source Code

Press '?' to see keyboard shortcuts

Show analyzer invocation

clang -cc1 -cc1 -triple x86_64-unknown-linux-gnu -analyze -disable-free -clear-ast-before-backend -disable-llvm-verifier -discard-value-names -main-file-name string.c -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 2 -pic-is-pie -mframe-pointer=none -fmath-errno -ffp-contract=on -fno-rounding-math -mconstructor-aliases -funwind-tables=2 -target-cpu x86-64 -tune-cpu generic -debugger-tuning=gdb -fdebug-compilation-dir=/home/kfp/aldor/aldor/aldor/lib/libfoamlib -fcoverage-compilation-dir=/home/kfp/aldor/aldor/aldor/lib/libfoamlib -resource-dir /usr/local/lib/clang/18 -D PACKAGE_NAME="aldor" -D PACKAGE_TARNAME="aldor" -D PACKAGE_VERSION="1.4.0" -D PACKAGE_STRING="aldor 1.4.0" -D PACKAGE_BUGREPORT="aldor@xinutec.org" -D PACKAGE_URL="" -D PACKAGE="aldor" -D VERSION="1.4.0" -D YYTEXT_POINTER=1 -D HAVE_STDIO_H=1 -D HAVE_STDLIB_H=1 -D HAVE_STRING_H=1 -D HAVE_INTTYPES_H=1 -D HAVE_STDINT_H=1 -D HAVE_STRINGS_H=1 -D HAVE_SYS_STAT_H=1 -D HAVE_SYS_TYPES_H=1 -D HAVE_UNISTD_H=1 -D STDC_HEADERS=1 -D HAVE_LIBREADLINE=1 -D HAVE_READLINE_READLINE_H=1 -D HAVE_READLINE_HISTORY=1 -D HAVE_READLINE_HISTORY_H=1 -D USE_GLOOP_SHELL=1 -D GENERATOR_COROUTINES=0 -D HAVE_DLFCN_H=1 -D LT_OBJDIR=".libs/" -I . -I /home/kfp/aldor/aldor/aldor/src -internal-isystem /usr/local/lib/clang/18/include -internal-isystem /usr/local/include -internal-isystem /usr/lib/gcc/x86_64-linux-gnu/14/../../../../x86_64-linux-gnu/include -internal-externc-isystem /usr/include/x86_64-linux-gnu -internal-externc-isystem /include -internal-externc-isystem /usr/include -O2 -Wno-builtin-declaration-mismatch -Wno-incompatible-pointer-types -Wno-deprecated-non-prototype -ferror-limit 19 -fgnuc-version=4.2.1 -fskip-odr-check-in-gmf -vectorize-loops -vectorize-slp -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /tmp/scan-build-2026-01-15-223856-845667-1 -x c al/string.c

1	/*
2	* C code generated by Aldor from file "string.ao".
3	*/
4
5	#include "foam_c.h"
6
7	typedef struct Fmt5 *PFmt5;
8	typedef struct Fmt6 *PFmt6;
9	typedef struct Fmt7 *PFmt7;
10	typedef struct Fmt8 *PFmt8;
11	typedef struct Fmt9 *PFmt9;
12	typedef struct Fmt10 *PFmt10;
13	typedef struct Fmt11 *PFmt11;
14	typedef struct Fmt12 *PFmt12;
15	typedef struct Fmt13 *PFmt13;
16	typedef struct Fmt14 *PFmt14;
17	typedef struct Fmt15 *PFmt15;
18	typedef struct Fmt16 *PFmt16;
19	typedef struct Fmt17 *PFmt17;
20	typedef struct Fmt18 *PFmt18;
21	typedef struct Fmt19 *PFmt19;
22	typedef struct Fmt20 *PFmt20;
23	typedef struct Fmt21 *PFmt21;
24	struct Fmt5 {
25	FiSInt X0_size;
26	FiSInt X1_nsize;
27	FiWord X2_values;
28	};
29	struct Fmt6 {
30	FiClos X0_done_QMARK_;
31	FiClos X1_step_BANG_;
32	FiClos X2_value;
33	FiClos X3_bound;
34	};
35	struct Fmt7 {
36	FiPtr X0_empty;
37	};
38	struct Fmt8 {
39	FiWord X0_s;
40	FiBool X1;
41	FiClos X2;
42	FiBool X3;
43	FiSInt X4;
44	FiWord X5;
45	FiWord X6_i;
46	FiEnv X7_12;
47	};
48	struct Fmt9 {
49	FiWord X0_x;
50	};
51	struct Fmt10 {
52	FiClos X0_case;
53	FiClos X1__LT__LT_;
54	FiClos X2__TILDE__EQ_;
55	FiClos X3_hash;
56	FiClos X4__SHARP_;
57	FiWord X5_sample;
58	FiClos X6_generator;
59	FiClos X7_map;
60	FiClos X8_map_BANG_;
61	FiClos X9_concat;
62	FiClos X10__PLUS_;
63	FiClos X11_fill_BANG_;
64	FiClos X12_apply;
65	FiClos X13_apply;
66	FiClos X14_leftTrim;
67	FiClos X15_rightTrim;
68	FiClos X16_substring;
69	FiClos X17_replace_BANG_;
70	FiClos X18__EQ_;
71	FiClos X19_copy;
72	FiClos X20_string;
73	FiClos X21_new;
74	FiSInt X22;
75	};
76	struct Fmt11 {
77	FiClos X0_getter;
78	FiBool X1_flag;
79	FiClos X2_self;
80	};
81	struct Fmt12 {
82	FiWord X0_String;
83	FiWord X1_BasicType;
84	FiClos X2_Segment;
85	FiWord X3_MachineInteger;
86	FiClos X4_generator;
87	FiWord X5_dom;
88	FiBool X6;
89	FiBool X7;
90	FiBool X8;
91	FiBool X9;
92	};
93	struct Fmt13 {
94	FiPtr X0_empty;
95	};
96	struct Fmt14 {
97	FiWord X0_open_QMARK_;
98	FiWord X1_low;
99	FiWord X2_high;
100	FiWord X3_step;
101	};
102	struct Fmt15 {
103	FiPtr X0_empty;
104	};
105	struct Fmt16 {
106	FiPtr X0_empty;
107	};
108	struct Fmt17 {
109	FiWord X0_size;
110	FiWord X1_nvalues;
111	FiWord X2_values;
112	};
113	struct Fmt18 {
114	FiWord X0_s;
115	FiWord X1_a;
116	FiBool X2;
117	FiSInt X3;
118	FiWord X4;
119	};
120	struct Fmt19 {
121	FiPtr X0_empty;
122	};
123	struct Fmt20 {
124	FiSInt X0_size;
125	FiWord *X1_values;
126	};
127	struct Fmt21 {
128	FiClos X0;
129	FiClos X1;
130	FiClos X2;
131	};
132	static FiProg C0_string;
133	static void CF0_string(FiEnv e1);
134	static FiProg C1_addLevel0;
135	static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
136	static FiProg C2_addLevel1;
137	static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
138	static FiProg C3_new;
139	static FiWord CF3_new(FiEnv e1, FiWord P0_size, FiWord P1_fill);
140	static FiProg C4_string;
141	static FiWord CF4_string(FiEnv e1, FiWord P0_a);
142	static FiProg C5_copy;
143	static FiWord CF5_copy(FiEnv e1, FiWord P0_s);
144	static FiProg C6__EQ_;
145	static FiWord CF6__EQ_(FiEnv e1, FiWord P0_s1, FiWord P1_s2);
146	static FiProg C7_replace_BANG_;
147	static FiWord CF7_replace_BANG_(FiEnv e1, FiWord P0_s1, FiWord P1_pos, FiWord P2_sub);
148	static FiProg C8_substring;
149	static FiWord CF8_substring(FiEnv e1, FiWord P0_s1, FiWord P1_pos, FiWord P2_len);
150	static FiProg C9_rightTrim;
151	static FiWord CF9_rightTrim(FiEnv e1, FiWord P0_s, FiWord P1_c);
152	static FiProg C10_leftTrim;
153	static FiWord CF10_leftTrim(FiEnv e1, FiWord P0_s, FiWord P1_c);
154	static FiProg C11_apply;
155	static FiWord CF11_apply(FiEnv e1, FiWord P0_s, FiWord P1_seg);
156	static FiProg C12_apply;
157	static FiWord CF12_apply(FiEnv e1, FiWord P0_s, FiWord P1_seg);
158	static FiProg C13_fill_BANG_;
159	static FiWord CF13_fill_BANG_(FiEnv e1, FiWord P0_s, FiWord P1_seg, FiWord P2_c);
160	static FiProg C14__PLUS_;
161	static FiWord CF14__PLUS_(FiEnv e1, FiWord P0_a, FiWord P1_b);
162	static FiProg C15_concat;
163	static FiWord CF15_concat(FiEnv e1, FiWord P0_t);
164	static FiProg C16_map_BANG_;
165	static FiWord CF16_map_BANG_(FiEnv e1, FiWord P0_f, FiWord P1_s);
166	static FiProg C17_map;
167	static FiWord CF17_map(FiEnv e1, FiWord P0_f, FiWord P1_s);
168	static FiProg C18_generator;
169	static FiClos CF18_generator(FiEnv e1, FiWord P0_s);
170	static FiProg C19_generBaseFn;
171	static void CF19_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
172	static FiProg C20_generStepper;
173	static void CF20_generStepper(FiEnv e1);
174	static FiProg C21_generDone_QMARK_;
175	static FiBool CF21_generDone_QMARK_(FiEnv e1);
176	static FiProg C22_generValue;
177	static FiWord CF22_generValue(FiEnv e1);
178	static FiProg C23_generBound;
179	static FiSInt CF23_generBound(FiEnv e1);
180	static FiProg C24__SHARP_;
181	static FiWord CF24__SHARP_(FiEnv e1, FiWord P0_s);
182	static FiProg C25_hash;
183	static FiWord CF25_hash(FiEnv e1, FiWord P0_s);
184	static FiProg C26__TILDE__EQ_;
185	static FiWord CF26__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y);
186	static FiProg C27__LT__LT_;
187	static FiClos CF27__LT__LT_(FiEnv e1, FiWord P0_x);
188	static FiProg C28__LT__LT_;
189	static FiWord CF28__LT__LT_(FiEnv e1, FiWord P0_p);
190	static FiProg C29_case;
191	static FiWord CF29_case(FiEnv e1, FiWord P0_x, FiWord P1_y);
192	static FiProg C30_extend0;
193	static FiClos CF30_extend0(FiEnv e1, FiWord P0_domain);
194	static FiProg C31_lazyGetter2;
195	static void CF31_lazyGetter2(FiEnv e1);
196	static FiProg C32_lazyFnGetter;
197	static FiClos CF32_lazyFnGetter(FiEnv e1, FiWord P0_init);
198	static FiProg C33_lazyGetter;
199	static FiClos CF33_lazyGetter(FiEnv e1, FiWord P0_a);
200	static FiProg C34_basic_MINUS_init;
201	static FiWord CF34_basic_MINUS_init(FiEnv e1, FiSInt P0_idx);
202	static FiProg C35_segment_MINUS_init;
203	static FiWord CF35_segment_MINUS_init(FiEnv e1, FiSInt P0_idx);
204	static FiProg C36_sinteger_MINUS_init;
205	static FiWord CF36_sinteger_MINUS_init(FiEnv e1, FiSInt P0_idx);
206	static FiProg C37_foamcat_MINUS_init;
207	static FiWord CF37_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx);
208	static FiProg C38_generBound;
209	static FiSInt CF38_generBound(FiEnv e1);
210	extern FiClos G_OGNYK_string;
211	static FiClos *pG_NQYQM_noOperation;
212	extern FiWord G_X6Q70_string__String__816714;
213	extern FiWord G_PQBBY_string__String__103330;
214	static FiClos *pG_XIPRL_runtime;
215	static FiClos *pG_Z2868_rtConstNameFn;
216	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
217	static FiClos *pG_XS55O_domainAddHash_BANG_;
218	static FiClos *pG_PA5R2_domainAddExports;
219	static FiClos *pG_IJHFC_domainMakeDispatch;
220	static FiWord *pG_WJ80M_foamcat__BasicType__9;
221	static FiClos *pG_NOX7X_rtLazyCatFrInit;
222	static FiClos *pG_V9SO_domainAddDefaults;
223	static FiWord *pG_M8YLI_sinteger__MachineInte;
224	static FiClos *pG_KK8CX_rtLazyDomFrInit;
225	static FiClos *pG_RPY7R_segment__Segment__100;
226	static FiClos *pG_RSHLY_rtDelayedInit_BANG_;
227	static FiClos *pG_ZZZKG_stdGetWordRetWord0;
228	static FiClos *pG_H8G3S_segment__ClosedSegmen;
229	static FiClos *pG_QRAZA_rtDelayedGetExport;
230	static FiClos *pG_RE3O1_segment__OpenSegment;
231	extern FiWord fiStrHash();
232	static FiWord *pG_SH2SP_basic__TextWriter__36;
233	static FiClos *pG_6L1ZC_domainMake;
234	static FiWord *pG_AEIW8_basic__String__641272;
235	static FiClos *pG_G3BWN_extendFill_BANG_;
236	static FiClos *pG_FZLG1_extendMake;
237	static FiClos *pG_822GM_rtAddStrings;
238	static FiClos *pG_NO017_basic;
239	static FiClos *pG_WVJG4_segment;
240	static FiClos *pG_HAQ5R_sinteger;
241	static FiClos *pG_H8TZ5_foamcat;
242
243
244
245	static void
246	CF0_string(FiEnv e1)
247	{
248	FiWord T4, T5, T8;
249	PFmt5 T6, T7;
250	FiClos T0, T1, T2, T3;
251	PFmt12 l0;
252	FiEnv e0;
253	l0 = fi0New(struct Fmt12 , CENSUS_EnvLevel)((struct Fmt12 *) fi0Alloc(sizeof(struct Fmt12), (19)));
254	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
255	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
256	G_OGNYK_string = (FiClos) (*pG_NQYQM_noOperation);
257	T0 = fiClosMake(e0, C37_foamcat_MINUS_init)fiClosMakeFun(e0, (FiProg) (C37_foamcat_MINUS_init));
258	T1 = fiClosMake(e0, C36_sinteger_MINUS_init)fiClosMakeFun(e0, (FiProg) (C36_sinteger_MINUS_init));
259	T2 = fiClosMake(e0, C35_segment_MINUS_init)fiClosMakeFun(e0, (FiProg) (C35_segment_MINUS_init));
260	T3 = fiClosMake(e0, C34_basic_MINUS_init)fiClosMakeFun(e0, (FiProg) (C34_basic_MINUS_init));
261	G_X6Q70_string__String__816714 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))))
262	pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))));
263	G_PQBBY_string__String__103330 = fiCCall1(FiWord, (((((FiWord ()())(( pG_FZLG1_extendMake))->prog->fun) )(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg ) (C30_extend0))))
264	pG_FZLG1_extendMake), fiClosMake(e0, C30_extend0))((((FiWord ()())((* pG_FZLG1_extendMake))->prog->fun) )(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg ) (C30_extend0))));
265	l0->X6 = 0L;
266	l0->X7 = 0L;
267	l0->X8 = 0L;
268	l0->X9 = 0L;
269	fiARRNEW_Word(T4, FiWord, 21L)((T4) = (FiWord) fiArrNew_Word(21L));
270	fiARRNEW_Word(T5, FiWord, 21L)((T5) = (FiWord) fiArrNew_Word(21L));
271	T4[0L] = (FiWord) 306472243L;
272	T5[0L] = (FiWord) "apply";
273	T4[1L] = (FiWord) 200102L;
274	T5[1L] = (FiWord) "=";
275	T4[2L] = (FiWord) 585283853L;
276	T5[2L] = (FiWord) "string";
277	T4[3L] = (FiWord) 51509389L;
278	T5[3L] = (FiWord) "~=";
279	T4[4L] = (FiWord) 653165038L;
280	T5[4L] = (FiWord) "concat";
281	T4[5L] = (FiWord) 200076L;
282	T5[5L] = (FiWord) "#";
283	T4[6L] = (FiWord) 318461817L;
284	T5[6L] = (FiWord) "map";
285	T4[7L] = (FiWord) 682387925L;
286	T5[7L] = (FiWord) "fill!";
287	T4[8L] = (FiWord) 1048463467L;
288	T5[8L] = (FiWord) "rightTrim";
289	T4[9L] = (FiWord) 200084L;
290	T5[9L] = (FiWord) "+";
291	T4[10L] = (FiWord) 293764754L;
292	T5[10L] = (FiWord) "substring";
293	T4[11L] = (FiWord) 865800799L;
294	T5[11L] = (FiWord) "copy";
295	T4[12L] = (FiWord) 255806968L;
296	T5[12L] = (FiWord) "sample";
297	T4[13L] = (FiWord) 864625472L;
298	T5[13L] = (FiWord) "case";
299	T4[14L] = (FiWord) 113320568L;
300	T5[14L] = (FiWord) "generator";
301	T4[15L] = (FiWord) 699350019L;
302	T5[15L] = (FiWord) "map!";
303	T4[16L] = (FiWord) 773078415L;
304	T5[16L] = (FiWord) "leftTrim";
305	T4[17L] = (FiWord) 555680325L;
306	T5[17L] = (FiWord) "replace!";
307	T4[18L] = (FiWord) 318528389L;
308	T5[18L] = (FiWord) "new";
309	T4[19L] = (FiWord) 51492426L;
310	T5[19L] = (FiWord) "<<";
311	T4[20L] = (FiWord) 746853960L;
312	T5[20L] = (FiWord) "hash";
313	T6 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
314	T6->X0_size = 21L;
315	T6->X1_nsize = 21L;
316	T6->X2_values = (FiWord) T4;
317	T7 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
318	T7->X0_size = 21L;
319	T7->X1_nsize = 21L;
320	T7->X2_values = (FiWord) T5;
321	fiCCall2(void, (pG_822GM_rtAddStrings), (FiWord) T6, (FiWord) T7)((((void ()())((pG_822GM_rtAddStrings))->prog->fun)) (((*pG_822GM_rtAddStrings))->env,(FiWord) T6,(FiWord) T7));
322	l0->X1_BasicType = fiCCall2(FiWord, (pG_NOX7X_rtLazyCatFrInit),((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((*pG_NOX7X_rtLazyCatFrInit))->env,T0,0L))
323	T0, 0L)((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((pG_NOX7X_rtLazyCatFrInit))->env,T0,0L));
324	l0->X3_MachineInteger = fiCCall2(FiWord, (((((FiWord ()())(( pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T1,0L))
325	pG_KK8CX_rtLazyDomFrInit), T1, 0L)((((FiWord ()())((* pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T1,0L));
326	T8 = fiCCall2(FiWord, (pG_RSHLY_rtDelayedInit_BANG_), T2, 0L)((((FiWord ()())((pG_RSHLY_rtDelayedInit_BANG_))->prog-> fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T2,0L));
327	l0->X2_Segment = fiCCall1(FiClos, (pG_ZZZKG_stdGetWordRetWord0),((((FiClos ()())((pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T8))
328	T8)((((FiClos ()())((pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((pG_ZZZKG_stdGetWordRetWord0))->env,T8));
329	l0->X5_dom = fiCCall1(FiWord, l0->X2_Segment, l0->((((FiWord ()())(l0->X2_Segment)->prog->fun))((l0-> X2_Segment)->env,l0-> X3_MachineInteger))
330	X3_MachineInteger)((((FiWord ()())(l0->X2_Segment)->prog->fun))((l0-> X2_Segment)->env,l0-> X3_MachineInteger));
331	l0->X4_generator = CF32_lazyFnGetter(e0, (FiWord) fiCCall3(((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0->X5_dom, 113320568L,141648046L))
332	FiWord, (pG_QRAZA_rtDelayedGetExport), l0->X5_dom,((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X5_dom, 113320568L,141648046L))
333	113320568L, 141648046L)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0->X5_dom, 113320568L,141648046L)));
334	fiEnvEnsure(l0->X2_Segment->env)fiEnvEnsureFun(l0->X2_Segment->env);
335	fiEnvEnsure(l0->X2_Segment->env)fiEnvEnsureFun(l0->X2_Segment->env);
336	fiEnvEnsure(l0->X2_Segment->env)fiEnvEnsureFun(l0->X2_Segment->env);
337	fiEnvEnsure(l0->X2_Segment->env)fiEnvEnsureFun(l0->X2_Segment->env);
338	fiEnvEnsure(l0->X2_Segment->env)fiEnvEnsureFun(l0->X2_Segment->env);
339	fiEnvEnsure(l0->X2_Segment->env)fiEnvEnsureFun(l0->X2_Segment->env);
340	l0->X0_String = fiCCall2(FiWord, (pG_KK8CX_rtLazyDomFrInit), T3,((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T3,1L))
341	1L)((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((pG_KK8CX_rtLazyDomFrInit))->env,T3,1L));
342	return ;
343	}
344
345	static struct _FiProg tmp0_string = {
346	(FiFun) CF0_string,
347	0L,
348	0L,
349	0L,
350	0L
351	};
352
353
354	static FiClos
355	CF1_addLevel0(FiEnv e1, FiWord P0_domain)
356	{
357	FiWord T0;
358	FiEnv e0;
359	PFmt12 l1;
360	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
361	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
362	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "String")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"String"));
363	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
364	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,585242861L ))
365	585242861L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,585242861L ));
366	return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
367	}
368
369	static struct _FiProg tmp1_addLevel0 = {
370	(FiFun) CF1_addLevel0,
371	0L,
372	0L,
373	0L,
374	0L
375	};
376
377
378	static FiWord
379	CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
380	{
381	FiSInt T7, T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T24, T25, T26, T27, T28;
382	FiPtr *T23;
383	FiWord T0, T1, *T2, T6;
384	PFmt5 T3, T4, T5;
385	PFmt10 l0;
386	FiEnv e2, e0;
387	PFmt12 l2;
388	l0 = fi0New(struct Fmt10 , CENSUS_EnvLevel)((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)));
389	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
390	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
391	l2 = (PFmt12) fiEnvLevel(e2)((FiEnv) (e2)->level);
392	fiARRNEW_Word(T0, FiWord, 22L)((T0) = (FiWord) fiArrNew_Word(22L));
393	fiARRNEW_Word(T1, FiWord, 22L)((T1) = (FiWord) fiArrNew_Word(22L));
394	fiARRNEW_Word(T2, FiWord, 22L)((T2) = (FiWord) fiArrNew_Word(22L));
395	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
396	l0->X22 = (FiSInt) P1_hashcode;
397	l0->X21_new = fiClosMake(e0, C3_new)fiClosMakeFun(e0, (FiProg) (C3_new));
398	l0->X20_string = fiClosMake(e0, C4_string)fiClosMakeFun(e0, (FiProg) (C4_string));
399	l0->X19_copy = fiClosMake(e0, C5_copy)fiClosMakeFun(e0, (FiProg) (C5_copy));
400	l0->X18__EQ_ = fiClosMake(e0, C6__EQ_)fiClosMakeFun(e0, (FiProg) (C6__EQ_));
401	l0->X17_replace_BANG_ = fiClosMake(e0, C7_replace_BANG_)fiClosMakeFun(e0, (FiProg) (C7_replace_BANG_));
402	l0->X16_substring = fiClosMake(e0, C8_substring)fiClosMakeFun(e0, (FiProg) (C8_substring));
403	l0->X15_rightTrim = fiClosMake(e0, C9_rightTrim)fiClosMakeFun(e0, (FiProg) (C9_rightTrim));
404	l0->X14_leftTrim = fiClosMake(e0, C10_leftTrim)fiClosMakeFun(e0, (FiProg) (C10_leftTrim));
405	l0->X12_apply = fiClosMake(e0, C11_apply)fiClosMakeFun(e0, (FiProg) (C11_apply));
406	l0->X13_apply = fiClosMake(e0, C12_apply)fiClosMakeFun(e0, (FiProg) (C12_apply));
407	l0->X11_fill_BANG_ = fiClosMake(e0, C13_fill_BANG_)fiClosMakeFun(e0, (FiProg) (C13_fill_BANG_));
408	l0->X10__PLUS_ = fiClosMake(e0, C14__PLUS_)fiClosMakeFun(e0, (FiProg) (C14__PLUS_));
409	l0->X9_concat = fiClosMake(e0, C15_concat)fiClosMakeFun(e0, (FiProg) (C15_concat));
410	l0->X8_map_BANG_ = fiClosMake(e0, C16_map_BANG_)fiClosMakeFun(e0, (FiProg) (C16_map_BANG_));
411	l0->X7_map = fiClosMake(e0, C17_map)fiClosMakeFun(e0, (FiProg) (C17_map));
412	l0->X6_generator = fiClosMake(e0, C18_generator)fiClosMakeFun(e0, (FiProg) (C18_generator));
413	l0->X4__SHARP_ = fiClosMake(e0, C24__SHARP_)fiClosMakeFun(e0, (FiProg) (C24__SHARP_));
414	l0->X3_hash = fiClosMake(e0, C25_hash)fiClosMakeFun(e0, (FiProg) (C25_hash));
415	l0->X2__TILDE__EQ_ = fiClosMake(e0, C26__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C26__TILDE__EQ_));
416	l0->X1__LT__LT_ = fiClosMake(e0, C27__LT__LT_)fiClosMakeFun(e0, (FiProg) (C27__LT__LT_));
417	l0->X0_case = fiClosMake(e0, C29_case)fiClosMakeFun(e0, (FiProg) (C29_case));
418	fiSINT_HASHCOMBINE(T7, FiSInt, l0->X22, 1011959566L)((T7) = (FiSInt) fiSIntHashCombine(l0->X22, 1011959566L));
419	fiSINT_HASHCOMBINE(T24, FiSInt, l0->X22, 51489085L)((T24) = (FiSInt) fiSIntHashCombine(l0->X22, 51489085L));
420	fiSINT_HASHCOMBINE(T28, FiSInt, 32236L, T24)((T28) = (FiSInt) fiSIntHashCombine(32236L, T24));
421	fiSINT_HASHCOMBINE(T8, FiSInt, l0->X22, T28)((T8) = (FiSInt) fiSIntHashCombine(l0->X22, T28));
422	fiSINT_HASHCOMBINE(T26, FiSInt, l0->X22, T24)((T26) = (FiSInt) fiSIntHashCombine(l0->X22, T24));
423	fiSINT_HASHCOMBINE(T27, FiSInt, 32236L, T26)((T27) = (FiSInt) fiSIntHashCombine(32236L, T26));
424	fiSINT_HASHCOMBINE(T9, FiSInt, 740244383L, T27)((T9) = (FiSInt) fiSIntHashCombine(740244383L, T27));
425	fiSINT_HASHCOMBINE(T25, FiSInt, 33717313L, T24)((T25) = (FiSInt) fiSIntHashCombine(33717313L, T24));
426	fiSINT_HASHCOMBINE(T10, FiSInt, 33717313L, fiSIntHashCombine((FiSInt)((T10) = (FiSInt) fiSIntHashCombine(33717313L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X22, ( FiSInt) T25))))
427	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X22, (((T10) = (FiSInt) fiSIntHashCombine(33717313L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X22, ( FiSInt) T25))))
428	FiSInt) T25)))((T10) = (FiSInt) fiSIntHashCombine(33717313L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X22, ( FiSInt) T25))));
429	fiSINT_HASHCOMBINE(T11, FiSInt, l0->X22, fiSIntHashCombine((FiSInt)((T11) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 33717313L , ( FiSInt) T25))))
430	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 33717313L, (((T11) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 33717313L , ( FiSInt) T25))))
431	FiSInt) T25)))((T11) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 33717313L , ( FiSInt) T25))));
432	fiSINT_HASHCOMBINE(T12, FiSInt, l0->X22, fiSIntHashCombine((FiSInt)((T12) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 803414590L , ( FiSInt) T24))))
433	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 803414590L, (((T12) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 803414590L , ( FiSInt) T24))))
434	FiSInt) T24)))((T12) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 803414590L , ( FiSInt) T24))));
435	fiSINT_HASHCOMBINE(T13, FiSInt, l0->X22, fiSIntHashCombine((FiSInt)((T13) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 585773962L , ( FiSInt) T24))))
436	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 585773962L, (((T13) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 585773962L , ( FiSInt) T24))))
437	FiSInt) T24)))((T13) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 585773962L , ( FiSInt) T24))));
438	fiSINT_HASHCOMBINE(T14, FiSInt, l0->X22, fiSIntHashCombine((FiSInt)((T14) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 24465531L , ( FiSInt) T24))))
439	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 24465531L, (((T14) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 24465531L , ( FiSInt) T24))))
440	FiSInt) T24)))((T14) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 24465531L , ( FiSInt) T24))));
441	fiEnvEnsure(l2->X2_Segment->env)fiEnvEnsureFun(l2->X2_Segment->env);
442	fiSINT_HASHCOMBINE(T15, FiSInt, l0->X22, fiSIntHashCombine((FiSInt)((T15) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 803414590L , ( FiSInt) fiSIntHashCombine((FiSInt) 142137127L, (FiSInt) T24 )))))
443	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 803414590L, (((T15) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 803414590L , ( FiSInt) fiSIntHashCombine((FiSInt) 142137127L, (FiSInt) T24 )))))
444	FiSInt) fiSIntHashCombine((FiSInt) 142137127L, (FiSInt) T24))))((T15) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 803414590L , ( FiSInt) fiSIntHashCombine((FiSInt) 142137127L, (FiSInt) T24 )))));
445	fiSINT_HASHCOMBINE(T16, FiSInt, l0->X22, T27)((T16) = (FiSInt) fiSIntHashCombine(l0->X22, T27));
446	fiSINT_HASHCOMBINE(T17, FiSInt, l0->X22, fiSIntHashCombine((FiSInt)((T17) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) l0->X22, (FiSInt) 617884183L), (FiSInt) 51489085L ))))
447	32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine((((T17) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) l0->X22, (FiSInt) 617884183L), (FiSInt) 51489085L ))))
448	FiSInt) l0->X22, (FiSInt) 617884183L), (FiSInt) 51489085L)))((T17) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) l0->X22, (FiSInt) 617884183L), (FiSInt) 51489085L ))));
449	fiSINT_HASHCOMBINE(T18, FiSInt, l0->X22, fiSIntHashCombine((FiSInt)((T18) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X22, ( FiSInt) 97577590L))))
450	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X22, (((T18) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X22, ( FiSInt) 97577590L))))
451	FiSInt) 97577590L)))((T18) = (FiSInt) fiSIntHashCombine(l0->X22, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X22, ( FiSInt) 97577590L))));
452	fiSINT_HASHCOMBINE(T19, FiSInt, 357102206L, T28)((T19) = (FiSInt) fiSIntHashCombine(357102206L, T28));
453	fiSINT_HASHCOMBINE(T20, FiSInt, 33717313L, T28)((T20) = (FiSInt) fiSIntHashCombine(33717313L, T28));
454	fiSINT_HASHCOMBINE(T21, FiSInt, 755420535L, T28)((T21) = (FiSInt) fiSIntHashCombine(755420535L, T28));
455	T22 = l0->X22;
456	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
457	T3->X0_size = 22L;
458	T3->X1_nsize = 22L;
459	T3->X2_values = (FiWord) T0;
460	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
461	T4->X0_size = 22L;
462	T4->X1_nsize = 22L;
463	T4->X2_values = (FiWord) T1;
464	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
465	T5->X0_size = 22L;
466	T5->X1_nsize = 22L;
467	T5->X2_values = (FiWord) T2;
468	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
469	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l2->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l2-> X1_BasicType,T6))
470	X1_BasicType, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l2-> X1_BasicType,T6));
471	T0[0L] = (FiWord) 318528389L;
472	fiSINT_HASHCOMBINE(T1[0L], FiWord, l0->X22, 880098261L)((T1[0L]) = (FiWord) fiSIntHashCombine(l0->X22, 880098261L ));
473	T2[0L] = (FiWord) l0->X21_new;
474	T0[1L] = (FiWord) 585283853L;
475	T1[1L] = (FiWord) T7;
476	T2[1L] = (FiWord) l0->X20_string;
477	T0[2L] = (FiWord) 865800799L;
478	T1[2L] = (FiWord) T8;
479	T2[2L] = (FiWord) l0->X19_copy;
480	T0[3L] = (FiWord) 200102L;
481	T1[3L] = (FiWord) T9;
482	T2[3L] = (FiWord) l0->X18__EQ_;
483	T0[4L] = (FiWord) 555680325L;
484	T1[4L] = (FiWord) T10;
485	T2[4L] = (FiWord) l0->X17_replace_BANG_;
486	T0[5L] = (FiWord) 293764754L;
487	T1[5L] = (FiWord) T11;
488	T2[5L] = (FiWord) l0->X16_substring;
489	T0[6L] = (FiWord) 1048463467L;
490	T1[6L] = (FiWord) T12;
491	T2[6L] = (FiWord) l0->X15_rightTrim;
492	T0[7L] = (FiWord) 773078415L;
493	T1[7L] = (FiWord) T12;
494	T2[7L] = (FiWord) l0->X14_leftTrim;
495	T0[8L] = (FiWord) 306472243L;
496	T1[8L] = (FiWord) T13;
497	T2[8L] = (FiWord) l0->X12_apply;
498	T0[9L] = (FiWord) 306472243L;
499	T1[9L] = (FiWord) T14;
500	T2[9L] = (FiWord) l0->X13_apply;
501	T0[10L] = (FiWord) 682387925L;
502	T1[10L] = (FiWord) T15;
503	T2[10L] = (FiWord) l0->X11_fill_BANG_;
504	T0[11L] = (FiWord) 200084L;
505	T1[11L] = (FiWord) T16;
506	T2[11L] = (FiWord) l0->X10__PLUS_;
507	T0[12L] = (FiWord) 653165038L;
508	T1[12L] = (FiWord) T17;
509	T2[12L] = (FiWord) l0->X9_concat;
510	T0[13L] = (FiWord) 699350019L;
511	T1[13L] = (FiWord) T18;
512	T2[13L] = (FiWord) l0->X8_map_BANG_;
513	T0[14L] = (FiWord) 318461817L;
514	T1[14L] = (FiWord) T18;
515	T2[14L] = (FiWord) l0->X7_map;
516	T0[15L] = (FiWord) 113320568L;
517	T1[15L] = (FiWord) T19;
518	T2[15L] = (FiWord) l0->X6_generator;
519	T0[16L] = (FiWord) 200076L;
520	T1[16L] = (FiWord) T20;
521	T2[16L] = (FiWord) l0->X4__SHARP_;
522	T0[17L] = (FiWord) 746853960L;
523	T1[17L] = (FiWord) T20;
524	T2[17L] = (FiWord) l0->X3_hash;
525	T0[18L] = (FiWord) 51509389L;
526	T1[18L] = (FiWord) T9;
527	T2[18L] = (FiWord) l0->X2__TILDE__EQ_;
528	T0[19L] = (FiWord) 51492426L;
529	T1[19L] = (FiWord) T21;
530	T2[19L] = (FiWord) l0->X1__LT__LT_;
531	T0[20L] = (FiWord) 864625472L;
532	T1[20L] = (FiWord) T9;
533	T2[20L] = (FiWord) l0->X0_case;
534	T23 = (FiPtr*) (FiPtr) fiArrNew_Char(1L);
535	((FiChar*) T23)[0L] = 0L;
536	((FiChar*) T23)[0L] = 0L;
537	l0->X5_sample = (FiWord) T23;
538	T0[21L] = (FiWord) 255806968L;
539	T1[21L] = (FiWord) T22;
540	T2[21L] = l0->X5_sample;
541	return P0_domain;
542	}
543
544	static struct _FiProg tmp2_addLevel1 = {
545	(FiFun) CF2_addLevel1,
546	0L,
547	0L,
548	0L,
549	0L
550	};
551
552
553	static FiWord
554	CF3_new(FiEnv e1, FiWord P0_size, FiWord P1_fill)
555	{
556	FiSInt T0, T2_a;
557	FiPtr *T1;
558	T1 = (FiPtr*) (FiPtr) fiArrNew_Char((FiSInt) P0_size + 1L);
559	((FiChar*) T1)[0L] = 0L;
560	((FiChar*) T1)[(FiSInt) P0_size] = 0L;
561	T2_a = 1L;
562	L0: if (T2_a <= (FiSInt) P0_size) goto L1;
563	return (FiWord) T1;
564	L1: T0 = T2_a - 1L;
565	((FiChar*) T1)[T0] = (FiChar) P1_fill;
566	T2_a = T2_a + 1L;
567	goto L0;
568	}
569
570	static struct _FiProg tmp3_new = {
571	(FiFun) CF3_new,
572	0L,
573	0L,
574	0L,
575	0L
576	};
577
578
579	static FiWord
580	CF4_string(FiEnv e1, FiWord P0_a)
581	{
582	FiSInt T0_l, T2_a, T3;
583	FiPtr *T1;
584	T0_l = (FiSInt) ((PFmt17) P0_a)->X1_nvalues;
585	T1 = (FiPtr*) (FiPtr) fiArrNew_Char(T0_l + 1L);
586	((FiChar*) T1)[0L] = 0L;
587	((FiChar*) T1)[T0_l] = 0L;
588	T2_a = 1L;
589	L0: if (T2_a <= T0_l) goto L1;
590	return (FiWord) T1;
591	L1: T3 = T2_a - 1L;
592	((FiChar) T1)[T3] = (FiChar) ((FiWord) ((PFmt17) P0_a)->
593	X2_values)[T3];
594	T2_a = T2_a + 1L;
595	goto L0;
596	}
597
598	static struct _FiProg tmp4_string = {
599	(FiFun) CF4_string,
600	0L,
601	0L,
602	0L,
603	0L
604	};
605
606
607	static FiWord
608	CF5_copy(FiEnv e1, FiWord P0_s)
609	{
610	FiSInt T1, T2_a, T3, T4;
611	FiPtr *T0;
612	T1 = 1L;
613	L0: T3 = T1 - 1L;
614	if (((FiChar*) P0_s)[T3] == 0L) goto L1;
615	T1 = T1 + 1L;
616	goto L0;
617	L1: T0 = (FiPtr*) (FiPtr) fiArrNew_Char(T3 + 1L);
618	((FiChar*) T0)[0L] = 0L;
619	((FiChar*) T0)[T3] = 0L;
620	T2_a = 1L;
621	L2: if (T2_a <= T3) goto L3;
622	return (FiWord) T0;
623	L3: T4 = T2_a - 1L;
624	((FiChar) T0)[T4] = ((FiChar) P0_s)[T4];
625	T2_a = T2_a + 1L;
626	goto L2;
627	}
628
629	static struct _FiProg tmp5_copy = {
630	(FiFun) CF5_copy,
631	0L,
632	0L,
633	0L,
634	0L
635	};
636
637
638	static FiWord
639	CF6__EQ_(FiEnv e1, FiWord P0_s1, FiWord P1_s2)
640	{
641	FiSInt T2_a, T3;
642	FiChar T0, T1;
643	T2_a = 1L;
644	L2: T3 = T2_a - 1L;
645	if (((FiChar*) P0_s1)[T3] == 0L) goto L0;
646	T0 = ((FiChar*) P0_s1)[T3];
647	T1 = ((FiChar*) P1_s2)[T3];
648	if (T0 != T1) goto L1;
649	T2_a = T2_a + 1L;
650	goto L2;
651	L1: return (FiWord) 0L;
652	L0: return (FiWord) (((FiChar*) P1_s2)[T3] == 0L);
653	}
654
655	static struct _FiProg tmp6__EQ_ = {
656	(FiFun) CF6__EQ_,
657	0L,
658	0L,
659	0L,
660	0L
661	};
662
663
664	static FiWord
665	CF7_replace_BANG_(FiEnv e1, FiWord P0_s1, FiWord P1_pos, FiWord P2_sub)
666	{
667	FiSInt T0_a, T1_a, T2, T3;
668	T1_a = 1L;
669	T0_a = (FiSInt) P1_pos;
670	L1: T2 = T1_a - 1L;
671	if (((FiChar*) P2_sub)[T2] == 0L) goto L0;
672	T3 = T0_a - 1L;
673	if (((FiChar*) P0_s1)[T3] == 0L) goto L0;
674	((FiChar) P0_s1)[T3] = ((FiChar) P2_sub)[T2];
675	T1_a = T1_a + 1L;
676	T0_a = T0_a + 1L;
677	goto L1;
678	L0: return (FiWord) T0_a;
679	}
680
681	static struct _FiProg tmp7_replace_BANG_ = {
682	(FiFun) CF7_replace_BANG_,
683	0L,
684	0L,
685	0L,
686	0L
687	};
688
689
690	static FiWord
691	CF8_substring(FiEnv e1, FiWord P0_s1, FiWord P1_pos, FiWord P2_len)
692	{
693	FiSInt T0, T2_a, T3_a;
694	FiPtr *T1;
695	T1 = (FiPtr*) (FiPtr) fiArrNew_Char((FiSInt) P2_len + 1L);
696	((FiChar*) T1)[0L] = 0L;
697	((FiChar*) T1)[(FiSInt) P2_len] = 0L;
698	T3_a = 1L;
699	if (1L <= (FiSInt) P2_len) goto L3;
700	L1: return (FiWord) T1;
701	L3: T2_a = (FiSInt) P1_pos;
702	((FiChar) T1)[0L] = ((FiChar) P0_s1)[(FiSInt) P1_pos - 1L];
703	L0: T3_a = T3_a + 1L;
704	if (T3_a <= (FiSInt) P2_len) goto L2;
705	goto L1;
706	L2: T2_a = T2_a + 1L;
707	T0 = T3_a - 1L;
708	((FiChar) T1)[T0] = ((FiChar) P0_s1)[T2_a - 1L];
709	goto L0;
710	}
711
712	static struct _FiProg tmp8_substring = {
713	(FiFun) CF8_substring,
714	0L,
715	0L,
716	0L,
717	0L
718	};
719
720
721	static FiWord
722	CF9_rightTrim(FiEnv e1, FiWord P0_s, FiWord P1_c)
723	{
724	FiBool T9;
725	FiSInt T1, T2, T4_a, T5_a, T6_a, T7, T8;
726	FiPtr *T3;
727	FiChar T0;
728	T1 = 1L;
729	L0: T7 = T1 - 1L;
730	if (((FiChar*) P0_s)[T7] == 0L) goto L1;
731	T1 = T1 + 1L;
732	goto L0;
733	L1: T4_a = T7;
734	L5: T9 = 1L <= T4_a;
735	if (T9) goto L3;
736	return (FiWord) "";
737	L3: T8 = T4_a - 1L;
738	T0 = ((FiChar*) P0_s)[T8];
739	if (T0 != (FiChar) P1_c) goto L6;
740	T4_a = T8;
741	goto L5;
742	L6: T3 = (FiPtr*) (FiPtr) fiArrNew_Char(T4_a + 1L);
743	((FiChar*) T3)[0L] = 0L;
744	((FiChar*) T3)[T4_a] = 0L;
745	T6_a = 1L;
746	T5_a = 1L;
747	((FiChar) T3)[0L] = ((FiChar) P0_s)[0L];
748	L2: T6_a = T6_a + 1L;
749	if (T6_a <= T4_a) goto L4;
750	return (FiWord) T3;
751	L4: T5_a = T5_a + 1L;
752	T2 = T6_a - 1L;
753	((FiChar) T3)[T2] = ((FiChar) P0_s)[T5_a - 1L];
754	goto L2;
755	}
756
757	static struct _FiProg tmp9_rightTrim = {
758	(FiFun) CF9_rightTrim,
759	0L,
760	0L,
761	0L,
762	0L
763	};
764
765
766	static FiWord
767	CF10_leftTrim(FiEnv e1, FiWord P0_s, FiWord P1_c)
768	{
769	FiSInt T1, T2, T3, T5, T6_a, T7_a, T8_a, T9, T10;
770	FiPtr *T4;
771	FiChar T0;
772	T2 = 1L;
773	L1: T9 = T2 - 1L;
774	if (((FiChar*) P0_s)[T9] == 0L) goto L2;
775	T2 = T2 + 1L;
776	goto L1;
777	L2: T6_a = 1L;
778	L4: if (T6_a <= T9) goto L5;
779	return (FiWord) "";
780	L5: T10 = T6_a - 1L;
781	T0 = ((FiChar*) P0_s)[T10];
782	if (T0 != (FiChar) P1_c) goto L0;
783	T6_a = T6_a + 1L;
784	goto L4;
785	L0: T1 = T9 - T6_a;
786	T5 = T1 + 1L;
787	T4 = (FiPtr*) (FiPtr) fiArrNew_Char(T5 + 1L);
788	((FiChar*) T4)[0L] = 0L;
789	((FiChar*) T4)[T5] = 0L;
790	T8_a = 1L;
791	if (1L <= T5) goto L7;
792	L6: return (FiWord) T4;
793	L7: T7_a = T6_a;
794	((FiChar) T4)[0L] = ((FiChar) P0_s)[T10];
795	L3: T8_a = T8_a + 1L;
796	if (T8_a <= T5) goto L8;
797	goto L6;
798	L8: T7_a = T7_a + 1L;
799	T3 = T8_a - 1L;
800	((FiChar) T4)[T3] = ((FiChar) P0_s)[T7_a - 1L];
801	goto L3;
802	}
803
804	static struct _FiProg tmp10_leftTrim = {
805	(FiFun) CF10_leftTrim,
806	0L,
807	0L,
808	0L,
809	0L
810	};
811
812
813	static FiWord
814	CF11_apply(FiEnv e1, FiWord P0_s, FiWord P1_seg)
815	{
816	FiSInt T0_len, T1_pos, T2, T3, T4, T6_a, T7_a, T8;
817	FiPtr *T5;
818	T1_pos = (FiSInt) ((PFmt14) P1_seg)->X1_low;
819	T3 = 1L;
820	L0: T8 = T3 - 1L;
821	if (((FiChar*) P0_s)[T8] == 0L) goto L1;
822	T3 = T3 + 1L;
823	goto L0;
824	L1: T2 = T8 - T1_pos;
825	T0_len = T2 + 1L;
826	T5 = (FiPtr*) (FiPtr) fiArrNew_Char(T0_len + 1L);
827	((FiChar*) T5)[0L] = 0L;
828	((FiChar*) T5)[T0_len] = 0L;
829	T7_a = 1L;
830	if (1L <= T0_len) goto L4;
831	L3: return (FiWord) T5;
832	L4: T6_a = T1_pos;
833	((FiChar) T5)[0L] = ((FiChar) P0_s)[T1_pos - 1L];
834	L2: T7_a = T7_a + 1L;
835	if (T7_a <= T0_len) goto L5;
836	goto L3;
837	L5: T6_a = T6_a + 1L;
838	T4 = T7_a - 1L;
839	((FiChar) T5)[T4] = ((FiChar) P0_s)[T6_a - 1L];
840	goto L2;
841	}
842
843	static struct _FiProg tmp11_apply = {
844	(FiFun) CF11_apply,
845	0L,
846	0L,
847	0L,
848	0L
849	};
850
851
852	static FiWord
853	CF12_apply(FiEnv e1, FiWord P0_s, FiWord P1_seg)
854	{
855	FiSInt T0_len, T1_pos, T2, T3, T4, T6_a, T7_a;
856	FiPtr *T5;
857	T1_pos = (FiSInt) ((PFmt14) P1_seg)->X1_low;
858	T3 = (FiSInt) ((PFmt14) P1_seg)->X2_high;
859	T2 = T3 - T1_pos;
860	T0_len = T2 + 1L;
861	T5 = (FiPtr*) (FiPtr) fiArrNew_Char(T0_len + 1L);
862	((FiChar*) T5)[0L] = 0L;
863	((FiChar*) T5)[T0_len] = 0L;
864	T7_a = 1L;
865	if (1L <= T0_len) goto L3;
866	L1: return (FiWord) T5;
867	L3: T6_a = T1_pos;
868	((FiChar) T5)[0L] = ((FiChar) P0_s)[T1_pos - 1L];
869	L0: T7_a = T7_a + 1L;
870	if (T7_a <= T0_len) goto L2;
871	goto L1;
872	L2: T6_a = T6_a + 1L;
873	T4 = T7_a - 1L;
874	((FiChar) T5)[T4] = ((FiChar) P0_s)[T6_a - 1L];
875	goto L0;
876	}
877
878	static struct _FiProg tmp12_apply = {
879	(FiFun) CF12_apply,
880	0L,
881	0L,
882	0L,
883	0L
884	};
885
886
887	static FiWord
888	CF13_fill_BANG_(FiEnv e1, FiWord P0_s, FiWord P1_seg, FiWord P2_c)
889	{
890	FiSInt T0, T1, T4_d, T5_b, T6_a, T7;
891	FiBool T2_up, T3_ubd;
892	T1 = 1L;
893	L1: T7 = T1 - 1L;
894	if (((FiChar*) P0_s)[T7] == 0L) goto L2;
895	T1 = T1 + 1L;
896	goto L1;
897	L2: T6_a = (FiSInt) ((PFmt14) P1_seg)->X1_low;
898	T5_b = (FiSInt) ((PFmt14) P1_seg)->X2_high;
899	T4_d = (FiSInt) ((PFmt14) P1_seg)->X3_step;
900	T3_ubd = (FiBool) ((PFmt14) P1_seg)->X0_open_QMARK_;
901	T2_up = 0L <= T4_d;
902	L3: if (T3_ubd) goto L4;
903	if (T2_up) goto L5;
904	if (T5_b <= T6_a) goto L4;
905	L0: return P0_s;
906	L4: if (T7 < T6_a) goto L0;
907	T0 = T6_a - 1L;
908	((FiChar*) P0_s)[T0] = (FiChar) P2_c;
909	T6_a = T6_a + T4_d;
910	goto L3;
911	L5: if (T6_a <= T5_b) goto L4;
912	goto L0;
913	}
914
915	static struct _FiProg tmp13_fill_BANG_ = {
916	(FiFun) CF13_fill_BANG_,
917	0L,
918	0L,
919	0L,
920	0L
921	};
922
923
924	static FiWord
925	CF14__PLUS_(FiEnv e1, FiWord P0_a, FiWord P1_b)
926	{
927	FiSInt T1, T2, T4, T6_a, T7_a, T8_a, T9_a, T10_a, T11, T12, T13;
928	FiPtr T3, T5;
929	FiWord *T0;
930	fiARRNEW_Word(T0, FiWord, 2L)((T0) = (FiWord) fiArrNew_Word(2L));
931	T0[0L] = P0_a;
932	T0[1L] = P1_b;
933	T1 = 0L;
934	T6_a = 1L;
935	L6: if (T6_a <= 2L) goto L7;
936	T5 = (FiPtr*) (FiPtr) fiArrNew_Char(T1 + 1L);
937	((FiChar*) T5)[0L] = 0L;
938	((FiChar*) T5)[T1] = 0L;
939	T10_a = 1L;
940	L1: if (T10_a <= T1) goto L2;
941	T1 = 1L;
942	T7_a = 1L;
943	L3: if (T7_a <= 2L) goto L5;
944	return (FiWord) T5;
945	L5: T3 = (FiPtr*) T0[T7_a - 1L];
946	T9_a = 1L;
947	T8_a = T1;
948	L8: T12 = T9_a - 1L;
949	if (((FiChar*) T3)[T12] == 0L) goto L10;
950	T13 = T8_a - 1L;
951	if (((FiChar*) T5)[T13] == 0L) goto L11;
952	((FiChar) T5)[T13] = ((FiChar) T3)[T12];
953	T9_a = T9_a + 1L;
954	T8_a = T8_a + 1L;
955	goto L8;
956	L11: T1 = T8_a;
957	L4: T7_a = T7_a + 1L;
958	goto L3;
959	L10: T1 = T8_a;
960	goto L4;
961	L2: T4 = T10_a - 1L;
962	((FiChar*) T5)[T4] = 32L;
963	T10_a = T10_a + 1L;
964	goto L1;
965	L7: T2 = 1L;
966	L0: T11 = T2 - 1L;
967	if (((FiChar*) T0[T6_a - 1L])[T11] == 0L) goto L9;
968	T2 = T2 + 1L;
969	goto L0;
970	L9: T1 = T1 + T11;
971	T6_a = T6_a + 1L;
972	goto L6;
973	}
974
975	static struct _FiProg tmp14__PLUS_ = {
976	(FiFun) CF14__PLUS_,
977	0L,
978	0L,
979	0L,
980	0L
981	};
982
983
984	static FiWord
985	CF15_concat(FiEnv e1, FiWord P0_t)
986	{
987	FiSInt T0_n, T1, T3, T5_a, T6_a, T7_a, T8_a, T9_a, T10_high, T11_high, T12, T13, T14;
988	FiPtr T2, T4;
989	T0_n = 0L;
990	T10_high = ((PFmt20) P0_t)->X0_size;
991	T5_a = 1L;
992	L6: if (T5_a <= T10_high) goto L7;
993	T4 = (FiPtr*) (FiPtr) fiArrNew_Char(T0_n + 1L);
994	((FiChar*) T4)[0L] = 0L;
995	((FiChar*) T4)[T0_n] = 0L;
996	T9_a = 1L;
997	L1: if (T9_a <= T0_n) goto L2;
998	T0_n = 1L;
999	T11_high = ((PFmt20) P0_t)->X0_size;
1000	T6_a = 1L;
1001	L3: if (T6_a <= T11_high) goto L5;
1002	return (FiWord) T4;
1003	L5: T2 = (FiPtr*) ((PFmt20) P0_t)->X1_values[T6_a - 1L];
1004	T8_a = 1L;
1005	T7_a = T0_n;
1006	L8: T13 = T8_a - 1L;
1007	if (((FiChar*) T2)[T13] == 0L) goto L10;
1008	T14 = T7_a - 1L;
1009	if (((FiChar*) T4)[T14] == 0L) goto L11;
1010	((FiChar) T4)[T14] = ((FiChar) T2)[T13];
1011	T8_a = T8_a + 1L;
1012	T7_a = T7_a + 1L;
1013	goto L8;
1014	L11: T0_n = T7_a;
1015	L4: T6_a = T6_a + 1L;
1016	goto L3;
1017	L10: T0_n = T7_a;
1018	goto L4;
1019	L2: T3 = T9_a - 1L;
1020	((FiChar*) T4)[T3] = 32L;
1021	T9_a = T9_a + 1L;
1022	goto L1;
1023	L7: T1 = 1L;
1024	L0: T12 = T1 - 1L;
1025	if (((FiChar*) ((PFmt20) P0_t)->X1_values[T5_a - 1L])[T12] ==
1026	0L) goto L9;
1027	T1 = T1 + 1L;
1028	goto L0;
1029	L9: T0_n = T0_n + T12;
1030	T5_a = T5_a + 1L;
1031	goto L6;
1032	}
1033
1034	static struct _FiProg tmp15_concat = {
1035	(FiFun) CF15_concat,
1036	0L,
1037	0L,
1038	0L,
1039	0L
1040	};
1041
1042
1043	static FiWord
1044	CF16_map_BANG_(FiEnv e1, FiWord P0_f, FiWord P1_s)
1045	{
1046	FiSInt T1_a, T2;
1047	FiChar T0;
1048	T1_a = 1L;
1049	L1: T2 = T1_a - 1L;
1050	if (((FiChar*) P1_s)[T2] == 0L) goto L0;
1051	T0 = (FiChar) fiCCall1(FiWord, (FiClos) P0_f, (FiWord) ((FiChar)((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,(FiWord) ((FiChar) P1_s)[T2]))
1052	P1_s)[T2])((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,(FiWord) ((FiChar*) P1_s)[T2]));
1053	((FiChar*) P1_s)[T2] = T0;
1054	T1_a = T1_a + 1L;
1055	goto L1;
1056	L0: return P1_s;
1057	}
1058
1059	static struct _FiProg tmp16_map_BANG_ = {
1060	(FiFun) CF16_map_BANG_,
1061	0L,
1062	0L,
1063	0L,
1064	0L
1065	};
1066
1067
1068	static FiWord
1069	CF17_map(FiEnv e1, FiWord P0_f, FiWord P1_s)
1070	{
1071	FiSInt T2, T3_a, T4, T5;
1072	FiPtr *T1;
1073	FiChar T0;
1074	T2 = 1L;
1075	L0: T4 = T2 - 1L;
1076	if (((FiChar*) P1_s)[T4] == 0L) goto L1;
1077	T2 = T2 + 1L;
1078	goto L0;
1079	L1: T1 = (FiPtr*) (FiPtr) fiArrNew_Char(T4 + 1L);
1080	((FiChar*) T1)[0L] = 0L;
1081	((FiChar*) T1)[T4] = 0L;
1082	T3_a = 1L;
1083	L2: if (T3_a <= T4) goto L3;
1084	return (FiWord) T1;
1085	L3: T5 = T3_a - 1L;
1086	T0 = (FiChar) fiCCall1(FiWord, (FiClos) P0_f, (FiWord) ((FiChar)((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,(FiWord) ((FiChar) P1_s)[T5]))
1087	P1_s)[T5])((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,(FiWord) ((FiChar*) P1_s)[T5]));
1088	((FiChar*) T1)[T5] = T0;
1089	T3_a = T3_a + 1L;
1090	goto L2;
1091	}
1092
1093	static struct _FiProg tmp17_map = {
1094	(FiFun) CF17_map,
1095	0L,
1096	0L,
1097	0L,
1098	0L
1099	};
1100
1101
1102	static FiClos
1103	CF18_generator(FiEnv e1, FiWord P0_s)
1104	{
1105	PFmt8 l0;
1106	FiEnv e3, e2, e0;
1107	PFmt10 l1;
1108	PFmt12 l3;
1109	l0 = fi0New(struct Fmt8 , CENSUS_EnvLevel)((struct Fmt8 *) fi0Alloc(sizeof(struct Fmt8), (19)));
1110	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1111	l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
	Value stored to 'l1' is never read
1112	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1113	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1114	l3 = (PFmt12) fiEnvLevel(e3)((FiEnv) (e3)->level);
1115	l0->X0_s = P0_s;
1116	l0->X1 = 0L;
1117	l0->X4 = 0L;
1118	return fiClosMake(e0, C19_generBaseFn)fiClosMakeFun(e0, (FiProg) (C19_generBaseFn));
1119	}
1120
1121	static struct _FiProg tmp18_generator = {
1122	(FiFun) CF18_generator,
1123	0L,
1124	0L,
1125	0L,
1126	0L
1127	};
1128
1129
1130	static void
1131	CF19_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
1132	R3)
1133	{
1134	FiEnv e4, e3, e2, e0;
1135	PFmt8 l1;
1136	PFmt10 l2;
1137	PFmt12 l4;
1138	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1139	l1 = (PFmt8) fiEnvLevel(e1)((FiEnv) (e1)->level);
1140	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1141	l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
1142	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1143	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1144	l4 = (PFmt12) fiEnvLevel(e4)((FiEnv) (e4)->level);
1145	*R0 = fiClosMake(e0, C21_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C21_generDone_QMARK_));
1146	*R1 = fiClosMake(e0, C20_generStepper)fiClosMakeFun(e0, (FiProg) (C20_generStepper));
1147	*R2 = fiClosMake(e0, C22_generValue)fiClosMakeFun(e0, (FiProg) (C22_generValue));
1148	*R3 = fiClosMake(e0, C23_generBound)fiClosMakeFun(e0, (FiProg) (C23_generBound));
1149	return ;
1150	}
1151
1152	static struct _FiProg tmp19_generBaseFn = {
1153	(FiFun) CF19_generBaseFn,
1154	0L,
1155	0L,
1156	0L,
1157	0L
1158	};
1159
1160
1161	static void
1162	CF20_generStepper(FiEnv e1)
1163	{
1164	PFmt14 T6, T8;
1165	FiWord T0, T7;
1166	FiSInt T3, T5;
1167	FiPtr T2, T4;
1168	FiClos T1;
1169	PFmt8 l2;
1170	FiEnv e0, e5, e4, e3, e2;
1171	PFmt10 l3;
1172	PFmt12 l5;
1173	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1174	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1175	l2 = (PFmt8) fiEnvLevel(e2)((FiEnv) (e2)->level);
1176	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1177	l3 = (PFmt10) fiEnvLevel(e3)((FiEnv) (e3)->level);
1178	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1179	e5 = fiEnvNext(e4)((FiEnv) (e4)->next);
1180	l5 = (PFmt12) fiEnvLevel(e5)((FiEnv) (e5)->level);
1181	switch (l2->X4) {
1182	case 0L: goto L0;
1183	case 1L: goto L1;
1184	}
1185	L0: l2->X3 = 0L;
1186	fiEnvEnsure(l5->X4_generator->env)fiEnvEnsureFun(l5->X4_generator->env);
1187	l2->X7_12 = fiEnvPush(fi0New(struct Fmt18 , CENSUS_EnvLevel),fiEnvPushFun((FiPtr) (((struct Fmt18 *) fi0Alloc(sizeof(struct Fmt18), (19)))), l5->X4_generator->env)
1188	l5->X4_generator->env)fiEnvPushFun((FiPtr) (((struct Fmt18 *) fi0Alloc(sizeof(struct Fmt18), (19)))), l5->X4_generator->env);
1189	T6 = fi0RecNew(struct Fmt14 , CENSUS_Rec)((struct Fmt14 *) fi0RecAlloc(sizeof(struct Fmt14), ( 5)));
1190	T6->X0_open_QMARK_ = (FiWord) 1L;
1191	T6->X1_low = (FiWord) 1L;
1192	T6->X2_high = (FiWord) 0L;
1193	T6->X3_step = (FiWord) 1L;
1194	((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X0_s = (FiWord) T6;
1195	((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X3 = 0L;
1196	fiEnvEnsure(l2->X7_12)fiEnvEnsureFun(l2->X7_12);
1197	T1 = fiClosMake(e0, C38_generBound)fiClosMakeFun(e0, (FiProg) (C38_generBound));
1198	l2->X1 = 1L;
1199	l2->X2 = T1;
1200	L1: switch (((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X3) {
1201	case 0L: goto L3;
1202	case 1L: goto L5;
1203	}
1204	L3: ((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X2 = 0L;
1205	T8 = (PFmt14) ((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X0_s;
1206	((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X1_a = T8->X1_low;
1207	L4: ((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X3 = 1L;
1208	T7 = ((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X1_a;
1209	((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X4 = T7;
1210	if ((FiBool) ((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X2) goto L2;
1211	l2->X6_i = ((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X4;
1212	T4 = (FiPtr*) l2->X0_s;
1213	T5 = (FiSInt) l2->X6_i;
1214	if (((FiChar*) T4)[T5 - 1L] == 0L) goto L2;
1215	l2->X4 = 1L;
1216	T2 = (FiPtr*) l2->X0_s;
1217	T3 = (FiSInt) l2->X6_i;
1218	T0 = (FiWord) ((FiChar*) T2)[T3 - 1L];
1219	l2->X5 = T0;
1220	return ;
1221	L2: l2->X3 = 1L;
1222	return ;
1223	L5: ((PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X1_a = (FiWord) ((FiSInt) ((
1224	PFmt18) fiEnvLevel0(l2->X7_12)(((FiEnv)(l2->X7_12))->level))->X1_a + 1L);
1225	goto L4;
1226	}
1227
1228	static struct _FiProg tmp20_generStepper = {
1229	(FiFun) CF20_generStepper,
1230	0L,
1231	0L,
1232	0L,
1233	0L
1234	};
1235
1236
1237	static FiBool
1238	CF21_generDone_QMARK_(FiEnv e1)
1239	{
1240	PFmt8 l2;
1241	FiEnv e2;
1242	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1243	l2 = (PFmt8) fiEnvLevel(e2)((FiEnv) (e2)->level);
1244	return l2->X3;
1245	}
1246
1247	static struct _FiProg tmp21_generDone_QMARK_ = {
1248	(FiFun) CF21_generDone_QMARK_,
1249	0L,
1250	0L,
1251	0L,
1252	0L
1253	};
1254
1255
1256	static FiWord
1257	CF22_generValue(FiEnv e1)
1258	{
1259	PFmt8 l2;
1260	FiEnv e2;
1261	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1262	l2 = (PFmt8) fiEnvLevel(e2)((FiEnv) (e2)->level);
1263	return l2->X5;
1264	}
1265
1266	static struct _FiProg tmp22_generValue = {
1267	(FiFun) CF22_generValue,
1268	0L,
1269	0L,
1270	0L,
1271	0L
1272	};
1273
1274
1275	static FiSInt
1276	CF23_generBound(FiEnv e1)
1277	{
1278	FiSInt T0, T1;
1279	PFmt8 l2;
1280	FiEnv e2;
1281	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1282	l2 = (PFmt8) fiEnvLevel(e2)((FiEnv) (e2)->level);
1283	if (l2->X1) goto L3;
1284	L0: T0 = -1L;
1285	L1: return T0;
1286	L3: T1 = fiCCall0(FiSInt, l2->X2)((((FiSInt ()())(l2->X2)->prog->fun))((l2->X2)-> env));
1287	if (T1 < 0L) goto L0;
1288	T0 = T1;
1289	goto L1;
1290	}
1291
1292	static struct _FiProg tmp23_generBound = {
1293	(FiFun) CF23_generBound,
1294	0L,
1295	0L,
1296	0L,
1297	0L
1298	};
1299
1300
1301	static FiWord
1302	CF24__SHARP_(FiEnv e1, FiWord P0_s)
1303	{
1304	FiSInt T0_i, T1;
1305	T0_i = 1L;
1306	L0: T1 = T0_i - 1L;
1307	if (((FiChar*) P0_s)[T1] == 0L) goto L1;
1308	T0_i = T0_i + 1L;
1309	goto L0;
1310	L1: return (FiWord) T1;
1311	}
1312
1313	static struct _FiProg tmp24__SHARP_ = {
1314	(FiFun) CF24__SHARP_,
1315	0L,
1316	0L,
1317	0L,
1318	0L
1319	};
1320
1321
1322	static FiWord
1323	CF25_hash(FiEnv e1, FiWord P0_s)
1324	{
1325	return fiStrHash(P0_s);
1326	}
1327
1328	static struct _FiProg tmp25_hash = {
1329	(FiFun) CF25_hash,
1330	0L,
1331	0L,
1332	0L,
1333	0L
1334	};
1335
1336
1337	static FiWord
1338	CF26__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1339	{
1340	FiSInt T3_a, T4;
1341	FiBool T2;
1342	FiChar T0, T1;
1343	T3_a = 1L;
1344	L3: T4 = T3_a - 1L;
1345	if (((FiChar*) P0_x)[T4] == 0L) goto L0;
1346	T0 = ((FiChar*) P0_x)[T4];
1347	T1 = ((FiChar*) P1_y)[T4];
1348	if (T0 != T1) goto L1;
1349	T3_a = T3_a + 1L;
1350	goto L3;
1351	L1: T2 = 0L;
1352	L2: return (FiWord) !T2;
1353	L0: T2 = ((FiChar*) P1_y)[T4] == 0L;
1354	goto L2;
1355	}
1356
1357	static struct _FiProg tmp26__TILDE__EQ_ = {
1358	(FiFun) CF26__TILDE__EQ_,
1359	0L,
1360	0L,
1361	0L,
1362	0L
1363	};
1364
1365
1366	static FiClos
1367	CF27__LT__LT_(FiEnv e1, FiWord P0_x)
1368	{
1369	PFmt9 l0;
1370	FiEnv e0;
1371	PFmt10 l1;
1372	l0 = fi0New(struct Fmt9 , CENSUS_EnvLevel)((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)));
1373	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1374	l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
1375	l0->X0_x = P0_x;
1376	return fiClosMake(e0, C28__LT__LT_)fiClosMakeFun(e0, (FiProg) (C28__LT__LT_));
1377	}
1378
1379	static struct _FiProg tmp27__LT__LT_ = {
1380	(FiFun) CF27__LT__LT_,
1381	0L,
1382	0L,
1383	0L,
1384	0L
1385	};
1386
1387
1388	static FiWord
1389	CF28__LT__LT_(FiEnv e1, FiWord P0_p)
1390	{
1391	FiWord T3;
1392	FiClos T0, T1, T2;
1393	PFmt9 l1;
1394	l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
1395	T3 = l1->X0_x;
1396	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1397	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);
1398	fiCCall3(FiWord, T1, T3, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,T3,(FiWord ) 1L,(FiWord) 0L));
1399	return P0_p;
1400	}
1401
1402	static struct _FiProg tmp28__LT__LT_ = {
1403	(FiFun) CF28__LT__LT_,
1404	0L,
1405	0L,
1406	0L,
1407	0L
1408	};
1409
1410
1411	static FiWord
1412	CF29_case(FiEnv e1, FiWord P0_x, FiWord P1_y)
1413	{
1414	FiSInt T3_a, T4;
1415	FiWord T2;
1416	FiChar T0, T1;
1417	T3_a = 1L;
1418	L3: T4 = T3_a - 1L;
1419	if (((FiChar*) P0_x)[T4] == 0L) goto L0;
1420	T0 = ((FiChar*) P0_x)[T4];
1421	T1 = ((FiChar*) P1_y)[T4];
1422	if (T0 != T1) goto L1;
1423	T3_a = T3_a + 1L;
1424	goto L3;
1425	L1: T2 = (FiWord) 0L;
1426	L2: return T2;
1427	L0: T2 = (FiWord) (((FiChar*) P1_y)[T4] == 0L);
1428	goto L2;
1429	}
1430
1431	static struct _FiProg tmp29_case = {
1432	(FiFun) CF29_case,
1433	0L,
1434	0L,
1435	0L,
1436	0L
1437	};
1438
1439
1440	static FiClos
1441	CF30_extend0(FiEnv e1, FiWord P0_domain)
1442	{
1443	PFmt5 T1;
1444	FiWord *T0;
1445	PFmt12 l1;
1446	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
1447	fiARRNEW_Word(T0, FiWord, 2L)((T0) = (FiWord) fiArrNew_Word(2L));
1448	T0[1L] = l1->X0_String;
1449	T0[0L] = (FiWord) G_X6Q70_string__String__816714;
1450	T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1451	T1->X0_size = 2L;
1452	T1->X1_nsize = 2L;
1453	T1->X2_values = (FiWord) T0;
1454	fiCCall2(FiWord, (pG_G3BWN_extendFill_BANG_), P0_domain, T1)((((FiWord ()())((pG_G3BWN_extendFill_BANG_))->prog-> fun))(((*pG_G3BWN_extendFill_BANG_))->env,P0_domain,T1));
1455	return (FiClos) fiNil((Ptr) 0);
1456	}
1457
1458	static struct _FiProg tmp30_extend0 = {
1459	(FiFun) CF30_extend0,
1460	0L,
1461	0L,
1462	0L,
1463	0L
1464	};
1465
1466
1467	static void
1468	CF31_lazyGetter2(FiEnv e1)
1469	{
1470	FiClos T0;
1471	PFmt11 l1;
1472	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
1473	if (l1->X1_flag) goto L0;
1474	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
1475	l1->X1_flag = 1L;
1476	l1->X2_self->env = T0->env;
1477	l1->X2_self->prog = T0->prog;
1478	fiEnvInfo(e1)(((FiEnv) (e1))->info) = (FiWord) fiNil((Ptr) 0);
1479	L0: return ;
1480	}
1481
1482	static struct _FiProg tmp31_lazyGetter2 = {
1483	(FiFun) CF31_lazyGetter2,
1484	0L,
1485	0L,
1486	0L,
1487	0L
1488	};
1489
1490
1491	static FiClos
1492	CF32_lazyFnGetter(FiEnv e1, FiWord P0_init)
1493	{
1494	PFmt11 l0;
1495	FiEnv e0;
1496	l0 = fi0New(struct Fmt11 , CENSUS_EnvLevel)((struct Fmt11 *) fi0Alloc(sizeof(struct Fmt11), (19)));
1497	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1498	l0->X0_getter = (FiClos) P0_init;
1499	l0->X1_flag = 0L;
1500	l0->X2_self = fiClosMake(e0, C33_lazyGetter)fiClosMakeFun(e0, (FiProg) (C33_lazyGetter));
1501	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C31_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C31_lazyGetter2));
1502	return l0->X2_self;
1503	}
1504
1505	static struct _FiProg tmp32_lazyFnGetter = {
1506	(FiFun) CF32_lazyFnGetter,
1507	0L,
1508	0L,
1509	0L,
1510	0L
1511	};
1512
1513
1514	static FiClos
1515	CF33_lazyGetter(FiEnv e1, FiWord P0_a)
1516	{
1517	FiClos T0;
1518	PFmt11 l1;
1519	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
1520	if (l1->X1_flag) goto L0;
1521	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
1522	l1->X2_self->env = T0->env;
1523	l1->X2_self->prog = T0->prog;
1524	l1->X1_flag = 1L;
1525	L0: return fiCCall1(FiClos, l1->X2_self, P0_a)((((FiClos ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a));
1526	}
1527
1528	static struct _FiProg tmp33_lazyGetter = {
1529	(FiFun) CF33_lazyGetter,
1530	0L,
1531	0L,
1532	0L,
1533	0L
1534	};
1535
1536
1537	static FiWord
1538	CF34_basic_MINUS_init(FiEnv e1, FiSInt P0_idx)
1539	{
1540	PFmt12 l1;
1541	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
1542	if (l1->X6) goto L0;
1543	l1->X6 = 1L;
1544	fiCCall0(void, (pG_NO017_basic))((((void ()())((pG_NO017_basic))->prog->fun))(((*pG_NO017_basic ))->env));
1545	L0: if (P0_idx != 1L) goto L1;
1546	return (FiWord) (*pG_AEIW8_basic__String__641272);
1547	L1: return (FiWord) (*pG_SH2SP_basic__TextWriter__36);
1548	}
1549
1550	static struct _FiProg tmp34_basic_MINUS_init = {
1551	(FiFun) CF34_basic_MINUS_init,
1552	0L,
1553	0L,
1554	0L,
1555	0L
1556	};
1557
1558
1559	static FiWord
1560	CF35_segment_MINUS_init(FiEnv e1, FiSInt P0_idx)
1561	{
1562	PFmt12 l1;
1563	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
1564	if (l1->X7) goto L0;
1565	l1->X7 = 1L;
1566	fiCCall0(void, (pG_WVJG4_segment))((((void ()())((pG_WVJG4_segment))->prog->fun))(((*pG_WVJG4_segment ))->env));
1567	L0: if (P0_idx != 2L) goto L1;
1568	return (FiWord) (*pG_RE3O1_segment__OpenSegment);
1569	L1: if (P0_idx != 1L) goto L2;
1570	return (FiWord) (*pG_H8G3S_segment__ClosedSegmen);
1571	L2: return (FiWord) (*pG_RPY7R_segment__Segment__100);
1572	}
1573
1574	static struct _FiProg tmp35_segment_MINUS_init = {
1575	(FiFun) CF35_segment_MINUS_init,
1576	0L,
1577	0L,
1578	0L,
1579	0L
1580	};
1581
1582
1583	static FiWord
1584	CF36_sinteger_MINUS_init(FiEnv e1, FiSInt P0_idx)
1585	{
1586	PFmt12 l1;
1587	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
1588	if (l1->X8) goto L0;
1589	l1->X8 = 1L;
1590	fiCCall0(void, (pG_HAQ5R_sinteger))((((void ()())((pG_HAQ5R_sinteger))->prog->fun))(((* pG_HAQ5R_sinteger))->env));
1591	L0: return (FiWord) (*pG_M8YLI_sinteger__MachineInte);
1592	}
1593
1594	static struct _FiProg tmp36_sinteger_MINUS_init = {
1595	(FiFun) CF36_sinteger_MINUS_init,
1596	0L,
1597	0L,
1598	0L,
1599	0L
1600	};
1601
1602
1603	static FiWord
1604	CF37_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx)
1605	{
1606	PFmt12 l1;
1607	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
1608	if (l1->X9) goto L0;
1609	l1->X9 = 1L;
1610	fiCCall0(void, (pG_H8TZ5_foamcat))((((void ()())((pG_H8TZ5_foamcat))->prog->fun))(((*pG_H8TZ5_foamcat ))->env));
1611	L0: return (FiWord) (*pG_WJ80M_foamcat__BasicType__9);
1612	}
1613
1614	static struct _FiProg tmp37_foamcat_MINUS_init = {
1615	(FiFun) CF37_foamcat_MINUS_init,
1616	0L,
1617	0L,
1618	0L,
1619	0L
1620	};
1621
1622
1623	static FiSInt
1624	CF38_generBound(FiEnv e1)
1625	{
1626	return -1L;
1627	}
1628
1629	static struct _FiProg tmp38_generBound = {
1630	(FiFun) CF38_generBound,
1631	0L,
1632	0L,
1633	0L,
1634	0L
1635	};
1636
1637	extern int
1638	INIT__0_string()
1639	{
1640
1641	extern int INIT__0_rtexns();
1642	extern int INIT__0_foamcat();
1643	extern int INIT__0_sinteger();
1644	extern int INIT__0_segment();
1645	extern int INIT__0_basic();
1646	extern int INIT__0_runtime();
1647	static int initialized = 0;
1648	if (initialized)
1649	return 0L;
1650	else
1651	initialized = 1;
1652	C1_addLevel0 = &tmp1_addLevel0;
1653	C2_addLevel1 = &tmp2_addLevel1;
1654	C3_new = &tmp3_new;
1655	C4_string = &tmp4_string;
1656	C5_copy = &tmp5_copy;
1657	C6__EQ_ = &tmp6__EQ_;
1658	C7_replace_BANG_ = &tmp7_replace_BANG_;
1659	C8_substring = &tmp8_substring;
1660	C9_rightTrim = &tmp9_rightTrim;
1661	C10_leftTrim = &tmp10_leftTrim;
1662	C11_apply = &tmp11_apply;
1663	C12_apply = &tmp12_apply;
1664	C13_fill_BANG_ = &tmp13_fill_BANG_;
1665	C14__PLUS_ = &tmp14__PLUS_;
1666	C15_concat = &tmp15_concat;
1667	C16_map_BANG_ = &tmp16_map_BANG_;
1668	C17_map = &tmp17_map;
1669	C18_generator = &tmp18_generator;
1670	C19_generBaseFn = &tmp19_generBaseFn;
1671	C20_generStepper = &tmp20_generStepper;
1672	C21_generDone_QMARK_ = &tmp21_generDone_QMARK_;
1673	C22_generValue = &tmp22_generValue;
1674	C23_generBound = &tmp23_generBound;
1675	C24__SHARP_ = &tmp24__SHARP_;
1676	C25_hash = &tmp25_hash;
1677	C26__TILDE__EQ_ = &tmp26__TILDE__EQ_;
1678	C27__LT__LT_ = &tmp27__LT__LT_;
1679	C28__LT__LT_ = &tmp28__LT__LT_;
1680	C29_case = &tmp29_case;
1681	C30_extend0 = &tmp30_extend0;
1682	C31_lazyGetter2 = &tmp31_lazyGetter2;
1683	C32_lazyFnGetter = &tmp32_lazyFnGetter;
1684	C33_lazyGetter = &tmp33_lazyGetter;
1685	C34_basic_MINUS_init = &tmp34_basic_MINUS_init;
1686	C35_segment_MINUS_init = &tmp35_segment_MINUS_init;
1687	C36_sinteger_MINUS_init = &tmp36_sinteger_MINUS_init;
1688	C37_foamcat_MINUS_init = &tmp37_foamcat_MINUS_init;
1689	C38_generBound = &tmp38_generBound;
1690	C0_string = &tmp0_string;
1691	fiExportGlobal("G_OGNYK_string", G_OGNYK_string)fiExportGlobalFun("G_OGNYK_string", (Ptr) &G_OGNYK_string , sizeof(G_OGNYK_string));
1692	fiExportGlobal("G_X6Q70_string__String__816714",fiExportGlobalFun("G_X6Q70_string__String__816714", (Ptr) & G_X6Q70_string__String__816714, sizeof(G_X6Q70_string__String__816714 ))
1693	G_X6Q70_string__String__816714)fiExportGlobalFun("G_X6Q70_string__String__816714", (Ptr) & G_X6Q70_string__String__816714, sizeof(G_X6Q70_string__String__816714 ));
1694	fiExportGlobal("G_PQBBY_string__String__103330",fiExportGlobalFun("G_PQBBY_string__String__103330", (Ptr) & G_PQBBY_string__String__103330, sizeof(G_PQBBY_string__String__103330 ))
1695	G_PQBBY_string__String__103330)fiExportGlobalFun("G_PQBBY_string__String__103330", (Ptr) & G_PQBBY_string__String__103330, sizeof(G_PQBBY_string__String__103330 ));
1696	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
1697	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
1698	fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn );
1699	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
1700	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
1701	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
1702	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
1703	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
1704	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
1705	fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch)
1706	pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch);
1707	fiImportGlobal("G_WJ80M_foamcat__BasicType__90",fiImportGlobalFun("G_WJ80M_foamcat__BasicType__90", (Ptr *) & pG_WJ80M_foamcat__BasicType__9)
1708	pG_WJ80M_foamcat__BasicType__9)fiImportGlobalFun("G_WJ80M_foamcat__BasicType__90", (Ptr *) & pG_WJ80M_foamcat__BasicType__9);
1709	fiImportGlobal("G_NOX7X_rtLazyCatFrInit", pG_NOX7X_rtLazyCatFrInit)fiImportGlobalFun("G_NOX7X_rtLazyCatFrInit", (Ptr *) &pG_NOX7X_rtLazyCatFrInit );
1710	fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults)
1711	pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults);
1712	fiImportGlobal("G_M8YLI_sinteger__MachineInteg",fiImportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr *) & pG_M8YLI_sinteger__MachineInte)
1713	pG_M8YLI_sinteger__MachineInte)fiImportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr *) & pG_M8YLI_sinteger__MachineInte);
1714	fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit );
1715	fiImportGlobal("G_RPY7R_segment__Segment__1001",fiImportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr *) & pG_RPY7R_segment__Segment__100)
1716	pG_RPY7R_segment__Segment__100)fiImportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr *) & pG_RPY7R_segment__Segment__100);
1717	fiImportGlobal("G_RSHLY_rtDelayedInit_BANG_",fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) & pG_RSHLY_rtDelayedInit_BANG_)
1718	pG_RSHLY_rtDelayedInit_BANG_)fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) & pG_RSHLY_rtDelayedInit_BANG_);
1719	fiImportGlobal("G_ZZZKG_stdGetWordRetWord0",fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) & pG_ZZZKG_stdGetWordRetWord0)
1720	pG_ZZZKG_stdGetWordRetWord0)fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) & pG_ZZZKG_stdGetWordRetWord0);
1721	fiImportGlobal("G_H8G3S_segment__ClosedSegment",fiImportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr *) & pG_H8G3S_segment__ClosedSegmen)
1722	pG_H8G3S_segment__ClosedSegmen)fiImportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr *) & pG_H8G3S_segment__ClosedSegmen);
1723	fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport)
1724	pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport);
1725	fiImportGlobal("G_RE3O1_segment__OpenSegment__",fiImportGlobalFun("G_RE3O1_segment__OpenSegment__", (Ptr *) & pG_RE3O1_segment__OpenSegment)
1726	pG_RE3O1_segment__OpenSegment)fiImportGlobalFun("G_RE3O1_segment__OpenSegment__", (Ptr *) & pG_RE3O1_segment__OpenSegment);
1727	fiImportGlobal("G_SH2SP_basic__TextWriter__360",fiImportGlobalFun("G_SH2SP_basic__TextWriter__360", (Ptr *) & pG_SH2SP_basic__TextWriter__36)
1728	pG_SH2SP_basic__TextWriter__36)fiImportGlobalFun("G_SH2SP_basic__TextWriter__360", (Ptr *) & pG_SH2SP_basic__TextWriter__36);
1729	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
1730	fiImportGlobal("G_AEIW8_basic__String__6412721",fiImportGlobalFun("G_AEIW8_basic__String__6412721", (Ptr *) & pG_AEIW8_basic__String__641272)
1731	pG_AEIW8_basic__String__641272)fiImportGlobalFun("G_AEIW8_basic__String__6412721", (Ptr *) & pG_AEIW8_basic__String__641272);
1732	fiImportGlobal("G_G3BWN_extendFill_BANG_", pG_G3BWN_extendFill_BANG_)fiImportGlobalFun("G_G3BWN_extendFill_BANG_", (Ptr *) &pG_G3BWN_extendFill_BANG_ );
1733	fiImportGlobal("G_FZLG1_extendMake", pG_FZLG1_extendMake)fiImportGlobalFun("G_FZLG1_extendMake", (Ptr *) &pG_FZLG1_extendMake );
1734	fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings );
1735	fiImportGlobal("G_NO017_basic", pG_NO017_basic)fiImportGlobalFun("G_NO017_basic", (Ptr *) &pG_NO017_basic );
1736	fiImportGlobal("G_WVJG4_segment", pG_WVJG4_segment)fiImportGlobalFun("G_WVJG4_segment", (Ptr *) &pG_WVJG4_segment );
1737	fiImportGlobal("G_HAQ5R_sinteger", pG_HAQ5R_sinteger)fiImportGlobalFun("G_HAQ5R_sinteger", (Ptr *) &pG_HAQ5R_sinteger );
1738	fiImportGlobal("G_H8TZ5_foamcat", pG_H8TZ5_foamcat)fiImportGlobalFun("G_H8TZ5_foamcat", (Ptr *) &pG_H8TZ5_foamcat );
1739	if (fiFileInitializer) {
1740	fiFileInitializer("rtexns");
1741	fiFileInitializer("foamcat");
1742	fiFileInitializer("sinteger");
1743	fiFileInitializer("segment");
1744	fiFileInitializer("basic");
1745	fiFileInitializer("runtime");
1746	}
1747	else {
1748	INIT__0_rtexns();
1749	INIT__0_foamcat();
1750	INIT__0_sinteger();
1751	INIT__0_segment();
1752	INIT__0_basic();
1753	INIT__0_runtime();
1754	}
1755	/* "---------------------------" */
1756	return 0L;
1757	}
1758
1759	FiWord G_PQBBY_string__String__103330;
1760	FiWord G_X6Q70_string__String__816714;
1761
1762	static struct _FiClos tmpClos0_string = {
1763	0L,
1764	(FiProg) &tmp0_string
1765	};
1766	FiClos G_OGNYK_string = &tmpClos0_string;