al/array.c

Bug Summary

File:	lib/libfoamlib/al/array.c
Warning:	line 1398, 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 array.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/array.c

1	/*
2	* C code generated by Aldor from file "array.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	typedef struct Fmt22 *PFmt22;
25	typedef struct Fmt23 *PFmt23;
26	typedef struct Fmt24 *PFmt24;
27	typedef struct Fmt25 *PFmt25;
28	struct Fmt5 {
29	FiSInt X0_size;
30	FiWord *X1_values;
31	};
32	struct Fmt6 {
33	FiWord X0_found;
34	FiWord X1_value;
35	};
36	struct Fmt7 {
37	FiSInt X0_size;
38	FiSInt X1_nsize;
39	FiWord X2_values;
40	};
41	struct Fmt8 {
42	FiPtr X0_empty;
43	};
44	struct Fmt9 {
45	FiWord X0_S;
46	};
47	struct Fmt10 {
48	FiPtr X0_empty;
49	};
50	struct Fmt11 {
51	FiWord X0_size;
52	FiWord X1_nvalues;
53	FiWord X2_values;
54	};
55	struct Fmt12 {
56	FiPtr X0_empty;
57	};
58	struct Fmt13 {
59	FiClos X0_done_QMARK_;
60	FiClos X1_step_BANG_;
61	FiClos X2_value;
62	FiClos X3_bound;
63	};
64	struct Fmt14 {
65	FiWord X0_v;
66	FiBool X1;
67	FiClos X2;
68	FiBool X3;
69	FiSInt X4;
70	FiWord X5;
71	FiWord X6_i;
72	FiEnv X7_10;
73	};
74	struct Fmt15 {
75	FiWord X0_x;
76	};
77	struct Fmt16 {
78	FiClos X0_case;
79	FiClos X1_hash;
80	FiClos X2__LT__LT_;
81	FiClos X3__LT__LT_;
82	FiClos X4_bracket;
83	FiClos X5_bracket;
84	FiClos X6_generator;
85	FiClos X7__TILDE__EQ_;
86	FiClos X8__EQ_;
87	FiClos X9_map;
88	FiClos X10_map;
89	FiClos X11_array;
90	FiClos X12_array;
91	FiWord X13_sample;
92	FiClos X14_empty_QMARK_;
93	FiClos X15__SHARP_;
94	FiClos X16_dispose_BANG_;
95	FiClos X17_empty_BANG_;
96	FiClos X18_extend_BANG_;
97	FiClos X19_set_BANG_;
98	FiClos X20_apply;
99	FiClos X21_empty;
100	FiClos X22_empty;
101	FiClos X23_new;
102	FiClos X24__TILDE__EQ_;
103	FiClos X25__LT__LT_;
104	FiSInt X26;
105	FiWord X27_dom;
106	};
107	struct Fmt17 {
108	FiWord X0_S;
109	};
110	struct Fmt18 {
111	FiClos X0_getter;
112	FiBool X1_flag;
113	FiClos X2_self;
114	};
115	struct Fmt19 {
116	FiClos X0_FiniteLinearAggregate;
117	FiWord X1_MachineInteger;
118	FiWord X2;
119	FiWord X3;
120	FiClos X4_Segment;
121	FiClos X5_generator;
122	FiWord X6_dom;
123	FiBool X7;
124	FiBool X8;
125	FiBool X9;
126	};
127	struct Fmt20 {
128	FiSInt X0_size;
129	FiWord *X1_values;
130	};
131	struct Fmt21 {
132	FiWord X0_s;
133	FiWord X1_b;
134	FiWord X2_a;
135	FiBool X3;
136	FiSInt X4;
137	FiWord X5;
138	};
139	struct Fmt22 {
140	FiWord X0_open_QMARK_;
141	FiWord X1_low;
142	FiWord X2_high;
143	FiWord X3_step;
144	};
145	struct Fmt23 {
146	FiPtr X0_empty;
147	};
148	struct Fmt24 {
149	FiPtr X0_empty;
150	};
151	struct Fmt25 {
152	FiClos X0;
153	FiClos X1;
154	FiClos X2;
155	};
156	static FiProg C0_array;
157	static void CF0_array(FiEnv e1);
158	static FiProg C1_ArrayCategory;
159	static FiWord CF1_ArrayCategory(FiEnv e1, FiWord P0_S);
160	static FiProg C2_defhash0;
161	static FiSInt CF2_defhash0(FiEnv e1);
162	static FiProg C3_ArrayCategory;
163	static void CF3_ArrayCategory(FiEnv e1, FiWord P0_self, FiWord P1_dom);
164	static FiProg C4_Array;
165	static FiWord CF4_Array(FiEnv e1, FiWord P0_S);
166	static FiProg C5_addLevel0;
167	static FiClos CF5_addLevel0(FiEnv e1, FiWord P0_domain);
168	static FiProg C6_addLevel1;
169	static FiWord CF6_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
170	static FiProg C7_defhash0;
171	static FiSInt CF7_defhash0(FiEnv e1);
172	static FiProg C8_Array;
173	static void CF8_Array(FiEnv e1, FiWord P0_self, FiWord P1_dom);
174	static FiProg C9_new;
175	static FiWord CF9_new(FiEnv e1, FiWord P0_size, FiWord P1_val);
176	static FiProg C10_empty;
177	static FiWord CF10_empty(FiEnv e1, FiWord P0_size);
178	static FiProg C11_apply;
179	static FiWord CF11_apply(FiEnv e1, FiWord P0_v, FiWord P1_i);
180	static FiProg C12_set_BANG_;
181	static FiWord CF12_set_BANG_(FiEnv e1, FiWord P0_v, FiWord P1_i, FiWord P2_val);
182	static FiProg C13_extend_BANG_;
183	static void CF13_extend_BANG_(FiEnv e1, FiWord P0_v, FiWord P1_val);
184	static FiProg C14_empty_BANG_;
185	static void CF14_empty_BANG_(FiEnv e1, FiWord P0_v);
186	static FiProg C15_dispose_BANG_;
187	static void CF15_dispose_BANG_(FiEnv e1, FiWord P0_v);
188	static FiProg C16__SHARP_;
189	static FiWord CF16__SHARP_(FiEnv e1, FiWord P0_v);
190	static FiProg C17_empty;
191	static FiWord CF17_empty(FiEnv e1);
192	static FiProg C18_empty_QMARK_;
193	static FiWord CF18_empty_QMARK_(FiEnv e1, FiWord P0_v);
194	static FiProg C19_array;
195	static FiWord CF19_array(FiEnv e1, FiWord P0_g);
196	static FiProg C20_array;
197	static FiWord CF20_array(FiEnv e1, FiWord P0_t);
198	static FiProg C21_map;
199	static FiWord CF21_map(FiEnv e1, FiWord P0_f, FiWord P1_v);
200	static FiProg C22_map;
201	static FiWord CF22_map(FiEnv e1, FiWord P0_f, FiWord P1_u, FiWord P2_v);
202	static FiProg C23__EQ_;
203	static FiWord CF23__EQ_(FiEnv e1, FiWord P0_u, FiWord P1_v);
204	static FiProg C24__TILDE__EQ_;
205	static FiWord CF24__TILDE__EQ_(FiEnv e1, FiWord P0_u, FiWord P1_v);
206	static FiProg C25_generator;
207	static FiClos CF25_generator(FiEnv e1, FiWord P0_v);
208	static FiProg C26_generBaseFn;
209	static void CF26_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
210	static FiProg C27_generStepper;
211	static void CF27_generStepper(FiEnv e1);
212	static FiProg C28_generDone_QMARK_;
213	static FiBool CF28_generDone_QMARK_(FiEnv e1);
214	static FiProg C29_generValue;
215	static FiWord CF29_generValue(FiEnv e1);
216	static FiProg C30_generBound;
217	static FiSInt CF30_generBound(FiEnv e1);
218	static FiProg C31_bracket;
219	static FiWord CF31_bracket(FiEnv e1, FiWord P0_g);
220	static FiProg C32_bracket;
221	static FiWord CF32_bracket(FiEnv e1, FiWord P0_t);
222	static FiProg C33__LT__LT_;
223	static FiWord CF33__LT__LT_(FiEnv e1, FiWord P0_p, FiWord P1_v);
224	static FiProg C34__LT__LT_;
225	static FiClos CF34__LT__LT_(FiEnv e1, FiWord P0_x);
226	static FiProg C35__LT__LT_;
227	static FiWord CF35__LT__LT_(FiEnv e1, FiWord P0_p);
228	static FiProg C36_hash;
229	static FiWord CF36_hash(FiEnv e1, FiWord P0_x);
230	static FiProg C37_case;
231	static FiWord CF37_case(FiEnv e1, FiWord P0_x, FiWord P1_y);
232	static FiProg C38_lazyGetter2;
233	static void CF38_lazyGetter2(FiEnv e1);
234	static FiProg C39_lazyFnGetter;
235	static FiClos CF39_lazyFnGetter(FiEnv e1, FiWord P0_init);
236	static FiProg C40_lazyGetter;
237	static FiClos CF40_lazyGetter(FiEnv e1, FiWord P0_a);
238	static FiProg C41_segment_MINUS_init;
239	static FiWord CF41_segment_MINUS_init(FiEnv e1, FiSInt P0_idx);
240	static FiProg C42_sinteger_MINUS_init;
241	static FiWord CF42_sinteger_MINUS_init(FiEnv e1, FiSInt P0_idx);
242	static FiProg C43_foamcat_MINUS_init;
243	static FiWord CF43_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx);
244	static FiProg C44_generBound;
245	static FiSInt CF44_generBound(FiEnv e1);
246	extern FiClos G_AL27T_array;
247	static FiClos *pG_NQYQM_noOperation;
248	extern FiClos G_FG5MI_array__Array__76767502;
249	extern FiClos G_RZZM5_array__ArrayCategory__;
250	static FiClos *pG_XIPRL_runtime;
251	static FiClos *pG_KAC1B_rtCacheExplicitMake;
252	static FiClos *pG_759EG_rtCacheCheck;
253	static FiClos *pG_LD0B5_domainHash_BANG_;
254	static FiClos *pG_WXLY5_categoryAddExports;
255	static FiClos *pG_VZ3O8_foamcat__FiniteLinear;
256	static FiClos *pG_RSHLY_rtDelayedInit_BANG_;
257	static FiClos *pG_ZZZKG_stdGetWordRetWord0;
258	static FiClos *pG_YXGL3_categoryAddParents;
259	static FiClos *pG_QRAZA_rtDelayedGetExport;
260	static FiWord *pG_M8YLI_sinteger__MachineInte;
261	static FiClos *pG_KK8CX_rtLazyDomFrInit;
262	static FiClos *pG_8AMPD_rtSingleParamNameFn;
263	static FiClos *pG_GOVLL_categoryMake;
264	static FiClos *pG_PV28S_rtCacheAdd;
265	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
266	static FiClos *pG_XS55O_domainAddHash_BANG_;
267	static FiClos *pG_PA5R2_domainAddExports;
268	static FiClos *pG_IJHFC_domainMakeDispatch;
269	static FiClos *pG_V9SO_domainAddDefaults;
270	static FiClos *pG_DLXW8_stdGetWordWordRetWord;
271	static FiClos *pG_RPY7R_segment__Segment__100;
272	static FiClos *pG_H8G3S_segment__ClosedSegmen;
273	static FiClos *pG_6L1ZC_domainMake;
274	static FiClos *pG_822GM_rtAddStrings;
275	static FiClos *pG_WVJG4_segment;
276	static FiClos *pG_HAQ5R_sinteger;
277	static FiClos *pG_H8TZ5_foamcat;
278
279
280
281	static void
282	CF0_array(FiEnv e1)
283	{
284	FiWord T3, T4, T7;
285	PFmt7 T5, T6;
286	FiClos T0, T1, T2;
287	PFmt19 l0;
288	FiEnv e0;
289	l0 = fi0New(struct Fmt19 , CENSUS_EnvLevel)((struct Fmt19 *) fi0Alloc(sizeof(struct Fmt19), (19)));
290	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
291	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
292	G_AL27T_array = (FiClos) (*pG_NQYQM_noOperation);
293	T0 = fiClosMake(e0, C43_foamcat_MINUS_init)fiClosMakeFun(e0, (FiProg) (C43_foamcat_MINUS_init));
294	T1 = fiClosMake(e0, C42_sinteger_MINUS_init)fiClosMakeFun(e0, (FiProg) (C42_sinteger_MINUS_init));
295	l0->X2 = (FiWord) fiNil((Ptr) 0);
296	G_RZZM5_array__ArrayCategory__ = fiClosMake(e0, C1_ArrayCategory)fiClosMakeFun(e0, (FiProg) (C1_ArrayCategory));
297	fiProgHashCode(((FiClos) G_RZZM5_array__ArrayCategory__)->prog)((((FiClos) G_RZZM5_array__ArrayCategory__)->prog)->data ) =
298	100663954L;
299	T2 = fiClosMake(e0, C41_segment_MINUS_init)fiClosMakeFun(e0, (FiProg) (C41_segment_MINUS_init));
300	l0->X3 = (FiWord) fiNil((Ptr) 0);
301	G_FG5MI_array__Array__76767502 = fiClosMake(e0, C4_Array)fiClosMakeFun(e0, (FiProg) (C4_Array));
302	fiProgHashCode(((FiClos) G_FG5MI_array__Array__76767502)->prog)((((FiClos) G_FG5MI_array__Array__76767502)->prog)->data ) =
303	703812620L;
304	l0->X7 = 0L;
305	l0->X8 = 0L;
306	l0->X9 = 0L;
307	fiARRNEW_Word(T3, FiWord, 19L)((T3) = (FiWord) fiArrNew_Word(19L));
308	fiARRNEW_Word(T4, FiWord, 19L)((T4) = (FiWord) fiArrNew_Word(19L));
309	T3[0L] = (FiWord) 200102L;
310	T4[0L] = (FiWord) "=";
311	T3[1L] = (FiWord) 306472243L;
312	T4[1L] = (FiWord) "apply";
313	T3[2L] = (FiWord) 44638651L;
314	T4[2L] = (FiWord) "bracket";
315	T3[3L] = (FiWord) 51509389L;
316	T4[3L] = (FiWord) "~=";
317	T3[4L] = (FiWord) 357262396L;
318	T4[4L] = (FiWord) "empty";
319	T3[5L] = (FiWord) 318461817L;
320	T4[5L] = (FiWord) "map";
321	T3[6L] = (FiWord) 200076L;
322	T4[6L] = (FiWord) "#";
323	T3[7L] = (FiWord) 682906668L;
324	T4[7L] = (FiWord) "array";
325	T3[8L] = (FiWord) 55906833L;
326	T4[8L] = (FiWord) "set!";
327	T3[9L] = (FiWord) 255806968L;
328	T4[9L] = (FiWord) "sample";
329	T3[10L] = (FiWord) 864625472L;
330	T4[10L] = (FiWord) "case";
331	T3[11L] = (FiWord) 113320568L;
332	T4[11L] = (FiWord) "generator";
333	T3[12L] = (FiWord) 506619334L;
334	T4[12L] = (FiWord) "empty!";
335	T3[13L] = (FiWord) 318528389L;
336	T4[13L] = (FiWord) "new";
337	T3[14L] = (FiWord) 614579040L;
338	T4[14L] = (FiWord) "dispose!";
339	T3[15L] = (FiWord) 472099976L;
340	T4[15L] = (FiWord) "extend!";
341	T3[16L] = (FiWord) 746853960L;
342	T4[16L] = (FiWord) "hash";
343	T3[17L] = (FiWord) 51492426L;
344	T4[17L] = (FiWord) "<<";
345	T3[18L] = (FiWord) 506619364L;
346	T4[18L] = (FiWord) "empty\?";
347	T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
348	T5->X0_size = 19L;
349	T5->X1_nsize = 19L;
350	T5->X2_values = (FiWord) T3;
351	T6 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
352	T6->X0_size = 19L;
353	T6->X1_nsize = 19L;
354	T6->X2_values = (FiWord) T4;
355	fiCCall2(void, (pG_822GM_rtAddStrings), (FiWord) T5, (FiWord) T6)((((void ()())((pG_822GM_rtAddStrings))->prog->fun)) (((*pG_822GM_rtAddStrings))->env,(FiWord) T5,(FiWord) T6));
356	T7 = fiCCall2(FiWord, (pG_RSHLY_rtDelayedInit_BANG_), T0, 0L)((((FiWord ()())((pG_RSHLY_rtDelayedInit_BANG_))->prog-> fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T0,0L));
357	l0->X0_FiniteLinearAggregate = fiCCall1(FiClos, (((((FiClos ()())(( pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((* pG_ZZZKG_stdGetWordRetWord0))->env,T7))
358	pG_ZZZKG_stdGetWordRetWord0), T7)((((FiClos ()())((* pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((* pG_ZZZKG_stdGetWordRetWord0))->env,T7));
359	l0->X1_MachineInteger = fiCCall2(FiWord, (((((FiWord ()())(( pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T1,0L))
360	pG_KK8CX_rtLazyDomFrInit), T1, 0L)((((FiWord ()())((* pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T1,0L));
361	T7 = fiCCall2(FiWord, (pG_RSHLY_rtDelayedInit_BANG_), T2, 0L)((((FiWord ()())((pG_RSHLY_rtDelayedInit_BANG_))->prog-> fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T2,0L));
362	l0->X4_Segment = fiCCall1(FiClos, (pG_ZZZKG_stdGetWordRetWord0),((((FiClos ()())((pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T7))
363	T7)((((FiClos ()())((pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((pG_ZZZKG_stdGetWordRetWord0))->env,T7));
364	l0->X6_dom = fiCCall1(FiWord, l0->X4_Segment, l0->((((FiWord ()())(l0->X4_Segment)->prog->fun))((l0-> X4_Segment)->env,l0-> X1_MachineInteger))
365	X1_MachineInteger)((((FiWord ()())(l0->X4_Segment)->prog->fun))((l0-> X4_Segment)->env,l0-> X1_MachineInteger));
366	l0->X5_generator = CF39_lazyFnGetter(e0, (FiWord) fiCCall3(((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0->X6_dom, 113320568L,622497990L))
367	FiWord, (pG_QRAZA_rtDelayedGetExport), l0->X6_dom,((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X6_dom, 113320568L,622497990L))
368	113320568L, 622497990L)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0->X6_dom, 113320568L,622497990L)));
369	return ;
370	}
371
372	static struct _FiProg tmp0_array = {
373	(FiFun) CF0_array,
374	0L,
375	0L,
376	0L,
377	0L
378	};
379
380
381	static FiWord
382	CF1_ArrayCategory(FiEnv e1, FiWord P0_S)
383	{
384	FiWord *T0, T2, T4, T6;
385	FiBool T3, T5;
386	PFmt5 T1;
387	PFmt9 l0;
388	FiEnv e0;
389	PFmt19 l1;
390	l0 = fi0New(struct Fmt9 , CENSUS_EnvLevel)((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)));
391	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
392	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
393	l0->X0_S = P0_S;
394	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
395	T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
396	T1->X0_size = 1L;
397	T1->X1_values = (FiWord*) T0;
398	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X2)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X2) == (FiPtr) 0));
399	if (T5) goto L3;
400	L1: T0[0L] = l0->X0_S;
401	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
402	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
403	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X2, (FiWord) (
404	FiWord) T1, &T2, &T4);
405	T3 = (FiBool) T4;
406	if (T3) goto L0;
407	T6 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "ArrayCategory",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"ArrayCategory" ,l0->X0_S))
408	l0->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"ArrayCategory" ,l0->X0_S));
409	T2 = fiCCall3(FiWord, (pG_GOVLL_categoryMake), fiClosMake(e0,((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((*pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_ArrayCategory)),fiClosMakeFun(e0, (FiProg) (C2_defhash0 )),T6))
410	C3_ArrayCategory), fiClosMake(e0, C2_defhash0), T6)((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_ArrayCategory)),fiClosMakeFun(e0, (FiProg) (C2_defhash0 )),T6));
411	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X2, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X2,(FiWord) T1,T2))
412	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X2,(FiWord) T1,T2));
413	L0: return T2;
414	L3: l1->X2 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
415	goto L1;
416	}
417
418	static struct _FiProg tmp1_ArrayCategory = {
419	(FiFun) CF1_ArrayCategory,
420	0L,
421	0L,
422	0L,
423	0L
424	};
425
426
427	static FiSInt
428	CF2_defhash0(FiEnv e1)
429	{
430	FiSInt T0;
431	PFmt9 l1;
432	l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
433	fiSINT_HASHCOMBINE(T0, FiSInt, fiCCall1(FiSInt, (((T0) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l1->X0_S)), 100663954L))
434	pG_LD0B5_domainHash_BANG_), l1->X0_S), 100663954L)((T0) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l1->X0_S)), 100663954L));
435	return T0;
436	}
437
438	static struct _FiProg tmp2_defhash0 = {
439	(FiFun) CF2_defhash0,
440	0L,
441	0L,
442	0L,
443	0L
444	};
445
446
447	static void
448	CF3_ArrayCategory(FiEnv e1, FiWord P0_self, FiWord P1_dom)
449	{
450	PFmt7 T3, T4, T5, T8;
451	FiWord T0, T1, T2, T7;
452	FiSInt T6;
453	PFmt9 l1;
454	PFmt19 l2;
455	FiEnv e2;
456	l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
457	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
458	l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
459	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
460	fiARRNEW_Word(T1, FiWord, 1L)((T1) = (FiWord) fiArrNew_Word(1L));
461	fiARRNEW_Word(T2, FiWord, 1L)((T2) = (FiWord) fiArrNew_Word(1L));
462	fiARRNEW_Word(T7, FiWord, 1L)((T7) = (FiWord) fiArrNew_Word(1L));
463	T6 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_S));
464	T3 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
465	T3->X0_size = 1L;
466	T3->X1_nsize = 1L;
467	T3->X2_values = (FiWord) T0;
468	T4 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
469	T4->X0_size = 1L;
470	T4->X1_nsize = 1L;
471	T4->X2_values = (FiWord) T1;
472	T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
473	T5->X0_size = 1L;
474	T5->X1_nsize = 1L;
475	T5->X2_values = (FiWord) T2;
476	fiCCall4(void, (pG_WXLY5_categoryAddExports), P0_self, T3, T4, T5)((((void ()())((pG_WXLY5_categoryAddExports))->prog-> fun))(((*pG_WXLY5_categoryAddExports))->env,P0_self,T3,T4, T5));
477	T0[0L] = (FiWord) 51482908L;
478	fiSINT_HASHCOMBINE(T1[0L], FiWord, T6, 100663954L)((T1[0L]) = (FiWord) fiSIntHashCombine(T6, 100663954L));
479	T2[0L] = P1_dom;
480	T7[0L] = fiCCall1(FiWord, l2->X0_FiniteLinearAggregate, l1->((((FiWord ()())(l2->X0_FiniteLinearAggregate)->prog-> fun))((l2->X0_FiniteLinearAggregate)->env,l1-> X0_S) )
481	X0_S)((((FiWord ()())(l2->X0_FiniteLinearAggregate)->prog-> fun))((l2->X0_FiniteLinearAggregate)->env,l1-> X0_S) );
482	T8 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
483	T8->X0_size = 1L;
484	T8->X1_nsize = 1L;
485	T8->X2_values = (FiWord) T7;
486	fiCCall3(FiWord, (pG_YXGL3_categoryAddParents), P0_self, T8, P1_dom)((((FiWord ()())((pG_YXGL3_categoryAddParents))->prog-> fun))(((*pG_YXGL3_categoryAddParents))->env,P0_self,T8,P1_dom ));
487	return ;
488	}
489
490	static struct _FiProg tmp3_ArrayCategory = {
491	(FiFun) CF3_ArrayCategory,
492	0L,
493	0L,
494	0L,
495	0L
496	};
497
498
499	static FiWord
500	CF4_Array(FiEnv e1, FiWord P0_S)
501	{
502	FiBool T3, T5;
503	FiWord *T0, T2, T4;
504	PFmt5 T1;
505	PFmt17 l0;
506	FiEnv e0;
507	PFmt19 l1;
508	l0 = fi0New(struct Fmt17 , CENSUS_EnvLevel)((struct Fmt17 *) fi0Alloc(sizeof(struct Fmt17), (19)));
509	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
510	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
511	l0->X0_S = P0_S;
512	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
513	T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
514	T1->X0_size = 1L;
515	T1->X1_values = (FiWord*) T0;
516	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X3)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X3) == (FiPtr) 0));
517	if (T5) goto L3;
518	L1: T0[0L] = l0->X0_S;
519	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
520	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
521	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X3, (FiWord) (
522	FiWord) T1, &T2, &T4);
523	T3 = (FiBool) T4;
524	if (T3) goto L0;
525	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C5_addLevel0))))
526	C5_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C5_addLevel0))));
527	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X3, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2))
528	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2));
529	L0: return T2;
530	L3: l1->X3 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
531	goto L1;
532	}
533
534	static struct _FiProg tmp4_Array = {
535	(FiFun) CF4_Array,
536	0L,
537	0L,
538	0L,
539	0L
540	};
541
542
543	static FiClos
544	CF5_addLevel0(FiEnv e1, FiWord P0_domain)
545	{
546	FiSInt T1, T2;
547	FiWord T0;
548	FiEnv e2, e0;
549	PFmt17 l1;
550	PFmt19 l2;
551	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
552	l1 = (PFmt17) fiEnvLevel(e1)((FiEnv) (e1)->level);
553	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
554	l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
555	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "Array",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Array",l1-> X0_S))
556	l1->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"Array",l1-> X0_S));
557	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
558	T2 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_S));
559	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 703812620L)((T1) = (FiSInt) fiSIntHashCombine(T2, 703812620L));
560	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
561	return fiClosMake(e0, C6_addLevel1)fiClosMakeFun(e0, (FiProg) (C6_addLevel1));
562	}
563
564	static struct _FiProg tmp5_addLevel0 = {
565	(FiFun) CF5_addLevel0,
566	0L,
567	0L,
568	0L,
569	0L
570	};
571
572
573	static FiWord
574	CF6_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
575	{
576	FiWord T0, T1, *T2, T6, T35;
577	FiSInt T7, T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T23, T24, T25, T26, T28, T29, T30, T31, T32, T33, T34;
578	PFmt11 T27;
579	PFmt7 T3, T4, T5;
580	PFmt16 l0;
581	FiEnv e3, e2, e0;
582	PFmt17 l2;
583	PFmt19 l3;
584	l0 = fi0New(struct Fmt16 , CENSUS_EnvLevel)((struct Fmt16 *) fi0Alloc(sizeof(struct Fmt16), (19)));
585	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
586	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
587	l2 = (PFmt17) fiEnvLevel(e2)((FiEnv) (e2)->level);
588	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
589	l3 = (PFmt19) fiEnvLevel(e3)((FiEnv) (e3)->level);
590	fiARRNEW_Word(T0, FiWord, 24L)((T0) = (FiWord) fiArrNew_Word(24L));
591	fiARRNEW_Word(T1, FiWord, 24L)((T1) = (FiWord) fiArrNew_Word(24L));
592	fiARRNEW_Word(T2, FiWord, 24L)((T2) = (FiWord) fiArrNew_Word(24L));
593	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
594	l0->X26 = (FiSInt) P1_hashcode;
595	l0->X23_new = fiClosMake(e0, C9_new)fiClosMakeFun(e0, (FiProg) (C9_new));
596	l0->X21_empty = fiClosMake(e0, C10_empty)fiClosMakeFun(e0, (FiProg) (C10_empty));
597	l0->X20_apply = fiClosMake(e0, C11_apply)fiClosMakeFun(e0, (FiProg) (C11_apply));
598	l0->X19_set_BANG_ = fiClosMake(e0, C12_set_BANG_)fiClosMakeFun(e0, (FiProg) (C12_set_BANG_));
599	l0->X18_extend_BANG_ = fiClosMake(e0, C13_extend_BANG_)fiClosMakeFun(e0, (FiProg) (C13_extend_BANG_));
600	l0->X17_empty_BANG_ = fiClosMake(e0, C14_empty_BANG_)fiClosMakeFun(e0, (FiProg) (C14_empty_BANG_));
601	l0->X16_dispose_BANG_ = fiClosMake(e0, C15_dispose_BANG_)fiClosMakeFun(e0, (FiProg) (C15_dispose_BANG_));
602	l0->X15__SHARP_ = fiClosMake(e0, C16__SHARP_)fiClosMakeFun(e0, (FiProg) (C16__SHARP_));
603	l0->X22_empty = fiClosMake(e0, C17_empty)fiClosMakeFun(e0, (FiProg) (C17_empty));
604	l0->X14_empty_QMARK_ = fiClosMake(e0, C18_empty_QMARK_)fiClosMakeFun(e0, (FiProg) (C18_empty_QMARK_));
605	l0->X11_array = fiClosMake(e0, C19_array)fiClosMakeFun(e0, (FiProg) (C19_array));
606	l0->X12_array = fiClosMake(e0, C20_array)fiClosMakeFun(e0, (FiProg) (C20_array));
607	l0->X9_map = fiClosMake(e0, C21_map)fiClosMakeFun(e0, (FiProg) (C21_map));
608	l0->X10_map = fiClosMake(e0, C22_map)fiClosMakeFun(e0, (FiProg) (C22_map));
609	l0->X8__EQ_ = fiClosMake(e0, C23__EQ_)fiClosMakeFun(e0, (FiProg) (C23__EQ_));
610	l0->X7__TILDE__EQ_ = fiClosMake(e0, C24__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C24__TILDE__EQ_));
611	l0->X6_generator = fiClosMake(e0, C25_generator)fiClosMakeFun(e0, (FiProg) (C25_generator));
612	l0->X4_bracket = fiClosMake(e0, C31_bracket)fiClosMakeFun(e0, (FiProg) (C31_bracket));
613	l0->X5_bracket = fiClosMake(e0, C32_bracket)fiClosMakeFun(e0, (FiProg) (C32_bracket));
614	l0->X2__LT__LT_ = fiClosMake(e0, C33__LT__LT_)fiClosMakeFun(e0, (FiProg) (C33__LT__LT_));
615	l0->X3__LT__LT_ = fiClosMake(e0, C34__LT__LT_)fiClosMakeFun(e0, (FiProg) (C34__LT__LT_));
616	l0->X1_hash = fiClosMake(e0, C36_hash)fiClosMakeFun(e0, (FiProg) (C36_hash));
617	l0->X0_case = fiClosMake(e0, C37_case)fiClosMakeFun(e0, (FiProg) (C37_case));
618	T26 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l2->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l2->X0_S));
619	fiSINT_HASHCOMBINE(T7, FiSInt, l0->X26, fiSIntHashCombine((FiSInt)((T7) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt ) 586463030L))))
620	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt)((T7) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt ) 586463030L))))
621	586463030L)))((T7) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt ) 586463030L))));
622	fiSINT_HASHCOMBINE(T8, FiSInt, l0->X26, 796932504L)((T8) = (FiSInt) fiSIntHashCombine(l0->X26, 796932504L));
623	fiSINT_HASHCOMBINE(T28, FiSInt, l0->X26, 51489085L)((T28) = (FiSInt) fiSIntHashCombine(l0->X26, 51489085L));
624	fiSINT_HASHCOMBINE(T29, FiSInt, 33717313L, T28)((T29) = (FiSInt) fiSIntHashCombine(33717313L, T28));
625	fiSINT_HASHCOMBINE(T9, FiSInt, T26, fiSIntHashCombine((FiSInt) 32236L, (((T9) = (FiSInt) fiSIntHashCombine(T26, fiSIntHashCombine((FiSInt ) 32236L, ( FiSInt) T29)))
626	FiSInt) T29))((T9) = (FiSInt) fiSIntHashCombine(T26, fiSIntHashCombine((FiSInt ) 32236L, ( FiSInt) T29)));
627	fiSINT_HASHCOMBINE(T10, FiSInt, T26, fiSIntHashCombine((FiSInt)((T10) = (FiSInt) fiSIntHashCombine(T26, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt) T29 ))))
628	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt) T29)))((T10) = (FiSInt) fiSIntHashCombine(T26, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt) T29 ))));
629	fiSINT_HASHCOMBINE(T11, FiSInt, 32236L, fiSIntHashCombine((FiSInt)((T11) = (FiSInt) fiSIntHashCombine(32236L, fiSIntHashCombine ((FiSInt) T26, (FiSInt) T28)))
630	T26, (FiSInt) T28))((T11) = (FiSInt) fiSIntHashCombine(32236L, fiSIntHashCombine ((FiSInt) T26, (FiSInt) T28)));
631	fiSINT_HASHCOMBINE(T30, FiSInt, 32236L, T28)((T30) = (FiSInt) fiSIntHashCombine(32236L, T28));
632	fiSINT_HASHCOMBINE(T12, FiSInt, 33717313L, T30)((T12) = (FiSInt) fiSIntHashCombine(33717313L, T30));
633	fiSINT_HASHCOMBINE(T13, FiSInt, l0->X26, 275363373L)((T13) = (FiSInt) fiSIntHashCombine(l0->X26, 275363373L));
634	fiSINT_HASHCOMBINE(T14, FiSInt, 740244383L, T30)((T14) = (FiSInt) fiSIntHashCombine(740244383L, T30));
635	fiSINT_HASHCOMBINE(T34, FiSInt, T26, 83976792L)((T34) = (FiSInt) fiSIntHashCombine(T26, 83976792L));
636	fiSINT_HASHCOMBINE(T15, FiSInt, l0->X26, fiSIntHashCombine((FiSInt)((T15) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T34, (FiSInt ) 51489085L))))
637	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T34, (FiSInt)((T15) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T34, (FiSInt ) 51489085L))))
638	51489085L)))((T15) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T34, (FiSInt ) 51489085L))));
639	fiSINT_HASHCOMBINE(T16, FiSInt, l0->X26, fiSIntHashCombine((FiSInt)((T16) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) T26, (FiSInt) 617884183L), (FiSInt) 51489085L))))
640	32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine((((T16) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) T26, (FiSInt) 617884183L), (FiSInt) 51489085L))))
641	FiSInt) T26, (FiSInt) 617884183L), (FiSInt) 51489085L)))((T16) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) T26, (FiSInt) 617884183L), (FiSInt) 51489085L))));
642	fiSINT_HASHCOMBINE(T31, FiSInt, T26, 51489085L)((T31) = (FiSInt) fiSIntHashCombine(T26, 51489085L));
643	fiSINT_HASHCOMBINE(T17, FiSInt, l0->X26, fiSIntHashCombine((FiSInt)((T17) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T26, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T31)), ( FiSInt) 51489085L)))))
644	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (((T17) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T26, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T31)), ( FiSInt) 51489085L)))))
645	FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt)((T17) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T26, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T31)), ( FiSInt) 51489085L)))))
646	T26, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt) T31)), (((T17) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T26, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T31)), ( FiSInt) 51489085L)))))
647	FiSInt) 51489085L))))((T17) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T26, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T31)), ( FiSInt) 51489085L)))));
648	fiSINT_HASHCOMBINE(T32, FiSInt, T26, T31)((T32) = (FiSInt) fiSIntHashCombine(T26, T31));
649	fiSINT_HASHCOMBINE(T33, FiSInt, 32236L, T32)((T33) = (FiSInt) fiSIntHashCombine(32236L, T32));
650	fiSINT_HASHCOMBINE(T18, FiSInt, l0->X26, fiSIntHashCombine((FiSInt)((T18) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (FiSInt ) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) T26, ( FiSInt) T33), (FiSInt) 51489085L))))))
651	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (((T18) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (FiSInt ) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) T26, ( FiSInt) T33), (FiSInt) 51489085L))))))
652	FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (FiSInt)((T18) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (FiSInt ) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) T26, ( FiSInt) T33), (FiSInt) 51489085L))))))
653	fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) T26, (((T18) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (FiSInt ) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) T26, ( FiSInt) T33), (FiSInt) 51489085L))))))
654	FiSInt) T33), (FiSInt) 51489085L)))))((T18) = (FiSInt) fiSIntHashCombine(l0->X26, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (FiSInt ) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) T26, ( FiSInt) T33), (FiSInt) 51489085L))))));
655	fiSINT_HASHCOMBINE(T19, FiSInt, 740244383L, T33)((T19) = (FiSInt) fiSIntHashCombine(740244383L, T33));
656	fiSINT_HASHCOMBINE(T20, FiSInt, 740244383L, fiSIntHashCombine((FiSInt)((T20) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) T28))))
657	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (((T20) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) T28))))
658	FiSInt) T28)))((T20) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) T28))));
659	fiSINT_HASHCOMBINE(T21, FiSInt, T34, T30)((T21) = (FiSInt) fiSIntHashCombine(T34, T30));
660	fiSINT_HASHCOMBINE(T22, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T22) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt ) 102896482L))))
661	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt)((T22) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt ) 102896482L))))
662	102896482L)))((T22) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T26, (FiSInt ) 102896482L))));
663	fiSINT_HASHCOMBINE(T23, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T23) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) 102896482L))))
664	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X26, (((T23) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) 102896482L))))
665	FiSInt) 102896482L)))((T23) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X26, ( FiSInt) 102896482L))));
666	fiSINT_HASHCOMBINE(T24, FiSInt, 755420535L, T30)((T24) = (FiSInt) fiSIntHashCombine(755420535L, T30));
667	T25 = l0->X26;
668	T3 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
669	T3->X0_size = 24L;
670	T3->X1_nsize = 24L;
671	T3->X2_values = (FiWord) T0;
672	T4 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
673	T4->X0_size = 24L;
674	T4->X1_nsize = 24L;
675	T4->X2_values = (FiWord) T1;
676	T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
677	T5->X0_size = 24L;
678	T5->X1_nsize = 24L;
679	T5->X2_values = (FiWord) T2;
680	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) );
681	T35 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "Array",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Array",l2-> X0_S))
682	l2->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"Array",l2-> X0_S));
683	T35 = fiCCall3(FiWord, (pG_GOVLL_categoryMake), fiClosMake(e0,((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((*pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C8_Array)),fiClosMakeFun(e0, (FiProg) (C7_defhash0)),T35))
684	C8_Array), fiClosMake(e0, C7_defhash0), T35)((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C8_Array)),fiClosMakeFun(e0, (FiProg) (C7_defhash0)),T35));
685	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, T35, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,T35,T6 ));
686	T0[0L] = (FiWord) 318528389L;
687	T1[0L] = (FiWord) T7;
688	T2[0L] = (FiWord) l0->X23_new;
689	T0[1L] = (FiWord) 357262396L;
690	T1[1L] = (FiWord) T8;
691	T2[1L] = (FiWord) l0->X21_empty;
692	T0[2L] = (FiWord) 306472243L;
693	T1[2L] = (FiWord) T9;
694	T2[2L] = (FiWord) l0->X20_apply;
695	T0[3L] = (FiWord) 55906833L;
696	T1[3L] = (FiWord) T10;
697	T2[3L] = (FiWord) l0->X19_set_BANG_;
698	T0[4L] = (FiWord) 472099976L;
699	T1[4L] = (FiWord) T11;
700	T2[4L] = (FiWord) l0->X18_extend_BANG_;
701	T0[5L] = (FiWord) 506619334L;
702	T1[5L] = (FiWord) T30;
703	T2[5L] = (FiWord) l0->X17_empty_BANG_;
704	T0[6L] = (FiWord) 614579040L;
705	T1[6L] = (FiWord) T30;
706	T2[6L] = (FiWord) l0->X16_dispose_BANG_;
707	T0[7L] = (FiWord) 200076L;
708	T1[7L] = (FiWord) T12;
709	T2[7L] = (FiWord) l0->X15__SHARP_;
710	T0[8L] = (FiWord) 357262396L;
711	T1[8L] = (FiWord) T13;
712	T2[8L] = (FiWord) l0->X22_empty;
713	T0[9L] = (FiWord) 506619364L;
714	T1[9L] = (FiWord) T14;
715	T2[9L] = (FiWord) l0->X14_empty_QMARK_;
716	T0[10L] = (FiWord) 682906668L;
717	T1[10L] = (FiWord) T15;
718	T2[10L] = (FiWord) l0->X11_array;
719	T0[11L] = (FiWord) 682906668L;
720	T1[11L] = (FiWord) T16;
721	T2[11L] = (FiWord) l0->X12_array;
722	T0[12L] = (FiWord) 318461817L;
723	T1[12L] = (FiWord) T17;
724	T2[12L] = (FiWord) l0->X9_map;
725	T0[13L] = (FiWord) 318461817L;
726	T1[13L] = (FiWord) T18;
727	T2[13L] = (FiWord) l0->X10_map;
728	l0->X27_dom = l2->X0_S;
729	T35 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X27_dom ,51509389L,T19))
730	X27_dom, 51509389L, T19)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X27_dom ,51509389L,T19));
731	l0->X24__TILDE__EQ_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T35))
732	pG_DLXW8_stdGetWordWordRetWord), T35)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T35));
733	T0[14L] = (FiWord) 200102L;
734	T1[14L] = (FiWord) T20;
735	T2[14L] = (FiWord) l0->X8__EQ_;
736	T0[15L] = (FiWord) 51509389L;
737	T1[15L] = (FiWord) T20;
738	T2[15L] = (FiWord) l0->X7__TILDE__EQ_;
739	T0[16L] = (FiWord) 113320568L;
740	T1[16L] = (FiWord) T21;
741	T2[16L] = (FiWord) l0->X6_generator;
742	T0[17L] = (FiWord) 44638651L;
743	T1[17L] = (FiWord) T15;
744	T2[17L] = (FiWord) l0->X4_bracket;
745	T0[18L] = (FiWord) 44638651L;
746	T1[18L] = (FiWord) T16;
747	T2[18L] = (FiWord) l0->X5_bracket;
748	T35 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X27_dom ,51492426L,T22))
749	X27_dom, 51492426L, T22)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X27_dom ,51492426L,T22));
750	l0->X25__LT__LT_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T35))
751	pG_DLXW8_stdGetWordWordRetWord), T35)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T35));
752	T0[19L] = (FiWord) 51492426L;
753	T1[19L] = (FiWord) T23;
754	T2[19L] = (FiWord) l0->X2__LT__LT_;
755	T0[20L] = (FiWord) 51492426L;
756	T1[20L] = (FiWord) T24;
757	T2[20L] = (FiWord) l0->X3__LT__LT_;
758	T0[21L] = (FiWord) 746853960L;
759	T1[21L] = (FiWord) T12;
760	T2[21L] = (FiWord) l0->X1_hash;
761	T0[22L] = (FiWord) 864625472L;
762	T1[22L] = (FiWord) T20;
763	T2[22L] = (FiWord) l0->X0_case;
764	T27 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
765	T27->X0_size = (FiWord) 0L;
766	T27->X1_nvalues = (FiWord) 0L;
767	T27->X2_values = (FiWord) (FiPtr) fiArrNew_Word(0L);
768	l0->X13_sample = (FiWord) T27;
769	T0[23L] = (FiWord) 255806968L;
770	T1[23L] = (FiWord) T25;
771	T2[23L] = l0->X13_sample;
772	return P0_domain;
773	}
774
775	static struct _FiProg tmp6_addLevel1 = {
776	(FiFun) CF6_addLevel1,
777	0L,
778	0L,
779	0L,
780	0L
781	};
782
783
784	static FiSInt
785	CF7_defhash0(FiEnv e1)
786	{
787	FiSInt T0;
788	FiEnv e3, e2;
789	PFmt17 l3;
790	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
791	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
792	l3 = (PFmt17) fiEnvLevel(e3)((FiEnv) (e3)->level);
793	fiSINT_HASHCOMBINE(T0, FiSInt, fiCCall1(FiSInt, (((T0) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l3->X0_S)), 703812620L))
794	pG_LD0B5_domainHash_BANG_), l3->X0_S), 703812620L)((T0) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l3->X0_S)), 703812620L));
795	return T0;
796	}
797
798	static struct _FiProg tmp7_defhash0 = {
799	(FiFun) CF7_defhash0,
800	0L,
801	0L,
802	0L,
803	0L
804	};
805
806
807	static void
808	CF8_Array(FiEnv e1, FiWord P0_self, FiWord P1_dom)
809	{
810	PFmt7 T3, T4, T5, T7;
811	FiWord T0, T1, T2, T6;
812	FiEnv e3, e2;
813	PFmt17 l3;
814	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
815	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
816	l3 = (PFmt17) fiEnvLevel(e3)((FiEnv) (e3)->level);
817	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
818	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
819	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
820	fiARRNEW_Word(T6, FiWord, 1L)((T6) = (FiWord) fiArrNew_Word(1L));
821	T3 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
822	T3->X0_size = 0L;
823	T3->X1_nsize = 0L;
824	T3->X2_values = (FiWord) T0;
825	T4 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
826	T4->X0_size = 0L;
827	T4->X1_nsize = 0L;
828	T4->X2_values = (FiWord) T1;
829	T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
830	T5->X0_size = 0L;
831	T5->X1_nsize = 0L;
832	T5->X2_values = (FiWord) T2;
833	fiCCall4(void, (pG_WXLY5_categoryAddExports), P0_self, T3, T4, T5)((((void ()())((pG_WXLY5_categoryAddExports))->prog-> fun))(((*pG_WXLY5_categoryAddExports))->env,P0_self,T3,T4, T5));
834	T6[0L] = fiCCall1(FiWord, G_RZZM5_array__ArrayCategory__, l3->((((FiWord ()())(G_RZZM5_array__ArrayCategory__)->prog-> fun))((G_RZZM5_array__ArrayCategory__)->env,l3-> X0_S))
835	X0_S)((((FiWord ()())(G_RZZM5_array__ArrayCategory__)->prog-> fun))((G_RZZM5_array__ArrayCategory__)->env,l3-> X0_S));
836	T7 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
837	T7->X0_size = 1L;
838	T7->X1_nsize = 1L;
839	T7->X2_values = (FiWord) T6;
840	fiCCall3(FiWord, (pG_YXGL3_categoryAddParents), P0_self, T7, P1_dom)((((FiWord ()())((pG_YXGL3_categoryAddParents))->prog-> fun))(((*pG_YXGL3_categoryAddParents))->env,P0_self,T7,P1_dom ));
841	return ;
842	}
843
844	static struct _FiProg tmp8_Array = {
845	(FiFun) CF8_Array,
846	0L,
847	0L,
848	0L,
849	0L
850	};
851
852
853	static FiWord
854	CF9_new(FiEnv e1, FiWord P0_size, FiWord P1_val)
855	{
856	FiSInt T2, T3;
857	FiPtr *T1;
858	PFmt11 T0;
859	T0 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
860	T0->X0_size = P0_size;
861	T0->X1_nvalues = P0_size;
862	T1 = (FiPtr*) (FiPtr) fiArrNew_Word((FiSInt) P0_size);
863	T3 = 1L;
864	L0: if (T3 <= (FiSInt) P0_size) goto L1;
865	T0->X2_values = (FiWord) T1;
866	return (FiWord) T0;
867	L1: T2 = T3 - 1L;
868	((FiWord*) T1)[T2] = P1_val;
869	T3 = T3 + 1L;
870	goto L0;
871	}
872
873	static struct _FiProg tmp9_new = {
874	(FiFun) CF9_new,
875	0L,
876	0L,
877	0L,
878	0L
879	};
880
881
882	static FiWord
883	CF10_empty(FiEnv e1, FiWord P0_size)
884	{
885	PFmt11 T0;
886	T0 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
887	T0->X0_size = P0_size;
888	T0->X1_nvalues = (FiWord) 0L;
889	T0->X2_values = (FiWord) (FiPtr) fiArrNew_Word((FiSInt) P0_size);
890	return (FiWord) T0;
891	}
892
893	static struct _FiProg tmp10_empty = {
894	(FiFun) CF10_empty,
895	0L,
896	0L,
897	0L,
898	0L
899	};
900
901
902	static FiWord
903	CF11_apply(FiEnv e1, FiWord P0_v, FiWord P1_i)
904	{
905	return ((FiWord*) ((PFmt11) P0_v)->X2_values)[(FiSInt) P1_i - 1L];
906	}
907
908	static struct _FiProg tmp11_apply = {
909	(FiFun) CF11_apply,
910	0L,
911	0L,
912	0L,
913	0L
914	};
915
916
917	static FiWord
918	CF12_set_BANG_(FiEnv e1, FiWord P0_v, FiWord P1_i, FiWord P2_val)
919	{
920	FiPtr *T1;
921	FiSInt T0;
922	T1 = (FiPtr*) ((PFmt11) P0_v)->X2_values;
923	T0 = (FiSInt) P1_i - 1L;
924	((FiWord*) T1)[T0] = P2_val;
925	return ((FiWord*) T1)[T0];
926	}
927
928	static struct _FiProg tmp12_set_BANG_ = {
929	(FiFun) CF12_set_BANG_,
930	0L,
931	0L,
932	0L,
933	0L
934	};
935
936
937	static void
938	CF13_extend_BANG_(FiEnv e1, FiWord P0_v, FiWord P1_val)
939	{
940	FiSInt T0, T1, T3, T4, T7, T8, T10;
941	FiPtr T2, T5, *T9;
942	FiWord T6;
943	if ((FiSInt) ((PFmt11) P0_v)->X1_nvalues == (FiSInt) ((PFmt11)
944	P0_v)->X0_size) goto L0;
945	L1: ((PFmt11) P0_v)->X1_nvalues = (FiWord) ((FiSInt) ((PFmt11)
946	P0_v)->X1_nvalues + 1L);
947	T2 = (FiPtr*) ((PFmt11) P0_v)->X2_values;
948	T1 = (FiSInt) ((PFmt11) P0_v)->X1_nvalues - 1L;
949	((FiWord*) T2)[T1] = P1_val;
950	return ;
951	L0: fiSINT_QUO(T0, FiSInt, (FiSInt) ((PFmt11) P0_v)->X0_size, 2L)((T0) = (FiSInt) (((FiSInt) ((PFmt11) P0_v)->X0_size)/(2L) ));
952	T4 = (FiSInt) ((PFmt11) P0_v)->X0_size + T0;
953	if (T4 < 4L) goto L2;
954	T3 = T4;
955	L3: T9 = (FiPtr*) ((PFmt11) P0_v)->X2_values;
956	T10 = (FiSInt) ((PFmt11) P0_v)->X0_size;
957	if (T3 <= T10) goto L4;
958	T5 = (FiPtr*) (FiPtr) fiArrNew_Word(T3);
959	T7 = 1L;
960	L6: if (T7 <= T10) goto L7;
961	fiFree((FiPtr) T9);
962	T6 = (FiWord) T5;
963	L5: ((PFmt11) P0_v)->X2_values = T6;
964	((PFmt11) P0_v)->X0_size = (FiWord) T3;
965	goto L1;
966	L7: T8 = T7 - 1L;
967	((FiWord) T5)[T8] = ((FiWord) T9)[T8];
968	T7 = T7 + 1L;
969	goto L6;
970	L4: T6 = (FiWord) T9;
971	goto L5;
972	L2: T3 = 4L;
973	goto L3;
974	}
975
976	static struct _FiProg tmp13_extend_BANG_ = {
977	(FiFun) CF13_extend_BANG_,
978	0L,
979	0L,
980	0L,
981	0L
982	};
983
984
985	static void
986	CF14_empty_BANG_(FiEnv e1, FiWord P0_v)
987	{
988	((PFmt11) P0_v)->X1_nvalues = (FiWord) 0L;
989	return ;
990	}
991
992	static struct _FiProg tmp14_empty_BANG_ = {
993	(FiFun) CF14_empty_BANG_,
994	0L,
995	0L,
996	0L,
997	0L
998	};
999
1000
1001	static void
1002	CF15_dispose_BANG_(FiEnv e1, FiWord P0_v)
1003	{
1004	fiFree((FiPtr) (FiPtr) ((PFmt11) P0_v)->X2_values);
1005	fiFree((FiPtr) P0_v);
1006	return ;
1007	}
1008
1009	static struct _FiProg tmp15_dispose_BANG_ = {
1010	(FiFun) CF15_dispose_BANG_,
1011	0L,
1012	0L,
1013	0L,
1014	0L
1015	};
1016
1017
1018	static FiWord
1019	CF16__SHARP_(FiEnv e1, FiWord P0_v)
1020	{
1021	return ((PFmt11) P0_v)->X1_nvalues;
1022	}
1023
1024	static struct _FiProg tmp16__SHARP_ = {
1025	(FiFun) CF16__SHARP_,
1026	0L,
1027	0L,
1028	0L,
1029	0L
1030	};
1031
1032
1033	static FiWord
1034	CF17_empty(FiEnv e1)
1035	{
1036	PFmt11 T0;
1037	T0 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
1038	T0->X0_size = (FiWord) 0L;
1039	T0->X1_nvalues = (FiWord) 0L;
1040	T0->X2_values = (FiWord) (FiPtr) fiArrNew_Word(0L);
1041	return (FiWord) T0;
1042	}
1043
1044	static struct _FiProg tmp17_empty = {
1045	(FiFun) CF17_empty,
1046	0L,
1047	0L,
1048	0L,
1049	0L
1050	};
1051
1052
1053	static FiWord
1054	CF18_empty_QMARK_(FiEnv e1, FiWord P0_v)
1055	{
1056	FiSInt T0;
1057	T0 = (FiSInt) ((PFmt11) P0_v)->X1_nvalues;
1058	return (FiWord) (T0 == 0);
1059	}
1060
1061	static struct _FiProg tmp18_empty_QMARK_ = {
1062	(FiFun) CF18_empty_QMARK_,
1063	0L,
1064	0L,
1065	0L,
1066	0L
1067	};
1068
1069
1070	static FiWord
1071	CF19_array(FiEnv e1, FiWord P0_g)
1072	{
1073	PFmt11 T16;
1074	FiSInt T5, T6, T8, T9, T12, T13, T15;
1075	FiPtr T7, T10, *T14;
1076	FiWord T0, T11;
1077	FiClos T1, T2, T3, T4;
1078	T16 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
1079	T16->X0_size = (FiWord) 0L;
1080	T16->X1_nvalues = (FiWord) 0L;
1081	T16->X2_values = (FiWord) (FiPtr) fiArrNew_Word(0L);
1082	((void()(FiEnv , FiClos , FiClos* , FiClos* , FiClos* ))
1083	fiRawCProg((FiClos) P0_g)(((FiClos) P0_g)->prog->fun))(((FiClos) P0_g)->env, &T1, &T2, &
1084	T3, &T4);
1085	L0: fiCCall0(void, T2)((((void ()())(T2)->prog->fun))((T2)->env));
1086	if ((FiBool) fiCCall0(FiWord, T1)((((FiWord ()())(T1)->prog->fun))((T1)->env))) goto L1;
1087	T0 = fiCCall0(FiWord, T3)((((FiWord ()())(T3)->prog->fun))((T3)->env));
1088	if ((FiSInt) T16->X1_nvalues == (FiSInt) T16->X0_size) goto L2;
1089	L3: T16->X1_nvalues = (FiWord) ((FiSInt) T16->X1_nvalues + 1L);
1090	T7 = (FiPtr*) T16->X2_values;
1091	T6 = (FiSInt) T16->X1_nvalues - 1L;
1092	((FiWord*) T7)[T6] = T0;
1093	goto L0;
1094	L2: fiSINT_QUO(T5, FiSInt, (FiSInt) T16->X0_size, 2L)((T5) = (FiSInt) (((FiSInt) T16->X0_size)/(2L)));
1095	T9 = (FiSInt) T16->X0_size + T5;
1096	if (T9 < 4L) goto L4;
1097	T8 = T9;
1098	L5: T14 = (FiPtr*) T16->X2_values;
1099	T15 = (FiSInt) T16->X0_size;
1100	if (T8 <= T15) goto L6;
1101	T10 = (FiPtr*) (FiPtr) fiArrNew_Word(T8);
1102	T12 = 1L;
1103	L8: if (T12 <= T15) goto L9;
1104	fiFree((FiPtr) T14);
1105	T11 = (FiWord) T10;
1106	L7: T16->X2_values = T11;
1107	T16->X0_size = (FiWord) T8;
1108	goto L3;
1109	L9: T13 = T12 - 1L;
1110	((FiWord) T10)[T13] = ((FiWord) T14)[T13];
1111	T12 = T12 + 1L;
1112	goto L8;
1113	L6: T11 = (FiWord) T14;
1114	goto L7;
1115	L4: T8 = 4L;
1116	goto L5;
1117	L1: return (FiWord) T16;
1118	}
1119
1120	static struct _FiProg tmp19_array = {
1121	(FiFun) CF19_array,
1122	0L,
1123	0L,
1124	0L,
1125	0L
1126	};
1127
1128
1129	static FiWord
1130	CF20_array(FiEnv e1, FiWord P0_t)
1131	{
1132	PFmt16 l1;
1133	l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);
1134	return fiCCall1(FiWord, l1->X5_bracket, P0_t)((((FiWord ()())(l1->X5_bracket)->prog->fun))((l1-> X5_bracket)->env,P0_t));
1135	}
1136
1137	static struct _FiProg tmp20_array = {
1138	(FiFun) CF20_array,
1139	0L,
1140	0L,
1141	0L,
1142	0L
1143	};
1144
1145
1146	static FiWord
1147	CF21_map(FiEnv e1, FiWord P0_f, FiWord P1_v)
1148	{
1149	FiSInt T0_n, T1, T2, T4, T5, T8, T9, T11, T14_a;
1150	PFmt11 T13;
1151	FiWord T7, T12;
1152	FiPtr T3, T6, *T10;
1153	T0_n = (FiSInt) ((PFmt11) P1_v)->X1_nvalues;
1154	T13 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
1155	T13->X0_size = (FiWord) T0_n;
1156	T13->X1_nvalues = (FiWord) 0L;
1157	T13->X2_values = (FiWord) (FiPtr) fiArrNew_Word(T0_n);
1158	T14_a = 1L;
1159	L7: if (T14_a <= T0_n) goto L9;
1160	return (FiWord) T13;
1161	L9: T12 = fiCCall1(FiWord, (FiClos) P0_f, ((FiWord) ((PFmt11) P1_v)->((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,((FiWord) ((PFmt11) P1_v)-> X2_values)[T14_a - 1L]))
1162	X2_values)[T14_a - 1L])((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,((FiWord*) ((PFmt11) P1_v)-> X2_values)[T14_a - 1L]));
1163	if ((FiSInt) T13->X1_nvalues == (FiSInt) T13->X0_size) goto L0;
1164	T13->X1_nvalues = (FiWord) ((FiSInt) T13->X1_nvalues + 1L);
1165	T3 = (FiPtr*) T13->X2_values;
1166	T2 = (FiSInt) T13->X1_nvalues - 1L;
1167	((FiWord*) T3)[T2] = T12;
1168	L8: T14_a = T14_a + 1L;
1169	goto L7;
1170	L0: fiSINT_QUO(T1, FiSInt, (FiSInt) T13->X0_size, 2L)((T1) = (FiSInt) (((FiSInt) T13->X0_size)/(2L)));
1171	T5 = (FiSInt) T13->X0_size + T1;
1172	if (T5 < 4L) goto L1;
1173	T4 = T5;
1174	L2: T10 = (FiPtr*) T13->X2_values;
1175	T11 = (FiSInt) T13->X0_size;
1176	if (T4 <= T11) goto L3;
1177	T6 = (FiPtr*) (FiPtr) fiArrNew_Word(T4);
1178	T8 = 1L;
1179	L5: if (T8 <= T11) goto L6;
1180	fiFree((FiPtr) T10);
1181	T7 = (FiWord) T6;
1182	L4: T13->X2_values = T7;
1183	T13->X0_size = (FiWord) T4;
1184	T13->X1_nvalues = (FiWord) ((FiSInt) T13->X1_nvalues + 1L);
1185	T3 = (FiPtr*) T13->X2_values;
1186	T2 = (FiSInt) T13->X1_nvalues - 1L;
1187	((FiWord*) T3)[T2] = T12;
1188	goto L8;
1189	L6: T9 = T8 - 1L;
1190	((FiWord) T6)[T9] = ((FiWord) T10)[T9];
1191	T8 = T8 + 1L;
1192	goto L5;
1193	L3: T7 = (FiWord) T10;
1194	goto L4;
1195	L1: T4 = 4L;
1196	goto L2;
1197	}
1198
1199	static struct _FiProg tmp21_map = {
1200	(FiFun) CF21_map,
1201	0L,
1202	0L,
1203	0L,
1204	0L
1205	};
1206
1207
1208	static FiWord
1209	CF22_map(FiEnv e1, FiWord P0_f, FiWord P1_u, FiWord P2_v)
1210	{
1211	FiSInt T0, T1, T3, T4, T7, T8, T10, T12, T13, T14, T16_a, T17;
1212	PFmt11 T15;
1213	FiWord T6, T11;
1214	FiPtr T2, T5, *T9;
1215	T13 = (FiSInt) ((PFmt11) P1_u)->X1_nvalues;
1216	T14 = (FiSInt) ((PFmt11) P2_v)->X1_nvalues;
1217	if (T13 < T14) goto L7;
1218	T12 = T14;
1219	L8: T15 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
1220	T15->X0_size = (FiWord) T12;
1221	T15->X1_nvalues = (FiWord) 0L;
1222	T15->X2_values = (FiWord) (FiPtr) fiArrNew_Word(T12);
1223	T16_a = 1L;
1224	L9: if (T16_a <= T12) goto L11;
1225	return (FiWord) T15;
1226	L11: T17 = T16_a - 1L;
1227	T11 = fiCCall2(FiWord, (FiClos) P0_f, ((FiWord) ((PFmt11) P1_u)->((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,((FiWord) ((PFmt11) P1_u)-> X2_values)[T17 ],((FiWord*) ((PFmt11) P2_v)->X2_values)[T17]))
1228	X2_values)[T17], ((FiWord) ((PFmt11) P2_v)->X2_values)[T17])((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,((FiWord) ((PFmt11) P1_u)-> X2_values)[T17 ],((FiWord*) ((PFmt11) P2_v)->X2_values)[T17]));
1229	if ((FiSInt) T15->X1_nvalues == (FiSInt) T15->X0_size) goto L0;
1230	T15->X1_nvalues = (FiWord) ((FiSInt) T15->X1_nvalues + 1L);
1231	T2 = (FiPtr*) T15->X2_values;
1232	T1 = (FiSInt) T15->X1_nvalues - 1L;
1233	((FiWord*) T2)[T1] = T11;
1234	L10: T16_a = T16_a + 1L;
1235	goto L9;
1236	L0: fiSINT_QUO(T0, FiSInt, (FiSInt) T15->X0_size, 2L)((T0) = (FiSInt) (((FiSInt) T15->X0_size)/(2L)));
1237	T4 = (FiSInt) T15->X0_size + T0;
1238	if (T4 < 4L) goto L1;
1239	T3 = T4;
1240	L2: T9 = (FiPtr*) T15->X2_values;
1241	T10 = (FiSInt) T15->X0_size;
1242	if (T3 <= T10) goto L3;
1243	T5 = (FiPtr*) (FiPtr) fiArrNew_Word(T3);
1244	T7 = 1L;
1245	L5: if (T7 <= T10) goto L6;
1246	fiFree((FiPtr) T9);
1247	T6 = (FiWord) T5;
1248	L4: T15->X2_values = T6;
1249	T15->X0_size = (FiWord) T3;
1250	T15->X1_nvalues = (FiWord) ((FiSInt) T15->X1_nvalues + 1L);
1251	T2 = (FiPtr*) T15->X2_values;
1252	T1 = (FiSInt) T15->X1_nvalues - 1L;
1253	((FiWord*) T2)[T1] = T11;
1254	goto L10;
1255	L6: T8 = T7 - 1L;
1256	((FiWord) T5)[T8] = ((FiWord) T9)[T8];
1257	T7 = T7 + 1L;
1258	goto L5;
1259	L3: T6 = (FiWord) T9;
1260	goto L4;
1261	L1: T3 = 4L;
1262	goto L2;
1263	L7: T12 = T13;
1264	goto L8;
1265	}
1266
1267	static struct _FiProg tmp22_map = {
1268	(FiFun) CF22_map,
1269	0L,
1270	0L,
1271	0L,
1272	0L
1273	};
1274
1275
1276	static FiWord
1277	CF23__EQ_(FiEnv e1, FiWord P0_u, FiWord P1_v)
1278	{
1279	FiSInt T0_n, T2, T3_a, T4;
1280	FiWord T1;
1281	PFmt16 l1;
1282	FiEnv e4, e3, e2;
1283	PFmt19 l4;
1284	l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);
1285	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1286	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1287	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1288	l4 = (PFmt19) fiEnvLevel(e4)((FiEnv) (e4)->level);
1289	T0_n = (FiSInt) ((PFmt11) P0_u)->X1_nvalues;
1290	T2 = (FiSInt) ((PFmt11) P1_v)->X1_nvalues;
1291	if (T0_n != T2) goto L0;
1292	fiEnvEnsure(l4->X5_generator->env)fiEnvEnsureFun(l4->X5_generator->env);
1293	T3_a = 1L;
1294	L3: if (T3_a <= T0_n) goto L4;
1295	T1 = (FiWord) 1L;
1296	L1: return T1;
1297	L4: T4 = T3_a - 1L;
1298	if ((FiBool) fiCCall2(FiWord, l1->X24__TILDE__EQ_, ((FiWord) ((((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_u) ->X2_values)[T4],((FiWord*) ((PFmt11) P1_v)-> X2_values )[T4]))
1299	PFmt11) P0_u)->X2_values)[T4], ((FiWord) ((PFmt11) P1_v)->((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_u) ->X2_values)[T4],((FiWord*) ((PFmt11) P1_v)-> X2_values )[T4]))
1300	X2_values)[T4])((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_u) ->X2_values)[T4],((FiWord) ((PFmt11) P1_v)-> X2_values )[T4]))) goto L2;
1301	T3_a = T3_a + 1L;
1302	goto L3;
1303	L2: return (FiWord) 0L;
1304	L0: T1 = (FiWord) 0L;
1305	goto L1;
1306	}
1307
1308	static struct _FiProg tmp23__EQ_ = {
1309	(FiFun) CF23__EQ_,
1310	0L,
1311	0L,
1312	0L,
1313	0L
1314	};
1315
1316
1317	static FiWord
1318	CF24__TILDE__EQ_(FiEnv e1, FiWord P0_u, FiWord P1_v)
1319	{
1320	FiSInt T0, T2, T4_a, T5;
1321	FiBool T1, T3;
1322	PFmt16 l1;
1323	FiEnv e4, e3, e2;
1324	PFmt19 l4;
1325	l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);
1326	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1327	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1328	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1329	l4 = (PFmt19) fiEnvLevel(e4)((FiEnv) (e4)->level);
1330	T0 = (FiSInt) ((PFmt11) P0_u)->X1_nvalues;
1331	T2 = (FiSInt) ((PFmt11) P1_v)->X1_nvalues;
1332	if (T0 != T2) goto L0;
1333	fiEnvEnsure(l4->X5_generator->env)fiEnvEnsureFun(l4->X5_generator->env);
1334	T4_a = 1L;
1335	L3: if (T4_a <= T0) goto L4;
1336	T1 = 1L;
1337	L1: T3 = T1;
1338	L5: return (FiWord) !T3;
1339	L4: T5 = T4_a - 1L;
1340	if ((FiBool) fiCCall2(FiWord, l1->X24__TILDE__EQ_, ((FiWord) ((((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_u) ->X2_values)[T5],((FiWord*) ((PFmt11) P1_v)-> X2_values )[T5]))
1341	PFmt11) P0_u)->X2_values)[T5], ((FiWord) ((PFmt11) P1_v)->((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_u) ->X2_values)[T5],((FiWord*) ((PFmt11) P1_v)-> X2_values )[T5]))
1342	X2_values)[T5])((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_u) ->X2_values)[T5],((FiWord) ((PFmt11) P1_v)-> X2_values )[T5]))) goto L2;
1343	T4_a = T4_a + 1L;
1344	goto L3;
1345	L2: T3 = 0L;
1346	goto L5;
1347	L0: T1 = 0L;
1348	goto L1;
1349	}
1350
1351	static struct _FiProg tmp24__TILDE__EQ_ = {
1352	(FiFun) CF24__TILDE__EQ_,
1353	0L,
1354	0L,
1355	0L,
1356	0L
1357	};
1358
1359
1360	static FiClos
1361	CF25_generator(FiEnv e1, FiWord P0_v)
1362	{
1363	PFmt14 l0;
1364	FiEnv e4, e3, e2, e0;
1365	PFmt16 l1;
1366	PFmt19 l4;
1367	l0 = fi0New(struct Fmt14 , CENSUS_EnvLevel)((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)));
1368	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1369	l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);
1370	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1371	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1372	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1373	l4 = (PFmt19) fiEnvLevel(e4)((FiEnv) (e4)->level);
1374	l0->X0_v = P0_v;
1375	l0->X1 = 0L;
1376	l0->X4 = 0L;
1377	return fiClosMake(e0, C26_generBaseFn)fiClosMakeFun(e0, (FiProg) (C26_generBaseFn));
1378	}
1379
1380	static struct _FiProg tmp25_generator = {
1381	(FiFun) CF25_generator,
1382	0L,
1383	0L,
1384	0L,
1385	0L
1386	};
1387
1388
1389	static void
1390	CF26_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
1391	R3)
1392	{
1393	FiEnv e5, e4, e3, e2, e0;
1394	PFmt14 l1;
1395	PFmt16 l2;
1396	PFmt19 l5;
1397	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1398	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
	Value stored to 'l1' is never read
1399	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1400	l2 = (PFmt16) fiEnvLevel(e2)((FiEnv) (e2)->level);
1401	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1402	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1403	e5 = fiEnvNext(e4)((FiEnv) (e4)->next);
1404	l5 = (PFmt19) fiEnvLevel(e5)((FiEnv) (e5)->level);
1405	*R0 = fiClosMake(e0, C28_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C28_generDone_QMARK_));
1406	*R1 = fiClosMake(e0, C27_generStepper)fiClosMakeFun(e0, (FiProg) (C27_generStepper));
1407	*R2 = fiClosMake(e0, C29_generValue)fiClosMakeFun(e0, (FiProg) (C29_generValue));
1408	*R3 = fiClosMake(e0, C30_generBound)fiClosMakeFun(e0, (FiProg) (C30_generBound));
1409	return ;
1410	}
1411
1412	static struct _FiProg tmp26_generBaseFn = {
1413	(FiFun) CF26_generBaseFn,
1414	0L,
1415	0L,
1416	0L,
1417	0L
1418	};
1419
1420
1421	static void
1422	CF27_generStepper(FiEnv e1)
1423	{
1424	PFmt22 T5, T7, T8;
1425	FiWord T0, T3, T6;
1426	FiSInt T4;
1427	PFmt11 T2;
1428	FiClos T1;
1429	PFmt14 l2;
1430	FiEnv e0, e6, e5, e4, e3, e2;
1431	PFmt16 l3;
1432	PFmt19 l6;
1433	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1434	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1435	l2 = (PFmt14) fiEnvLevel(e2)((FiEnv) (e2)->level);
1436	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1437	l3 = (PFmt16) fiEnvLevel(e3)((FiEnv) (e3)->level);
1438	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1439	e5 = fiEnvNext(e4)((FiEnv) (e4)->next);
1440	e6 = fiEnvNext(e5)((FiEnv) (e5)->next);
1441	l6 = (PFmt19) fiEnvLevel(e6)((FiEnv) (e6)->level);
1442	switch (l2->X4) {
1443	case 0L: goto L0;
1444	case 1L: goto L1;
1445	}
1446	L0: l2->X3 = 0L;
1447	fiEnvEnsure(l6->X5_generator->env)fiEnvEnsureFun(l6->X5_generator->env);
1448	l2->X7_10 = fiEnvPush(fi0New(struct Fmt21 , CENSUS_EnvLevel),fiEnvPushFun((FiPtr) (((struct Fmt21 *) fi0Alloc(sizeof(struct Fmt21), (19)))), l6->X5_generator->env)
1449	l6->X5_generator->env)fiEnvPushFun((FiPtr) (((struct Fmt21 *) fi0Alloc(sizeof(struct Fmt21), (19)))), l6->X5_generator->env);
1450	T2 = (PFmt11) l2->X0_v;
1451	T5 = fi0RecNew(struct Fmt22 , CENSUS_Rec)((struct Fmt22 *) fi0RecAlloc(sizeof(struct Fmt22), ( 5)));
1452	T5->X0_open_QMARK_ = (FiWord) 0L;
1453	T5->X1_low = (FiWord) 1L;
1454	T5->X2_high = T2->X1_nvalues;
1455	T5->X3_step = (FiWord) 1L;
1456	((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X0_s = (FiWord) T5;
1457	((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X4 = 0L;
1458	fiEnvEnsure(l2->X7_10)fiEnvEnsureFun(l2->X7_10);
1459	T1 = fiClosMake(e0, C44_generBound)fiClosMakeFun(e0, (FiProg) (C44_generBound));
1460	l2->X1 = 1L;
1461	l2->X2 = T1;
1462	L1: switch (((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X4) {
1463	case 0L: goto L3;
1464	case 1L: goto L5;
1465	}
1466	L3: ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X3 = 0L;
1467	T8 = (PFmt22) ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X0_s;
1468	((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X2_a = T8->X1_low;
1469	T7 = (PFmt22) ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X0_s;
1470	((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X1_b = T7->X2_high;
1471	L4: if ((FiSInt) ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X2_a <= (FiSInt) ((
1472	PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X1_b) goto L6;
1473	((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X3 = 1L;
1474	L7: if ((FiBool) ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X3) goto L2;
1475	l2->X6_i = ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X5;
1476	l2->X4 = 1L;
1477	fiEnvEnsure(l3->X20_apply->env)fiEnvEnsureFun(l3->X20_apply->env);
1478	T3 = l2->X0_v;
1479	T4 = (FiSInt) l2->X6_i;
1480	T0 = ((FiWord*) ((PFmt11) T3)->X2_values)[T4 - 1L];
1481	l2->X5 = T0;
1482	return ;
1483	L2: l2->X3 = 1L;
1484	return ;
1485	L6: ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X4 = 1L;
1486	T6 = ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X2_a;
1487	((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X5 = T6;
1488	goto L7;
1489	L5: ((PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X2_a = (FiWord) ((FiSInt) ((
1490	PFmt21) fiEnvLevel0(l2->X7_10)(((FiEnv)(l2->X7_10))->level))->X2_a + 1L);
1491	goto L4;
1492	}
1493
1494	static struct _FiProg tmp27_generStepper = {
1495	(FiFun) CF27_generStepper,
1496	0L,
1497	0L,
1498	0L,
1499	0L
1500	};
1501
1502
1503	static FiBool
1504	CF28_generDone_QMARK_(FiEnv e1)
1505	{
1506	PFmt14 l2;
1507	FiEnv e2;
1508	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1509	l2 = (PFmt14) fiEnvLevel(e2)((FiEnv) (e2)->level);
1510	return l2->X3;
1511	}
1512
1513	static struct _FiProg tmp28_generDone_QMARK_ = {
1514	(FiFun) CF28_generDone_QMARK_,
1515	0L,
1516	0L,
1517	0L,
1518	0L
1519	};
1520
1521
1522	static FiWord
1523	CF29_generValue(FiEnv e1)
1524	{
1525	PFmt14 l2;
1526	FiEnv e2;
1527	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1528	l2 = (PFmt14) fiEnvLevel(e2)((FiEnv) (e2)->level);
1529	return l2->X5;
1530	}
1531
1532	static struct _FiProg tmp29_generValue = {
1533	(FiFun) CF29_generValue,
1534	0L,
1535	0L,
1536	0L,
1537	0L
1538	};
1539
1540
1541	static FiSInt
1542	CF30_generBound(FiEnv e1)
1543	{
1544	FiSInt T0, T1;
1545	PFmt14 l2;
1546	FiEnv e2;
1547	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1548	l2 = (PFmt14) fiEnvLevel(e2)((FiEnv) (e2)->level);
1549	if (l2->X1) goto L3;
1550	L0: T0 = -1L;
1551	L1: return T0;
1552	L3: T1 = fiCCall0(FiSInt, l2->X2)((((FiSInt ()())(l2->X2)->prog->fun))((l2->X2)-> env));
1553	if (T1 < 0L) goto L0;
1554	T0 = T1;
1555	goto L1;
1556	}
1557
1558	static struct _FiProg tmp30_generBound = {
1559	(FiFun) CF30_generBound,
1560	0L,
1561	0L,
1562	0L,
1563	0L
1564	};
1565
1566
1567	static FiWord
1568	CF31_bracket(FiEnv e1, FiWord P0_g)
1569	{
1570	PFmt11 T16;
1571	FiSInt T5, T6, T8, T9, T12, T13, T15;
1572	FiPtr T7, T10, *T14;
1573	FiWord T0_t, T11;
1574	FiClos T1, T2, T3, T4;
1575	T16 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
1576	T16->X0_size = (FiWord) 0L;
1577	T16->X1_nvalues = (FiWord) 0L;
1578	T16->X2_values = (FiWord) (FiPtr) fiArrNew_Word(0L);
1579	((void()(FiEnv , FiClos , FiClos* , FiClos* , FiClos* ))
1580	fiRawCProg((FiClos) P0_g)(((FiClos) P0_g)->prog->fun))(((FiClos) P0_g)->env, &T1, &T2, &
1581	T3, &T4);
1582	L0: fiCCall0(void, T2)((((void ()())(T2)->prog->fun))((T2)->env));
1583	if ((FiBool) fiCCall0(FiWord, T1)((((FiWord ()())(T1)->prog->fun))((T1)->env))) goto L1;
1584	T0_t = fiCCall0(FiWord, T3)((((FiWord ()())(T3)->prog->fun))((T3)->env));
1585	if ((FiSInt) T16->X1_nvalues == (FiSInt) T16->X0_size) goto L2;
1586	L3: T16->X1_nvalues = (FiWord) ((FiSInt) T16->X1_nvalues + 1L);
1587	T7 = (FiPtr*) T16->X2_values;
1588	T6 = (FiSInt) T16->X1_nvalues - 1L;
1589	((FiWord*) T7)[T6] = T0_t;
1590	goto L0;
1591	L2: fiSINT_QUO(T5, FiSInt, (FiSInt) T16->X0_size, 2L)((T5) = (FiSInt) (((FiSInt) T16->X0_size)/(2L)));
1592	T9 = (FiSInt) T16->X0_size + T5;
1593	if (T9 < 4L) goto L4;
1594	T8 = T9;
1595	L5: T14 = (FiPtr*) T16->X2_values;
1596	T15 = (FiSInt) T16->X0_size;
1597	if (T8 <= T15) goto L6;
1598	T10 = (FiPtr*) (FiPtr) fiArrNew_Word(T8);
1599	T12 = 1L;
1600	L8: if (T12 <= T15) goto L9;
1601	fiFree((FiPtr) T14);
1602	T11 = (FiWord) T10;
1603	L7: T16->X2_values = T11;
1604	T16->X0_size = (FiWord) T8;
1605	goto L3;
1606	L9: T13 = T12 - 1L;
1607	((FiWord) T10)[T13] = ((FiWord) T14)[T13];
1608	T12 = T12 + 1L;
1609	goto L8;
1610	L6: T11 = (FiWord) T14;
1611	goto L7;
1612	L4: T8 = 4L;
1613	goto L5;
1614	L1: return (FiWord) T16;
1615	}
1616
1617	static struct _FiProg tmp31_bracket = {
1618	(FiFun) CF31_bracket,
1619	0L,
1620	0L,
1621	0L,
1622	0L
1623	};
1624
1625
1626	static FiWord
1627	CF32_bracket(FiEnv e1, FiWord P0_t)
1628	{
1629	FiSInt T0, T1, T3, T4, T7, T8, T10, T12, T13_a, T14_high;
1630	PFmt11 T11;
1631	FiPtr T2, T5, *T9;
1632	FiWord T6;
1633	T12 = ((PFmt20) P0_t)->X0_size;
1634	T11 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
1635	T11->X0_size = (FiWord) T12;
1636	T11->X1_nvalues = (FiWord) 0L;
1637	T11->X2_values = (FiWord) (FiPtr) fiArrNew_Word(T12);
1638	T14_high = ((PFmt20) P0_t)->X0_size;
1639	T13_a = 1L;
1640	L7: if (T13_a <= T14_high) goto L9;
1641	return (FiWord) T11;
1642	L9: if ((FiSInt) T11->X1_nvalues == (FiSInt) T11->X0_size) goto L0;
1643	T11->X1_nvalues = (FiWord) ((FiSInt) T11->X1_nvalues + 1L);
1644	T2 = (FiPtr*) T11->X2_values;
1645	T1 = (FiSInt) T11->X1_nvalues - 1L;
1646	((FiWord*) T2)[T1] = ((PFmt20) P0_t)->X1_values[T13_a - 1L];
1647	L8: T13_a = T13_a + 1L;
1648	goto L7;
1649	L0: fiSINT_QUO(T0, FiSInt, (FiSInt) T11->X0_size, 2L)((T0) = (FiSInt) (((FiSInt) T11->X0_size)/(2L)));
1650	T4 = (FiSInt) T11->X0_size + T0;
1651	if (T4 < 4L) goto L1;
1652	T3 = T4;
1653	L2: T9 = (FiPtr*) T11->X2_values;
1654	T10 = (FiSInt) T11->X0_size;
1655	if (T3 <= T10) goto L3;
1656	T5 = (FiPtr*) (FiPtr) fiArrNew_Word(T3);
1657	T7 = 1L;
1658	L5: if (T7 <= T10) goto L6;
1659	fiFree((FiPtr) T9);
1660	T6 = (FiWord) T5;
1661	L4: T11->X2_values = T6;
1662	T11->X0_size = (FiWord) T3;
1663	T11->X1_nvalues = (FiWord) ((FiSInt) T11->X1_nvalues + 1L);
1664	T2 = (FiPtr*) T11->X2_values;
1665	T1 = (FiSInt) T11->X1_nvalues - 1L;
1666	((FiWord*) T2)[T1] = ((PFmt20) P0_t)->X1_values[T13_a - 1L];
1667	goto L8;
1668	L6: T8 = T7 - 1L;
1669	((FiWord) T5)[T8] = ((FiWord) T9)[T8];
1670	T7 = T7 + 1L;
1671	goto L5;
1672	L3: T6 = (FiWord) T9;
1673	goto L4;
1674	L1: T3 = 4L;
1675	goto L2;
1676	}
1677
1678	static struct _FiProg tmp32_bracket = {
1679	(FiFun) CF32_bracket,
1680	0L,
1681	0L,
1682	0L,
1683	0L
1684	};
1685
1686
1687	static FiWord
1688	CF33__LT__LT_(FiEnv e1, FiWord P0_p, FiWord P1_v)
1689	{
1690	FiSInt T13, T14_a, T15_high;
1691	FiClos T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12;
1692	FiWord T0;
1693	PFmt16 l1;
1694	FiEnv e4, e3, e2;
1695	PFmt19 l4;
1696	l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);
1697	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1698	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1699	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1700	l4 = (PFmt19) fiEnvLevel(e4)((FiEnv) (e4)->level);
1701	T13 = (FiSInt) ((PFmt11) P1_v)->X1_nvalues;
1702	if (T13 == 0) goto L0;
1703	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1704	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T7, &T8, &T9);
1705	fiCCall3(FiWord, T8, (FiWord) "array(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T8)->prog->fun))((T8)->env,(FiWord ) "array(",(FiWord) 1L,(FiWord) 0L));
1706	fiCCall2(FiWord, l1->X25__LT__LT_, P0_p, ((FiWord) ((PFmt11)((((FiWord ()())(l1->X25__LT__LT_)->prog->fun))((l1 ->X25__LT__LT_)->env,P0_p,((FiWord) ((PFmt11) P1_v)-> X2_values)[0L]))
1707	P1_v)->X2_values)[0L])((((FiWord ()())(l1->X25__LT__LT_)->prog->fun))((l1 ->X25__LT__LT_)->env,P0_p,((FiWord*) ((PFmt11) P1_v)-> X2_values)[0L]));
1708	fiEnvEnsure(l4->X5_generator->env)fiEnvEnsureFun(l4->X5_generator->env);
1709	T15_high = (FiSInt) ((PFmt11) P1_v)->X1_nvalues;
1710	T14_a = 2L;
1711	L2: if (T14_a <= T15_high) goto L3;
1712	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1713	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T4, &T5, &T6);
1714	fiCCall3(FiWord, T5, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T5)->prog->fun))((T5)->env,(FiWord ) ")",(FiWord) 1L,(FiWord) 0L));
1715	T0 = P0_p;
1716	L1: return T0;
1717	L3: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1718	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T1, &T2, &T3);
1719	fiCCall3(FiWord, T2, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T2)->prog->fun))((T2)->env,(FiWord ) ", ",(FiWord) 1L,(FiWord) 0L));
1720	fiCCall2(FiWord, l1->X25__LT__LT_, P0_p, ((FiWord) ((PFmt11)((((FiWord ()())(l1->X25__LT__LT_)->prog->fun))((l1 ->X25__LT__LT_)->env,P0_p,((FiWord) ((PFmt11) P1_v)-> X2_values)[T14_a - 1L]))
1721	P1_v)->X2_values)[T14_a - 1L])((((FiWord ()())(l1->X25__LT__LT_)->prog->fun))((l1 ->X25__LT__LT_)->env,P0_p,((FiWord*) ((PFmt11) P1_v)-> X2_values)[T14_a - 1L]));
1722	T14_a = T14_a + 1L;
1723	goto L2;
1724	L0: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1725	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T10, &T11, &T12);
1726	fiCCall3(FiWord, T11, (FiWord) "array()", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T11)->prog->fun))((T11)->env,(FiWord ) "array()",(FiWord) 1L,(FiWord) 0L));
1727	T0 = P0_p;
1728	goto L1;
1729	}
1730
1731	static struct _FiProg tmp33__LT__LT_ = {
1732	(FiFun) CF33__LT__LT_,
1733	0L,
1734	0L,
1735	0L,
1736	0L
1737	};
1738
1739
1740	static FiClos
1741	CF34__LT__LT_(FiEnv e1, FiWord P0_x)
1742	{
1743	PFmt15 l0;
1744	FiEnv e0;
1745	l0 = fi0New(struct Fmt15 , CENSUS_EnvLevel)((struct Fmt15 *) fi0Alloc(sizeof(struct Fmt15), (19)));
1746	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1747	l0->X0_x = P0_x;
1748	return fiClosMake(e0, C35__LT__LT_)fiClosMakeFun(e0, (FiProg) (C35__LT__LT_));
1749	}
1750
1751	static struct _FiProg tmp34__LT__LT_ = {
1752	(FiFun) CF34__LT__LT_,
1753	0L,
1754	0L,
1755	0L,
1756	0L
1757	};
1758
1759
1760	static FiWord
1761	CF35__LT__LT_(FiEnv e1, FiWord P0_p)
1762	{
1763	FiSInt T13, T15_a, T16_high;
1764	FiWord T0, T14;
1765	FiClos T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12;
1766	PFmt15 l1;
1767	PFmt16 l2;
1768	FiEnv e5, e4, e3, e2;
1769	PFmt19 l5;
1770	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
1771	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1772	l2 = (PFmt16) fiEnvLevel(e2)((FiEnv) (e2)->level);
1773	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1774	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1775	e5 = fiEnvNext(e4)((FiEnv) (e4)->next);
1776	l5 = (PFmt19) fiEnvLevel(e5)((FiEnv) (e5)->level);
1777	T14 = l1->X0_x;
1778	T13 = (FiSInt) ((PFmt11) T14)->X1_nvalues;
1779	if (T13 == 0) goto L0;
1780	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1781	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T7, &T8, &T9);
1782	fiCCall3(FiWord, T8, (FiWord) "array(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T8)->prog->fun))((T8)->env,(FiWord ) "array(",(FiWord) 1L,(FiWord) 0L));
1783	fiCCall2(FiWord, l2->X25__LT__LT_, P0_p, ((FiWord) ((PFmt11) T14)->((((FiWord ()())(l2->X25__LT__LT_)->prog->fun))((l2 ->X25__LT__LT_)->env,P0_p,((FiWord) ((PFmt11) T14)-> X2_values)[0L]))
1784	X2_values)[0L])((((FiWord ()())(l2->X25__LT__LT_)->prog->fun))((l2 ->X25__LT__LT_)->env,P0_p,((FiWord*) ((PFmt11) T14)-> X2_values)[0L]));
1785	fiEnvEnsure(l5->X5_generator->env)fiEnvEnsureFun(l5->X5_generator->env);
1786	T16_high = (FiSInt) ((PFmt11) T14)->X1_nvalues;
1787	T15_a = 2L;
1788	L2: if (T15_a <= T16_high) goto L3;
1789	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1790	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T4, &T5, &T6);
1791	fiCCall3(FiWord, T5, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T5)->prog->fun))((T5)->env,(FiWord ) ")",(FiWord) 1L,(FiWord) 0L));
1792	T0 = P0_p;
1793	L1: return T0;
1794	L3: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1795	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T1, &T2, &T3);
1796	fiCCall3(FiWord, T2, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T2)->prog->fun))((T2)->env,(FiWord ) ", ",(FiWord) 1L,(FiWord) 0L));
1797	fiCCall2(FiWord, l2->X25__LT__LT_, P0_p, ((FiWord) ((PFmt11) T14)->((((FiWord ()())(l2->X25__LT__LT_)->prog->fun))((l2 ->X25__LT__LT_)->env,P0_p,((FiWord) ((PFmt11) T14)-> X2_values)[T15_a - 1L]))
1798	X2_values)[T15_a - 1L])((((FiWord ()())(l2->X25__LT__LT_)->prog->fun))((l2 ->X25__LT__LT_)->env,P0_p,((FiWord*) ((PFmt11) T14)-> X2_values)[T15_a - 1L]));
1799	T15_a = T15_a + 1L;
1800	goto L2;
1801	L0: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1802	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T10, &T11, &T12);
1803	fiCCall3(FiWord, T11, (FiWord) "array()", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T11)->prog->fun))((T11)->env,(FiWord ) "array()",(FiWord) 1L,(FiWord) 0L));
1804	T0 = P0_p;
1805	goto L1;
1806	}
1807
1808	static struct _FiProg tmp35__LT__LT_ = {
1809	(FiFun) CF35__LT__LT_,
1810	0L,
1811	0L,
1812	0L,
1813	0L
1814	};
1815
1816
1817	static FiWord
1818	CF36_hash(FiEnv e1, FiWord P0_x)
1819	{
1820	return (FiWord) 0L;
1821	}
1822
1823	static struct _FiProg tmp36_hash = {
1824	(FiFun) CF36_hash,
1825	0L,
1826	0L,
1827	0L,
1828	0L
1829	};
1830
1831
1832	static FiWord
1833	CF37_case(FiEnv e1, FiWord P0_x, FiWord P1_y)
1834	{
1835	FiSInt T0, T2, T4_a, T5;
1836	FiWord T1, T3;
1837	PFmt16 l1;
1838	FiEnv e4, e3, e2;
1839	PFmt19 l4;
1840	l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);
1841	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1842	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1843	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1844	l4 = (PFmt19) fiEnvLevel(e4)((FiEnv) (e4)->level);
1845	T0 = (FiSInt) ((PFmt11) P0_x)->X1_nvalues;
1846	T2 = (FiSInt) ((PFmt11) P1_y)->X1_nvalues;
1847	if (T0 != T2) goto L0;
1848	fiEnvEnsure(l4->X5_generator->env)fiEnvEnsureFun(l4->X5_generator->env);
1849	T4_a = 1L;
1850	L3: if (T4_a <= T0) goto L4;
1851	T1 = (FiWord) 1L;
1852	L1: T3 = T1;
1853	L5: return T3;
1854	L4: T5 = T4_a - 1L;
1855	if ((FiBool) fiCCall2(FiWord, l1->X24__TILDE__EQ_, ((FiWord) ((((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_x) ->X2_values)[T5],((FiWord*) ((PFmt11) P1_y)-> X2_values )[T5]))
1856	PFmt11) P0_x)->X2_values)[T5], ((FiWord) ((PFmt11) P1_y)->((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_x) ->X2_values)[T5],((FiWord*) ((PFmt11) P1_y)-> X2_values )[T5]))
1857	X2_values)[T5])((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((FiWord) (( PFmt11) P0_x) ->X2_values)[T5],((FiWord) ((PFmt11) P1_y)-> X2_values )[T5]))) goto L2;
1858	T4_a = T4_a + 1L;
1859	goto L3;
1860	L2: T3 = (FiWord) 0L;
1861	goto L5;
1862	L0: T1 = (FiWord) 0L;
1863	goto L1;
1864	}
1865
1866	static struct _FiProg tmp37_case = {
1867	(FiFun) CF37_case,
1868	0L,
1869	0L,
1870	0L,
1871	0L
1872	};
1873
1874
1875	static void
1876	CF38_lazyGetter2(FiEnv e1)
1877	{
1878	FiClos T0;
1879	PFmt18 l1;
1880	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1881	if (l1->X1_flag) goto L0;
1882	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
1883	l1->X1_flag = 1L;
1884	l1->X2_self->env = T0->env;
1885	l1->X2_self->prog = T0->prog;
1886	fiEnvInfo(e1)(((FiEnv) (e1))->info) = (FiWord) fiNil((Ptr) 0);
1887	L0: return ;
1888	}
1889
1890	static struct _FiProg tmp38_lazyGetter2 = {
1891	(FiFun) CF38_lazyGetter2,
1892	0L,
1893	0L,
1894	0L,
1895	0L
1896	};
1897
1898
1899	static FiClos
1900	CF39_lazyFnGetter(FiEnv e1, FiWord P0_init)
1901	{
1902	PFmt18 l0;
1903	FiEnv e0;
1904	l0 = fi0New(struct Fmt18 , CENSUS_EnvLevel)((struct Fmt18 *) fi0Alloc(sizeof(struct Fmt18), (19)));
1905	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1906	l0->X0_getter = (FiClos) P0_init;
1907	l0->X1_flag = 0L;
1908	l0->X2_self = fiClosMake(e0, C40_lazyGetter)fiClosMakeFun(e0, (FiProg) (C40_lazyGetter));
1909	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C38_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C38_lazyGetter2));
1910	return l0->X2_self;
1911	}
1912
1913	static struct _FiProg tmp39_lazyFnGetter = {
1914	(FiFun) CF39_lazyFnGetter,
1915	0L,
1916	0L,
1917	0L,
1918	0L
1919	};
1920
1921
1922	static FiClos
1923	CF40_lazyGetter(FiEnv e1, FiWord P0_a)
1924	{
1925	FiClos T0;
1926	PFmt18 l1;
1927	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1928	if (l1->X1_flag) goto L0;
1929	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
1930	l1->X2_self->env = T0->env;
1931	l1->X2_self->prog = T0->prog;
1932	l1->X1_flag = 1L;
1933	L0: return fiCCall1(FiClos, l1->X2_self, P0_a)((((FiClos ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a));
1934	}
1935
1936	static struct _FiProg tmp40_lazyGetter = {
1937	(FiFun) CF40_lazyGetter,
1938	0L,
1939	0L,
1940	0L,
1941	0L
1942	};
1943
1944
1945	static FiWord
1946	CF41_segment_MINUS_init(FiEnv e1, FiSInt P0_idx)
1947	{
1948	PFmt19 l1;
1949	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1950	if (l1->X7) goto L0;
1951	l1->X7 = 1L;
1952	fiCCall0(void, (pG_WVJG4_segment))((((void ()())((pG_WVJG4_segment))->prog->fun))(((*pG_WVJG4_segment ))->env));
1953	L0: if (P0_idx != 1L) goto L1;
1954	return (FiWord) (*pG_H8G3S_segment__ClosedSegmen);
1955	L1: return (FiWord) (*pG_RPY7R_segment__Segment__100);
1956	}
1957
1958	static struct _FiProg tmp41_segment_MINUS_init = {
1959	(FiFun) CF41_segment_MINUS_init,
1960	0L,
1961	0L,
1962	0L,
1963	0L
1964	};
1965
1966
1967	static FiWord
1968	CF42_sinteger_MINUS_init(FiEnv e1, FiSInt P0_idx)
1969	{
1970	PFmt19 l1;
1971	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1972	if (l1->X8) goto L0;
1973	l1->X8 = 1L;
1974	fiCCall0(void, (pG_HAQ5R_sinteger))((((void ()())((pG_HAQ5R_sinteger))->prog->fun))(((* pG_HAQ5R_sinteger))->env));
1975	L0: return (FiWord) (*pG_M8YLI_sinteger__MachineInte);
1976	}
1977
1978	static struct _FiProg tmp42_sinteger_MINUS_init = {
1979	(FiFun) CF42_sinteger_MINUS_init,
1980	0L,
1981	0L,
1982	0L,
1983	0L
1984	};
1985
1986
1987	static FiWord
1988	CF43_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx)
1989	{
1990	PFmt19 l1;
1991	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1992	if (l1->X9) goto L0;
1993	l1->X9 = 1L;
1994	fiCCall0(void, (pG_H8TZ5_foamcat))((((void ()())((pG_H8TZ5_foamcat))->prog->fun))(((*pG_H8TZ5_foamcat ))->env));
1995	L0: return (FiWord) (*pG_VZ3O8_foamcat__FiniteLinear);
1996	}
1997
1998	static struct _FiProg tmp43_foamcat_MINUS_init = {
1999	(FiFun) CF43_foamcat_MINUS_init,
2000	0L,
2001	0L,
2002	0L,
2003	0L
2004	};
2005
2006
2007	static FiSInt
2008	CF44_generBound(FiEnv e1)
2009	{
2010	return -1L;
2011	}
2012
2013	static struct _FiProg tmp44_generBound = {
2014	(FiFun) CF44_generBound,
2015	0L,
2016	0L,
2017	0L,
2018	0L
2019	};
2020
2021	extern int
2022	INIT__0_array()
2023	{
2024
2025	extern int INIT__0_rtexns();
2026	extern int INIT__0_foamcat();
2027	extern int INIT__0_sinteger();
2028	extern int INIT__0_segment();
2029	extern int INIT__0_runtime();
2030	static int initialized = 0;
2031	if (initialized)
2032	return 0L;
2033	else
2034	initialized = 1;
2035	C1_ArrayCategory = &tmp1_ArrayCategory;
2036	C2_defhash0 = &tmp2_defhash0;
2037	C3_ArrayCategory = &tmp3_ArrayCategory;
2038	C4_Array = &tmp4_Array;
2039	C5_addLevel0 = &tmp5_addLevel0;
2040	C6_addLevel1 = &tmp6_addLevel1;
2041	C7_defhash0 = &tmp7_defhash0;
2042	C8_Array = &tmp8_Array;
2043	C9_new = &tmp9_new;
2044	C10_empty = &tmp10_empty;
2045	C11_apply = &tmp11_apply;
2046	C12_set_BANG_ = &tmp12_set_BANG_;
2047	C13_extend_BANG_ = &tmp13_extend_BANG_;
2048	C14_empty_BANG_ = &tmp14_empty_BANG_;
2049	C15_dispose_BANG_ = &tmp15_dispose_BANG_;
2050	C16__SHARP_ = &tmp16__SHARP_;
2051	C17_empty = &tmp17_empty;
2052	C18_empty_QMARK_ = &tmp18_empty_QMARK_;
2053	C19_array = &tmp19_array;
2054	C20_array = &tmp20_array;
2055	C21_map = &tmp21_map;
2056	C22_map = &tmp22_map;
2057	C23__EQ_ = &tmp23__EQ_;
2058	C24__TILDE__EQ_ = &tmp24__TILDE__EQ_;
2059	C25_generator = &tmp25_generator;
2060	C26_generBaseFn = &tmp26_generBaseFn;
2061	C27_generStepper = &tmp27_generStepper;
2062	C28_generDone_QMARK_ = &tmp28_generDone_QMARK_;
2063	C29_generValue = &tmp29_generValue;
2064	C30_generBound = &tmp30_generBound;
2065	C31_bracket = &tmp31_bracket;
2066	C32_bracket = &tmp32_bracket;
2067	C33__LT__LT_ = &tmp33__LT__LT_;
2068	C34__LT__LT_ = &tmp34__LT__LT_;
2069	C35__LT__LT_ = &tmp35__LT__LT_;
2070	C36_hash = &tmp36_hash;
2071	C37_case = &tmp37_case;
2072	C38_lazyGetter2 = &tmp38_lazyGetter2;
2073	C39_lazyFnGetter = &tmp39_lazyFnGetter;
2074	C40_lazyGetter = &tmp40_lazyGetter;
2075	C41_segment_MINUS_init = &tmp41_segment_MINUS_init;
2076	C42_sinteger_MINUS_init = &tmp42_sinteger_MINUS_init;
2077	C43_foamcat_MINUS_init = &tmp43_foamcat_MINUS_init;
2078	C44_generBound = &tmp44_generBound;
2079	C0_array = &tmp0_array;
2080	fiExportGlobal("G_AL27T_array", G_AL27T_array)fiExportGlobalFun("G_AL27T_array", (Ptr) &G_AL27T_array, sizeof (G_AL27T_array));
2081	fiExportGlobal("G_FG5MI_array__Array__76767502",fiExportGlobalFun("G_FG5MI_array__Array__76767502", (Ptr) & G_FG5MI_array__Array__76767502, sizeof(G_FG5MI_array__Array__76767502 ))
2082	G_FG5MI_array__Array__76767502)fiExportGlobalFun("G_FG5MI_array__Array__76767502", (Ptr) & G_FG5MI_array__Array__76767502, sizeof(G_FG5MI_array__Array__76767502 ));
2083	fiExportGlobal("G_RZZM5_array__ArrayCategory__",fiExportGlobalFun("G_RZZM5_array__ArrayCategory__", (Ptr) & G_RZZM5_array__ArrayCategory__, sizeof(G_RZZM5_array__ArrayCategory__ ))
2084	G_RZZM5_array__ArrayCategory__)fiExportGlobalFun("G_RZZM5_array__ArrayCategory__", (Ptr) & G_RZZM5_array__ArrayCategory__, sizeof(G_RZZM5_array__ArrayCategory__ ));
2085	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
2086	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
2087	fiImportGlobal("G_KAC1B_rtCacheExplicitMake",fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) & pG_KAC1B_rtCacheExplicitMake)
2088	pG_KAC1B_rtCacheExplicitMake)fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) & pG_KAC1B_rtCacheExplicitMake);
2089	fiImportGlobal("G_759EG_rtCacheCheck", pG_759EG_rtCacheCheck)fiImportGlobalFun("G_759EG_rtCacheCheck", (Ptr *) &pG_759EG_rtCacheCheck );
2090	fiImportGlobal("G_LD0B5_domainHash_BANG_", pG_LD0B5_domainHash_BANG_)fiImportGlobalFun("G_LD0B5_domainHash_BANG_", (Ptr *) &pG_LD0B5_domainHash_BANG_ );
2091	fiImportGlobal("G_WXLY5_categoryAddExports",fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports)
2092	pG_WXLY5_categoryAddExports)fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports);
2093	fiImportGlobal("G_VZ3O8_foamcat__FiniteLinearA",fiImportGlobalFun("G_VZ3O8_foamcat__FiniteLinearA", (Ptr *) & pG_VZ3O8_foamcat__FiniteLinear)
2094	pG_VZ3O8_foamcat__FiniteLinear)fiImportGlobalFun("G_VZ3O8_foamcat__FiniteLinearA", (Ptr *) & pG_VZ3O8_foamcat__FiniteLinear);
2095	fiImportGlobal("G_RSHLY_rtDelayedInit_BANG_",fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) & pG_RSHLY_rtDelayedInit_BANG_)
2096	pG_RSHLY_rtDelayedInit_BANG_)fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) & pG_RSHLY_rtDelayedInit_BANG_);
2097	fiImportGlobal("G_ZZZKG_stdGetWordRetWord0",fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) & pG_ZZZKG_stdGetWordRetWord0)
2098	pG_ZZZKG_stdGetWordRetWord0)fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) & pG_ZZZKG_stdGetWordRetWord0);
2099	fiImportGlobal("G_YXGL3_categoryAddParents",fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents)
2100	pG_YXGL3_categoryAddParents)fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents);
2101	fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport)
2102	pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport);
2103	fiImportGlobal("G_M8YLI_sinteger__MachineInteg",fiImportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr *) & pG_M8YLI_sinteger__MachineInte)
2104	pG_M8YLI_sinteger__MachineInte)fiImportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr *) & pG_M8YLI_sinteger__MachineInte);
2105	fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit );
2106	fiImportGlobal("G_8AMPD_rtSingleParamNameFn",fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) & pG_8AMPD_rtSingleParamNameFn)
2107	pG_8AMPD_rtSingleParamNameFn)fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) & pG_8AMPD_rtSingleParamNameFn);
2108	fiImportGlobal("G_GOVLL_categoryMake", pG_GOVLL_categoryMake)fiImportGlobalFun("G_GOVLL_categoryMake", (Ptr *) &pG_GOVLL_categoryMake );
2109	fiImportGlobal("G_PV28S_rtCacheAdd", pG_PV28S_rtCacheAdd)fiImportGlobalFun("G_PV28S_rtCacheAdd", (Ptr *) &pG_PV28S_rtCacheAdd );
2110	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
2111	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
2112	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
2113	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
2114	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
2115	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
2116	fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch)
2117	pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch);
2118	fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults)
2119	pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults);
2120	fiImportGlobal("G_DLXW8_stdGetWordWordRetWord0",fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) & pG_DLXW8_stdGetWordWordRetWord)
2121	pG_DLXW8_stdGetWordWordRetWord)fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) & pG_DLXW8_stdGetWordWordRetWord);
2122	fiImportGlobal("G_RPY7R_segment__Segment__1001",fiImportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr *) & pG_RPY7R_segment__Segment__100)
2123	pG_RPY7R_segment__Segment__100)fiImportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr *) & pG_RPY7R_segment__Segment__100);
2124	fiImportGlobal("G_H8G3S_segment__ClosedSegment",fiImportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr *) & pG_H8G3S_segment__ClosedSegmen)
2125	pG_H8G3S_segment__ClosedSegmen)fiImportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr *) & pG_H8G3S_segment__ClosedSegmen);
2126	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
2127	fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings );
2128	fiImportGlobal("G_WVJG4_segment", pG_WVJG4_segment)fiImportGlobalFun("G_WVJG4_segment", (Ptr *) &pG_WVJG4_segment );
2129	fiImportGlobal("G_HAQ5R_sinteger", pG_HAQ5R_sinteger)fiImportGlobalFun("G_HAQ5R_sinteger", (Ptr *) &pG_HAQ5R_sinteger );
2130	fiImportGlobal("G_H8TZ5_foamcat", pG_H8TZ5_foamcat)fiImportGlobalFun("G_H8TZ5_foamcat", (Ptr *) &pG_H8TZ5_foamcat );
2131	if (fiFileInitializer) {
2132	fiFileInitializer("rtexns");
2133	fiFileInitializer("foamcat");
2134	fiFileInitializer("sinteger");
2135	fiFileInitializer("segment");
2136	fiFileInitializer("runtime");
2137	}
2138	else {
2139	INIT__0_rtexns();
2140	INIT__0_foamcat();
2141	INIT__0_sinteger();
2142	INIT__0_segment();
2143	INIT__0_runtime();
2144	}
2145	/* "---------------------------" */
2146	return 0L;
2147	}
2148
2149	FiClos G_RZZM5_array__ArrayCategory__;
2150	FiClos G_FG5MI_array__Array__76767502;
2151
2152	static struct _FiClos tmpClos0_array = {
2153	0L,
2154	(FiProg) &tmp0_array
2155	};
2156	FiClos G_AL27T_array = &tmpClos0_array;