al/list.c

Bug Summary

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

1	/*
2	* C code generated by Aldor from file "list.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	typedef struct Fmt26 *PFmt26;
29	typedef struct Fmt27 *PFmt27;
30	typedef struct Fmt28 *PFmt28;
31	typedef struct Fmt29 *PFmt29;
32	struct Fmt5 {
33	FiSInt X0_size;
34	FiWord *X1_values;
35	};
36	struct Fmt6 {
37	FiWord X0_found;
38	FiWord X1_value;
39	};
40	struct Fmt7 {
41	FiSInt X0_size;
42	FiSInt X1_nsize;
43	FiWord X2_values;
44	};
45	struct Fmt8 {
46	FiPtr X0_empty;
47	};
48	struct Fmt9 {
49	FiWord X0_S;
50	};
51	struct Fmt10 {
52	FiWord X0_first;
53	FiWord X1_rest;
54	};
55	struct Fmt11 {
56	FiClos X0_done_QMARK_;
57	FiClos X1_step_BANG_;
58	FiClos X2_value;
59	FiClos X3_bound;
60	};
61	struct Fmt12 {
62	FiPtr X0_empty;
63	};
64	struct Fmt13 {
65	FiPtr X0_empty;
66	};
67	struct Fmt14 {
68	FiWord X0_l;
69	FiWord X1_ll;
70	FiBool X2;
71	FiSInt X3;
72	FiWord X4;
73	};
74	struct Fmt15 {
75	FiWord X0_l;
76	FiWord X1_tl;
77	FiWord X2_ll;
78	FiBool X3;
79	FiSInt X4;
80	FiWord X5;
81	};
82	struct Fmt16 {
83	FiPtr X0_empty;
84	};
85	struct Fmt17 {
86	FiPtr X0_empty;
87	};
88	struct Fmt18 {
89	FiClos X0_case;
90	FiClos X1_hash;
91	FiClos X2_dispose_BANG_;
92	FiClos X3_disposeHead_BANG_;
93	FiClos X4_bracket;
94	FiClos X5_bracket;
95	FiClos X6_tails;
96	FiClos X7_generator;
97	FiClos X8_test;
98	FiClos X9__LT__LT_;
99	FiClos X10__LT__LT_;
100	FiClos X11__TILDE__EQ_;
101	FiClos X12__EQ_;
102	FiClos X13_member_QMARK_;
103	FiClos X14_reduce;
104	FiClos X15_concat;
105	FiClos X16_concat_BANG_;
106	FiClos X17_reverse_BANG_;
107	FiClos X18_reverse;
108	FiClos X19_copy;
109	FiClos X20_last;
110	FiClos X21_tail;
111	FiClos X22_set_BANG_;
112	FiClos X23_set_BANG_;
113	FiClos X24_apply;
114	FiClos X25_apply;
115	FiClos X26_apply;
116	FiClos X27_setRest_BANG_;
117	FiClos X28_setFirst_BANG_;
118	FiClos X29_rest;
119	FiClos X30_rest;
120	FiClos X31_first;
121	FiClos X32_map;
122	FiClos X33_map;
123	FiClos X34_list;
124	FiClos X35_list;
125	FiClos X36_cons;
126	FiClos X37_empty;
127	FiClos X38_nil;
128	FiClos X39__SHARP_;
129	FiClos X40_empty_QMARK_;
130	FiClos X41_rec;
131	FiWord X42_Rep;
132	FiWord X43__PCENT_;
133	FiClos X44__EQ_;
134	FiClos X45__TILDE__EQ_;
135	FiClos X46__LT__LT_;
136	FiSInt X47;
137	FiWord X48_dom;
138	};
139	struct Fmt19 {
140	FiWord X0_S;
141	};
142	struct Fmt20 {
143	FiClos X0__LT__LT_;
144	FiClos X1_member_QMARK_;
145	FiClos X2__TILDE__EQ_;
146	FiClos X3__EQ_;
147	FiSInt X4;
148	};
149	struct Fmt21 {
150	FiWord X0_S;
151	};
152	struct Fmt22 {
153	FiPtr X0_empty;
154	};
155	struct Fmt23 {
156	FiClos X0_Record;
157	FiClos X1_FiniteLinearAggregate;
158	FiWord X2_Conditional;
159	FiWord X3;
160	FiWord X4;
161	FiWord X5;
162	FiBool X6;
163	FiBool X7;
164	};
165	struct Fmt24 {
166	FiSInt X0_size;
167	FiWord *X1_values;
168	};
169	struct Fmt25 {
170	FiPtr X0_empty;
171	};
172	struct Fmt26 {
173	FiPtr X0_empty;
174	};
175	struct Fmt27 {
176	FiPtr X0_empty;
177	};
178	struct Fmt28 {
179	FiPtr X0_empty;
180	};
181	struct Fmt29 {
182	FiClos X0;
183	FiClos X1;
184	FiClos X2;
185	};
186	static FiProg C0_list;
187	static void CF0_list(FiEnv e1);
188	static FiProg C1_ListCategory;
189	static FiWord CF1_ListCategory(FiEnv e1, FiWord P0_S);
190	static FiProg C2_defhash0;
191	static FiSInt CF2_defhash0(FiEnv e1);
192	static FiProg C3_ListCategory;
193	static void CF3_ListCategory(FiEnv e1, FiWord P0_self, FiWord P1_dom);
194	static FiProg C4_List;
195	static FiWord CF4_List(FiEnv e1, FiWord P0_S);
196	static FiProg C5_addLevel0;
197	static FiClos CF5_addLevel0(FiEnv e1, FiWord P0_domain);
198	static FiProg C6_addLevel1;
199	static FiWord CF6_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
200	static FiProg C7_rec;
201	static PFmt10 CF7_rec(FiEnv e1, FiWord P0_x);
202	static FiProg C8_empty_QMARK_;
203	static FiWord CF8_empty_QMARK_(FiEnv e1, FiWord P0_l);
204	static FiProg C9__SHARP_;
205	static FiWord CF9__SHARP_(FiEnv e1, FiWord P0_l);
206	static FiProg C10_nil;
207	static FiWord CF10_nil(FiEnv e1);
208	static FiProg C11_empty;
209	static FiWord CF11_empty(FiEnv e1);
210	static FiProg C12_cons;
211	static FiWord CF12_cons(FiEnv e1, FiWord P0_a, FiWord P1_l);
212	static FiProg C13_list;
213	static FiWord CF13_list(FiEnv e1, FiWord P0_its);
214	static FiProg C14_list;
215	static FiWord CF14_list(FiEnv e1, FiWord P0_tup);
216	static FiProg C15_map;
217	static FiWord CF15_map(FiEnv e1, FiWord P0_f, FiWord P1_l);
218	static FiProg C16_map;
219	static FiWord CF16_map(FiEnv e1, FiWord P0_f, FiWord P1_l1, FiWord P2_l2);
220	static FiProg C17_first;
221	static FiWord CF17_first(FiEnv e1, FiWord P0_l);
222	static FiProg C18_rest;
223	static FiWord CF18_rest(FiEnv e1, FiWord P0_l);
224	static FiProg C19_setFirst_BANG_;
225	static FiWord CF19_setFirst_BANG_(FiEnv e1, FiWord P0_l, FiWord P1_a);
226	static FiProg C20_setRest_BANG_;
227	static FiWord CF20_setRest_BANG_(FiEnv e1, FiWord P0_l, FiWord P1_t);
228	static FiProg C21_apply;
229	static FiWord CF21_apply(FiEnv e1, FiWord P0_l, FiSInt P1_x);
230	static FiProg C22_apply;
231	static FiWord CF22_apply(FiEnv e1, FiWord P0_l, FiSInt P1_x);
232	static FiProg C23_set_BANG_;
233	static FiWord CF23_set_BANG_(FiEnv e1, FiWord P0_l, FiSInt P1_x, FiWord P2_a);
234	static FiProg C24_set_BANG_;
235	static FiWord CF24_set_BANG_(FiEnv e1, FiWord P0_l, FiSInt P1_x, FiWord P2_t);
236	static FiProg C25_tail;
237	static FiWord CF25_tail(FiEnv e1, FiWord P0_l);
238	static FiProg C26_last;
239	static FiWord CF26_last(FiEnv e1, FiWord P0_l);
240	static FiProg C27_copy;
241	static FiWord CF27_copy(FiEnv e1, FiWord P0_l);
242	static FiProg C28_reverse;
243	static FiWord CF28_reverse(FiEnv e1, FiWord P0_l);
244	static FiProg C29_reverse_BANG_;
245	static FiWord CF29_reverse_BANG_(FiEnv e1, FiWord P0_l);
246	static FiProg C30_concat_BANG_;
247	static FiWord CF30_concat_BANG_(FiEnv e1, FiWord P0_l1, FiWord P1_l2);
248	static FiProg C31_concat;
249	static FiWord CF31_concat(FiEnv e1, FiWord P0_l1, FiWord P1_l2);
250	static FiProg C32_reduce;
251	static FiWord CF32_reduce(FiEnv e1, FiWord P0_f, FiWord P1_l, FiWord P2_v);
252	static FiProg C33_apply;
253	static FiWord CF33_apply(FiEnv e1, FiWord P0_l, FiWord P1_i);
254	static FiProg C34_rest;
255	static FiWord CF34_rest(FiEnv e1, FiWord P0_l, FiWord P1_i);
256	static FiProg C35_test;
257	static FiWord CF35_test(FiEnv e1, FiWord P0_l);
258	static FiProg C36_generator;
259	static FiClos CF36_generator(FiEnv e1, FiWord P0_l);
260	static FiProg C37_generBaseFn;
261	static void CF37_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
262	static FiProg C38_generStepper;
263	static void CF38_generStepper(FiEnv e1);
264	static FiProg C39_generDone_QMARK_;
265	static FiBool CF39_generDone_QMARK_(FiEnv e1);
266	static FiProg C40_generValue;
267	static FiWord CF40_generValue(FiEnv e1);
268	static FiProg C41_generBound;
269	static FiSInt CF41_generBound(FiEnv e1);
270	static FiProg C42_tails;
271	static FiClos CF42_tails(FiEnv e1, FiWord P0_l);
272	static FiProg C43_generBaseFn;
273	static void CF43_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
274	static FiProg C44_generStepper;
275	static void CF44_generStepper(FiEnv e1);
276	static FiProg C45_generDone_QMARK_;
277	static FiBool CF45_generDone_QMARK_(FiEnv e1);
278	static FiProg C46_generValue;
279	static FiWord CF46_generValue(FiEnv e1);
280	static FiProg C47_generBound;
281	static FiSInt CF47_generBound(FiEnv e1);
282	static FiProg C48_bracket;
283	static FiWord CF48_bracket(FiEnv e1, FiWord P0_t);
284	static FiProg C49_bracket;
285	static FiWord CF49_bracket(FiEnv e1, FiWord P0_g);
286	static FiProg C50_disposeHead_BANG_;
287	static FiWord CF50_disposeHead_BANG_(FiEnv e1, FiWord P0_l);
288	static FiProg C51_dispose_BANG_;
289	static void CF51_dispose_BANG_(FiEnv e1, FiWord P0_l);
290	static FiProg C52__LT__LT_;
291	static FiClos CF52__LT__LT_(FiEnv e1, FiWord P0_x);
292	static FiProg C53__LT__LT_;
293	static FiWord CF53__LT__LT_(FiEnv e1, FiWord P0_p);
294	static FiProg C54_hash;
295	static FiWord CF54_hash(FiEnv e1, FiWord P0_x);
296	static FiProg C55_case;
297	static FiWord CF55_case(FiEnv e1, FiWord P0_x, FiWord P1_y);
298	static FiProg C56_member_QMARK_;
299	static FiWord CF56_member_QMARK_(FiEnv e1, FiWord P0_v, FiWord P1_l);
300	static FiProg C57__EQ_;
301	static FiWord CF57__EQ_(FiEnv e1, FiWord P0_l1, FiWord P1_l2);
302	static FiProg C58__TILDE__EQ_;
303	static FiWord CF58__TILDE__EQ_(FiEnv e1, FiWord P0_l1, FiWord P1_l2);
304	static FiProg C59__LT__LT_;
305	static FiWord CF59__LT__LT_(FiEnv e1, FiWord P0_p, FiWord P1_l);
306	static FiProg C60_FakedConditionalOperations;
307	static FiWord CF60_FakedConditionalOperation(FiEnv e1, FiWord P0_S);
308	static FiProg C61_addLevel0;
309	static FiClos CF61_addLevel0(FiEnv e1, FiWord P0_domain);
310	static FiProg C62_addLevel1;
311	static FiWord CF62_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
312	static FiProg C63__EQ_;
313	static FiWord CF63__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);
314	static FiProg C64__TILDE__EQ_;
315	static FiWord CF64__TILDE__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);
316	static FiProg C65_member_QMARK_;
317	static FiWord CF65_member_QMARK_(FiEnv e1, FiWord P0_a, FiWord P1_b);
318	static FiProg C66__LT__LT_;
319	static FiWord CF66__LT__LT_(FiEnv e1, FiWord P0_p, FiWord P1_a);
320	static FiProg C67_lang_MINUS_init;
321	static FiWord CF67_lang_MINUS_init(FiEnv e1, FiSInt P0_idx);
322	static FiProg C68_foamcat_MINUS_init;
323	static FiWord CF68_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx);
324	extern FiClos G_AREZX_list;
325	static FiClos *pG_NQYQM_noOperation;
326	extern FiClos G_MGQ8S_list__FakedConditional;
327	extern FiClos G_QK9WE_list__List__655655889;
328	extern FiClos G_ZH4RR_list__ListCategory__77;
329	static FiClos *pG_XIPRL_runtime;
330	static FiClos *pG_KAC1B_rtCacheExplicitMake;
331	static FiClos *pG_759EG_rtCacheCheck;
332	static FiClos *pG_LD0B5_domainHash_BANG_;
333	static FiClos *pG_WXLY5_categoryAddExports;
334	static FiClos *pG_VZ3O8_foamcat__FiniteLinear;
335	static FiClos *pG_RSHLY_rtDelayedInit_BANG_;
336	static FiClos *pG_ZZZKG_stdGetWordRetWord0;
337	static FiWord *pG_7CR7Y_foamcat__Conditional;
338	static FiClos *pG_NOX7X_rtLazyCatFrInit;
339	static FiClos *pG_YXGL3_categoryAddParents;
340	static FiClos *pG_QRAZA_rtDelayedGetExport;
341	static FiClos *pG_DLXW8_stdGetWordWordRetWord;
342	static FiClos *pG_8AMPD_rtSingleParamNameFn;
343	static FiClos *pG_GOVLL_categoryMake;
344	static FiClos *pG_PV28S_rtCacheAdd;
345	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
346	static FiClos *pG_XS55O_domainAddHash_BANG_;
347	static FiClos *pG_PA5R2_domainAddExports;
348	static FiClos *pG_IJHFC_domainMakeDispatch;
349	static FiClos *pG_V9SO_domainAddDefaults;
350	static FiClos *pG_LKD03_domainAddParents;
351	static FiClos *pG_BEY7_domainMakeDummy;
352	static FiClos *pG_AK1EB_domainFill_BANG_;
353	static FiClos *pG_QLPQP_lang__Record__7998562;
354	static FiClos *pG_RSCGM_domainTestExport;
355	static FiWord *pG_WJ80M_foamcat__BasicType__9;
356	static FiClos *pG_6L1ZC_domainMake;
357	static FiClos *pG_822GM_rtAddStrings;
358	static FiClos *pG_8KYHF_lang;
359	static FiClos *pG_H8TZ5_foamcat;
360	extern int fputs(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [3]*/
361	extern FiWord stdoutFile();
362	extern int fputc(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [1]*/
363
364
365
366	static void
367	CF0_list(FiEnv e1)
368	{
369	FiWord T2, T3, T6;
370	PFmt7 T4, T5;
371	FiClos T0, T1;
372	PFmt23 l0;
373	FiEnv e0;
374	l0 = fi0New(struct Fmt23 , CENSUS_EnvLevel)((struct Fmt23 *) fi0Alloc(sizeof(struct Fmt23), (19)));
375	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
376	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
377	G_AREZX_list = (FiClos) (*pG_NQYQM_noOperation);
378	T0 = fiClosMake(e0, C68_foamcat_MINUS_init)fiClosMakeFun(e0, (FiProg) (C68_foamcat_MINUS_init));
379	l0->X3 = (FiWord) fiNil((Ptr) 0);
380	G_ZH4RR_list__ListCategory__77 = fiClosMake(e0, C1_ListCategory)fiClosMakeFun(e0, (FiProg) (C1_ListCategory));
381	fiProgHashCode(((FiClos) G_ZH4RR_list__ListCategory__77)->prog)((((FiClos) G_ZH4RR_list__ListCategory__77)->prog)->data ) =
382	429816006L;
383	T1 = fiClosMake(e0, C67_lang_MINUS_init)fiClosMakeFun(e0, (FiProg) (C67_lang_MINUS_init));
384	l0->X4 = (FiWord) fiNil((Ptr) 0);
385	G_QK9WE_list__List__655655889 = fiClosMake(e0, C4_List)fiClosMakeFun(e0, (FiProg) (C4_List));
386	fiProgHashCode(((FiClos) G_QK9WE_list__List__655655889)->prog)((((FiClos) G_QK9WE_list__List__655655889)->prog)->data ) =
387	144194112L;
388	l0->X5 = (FiWord) fiNil((Ptr) 0);
389	G_MGQ8S_list__FakedConditional = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C60_FakedConditionalOperations))
390	C60_FakedConditionalOperations)fiClosMakeFun(e0, (FiProg) (C60_FakedConditionalOperations));
391	fiProgHashCode(((FiClos) G_MGQ8S_list__FakedConditional)->prog)((((FiClos) G_MGQ8S_list__FakedConditional)->prog)->data ) =
392	235839005L;
393	l0->X6 = 0L;
394	l0->X7 = 0L;
395	fiARRNEW_Word(T2, FiWord, 36L)((T2) = (FiWord) fiArrNew_Word(36L));
396	fiARRNEW_Word(T3, FiWord, 36L)((T3) = (FiWord) fiArrNew_Word(36L));
397	T2[0L] = (FiWord) 362028251L;
398	T3[0L] = (FiWord) "reverse";
399	T2[1L] = (FiWord) 255806968L;
400	T3[1L] = (FiWord) "sample";
401	T2[2L] = (FiWord) 76356179L;
402	T3[2L] = (FiWord) "setRest!";
403	T2[3L] = (FiWord) 506619364L;
404	T3[3L] = (FiWord) "empty\?";
405	T2[4L] = (FiWord) 44638651L;
406	T3[4L] = (FiWord) "bracket";
407	T2[5L] = (FiWord) 25941349L;
408	T3[5L] = (FiWord) "reverse!";
409	T2[6L] = (FiWord) 200102L;
410	T3[6L] = (FiWord) "=";
411	T2[7L] = (FiWord) 682776373L;
412	T3[7L] = (FiWord) "first";
413	T2[8L] = (FiWord) 865800799L;
414	T3[8L] = (FiWord) "copy";
415	T2[9L] = (FiWord) 200076L;
416	T3[9L] = (FiWord) "#";
417	T2[10L] = (FiWord) 143562022L;
418	T3[10L] = (FiWord) "setFirst!";
419	T2[11L] = (FiWord) 715582562L;
420	T3[11L] = (FiWord) "rest";
421	T2[12L] = (FiWord) 865800279L;
422	T3[12L] = (FiWord) "cons";
423	T2[13L] = (FiWord) 653165038L;
424	T3[13L] = (FiWord) "concat";
425	T2[14L] = (FiWord) 679545432L;
426	T3[14L] = (FiWord) "last";
427	T2[15L] = (FiWord) 5509732L;
428	T3[15L] = (FiWord) "test";
429	T2[16L] = (FiWord) 1065723030L;
430	T3[16L] = (FiWord) "member\?";
431	T2[17L] = (FiWord) 746853960L;
432	T3[17L] = (FiWord) "hash";
433	T2[18L] = (FiWord) 55906833L;
434	T3[18L] = (FiWord) "set!";
435	T2[19L] = (FiWord) 318266229L;
436	T3[19L] = (FiWord) "rec";
437	T2[20L] = (FiWord) 51509389L;
438	T3[20L] = (FiWord) "~=";
439	T2[21L] = (FiWord) 864625472L;
440	T3[21L] = (FiWord) "case";
441	T2[22L] = (FiWord) 141720952L;
442	T3[22L] = (FiWord) "concat!";
443	T2[23L] = (FiWord) 752904942L;
444	T3[23L] = (FiWord) "reduce";
445	T2[24L] = (FiWord) 614579040L;
446	T3[24L] = (FiWord) "dispose!";
447	T2[25L] = (FiWord) 113320568L;
448	T3[25L] = (FiWord) "generator";
449	T2[26L] = (FiWord) 316169058L;
450	T3[26L] = (FiWord) "Rep";
451	T2[27L] = (FiWord) 357262396L;
452	T3[27L] = (FiWord) "empty";
453	T2[28L] = (FiWord) 944300406L;
454	T3[28L] = (FiWord) "disposeHead!";
455	T2[29L] = (FiWord) 51492426L;
456	T3[29L] = (FiWord) "<<";
457	T2[30L] = (FiWord) 683203168L;
458	T3[30L] = (FiWord) "list";
459	T2[31L] = (FiWord) 5835854L;
460	T3[31L] = (FiWord) "tail";
461	T2[32L] = (FiWord) 425218090L;
462	T3[32L] = (FiWord) "tails";
463	T2[33L] = (FiWord) 318461817L;
464	T3[33L] = (FiWord) "map";
465	T2[34L] = (FiWord) 318525310L;
466	T3[34L] = (FiWord) "nil";
467	T2[35L] = (FiWord) 306472243L;
468	T3[35L] = (FiWord) "apply";
469	T4 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
470	T4->X0_size = 36L;
471	T4->X1_nsize = 36L;
472	T4->X2_values = (FiWord) T2;
473	T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
474	T5->X0_size = 36L;
475	T5->X1_nsize = 36L;
476	T5->X2_values = (FiWord) T3;
477	fiCCall2(void, (pG_822GM_rtAddStrings), (FiWord) T4, (FiWord) T5)((((void ()())((pG_822GM_rtAddStrings))->prog->fun)) (((*pG_822GM_rtAddStrings))->env,(FiWord) T4,(FiWord) T5));
478	T6 = fiCCall2(FiWord, (pG_RSHLY_rtDelayedInit_BANG_), T0, 0L)((((FiWord ()())((pG_RSHLY_rtDelayedInit_BANG_))->prog-> fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T0,0L));
479	l0->X1_FiniteLinearAggregate = fiCCall1(FiClos, (((((FiClos ()())(( pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((* pG_ZZZKG_stdGetWordRetWord0))->env,T6))
480	pG_ZZZKG_stdGetWordRetWord0), T6)((((FiClos ()())((* pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((* pG_ZZZKG_stdGetWordRetWord0))->env,T6));
481	l0->X2_Conditional = fiCCall2(FiWord, (pG_NOX7X_rtLazyCatFrInit),((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((*pG_NOX7X_rtLazyCatFrInit))->env,T0,1L))
482	T0, 1L)((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((pG_NOX7X_rtLazyCatFrInit))->env,T0,1L));
483	T6 = fiCCall2(FiWord, (pG_RSHLY_rtDelayedInit_BANG_), T1, 0L)((((FiWord ()())((pG_RSHLY_rtDelayedInit_BANG_))->prog-> fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T1,0L));
484	l0->X0_Record = fiCCall1(FiClos, (pG_ZZZKG_stdGetWordRetWord0),((((FiClos ()())((pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T6))
485	T6)((((FiClos ()())((pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((pG_ZZZKG_stdGetWordRetWord0))->env,T6));
486	return ;
487	}
488
489	static struct _FiProg tmp0_list = {
490	(FiFun) CF0_list,
491	0L,
492	0L,
493	0L,
494	0L
495	};
496
497
498	static FiWord
499	CF1_ListCategory(FiEnv e1, FiWord P0_S)
500	{
501	FiWord *T0, T2, T4, T6;
502	FiBool T3, T5;
503	PFmt5 T1;
504	PFmt9 l0;
505	FiEnv e0;
506	PFmt23 l1;
507	l0 = fi0New(struct Fmt9 , CENSUS_EnvLevel)((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)));
508	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
509	l1 = (PFmt23) fiEnvLevel(e1)((FiEnv) (e1)->level);
510	l0->X0_S = P0_S;
511	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
512	T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
513	T1->X0_size = 1L;
514	T1->X1_values = (FiWord*) T0;
515	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X3)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X3) == (FiPtr) 0));
516	if (T5) goto L3;
517	L1: T0[0L] = l0->X0_S;
518	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
519	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
520	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X3, (FiWord) (
521	FiWord) T1, &T2, &T4);
522	T3 = (FiBool) T4;
523	if (T3) goto L0;
524	T6 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "ListCategory",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"ListCategory" ,l0->X0_S))
525	l0->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"ListCategory" ,l0->X0_S));
526	T2 = fiCCall3(FiWord, (pG_GOVLL_categoryMake), fiClosMake(e0,((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((*pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_ListCategory)),fiClosMakeFun(e0, (FiProg) (C2_defhash0) ),T6))
527	C3_ListCategory), fiClosMake(e0, C2_defhash0), T6)((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_ListCategory)),fiClosMakeFun(e0, (FiProg) (C2_defhash0) ),T6));
528	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X3, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2))
529	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2));
530	L0: return T2;
531	L3: l1->X3 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
532	goto L1;
533	}
534
535	static struct _FiProg tmp1_ListCategory = {
536	(FiFun) CF1_ListCategory,
537	0L,
538	0L,
539	0L,
540	0L
541	};
542
543
544	static FiSInt
545	CF2_defhash0(FiEnv e1)
546	{
547	FiSInt T0;
548	PFmt9 l1;
549	l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
550	fiSINT_HASHCOMBINE(T0, FiSInt, fiCCall1(FiSInt, (((T0) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l1->X0_S)), 429816006L))
551	pG_LD0B5_domainHash_BANG_), l1->X0_S), 429816006L)((T0) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l1->X0_S)), 429816006L));
552	return T0;
553	}
554
555	static struct _FiProg tmp2_defhash0 = {
556	(FiFun) CF2_defhash0,
557	0L,
558	0L,
559	0L,
560	0L
561	};
562
563
564	static void
565	CF3_ListCategory(FiEnv e1, FiWord P0_self, FiWord P1_dom)
566	{
567	PFmt7 T3, T4, T5, T8;
568	FiWord T0, T1, T2, T7;
569	FiSInt T6;
570	PFmt9 l1;
571	PFmt23 l2;
572	FiEnv e2;
573	l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
574	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
575	l2 = (PFmt23) fiEnvLevel(e2)((FiEnv) (e2)->level);
576	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
577	fiARRNEW_Word(T1, FiWord, 1L)((T1) = (FiWord) fiArrNew_Word(1L));
578	fiARRNEW_Word(T2, FiWord, 1L)((T2) = (FiWord) fiArrNew_Word(1L));
579	fiARRNEW_Word(T7, FiWord, 2L)((T7) = (FiWord) fiArrNew_Word(2L));
580	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));
581	T3 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
582	T3->X0_size = 1L;
583	T3->X1_nsize = 1L;
584	T3->X2_values = (FiWord) T0;
585	T4 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
586	T4->X0_size = 1L;
587	T4->X1_nsize = 1L;
588	T4->X2_values = (FiWord) T1;
589	T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
590	T5->X0_size = 1L;
591	T5->X1_nsize = 1L;
592	T5->X2_values = (FiWord) T2;
593	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));
594	T0[0L] = (FiWord) 51482908L;
595	fiSINT_HASHCOMBINE(T1[0L], FiWord, T6, 429816006L)((T1[0L]) = (FiWord) fiSIntHashCombine(T6, 429816006L));
596	T2[0L] = P1_dom;
597	T7[0L] = fiCCall1(FiWord, l2->X1_FiniteLinearAggregate, l1->((((FiWord ()())(l2->X1_FiniteLinearAggregate)->prog-> fun))((l2->X1_FiniteLinearAggregate)->env,l1-> X0_S) )
598	X0_S)((((FiWord ()())(l2->X1_FiniteLinearAggregate)->prog-> fun))((l2->X1_FiniteLinearAggregate)->env,l1-> X0_S) );
599	T7[1L] = l2->X2_Conditional;
600	T8 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
601	T8->X0_size = 2L;
602	T8->X1_nsize = 2L;
603	T8->X2_values = (FiWord) T7;
604	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 ));
605	return ;
606	}
607
608	static struct _FiProg tmp3_ListCategory = {
609	(FiFun) CF3_ListCategory,
610	0L,
611	0L,
612	0L,
613	0L
614	};
615
616
617	static FiWord
618	CF4_List(FiEnv e1, FiWord P0_S)
619	{
620	FiBool T3, T5;
621	FiWord *T0, T2, T4;
622	PFmt5 T1;
623	PFmt19 l0;
624	FiEnv e0;
625	PFmt23 l1;
626	l0 = fi0New(struct Fmt19 , CENSUS_EnvLevel)((struct Fmt19 *) fi0Alloc(sizeof(struct Fmt19), (19)));
627	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
628	l1 = (PFmt23) fiEnvLevel(e1)((FiEnv) (e1)->level);
629	l0->X0_S = P0_S;
630	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
631	T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
632	T1->X0_size = 1L;
633	T1->X1_values = (FiWord*) T0;
634	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X4)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X4) == (FiPtr) 0));
635	if (T5) goto L3;
636	L1: T0[0L] = l0->X0_S;
637	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
638	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
639	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X4, (FiWord) (
640	FiWord) T1, &T2, &T4);
641	T3 = (FiBool) T4;
642	if (T3) goto L0;
643	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C5_addLevel0))))
644	C5_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C5_addLevel0))));
645	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X4, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X4,(FiWord) T1,T2))
646	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X4,(FiWord) T1,T2));
647	L0: return T2;
648	L3: l1->X4 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
649	goto L1;
650	}
651
652	static struct _FiProg tmp4_List = {
653	(FiFun) CF4_List,
654	0L,
655	0L,
656	0L,
657	0L
658	};
659
660
661	static FiClos
662	CF5_addLevel0(FiEnv e1, FiWord P0_domain)
663	{
664	FiSInt T1, T2;
665	FiWord T0;
666	FiEnv e2, e0;
667	PFmt19 l1;
668	PFmt23 l2;
669	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
670	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
671	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
672	l2 = (PFmt23) fiEnvLevel(e2)((FiEnv) (e2)->level);
673	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "List",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"List",l1-> X0_S))
674	l1->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"List",l1-> X0_S));
675	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
676	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));
677	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 144194112L)((T1) = (FiSInt) fiSIntHashCombine(T2, 144194112L));
678	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
679	return fiClosMake(e0, C6_addLevel1)fiClosMakeFun(e0, (FiProg) (C6_addLevel1));
680	}
681
682	static struct _FiProg tmp5_addLevel0 = {
683	(FiFun) CF5_addLevel0,
684	0L,
685	0L,
686	0L,
687	0L
688	};
689
690
691	static FiWord
692	CF6_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
693	{
694	FiWord T0, T1, T2, T6, T7, T9, *T10, T36, T63;
695	FiSInt T12, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T23, T24, T25, T26, T27, T28, T29, T30, T31, T32, T33, T34, T35, T37, T39, T42, T44, T45, T46, T47, T48, T49, T50, T51, T52, T53, T54, T55, T56, T57, T58, T59, T60, T61, T62;
696	FiClos T38, T40, T41, T43;
697	PFmt5 T11;
698	PFmt7 T3, T4, T5, T8;
699	PFmt18 l0;
700	FiEnv e3, e2, e0;
701	PFmt19 l2;
702	PFmt23 l3;
703	l0 = fi0New(struct Fmt18 , CENSUS_EnvLevel)((struct Fmt18 *) fi0Alloc(sizeof(struct Fmt18), (19)));
704	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
705	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
706	l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
707	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
708	l3 = (PFmt23) fiEnvLevel(e3)((FiEnv) (e3)->level);
709	fiARRNEW_Word(T0, FiWord, 44L)((T0) = (FiWord) fiArrNew_Word(44L));
710	fiARRNEW_Word(T1, FiWord, 44L)((T1) = (FiWord) fiArrNew_Word(44L));
711	fiARRNEW_Word(T2, FiWord, 44L)((T2) = (FiWord) fiArrNew_Word(44L));
712	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
713	l0->X43__PCENT_ = T6;
714	l0->X47 = (FiSInt) P1_hashcode;
715	l0->X41_rec = fiClosMake(e0, C7_rec)fiClosMakeFun(e0, (FiProg) (C7_rec));
716	l0->X40_empty_QMARK_ = fiClosMake(e0, C8_empty_QMARK_)fiClosMakeFun(e0, (FiProg) (C8_empty_QMARK_));
717	l0->X39__SHARP_ = fiClosMake(e0, C9__SHARP_)fiClosMakeFun(e0, (FiProg) (C9__SHARP_));
718	l0->X38_nil = fiClosMake(e0, C10_nil)fiClosMakeFun(e0, (FiProg) (C10_nil));
719	l0->X37_empty = fiClosMake(e0, C11_empty)fiClosMakeFun(e0, (FiProg) (C11_empty));
720	l0->X36_cons = fiClosMake(e0, C12_cons)fiClosMakeFun(e0, (FiProg) (C12_cons));
721	l0->X34_list = fiClosMake(e0, C13_list)fiClosMakeFun(e0, (FiProg) (C13_list));
722	l0->X35_list = fiClosMake(e0, C14_list)fiClosMakeFun(e0, (FiProg) (C14_list));
723	l0->X32_map = fiClosMake(e0, C15_map)fiClosMakeFun(e0, (FiProg) (C15_map));
724	l0->X33_map = fiClosMake(e0, C16_map)fiClosMakeFun(e0, (FiProg) (C16_map));
725	l0->X31_first = fiClosMake(e0, C17_first)fiClosMakeFun(e0, (FiProg) (C17_first));
726	l0->X29_rest = fiClosMake(e0, C18_rest)fiClosMakeFun(e0, (FiProg) (C18_rest));
727	l0->X28_setFirst_BANG_ = fiClosMake(e0, C19_setFirst_BANG_)fiClosMakeFun(e0, (FiProg) (C19_setFirst_BANG_));
728	l0->X27_setRest_BANG_ = fiClosMake(e0, C20_setRest_BANG_)fiClosMakeFun(e0, (FiProg) (C20_setRest_BANG_));
729	l0->X24_apply = fiClosMake(e0, C21_apply)fiClosMakeFun(e0, (FiProg) (C21_apply));
730	l0->X25_apply = fiClosMake(e0, C22_apply)fiClosMakeFun(e0, (FiProg) (C22_apply));
731	l0->X22_set_BANG_ = fiClosMake(e0, C23_set_BANG_)fiClosMakeFun(e0, (FiProg) (C23_set_BANG_));
732	l0->X23_set_BANG_ = fiClosMake(e0, C24_set_BANG_)fiClosMakeFun(e0, (FiProg) (C24_set_BANG_));
733	l0->X21_tail = fiClosMake(e0, C25_tail)fiClosMakeFun(e0, (FiProg) (C25_tail));
734	l0->X20_last = fiClosMake(e0, C26_last)fiClosMakeFun(e0, (FiProg) (C26_last));
735	l0->X19_copy = fiClosMake(e0, C27_copy)fiClosMakeFun(e0, (FiProg) (C27_copy));
736	l0->X18_reverse = fiClosMake(e0, C28_reverse)fiClosMakeFun(e0, (FiProg) (C28_reverse));
737	l0->X17_reverse_BANG_ = fiClosMake(e0, C29_reverse_BANG_)fiClosMakeFun(e0, (FiProg) (C29_reverse_BANG_));
738	l0->X16_concat_BANG_ = fiClosMake(e0, C30_concat_BANG_)fiClosMakeFun(e0, (FiProg) (C30_concat_BANG_));
739	l0->X15_concat = fiClosMake(e0, C31_concat)fiClosMakeFun(e0, (FiProg) (C31_concat));
740	l0->X14_reduce = fiClosMake(e0, C32_reduce)fiClosMakeFun(e0, (FiProg) (C32_reduce));
741	l0->X26_apply = fiClosMake(e0, C33_apply)fiClosMakeFun(e0, (FiProg) (C33_apply));
742	l0->X30_rest = fiClosMake(e0, C34_rest)fiClosMakeFun(e0, (FiProg) (C34_rest));
743	l0->X8_test = fiClosMake(e0, C35_test)fiClosMakeFun(e0, (FiProg) (C35_test));
744	l0->X7_generator = fiClosMake(e0, C36_generator)fiClosMakeFun(e0, (FiProg) (C36_generator));
745	l0->X6_tails = fiClosMake(e0, C42_tails)fiClosMakeFun(e0, (FiProg) (C42_tails));
746	l0->X4_bracket = fiClosMake(e0, C48_bracket)fiClosMakeFun(e0, (FiProg) (C48_bracket));
747	l0->X5_bracket = fiClosMake(e0, C49_bracket)fiClosMakeFun(e0, (FiProg) (C49_bracket));
748	l0->X3_disposeHead_BANG_ = fiClosMake(e0, C50_disposeHead_BANG_)fiClosMakeFun(e0, (FiProg) (C50_disposeHead_BANG_));
749	l0->X2_dispose_BANG_ = fiClosMake(e0, C51_dispose_BANG_)fiClosMakeFun(e0, (FiProg) (C51_dispose_BANG_));
750	l0->X10__LT__LT_ = fiClosMake(e0, C52__LT__LT_)fiClosMakeFun(e0, (FiProg) (C52__LT__LT_));
751	l0->X1_hash = fiClosMake(e0, C54_hash)fiClosMakeFun(e0, (FiProg) (C54_hash));
752	l0->X0_case = fiClosMake(e0, C55_case)fiClosMakeFun(e0, (FiProg) (C55_case));
753	T38 = fiClosMake(e0, C56_member_QMARK_)fiClosMakeFun(e0, (FiProg) (C56_member_QMARK_));
754	T40 = fiClosMake(e0, C57__EQ_)fiClosMakeFun(e0, (FiProg) (C57__EQ_));
755	T41 = fiClosMake(e0, C58__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C58__TILDE__EQ_));
756	T43 = fiClosMake(e0, C59__LT__LT_)fiClosMakeFun(e0, (FiProg) (C59__LT__LT_));
757	T45 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l2->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l2->X0_S));
758	fiSINT_HASHCOMBINE(T46, FiSInt, l0->X47, 51489085L)((T46) = (FiSInt) fiSIntHashCombine(l0->X47, 51489085L));
759	fiSINT_HASHCOMBINE(T47, FiSInt, 32236L, T46)((T47) = (FiSInt) fiSIntHashCombine(32236L, T46));
760	fiSINT_HASHCOMBINE(T12, FiSInt, 740244383L, T47)((T12) = (FiSInt) fiSIntHashCombine(740244383L, T47));
761	fiSINT_HASHCOMBINE(T13, FiSInt, 33717313L, T47)((T13) = (FiSInt) fiSIntHashCombine(33717313L, T47));
762	fiSINT_HASHCOMBINE(T14, FiSInt, l0->X47, 275363373L)((T14) = (FiSInt) fiSIntHashCombine(l0->X47, 275363373L));
763	fiSINT_HASHCOMBINE(T48, FiSInt, T45, 51489085L)((T48) = (FiSInt) fiSIntHashCombine(T45, 51489085L));
764	fiSINT_HASHCOMBINE(T61, FiSInt, l0->X47, T48)((T61) = (FiSInt) fiSIntHashCombine(l0->X47, T48));
765	fiSINT_HASHCOMBINE(T62, FiSInt, 32236L, T61)((T62) = (FiSInt) fiSIntHashCombine(32236L, T61));
766	fiSINT_HASHCOMBINE(T15, FiSInt, l0->X47, T62)((T15) = (FiSInt) fiSIntHashCombine(l0->X47, T62));
767	fiSINT_HASHCOMBINE(T58, FiSInt, T45, 83976792L)((T58) = (FiSInt) fiSIntHashCombine(T45, 83976792L));
768	fiSINT_HASHCOMBINE(T16, FiSInt, l0->X47, fiSIntHashCombine((FiSInt)((T16) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T58, (FiSInt ) 51489085L))))
769	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T58, (FiSInt)((T16) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T58, (FiSInt ) 51489085L))))
770	51489085L)))((T16) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T58, (FiSInt ) 51489085L))));
771	fiSINT_HASHCOMBINE(T17, FiSInt, l0->X47, fiSIntHashCombine((FiSInt)((T17) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) T45, (FiSInt) 617884183L), (FiSInt) 51489085L))))
772	32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine((((T17) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) T45, (FiSInt) 617884183L), (FiSInt) 51489085L))))
773	FiSInt) T45, (FiSInt) 617884183L), (FiSInt) 51489085L)))((T17) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine (( FiSInt) T45, (FiSInt) 617884183L), (FiSInt) 51489085L))));
774	fiSINT_HASHCOMBINE(T18, FiSInt, l0->X47, fiSIntHashCombine((FiSInt)((T18) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T45, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T48)), ( FiSInt) 51489085L)))))
775	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X47, (((T18) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T45, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T48)), ( FiSInt) 51489085L)))))
776	FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt)((T18) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T45, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T48)), ( FiSInt) 51489085L)))))
777	T45, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt) T48)), (((T18) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T45, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T48)), ( FiSInt) 51489085L)))))
778	FiSInt) 51489085L))))((T18) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine(( FiSInt) T45, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt ) T48)), ( FiSInt) 51489085L)))));
779	fiSINT_HASHCOMBINE(T51, FiSInt, T45, T48)((T51) = (FiSInt) fiSIntHashCombine(T45, T48));
780	fiSINT_HASHCOMBINE(T52, FiSInt, 32236L, T51)((T52) = (FiSInt) fiSIntHashCombine(32236L, T51));
781	fiSINT_HASHCOMBINE(T53, FiSInt, T45, T52)((T53) = (FiSInt) fiSIntHashCombine(T45, T52));
782	fiSINT_HASHCOMBINE(T54, FiSInt, T53, 51489085L)((T54) = (FiSInt) fiSIntHashCombine(T53, 51489085L));
783	fiSINT_HASHCOMBINE(T55, FiSInt, l0->X47, T54)((T55) = (FiSInt) fiSIntHashCombine(l0->X47, T54));
784	fiSINT_HASHCOMBINE(T19, FiSInt, l0->X47, fiSIntHashCombine((FiSInt)((T19) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) T55))))
785	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X47, (((T19) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) T55))))
786	FiSInt) T55)))((T19) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) T55))));
787	fiSINT_HASHCOMBINE(T20, FiSInt, T45, T47)((T20) = (FiSInt) fiSIntHashCombine(T45, T47));
788	fiSINT_HASHCOMBINE(T21, FiSInt, l0->X47, T47)((T21) = (FiSInt) fiSIntHashCombine(l0->X47, T47));
789	fiSINT_HASHCOMBINE(T22, FiSInt, T45, fiSIntHashCombine((FiSInt)((T22) = (FiSInt) fiSIntHashCombine(T45, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T46 ))))
790	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T46)))((T22) = (FiSInt) fiSIntHashCombine(T45, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T46 ))));
791	fiSINT_HASHCOMBINE(T59, FiSInt, l0->X47, T46)((T59) = (FiSInt) fiSIntHashCombine(l0->X47, T46));
792	fiSINT_HASHCOMBINE(T60, FiSInt, 32236L, T59)((T60) = (FiSInt) fiSIntHashCombine(32236L, T59));
793	fiSINT_HASHCOMBINE(T23, FiSInt, l0->X47, T60)((T23) = (FiSInt) fiSIntHashCombine(l0->X47, T60));
794	fiSINT_HASHCOMBINE(T49, FiSInt, 622770381L, T46)((T49) = (FiSInt) fiSIntHashCombine(622770381L, T46));
795	fiSINT_HASHCOMBINE(T24, FiSInt, T45, fiSIntHashCombine((FiSInt)((T24) = (FiSInt) fiSIntHashCombine(T45, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) T49)))
796	32236L, (FiSInt) T49))((T24) = (FiSInt) fiSIntHashCombine(T45, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) T49)));
797	fiSINT_HASHCOMBINE(T50, FiSInt, 237465990L, T46)((T50) = (FiSInt) fiSIntHashCombine(237465990L, T46));
798	fiSINT_HASHCOMBINE(T25, FiSInt, l0->X47, fiSIntHashCombine((FiSInt)((T25) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) T50)))
799	32236L, (FiSInt) T50))((T25) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) T50)));
800	fiSINT_HASHCOMBINE(T26, FiSInt, T45, fiSIntHashCombine((FiSInt)((T26) = (FiSInt) fiSIntHashCombine(T45, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T49 ))))
801	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T49)))((T26) = (FiSInt) fiSIntHashCombine(T45, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T49 ))));
802	fiSINT_HASHCOMBINE(T27, FiSInt, l0->X47, fiSIntHashCombine((FiSInt)((T27) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) T50))))
803	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X47, (((T27) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) T50))))
804	FiSInt) T50)))((T27) = (FiSInt) fiSIntHashCombine(l0->X47, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) T50))));
805	fiSINT_HASHCOMBINE(T28, FiSInt, T45, fiSIntHashCombine((FiSInt)((T28) = (FiSInt) fiSIntHashCombine(T45, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T55 ))))
806	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T55)))((T28) = (FiSInt) fiSIntHashCombine(T45, fiSIntHashCombine((FiSInt ) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt) T55 ))));
807	fiSINT_HASHCOMBINE(T56, FiSInt, 33717313L, T46)((T56) = (FiSInt) fiSIntHashCombine(33717313L, T46));
808	fiSINT_HASHCOMBINE(T57, FiSInt, 32236L, T56)((T57) = (FiSInt) fiSIntHashCombine(32236L, T56));
809	fiSINT_HASHCOMBINE(T29, FiSInt, T45, T57)((T29) = (FiSInt) fiSIntHashCombine(T45, T57));
810	fiSINT_HASHCOMBINE(T30, FiSInt, l0->X47, T57)((T30) = (FiSInt) fiSIntHashCombine(l0->X47, T57));
811	fiSINT_HASHCOMBINE(T31, FiSInt, T58, T47)((T31) = (FiSInt) fiSIntHashCombine(T58, T47));
812	fiSINT_HASHCOMBINE(T32, FiSInt, fiSIntHashCombine((FiSInt) l0->X47, (((T32) = (FiSInt) fiSIntHashCombine(fiSIntHashCombine((FiSInt ) l0->X47, ( FiSInt) 83976792L), T47))
813	FiSInt) 83976792L), T47)((T32) = (FiSInt) fiSIntHashCombine(fiSIntHashCombine((FiSInt ) l0->X47, ( FiSInt) 83976792L), T47));
814	fiSINT_HASHCOMBINE(T33, FiSInt, 755420535L, T47)((T33) = (FiSInt) fiSIntHashCombine(755420535L, T47));
815	fiSINT_HASHCOMBINE(T34, FiSInt, 740244383L, T60)((T34) = (FiSInt) fiSIntHashCombine(740244383L, T60));
816	T35 = l0->X47;
817	fiSINT_HASHCOMBINE(T37, FiSInt, 740244383L, T52)((T37) = (FiSInt) fiSIntHashCombine(740244383L, T52));
818	fiSINT_HASHCOMBINE(T39, FiSInt, 740244383L, T62)((T39) = (FiSInt) fiSIntHashCombine(740244383L, T62));
819	fiSINT_HASHCOMBINE(T42, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T42) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt ) 102896482L))))
820	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt)((T42) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt ) 102896482L))))
821	102896482L)))((T42) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T45, (FiSInt ) 102896482L))));
822	fiSINT_HASHCOMBINE(T44, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T44) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) 102896482L))))
823	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X47, (((T44) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) 102896482L))))
824	FiSInt) 102896482L)))((T44) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X47, ( FiSInt) 102896482L))));
825	T3 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
826	T3->X0_size = 44L;
827	T3->X1_nsize = 44L;
828	T3->X2_values = (FiWord) T0;
829	T4 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
830	T4->X0_size = 44L;
831	T4->X1_nsize = 44L;
832	T4->X2_values = (FiWord) T1;
833	T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
834	T5->X0_size = 44L;
835	T5->X1_nsize = 44L;
836	T5->X2_values = (FiWord) T2;
837	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) );
838	T63 = fiCCall1(FiWord, G_ZH4RR_list__ListCategory__77, l2->X0_S)((((FiWord ()())(G_ZH4RR_list__ListCategory__77)->prog-> fun))((G_ZH4RR_list__ListCategory__77)->env,l2->X0_S));
839	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, T63, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,T63,T6 ));
840	fiARRNEW_Word(T7, FiWord, 1L)((T7) = (FiWord) fiArrNew_Word(1L));
841	T7[0L] = fiCCall1(FiWord, G_MGQ8S_list__FakedConditional, l2->((((FiWord ()())(G_MGQ8S_list__FakedConditional)->prog-> fun))((G_MGQ8S_list__FakedConditional)->env,l2-> X0_S))
842	X0_S)((((FiWord ()())(G_MGQ8S_list__FakedConditional)->prog-> fun))((G_MGQ8S_list__FakedConditional)->env,l2-> X0_S));
843	T8 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
844	T8->X0_size = 1L;
845	T8->X1_nsize = 1L;
846	T8->X2_values = (FiWord) T7;
847	fiCCall3(FiWord, (pG_LKD03_domainAddParents), P0_domain, T8, T6)((((FiWord ()())((pG_LKD03_domainAddParents))->prog-> fun))(((*pG_LKD03_domainAddParents))->env,P0_domain,T8,T6) );
848	l0->X42_Rep = fiCCall0(FiWord, (pG_BEY7_domainMakeDummy))((((FiWord ()())((pG_BEY7_domainMakeDummy))->prog->fun ))(((*pG_BEY7_domainMakeDummy))->env));
849	T9 = l0->X42_Rep;
850	fiARRNEW_Word(T10, FiWord, 2L)((T10) = (FiWord) fiArrNew_Word(2L));
851	T11 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
852	T11->X0_size = 2L;
853	T11->X1_values = (FiWord*) T10;
854	T10[0L] = l2->X0_S;
855	T10[1L] = l0->X43__PCENT_;
856	l0->X42_Rep = fiCCall1(FiWord, l3->X0_Record, (FiWord) T11)((((FiWord ()())(l3->X0_Record)->prog->fun))((l3-> X0_Record)->env,(FiWord) T11));
857	fiCCall2(void, (pG_AK1EB_domainFill_BANG_), T9, l0->X42_Rep)((((void ()())((pG_AK1EB_domainFill_BANG_))->prog->fun ))(((*pG_AK1EB_domainFill_BANG_))->env,T9,l0->X42_Rep));
858	l0->X42_Rep = T9;
859	T0[0L] = (FiWord) 316169058L;
860	T1[0L] = (FiWord) 0L;
861	T2[0L] = l0->X42_Rep;
862	T0[1L] = (FiWord) 318266229L;
863	fiSINT_HASHCOMBINE(T1[1L], FiWord, fiCCall1(FiSInt, (((T1[1L]) = (FiWord) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l0->X42_Rep)), fiSIntHashCombine(( FiSInt) 32236L, (FiSInt ) fiSIntHashCombine((FiSInt) l0->X47, ( FiSInt) 51489085L) )))
864	pG_LD0B5_domainHash_BANG_), l0->X42_Rep), fiSIntHashCombine((((T1[1L]) = (FiWord) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l0->X42_Rep)), fiSIntHashCombine(( FiSInt) 32236L, (FiSInt ) fiSIntHashCombine((FiSInt) l0->X47, ( FiSInt) 51489085L) )))
865	FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X47, (((T1[1L]) = (FiWord) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l0->X42_Rep)), fiSIntHashCombine(( FiSInt) 32236L, (FiSInt ) fiSIntHashCombine((FiSInt) l0->X47, ( FiSInt) 51489085L) )))
866	FiSInt) 51489085L)))((T1[1L]) = (FiWord) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,l0->X42_Rep)), fiSIntHashCombine(( FiSInt) 32236L, (FiSInt ) fiSIntHashCombine((FiSInt) l0->X47, ( FiSInt) 51489085L) )));
867	T2[1L] = (FiWord) l0->X41_rec;
868	T0[2L] = (FiWord) 506619364L;
869	T1[2L] = (FiWord) T12;
870	T2[2L] = (FiWord) l0->X40_empty_QMARK_;
871	T0[3L] = (FiWord) 200076L;
872	T1[3L] = (FiWord) T13;
873	T2[3L] = (FiWord) l0->X39__SHARP_;
874	T0[4L] = (FiWord) 318525310L;
875	T1[4L] = (FiWord) T14;
876	T2[4L] = (FiWord) l0->X38_nil;
877	T0[5L] = (FiWord) 357262396L;
878	T1[5L] = (FiWord) T14;
879	T2[5L] = (FiWord) l0->X37_empty;
880	T0[6L] = (FiWord) 865800279L;
881	T1[6L] = (FiWord) T15;
882	T2[6L] = (FiWord) l0->X36_cons;
883	T0[7L] = (FiWord) 683203168L;
884	T1[7L] = (FiWord) T16;
885	T2[7L] = (FiWord) l0->X34_list;
886	T0[8L] = (FiWord) 683203168L;
887	T1[8L] = (FiWord) T17;
888	T2[8L] = (FiWord) l0->X35_list;
889	T0[9L] = (FiWord) 318461817L;
890	T1[9L] = (FiWord) T18;
891	T2[9L] = (FiWord) l0->X32_map;
892	T0[10L] = (FiWord) 318461817L;
893	T1[10L] = (FiWord) T19;
894	T2[10L] = (FiWord) l0->X33_map;
895	T0[11L] = (FiWord) 682776373L;
896	T1[11L] = (FiWord) T20;
897	T2[11L] = (FiWord) l0->X31_first;
898	T0[12L] = (FiWord) 715582562L;
899	T1[12L] = (FiWord) T21;
900	T2[12L] = (FiWord) l0->X29_rest;
901	T0[13L] = (FiWord) 143562022L;
902	T1[13L] = (FiWord) T22;
903	T2[13L] = (FiWord) l0->X28_setFirst_BANG_;
904	T0[14L] = (FiWord) 76356179L;
905	T1[14L] = (FiWord) T23;
906	T2[14L] = (FiWord) l0->X27_setRest_BANG_;
907	T0[15L] = (FiWord) 306472243L;
908	T1[15L] = (FiWord) T24;
909	T2[15L] = (FiWord) l0->X24_apply;
910	T0[16L] = (FiWord) 306472243L;
911	T1[16L] = (FiWord) T25;
912	T2[16L] = (FiWord) l0->X25_apply;
913	T0[17L] = (FiWord) 55906833L;
914	T1[17L] = (FiWord) T26;
915	T2[17L] = (FiWord) l0->X22_set_BANG_;
916	T0[18L] = (FiWord) 55906833L;
917	T1[18L] = (FiWord) T27;
918	T2[18L] = (FiWord) l0->X23_set_BANG_;
919	T0[19L] = (FiWord) 5835854L;
920	T1[19L] = (FiWord) T21;
921	T2[19L] = (FiWord) l0->X21_tail;
922	T0[20L] = (FiWord) 679545432L;
923	T1[20L] = (FiWord) T20;
924	T2[20L] = (FiWord) l0->X20_last;
925	T0[21L] = (FiWord) 865800799L;
926	T1[21L] = (FiWord) T21;
927	T2[21L] = (FiWord) l0->X19_copy;
928	T0[22L] = (FiWord) 362028251L;
929	T1[22L] = (FiWord) T21;
930	T2[22L] = (FiWord) l0->X18_reverse;
931	T0[23L] = (FiWord) 25941349L;
932	T1[23L] = (FiWord) T21;
933	T2[23L] = (FiWord) l0->X17_reverse_BANG_;
934	T0[24L] = (FiWord) 141720952L;
935	T1[24L] = (FiWord) T23;
936	T2[24L] = (FiWord) l0->X16_concat_BANG_;
937	T0[25L] = (FiWord) 653165038L;
938	T1[25L] = (FiWord) T23;
939	T2[25L] = (FiWord) l0->X15_concat;
940	T0[26L] = (FiWord) 752904942L;
941	T1[26L] = (FiWord) T28;
942	T2[26L] = (FiWord) l0->X14_reduce;
943	T0[27L] = (FiWord) 306472243L;
944	T1[27L] = (FiWord) T29;
945	T2[27L] = (FiWord) l0->X26_apply;
946	T0[28L] = (FiWord) 715582562L;
947	T1[28L] = (FiWord) T30;
948	T2[28L] = (FiWord) l0->X30_rest;
949	T0[29L] = (FiWord) 5509732L;
950	T1[29L] = (FiWord) T12;
951	T2[29L] = (FiWord) l0->X8_test;
952	T0[30L] = (FiWord) 113320568L;
953	T1[30L] = (FiWord) T31;
954	T2[30L] = (FiWord) l0->X7_generator;
955	T0[31L] = (FiWord) 425218090L;
956	T1[31L] = (FiWord) T32;
957	T2[31L] = (FiWord) l0->X6_tails;
958	T0[32L] = (FiWord) 44638651L;
959	T1[32L] = (FiWord) T17;
960	T2[32L] = (FiWord) l0->X4_bracket;
961	T0[33L] = (FiWord) 44638651L;
962	T1[33L] = (FiWord) T16;
963	T2[33L] = (FiWord) l0->X5_bracket;
964	T0[34L] = (FiWord) 944300406L;
965	T1[34L] = (FiWord) T21;
966	T2[34L] = (FiWord) l0->X3_disposeHead_BANG_;
967	T0[35L] = (FiWord) 614579040L;
968	T1[35L] = (FiWord) T47;
969	T2[35L] = (FiWord) l0->X2_dispose_BANG_;
970	T0[36L] = (FiWord) 51492426L;
971	T1[36L] = (FiWord) T33;
972	T2[36L] = (FiWord) l0->X10__LT__LT_;
973	T0[37L] = (FiWord) 746853960L;
974	T1[37L] = (FiWord) T13;
975	T2[37L] = (FiWord) l0->X1_hash;
976	T0[38L] = (FiWord) 864625472L;
977	T1[38L] = (FiWord) T34;
978	T2[38L] = (FiWord) l0->X0_case;
979	T0[39L] = (FiWord) 255806968L;
980	T1[39L] = (FiWord) T35;
981	T2[39L] = (FiWord) fiNil((Ptr) 0);
982	l0->X48_dom = l2->X0_S;
983	T63 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X48_dom ,200102L,T37))
984	X48_dom, 200102L, T37)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X48_dom ,200102L,T37));
985	l0->X44__EQ_ = fiCCall1(FiClos, (pG_DLXW8_stdGetWordWordRetWord),((((FiClos ()())((pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((*pG_DLXW8_stdGetWordWordRetWord))->env,T63))
986	T63)((((FiClos ()())((pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((pG_DLXW8_stdGetWordWordRetWord))->env,T63));
987	T63 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X48_dom ,51509389L,T37))
988	X48_dom, 51509389L, T37)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X48_dom ,51509389L,T37));
989	l0->X45__TILDE__EQ_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63))
990	pG_DLXW8_stdGetWordWordRetWord), T63)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63));
991	T63 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X48_dom ,51492426L,T42))
992	X48_dom, 51492426L, T42)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X48_dom ,51492426L,T42));
993	l0->X46__LT__LT_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63))
994	pG_DLXW8_stdGetWordWordRetWord), T63)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63));
995	T36 = l2->X0_S;
996	if (fiCCall3(FiBool, (pG_RSCGM_domainTestExport), T36, 51482908L,((((FiBool ()())((pG_RSCGM_domainTestExport))->prog-> fun))(((*pG_RSCGM_domainTestExport))->env,T36,51482908L,925676085L ))
997	925676085L)((((FiBool ()())((pG_RSCGM_domainTestExport))->prog-> fun))(((pG_RSCGM_domainTestExport))->env,T36,51482908L,925676085L ))) goto L0;
998	T63 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), T6,((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,T6,51492426L,T44 ))
999	51492426L, T44)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,T6,51492426L,T44 ));
1000	l0->X9__LT__LT_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63))
1001	pG_DLXW8_stdGetWordWordRetWord), T63)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63));
1002	T63 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), T6,((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,T6,51509389L,T34 ))
1003	51509389L, T34)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,T6,51509389L,T34 ));
1004	l0->X11__TILDE__EQ_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63))
1005	pG_DLXW8_stdGetWordWordRetWord), T63)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63));
1006	T63 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), T6, 200102L,((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,T6,200102L,T34 ))
1007	T34)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,T6,200102L,T34 ));
1008	l0->X12__EQ_ = fiCCall1(FiClos, (pG_DLXW8_stdGetWordWordRetWord),((((FiClos ()())((pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((*pG_DLXW8_stdGetWordWordRetWord))->env,T63))
1009	T63)((((FiClos ()())((pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((pG_DLXW8_stdGetWordWordRetWord))->env,T63));
1010	T63 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), T6,((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,T6,1065723030L ,T39))
1011	1065723030L, T39)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,T6,1065723030L ,T39));
1012	l0->X13_member_QMARK_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63))
1013	pG_DLXW8_stdGetWordWordRetWord), T63)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T63));
1014	L1: return P0_domain;
1015	L0: l0->X13_member_QMARK_ = T38;
1016	T0[40L] = (FiWord) 1065723030L;
1017	T1[40L] = (FiWord) T39;
1018	T2[40L] = (FiWord) l0->X13_member_QMARK_;
1019	l0->X12__EQ_ = T40;
1020	T0[41L] = (FiWord) 200102L;
1021	T1[41L] = (FiWord) T34;
1022	T2[41L] = (FiWord) l0->X12__EQ_;
1023	l0->X11__TILDE__EQ_ = T41;
1024	T0[42L] = (FiWord) 51509389L;
1025	T1[42L] = (FiWord) T34;
1026	T2[42L] = (FiWord) l0->X11__TILDE__EQ_;
1027	l0->X9__LT__LT_ = T43;
1028	T0[43L] = (FiWord) 51492426L;
1029	T1[43L] = (FiWord) T44;
1030	T2[43L] = (FiWord) l0->X9__LT__LT_;
1031	goto L1;
1032	}
1033
1034	static struct _FiProg tmp6_addLevel1 = {
1035	(FiFun) CF6_addLevel1,
1036	0L,
1037	0L,
1038	0L,
1039	0L
1040	};
1041
1042
1043	static PFmt10
1044	CF7_rec(FiEnv e1, FiWord P0_x)
1045	{
1046	return (PFmt10) P0_x;
1047	}
1048
1049	static struct _FiProg tmp7_rec = {
1050	(FiFun) CF7_rec,
1051	0L,
1052	0L,
1053	0L,
1054	0L
1055	};
1056
1057
1058	static FiWord
1059	CF8_empty_QMARK_(FiEnv e1, FiWord P0_l)
1060	{
1061	FiBool T0;
1062	fiPTR_IS_NIL(T0, FiBool, (FiPtr) P0_l)((T0) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1063	return (FiWord) T0;
1064	}
1065
1066	static struct _FiProg tmp8_empty_QMARK_ = {
1067	(FiFun) CF8_empty_QMARK_,
1068	0L,
1069	0L,
1070	0L,
1071	0L
1072	};
1073
1074
1075	static FiWord
1076	CF9__SHARP_(FiEnv e1, FiWord P0_l)
1077	{
1078	FiBool T3;
1079	FiWord T1, T2_ll;
1080	FiSInt T0_n;
1081	PFmt18 l1;
1082	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1083	T0_n = 0L;
1084	T2_ll = P0_l;
1085	L0: fiEnvEnsure(((PFmt18) fiEnvLevel0(l1->X7_generator->env))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env)
1086	X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env);
1087	fiPTR_IS_NIL(T3, FiBool, (FiPtr) T2_ll)((T3) = (FiBool)((FiPtr) ((FiPtr) T2_ll) == (FiPtr) 0));
1088	if (T3) goto L1;
1089	T0_n = T0_n + 1L;
1090	T1 = ((PFmt10) T2_ll)->X1_rest;
1091	T2_ll = T1;
1092	goto L0;
1093	L1: return (FiWord) T0_n;
1094	}
1095
1096	static struct _FiProg tmp9__SHARP_ = {
1097	(FiFun) CF9__SHARP_,
1098	0L,
1099	0L,
1100	0L,
1101	0L
1102	};
1103
1104
1105	static FiWord
1106	CF10_nil(FiEnv e1)
1107	{
1108	return (FiWord) fiNil((Ptr) 0);
1109	}
1110
1111	static struct _FiProg tmp10_nil = {
1112	(FiFun) CF10_nil,
1113	0L,
1114	0L,
1115	0L,
1116	0L
1117	};
1118
1119
1120	static FiWord
1121	CF11_empty(FiEnv e1)
1122	{
1123	return (FiWord) fiNil((Ptr) 0);
1124	}
1125
1126	static struct _FiProg tmp11_empty = {
1127	(FiFun) CF11_empty,
1128	0L,
1129	0L,
1130	0L,
1131	0L
1132	};
1133
1134
1135	static FiWord
1136	CF12_cons(FiEnv e1, FiWord P0_a, FiWord P1_l)
1137	{
1138	PFmt10 T0;
1139	T0 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1140	T0->X0_first = P0_a;
1141	T0->X1_rest = P1_l;
1142	return (FiWord) T0;
1143	}
1144
1145	static struct _FiProg tmp12_cons = {
1146	(FiFun) CF12_cons,
1147	0L,
1148	0L,
1149	0L,
1150	0L
1151	};
1152
1153
1154	static FiWord
1155	CF13_list(FiEnv e1, FiWord P0_its)
1156	{
1157	FiBool T9;
1158	PFmt10 T0, T8;
1159	FiClos T4, T5, T6, T7;
1160	FiWord T1, T2, T3;
1161	T1 = (FiWord) fiNil((Ptr) 0);
1162	T2 = (FiWord) fiNil((Ptr) 0);
1163	((void()(FiEnv , FiClos , FiClos* , FiClos* , FiClos* ))
1164	fiRawCProg((FiClos) P0_its)(((FiClos) P0_its)->prog->fun))(((FiClos) P0_its)->env, &T4, &
1165	T5, &T6, &T7);
1166	L0: fiCCall0(void, T5)((((void ()())(T5)->prog->fun))((T5)->env));
1167	if ((FiBool) fiCCall0(FiWord, T4)((((FiWord ()())(T4)->prog->fun))((T4)->env))) goto L1;
1168	T3 = fiCCall0(FiWord, T6)((((FiWord ()())(T6)->prog->fun))((T6)->env));
1169	T0 = (PFmt10) T1;
1170	T8 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1171	T8->X0_first = T3;
1172	T8->X1_rest = (FiWord) fiNil((Ptr) 0);
1173	T1 = (FiWord) T8;
1174	fiPTR_IS_NIL(T9, FiBool, (FiPtr) T0)((T9) = (FiBool)((FiPtr) ((FiPtr) T0) == (FiPtr) 0));
1175	if (T9) goto L2;
1176	T0->X1_rest = (FiWord) T8;
1177	goto L0;
1178	L2: T2 = (FiWord) T8;
1179	goto L0;
1180	L1: return T2;
1181	}
1182
1183	static struct _FiProg tmp13_list = {
1184	(FiFun) CF13_list,
1185	0L,
1186	0L,
1187	0L,
1188	0L
1189	};
1190
1191
1192	static FiWord
1193	CF14_list(FiEnv e1, FiWord P0_tup)
1194	{
1195	FiSInt T0, T3_a, T4_high;
1196	PFmt10 T2;
1197	FiWord T1;
1198	T1 = (FiWord) fiNil((Ptr) 0);
1199	T0 = ((PFmt24) P0_tup)->X0_size;
1200	T4_high = T0 - 1L;
1201	T3_a = 0L;
1202	L0: if (T3_a <= T4_high) goto L1;
1203	return T1;
1204	L1: T2 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1205	T2->X0_first = ((PFmt24) P0_tup)->X1_values[T0 - T3_a -
1206	1L];
1207	T2->X1_rest = T1;
1208	T1 = (FiWord) T2;
1209	T3_a = T3_a + 1L;
1210	goto L0;
1211	}
1212
1213	static struct _FiProg tmp14_list = {
1214	(FiFun) CF14_list,
1215	0L,
1216	0L,
1217	0L,
1218	0L
1219	};
1220
1221
1222	static FiWord
1223	CF15_map(FiEnv e1, FiWord P0_f, FiWord P1_l)
1224	{
1225	FiBool T8, T9;
1226	FiWord T1, T2, T4, T5, T6, T7_ll;
1227	PFmt10 T0, T3;
1228	PFmt18 l1;
1229	FiEnv e0;
1230	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1231	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
	Value stored to 'l1' is never read
1232	T1 = (FiWord) fiNil((Ptr) 0);
1233	T2 = (FiWord) fiNil((Ptr) 0);
1234	fiEnvEnsure(((PFmt18) fiEnvLevel1(e0))->X7_generator->env)fiEnvEnsureFun(((PFmt18) ((((FiEnv)(e0))->next)->level) )->X7_generator->env);
1235	T7_ll = P1_l;
1236	L1: fiEnvEnsure(((PFmt18) fiEnvLevel0(((PFmt18) fiEnvLevel1(e0))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(((PFmt18) ((((FiEnv)(e0))-> next)->level))-> X7_generator->env))->level))-> X8_test->env)
1237	X7_generator->env))->X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(((PFmt18) ((((FiEnv)(e0))-> next)->level))-> X7_generator->env))->level))-> X8_test->env);
1238	fiPTR_IS_NIL(T9, FiBool, (FiPtr) T7_ll)((T9) = (FiBool)((FiPtr) ((FiPtr) T7_ll) == (FiPtr) 0));
1239	if (T9) goto L2;
1240	T6 = ((PFmt10) T7_ll)->X0_first;
1241	T4 = fiCCall1(FiWord, (FiClos) P0_f, T6)((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,T6));
1242	T0 = (PFmt10) T1;
1243	T3 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1244	T3->X0_first = T4;
1245	T3->X1_rest = (FiWord) fiNil((Ptr) 0);
1246	T1 = (FiWord) T3;
1247	fiPTR_IS_NIL(T8, FiBool, (FiPtr) T0)((T8) = (FiBool)((FiPtr) ((FiPtr) T0) == (FiPtr) 0));
1248	if (T8) goto L0;
1249	T0->X1_rest = (FiWord) T3;
1250	L3: T5 = ((PFmt10) T7_ll)->X1_rest;
1251	T7_ll = T5;
1252	goto L1;
1253	L0: T2 = (FiWord) T3;
1254	goto L3;
1255	L2: return T2;
1256	}
1257
1258	static struct _FiProg tmp15_map = {
1259	(FiFun) CF15_map,
1260	0L,
1261	0L,
1262	0L,
1263	0L
1264	};
1265
1266
1267	static FiWord
1268	CF16_map(FiEnv e1, FiWord P0_f, FiWord P1_l1, FiWord P2_l2)
1269	{
1270	FiBool T12, T13, T14, T15;
1271	FiWord T1, T2, T4, T5, T6, T7, T8, T9_ll, T10_ll, T11;
1272	PFmt10 T0, T3;
1273	PFmt18 l1;
1274	FiEnv e0;
1275	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1276	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1277	T1 = (FiWord) fiNil((Ptr) 0);
1278	T2 = (FiWord) fiNil((Ptr) 0);
1279	fiEnvEnsure(((PFmt18) fiEnvLevel1(e0))->X7_generator->env)fiEnvEnsureFun(((PFmt18) ((((FiEnv)(e0))->next)->level) )->X7_generator->env);
1280	fiEnvEnsure(((PFmt18) fiEnvLevel1(e0))->X7_generator->env)fiEnvEnsureFun(((PFmt18) ((((FiEnv)(e0))->next)->level) )->X7_generator->env);
1281	T10_ll = P1_l1;
1282	fiEnvEnsure(((PFmt18) fiEnvLevel0(((PFmt18) fiEnvLevel1(e0))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(((PFmt18) ((((FiEnv)(e0))-> next)->level))-> X7_generator->env))->level))-> X8_test->env)
1283	X7_generator->env))->X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(((PFmt18) ((((FiEnv)(e0))-> next)->level))-> X7_generator->env))->level))-> X8_test->env);
1284	fiPTR_IS_NIL(T12, FiBool, (FiPtr) P1_l1)((T12) = (FiBool)((FiPtr) ((FiPtr) P1_l1) == (FiPtr) 0));
1285	if (T12) goto L1;
1286	T8 = ((PFmt10) P1_l1)->X0_first;
1287	T11 = T8;
1288	T9_ll = P2_l2;
1289	L2: fiEnvEnsure(((PFmt18) fiEnvLevel0(((PFmt18) fiEnvLevel1(e0))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(((PFmt18) ((((FiEnv)(e0))-> next)->level))-> X7_generator->env))->level))-> X8_test->env)
1290	X7_generator->env))->X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(((PFmt18) ((((FiEnv)(e0))-> next)->level))-> X7_generator->env))->level))-> X8_test->env);
1291	fiPTR_IS_NIL(T14, FiBool, (FiPtr) T9_ll)((T14) = (FiBool)((FiPtr) ((FiPtr) T9_ll) == (FiPtr) 0));
1292	if (T14) goto L1;
1293	T6 = ((PFmt10) T9_ll)->X0_first;
1294	T4 = fiCCall2(FiWord, (FiClos) P0_f, T11, T6)((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,T11,T6));
1295	T0 = (PFmt10) T1;
1296	T3 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1297	T3->X0_first = T4;
1298	T3->X1_rest = (FiWord) fiNil((Ptr) 0);
1299	T1 = (FiWord) T3;
1300	fiPTR_IS_NIL(T13, FiBool, (FiPtr) T0)((T13) = (FiBool)((FiPtr) ((FiPtr) T0) == (FiPtr) 0));
1301	if (T13) goto L0;
1302	T0->X1_rest = (FiWord) T3;
1303	L3: fiPTR_IS_NIL(T15, FiBool, (FiPtr) T10_ll)((T15) = (FiBool)((FiPtr) ((FiPtr) T10_ll) == (FiPtr) 0));
1304	if (T15) goto L4;
1305	T7 = ((PFmt10) T10_ll)->X1_rest;
1306	L5: T10_ll = T7;
1307	fiEnvEnsure(((PFmt18) fiEnvLevel0(((PFmt18) fiEnvLevel1(e0))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(((PFmt18) ((((FiEnv)(e0))-> next)->level))-> X7_generator->env))->level))-> X8_test->env)
1308	X7_generator->env))->X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(((PFmt18) ((((FiEnv)(e0))-> next)->level))-> X7_generator->env))->level))-> X8_test->env);
1309	fiPTR_IS_NIL(T12, FiBool, (FiPtr) T7)((T12) = (FiBool)((FiPtr) ((FiPtr) T7) == (FiPtr) 0));
1310	if (T12) goto L1;
1311	T8 = ((PFmt10) T7)->X0_first;
1312	T11 = T8;
1313	T5 = ((PFmt10) T9_ll)->X1_rest;
1314	T9_ll = T5;
1315	goto L2;
1316	L1: return T2;
1317	L4: T7 = T10_ll;
1318	goto L5;
1319	L0: T2 = (FiWord) T3;
1320	goto L3;
1321	}
1322
1323	static struct _FiProg tmp16_map = {
1324	(FiFun) CF16_map,
1325	0L,
1326	0L,
1327	0L,
1328	0L
1329	};
1330
1331
1332	static FiWord
1333	CF17_first(FiEnv e1, FiWord P0_l)
1334	{
1335	FiBool T1;
1336	FiWord T0;
1337	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1338	if (T1) goto L0;
1339	T0 = ((PFmt10) P0_l)->X0_first;
1340	return T0;
1341	L0: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
1342	fputc((FiWord) 10L, stdoutFile());
1343	fiHalt((FiSInt) 0L);
1344	return (FiWord) 0L;
1345	}
1346
1347	static struct _FiProg tmp17_first = {
1348	(FiFun) CF17_first,
1349	0L,
1350	0L,
1351	0L,
1352	0L
1353	};
1354
1355
1356	static FiWord
1357	CF18_rest(FiEnv e1, FiWord P0_l)
1358	{
1359	FiBool T1;
1360	FiWord T0;
1361	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1362	if (T1) goto L0;
1363	T0 = ((PFmt10) P0_l)->X1_rest;
1364	L1: return T0;
1365	L0: T0 = P0_l;
1366	goto L1;
1367	}
1368
1369	static struct _FiProg tmp18_rest = {
1370	(FiFun) CF18_rest,
1371	0L,
1372	0L,
1373	0L,
1374	0L
1375	};
1376
1377
1378	static FiWord
1379	CF19_setFirst_BANG_(FiEnv e1, FiWord P0_l, FiWord P1_a)
1380	{
1381	FiBool T1;
1382	FiWord T0;
1383	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1384	if (T1) goto L0;
1385	((PFmt10) P0_l)->X0_first = P1_a;
1386	T0 = ((PFmt10) P0_l)->X0_first;
1387	return T0;
1388	L0: fputs((FiWord) "Cannot set `first\' of emtpy list.", stdoutFile());
1389	fputc((FiWord) 10L, stdoutFile());
1390	fiHalt((FiSInt) 0L);
1391	return (FiWord) 0L;
1392	}
1393
1394	static struct _FiProg tmp19_setFirst_BANG_ = {
1395	(FiFun) CF19_setFirst_BANG_,
1396	0L,
1397	0L,
1398	0L,
1399	0L
1400	};
1401
1402
1403	static FiWord
1404	CF20_setRest_BANG_(FiEnv e1, FiWord P0_l, FiWord P1_t)
1405	{
1406	FiBool T1;
1407	FiWord T0;
1408	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1409	if (T1) goto L0;
1410	((PFmt10) P0_l)->X1_rest = P1_t;
1411	T0 = ((PFmt10) P0_l)->X1_rest;
1412	return T0;
1413	L0: fputs((FiWord) "Cannot set `rest\' of emtpy list.", stdoutFile());
1414	fputc((FiWord) 10L, stdoutFile());
1415	fiHalt((FiSInt) 0L);
1416	return (FiWord) 0L;
1417	}
1418
1419	static struct _FiProg tmp20_setRest_BANG_ = {
1420	(FiFun) CF20_setRest_BANG_,
1421	0L,
1422	0L,
1423	0L,
1424	0L
1425	};
1426
1427
1428	static FiWord
1429	CF21_apply(FiEnv e1, FiWord P0_l, FiSInt P1_x)
1430	{
1431	FiBool T1;
1432	FiWord T0;
1433	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1434	if (T1) goto L0;
1435	T0 = ((PFmt10) P0_l)->X0_first;
1436	return T0;
1437	L0: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
1438	fputc((FiWord) 10L, stdoutFile());
1439	fiHalt((FiSInt) 0L);
1440	return (FiWord) 0L;
1441	}
1442
1443	static struct _FiProg tmp21_apply = {
1444	(FiFun) CF21_apply,
1445	0L,
1446	0L,
1447	0L,
1448	0L
1449	};
1450
1451
1452	static FiWord
1453	CF22_apply(FiEnv e1, FiWord P0_l, FiSInt P1_x)
1454	{
1455	FiBool T1;
1456	FiWord T0;
1457	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1458	if (T1) goto L0;
1459	T0 = ((PFmt10) P0_l)->X1_rest;
1460	L1: return T0;
1461	L0: T0 = P0_l;
1462	goto L1;
1463	}
1464
1465	static struct _FiProg tmp22_apply = {
1466	(FiFun) CF22_apply,
1467	0L,
1468	0L,
1469	0L,
1470	0L
1471	};
1472
1473
1474	static FiWord
1475	CF23_set_BANG_(FiEnv e1, FiWord P0_l, FiSInt P1_x, FiWord P2_a)
1476	{
1477	FiBool T1;
1478	FiWord T0;
1479	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1480	if (T1) goto L0;
1481	((PFmt10) P0_l)->X0_first = P2_a;
1482	T0 = ((PFmt10) P0_l)->X0_first;
1483	return T0;
1484	L0: fputs((FiWord) "Cannot set `first\' of emtpy list.", stdoutFile());
1485	fputc((FiWord) 10L, stdoutFile());
1486	fiHalt((FiSInt) 0L);
1487	return (FiWord) 0L;
1488	}
1489
1490	static struct _FiProg tmp23_set_BANG_ = {
1491	(FiFun) CF23_set_BANG_,
1492	0L,
1493	0L,
1494	0L,
1495	0L
1496	};
1497
1498
1499	static FiWord
1500	CF24_set_BANG_(FiEnv e1, FiWord P0_l, FiSInt P1_x, FiWord P2_t)
1501	{
1502	FiBool T1;
1503	FiWord T0;
1504	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1505	if (T1) goto L0;
1506	((PFmt10) P0_l)->X1_rest = P2_t;
1507	T0 = ((PFmt10) P0_l)->X1_rest;
1508	return T0;
1509	L0: fputs((FiWord) "Cannot set `rest\' of emtpy list.", stdoutFile());
1510	fputc((FiWord) 10L, stdoutFile());
1511	fiHalt((FiSInt) 0L);
1512	return (FiWord) 0L;
1513	}
1514
1515	static struct _FiProg tmp24_set_BANG_ = {
1516	(FiFun) CF24_set_BANG_,
1517	0L,
1518	0L,
1519	0L,
1520	0L
1521	};
1522
1523
1524	static FiWord
1525	CF25_tail(FiEnv e1, FiWord P0_l)
1526	{
1527	FiBool T4, T5;
1528	FiWord T1_x, T2, T3;
1529	PFmt10 T0_y;
1530	fiPTR_IS_NIL(T4, FiBool, (FiPtr) P0_l)((T4) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1531	if (T4) goto L0;
1532	T1_x = P0_l;
1533	T3 = ((PFmt10) P0_l)->X1_rest;
1534	T0_y = (PFmt10) T3;
1535	L1: fiPTR_IS_NIL(T5, FiBool, (FiPtr) T0_y)((T5) = (FiBool)((FiPtr) ((FiPtr) T0_y) == (FiPtr) 0));
1536	if (T5) goto L2;
1537	T1_x = (FiWord) T0_y;
1538	T2 = T0_y->X1_rest;
1539	T0_y = (PFmt10) T2;
1540	goto L1;
1541	L2: return T1_x;
1542	L0: fputs((FiWord) "empty list", stdoutFile());
1543	fputc((FiWord) 10L, stdoutFile());
1544	fiHalt((FiSInt) 0L);
1545	return (FiWord) 0L;
1546	}
1547
1548	static struct _FiProg tmp25_tail = {
1549	(FiFun) CF25_tail,
1550	0L,
1551	0L,
1552	0L,
1553	0L
1554	};
1555
1556
1557	static FiWord
1558	CF26_last(FiEnv e1, FiWord P0_l)
1559	{
1560	FiBool T5, T6, T7;
1561	FiWord T0, T3, T4;
1562	PFmt10 T1, T2;
1563	fiPTR_IS_NIL(T5, FiBool, (FiPtr) P0_l)((T5) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1564	if (T5) goto L1;
1565	T2 = (PFmt10) P0_l;
1566	T4 = ((PFmt10) P0_l)->X1_rest;
1567	T1 = (PFmt10) T4;
1568	L2: fiPTR_IS_NIL(T6, FiBool, (FiPtr) T1)((T6) = (FiBool)((FiPtr) ((FiPtr) T1) == (FiPtr) 0));
1569	if (T6) goto L3;
1570	T2 = T1;
1571	T3 = T1->X1_rest;
1572	T1 = (PFmt10) T3;
1573	goto L2;
1574	L3: fiPTR_IS_NIL(T7, FiBool, (FiPtr) T2)((T7) = (FiBool)((FiPtr) ((FiPtr) T2) == (FiPtr) 0));
1575	if (T7) goto L0;
1576	T0 = T2->X0_first;
1577	return T0;
1578	L0: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
1579	fputc((FiWord) 10L, stdoutFile());
1580	fiHalt((FiSInt) 0L);
1581	return (FiWord) 0L;
1582	L1: fputs((FiWord) "empty list", stdoutFile());
1583	fputc((FiWord) 10L, stdoutFile());
1584	fiHalt((FiSInt) 0L);
1585	return (FiWord) 0L;
1586	}
1587
1588	static struct _FiProg tmp26_last = {
1589	(FiFun) CF26_last,
1590	0L,
1591	0L,
1592	0L,
1593	0L
1594	};
1595
1596
1597	static FiWord
1598	CF27_copy(FiEnv e1, FiWord P0_l)
1599	{
1600	FiBool T12, T13, T14, T15;
1601	PFmt10 T2, T6, T9, T11;
1602	FiWord T3, T4, T5, T7, T8, T10;
1603	FiClos T1;
1604	FiEnv T0;
1605	PFmt18 l1;
1606	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1607	T0 = fiEnvPush(fi0New(struct Fmt14 , CENSUS_EnvLevel), l1->fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X7_generator->env)
1608	X7_generator->env)fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X7_generator->env);
1609	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X0_l = P0_l;
1610	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X3 = 0L;
1611	T1 = (FiClos) fiClosMake(T0, C37_generBaseFn)fiClosMakeFun(T0, (FiProg) (C37_generBaseFn));
1612	T3 = (FiWord) fiNil((Ptr) 0);
1613	T4 = (FiWord) fiNil((Ptr) 0);
1614	fiEnvEnsure(T1->env)fiEnvEnsureFun(T1->env);
1615	L0: switch (((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X3) {
1616	case 0L: goto L3;
1617	case 1L: goto L6;
1618	}
1619	L3: ((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X2 = 0L;
1620	((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X1_ll = ((PFmt14)
1621	fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X0_l;
1622	L4: fiEnvEnsure(((PFmt18) fiEnvLevel1(T1->env))->X8_test->env)fiEnvEnsureFun(((PFmt18) ((((FiEnv)(T1->env))->next)-> level))->X8_test->env);
1623	T7 = ((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X1_ll;
1624	fiPTR_IS_NIL(T13, FiBool, (FiPtr) T7)((T13) = (FiBool)((FiPtr) ((FiPtr) T7) == (FiPtr) 0));
1625	if (T13) goto L5;
1626	((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X3 = 1L;
1627	T11 = (PFmt10) ((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X1_ll;
1628	fiPTR_IS_NIL(T14, FiBool, (FiPtr) T11)((T14) = (FiBool)((FiPtr) ((FiPtr) T11) == (FiPtr) 0));
1629	if (T14) goto L9;
1630	T10 = T11->X0_first;
1631	((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X4 = T10;
1632	L10: if ((FiBool) ((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X2) goto L1;
1633	T5 = ((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X4;
1634	T2 = (PFmt10) T3;
1635	T6 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1636	T6->X0_first = T5;
1637	T6->X1_rest = (FiWord) fiNil((Ptr) 0);
1638	T3 = (FiWord) T6;
1639	fiPTR_IS_NIL(T12, FiBool, (FiPtr) T2)((T12) = (FiBool)((FiPtr) ((FiPtr) T2) == (FiPtr) 0));
1640	if (T12) goto L2;
1641	T2->X1_rest = (FiWord) T6;
1642	goto L0;
1643	L2: T4 = (FiWord) T6;
1644	goto L0;
1645	L1: return T4;
1646	L9: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
1647	fputc((FiWord) 10L, stdoutFile());
1648	fiHalt((FiSInt) 0L);
1649	return (FiWord) 0L;
1650	L5: ((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X2 = 1L;
1651	goto L10;
1652	L6: T9 = (PFmt10) ((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X1_ll;
1653	fiPTR_IS_NIL(T15, FiBool, (FiPtr) T9)((T15) = (FiBool)((FiPtr) ((FiPtr) T9) == (FiPtr) 0));
1654	if (T15) goto L7;
1655	T8 = T9->X1_rest;
1656	L8: ((PFmt14) fiEnvLevel0(T1->env)(((FiEnv)(T1->env))->level))->X1_ll = T8;
1657	goto L4;
1658	L7: T8 = (FiWord) T9;
1659	goto L8;
1660	}
1661
1662	static struct _FiProg tmp27_copy = {
1663	(FiFun) CF27_copy,
1664	0L,
1665	0L,
1666	0L,
1667	0L
1668	};
1669
1670
1671	static FiWord
1672	CF28_reverse(FiEnv e1, FiWord P0_l)
1673	{
1674	FiBool T5;
1675	FiWord T0_revl, T2, T3, T4_ll;
1676	PFmt10 T1;
1677	PFmt18 l1;
1678	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1679	T0_revl = (FiWord) fiNil((Ptr) 0);
1680	T4_ll = P0_l;
1681	L0: fiEnvEnsure(((PFmt18) fiEnvLevel0(l1->X7_generator->env))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env)
1682	X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env);
1683	fiPTR_IS_NIL(T5, FiBool, (FiPtr) T4_ll)((T5) = (FiBool)((FiPtr) ((FiPtr) T4_ll) == (FiPtr) 0));
1684	if (T5) goto L1;
1685	T3 = ((PFmt10) T4_ll)->X0_first;
1686	T1 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1687	T1->X0_first = T3;
1688	T1->X1_rest = T0_revl;
1689	T0_revl = (FiWord) T1;
1690	T2 = ((PFmt10) T4_ll)->X1_rest;
1691	T4_ll = T2;
1692	goto L0;
1693	L1: return T0_revl;
1694	}
1695
1696	static struct _FiProg tmp28_reverse = {
1697	(FiFun) CF28_reverse,
1698	0L,
1699	0L,
1700	0L,
1701	0L
1702	};
1703
1704
1705	static FiWord
1706	CF29_reverse_BANG_(FiEnv e1, FiWord P0_l)
1707	{
1708	FiBool T2;
1709	FiWord T0_r, T1;
1710	T0_r = (FiWord) fiNil((Ptr) 0);
1711	L0: fiPTR_IS_NIL(T2, FiBool, (FiPtr) P0_l)((T2) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1712	if (T2) goto L1;
1713	T1 = ((PFmt10) P0_l)->X1_rest;
1714	((PFmt10) P0_l)->X1_rest = T0_r;
1715	T0_r = P0_l;
1716	P0_l = T1;
1717	goto L0;
1718	L1: return T0_r;
1719	}
1720
1721	static struct _FiProg tmp29_reverse_BANG_ = {
1722	(FiFun) CF29_reverse_BANG_,
1723	0L,
1724	0L,
1725	0L,
1726	0L
1727	};
1728
1729
1730	static FiWord
1731	CF30_concat_BANG_(FiEnv e1, FiWord P0_l1, FiWord P1_l2)
1732	{
1733	FiBool T3, T4, T5;
1734	FiWord T0_l, T1, T2;
1735	fiPTR_IS_NIL(T4, FiBool, (FiPtr) P0_l1)((T4) = (FiBool)((FiPtr) ((FiPtr) P0_l1) == (FiPtr) 0));
1736	if (T4) goto L0;
1737	T0_l = P0_l1;
1738	L2: fiPTR_IS_NIL(T3, FiBool, (FiPtr) T0_l)((T3) = (FiBool)((FiPtr) ((FiPtr) T0_l) == (FiPtr) 0));
1739	if (T3) goto L4;
1740	T2 = ((PFmt10) T0_l)->X1_rest;
1741	L5: fiPTR_IS_NIL(T5, FiBool, (FiPtr) T2)((T5) = (FiBool)((FiPtr) ((FiPtr) T2) == (FiPtr) 0));
1742	if (T5) goto L3;
1743	T0_l = T2;
1744	goto L2;
1745	L3: if (T3) goto L6;
1746	((PFmt10) T0_l)->X1_rest = P1_l2;
1747	T1 = P0_l1;
1748	L1: return T1;
1749	L6: fputs((FiWord) "Cannot set `rest\' of emtpy list.", stdoutFile());
1750	fputc((FiWord) 10L, stdoutFile());
1751	fiHalt((FiSInt) 0L);
1752	return (FiWord) 0L;
1753	L4: T2 = T0_l;
1754	goto L5;
1755	L0: T1 = P1_l2;
1756	goto L1;
1757	}
1758
1759	static struct _FiProg tmp30_concat_BANG_ = {
1760	(FiFun) CF30_concat_BANG_,
1761	0L,
1762	0L,
1763	0L,
1764	0L
1765	};
1766
1767
1768	static FiWord
1769	CF31_concat(FiEnv e1, FiWord P0_l1, FiWord P1_l2)
1770	{
1771	FiBool T10, T11, T12, T13;
1772	FiWord T0_new, T1, T3, T5, T6, T7, T8, T9_ll;
1773	PFmt10 T2, T4;
1774	PFmt18 l1;
1775	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1776	fiPTR_IS_NIL(T10, FiBool, (FiPtr) P0_l1)((T10) = (FiBool)((FiPtr) ((FiPtr) P0_l1) == (FiPtr) 0));
1777	if (T10) goto L0;
1778	T6 = ((PFmt10) P0_l1)->X0_first;
1779	T4 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1780	T4->X0_first = T6;
1781	T4->X1_rest = (FiWord) fiNil((Ptr) 0);
1782	T0_new = (FiWord) T4;
1783	T5 = ((PFmt10) P0_l1)->X1_rest;
1784	T9_ll = T5;
1785	L4: fiEnvEnsure(((PFmt18) fiEnvLevel0(l1->X7_generator->env))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env)
1786	X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env);
1787	fiPTR_IS_NIL(T12, FiBool, (FiPtr) T9_ll)((T12) = (FiBool)((FiPtr) ((FiPtr) T9_ll) == (FiPtr) 0));
1788	if (T12) goto L5;
1789	T8 = ((PFmt10) T9_ll)->X0_first;
1790	T2 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
1791	T2->X0_first = T8;
1792	T2->X1_rest = (FiWord) fiNil((Ptr) 0);
1793	fiPTR_IS_NIL(T11, FiBool, (FiPtr) T0_new)((T11) = (FiBool)((FiPtr) ((FiPtr) T0_new) == (FiPtr) 0));
1794	if (T11) goto L2;
1795	((PFmt10) T0_new)->X1_rest = (FiWord) T2;
1796	T3 = ((PFmt10) T0_new)->X1_rest;
1797	T0_new = T3;
1798	T7 = ((PFmt10) T9_ll)->X1_rest;
1799	T9_ll = T7;
1800	goto L4;
1801	L2: fputs((FiWord) "Cannot set `rest\' of emtpy list.", stdoutFile());
1802	fputc((FiWord) 10L, stdoutFile());
1803	fiHalt((FiSInt) 0L);
1804	return (FiWord) 0L;
1805	L5: fiPTR_IS_NIL(T13, FiBool, (FiPtr) T0_new)((T13) = (FiBool)((FiPtr) ((FiPtr) T0_new) == (FiPtr) 0));
1806	if (T13) goto L3;
1807	((PFmt10) T0_new)->X1_rest = P1_l2;
1808	T1 = (FiWord) T4;
1809	L1: return T1;
1810	L3: fputs((FiWord) "Cannot set `rest\' of emtpy list.", stdoutFile());
1811	fputc((FiWord) 10L, stdoutFile());
1812	fiHalt((FiSInt) 0L);
1813	return (FiWord) 0L;
1814	L0: T1 = P1_l2;
1815	goto L1;
1816	}
1817
1818	static struct _FiProg tmp31_concat = {
1819	(FiFun) CF31_concat,
1820	0L,
1821	0L,
1822	0L,
1823	0L
1824	};
1825
1826
1827	static FiWord
1828	CF32_reduce(FiEnv e1, FiWord P0_f, FiWord P1_l, FiWord P2_v)
1829	{
1830	FiBool T4;
1831	FiWord T0_ans, T1, T2, T3_ll;
1832	PFmt18 l1;
1833	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1834	T0_ans = P2_v;
1835	T3_ll = P1_l;
1836	L0: fiEnvEnsure(((PFmt18) fiEnvLevel0(l1->X7_generator->env))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env)
1837	X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env);
1838	fiPTR_IS_NIL(T4, FiBool, (FiPtr) T3_ll)((T4) = (FiBool)((FiPtr) ((FiPtr) T3_ll) == (FiPtr) 0));
1839	if (T4) goto L1;
1840	T2 = ((PFmt10) T3_ll)->X0_first;
1841	T0_ans = fiCCall2(FiWord, (FiClos) P0_f, T0_ans, T2)((((FiWord ()())((FiClos) P0_f)->prog->fun))(((FiClos ) P0_f)->env,T0_ans,T2));
1842	T1 = ((PFmt10) T3_ll)->X1_rest;
1843	T3_ll = T1;
1844	goto L0;
1845	L1: return T0_ans;
1846	}
1847
1848	static struct _FiProg tmp32_reduce = {
1849	(FiFun) CF32_reduce,
1850	0L,
1851	0L,
1852	0L,
1853	0L
1854	};
1855
1856
1857	static FiWord
1858	CF33_apply(FiEnv e1, FiWord P0_l, FiWord P1_i)
1859	{
1860	FiBool T4;
1861	FiSInt T2_a, T3_high;
1862	FiWord T0, T1;
1863	T3_high = (FiSInt) P1_i - 1L;
1864	T2_a = 1L;
1865	L1: if (T2_a <= T3_high) goto L2;
1866	L0: fiPTR_IS_NIL(T4, FiBool, (FiPtr) P0_l)((T4) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1867	if (T4) goto L3;
1868	T1 = ((PFmt10) P0_l)->X0_first;
1869	return T1;
1870	L3: fputs((FiWord) "apply: too few elements in list", stdoutFile());
1871	fputc((FiWord) 10L, stdoutFile());
1872	fiHalt((FiSInt) 0L);
1873	return (FiWord) 0L;
1874	L2: fiPTR_IS_NIL(T4, FiBool, (FiPtr) P0_l)((T4) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1875	if (T4) goto L0;
1876	T0 = ((PFmt10) P0_l)->X1_rest;
1877	P0_l = T0;
1878	T2_a = T2_a + 1L;
1879	goto L1;
1880	}
1881
1882	static struct _FiProg tmp33_apply = {
1883	(FiFun) CF33_apply,
1884	0L,
1885	0L,
1886	0L,
1887	0L
1888	};
1889
1890
1891	static FiWord
1892	CF34_rest(FiEnv e1, FiWord P0_l, FiWord P1_i)
1893	{
1894	FiBool T2;
1895	FiSInt T1_a;
1896	FiWord T0;
1897	T1_a = 1L;
1898	L1: if (T1_a <= (FiSInt) P1_i) goto L2;
1899	L0: return P0_l;
1900	L2: fiPTR_IS_NIL(T2, FiBool, (FiPtr) P0_l)((T2) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1901	if (T2) goto L0;
1902	T0 = ((PFmt10) P0_l)->X1_rest;
1903	P0_l = T0;
1904	T1_a = T1_a + 1L;
1905	goto L1;
1906	}
1907
1908	static struct _FiProg tmp34_rest = {
1909	(FiFun) CF34_rest,
1910	0L,
1911	0L,
1912	0L,
1913	0L
1914	};
1915
1916
1917	static FiWord
1918	CF35_test(FiEnv e1, FiWord P0_l)
1919	{
1920	FiBool T0;
1921	fiPTR_IS_NIL(T0, FiBool, (FiPtr) P0_l)((T0) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
1922	return (FiWord) !T0;
1923	}
1924
1925	static struct _FiProg tmp35_test = {
1926	(FiFun) CF35_test,
1927	0L,
1928	0L,
1929	0L,
1930	0L
1931	};
1932
1933
1934	static FiClos
1935	CF36_generator(FiEnv e1, FiWord P0_l)
1936	{
1937	PFmt14 l0;
1938	FiEnv e0;
1939	PFmt18 l1;
1940	l0 = fi0New(struct Fmt14 , CENSUS_EnvLevel)((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)));
1941	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1942	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1943	l0->X0_l = P0_l;
1944	l0->X3 = 0L;
1945	return fiClosMake(e0, C37_generBaseFn)fiClosMakeFun(e0, (FiProg) (C37_generBaseFn));
1946	}
1947
1948	static struct _FiProg tmp36_generator = {
1949	(FiFun) CF36_generator,
1950	0L,
1951	0L,
1952	0L,
1953	0L
1954	};
1955
1956
1957	static void
1958	CF37_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
1959	R3)
1960	{
1961	FiEnv e2, e0;
1962	PFmt14 l1;
1963	PFmt18 l2;
1964	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1965	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
1966	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1967	l2 = (PFmt18) fiEnvLevel(e2)((FiEnv) (e2)->level);
1968	*R0 = fiClosMake(e0, C39_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C39_generDone_QMARK_));
1969	*R1 = fiClosMake(e0, C38_generStepper)fiClosMakeFun(e0, (FiProg) (C38_generStepper));
1970	*R2 = fiClosMake(e0, C40_generValue)fiClosMakeFun(e0, (FiProg) (C40_generValue));
1971	*R3 = fiClosMake(e0, C41_generBound)fiClosMakeFun(e0, (FiProg) (C41_generBound));
1972	return ;
1973	}
1974
1975	static struct _FiProg tmp37_generBaseFn = {
1976	(FiFun) CF37_generBaseFn,
1977	0L,
1978	0L,
1979	0L,
1980	0L
1981	};
1982
1983
1984	static void
1985	CF38_generStepper(FiEnv e1)
1986	{
1987	FiBool T5, T6, T7;
1988	PFmt10 T2, T4;
1989	FiWord T0, T1, T3;
1990	PFmt14 l2;
1991	FiEnv e3, e2;
1992	PFmt18 l3;
1993	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1994	l2 = (PFmt14) fiEnvLevel(e2)((FiEnv) (e2)->level);
1995	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1996	l3 = (PFmt18) fiEnvLevel(e3)((FiEnv) (e3)->level);
1997	switch (l2->X3) {
1998	case 0L: goto L0;
1999	case 1L: goto L3;
2000	}
2001	L0: l2->X2 = 0L;
2002	l2->X1_ll = l2->X0_l;
2003	L1: fiEnvEnsure(l3->X8_test->env)fiEnvEnsureFun(l3->X8_test->env);
2004	T0 = l2->X1_ll;
2005	fiPTR_IS_NIL(T5, FiBool, (FiPtr) T0)((T5) = (FiBool)((FiPtr) ((FiPtr) T0) == (FiPtr) 0));
2006	if (T5) goto L2;
2007	l2->X3 = 1L;
2008	T4 = (PFmt10) l2->X1_ll;
2009	fiPTR_IS_NIL(T6, FiBool, (FiPtr) T4)((T6) = (FiBool)((FiPtr) ((FiPtr) T4) == (FiPtr) 0));
2010	if (T6) goto L6;
2011	T3 = T4->X0_first;
2012	l2->X4 = T3;
2013	return ;
2014	L6: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
2015	fputc((FiWord) 10L, stdoutFile());
2016	fiHalt((FiSInt) 0L);
2017	return ;
2018	L2: l2->X2 = 1L;
2019	return ;
2020	L3: T2 = (PFmt10) l2->X1_ll;
2021	fiPTR_IS_NIL(T7, FiBool, (FiPtr) T2)((T7) = (FiBool)((FiPtr) ((FiPtr) T2) == (FiPtr) 0));
2022	if (T7) goto L4;
2023	T1 = T2->X1_rest;
2024	L5: l2->X1_ll = T1;
2025	goto L1;
2026	L4: T1 = (FiWord) T2;
2027	goto L5;
2028	}
2029
2030	static struct _FiProg tmp38_generStepper = {
2031	(FiFun) CF38_generStepper,
2032	0L,
2033	0L,
2034	0L,
2035	0L
2036	};
2037
2038
2039	static FiBool
2040	CF39_generDone_QMARK_(FiEnv e1)
2041	{
2042	PFmt14 l2;
2043	FiEnv e2;
2044	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
2045	l2 = (PFmt14) fiEnvLevel(e2)((FiEnv) (e2)->level);
2046	return l2->X2;
2047	}
2048
2049	static struct _FiProg tmp39_generDone_QMARK_ = {
2050	(FiFun) CF39_generDone_QMARK_,
2051	0L,
2052	0L,
2053	0L,
2054	0L
2055	};
2056
2057
2058	static FiWord
2059	CF40_generValue(FiEnv e1)
2060	{
2061	PFmt14 l2;
2062	FiEnv e2;
2063	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
2064	l2 = (PFmt14) fiEnvLevel(e2)((FiEnv) (e2)->level);
2065	return l2->X4;
2066	}
2067
2068	static struct _FiProg tmp40_generValue = {
2069	(FiFun) CF40_generValue,
2070	0L,
2071	0L,
2072	0L,
2073	0L
2074	};
2075
2076
2077	static FiSInt
2078	CF41_generBound(FiEnv e1)
2079	{
2080	return -1L;
2081	}
2082
2083	static struct _FiProg tmp41_generBound = {
2084	(FiFun) CF41_generBound,
2085	0L,
2086	0L,
2087	0L,
2088	0L
2089	};
2090
2091
2092	static FiClos
2093	CF42_tails(FiEnv e1, FiWord P0_l)
2094	{
2095	PFmt15 l0;
2096	FiEnv e0;
2097	PFmt18 l1;
2098	l0 = fi0New(struct Fmt15 , CENSUS_EnvLevel)((struct Fmt15 *) fi0Alloc(sizeof(struct Fmt15), (19)));
2099	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2100	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
2101	l0->X0_l = P0_l;
2102	l0->X4 = 0L;
2103	return fiClosMake(e0, C43_generBaseFn)fiClosMakeFun(e0, (FiProg) (C43_generBaseFn));
2104	}
2105
2106	static struct _FiProg tmp42_tails = {
2107	(FiFun) CF42_tails,
2108	0L,
2109	0L,
2110	0L,
2111	0L
2112	};
2113
2114
2115	static void
2116	CF43_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
2117	R3)
2118	{
2119	FiEnv e2, e0;
2120	PFmt15 l1;
2121	PFmt18 l2;
2122	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2123	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
2124	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
2125	l2 = (PFmt18) fiEnvLevel(e2)((FiEnv) (e2)->level);
2126	*R0 = fiClosMake(e0, C45_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C45_generDone_QMARK_));
2127	*R1 = fiClosMake(e0, C44_generStepper)fiClosMakeFun(e0, (FiProg) (C44_generStepper));
2128	*R2 = fiClosMake(e0, C46_generValue)fiClosMakeFun(e0, (FiProg) (C46_generValue));
2129	*R3 = fiClosMake(e0, C47_generBound)fiClosMakeFun(e0, (FiProg) (C47_generBound));
2130	return ;
2131	}
2132
2133	static struct _FiProg tmp43_generBaseFn = {
2134	(FiFun) CF43_generBaseFn,
2135	0L,
2136	0L,
2137	0L,
2138	0L
2139	};
2140
2141
2142	static void
2143	CF44_generStepper(FiEnv e1)
2144	{
2145	FiBool T4, T5;
2146	PFmt10 T3;
2147	FiWord T0, T1, T2;
2148	PFmt15 l2;
2149	FiEnv e3, e2;
2150	PFmt18 l3;
2151	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
2152	l2 = (PFmt15) fiEnvLevel(e2)((FiEnv) (e2)->level);
2153	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
2154	l3 = (PFmt18) fiEnvLevel(e3)((FiEnv) (e3)->level);
2155	switch (l2->X4) {
2156	case 0L: goto L0;
2157	case 1L: goto L3;
2158	}
2159	L0: l2->X3 = 0L;
2160	l2->X2_ll = l2->X0_l;
2161	L1: fiEnvEnsure(l3->X8_test->env)fiEnvEnsureFun(l3->X8_test->env);
2162	T1 = l2->X2_ll;
2163	fiPTR_IS_NIL(T4, FiBool, (FiPtr) T1)((T4) = (FiBool)((FiPtr) ((FiPtr) T1) == (FiPtr) 0));
2164	if (T4) goto L2;
2165	T3 = (PFmt10) l2->X2_ll;
2166	fiPTR_IS_NIL(T5, FiBool, (FiPtr) T3)((T5) = (FiBool)((FiPtr) ((FiPtr) T3) == (FiPtr) 0));
2167	if (T5) goto L4;
2168	T2 = T3->X1_rest;
2169	L5: l2->X1_tl = T2;
2170	l2->X4 = 1L;
2171	T0 = l2->X2_ll;
2172	l2->X5 = T0;
2173	return ;
2174	L4: T2 = (FiWord) T3;
2175	goto L5;
2176	L2: l2->X3 = 1L;
2177	return ;
2178	L3: l2->X2_ll = l2->X1_tl;
2179	goto L1;
2180	}
2181
2182	static struct _FiProg tmp44_generStepper = {
2183	(FiFun) CF44_generStepper,
2184	0L,
2185	0L,
2186	0L,
2187	0L
2188	};
2189
2190
2191	static FiBool
2192	CF45_generDone_QMARK_(FiEnv e1)
2193	{
2194	PFmt15 l2;
2195	FiEnv e2;
2196	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
2197	l2 = (PFmt15) fiEnvLevel(e2)((FiEnv) (e2)->level);
2198	return l2->X3;
2199	}
2200
2201	static struct _FiProg tmp45_generDone_QMARK_ = {
2202	(FiFun) CF45_generDone_QMARK_,
2203	0L,
2204	0L,
2205	0L,
2206	0L
2207	};
2208
2209
2210	static FiWord
2211	CF46_generValue(FiEnv e1)
2212	{
2213	PFmt15 l2;
2214	FiEnv e2;
2215	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
2216	l2 = (PFmt15) fiEnvLevel(e2)((FiEnv) (e2)->level);
2217	return l2->X5;
2218	}
2219
2220	static struct _FiProg tmp46_generValue = {
2221	(FiFun) CF46_generValue,
2222	0L,
2223	0L,
2224	0L,
2225	0L
2226	};
2227
2228
2229	static FiSInt
2230	CF47_generBound(FiEnv e1)
2231	{
2232	return -1L;
2233	}
2234
2235	static struct _FiProg tmp47_generBound = {
2236	(FiFun) CF47_generBound,
2237	0L,
2238	0L,
2239	0L,
2240	0L
2241	};
2242
2243
2244	static FiWord
2245	CF48_bracket(FiEnv e1, FiWord P0_t)
2246	{
2247	FiSInt T0_len, T3_a, T4_high;
2248	PFmt10 T2;
2249	FiWord T1_l;
2250	T1_l = (FiWord) fiNil((Ptr) 0);
2251	T0_len = ((PFmt24) P0_t)->X0_size;
2252	T4_high = T0_len - 1L;
2253	T3_a = 0L;
2254	L0: if (T3_a <= T4_high) goto L1;
2255	return T1_l;
2256	L1: T2 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
2257	T2->X0_first = ((PFmt24) P0_t)->X1_values[T0_len - T3_a -
2258	1L];
2259	T2->X1_rest = T1_l;
2260	T1_l = (FiWord) T2;
2261	T3_a = T3_a + 1L;
2262	goto L0;
2263	}
2264
2265	static struct _FiProg tmp48_bracket = {
2266	(FiFun) CF48_bracket,
2267	0L,
2268	0L,
2269	0L,
2270	0L
2271	};
2272
2273
2274	static FiWord
2275	CF49_bracket(FiEnv e1, FiWord P0_g)
2276	{
2277	FiBool T9;
2278	PFmt10 T0_temp, T8;
2279	FiClos T4, T5, T6, T7;
2280	FiWord T1_last, T2_head, T3_a;
2281	T1_last = (FiWord) fiNil((Ptr) 0);
2282	T2_head = (FiWord) fiNil((Ptr) 0);
2283	((void()(FiEnv , FiClos , FiClos* , FiClos* , FiClos* ))
2284	fiRawCProg((FiClos) P0_g)(((FiClos) P0_g)->prog->fun))(((FiClos) P0_g)->env, &T4, &T5, &
2285	T6, &T7);
2286	L0: fiCCall0(void, T5)((((void ()())(T5)->prog->fun))((T5)->env));
2287	if ((FiBool) fiCCall0(FiWord, T4)((((FiWord ()())(T4)->prog->fun))((T4)->env))) goto L1;
2288	T3_a = fiCCall0(FiWord, T6)((((FiWord ()())(T6)->prog->fun))((T6)->env));
2289	T0_temp = (PFmt10) T1_last;
2290	T8 = fi0RecNew(struct Fmt10 , CENSUS_Rec)((struct Fmt10 *) fi0RecAlloc(sizeof(struct Fmt10), ( 5)));
2291	T8->X0_first = T3_a;
2292	T8->X1_rest = (FiWord) fiNil((Ptr) 0);
2293	T1_last = (FiWord) T8;
2294	fiPTR_IS_NIL(T9, FiBool, (FiPtr) T0_temp)((T9) = (FiBool)((FiPtr) ((FiPtr) T0_temp) == (FiPtr) 0));
2295	if (T9) goto L2;
2296	T0_temp->X1_rest = (FiWord) T8;
2297	goto L0;
2298	L2: T2_head = (FiWord) T8;
2299	goto L0;
2300	L1: return T2_head;
2301	}
2302
2303	static struct _FiProg tmp49_bracket = {
2304	(FiFun) CF49_bracket,
2305	0L,
2306	0L,
2307	0L,
2308	0L
2309	};
2310
2311
2312	static FiWord
2313	CF50_disposeHead_BANG_(FiEnv e1, FiWord P0_l)
2314	{
2315	FiBool T1;
2316	FiWord T0;
2317	fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
2318	if (T1) goto L0;
2319	T0 = ((PFmt10) P0_l)->X1_rest;
2320	L1: fiFree((FiPtr) P0_l);
2321	return T0;
2322	L0: T0 = P0_l;
2323	goto L1;
2324	}
2325
2326	static struct _FiProg tmp50_disposeHead_BANG_ = {
2327	(FiFun) CF50_disposeHead_BANG_,
2328	0L,
2329	0L,
2330	0L,
2331	0L
2332	};
2333
2334
2335	static void
2336	CF51_dispose_BANG_(FiEnv e1, FiWord P0_l)
2337	{
2338	FiBool T1;
2339	FiWord T0;
2340	L0: fiPTR_IS_NIL(T1, FiBool, (FiPtr) P0_l)((T1) = (FiBool)((FiPtr) ((FiPtr) P0_l) == (FiPtr) 0));
2341	if (T1) goto L1;
2342	T0 = ((PFmt10) P0_l)->X1_rest;
2343	fiFree((FiPtr) P0_l);
2344	P0_l = T0;
2345	goto L0;
2346	L1: return ;
2347	}
2348
2349	static struct _FiProg tmp51_dispose_BANG_ = {
2350	(FiFun) CF51_dispose_BANG_,
2351	0L,
2352	0L,
2353	0L,
2354	0L
2355	};
2356
2357
2358	static FiClos
2359	CF52__LT__LT_(FiEnv e1, FiWord P0_x)
2360	{
2361	PFmt18 l1;
2362	FiEnv e0;
2363	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2364	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
2365	return fiClosMake(e0, C53__LT__LT_)fiClosMakeFun(e0, (FiProg) (C53__LT__LT_));
2366	}
2367
2368	static struct _FiProg tmp52__LT__LT_ = {
2369	(FiFun) CF52__LT__LT_,
2370	0L,
2371	0L,
2372	0L,
2373	0L
2374	};
2375
2376
2377	static FiWord
2378	CF53__LT__LT_(FiEnv e1, FiWord P0_p)
2379	{
2380	FiClos T0, T1, T2;
2381	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
2382	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);
2383	fiCCall3(FiWord, T1, (FiWord) "<unprintable>", (FiWord) 1L, (FiWord)((((FiWord ()())(T1)->prog->fun))((T1)->env,(FiWord ) "<unprintable>",(FiWord) 1L,(FiWord) 0L))
2384	0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,(FiWord ) "<unprintable>",(FiWord) 1L,(FiWord) 0L));
2385	return P0_p;
2386	}
2387
2388	static struct _FiProg tmp53__LT__LT_ = {
2389	(FiFun) CF53__LT__LT_,
2390	0L,
2391	0L,
2392	0L,
2393	0L
2394	};
2395
2396
2397	static FiWord
2398	CF54_hash(FiEnv e1, FiWord P0_x)
2399	{
2400	return (FiWord) 0L;
2401	}
2402
2403	static struct _FiProg tmp54_hash = {
2404	(FiFun) CF54_hash,
2405	0L,
2406	0L,
2407	0L,
2408	0L
2409	};
2410
2411
2412	static FiWord
2413	CF55_case(FiEnv e1, FiWord P0_x, FiWord P1_y)
2414	{
2415	fputs((FiWord) "no equality on this object", stdoutFile());
2416	fputc((FiWord) 10L, stdoutFile());
2417	fiHalt((FiSInt) 0L);
2418	return (FiWord) 0L;
2419	}
2420
2421	static struct _FiProg tmp55_case = {
2422	(FiFun) CF55_case,
2423	0L,
2424	0L,
2425	0L,
2426	0L
2427	};
2428
2429
2430	static FiWord
2431	CF56_member_QMARK_(FiEnv e1, FiWord P0_v, FiWord P1_l)
2432	{
2433	FiBool T3;
2434	FiWord T0, T1, T2_ll;
2435	PFmt18 l1;
2436	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
2437	T2_ll = P1_l;
2438	L1: fiEnvEnsure(((PFmt18) fiEnvLevel0(l1->X7_generator->env))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env)
2439	X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env);
2440	fiPTR_IS_NIL(T3, FiBool, (FiPtr) T2_ll)((T3) = (FiBool)((FiPtr) ((FiPtr) T2_ll) == (FiPtr) 0));
2441	if (T3) goto L2;
2442	T1 = ((PFmt10) T2_ll)->X0_first;
2443	if ((FiBool) fiCCall2(FiWord, l1->X44__EQ_, P0_v, T1)((((FiWord ()())(l1->X44__EQ_)->prog->fun))((l1-> X44__EQ_)->env,P0_v,T1))) goto L0;
2444	T0 = ((PFmt10) T2_ll)->X1_rest;
2445	T2_ll = T0;
2446	goto L1;
2447	L0: return (FiWord) 1L;
2448	L2: return (FiWord) 0L;
2449	}
2450
2451	static struct _FiProg tmp56_member_QMARK_ = {
2452	(FiFun) CF56_member_QMARK_,
2453	0L,
2454	0L,
2455	0L,
2456	0L
2457	};
2458
2459
2460	static FiWord
2461	CF57__EQ_(FiEnv e1, FiWord P0_l1, FiWord P1_l2)
2462	{
2463	FiBool T0, T1, T6, T7, T8;
2464	FiWord T2, T3, T4, T5;
2465	PFmt18 l1;
2466	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
2467	L0: T0 = 1L;
2468	fiPTR_IS_NIL(T6, FiBool, (FiPtr) P0_l1)((T6) = (FiBool)((FiPtr) ((FiPtr) P0_l1) == (FiPtr) 0));
2469	if (T6) goto L2;
2470	fiPTR_IS_NIL(T7, FiBool, (FiPtr) P1_l2)((T7) = (FiBool)((FiPtr) ((FiPtr) P1_l2) == (FiPtr) 0));
2471	if (T7) goto L2;
2472	L3: if (T0) goto L10;
2473	T1 = 1L;
2474	if (T6) goto L13;
2475	L5: T1 = 0L;
2476	L6: return (FiWord) T1;
2477	L13: fiPTR_IS_NIL(T8, FiBool, (FiPtr) P1_l2)((T8) = (FiBool)((FiPtr) ((FiPtr) P1_l2) == (FiPtr) 0));
2478	if (T8) goto L6;
2479	goto L5;
2480	L10: fiPTR_IS_NIL(T7, FiBool, (FiPtr) P1_l2)((T7) = (FiBool)((FiPtr) ((FiPtr) P1_l2) == (FiPtr) 0));
2481	if (T7) goto L7;
2482	T4 = ((PFmt10) P1_l2)->X0_first;
2483	if (T6) goto L8;
2484	T5 = ((PFmt10) P0_l1)->X0_first;
2485	if ((FiBool) fiCCall2(FiWord, l1->X45__TILDE__EQ_, T5, T4)((((FiWord ()())(l1->X45__TILDE__EQ_)->prog->fun)) ((l1->X45__TILDE__EQ_)->env,T5,T4))) goto L4;
2486	T3 = ((PFmt10) P0_l1)->X1_rest;
2487	P0_l1 = T3;
2488	T2 = ((PFmt10) P1_l2)->X1_rest;
2489	P1_l2 = T2;
2490	goto L0;
2491	L4: return (FiWord) 0L;
2492	L8: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
2493	fputc((FiWord) 10L, stdoutFile());
2494	fiHalt((FiSInt) 0L);
2495	return (FiWord) 0L;
2496	L7: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
2497	fputc((FiWord) 10L, stdoutFile());
2498	fiHalt((FiSInt) 0L);
2499	return (FiWord) 0L;
2500	L2: T0 = 0L;
2501	goto L3;
2502	}
2503
2504	static struct _FiProg tmp57__EQ_ = {
2505	(FiFun) CF57__EQ_,
2506	0L,
2507	0L,
2508	0L,
2509	0L
2510	};
2511
2512
2513	static FiWord
2514	CF58__TILDE__EQ_(FiEnv e1, FiWord P0_l1, FiWord P1_l2)
2515	{
2516	fputs((FiWord) "no equality on this object", stdoutFile());
2517	fputc((FiWord) 10L, stdoutFile());
2518	fiHalt((FiSInt) 0L);
2519	return (FiWord) 0L;
2520	}
2521
2522	static struct _FiProg tmp58__TILDE__EQ_ = {
2523	(FiFun) CF58__TILDE__EQ_,
2524	0L,
2525	0L,
2526	0L,
2527	0L
2528	};
2529
2530
2531	static FiWord
2532	CF59__LT__LT_(FiEnv e1, FiWord P0_p, FiWord P1_l)
2533	{
2534	FiBool T18, T19;
2535	FiWord T0, T13, T14, T15, T16, T17_ll;
2536	FiClos T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12;
2537	PFmt18 l1;
2538	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
2539	fiPTR_IS_NIL(T18, FiBool, (FiPtr) P1_l)((T18) = (FiBool)((FiPtr) ((FiPtr) P1_l) == (FiPtr) 0));
2540	if (T18) goto L0;
2541	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
2542	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T4, &T5, &T6);
2543	fiCCall3(FiWord, T5, (FiWord) "list(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T5)->prog->fun))((T5)->env,(FiWord ) "list(",(FiWord) 1L,(FiWord) 0L));
2544	T14 = ((PFmt10) P1_l)->X0_first;
2545	fiCCall2(FiWord, l1->X46__LT__LT_, P0_p, T14)((((FiWord ()())(l1->X46__LT__LT_)->prog->fun))((l1 ->X46__LT__LT_)->env,P0_p,T14));
2546	T13 = ((PFmt10) P1_l)->X1_rest;
2547	T17_ll = T13;
2548	L2: fiEnvEnsure(((PFmt18) fiEnvLevel0(l1->X7_generator->env))->fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env)
2549	X8_test->env)fiEnvEnsureFun(((PFmt18) (((FiEnv)(l1->X7_generator->env ))->level))-> X8_test->env);
2550	fiPTR_IS_NIL(T19, FiBool, (FiPtr) T17_ll)((T19) = (FiBool)((FiPtr) ((FiPtr) T17_ll) == (FiPtr) 0));
2551	if (T19) goto L3;
2552	T16 = ((PFmt10) T17_ll)->X0_first;
2553	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
2554	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T1, &T2, &T3);
2555	fiCCall3(FiWord, T2, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T2)->prog->fun))((T2)->env,(FiWord ) ", ",(FiWord) 1L,(FiWord) 0L));
2556	fiCCall2(FiWord, l1->X46__LT__LT_, P0_p, T16)((((FiWord ()())(l1->X46__LT__LT_)->prog->fun))((l1 ->X46__LT__LT_)->env,P0_p,T16));
2557	T15 = ((PFmt10) T17_ll)->X1_rest;
2558	T17_ll = T15;
2559	goto L2;
2560	L3: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
2561	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T10, &T11, &T12);
2562	fiCCall3(FiWord, T11, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T11)->prog->fun))((T11)->env,(FiWord ) ")",(FiWord) 1L,(FiWord) 0L));
2563	T0 = P0_p;
2564	L1: return T0;
2565	L0: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
2566	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T7, &T8, &T9);
2567	fiCCall3(FiWord, T8, (FiWord) "list()", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T8)->prog->fun))((T8)->env,(FiWord ) "list()",(FiWord) 1L,(FiWord) 0L));
2568	T0 = P0_p;
2569	goto L1;
2570	}
2571
2572	static struct _FiProg tmp59__LT__LT_ = {
2573	(FiFun) CF59__LT__LT_,
2574	0L,
2575	0L,
2576	0L,
2577	0L
2578	};
2579
2580
2581	static FiWord
2582	CF60_FakedConditionalOperation(FiEnv e1, FiWord P0_S)
2583	{
2584	FiBool T3, T5;
2585	FiWord *T0, T2, T4;
2586	PFmt5 T1;
2587	PFmt21 l0;
2588	FiEnv e0;
2589	PFmt23 l1;
2590	l0 = fi0New(struct Fmt21 , CENSUS_EnvLevel)((struct Fmt21 *) fi0Alloc(sizeof(struct Fmt21), (19)));
2591	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2592	l1 = (PFmt23) fiEnvLevel(e1)((FiEnv) (e1)->level);
2593	l0->X0_S = P0_S;
2594	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
2595	T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2596	T1->X0_size = 1L;
2597	T1->X1_values = (FiWord*) T0;
2598	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X5)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X5) == (FiPtr) 0));
2599	if (T5) goto L3;
2600	L1: T0[0L] = l0->X0_S;
2601	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
2602	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
2603	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X5, (FiWord) (
2604	FiWord) T1, &T2, &T4);
2605	T3 = (FiBool) T4;
2606	if (T3) goto L0;
2607	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C61_addLevel0))))
2608	C61_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C61_addLevel0))));
2609	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X5, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X5,(FiWord) T1,T2))
2610	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X5,(FiWord) T1,T2));
2611	L0: return T2;
2612	L3: l1->X5 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
2613	goto L1;
2614	}
2615
2616	static struct _FiProg tmp60_FakedConditionalOperatio = {
2617	(FiFun) CF60_FakedConditionalOperation,
2618	0L,
2619	0L,
2620	0L,
2621	0L
2622	};
2623
2624
2625	static FiClos
2626	CF61_addLevel0(FiEnv e1, FiWord P0_domain)
2627	{
2628	FiSInt T1, T2;
2629	FiWord T0;
2630	FiEnv e0;
2631	PFmt21 l1;
2632	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2633	l1 = (PFmt21) fiEnvLevel(e1)((FiEnv) (e1)->level);
2634	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "FakedConditionalOperations",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"FakedConditionalOperations" ,l1->X0_S))
2635	l1->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"FakedConditionalOperations" ,l1->X0_S));
2636	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
2637	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));
2638	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 235839005L)((T1) = (FiSInt) fiSIntHashCombine(T2, 235839005L));
2639	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
2640	return fiClosMake(e0, C62_addLevel1)fiClosMakeFun(e0, (FiProg) (C62_addLevel1));
2641	}
2642
2643	static struct _FiProg tmp61_addLevel0 = {
2644	(FiFun) CF61_addLevel0,
2645	0L,
2646	0L,
2647	0L,
2648	0L
2649	};
2650
2651
2652	static FiWord
2653	CF62_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
2654	{
2655	FiSInt T6, T7, T8, T9;
2656	PFmt7 T3, T4, T5;
2657	FiWord T0, T1, *T2;
2658	PFmt20 l0;
2659	FiEnv e2, e0;
2660	PFmt21 l2;
2661	l0 = fi0New(struct Fmt20 , CENSUS_EnvLevel)((struct Fmt20 *) fi0Alloc(sizeof(struct Fmt20), (19)));
2662	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2663	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
2664	l2 = (PFmt21) fiEnvLevel(e2)((FiEnv) (e2)->level);
2665	fiARRNEW_Word(T0, FiWord, 4L)((T0) = (FiWord) fiArrNew_Word(4L));
2666	fiARRNEW_Word(T1, FiWord, 4L)((T1) = (FiWord) fiArrNew_Word(4L));
2667	fiARRNEW_Word(T2, FiWord, 4L)((T2) = (FiWord) fiArrNew_Word(4L));
2668	l0->X4 = (FiSInt) P1_hashcode;
2669	l0->X3__EQ_ = fiClosMake(e0, C63__EQ_)fiClosMakeFun(e0, (FiProg) (C63__EQ_));
2670	l0->X2__TILDE__EQ_ = fiClosMake(e0, C64__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C64__TILDE__EQ_));
2671	l0->X1_member_QMARK_ = fiClosMake(e0, C65_member_QMARK_)fiClosMakeFun(e0, (FiProg) (C65_member_QMARK_));
2672	l0->X0__LT__LT_ = fiClosMake(e0, C66__LT__LT_)fiClosMakeFun(e0, (FiProg) (C66__LT__LT_));
2673	T9 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l2->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l2->X0_S));
2674	fiSINT_HASHCOMBINE(T6, FiSInt, 740244383L, fiSIntHashCombine((FiSInt)((T6) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) fiSIntHashCombine((FiSInt) l0->X4, (FiSInt) 51489085L )))))
2675	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X4, (FiSInt)((T6) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) fiSIntHashCombine((FiSInt) l0->X4, (FiSInt) 51489085L )))))
2676	fiSIntHashCombine((FiSInt) l0->X4, (FiSInt) 51489085L))))((T6) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) fiSIntHashCombine((FiSInt) l0->X4, (FiSInt) 51489085L )))));
2677	fiSINT_HASHCOMBINE(T7, FiSInt, 740244383L, fiSIntHashCombine((FiSInt)((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) fiSIntHashCombine((FiSInt) T9, (FiSInt) 51489085L )))))
2678	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X4, (FiSInt)((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) fiSIntHashCombine((FiSInt) T9, (FiSInt) 51489085L )))))
2679	fiSIntHashCombine((FiSInt) T9, (FiSInt) 51489085L))))((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) fiSIntHashCombine((FiSInt) T9, (FiSInt) 51489085L )))));
2680	fiSINT_HASHCOMBINE(T8, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) 102896482L))))
2681	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X4, (FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) 102896482L))))
2682	102896482L)))((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X4, (FiSInt) 102896482L))));
2683	T3 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
2684	T3->X0_size = 4L;
2685	T3->X1_nsize = 4L;
2686	T3->X2_values = (FiWord) T0;
2687	T4 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
2688	T4->X0_size = 4L;
2689	T4->X1_nsize = 4L;
2690	T4->X2_values = (FiWord) T1;
2691	T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
2692	T5->X0_size = 4L;
2693	T5->X1_nsize = 4L;
2694	T5->X2_values = (FiWord) T2;
2695	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) );
2696	T0[0L] = (FiWord) 200102L;
2697	T1[0L] = (FiWord) T6;
2698	T2[0L] = (FiWord) l0->X3__EQ_;
2699	T0[1L] = (FiWord) 51509389L;
2700	T1[1L] = (FiWord) T6;
2701	T2[1L] = (FiWord) l0->X2__TILDE__EQ_;
2702	T0[2L] = (FiWord) 1065723030L;
2703	T1[2L] = (FiWord) T7;
2704	T2[2L] = (FiWord) l0->X1_member_QMARK_;
2705	T0[3L] = (FiWord) 51492426L;
2706	T1[3L] = (FiWord) T8;
2707	T2[3L] = (FiWord) l0->X0__LT__LT_;
2708	return P0_domain;
2709	}
2710
2711	static struct _FiProg tmp62_addLevel1 = {
2712	(FiFun) CF62_addLevel1,
2713	0L,
2714	0L,
2715	0L,
2716	0L
2717	};
2718
2719
2720	static FiWord
2721	CF63__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)
2722	{
2723	fputs((FiWord) "no equality on this object", stdoutFile());
2724	fputc((FiWord) 10L, stdoutFile());
2725	fiHalt((FiSInt) 0L);
2726	return (FiWord) 0L;
2727	}
2728
2729	static struct _FiProg tmp63__EQ_ = {
2730	(FiFun) CF63__EQ_,
2731	0L,
2732	0L,
2733	0L,
2734	0L
2735	};
2736
2737
2738	static FiWord
2739	CF64__TILDE__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)
2740	{
2741	fputs((FiWord) "no equality on this object", stdoutFile());
2742	fputc((FiWord) 10L, stdoutFile());
2743	fiHalt((FiSInt) 0L);
2744	return (FiWord) 0L;
2745	}
2746
2747	static struct _FiProg tmp64__TILDE__EQ_ = {
2748	(FiFun) CF64__TILDE__EQ_,
2749	0L,
2750	0L,
2751	0L,
2752	0L
2753	};
2754
2755
2756	static FiWord
2757	CF65_member_QMARK_(FiEnv e1, FiWord P0_a, FiWord P1_b)
2758	{
2759	fputs((FiWord) "no member\? on this object", stdoutFile());
2760	fputc((FiWord) 10L, stdoutFile());
2761	fiHalt((FiSInt) 0L);
2762	return (FiWord) 0L;
2763	}
2764
2765	static struct _FiProg tmp65_member_QMARK_ = {
2766	(FiFun) CF65_member_QMARK_,
2767	0L,
2768	0L,
2769	0L,
2770	0L
2771	};
2772
2773
2774	static FiWord
2775	CF66__LT__LT_(FiEnv e1, FiWord P0_p, FiWord P1_a)
2776	{
2777	FiClos T0, T1, T2;
2778	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
2779	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);
2780	fiCCall3(FiWord, T1, (FiWord) "<unprintable>", (FiWord) 1L, (FiWord)((((FiWord ()())(T1)->prog->fun))((T1)->env,(FiWord ) "<unprintable>",(FiWord) 1L,(FiWord) 0L))
2781	0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,(FiWord ) "<unprintable>",(FiWord) 1L,(FiWord) 0L));
2782	return P0_p;
2783	}
2784
2785	static struct _FiProg tmp66__LT__LT_ = {
2786	(FiFun) CF66__LT__LT_,
2787	0L,
2788	0L,
2789	0L,
2790	0L
2791	};
2792
2793
2794	static FiWord
2795	CF67_lang_MINUS_init(FiEnv e1, FiSInt P0_idx)
2796	{
2797	PFmt23 l1;
2798	l1 = (PFmt23) fiEnvLevel(e1)((FiEnv) (e1)->level);
2799	if (l1->X6) goto L0;
2800	l1->X6 = 1L;
2801	fiCCall0(void, (pG_8KYHF_lang))((((void ()())((pG_8KYHF_lang))->prog->fun))(((*pG_8KYHF_lang ))->env));
2802	L0: return (FiWord) (*pG_QLPQP_lang__Record__7998562);
2803	}
2804
2805	static struct _FiProg tmp67_lang_MINUS_init = {
2806	(FiFun) CF67_lang_MINUS_init,
2807	0L,
2808	0L,
2809	0L,
2810	0L
2811	};
2812
2813
2814	static FiWord
2815	CF68_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx)
2816	{
2817	PFmt23 l1;
2818	l1 = (PFmt23) fiEnvLevel(e1)((FiEnv) (e1)->level);
2819	if (l1->X7) goto L0;
2820	l1->X7 = 1L;
2821	fiCCall0(void, (pG_H8TZ5_foamcat))((((void ()())((pG_H8TZ5_foamcat))->prog->fun))(((*pG_H8TZ5_foamcat ))->env));
2822	L0: if (P0_idx != 2L) goto L1;
2823	return (FiWord) (*pG_WJ80M_foamcat__BasicType__9);
2824	L1: if (P0_idx != 1L) goto L2;
2825	return (FiWord) (*pG_7CR7Y_foamcat__Conditional);
2826	L2: return (FiWord) (*pG_VZ3O8_foamcat__FiniteLinear);
2827	}
2828
2829	static struct _FiProg tmp68_foamcat_MINUS_init = {
2830	(FiFun) CF68_foamcat_MINUS_init,
2831	0L,
2832	0L,
2833	0L,
2834	0L
2835	};
2836
2837	extern int
2838	INIT__0_list()
2839	{
2840
2841	extern int INIT__0_rtexns();
2842	extern int INIT__0_foamcat();
2843	extern int INIT__0_lang();
2844	extern int INIT__0_runtime();
2845	static int initialized = 0;
2846	if (initialized)
2847	return 0L;
2848	else
2849	initialized = 1;
2850	C1_ListCategory = &tmp1_ListCategory;
2851	C2_defhash0 = &tmp2_defhash0;
2852	C3_ListCategory = &tmp3_ListCategory;
2853	C4_List = &tmp4_List;
2854	C5_addLevel0 = &tmp5_addLevel0;
2855	C6_addLevel1 = &tmp6_addLevel1;
2856	C7_rec = &tmp7_rec;
2857	C8_empty_QMARK_ = &tmp8_empty_QMARK_;
2858	C9__SHARP_ = &tmp9__SHARP_;
2859	C10_nil = &tmp10_nil;
2860	C11_empty = &tmp11_empty;
2861	C12_cons = &tmp12_cons;
2862	C13_list = &tmp13_list;
2863	C14_list = &tmp14_list;
2864	C15_map = &tmp15_map;
2865	C16_map = &tmp16_map;
2866	C17_first = &tmp17_first;
2867	C18_rest = &tmp18_rest;
2868	C19_setFirst_BANG_ = &tmp19_setFirst_BANG_;
2869	C20_setRest_BANG_ = &tmp20_setRest_BANG_;
2870	C21_apply = &tmp21_apply;
2871	C22_apply = &tmp22_apply;
2872	C23_set_BANG_ = &tmp23_set_BANG_;
2873	C24_set_BANG_ = &tmp24_set_BANG_;
2874	C25_tail = &tmp25_tail;
2875	C26_last = &tmp26_last;
2876	C27_copy = &tmp27_copy;
2877	C28_reverse = &tmp28_reverse;
2878	C29_reverse_BANG_ = &tmp29_reverse_BANG_;
2879	C30_concat_BANG_ = &tmp30_concat_BANG_;
2880	C31_concat = &tmp31_concat;
2881	C32_reduce = &tmp32_reduce;
2882	C33_apply = &tmp33_apply;
2883	C34_rest = &tmp34_rest;
2884	C35_test = &tmp35_test;
2885	C36_generator = &tmp36_generator;
2886	C37_generBaseFn = &tmp37_generBaseFn;
2887	C38_generStepper = &tmp38_generStepper;
2888	C39_generDone_QMARK_ = &tmp39_generDone_QMARK_;
2889	C40_generValue = &tmp40_generValue;
2890	C41_generBound = &tmp41_generBound;
2891	C42_tails = &tmp42_tails;
2892	C43_generBaseFn = &tmp43_generBaseFn;
2893	C44_generStepper = &tmp44_generStepper;
2894	C45_generDone_QMARK_ = &tmp45_generDone_QMARK_;
2895	C46_generValue = &tmp46_generValue;
2896	C47_generBound = &tmp47_generBound;
2897	C48_bracket = &tmp48_bracket;
2898	C49_bracket = &tmp49_bracket;
2899	C50_disposeHead_BANG_ = &tmp50_disposeHead_BANG_;
2900	C51_dispose_BANG_ = &tmp51_dispose_BANG_;
2901	C52__LT__LT_ = &tmp52__LT__LT_;
2902	C53__LT__LT_ = &tmp53__LT__LT_;
2903	C54_hash = &tmp54_hash;
2904	C55_case = &tmp55_case;
2905	C56_member_QMARK_ = &tmp56_member_QMARK_;
2906	C57__EQ_ = &tmp57__EQ_;
2907	C58__TILDE__EQ_ = &tmp58__TILDE__EQ_;
2908	C59__LT__LT_ = &tmp59__LT__LT_;
2909	C60_FakedConditionalOperations = &tmp60_FakedConditionalOperatio;
2910	C61_addLevel0 = &tmp61_addLevel0;
2911	C62_addLevel1 = &tmp62_addLevel1;
2912	C63__EQ_ = &tmp63__EQ_;
2913	C64__TILDE__EQ_ = &tmp64__TILDE__EQ_;
2914	C65_member_QMARK_ = &tmp65_member_QMARK_;
2915	C66__LT__LT_ = &tmp66__LT__LT_;
2916	C67_lang_MINUS_init = &tmp67_lang_MINUS_init;
2917	C68_foamcat_MINUS_init = &tmp68_foamcat_MINUS_init;
2918	C0_list = &tmp0_list;
2919	fiExportGlobal("G_AREZX_list", G_AREZX_list)fiExportGlobalFun("G_AREZX_list", (Ptr) &G_AREZX_list, sizeof (G_AREZX_list));
2920	fiExportGlobal("G_MGQ8S_list__FakedConditional",fiExportGlobalFun("G_MGQ8S_list__FakedConditional", (Ptr) & G_MGQ8S_list__FakedConditional, sizeof(G_MGQ8S_list__FakedConditional ))
2921	G_MGQ8S_list__FakedConditional)fiExportGlobalFun("G_MGQ8S_list__FakedConditional", (Ptr) & G_MGQ8S_list__FakedConditional, sizeof(G_MGQ8S_list__FakedConditional ));
2922	fiExportGlobal("G_QK9WE_list__List__655655889",fiExportGlobalFun("G_QK9WE_list__List__655655889", (Ptr) & G_QK9WE_list__List__655655889, sizeof(G_QK9WE_list__List__655655889 ))
2923	G_QK9WE_list__List__655655889)fiExportGlobalFun("G_QK9WE_list__List__655655889", (Ptr) & G_QK9WE_list__List__655655889, sizeof(G_QK9WE_list__List__655655889 ));
2924	fiExportGlobal("G_ZH4RR_list__ListCategory__77",fiExportGlobalFun("G_ZH4RR_list__ListCategory__77", (Ptr) & G_ZH4RR_list__ListCategory__77, sizeof(G_ZH4RR_list__ListCategory__77 ))
2925	G_ZH4RR_list__ListCategory__77)fiExportGlobalFun("G_ZH4RR_list__ListCategory__77", (Ptr) & G_ZH4RR_list__ListCategory__77, sizeof(G_ZH4RR_list__ListCategory__77 ));
2926	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
2927	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
2928	fiImportGlobal("G_KAC1B_rtCacheExplicitMake",fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) & pG_KAC1B_rtCacheExplicitMake)
2929	pG_KAC1B_rtCacheExplicitMake)fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) & pG_KAC1B_rtCacheExplicitMake);
2930	fiImportGlobal("G_759EG_rtCacheCheck", pG_759EG_rtCacheCheck)fiImportGlobalFun("G_759EG_rtCacheCheck", (Ptr *) &pG_759EG_rtCacheCheck );
2931	fiImportGlobal("G_LD0B5_domainHash_BANG_", pG_LD0B5_domainHash_BANG_)fiImportGlobalFun("G_LD0B5_domainHash_BANG_", (Ptr *) &pG_LD0B5_domainHash_BANG_ );
2932	fiImportGlobal("G_WXLY5_categoryAddExports",fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports)
2933	pG_WXLY5_categoryAddExports)fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports);
2934	fiImportGlobal("G_VZ3O8_foamcat__FiniteLinearA",fiImportGlobalFun("G_VZ3O8_foamcat__FiniteLinearA", (Ptr *) & pG_VZ3O8_foamcat__FiniteLinear)
2935	pG_VZ3O8_foamcat__FiniteLinear)fiImportGlobalFun("G_VZ3O8_foamcat__FiniteLinearA", (Ptr *) & pG_VZ3O8_foamcat__FiniteLinear);
2936	fiImportGlobal("G_RSHLY_rtDelayedInit_BANG_",fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) & pG_RSHLY_rtDelayedInit_BANG_)
2937	pG_RSHLY_rtDelayedInit_BANG_)fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) & pG_RSHLY_rtDelayedInit_BANG_);
2938	fiImportGlobal("G_ZZZKG_stdGetWordRetWord0",fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) & pG_ZZZKG_stdGetWordRetWord0)
2939	pG_ZZZKG_stdGetWordRetWord0)fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) & pG_ZZZKG_stdGetWordRetWord0);
2940	fiImportGlobal("G_7CR7Y_foamcat__Conditional__",fiImportGlobalFun("G_7CR7Y_foamcat__Conditional__", (Ptr *) & pG_7CR7Y_foamcat__Conditional)
2941	pG_7CR7Y_foamcat__Conditional)fiImportGlobalFun("G_7CR7Y_foamcat__Conditional__", (Ptr *) & pG_7CR7Y_foamcat__Conditional);
2942	fiImportGlobal("G_NOX7X_rtLazyCatFrInit", pG_NOX7X_rtLazyCatFrInit)fiImportGlobalFun("G_NOX7X_rtLazyCatFrInit", (Ptr *) &pG_NOX7X_rtLazyCatFrInit );
2943	fiImportGlobal("G_YXGL3_categoryAddParents",fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents)
2944	pG_YXGL3_categoryAddParents)fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents);
2945	fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport)
2946	pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport);
2947	fiImportGlobal("G_DLXW8_stdGetWordWordRetWord0",fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) & pG_DLXW8_stdGetWordWordRetWord)
2948	pG_DLXW8_stdGetWordWordRetWord)fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) & pG_DLXW8_stdGetWordWordRetWord);
2949	fiImportGlobal("G_8AMPD_rtSingleParamNameFn",fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) & pG_8AMPD_rtSingleParamNameFn)
2950	pG_8AMPD_rtSingleParamNameFn)fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) & pG_8AMPD_rtSingleParamNameFn);
2951	fiImportGlobal("G_GOVLL_categoryMake", pG_GOVLL_categoryMake)fiImportGlobalFun("G_GOVLL_categoryMake", (Ptr *) &pG_GOVLL_categoryMake );
2952	fiImportGlobal("G_PV28S_rtCacheAdd", pG_PV28S_rtCacheAdd)fiImportGlobalFun("G_PV28S_rtCacheAdd", (Ptr *) &pG_PV28S_rtCacheAdd );
2953	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
2954	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
2955	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
2956	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
2957	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
2958	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
2959	fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch)
2960	pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch);
2961	fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults)
2962	pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults);
2963	fiImportGlobal("G_LKD03_domainAddParents_BANG_",fiImportGlobalFun("G_LKD03_domainAddParents_BANG_", (Ptr *) & pG_LKD03_domainAddParents)
2964	pG_LKD03_domainAddParents)fiImportGlobalFun("G_LKD03_domainAddParents_BANG_", (Ptr *) & pG_LKD03_domainAddParents);
2965	fiImportGlobal("G_BEY7_domainMakeDummy", pG_BEY7_domainMakeDummy)fiImportGlobalFun("G_BEY7_domainMakeDummy", (Ptr *) &pG_BEY7_domainMakeDummy );
2966	fiImportGlobal("G_AK1EB_domainFill_BANG_", pG_AK1EB_domainFill_BANG_)fiImportGlobalFun("G_AK1EB_domainFill_BANG_", (Ptr *) &pG_AK1EB_domainFill_BANG_ );
2967	fiImportGlobal("G_QLPQP_lang__Record__79985624",fiImportGlobalFun("G_QLPQP_lang__Record__79985624", (Ptr *) & pG_QLPQP_lang__Record__7998562)
2968	pG_QLPQP_lang__Record__7998562)fiImportGlobalFun("G_QLPQP_lang__Record__79985624", (Ptr *) & pG_QLPQP_lang__Record__7998562);
2969	fiImportGlobal("G_RSCGM_domainTestExport_BANG_",fiImportGlobalFun("G_RSCGM_domainTestExport_BANG_", (Ptr *) & pG_RSCGM_domainTestExport)
2970	pG_RSCGM_domainTestExport)fiImportGlobalFun("G_RSCGM_domainTestExport_BANG_", (Ptr *) & pG_RSCGM_domainTestExport);
2971	fiImportGlobal("G_WJ80M_foamcat__BasicType__90",fiImportGlobalFun("G_WJ80M_foamcat__BasicType__90", (Ptr *) & pG_WJ80M_foamcat__BasicType__9)
2972	pG_WJ80M_foamcat__BasicType__9)fiImportGlobalFun("G_WJ80M_foamcat__BasicType__90", (Ptr *) & pG_WJ80M_foamcat__BasicType__9);
2973	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
2974	fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings );
2975	fiImportGlobal("G_8KYHF_lang", pG_8KYHF_lang)fiImportGlobalFun("G_8KYHF_lang", (Ptr *) &pG_8KYHF_lang);
2976	fiImportGlobal("G_H8TZ5_foamcat", pG_H8TZ5_foamcat)fiImportGlobalFun("G_H8TZ5_foamcat", (Ptr *) &pG_H8TZ5_foamcat );
2977	if (fiFileInitializer) {
2978	fiFileInitializer("rtexns");
2979	fiFileInitializer("foamcat");
2980	fiFileInitializer("lang");
2981	fiFileInitializer("runtime");
2982	}
2983	else {
2984	INIT__0_rtexns();
2985	INIT__0_foamcat();
2986	INIT__0_lang();
2987	INIT__0_runtime();
2988	}
2989	/* "---------------------------" */
2990	return 0L;
2991	}
2992
2993	FiClos G_ZH4RR_list__ListCategory__77;
2994	FiClos G_QK9WE_list__List__655655889;
2995	FiClos G_MGQ8S_list__FakedConditional;
2996
2997	static struct _FiClos tmpClos0_list = {
2998	0L,
2999	(FiProg) &tmp0_list
3000	};
3001	FiClos G_AREZX_list = &tmpClos0_list;