al/lang.c

Bug Summary

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

1	/*
2	* C code generated by Aldor from file "lang.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	typedef struct Fmt30 *PFmt30;
33	typedef struct Fmt31 *PFmt31;
34	typedef struct Fmt32 *PFmt32;
35	typedef struct Fmt33 *PFmt33;
36	typedef struct Fmt34 *PFmt34;
37	typedef struct Fmt35 *PFmt35;
38	typedef struct Fmt36 *PFmt36;
39	typedef struct Fmt37 *PFmt37;
40	typedef struct Fmt38 *PFmt38;
41	typedef struct Fmt39 *PFmt39;
42	struct Fmt5 {
43	FiSInt X0_size;
44	FiSInt X1_nsize;
45	FiWord X2_values;
46	};
47	struct Fmt6 {
48	FiPtr X0_empty;
49	};
50	struct Fmt7 {
51	FiPtr X0_empty;
52	};
53	struct Fmt8 {
54	FiSInt X0_size;
55	FiWord *X1_values;
56	};
57	struct Fmt9 {
58	FiWord X0_found;
59	FiWord X1_value;
60	};
61	struct Fmt10 {
62	FiPtr X0_empty;
63	};
64	struct Fmt11 {
65	FiWord X0_A;
66	FiWord X1_R;
67	};
68	struct Fmt12 {
69	FiPtr X0_empty;
70	};
71	struct Fmt13 {
72	FiWord X0_A;
73	FiWord X1_R;
74	};
75	struct Fmt14 {
76	FiPtr X0_empty;
77	};
78	struct Fmt15 {
79	FiWord X0_T;
80	};
81	struct Fmt16 {
82	FiPtr X0_empty;
83	};
84	struct Fmt17 {
85	FiWord X0_T;
86	};
87	struct Fmt18 {
88	FiPtr X0_empty;
89	};
90	struct Fmt19 {
91	FiWord X0_T;
92	};
93	struct Fmt20 {
94	FiPtr X0_empty;
95	};
96	struct Fmt21 {
97	FiWord X0_T;
98	};
99	struct Fmt22 {
100	FiPtr X0_empty;
101	};
102	struct Fmt23 {
103	FiWord X0_T;
104	};
105	struct Fmt24 {
106	FiPtr X0_empty;
107	};
108	struct Fmt25 {
109	FiWord X0_I;
110	FiWord X1_A;
111	};
112	struct Fmt26 {
113	FiPtr X0_empty;
114	};
115	struct Fmt27 {
116	FiWord X0_T;
117	};
118	struct Fmt28 {
119	FiPtr X0_empty;
120	};
121	struct Fmt29 {
122	FiPtr X0_empty;
123	};
124	struct Fmt30 {
125	FiWord X0_T;
126	};
127	struct Fmt31 {
128	FiPtr X0_empty;
129	};
130	struct Fmt32 {
131	FiWord X0_T;
132	};
133	struct Fmt33 {
134	FiPtr X0_empty;
135	};
136	struct Fmt34 {
137	FiPtr X0_empty;
138	};
139	struct Fmt35 {
140	FiPtr X0_empty;
141	};
142	struct Fmt36 {
143	FiPtr X0_empty;
144	};
145	struct Fmt37 {
146	FiPtr X0_empty;
147	};
148	struct Fmt38 {
149	FiWord X0_T;
150	};
151	struct Fmt39 {
152	FiWord X0;
153	FiWord X1;
154	FiWord X2;
155	FiWord X3;
156	FiWord X4;
157	FiWord X5;
158	FiWord X6;
159	FiWord X7;
160	FiWord X8;
161	FiWord X9;
162	FiWord X10;
163	FiWord X11;
164	};
165	static FiProg C0_lang;
166	static void CF0_lang(FiEnv e1);
167	static FiProg C1_addLevel0;
168	static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
169	static FiProg C2_addLevel1;
170	static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
171	static FiProg C3_addLevel0;
172	static FiClos CF3_addLevel0(FiEnv e1, FiWord P0_domain);
173	static FiProg C4_addLevel1;
174	static FiWord CF4_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
175	static FiProg C5__MINUS__GT_;
176	static FiWord CF5__MINUS__GT_(FiEnv e1, FiWord P0_A, FiWord P1_R);
177	static FiProg C6_addLevel0;
178	static FiClos CF6_addLevel0(FiEnv e1, FiWord P0_domain);
179	static FiProg C7_addNameFn;
180	static FiWord CF7_addNameFn(FiEnv e1);
181	static FiProg C8_addLevel1;
182	static FiWord CF8_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
183	static FiProg C9__MINUS__GT__STAR_;
184	static FiWord CF9__MINUS__GT__STAR_(FiEnv e1, FiWord P0_A, FiWord P1_R);
185	static FiProg C10_addLevel0;
186	static FiClos CF10_addLevel0(FiEnv e1, FiWord P0_domain);
187	static FiProg C11_addNameFn;
188	static FiWord CF11_addNameFn(FiEnv e1);
189	static FiProg C12_addLevel1;
190	static FiWord CF12_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
191	static FiProg C13_Tuple;
192	static FiWord CF13_Tuple(FiEnv e1, FiWord P0_T);
193	static FiProg C14_addLevel0;
194	static FiClos CF14_addLevel0(FiEnv e1, FiWord P0_domain);
195	static FiProg C15_addLevel1;
196	static FiWord CF15_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
197	static FiProg C16_Cross;
198	static FiWord CF16_Cross(FiEnv e1, FiWord P0_T);
199	static FiProg C17_addLevel0;
200	static FiClos CF17_addLevel0(FiEnv e1, FiWord P0_domain);
201	static FiProg C18_addNameFn;
202	static FiWord CF18_addNameFn(FiEnv e1);
203	static FiProg C19_addLevel1;
204	static FiWord CF19_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
205	static FiProg C20_Record;
206	static FiWord CF20_Record(FiEnv e1, FiWord P0_T);
207	static FiProg C21_addLevel0;
208	static FiClos CF21_addLevel0(FiEnv e1, FiWord P0_domain);
209	static FiProg C22_addNameFn;
210	static FiWord CF22_addNameFn(FiEnv e1);
211	static FiProg C23_addLevel1;
212	static FiWord CF23_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
213	static FiProg C24_Union;
214	static FiWord CF24_Union(FiEnv e1, FiWord P0_T);
215	static FiProg C25_addLevel0;
216	static FiClos CF25_addLevel0(FiEnv e1, FiWord P0_domain);
217	static FiProg C26_addNameFn;
218	static FiWord CF26_addNameFn(FiEnv e1);
219	static FiProg C27_addLevel1;
220	static FiWord CF27_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
221	static FiProg C28_Enumeration;
222	static FiWord CF28_Enumeration(FiEnv e1, FiWord P0_T);
223	static FiProg C29_addLevel0;
224	static FiClos CF29_addLevel0(FiEnv e1, FiWord P0_domain);
225	static FiProg C30_addNameFn;
226	static FiWord CF30_addNameFn(FiEnv e1);
227	static FiProg C31_addLevel1;
228	static FiWord CF31_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
229	static FiProg C32_TrailingArray;
230	static FiWord CF32_TrailingArray(FiEnv e1, FiWord P0_I, FiWord P1_A);
231	static FiProg C33_addLevel0;
232	static FiClos CF33_addLevel0(FiEnv e1, FiWord P0_domain);
233	static FiProg C34_addNameFn;
234	static FiWord CF34_addNameFn(FiEnv e1);
235	static FiProg C35_addLevel1;
236	static FiWord CF35_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
237	static FiProg C36_Join;
238	static FiWord CF36_Join(FiEnv e1, FiWord P0_T);
239	static FiProg C37_defhash0;
240	static FiSInt CF37_defhash0(FiEnv e1);
241	static FiProg C38_Join;
242	static void CF38_Join(FiEnv e1, FiWord P0_self, FiWord P1_dom);
243	static FiProg C39_addNameFn;
244	static FiWord CF39_addNameFn(FiEnv e1);
245	static FiProg C40_addLevel0;
246	static FiClos CF40_addLevel0(FiEnv e1, FiWord P0_domain);
247	static FiProg C41_addLevel1;
248	static FiWord CF41_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
249	static FiProg C42_Generator;
250	static FiWord CF42_Generator(FiEnv e1, FiWord P0_T);
251	static FiProg C43_addLevel0;
252	static FiClos CF43_addLevel0(FiEnv e1, FiWord P0_domain);
253	static FiProg C44_addLevel1;
254	static FiWord CF44_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
255	static FiProg C45_Ref;
256	static FiWord CF45_Ref(FiEnv e1, FiWord P0_T);
257	static FiProg C46_addLevel0;
258	static FiClos CF46_addLevel0(FiEnv e1, FiWord P0_domain);
259	static FiProg C47_addLevel1;
260	static FiWord CF47_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
261	static FiProg C48_addLevel0;
262	static FiClos CF48_addLevel0(FiEnv e1, FiWord P0_domain);
263	static FiProg C49_addLevel1;
264	static FiWord CF49_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
265	static FiProg C50_addLevel0;
266	static FiClos CF50_addLevel0(FiEnv e1, FiWord P0_domain);
267	static FiProg C51_addLevel1;
268	static FiWord CF51_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
269	static FiProg C52_addLevel0;
270	static FiClos CF52_addLevel0(FiEnv e1, FiWord P0_domain);
271	static FiProg C53_addLevel1;
272	static FiWord CF53_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
273	static FiProg C54_addLevel0;
274	static FiClos CF54_addLevel0(FiEnv e1, FiWord P0_domain);
275	static FiProg C55_addLevel1;
276	static FiWord CF55_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
277	static FiProg C56_Foreign;
278	static FiWord CF56_Foreign(FiEnv e1, FiWord P0_T);
279	static FiProg C57_addLevel0;
280	static FiClos CF57_addLevel0(FiEnv e1, FiWord P0_domain);
281	static FiProg C58_addLevel1;
282	static FiWord CF58_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
283	extern FiClos G_8KYHF_lang;
284	static FiClos *pG_NQYQM_noOperation;
285	extern FiClos G_1BUPJ_lang__Foreign__8145869;
286	extern FiWord G_2BB3F_lang__Lisp__394624008;
287	extern FiWord G_I98PU_lang__C__394624008;
288	extern FiWord G_YHZ7E_lang__Builtin__3946240;
289	extern FiWord G_AIUXA_lang__Literal__3946240;
290	extern FiClos G_4T625_lang__Ref__814586999;
291	extern FiClos G_JK5PB_lang__Generator__81458;
292	extern FiWord G_1JSH9_lang__Exit__394624008;
293	extern FiClos G_1M9E1_lang__Join__459849284;
294	extern FiClos G_Q3NR7_lang__TrailingArray__2;
295	extern FiClos G_KU40K_lang__Enumeration__799;
296	extern FiClos G_VPDBC_lang__Union__799856246;
297	extern FiClos G_QLPQP_lang__Record__79985624;
298	extern FiClos G_2D7U7_lang__Cross__799856246;
299	extern FiClos G_8J5OB_lang___MINUS__GT_;
300	extern FiClos G_2YLCN_lang__Tuple__814586999;
301	extern FiClos G_OFGSL_lang___MINUS__GT___586;
302	extern FiWord G_RO3JX_lang__Category__394624;
303	extern FiWord G_S6I8I_lang__Type__394624008;
304	static FiClos *pG_XIPRL_runtime;
305	static FiClos *pG_Z2868_rtConstNameFn;
306	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
307	static FiClos *pG_XS55O_domainAddHash_BANG_;
308	static FiClos *pG_PA5R2_domainAddExports;
309	static FiClos *pG_6L1ZC_domainMake;
310	static FiClos *pG_KAC1B_rtCacheExplicitMake;
311	static FiClos *pG_759EG_rtCacheCheck;
312	static FiClos *pG_LD0B5_domainHash_BANG_;
313	static FiClos *pG_FZP76_namePartFrString;
314	static FiClos *pG_GJ87F_domainName;
315	static FiClos *pG_9TG1R_namePartConcat;
316	static FiClos *pG_PV28S_rtCacheAdd;
317	static FiClos *pG_8AMPD_rtSingleParamNameFn;
318	static FiClos *pG_X9M4Q_stringHash;
319	static FiClos *pG_WXLY5_categoryAddExports;
320	static FiClos *pG_GOVLL_categoryMake;
321
322
323
324	static void
325	CF0_lang(FiEnv e1)
326	{
327	PFmt39 l0;
328	FiEnv e0;
329	l0 = fi0New(struct Fmt39 , CENSUS_EnvLevel)((struct Fmt39 *) fi0Alloc(sizeof(struct Fmt39), (19)));
330	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
331	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
332	G_8KYHF_lang = (FiClos) (*pG_NQYQM_noOperation);
333	G_S6I8I_lang__Type__394624008 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))))
334	pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))));
335	G_RO3JX_lang__Category__394624 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_addLevel0))))
336	pG_6L1ZC_domainMake), fiClosMake(e0, C3_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_addLevel0))));
337	l0->X0 = (FiWord) fiNil((Ptr) 0);
338	G_OFGSL_lang___MINUS__GT___586 = fiClosMake(e0, C5__MINUS__GT_)fiClosMakeFun(e0, (FiProg) (C5__MINUS__GT_));
339	fiProgHashCode(((FiClos) G_OFGSL_lang___MINUS__GT___586)->prog)((((FiClos) G_OFGSL_lang___MINUS__GT___586)->prog)->data ) =
340	51489085L;
341	l0->X1 = (FiWord) fiNil((Ptr) 0);
342	G_8J5OB_lang___MINUS__GT_ = fiClosMake(e0, C9__MINUS__GT__STAR_)fiClosMakeFun(e0, (FiProg) (C9__MINUS__GT__STAR_));
343	fiProgHashCode(((FiClos) G_8J5OB_lang___MINUS__GT_)->prog)((((FiClos) G_8J5OB_lang___MINUS__GT_)->prog)->data) =
344	314286544L;
345	l0->X2 = (FiWord) fiNil((Ptr) 0);
346	G_2YLCN_lang__Tuple__814586999 = fiClosMake(e0, C13_Tuple)fiClosMakeFun(e0, (FiProg) (C13_Tuple));
347	fiProgHashCode(((FiClos) G_2YLCN_lang__Tuple__814586999)->prog)((((FiClos) G_2YLCN_lang__Tuple__814586999)->prog)->data ) =
348	617884183L;
349	l0->X3 = (FiWord) fiNil((Ptr) 0);
350	G_2D7U7_lang__Cross__799856246 = fiClosMake(e0, C16_Cross)fiClosMakeFun(e0, (FiProg) (C16_Cross));
351	fiProgHashCode(((FiClos) G_2D7U7_lang__Cross__799856246)->prog)((((FiClos) G_2D7U7_lang__Cross__799856246)->prog)->data ) =
352	697326103L;
353	l0->X4 = (FiWord) fiNil((Ptr) 0);
354	G_QLPQP_lang__Record__79985624 = fiClosMake(e0, C20_Record)fiClosMakeFun(e0, (FiProg) (C20_Record));
355	fiProgHashCode(((FiClos) G_QLPQP_lang__Record__79985624)->prog)((((FiClos) G_QLPQP_lang__Record__79985624)->prog)->data ) =
356	296043733L;
357	l0->X5 = (FiWord) fiNil((Ptr) 0);
358	G_VPDBC_lang__Union__799856246 = fiClosMake(e0, C24_Union)fiClosMakeFun(e0, (FiProg) (C24_Union));
359	fiProgHashCode(((FiClos) G_VPDBC_lang__Union__799856246)->prog)((((FiClos) G_VPDBC_lang__Union__799856246)->prog)->data ) =
360	900348438L;
361	l0->X6 = (FiWord) fiNil((Ptr) 0);
362	G_KU40K_lang__Enumeration__799 = fiClosMake(e0, C28_Enumeration)fiClosMakeFun(e0, (FiProg) (C28_Enumeration));
363	fiProgHashCode(((FiClos) G_KU40K_lang__Enumeration__799)->prog)((((FiClos) G_KU40K_lang__Enumeration__799)->prog)->data ) =
364	151783690L;
365	l0->X7 = (FiWord) fiNil((Ptr) 0);
366	G_Q3NR7_lang__TrailingArray__2 = fiClosMake(e0, C32_TrailingArray)fiClosMakeFun(e0, (FiProg) (C32_TrailingArray));
367	fiProgHashCode(((FiClos) G_Q3NR7_lang__TrailingArray__2)->prog)((((FiClos) G_Q3NR7_lang__TrailingArray__2)->prog)->data ) =
368	28977038L;
369	l0->X8 = (FiWord) fiNil((Ptr) 0);
370	G_1M9E1_lang__Join__459849284 = fiClosMake(e0, C36_Join)fiClosMakeFun(e0, (FiProg) (C36_Join));
371	fiProgHashCode(((FiClos) G_1M9E1_lang__Join__459849284)->prog)((((FiClos) G_1M9E1_lang__Join__459849284)->prog)->data ) =
372	850925108L;
373	G_1JSH9_lang__Exit__394624008 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C40_addLevel0))))
374	pG_6L1ZC_domainMake), fiClosMake(e0, C40_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C40_addLevel0))));
375	l0->X9 = (FiWord) fiNil((Ptr) 0);
376	G_JK5PB_lang__Generator__81458 = fiClosMake(e0, C42_Generator)fiClosMakeFun(e0, (FiProg) (C42_Generator));
377	fiProgHashCode(((FiClos) G_JK5PB_lang__Generator__81458)->prog)((((FiClos) G_JK5PB_lang__Generator__81458)->prog)->data ) =
378	83976792L;
379	l0->X10 = (FiWord) fiNil((Ptr) 0);
380	G_4T625_lang__Ref__814586999 = fiClosMake(e0, C45_Ref)fiClosMakeFun(e0, (FiProg) (C45_Ref));
381	fiProgHashCode(((FiClos) G_4T625_lang__Ref__814586999)->prog)((((FiClos) G_4T625_lang__Ref__814586999)->prog)->data) =
382	316169048L;
383	G_AIUXA_lang__Literal__3946240 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C48_addLevel0))))
384	pG_6L1ZC_domainMake), fiClosMake(e0, C48_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C48_addLevel0))));
385	G_YHZ7E_lang__Builtin__3946240 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C50_addLevel0))))
386	pG_6L1ZC_domainMake), fiClosMake(e0, C50_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C50_addLevel0))));
387	G_I98PU_lang__C__394624008 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C52_addLevel0))))
388	pG_6L1ZC_domainMake), fiClosMake(e0, C52_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C52_addLevel0))));
389	G_2BB3F_lang__Lisp__394624008 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C54_addLevel0))))
390	pG_6L1ZC_domainMake), fiClosMake(e0, C54_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C54_addLevel0))));
391	l0->X11 = (FiWord) fiNil((Ptr) 0);
392	G_1BUPJ_lang__Foreign__8145869 = fiClosMake(e0, C56_Foreign)fiClosMakeFun(e0, (FiProg) (C56_Foreign));
393	fiProgHashCode(((FiClos) G_1BUPJ_lang__Foreign__8145869)->prog)((((FiClos) G_1BUPJ_lang__Foreign__8145869)->prog)->data ) =
394	215472809L;
395	return ;
396	}
397
398	static struct _FiProg tmp0_lang = {
399	(FiFun) CF0_lang,
400	0L,
401	0L,
402	0L,
403	0L
404	};
405
406
407	static FiClos
408	CF1_addLevel0(FiEnv e1, FiWord P0_domain)
409	{
410	FiWord T0;
411	FiEnv e0;
412	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
413	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Type")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Type"));
414	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
415	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,547382598L ))
416	547382598L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,547382598L ));
417	return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
418	}
419
420	static struct _FiProg tmp1_addLevel0 = {
421	(FiFun) CF1_addLevel0,
422	0L,
423	0L,
424	0L,
425	0L
426	};
427
428
429	static FiWord
430	CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
431	{
432	PFmt5 T3, T4, T5;
433	FiWord T0, T1, *T2;
434	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
435	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
436	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
437	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
438	T3->X0_size = 0L;
439	T3->X1_nsize = 0L;
440	T3->X2_values = (FiWord) T0;
441	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
442	T4->X0_size = 0L;
443	T4->X1_nsize = 0L;
444	T4->X2_values = (FiWord) T1;
445	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
446	T5->X0_size = 0L;
447	T5->X1_nsize = 0L;
448	T5->X2_values = (FiWord) T2;
449	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) );
450	return P0_domain;
451	}
452
453	static struct _FiProg tmp2_addLevel1 = {
454	(FiFun) CF2_addLevel1,
455	0L,
456	0L,
457	0L,
458	0L
459	};
460
461
462	static FiClos
463	CF3_addLevel0(FiEnv e1, FiWord P0_domain)
464	{
465	FiWord T0;
466	FiEnv e0;
467	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
468	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Category")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Category"));
469	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
470	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,82345606L ))
471	82345606L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,82345606L ));
472	return fiClosMake(e0, C4_addLevel1)fiClosMakeFun(e0, (FiProg) (C4_addLevel1));
473	}
474
475	static struct _FiProg tmp3_addLevel0 = {
476	(FiFun) CF3_addLevel0,
477	0L,
478	0L,
479	0L,
480	0L
481	};
482
483
484	static FiWord
485	CF4_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
486	{
487	PFmt5 T3, T4, T5;
488	FiWord T0, T1, *T2;
489	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
490	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
491	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
492	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
493	T3->X0_size = 0L;
494	T3->X1_nsize = 0L;
495	T3->X2_values = (FiWord) T0;
496	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
497	T4->X0_size = 0L;
498	T4->X1_nsize = 0L;
499	T4->X2_values = (FiWord) T1;
500	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
501	T5->X0_size = 0L;
502	T5->X1_nsize = 0L;
503	T5->X2_values = (FiWord) T2;
504	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) );
505	return P0_domain;
506	}
507
508	static struct _FiProg tmp4_addLevel1 = {
509	(FiFun) CF4_addLevel1,
510	0L,
511	0L,
512	0L,
513	0L
514	};
515
516
517	static FiWord
518	CF5__MINUS__GT_(FiEnv e1, FiWord P0_A, FiWord P1_R)
519	{
520	FiBool T3, T5;
521	FiWord *T0, T2, T4;
522	PFmt8 T1;
523	PFmt11 l0;
524	FiEnv e0;
525	PFmt39 l1;
526	l0 = fi0New(struct Fmt11 , CENSUS_EnvLevel)((struct Fmt11 *) fi0Alloc(sizeof(struct Fmt11), (19)));
527	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
528	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
529	l0->X0_A = P0_A;
530	l0->X1_R = P1_R;
531	fiARRNEW_Word(T0, FiWord, 2L)((T0) = (FiWord) fiArrNew_Word(2L));
532	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
533	T1->X0_size = 2L;
534	T1->X1_values = (FiWord*) T0;
535	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X0)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X0) == (FiPtr) 0));
536	if (T5) goto L3;
537	L1: T0[0L] = l0->X0_A;
538	T0[1L] = l0->X1_R;
539	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
540	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
541	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X0, (FiWord) (
542	FiWord) T1, &T2, &T4);
543	T3 = (FiBool) T4;
544	if (T3) goto L0;
545	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C6_addLevel0))))
546	C6_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C6_addLevel0))));
547	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X0, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X0,(FiWord) T1,T2))
548	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X0,(FiWord) T1,T2));
549	L0: return T2;
550	L3: l1->X0 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
551	goto L1;
552	}
553
554	static struct _FiProg tmp5__MINUS__GT_ = {
555	(FiFun) CF5__MINUS__GT_,
556	0L,
557	0L,
558	0L,
559	0L
560	};
561
562
563	static FiClos
564	CF6_addLevel0(FiEnv e1, FiWord P0_domain)
565	{
566	FiSInt T1, T2, T3;
567	PFmt8 T0;
568	FiEnv e0;
569	PFmt11 l1;
570	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
571	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
572	T3 = 51489085L;
573	T0 = (PFmt8) l1->X0_A;
574	T1 = T0->X0_size;
575	T2 = 0L;
576	L0: if (T2 == T1) goto L1;
577	fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3))
578	pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3));
579	T2 = T2 + 1L;
580	goto L0;
581	L1: T0 = (PFmt8) l1->X1_R;
582	T1 = T0->X0_size;
583	T2 = 0L;
584	L2: if (T2 == T1) goto L3;
585	fiSINT_HASHCOMBINE(T3, FiSInt, 32236L, T3)((T3) = (FiSInt) fiSIntHashCombine(32236L, T3));
586	fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3))
587	pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3));
588	T2 = T2 + 1L;
589	goto L2;
590	L3: fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C7_addNameFn))))
591	fiClosMake(e0, C7_addNameFn))((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C7_addNameFn))));
592	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3) );
593	return fiClosMake(e0, C8_addLevel1)fiClosMakeFun(e0, (FiProg) (C8_addLevel1));
594	}
595
596	static struct _FiProg tmp6_addLevel0 = {
597	(FiFun) CF6_addLevel0,
598	0L,
599	0L,
600	0L,
601	0L
602	};
603
604
605	static FiWord
606	CF7_addNameFn(FiEnv e1)
607	{
608	PFmt8 T2, T5, T7;
609	FiWord T1, T4, *T6;
610	FiSInt T0, T3;
611	PFmt11 l2;
612	FiEnv e2;
613	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
614	l2 = (PFmt11) fiEnvLevel(e2)((FiEnv) (e2)->level);
615	T0 = ((PFmt8) l2->X0_A)->X0_size;
616	fiARRNEW_Word(T1, FiWord, T0)((T1) = (FiWord) fiArrNew_Word(T0));
617	T2 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
618	T2->X0_size = T0;
619	T2->X1_values = (FiWord*) T1;
620	L0: T0 = T0 - 1L;
621	if (T0 < 0) goto L1;
622	T1[T0] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_A)-> X1_values[T0]))
623	X0_A)->X1_values[T0])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_A)-> X1_values[T0]));
624	goto L0;
625	L1: T3 = ((PFmt8) l2->X1_R)->X0_size;
626	fiARRNEW_Word(T4, FiWord, T3)((T4) = (FiWord) fiArrNew_Word(T3));
627	T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
628	T5->X0_size = T3;
629	T5->X1_values = (FiWord*) T4;
630	L2: T3 = T3 - 1L;
631	if (T3 < 0) goto L3;
632	T4[T3] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X1_R)-> X1_values[T3]))
633	X1_R)->X1_values[T3])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X1_R)-> X1_values[T3]));
634	goto L2;
635	L3: fiARRNEW_Word(T6, FiWord, 3L)((T6) = (FiWord) fiArrNew_Word(3L));
636	T6[0L] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), "->")((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((*pG_FZP76_namePartFrString))->env,"->"));
637	T6[1L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))
638	T2)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));
639	T6[2L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T5))
640	T5)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T5));
641	T7 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
642	T7->X0_size = 3L;
643	T7->X1_values = (FiWord*) T6;
644	return fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 0L, T7)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,0L,T7));
645	}
646
647	static struct _FiProg tmp7_addNameFn = {
648	(FiFun) CF7_addNameFn,
649	0L,
650	0L,
651	0L,
652	0L
653	};
654
655
656	static FiWord
657	CF8_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
658	{
659	PFmt5 T3, T4, T5;
660	FiWord T0, T1, *T2;
661	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
662	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
663	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
664	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
665	T3->X0_size = 0L;
666	T3->X1_nsize = 0L;
667	T3->X2_values = (FiWord) T0;
668	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
669	T4->X0_size = 0L;
670	T4->X1_nsize = 0L;
671	T4->X2_values = (FiWord) T1;
672	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
673	T5->X0_size = 0L;
674	T5->X1_nsize = 0L;
675	T5->X2_values = (FiWord) T2;
676	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) );
677	return P0_domain;
678	}
679
680	static struct _FiProg tmp8_addLevel1 = {
681	(FiFun) CF8_addLevel1,
682	0L,
683	0L,
684	0L,
685	0L
686	};
687
688
689	static FiWord
690	CF9__MINUS__GT__STAR_(FiEnv e1, FiWord P0_A, FiWord P1_R)
691	{
692	FiBool T3, T5;
693	FiWord *T0, T2, T4;
694	PFmt8 T1;
695	PFmt13 l0;
696	FiEnv e0;
697	PFmt39 l1;
698	l0 = fi0New(struct Fmt13 , CENSUS_EnvLevel)((struct Fmt13 *) fi0Alloc(sizeof(struct Fmt13), (19)));
699	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
700	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
701	l0->X0_A = P0_A;
702	l0->X1_R = P1_R;
703	fiARRNEW_Word(T0, FiWord, 2L)((T0) = (FiWord) fiArrNew_Word(2L));
704	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
705	T1->X0_size = 2L;
706	T1->X1_values = (FiWord*) T0;
707	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X1)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X1) == (FiPtr) 0));
708	if (T5) goto L3;
709	L1: T0[0L] = l0->X0_A;
710	T0[1L] = l0->X1_R;
711	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
712	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
713	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X1, (FiWord) (
714	FiWord) T1, &T2, &T4);
715	T3 = (FiBool) T4;
716	if (T3) goto L0;
717	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C10_addLevel0))))
718	C10_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C10_addLevel0))));
719	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X1, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X1,(FiWord) T1,T2))
720	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X1,(FiWord) T1,T2));
721	L0: return T2;
722	L3: l1->X1 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
723	goto L1;
724	}
725
726	static struct _FiProg tmp9__MINUS__GT__STAR_ = {
727	(FiFun) CF9__MINUS__GT__STAR_,
728	0L,
729	0L,
730	0L,
731	0L
732	};
733
734
735	static FiClos
736	CF10_addLevel0(FiEnv e1, FiWord P0_domain)
737	{
738	FiSInt T1, T2, T3;
739	PFmt8 T0;
740	FiEnv e0;
741	PFmt13 l1;
742	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
743	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
744	T3 = 314286544L;
745	T0 = (PFmt8) l1->X0_A;
746	T1 = T0->X0_size;
747	T2 = 0L;
748	L0: if (T2 == T1) goto L1;
749	fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3))
750	pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3));
751	T2 = T2 + 1L;
752	goto L0;
753	L1: T0 = (PFmt8) l1->X1_R;
754	T1 = T0->X0_size;
755	T2 = 0L;
756	L2: if (T2 == T1) goto L3;
757	fiSINT_HASHCOMBINE(T3, FiSInt, 54955L, T3)((T3) = (FiSInt) fiSIntHashCombine(54955L, T3));
758	fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3))
759	pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3));
760	T2 = T2 + 1L;
761	goto L2;
762	L3: fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C11_addNameFn))))
763	fiClosMake(e0, C11_addNameFn))((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C11_addNameFn))));
764	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3) );
765	return fiClosMake(e0, C12_addLevel1)fiClosMakeFun(e0, (FiProg) (C12_addLevel1));
766	}
767
768	static struct _FiProg tmp10_addLevel0 = {
769	(FiFun) CF10_addLevel0,
770	0L,
771	0L,
772	0L,
773	0L
774	};
775
776
777	static FiWord
778	CF11_addNameFn(FiEnv e1)
779	{
780	PFmt8 T2, T5, T7;
781	FiWord T1, T4, *T6;
782	FiSInt T0, T3;
783	PFmt13 l2;
784	FiEnv e2;
785	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
786	l2 = (PFmt13) fiEnvLevel(e2)((FiEnv) (e2)->level);
787	T0 = ((PFmt8) l2->X0_A)->X0_size;
788	fiARRNEW_Word(T1, FiWord, T0)((T1) = (FiWord) fiArrNew_Word(T0));
789	T2 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
790	T2->X0_size = T0;
791	T2->X1_values = (FiWord*) T1;
792	L0: T0 = T0 - 1L;
793	if (T0 < 0) goto L1;
794	T1[T0] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_A)-> X1_values[T0]))
795	X0_A)->X1_values[T0])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_A)-> X1_values[T0]));
796	goto L0;
797	L1: T3 = ((PFmt8) l2->X1_R)->X0_size;
798	fiARRNEW_Word(T4, FiWord, T3)((T4) = (FiWord) fiArrNew_Word(T3));
799	T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
800	T5->X0_size = T3;
801	T5->X1_values = (FiWord*) T4;
802	L2: T3 = T3 - 1L;
803	if (T3 < 0) goto L3;
804	T4[T3] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X1_R)-> X1_values[T3]))
805	X1_R)->X1_values[T3])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X1_R)-> X1_values[T3]));
806	goto L2;
807	L3: fiARRNEW_Word(T6, FiWord, 3L)((T6) = (FiWord) fiArrNew_Word(3L));
808	T6[0L] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), "->")((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((pG_FZP76_namePartFrString))->env,"->*"));
809	T6[1L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))
810	T2)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));
811	T6[2L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T5))
812	T5)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T5));
813	T7 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
814	T7->X0_size = 3L;
815	T7->X1_values = (FiWord*) T6;
816	return fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 0L, T7)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,0L,T7));
817	}
818
819	static struct _FiProg tmp11_addNameFn = {
820	(FiFun) CF11_addNameFn,
821	0L,
822	0L,
823	0L,
824	0L
825	};
826
827
828	static FiWord
829	CF12_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
830	{
831	PFmt5 T3, T4, T5;
832	FiWord T0, T1, *T2;
833	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
834	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
835	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
836	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
837	T3->X0_size = 0L;
838	T3->X1_nsize = 0L;
839	T3->X2_values = (FiWord) T0;
840	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
841	T4->X0_size = 0L;
842	T4->X1_nsize = 0L;
843	T4->X2_values = (FiWord) T1;
844	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
845	T5->X0_size = 0L;
846	T5->X1_nsize = 0L;
847	T5->X2_values = (FiWord) T2;
848	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) );
849	return P0_domain;
850	}
851
852	static struct _FiProg tmp12_addLevel1 = {
853	(FiFun) CF12_addLevel1,
854	0L,
855	0L,
856	0L,
857	0L
858	};
859
860
861	static FiWord
862	CF13_Tuple(FiEnv e1, FiWord P0_T)
863	{
864	FiBool T3, T5;
865	FiWord *T0, T2, T4;
866	PFmt8 T1;
867	PFmt15 l0;
868	FiEnv e0;
869	PFmt39 l1;
870	l0 = fi0New(struct Fmt15 , CENSUS_EnvLevel)((struct Fmt15 *) fi0Alloc(sizeof(struct Fmt15), (19)));
871	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
872	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
873	l0->X0_T = P0_T;
874	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
875	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
876	T1->X0_size = 1L;
877	T1->X1_values = (FiWord*) T0;
878	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X2)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X2) == (FiPtr) 0));
879	if (T5) goto L3;
880	L1: T0[0L] = l0->X0_T;
881	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
882	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
883	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X2, (FiWord) (
884	FiWord) T1, &T2, &T4);
885	T3 = (FiBool) T4;
886	if (T3) goto L0;
887	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C14_addLevel0))))
888	C14_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C14_addLevel0))));
889	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X2, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X2,(FiWord) T1,T2))
890	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X2,(FiWord) T1,T2));
891	L0: return T2;
892	L3: l1->X2 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
893	goto L1;
894	}
895
896	static struct _FiProg tmp13_Tuple = {
897	(FiFun) CF13_Tuple,
898	0L,
899	0L,
900	0L,
901	0L
902	};
903
904
905	static FiClos
906	CF14_addLevel0(FiEnv e1, FiWord P0_domain)
907	{
908	FiSInt T1, T2;
909	FiWord T0;
910	FiEnv e0;
911	PFmt15 l1;
912	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
913	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
914	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "Tuple",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Tuple",l1-> X0_T))
915	l1->X0_T)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"Tuple",l1-> X0_T));
916	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
917	T2 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_T)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_T));
918	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 617884183L)((T1) = (FiSInt) fiSIntHashCombine(T2, 617884183L));
919	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
920	return fiClosMake(e0, C15_addLevel1)fiClosMakeFun(e0, (FiProg) (C15_addLevel1));
921	}
922
923	static struct _FiProg tmp14_addLevel0 = {
924	(FiFun) CF14_addLevel0,
925	0L,
926	0L,
927	0L,
928	0L
929	};
930
931
932	static FiWord
933	CF15_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
934	{
935	PFmt5 T3, T4, T5;
936	FiWord T0, T1, *T2;
937	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
938	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
939	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
940	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
941	T3->X0_size = 0L;
942	T3->X1_nsize = 0L;
943	T3->X2_values = (FiWord) T0;
944	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
945	T4->X0_size = 0L;
946	T4->X1_nsize = 0L;
947	T4->X2_values = (FiWord) T1;
948	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
949	T5->X0_size = 0L;
950	T5->X1_nsize = 0L;
951	T5->X2_values = (FiWord) T2;
952	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) );
953	return P0_domain;
954	}
955
956	static struct _FiProg tmp15_addLevel1 = {
957	(FiFun) CF15_addLevel1,
958	0L,
959	0L,
960	0L,
961	0L
962	};
963
964
965	static FiWord
966	CF16_Cross(FiEnv e1, FiWord P0_T)
967	{
968	FiBool T3, T5;
969	FiWord *T0, T2, T4;
970	PFmt8 T1;
971	PFmt17 l0;
972	FiEnv e0;
973	PFmt39 l1;
974	l0 = fi0New(struct Fmt17 , CENSUS_EnvLevel)((struct Fmt17 *) fi0Alloc(sizeof(struct Fmt17), (19)));
975	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
976	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
977	l0->X0_T = P0_T;
978	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
979	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
980	T1->X0_size = 1L;
981	T1->X1_values = (FiWord*) T0;
982	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X3)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X3) == (FiPtr) 0));
983	if (T5) goto L3;
984	L1: T0[0L] = l0->X0_T;
985	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
986	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
987	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X3, (FiWord) (
988	FiWord) T1, &T2, &T4);
989	T3 = (FiBool) T4;
990	if (T3) goto L0;
991	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C17_addLevel0))))
992	C17_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C17_addLevel0))));
993	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X3, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2))
994	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2));
995	L0: return T2;
996	L3: l1->X3 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
997	goto L1;
998	}
999
1000	static struct _FiProg tmp16_Cross = {
1001	(FiFun) CF16_Cross,
1002	0L,
1003	0L,
1004	0L,
1005	0L
1006	};
1007
1008
1009	static FiClos
1010	CF17_addLevel0(FiEnv e1, FiWord P0_domain)
1011	{
1012	FiSInt T1, T2, T3;
1013	PFmt8 T0;
1014	FiEnv e0;
1015	PFmt17 l1;
1016	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1017	l1 = (PFmt17) fiEnvLevel(e1)((FiEnv) (e1)->level);
1018	T3 = 697326103L;
1019	T0 = (PFmt8) l1->X0_T;
1020	T1 = T0->X0_size;
1021	T2 = 0L;
1022	L0: if (T2 == T1) goto L1;
1023	fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3))
1024	pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3));
1025	T2 = T2 + 1L;
1026	goto L0;
1027	L1: fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C18_addNameFn))))
1028	fiClosMake(e0, C18_addNameFn))((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C18_addNameFn))));
1029	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3) );
1030	return fiClosMake(e0, C19_addLevel1)fiClosMakeFun(e0, (FiProg) (C19_addLevel1));
1031	}
1032
1033	static struct _FiProg tmp17_addLevel0 = {
1034	(FiFun) CF17_addLevel0,
1035	0L,
1036	0L,
1037	0L,
1038	0L
1039	};
1040
1041
1042	static FiWord
1043	CF18_addNameFn(FiEnv e1)
1044	{
1045	PFmt8 T2, T4;
1046	FiWord T1, T3;
1047	FiSInt T0;
1048	PFmt17 l2;
1049	FiEnv e2;
1050	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1051	l2 = (PFmt17) fiEnvLevel(e2)((FiEnv) (e2)->level);
1052	T0 = ((PFmt8) l2->X0_T)->X0_size;
1053	fiARRNEW_Word(T1, FiWord, T0)((T1) = (FiWord) fiArrNew_Word(T0));
1054	T2 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1055	T2->X0_size = T0;
1056	T2->X1_values = (FiWord*) T1;
1057	L0: T0 = T0 - 1L;
1058	if (T0 < 0) goto L1;
1059	T1[T0] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_T)-> X1_values[T0]))
1060	X0_T)->X1_values[T0])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_T)-> X1_values[T0]));
1061	goto L0;
1062	L1: fiARRNEW_Word(T3, FiWord, 2L)((T3) = (FiWord) fiArrNew_Word(2L));
1063	T3[0L] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), "Cross")((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((*pG_FZP76_namePartFrString))->env,"Cross"));
1064	T3[1L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))
1065	T2)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));
1066	T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1067	T4->X0_size = 2L;
1068	T4->X1_values = (FiWord*) T3;
1069	return fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 0L, T4)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,0L,T4));
1070	}
1071
1072	static struct _FiProg tmp18_addNameFn = {
1073	(FiFun) CF18_addNameFn,
1074	0L,
1075	0L,
1076	0L,
1077	0L
1078	};
1079
1080
1081	static FiWord
1082	CF19_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
1083	{
1084	PFmt5 T3, T4, T5;
1085	FiWord T0, T1, *T2;
1086	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
1087	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
1088	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
1089	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1090	T3->X0_size = 0L;
1091	T3->X1_nsize = 0L;
1092	T3->X2_values = (FiWord) T0;
1093	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1094	T4->X0_size = 0L;
1095	T4->X1_nsize = 0L;
1096	T4->X2_values = (FiWord) T1;
1097	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1098	T5->X0_size = 0L;
1099	T5->X1_nsize = 0L;
1100	T5->X2_values = (FiWord) T2;
1101	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) );
1102	return P0_domain;
1103	}
1104
1105	static struct _FiProg tmp19_addLevel1 = {
1106	(FiFun) CF19_addLevel1,
1107	0L,
1108	0L,
1109	0L,
1110	0L
1111	};
1112
1113
1114	static FiWord
1115	CF20_Record(FiEnv e1, FiWord P0_T)
1116	{
1117	FiBool T3, T5;
1118	FiWord *T0, T2, T4;
1119	PFmt8 T1;
1120	PFmt19 l0;
1121	FiEnv e0;
1122	PFmt39 l1;
1123	l0 = fi0New(struct Fmt19 , CENSUS_EnvLevel)((struct Fmt19 *) fi0Alloc(sizeof(struct Fmt19), (19)));
1124	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1125	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
1126	l0->X0_T = P0_T;
1127	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
1128	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1129	T1->X0_size = 1L;
1130	T1->X1_values = (FiWord*) T0;
1131	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X4)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X4) == (FiPtr) 0));
1132	if (T5) goto L3;
1133	L1: T0[0L] = l0->X0_T;
1134	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
1135	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
1136	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X4, (FiWord) (
1137	FiWord) T1, &T2, &T4);
1138	T3 = (FiBool) T4;
1139	if (T3) goto L0;
1140	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C21_addLevel0))))
1141	C21_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C21_addLevel0))));
1142	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X4, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X4,(FiWord) T1,T2))
1143	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X4,(FiWord) T1,T2));
1144	L0: return T2;
1145	L3: l1->X4 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
1146	goto L1;
1147	}
1148
1149	static struct _FiProg tmp20_Record = {
1150	(FiFun) CF20_Record,
1151	0L,
1152	0L,
1153	0L,
1154	0L
1155	};
1156
1157
1158	static FiClos
1159	CF21_addLevel0(FiEnv e1, FiWord P0_domain)
1160	{
1161	FiSInt T1, T2, T3;
1162	PFmt8 T0;
1163	FiEnv e0;
1164	PFmt19 l1;
1165	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1166	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1167	T3 = 296043733L;
1168	T0 = (PFmt8) l1->X0_T;
1169	T1 = T0->X0_size;
1170	T2 = 0L;
1171	L0: if (T2 == T1) goto L1;
1172	fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3))
1173	pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3));
1174	T2 = T2 + 1L;
1175	goto L0;
1176	L1: fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C22_addNameFn))))
1177	fiClosMake(e0, C22_addNameFn))((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C22_addNameFn))));
1178	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3) );
1179	return fiClosMake(e0, C23_addLevel1)fiClosMakeFun(e0, (FiProg) (C23_addLevel1));
1180	}
1181
1182	static struct _FiProg tmp21_addLevel0 = {
1183	(FiFun) CF21_addLevel0,
1184	0L,
1185	0L,
1186	0L,
1187	0L
1188	};
1189
1190
1191	static FiWord
1192	CF22_addNameFn(FiEnv e1)
1193	{
1194	PFmt8 T2, T4;
1195	FiWord T1, T3;
1196	FiSInt T0;
1197	PFmt19 l2;
1198	FiEnv e2;
1199	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1200	l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
1201	T0 = ((PFmt8) l2->X0_T)->X0_size;
1202	fiARRNEW_Word(T1, FiWord, T0)((T1) = (FiWord) fiArrNew_Word(T0));
1203	T2 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1204	T2->X0_size = T0;
1205	T2->X1_values = (FiWord*) T1;
1206	L0: T0 = T0 - 1L;
1207	if (T0 < 0) goto L1;
1208	T1[T0] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_T)-> X1_values[T0]))
1209	X0_T)->X1_values[T0])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_T)-> X1_values[T0]));
1210	goto L0;
1211	L1: fiARRNEW_Word(T3, FiWord, 2L)((T3) = (FiWord) fiArrNew_Word(2L));
1212	T3[0L] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), "Record")((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((*pG_FZP76_namePartFrString))->env,"Record"));
1213	T3[1L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))
1214	T2)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));
1215	T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1216	T4->X0_size = 2L;
1217	T4->X1_values = (FiWord*) T3;
1218	return fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 0L, T4)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,0L,T4));
1219	}
1220
1221	static struct _FiProg tmp22_addNameFn = {
1222	(FiFun) CF22_addNameFn,
1223	0L,
1224	0L,
1225	0L,
1226	0L
1227	};
1228
1229
1230	static FiWord
1231	CF23_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
1232	{
1233	PFmt5 T3, T4, T5;
1234	FiWord T0, T1, *T2;
1235	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
1236	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
1237	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
1238	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1239	T3->X0_size = 0L;
1240	T3->X1_nsize = 0L;
1241	T3->X2_values = (FiWord) T0;
1242	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1243	T4->X0_size = 0L;
1244	T4->X1_nsize = 0L;
1245	T4->X2_values = (FiWord) T1;
1246	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1247	T5->X0_size = 0L;
1248	T5->X1_nsize = 0L;
1249	T5->X2_values = (FiWord) T2;
1250	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) );
1251	return P0_domain;
1252	}
1253
1254	static struct _FiProg tmp23_addLevel1 = {
1255	(FiFun) CF23_addLevel1,
1256	0L,
1257	0L,
1258	0L,
1259	0L
1260	};
1261
1262
1263	static FiWord
1264	CF24_Union(FiEnv e1, FiWord P0_T)
1265	{
1266	FiBool T3, T5;
1267	FiWord *T0, T2, T4;
1268	PFmt8 T1;
1269	PFmt21 l0;
1270	FiEnv e0;
1271	PFmt39 l1;
1272	l0 = fi0New(struct Fmt21 , CENSUS_EnvLevel)((struct Fmt21 *) fi0Alloc(sizeof(struct Fmt21), (19)));
1273	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1274	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
1275	l0->X0_T = P0_T;
1276	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
1277	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1278	T1->X0_size = 1L;
1279	T1->X1_values = (FiWord*) T0;
1280	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X5)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X5) == (FiPtr) 0));
1281	if (T5) goto L3;
1282	L1: T0[0L] = l0->X0_T;
1283	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
1284	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
1285	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X5, (FiWord) (
1286	FiWord) T1, &T2, &T4);
1287	T3 = (FiBool) T4;
1288	if (T3) goto L0;
1289	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C25_addLevel0))))
1290	C25_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C25_addLevel0))));
1291	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X5, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X5,(FiWord) T1,T2))
1292	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X5,(FiWord) T1,T2));
1293	L0: return T2;
1294	L3: l1->X5 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
1295	goto L1;
1296	}
1297
1298	static struct _FiProg tmp24_Union = {
1299	(FiFun) CF24_Union,
1300	0L,
1301	0L,
1302	0L,
1303	0L
1304	};
1305
1306
1307	static FiClos
1308	CF25_addLevel0(FiEnv e1, FiWord P0_domain)
1309	{
1310	FiSInt T1, T2, T3;
1311	PFmt8 T0;
1312	FiEnv e0;
1313	PFmt21 l1;
1314	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1315	l1 = (PFmt21) fiEnvLevel(e1)((FiEnv) (e1)->level);
1316	T3 = 900348438L;
1317	T0 = (PFmt8) l1->X0_T;
1318	T1 = T0->X0_size;
1319	T2 = 0L;
1320	L0: if (T2 == T1) goto L1;
1321	fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())(( pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3))
1322	pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((* pG_LD0B5_domainHash_BANG_ ))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env ,T0->X1_values[T2])), T3));
1323	T2 = T2 + 1L;
1324	goto L0;
1325	L1: fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C26_addNameFn))))
1326	fiClosMake(e0, C26_addNameFn))((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C26_addNameFn))));
1327	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3) );
1328	return fiClosMake(e0, C27_addLevel1)fiClosMakeFun(e0, (FiProg) (C27_addLevel1));
1329	}
1330
1331	static struct _FiProg tmp25_addLevel0 = {
1332	(FiFun) CF25_addLevel0,
1333	0L,
1334	0L,
1335	0L,
1336	0L
1337	};
1338
1339
1340	static FiWord
1341	CF26_addNameFn(FiEnv e1)
1342	{
1343	PFmt8 T2, T4;
1344	FiWord T1, T3;
1345	FiSInt T0;
1346	PFmt21 l2;
1347	FiEnv e2;
1348	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1349	l2 = (PFmt21) fiEnvLevel(e2)((FiEnv) (e2)->level);
1350	T0 = ((PFmt8) l2->X0_T)->X0_size;
1351	fiARRNEW_Word(T1, FiWord, T0)((T1) = (FiWord) fiArrNew_Word(T0));
1352	T2 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1353	T2->X0_size = T0;
1354	T2->X1_values = (FiWord*) T1;
1355	L0: T0 = T0 - 1L;
1356	if (T0 < 0) goto L1;
1357	T1[T0] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_T)-> X1_values[T0]))
1358	X0_T)->X1_values[T0])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_T)-> X1_values[T0]));
1359	goto L0;
1360	L1: fiARRNEW_Word(T3, FiWord, 2L)((T3) = (FiWord) fiArrNew_Word(2L));
1361	T3[0L] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), "Union")((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((*pG_FZP76_namePartFrString))->env,"Union"));
1362	T3[1L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))
1363	T2)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));
1364	T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1365	T4->X0_size = 2L;
1366	T4->X1_values = (FiWord*) T3;
1367	return fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 0L, T4)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,0L,T4));
1368	}
1369
1370	static struct _FiProg tmp26_addNameFn = {
1371	(FiFun) CF26_addNameFn,
1372	0L,
1373	0L,
1374	0L,
1375	0L
1376	};
1377
1378
1379	static FiWord
1380	CF27_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
1381	{
1382	PFmt5 T3, T4, T5;
1383	FiWord T0, T1, *T2;
1384	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
1385	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
1386	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
1387	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1388	T3->X0_size = 0L;
1389	T3->X1_nsize = 0L;
1390	T3->X2_values = (FiWord) T0;
1391	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1392	T4->X0_size = 0L;
1393	T4->X1_nsize = 0L;
1394	T4->X2_values = (FiWord) T1;
1395	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1396	T5->X0_size = 0L;
1397	T5->X1_nsize = 0L;
1398	T5->X2_values = (FiWord) T2;
1399	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) );
1400	return P0_domain;
1401	}
1402
1403	static struct _FiProg tmp27_addLevel1 = {
1404	(FiFun) CF27_addLevel1,
1405	0L,
1406	0L,
1407	0L,
1408	0L
1409	};
1410
1411
1412	static FiWord
1413	CF28_Enumeration(FiEnv e1, FiWord P0_T)
1414	{
1415	FiBool T3, T5;
1416	FiWord *T0, T2, T4;
1417	PFmt8 T1;
1418	PFmt23 l0;
1419	FiEnv e0;
1420	PFmt39 l1;
1421	l0 = fi0New(struct Fmt23 , CENSUS_EnvLevel)((struct Fmt23 *) fi0Alloc(sizeof(struct Fmt23), (19)));
1422	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1423	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
1424	l0->X0_T = P0_T;
1425	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
1426	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1427	T1->X0_size = 1L;
1428	T1->X1_values = (FiWord*) T0;
1429	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X6)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X6) == (FiPtr) 0));
1430	if (T5) goto L3;
1431	L1: T0[0L] = l0->X0_T;
1432	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
1433	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
1434	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X6, (FiWord) (
1435	FiWord) T1, &T2, &T4);
1436	T3 = (FiBool) T4;
1437	if (T3) goto L0;
1438	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C29_addLevel0))))
1439	C29_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C29_addLevel0))));
1440	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X6, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X6,(FiWord) T1,T2))
1441	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X6,(FiWord) T1,T2));
1442	L0: return T2;
1443	L3: l1->X6 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
1444	goto L1;
1445	}
1446
1447	static struct _FiProg tmp28_Enumeration = {
1448	(FiFun) CF28_Enumeration,
1449	0L,
1450	0L,
1451	0L,
1452	0L
1453	};
1454
1455
1456	static FiClos
1457	CF29_addLevel0(FiEnv e1, FiWord P0_domain)
1458	{
1459	FiSInt T1, T2, T3;
1460	PFmt8 T0;
1461	FiEnv e0;
1462	PFmt23 l1;
1463	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1464	l1 = (PFmt23) fiEnvLevel(e1)((FiEnv) (e1)->level);
1465	T3 = 151783690L;
1466	T0 = (PFmt8) l1->X0_T;
1467	T1 = T0->X0_size;
1468	T2 = 0L;
1469	L0: if (T2 == T1) goto L1;
1470	fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (pG_X9M4Q_stringHash),((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((pG_X9M4Q_stringHash ))->prog->fun))(((*pG_X9M4Q_stringHash))->env,T0-> X1_values[T2])), T3))
1471	T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((((FiSInt ()())((pG_X9M4Q_stringHash ))->prog->fun))(((pG_X9M4Q_stringHash))->env,T0-> X1_values[T2])), T3));
1472	T2 = T2 + 1L;
1473	goto L0;
1474	L1: fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C30_addNameFn))))
1475	fiClosMake(e0, C30_addNameFn))((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C30_addNameFn))));
1476	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3) );
1477	return fiClosMake(e0, C31_addLevel1)fiClosMakeFun(e0, (FiProg) (C31_addLevel1));
1478	}
1479
1480	static struct _FiProg tmp29_addLevel0 = {
1481	(FiFun) CF29_addLevel0,
1482	0L,
1483	0L,
1484	0L,
1485	0L
1486	};
1487
1488
1489	static FiWord
1490	CF30_addNameFn(FiEnv e1)
1491	{
1492	PFmt8 T2, T4;
1493	FiWord T1, T3;
1494	FiSInt T0;
1495	PFmt23 l2;
1496	FiEnv e2;
1497	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1498	l2 = (PFmt23) fiEnvLevel(e2)((FiEnv) (e2)->level);
1499	T0 = ((PFmt8) l2->X0_T)->X0_size;
1500	fiARRNEW_Word(T1, FiWord, T0)((T1) = (FiWord) fiArrNew_Word(T0));
1501	T2 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1502	T2->X0_size = T0;
1503	T2->X1_values = (FiWord*) T1;
1504	L0: T0 = T0 - 1L;
1505	if (T0 < 0) goto L1;
1506	T1[T0] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), ((PFmt8)((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((*pG_FZP76_namePartFrString))->env,((PFmt8) l2-> X0_T)->X1_values[T0]))
1507	l2->X0_T)->X1_values[T0])((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((pG_FZP76_namePartFrString))->env,((PFmt8) l2-> X0_T)->X1_values[T0]));
1508	goto L0;
1509	L1: fiARRNEW_Word(T3, FiWord, 2L)((T3) = (FiWord) fiArrNew_Word(2L));
1510	T3[0L] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), "Enumeration")((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((*pG_FZP76_namePartFrString))->env,"Enumeration"));
1511	T3[1L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))
1512	T2)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));
1513	T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1514	T4->X0_size = 2L;
1515	T4->X1_values = (FiWord*) T3;
1516	return fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 0L, T4)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,0L,T4));
1517	}
1518
1519	static struct _FiProg tmp30_addNameFn = {
1520	(FiFun) CF30_addNameFn,
1521	0L,
1522	0L,
1523	0L,
1524	0L
1525	};
1526
1527
1528	static FiWord
1529	CF31_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
1530	{
1531	PFmt5 T3, T4, T5;
1532	FiWord T0, T1, *T2;
1533	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
1534	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
1535	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
1536	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1537	T3->X0_size = 0L;
1538	T3->X1_nsize = 0L;
1539	T3->X2_values = (FiWord) T0;
1540	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1541	T4->X0_size = 0L;
1542	T4->X1_nsize = 0L;
1543	T4->X2_values = (FiWord) T1;
1544	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1545	T5->X0_size = 0L;
1546	T5->X1_nsize = 0L;
1547	T5->X2_values = (FiWord) T2;
1548	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) );
1549	return P0_domain;
1550	}
1551
1552	static struct _FiProg tmp31_addLevel1 = {
1553	(FiFun) CF31_addLevel1,
1554	0L,
1555	0L,
1556	0L,
1557	0L
1558	};
1559
1560
1561	static FiWord
1562	CF32_TrailingArray(FiEnv e1, FiWord P0_I, FiWord P1_A)
1563	{
1564	FiBool T3, T5;
1565	FiWord *T0, T2, T4;
1566	PFmt8 T1;
1567	PFmt25 l0;
1568	FiEnv e0;
1569	PFmt39 l1;
1570	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
1571	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1572	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
1573	l0->X0_I = P0_I;
1574	l0->X1_A = P1_A;
1575	fiARRNEW_Word(T0, FiWord, 2L)((T0) = (FiWord) fiArrNew_Word(2L));
1576	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1577	T1->X0_size = 2L;
1578	T1->X1_values = (FiWord*) T0;
1579	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X7)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X7) == (FiPtr) 0));
1580	if (T5) goto L3;
1581	L1: T0[0L] = l0->X0_I;
1582	T0[1L] = l0->X1_A;
1583	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
1584	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
1585	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X7, (FiWord) (
1586	FiWord) T1, &T2, &T4);
1587	T3 = (FiBool) T4;
1588	if (T3) goto L0;
1589	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C33_addLevel0))))
1590	C33_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C33_addLevel0))));
1591	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X7, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X7,(FiWord) T1,T2))
1592	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X7,(FiWord) T1,T2));
1593	L0: return T2;
1594	L3: l1->X7 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
1595	goto L1;
1596	}
1597
1598	static struct _FiProg tmp32_TrailingArray = {
1599	(FiFun) CF32_TrailingArray,
1600	0L,
1601	0L,
1602	0L,
1603	0L
1604	};
1605
1606
1607	static FiClos
1608	CF33_addLevel0(FiEnv e1, FiWord P0_domain)
1609	{
1610	FiEnv e0;
1611	PFmt25 l1;
1612	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1613	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
	Value stored to 'l1' is never read
1614	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C34_addNameFn))))
1615	fiClosMake(e0, C34_addNameFn))((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,fiClosMakeFun(e0, (FiProg) (C34_addNameFn))));
1616	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,744839909L ))
1617	744839909L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,744839909L ));
1618	return fiClosMake(e0, C35_addLevel1)fiClosMakeFun(e0, (FiProg) (C35_addLevel1));
1619	}
1620
1621	static struct _FiProg tmp33_addLevel0 = {
1622	(FiFun) CF33_addLevel0,
1623	0L,
1624	0L,
1625	0L,
1626	0L
1627	};
1628
1629
1630	static FiWord
1631	CF34_addNameFn(FiEnv e1)
1632	{
1633	PFmt8 T2, T5, T7;
1634	FiWord T1, T4, *T6;
1635	FiSInt T0, T3;
1636	PFmt25 l2;
1637	FiEnv e2;
1638	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1639	l2 = (PFmt25) fiEnvLevel(e2)((FiEnv) (e2)->level);
1640	T0 = ((PFmt8) l2->X0_I)->X0_size;
1641	fiARRNEW_Word(T1, FiWord, T0)((T1) = (FiWord) fiArrNew_Word(T0));
1642	T2 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1643	T2->X0_size = T0;
1644	T2->X1_values = (FiWord*) T1;
1645	L0: T0 = T0 - 1L;
1646	if (T0 < 0) goto L1;
1647	T1[T0] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_I)-> X1_values[T0]))
1648	X0_I)->X1_values[T0])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X0_I)-> X1_values[T0]));
1649	goto L0;
1650	L1: T3 = ((PFmt8) l2->X1_A)->X0_size;
1651	fiARRNEW_Word(T4, FiWord, T3)((T4) = (FiWord) fiArrNew_Word(T3));
1652	T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1653	T5->X0_size = T3;
1654	T5->X1_values = (FiWord*) T4;
1655	L2: T3 = T3 - 1L;
1656	if (T3 < 0) goto L3;
1657	T4[T3] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l2->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l2-> X1_A)-> X1_values[T3]))
1658	X1_A)->X1_values[T3])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l2-> X1_A)-> X1_values[T3]));
1659	goto L2;
1660	L3: fiARRNEW_Word(T6, FiWord, 3L)((T6) = (FiWord) fiArrNew_Word(3L));
1661	T6[0L] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), "TrailingArray")((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((*pG_FZP76_namePartFrString))->env,"TrailingArray") );
1662	T6[1L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))
1663	T2)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));
1664	T6[2L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T5))
1665	T5)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T5));
1666	T7 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1667	T7->X0_size = 3L;
1668	T7->X1_values = (FiWord*) T6;
1669	return fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 0L, T7)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,0L,T7));
1670	}
1671
1672	static struct _FiProg tmp34_addNameFn = {
1673	(FiFun) CF34_addNameFn,
1674	0L,
1675	0L,
1676	0L,
1677	0L
1678	};
1679
1680
1681	static FiWord
1682	CF35_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
1683	{
1684	PFmt5 T3, T4, T5;
1685	FiWord T0, T1, *T2;
1686	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
1687	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
1688	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
1689	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1690	T3->X0_size = 0L;
1691	T3->X1_nsize = 0L;
1692	T3->X2_values = (FiWord) T0;
1693	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1694	T4->X0_size = 0L;
1695	T4->X1_nsize = 0L;
1696	T4->X2_values = (FiWord) T1;
1697	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1698	T5->X0_size = 0L;
1699	T5->X1_nsize = 0L;
1700	T5->X2_values = (FiWord) T2;
1701	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) );
1702	return P0_domain;
1703	}
1704
1705	static struct _FiProg tmp35_addLevel1 = {
1706	(FiFun) CF35_addLevel1,
1707	0L,
1708	0L,
1709	0L,
1710	0L
1711	};
1712
1713
1714	static FiWord
1715	CF36_Join(FiEnv e1, FiWord P0_T)
1716	{
1717	FiBool T3, T5;
1718	FiWord *T0, T2, T4;
1719	PFmt8 T1;
1720	PFmt27 l0;
1721	FiEnv e0;
1722	PFmt39 l1;
1723	l0 = fi0New(struct Fmt27 , CENSUS_EnvLevel)((struct Fmt27 *) fi0Alloc(sizeof(struct Fmt27), (19)));
1724	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1725	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
1726	l0->X0_T = P0_T;
1727	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
1728	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1729	T1->X0_size = 1L;
1730	T1->X1_values = (FiWord*) T0;
1731	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X8)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X8) == (FiPtr) 0));
1732	if (T5) goto L3;
1733	L1: T0[0L] = l0->X0_T;
1734	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
1735	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
1736	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X8, (FiWord) (
1737	FiWord) T1, &T2, &T4);
1738	T3 = (FiBool) T4;
1739	if (T3) goto L0;
1740	T2 = fiCCall3(FiWord, (pG_GOVLL_categoryMake), fiClosMake(e0,((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((*pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C38_Join)),fiClosMakeFun(e0, (FiProg) (C37_defhash0)),fiClosMakeFun (e0, (FiProg) (C39_addNameFn))))
1741	C38_Join), fiClosMake(e0, C37_defhash0), fiClosMake(e0,((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C38_Join)),fiClosMakeFun(e0, (FiProg) (C37_defhash0)),fiClosMakeFun (e0, (FiProg) (C39_addNameFn))))
1742	C39_addNameFn))((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C38_Join)),fiClosMakeFun(e0, (FiProg) (C37_defhash0)),fiClosMakeFun (e0, (FiProg) (C39_addNameFn))));
1743	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X8, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X8,(FiWord) T1,T2))
1744	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X8,(FiWord) T1,T2));
1745	L0: return T2;
1746	L3: l1->X8 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
1747	goto L1;
1748	}
1749
1750	static struct _FiProg tmp36_Join = {
1751	(FiFun) CF36_Join,
1752	0L,
1753	0L,
1754	0L,
1755	0L
1756	};
1757
1758
1759	static FiSInt
1760	CF37_defhash0(FiEnv e1)
1761	{
1762	return 587876332L;
1763	}
1764
1765	static struct _FiProg tmp37_defhash0 = {
1766	(FiFun) CF37_defhash0,
1767	0L,
1768	0L,
1769	0L,
1770	0L
1771	};
1772
1773
1774	static void
1775	CF38_Join(FiEnv e1, FiWord P0_self, FiWord P1_dom)
1776	{
1777	PFmt5 T3, T4, T5;
1778	FiWord T0, T1, *T2;
1779	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
1780	fiARRNEW_Word(T1, FiWord, 1L)((T1) = (FiWord) fiArrNew_Word(1L));
1781	fiARRNEW_Word(T2, FiWord, 1L)((T2) = (FiWord) fiArrNew_Word(1L));
1782	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1783	T3->X0_size = 1L;
1784	T3->X1_nsize = 1L;
1785	T3->X2_values = (FiWord) T0;
1786	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1787	T4->X0_size = 1L;
1788	T4->X1_nsize = 1L;
1789	T4->X2_values = (FiWord) T1;
1790	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1791	T5->X0_size = 1L;
1792	T5->X1_nsize = 1L;
1793	T5->X2_values = (FiWord) T2;
1794	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));
1795	T0[0L] = (FiWord) 51482908L;
1796	T1[0L] = (FiWord) 587876332L;
1797	T2[0L] = P1_dom;
1798	return ;
1799	}
1800
1801	static struct _FiProg tmp38_Join = {
1802	(FiFun) CF38_Join,
1803	0L,
1804	0L,
1805	0L,
1806	0L
1807	};
1808
1809
1810	static FiWord
1811	CF39_addNameFn(FiEnv e1)
1812	{
1813	PFmt8 T2, T4;
1814	FiWord T1, T3;
1815	FiSInt T0;
1816	PFmt27 l1;
1817	l1 = (PFmt27) fiEnvLevel(e1)((FiEnv) (e1)->level);
1818	T0 = ((PFmt8) l1->X0_T)->X0_size;
1819	fiARRNEW_Word(T1, FiWord, T0)((T1) = (FiWord) fiArrNew_Word(T0));
1820	T2 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1821	T2->X0_size = T0;
1822	T2->X1_values = (FiWord*) T1;
1823	L0: T0 = T0 - 1L;
1824	if (T0 < 0) goto L1;
1825	T1[T0] = fiCCall1(FiWord, (pG_GJ87F_domainName), ((PFmt8) l1->((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((*pG_GJ87F_domainName))->env,((PFmt8) l1-> X0_T)-> X1_values[T0]))
1826	X0_T)->X1_values[T0])((((FiWord ()())((pG_GJ87F_domainName))->prog->fun)) (((pG_GJ87F_domainName))->env,((PFmt8) l1-> X0_T)-> X1_values[T0]));
1827	goto L0;
1828	L1: fiARRNEW_Word(T3, FiWord, 2L)((T3) = (FiWord) fiArrNew_Word(2L));
1829	T3[0L] = fiCCall1(FiWord, (pG_FZP76_namePartFrString), "Join")((((FiWord ()())((pG_FZP76_namePartFrString))->prog-> fun))(((*pG_FZP76_namePartFrString))->env,"Join"));
1830	T3[1L] = fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 1L, (FiWord)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))
1831	T2)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));
1832	T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1833	T4->X0_size = 2L;
1834	T4->X1_values = (FiWord*) T3;
1835	return fiCCall2(FiWord, (pG_9TG1R_namePartConcat), 0L, T4)((((FiWord ()())((pG_9TG1R_namePartConcat))->prog->fun ))(((*pG_9TG1R_namePartConcat))->env,0L,T4));
1836	}
1837
1838	static struct _FiProg tmp39_addNameFn = {
1839	(FiFun) CF39_addNameFn,
1840	0L,
1841	0L,
1842	0L,
1843	0L
1844	};
1845
1846
1847	static FiClos
1848	CF40_addLevel0(FiEnv e1, FiWord P0_domain)
1849	{
1850	FiWord T0;
1851	FiEnv e0;
1852	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1853	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Exit")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Exit"));
1854	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
1855	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,837958462L ))
1856	837958462L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,837958462L ));
1857	return fiClosMake(e0, C41_addLevel1)fiClosMakeFun(e0, (FiProg) (C41_addLevel1));
1858	}
1859
1860	static struct _FiProg tmp40_addLevel0 = {
1861	(FiFun) CF40_addLevel0,
1862	0L,
1863	0L,
1864	0L,
1865	0L
1866	};
1867
1868
1869	static FiWord
1870	CF41_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
1871	{
1872	PFmt5 T3, T4, T5;
1873	FiWord T0, T1, *T2;
1874	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
1875	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
1876	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
1877	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1878	T3->X0_size = 0L;
1879	T3->X1_nsize = 0L;
1880	T3->X2_values = (FiWord) T0;
1881	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1882	T4->X0_size = 0L;
1883	T4->X1_nsize = 0L;
1884	T4->X2_values = (FiWord) T1;
1885	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1886	T5->X0_size = 0L;
1887	T5->X1_nsize = 0L;
1888	T5->X2_values = (FiWord) T2;
1889	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) );
1890	return P0_domain;
1891	}
1892
1893	static struct _FiProg tmp41_addLevel1 = {
1894	(FiFun) CF41_addLevel1,
1895	0L,
1896	0L,
1897	0L,
1898	0L
1899	};
1900
1901
1902	static FiWord
1903	CF42_Generator(FiEnv e1, FiWord P0_T)
1904	{
1905	FiBool T3, T5;
1906	FiWord *T0, T2, T4;
1907	PFmt8 T1;
1908	PFmt30 l0;
1909	FiEnv e0;
1910	PFmt39 l1;
1911	l0 = fi0New(struct Fmt30 , CENSUS_EnvLevel)((struct Fmt30 *) fi0Alloc(sizeof(struct Fmt30), (19)));
1912	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1913	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
1914	l0->X0_T = P0_T;
1915	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
1916	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
1917	T1->X0_size = 1L;
1918	T1->X1_values = (FiWord*) T0;
1919	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X9)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X9) == (FiPtr) 0));
1920	if (T5) goto L3;
1921	L1: T0[0L] = l0->X0_T;
1922	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
1923	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
1924	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X9, (FiWord) (
1925	FiWord) T1, &T2, &T4);
1926	T3 = (FiBool) T4;
1927	if (T3) goto L0;
1928	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C43_addLevel0))))
1929	C43_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C43_addLevel0))));
1930	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X9, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X9,(FiWord) T1,T2))
1931	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X9,(FiWord) T1,T2));
1932	L0: return T2;
1933	L3: l1->X9 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
1934	goto L1;
1935	}
1936
1937	static struct _FiProg tmp42_Generator = {
1938	(FiFun) CF42_Generator,
1939	0L,
1940	0L,
1941	0L,
1942	0L
1943	};
1944
1945
1946	static FiClos
1947	CF43_addLevel0(FiEnv e1, FiWord P0_domain)
1948	{
1949	FiSInt T1, T2;
1950	FiWord T0;
1951	FiEnv e0;
1952	PFmt30 l1;
1953	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1954	l1 = (PFmt30) fiEnvLevel(e1)((FiEnv) (e1)->level);
1955	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "Generator",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Generator",l1 ->X0_T))
1956	l1->X0_T)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"Generator",l1 ->X0_T));
1957	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
1958	T2 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_T)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_T));
1959	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 83976792L)((T1) = (FiSInt) fiSIntHashCombine(T2, 83976792L));
1960	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
1961	return fiClosMake(e0, C44_addLevel1)fiClosMakeFun(e0, (FiProg) (C44_addLevel1));
1962	}
1963
1964	static struct _FiProg tmp43_addLevel0 = {
1965	(FiFun) CF43_addLevel0,
1966	0L,
1967	0L,
1968	0L,
1969	0L
1970	};
1971
1972
1973	static FiWord
1974	CF44_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
1975	{
1976	PFmt5 T3, T4, T5;
1977	FiWord T0, T1, *T2;
1978	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
1979	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
1980	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
1981	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1982	T3->X0_size = 0L;
1983	T3->X1_nsize = 0L;
1984	T3->X2_values = (FiWord) T0;
1985	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1986	T4->X0_size = 0L;
1987	T4->X1_nsize = 0L;
1988	T4->X2_values = (FiWord) T1;
1989	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1990	T5->X0_size = 0L;
1991	T5->X1_nsize = 0L;
1992	T5->X2_values = (FiWord) T2;
1993	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) );
1994	return P0_domain;
1995	}
1996
1997	static struct _FiProg tmp44_addLevel1 = {
1998	(FiFun) CF44_addLevel1,
1999	0L,
2000	0L,
2001	0L,
2002	0L
2003	};
2004
2005
2006	static FiWord
2007	CF45_Ref(FiEnv e1, FiWord P0_T)
2008	{
2009	FiBool T3, T5;
2010	FiWord *T0, T2, T4;
2011	PFmt8 T1;
2012	PFmt32 l0;
2013	FiEnv e0;
2014	PFmt39 l1;
2015	l0 = fi0New(struct Fmt32 , CENSUS_EnvLevel)((struct Fmt32 *) fi0Alloc(sizeof(struct Fmt32), (19)));
2016	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2017	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
2018	l0->X0_T = P0_T;
2019	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
2020	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
2021	T1->X0_size = 1L;
2022	T1->X1_values = (FiWord*) T0;
2023	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X10)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X10) == (FiPtr) 0));
2024	if (T5) goto L3;
2025	L1: T0[0L] = l0->X0_T;
2026	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
2027	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
2028	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X10, (FiWord) (
2029	FiWord) T1, &T2, &T4);
2030	T3 = (FiBool) T4;
2031	if (T3) goto L0;
2032	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C46_addLevel0))))
2033	C46_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C46_addLevel0))));
2034	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X10, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X10,(FiWord) T1,T2))
2035	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X10,(FiWord) T1,T2));
2036	L0: return T2;
2037	L3: l1->X10 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
2038	goto L1;
2039	}
2040
2041	static struct _FiProg tmp45_Ref = {
2042	(FiFun) CF45_Ref,
2043	0L,
2044	0L,
2045	0L,
2046	0L
2047	};
2048
2049
2050	static FiClos
2051	CF46_addLevel0(FiEnv e1, FiWord P0_domain)
2052	{
2053	FiSInt T1, T2;
2054	FiWord T0;
2055	FiEnv e0;
2056	PFmt32 l1;
2057	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2058	l1 = (PFmt32) fiEnvLevel(e1)((FiEnv) (e1)->level);
2059	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "Ref", l1->((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Ref",l1-> X0_T))
2060	X0_T)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"Ref",l1-> X0_T));
2061	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
2062	T2 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_T)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_T));
2063	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 316169048L)((T1) = (FiSInt) fiSIntHashCombine(T2, 316169048L));
2064	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
2065	return fiClosMake(e0, C47_addLevel1)fiClosMakeFun(e0, (FiProg) (C47_addLevel1));
2066	}
2067
2068	static struct _FiProg tmp46_addLevel0 = {
2069	(FiFun) CF46_addLevel0,
2070	0L,
2071	0L,
2072	0L,
2073	0L
2074	};
2075
2076
2077	static FiWord
2078	CF47_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
2079	{
2080	PFmt5 T3, T4, T5;
2081	FiWord T0, T1, *T2;
2082	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
2083	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
2084	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
2085	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2086	T3->X0_size = 0L;
2087	T3->X1_nsize = 0L;
2088	T3->X2_values = (FiWord) T0;
2089	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2090	T4->X0_size = 0L;
2091	T4->X1_nsize = 0L;
2092	T4->X2_values = (FiWord) T1;
2093	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2094	T5->X0_size = 0L;
2095	T5->X1_nsize = 0L;
2096	T5->X2_values = (FiWord) T2;
2097	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) );
2098	return P0_domain;
2099	}
2100
2101	static struct _FiProg tmp47_addLevel1 = {
2102	(FiFun) CF47_addLevel1,
2103	0L,
2104	0L,
2105	0L,
2106	0L
2107	};
2108
2109
2110	static FiClos
2111	CF48_addLevel0(FiEnv e1, FiWord P0_domain)
2112	{
2113	FiWord T0;
2114	FiEnv e0;
2115	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2116	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Literal")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Literal"));
2117	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
2118	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,887424172L ))
2119	887424172L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,887424172L ));
2120	return fiClosMake(e0, C49_addLevel1)fiClosMakeFun(e0, (FiProg) (C49_addLevel1));
2121	}
2122
2123	static struct _FiProg tmp48_addLevel0 = {
2124	(FiFun) CF48_addLevel0,
2125	0L,
2126	0L,
2127	0L,
2128	0L
2129	};
2130
2131
2132	static FiWord
2133	CF49_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
2134	{
2135	PFmt5 T3, T4, T5;
2136	FiWord T0, T1, *T2;
2137	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
2138	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
2139	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
2140	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2141	T3->X0_size = 0L;
2142	T3->X1_nsize = 0L;
2143	T3->X2_values = (FiWord) T0;
2144	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2145	T4->X0_size = 0L;
2146	T4->X1_nsize = 0L;
2147	T4->X2_values = (FiWord) T1;
2148	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2149	T5->X0_size = 0L;
2150	T5->X1_nsize = 0L;
2151	T5->X2_values = (FiWord) T2;
2152	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) );
2153	return P0_domain;
2154	}
2155
2156	static struct _FiProg tmp49_addLevel1 = {
2157	(FiFun) CF49_addLevel1,
2158	0L,
2159	0L,
2160	0L,
2161	0L
2162	};
2163
2164
2165	static FiClos
2166	CF50_addLevel0(FiEnv e1, FiWord P0_domain)
2167	{
2168	FiWord T0;
2169	FiEnv e0;
2170	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2171	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Builtin")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Builtin"));
2172	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
2173	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,771223478L ))
2174	771223478L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,771223478L ));
2175	return fiClosMake(e0, C51_addLevel1)fiClosMakeFun(e0, (FiProg) (C51_addLevel1));
2176	}
2177
2178	static struct _FiProg tmp50_addLevel0 = {
2179	(FiFun) CF50_addLevel0,
2180	0L,
2181	0L,
2182	0L,
2183	0L
2184	};
2185
2186
2187	static FiWord
2188	CF51_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
2189	{
2190	PFmt5 T3, T4, T5;
2191	FiWord T0, T1, *T2;
2192	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
2193	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
2194	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
2195	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2196	T3->X0_size = 0L;
2197	T3->X1_nsize = 0L;
2198	T3->X2_values = (FiWord) T0;
2199	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2200	T4->X0_size = 0L;
2201	T4->X1_nsize = 0L;
2202	T4->X2_values = (FiWord) T1;
2203	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2204	T5->X0_size = 0L;
2205	T5->X1_nsize = 0L;
2206	T5->X2_values = (FiWord) T2;
2207	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) );
2208	return P0_domain;
2209	}
2210
2211	static struct _FiProg tmp51_addLevel1 = {
2212	(FiFun) CF51_addLevel1,
2213	0L,
2214	0L,
2215	0L,
2216	0L
2217	};
2218
2219
2220	static FiClos
2221	CF52_addLevel0(FiEnv e1, FiWord P0_domain)
2222	{
2223	FiWord T0;
2224	FiEnv e0;
2225	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2226	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "C")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"C"));
2227	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
2228	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, 200108L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,200108L ));
2229	return fiClosMake(e0, C53_addLevel1)fiClosMakeFun(e0, (FiProg) (C53_addLevel1));
2230	}
2231
2232	static struct _FiProg tmp52_addLevel0 = {
2233	(FiFun) CF52_addLevel0,
2234	0L,
2235	0L,
2236	0L,
2237	0L
2238	};
2239
2240
2241	static FiWord
2242	CF53_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
2243	{
2244	PFmt5 T3, T4, T5;
2245	FiWord T0, T1, *T2;
2246	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
2247	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
2248	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
2249	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2250	T3->X0_size = 0L;
2251	T3->X1_nsize = 0L;
2252	T3->X2_values = (FiWord) T0;
2253	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2254	T4->X0_size = 0L;
2255	T4->X1_nsize = 0L;
2256	T4->X2_values = (FiWord) T1;
2257	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2258	T5->X0_size = 0L;
2259	T5->X1_nsize = 0L;
2260	T5->X2_values = (FiWord) T2;
2261	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) );
2262	return P0_domain;
2263	}
2264
2265	static struct _FiProg tmp53_addLevel1 = {
2266	(FiFun) CF53_addLevel1,
2267	0L,
2268	0L,
2269	0L,
2270	0L
2271	};
2272
2273
2274	static FiClos
2275	CF54_addLevel0(FiEnv e1, FiWord P0_domain)
2276	{
2277	FiWord T0;
2278	FiEnv e0;
2279	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2280	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Lisp")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Lisp"));
2281	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
2282	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,144194108L ))
2283	144194108L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,144194108L ));
2284	return fiClosMake(e0, C55_addLevel1)fiClosMakeFun(e0, (FiProg) (C55_addLevel1));
2285	}
2286
2287	static struct _FiProg tmp54_addLevel0 = {
2288	(FiFun) CF54_addLevel0,
2289	0L,
2290	0L,
2291	0L,
2292	0L
2293	};
2294
2295
2296	static FiWord
2297	CF55_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
2298	{
2299	PFmt5 T3, T4, T5;
2300	FiWord T0, T1, *T2;
2301	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
2302	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
2303	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
2304	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2305	T3->X0_size = 0L;
2306	T3->X1_nsize = 0L;
2307	T3->X2_values = (FiWord) T0;
2308	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2309	T4->X0_size = 0L;
2310	T4->X1_nsize = 0L;
2311	T4->X2_values = (FiWord) T1;
2312	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2313	T5->X0_size = 0L;
2314	T5->X1_nsize = 0L;
2315	T5->X2_values = (FiWord) T2;
2316	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) );
2317	return P0_domain;
2318	}
2319
2320	static struct _FiProg tmp55_addLevel1 = {
2321	(FiFun) CF55_addLevel1,
2322	0L,
2323	0L,
2324	0L,
2325	0L
2326	};
2327
2328
2329	static FiWord
2330	CF56_Foreign(FiEnv e1, FiWord P0_T)
2331	{
2332	FiBool T3, T5;
2333	FiWord *T0, T2, T4;
2334	PFmt8 T1;
2335	PFmt38 l0;
2336	FiEnv e0;
2337	PFmt39 l1;
2338	l0 = fi0New(struct Fmt38 , CENSUS_EnvLevel)((struct Fmt38 *) fi0Alloc(sizeof(struct Fmt38), (19)));
2339	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2340	l1 = (PFmt39) fiEnvLevel(e1)((FiEnv) (e1)->level);
2341	l0->X0_T = P0_T;
2342	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
2343	T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));
2344	T1->X0_size = 1L;
2345	T1->X1_values = (FiWord*) T0;
2346	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X11)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X11) == (FiPtr) 0));
2347	if (T5) goto L3;
2348	L1: T0[0L] = l0->X0_T;
2349	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
2350	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
2351	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X11, (FiWord) (
2352	FiWord) T1, &T2, &T4);
2353	T3 = (FiBool) T4;
2354	if (T3) goto L0;
2355	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C57_addLevel0))))
2356	C57_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C57_addLevel0))));
2357	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X11, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X11,(FiWord) T1,T2))
2358	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X11,(FiWord) T1,T2));
2359	L0: return T2;
2360	L3: l1->X11 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
2361	goto L1;
2362	}
2363
2364	static struct _FiProg tmp56_Foreign = {
2365	(FiFun) CF56_Foreign,
2366	0L,
2367	0L,
2368	0L,
2369	0L
2370	};
2371
2372
2373	static FiClos
2374	CF57_addLevel0(FiEnv e1, FiWord P0_domain)
2375	{
2376	FiSInt T1, T2;
2377	FiWord T0;
2378	FiEnv e0;
2379	PFmt38 l1;
2380	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2381	l1 = (PFmt38) fiEnvLevel(e1)((FiEnv) (e1)->level);
2382	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "Foreign",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Foreign",l1-> X0_T))
2383	l1->X0_T)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"Foreign",l1-> X0_T));
2384	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
2385	T2 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_T)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_T));
2386	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 215472809L)((T1) = (FiSInt) fiSIntHashCombine(T2, 215472809L));
2387	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
2388	return fiClosMake(e0, C58_addLevel1)fiClosMakeFun(e0, (FiProg) (C58_addLevel1));
2389	}
2390
2391	static struct _FiProg tmp57_addLevel0 = {
2392	(FiFun) CF57_addLevel0,
2393	0L,
2394	0L,
2395	0L,
2396	0L
2397	};
2398
2399
2400	static FiWord
2401	CF58_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
2402	{
2403	PFmt5 T3, T4, T5;
2404	FiWord T0, T1, *T2;
2405	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
2406	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
2407	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
2408	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2409	T3->X0_size = 0L;
2410	T3->X1_nsize = 0L;
2411	T3->X2_values = (FiWord) T0;
2412	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2413	T4->X0_size = 0L;
2414	T4->X1_nsize = 0L;
2415	T4->X2_values = (FiWord) T1;
2416	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2417	T5->X0_size = 0L;
2418	T5->X1_nsize = 0L;
2419	T5->X2_values = (FiWord) T2;
2420	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) );
2421	return P0_domain;
2422	}
2423
2424	static struct _FiProg tmp58_addLevel1 = {
2425	(FiFun) CF58_addLevel1,
2426	0L,
2427	0L,
2428	0L,
2429	0L
2430	};
2431
2432	extern int
2433	INIT__0_lang()
2434	{
2435
2436	extern int INIT__0_rtexns();
2437	extern int INIT__0_runtime();
2438	static int initialized = 0;
2439	if (initialized)
2440	return 0L;
2441	else
2442	initialized = 1;
2443	C1_addLevel0 = &tmp1_addLevel0;
2444	C2_addLevel1 = &tmp2_addLevel1;
2445	C3_addLevel0 = &tmp3_addLevel0;
2446	C4_addLevel1 = &tmp4_addLevel1;
2447	C5__MINUS__GT_ = &tmp5__MINUS__GT_;
2448	C6_addLevel0 = &tmp6_addLevel0;
2449	C7_addNameFn = &tmp7_addNameFn;
2450	C8_addLevel1 = &tmp8_addLevel1;
2451	C9__MINUS__GT__STAR_ = &tmp9__MINUS__GT__STAR_;
2452	C10_addLevel0 = &tmp10_addLevel0;
2453	C11_addNameFn = &tmp11_addNameFn;
2454	C12_addLevel1 = &tmp12_addLevel1;
2455	C13_Tuple = &tmp13_Tuple;
2456	C14_addLevel0 = &tmp14_addLevel0;
2457	C15_addLevel1 = &tmp15_addLevel1;
2458	C16_Cross = &tmp16_Cross;
2459	C17_addLevel0 = &tmp17_addLevel0;
2460	C18_addNameFn = &tmp18_addNameFn;
2461	C19_addLevel1 = &tmp19_addLevel1;
2462	C20_Record = &tmp20_Record;
2463	C21_addLevel0 = &tmp21_addLevel0;
2464	C22_addNameFn = &tmp22_addNameFn;
2465	C23_addLevel1 = &tmp23_addLevel1;
2466	C24_Union = &tmp24_Union;
2467	C25_addLevel0 = &tmp25_addLevel0;
2468	C26_addNameFn = &tmp26_addNameFn;
2469	C27_addLevel1 = &tmp27_addLevel1;
2470	C28_Enumeration = &tmp28_Enumeration;
2471	C29_addLevel0 = &tmp29_addLevel0;
2472	C30_addNameFn = &tmp30_addNameFn;
2473	C31_addLevel1 = &tmp31_addLevel1;
2474	C32_TrailingArray = &tmp32_TrailingArray;
2475	C33_addLevel0 = &tmp33_addLevel0;
2476	C34_addNameFn = &tmp34_addNameFn;
2477	C35_addLevel1 = &tmp35_addLevel1;
2478	C36_Join = &tmp36_Join;
2479	C37_defhash0 = &tmp37_defhash0;
2480	C38_Join = &tmp38_Join;
2481	C39_addNameFn = &tmp39_addNameFn;
2482	C40_addLevel0 = &tmp40_addLevel0;
2483	C41_addLevel1 = &tmp41_addLevel1;
2484	C42_Generator = &tmp42_Generator;
2485	C43_addLevel0 = &tmp43_addLevel0;
2486	C44_addLevel1 = &tmp44_addLevel1;
2487	C45_Ref = &tmp45_Ref;
2488	C46_addLevel0 = &tmp46_addLevel0;
2489	C47_addLevel1 = &tmp47_addLevel1;
2490	C48_addLevel0 = &tmp48_addLevel0;
2491	C49_addLevel1 = &tmp49_addLevel1;
2492	C50_addLevel0 = &tmp50_addLevel0;
2493	C51_addLevel1 = &tmp51_addLevel1;
2494	C52_addLevel0 = &tmp52_addLevel0;
2495	C53_addLevel1 = &tmp53_addLevel1;
2496	C54_addLevel0 = &tmp54_addLevel0;
2497	C55_addLevel1 = &tmp55_addLevel1;
2498	C56_Foreign = &tmp56_Foreign;
2499	C57_addLevel0 = &tmp57_addLevel0;
2500	C58_addLevel1 = &tmp58_addLevel1;
2501	C0_lang = &tmp0_lang;
2502	fiExportGlobal("G_8KYHF_lang", G_8KYHF_lang)fiExportGlobalFun("G_8KYHF_lang", (Ptr) &G_8KYHF_lang, sizeof (G_8KYHF_lang));
2503	fiExportGlobal("G_1BUPJ_lang__Foreign__8145869",fiExportGlobalFun("G_1BUPJ_lang__Foreign__8145869", (Ptr) & G_1BUPJ_lang__Foreign__8145869, sizeof(G_1BUPJ_lang__Foreign__8145869 ))
2504	G_1BUPJ_lang__Foreign__8145869)fiExportGlobalFun("G_1BUPJ_lang__Foreign__8145869", (Ptr) & G_1BUPJ_lang__Foreign__8145869, sizeof(G_1BUPJ_lang__Foreign__8145869 ));
2505	fiExportGlobal("G_2BB3F_lang__Lisp__394624008",fiExportGlobalFun("G_2BB3F_lang__Lisp__394624008", (Ptr) & G_2BB3F_lang__Lisp__394624008, sizeof(G_2BB3F_lang__Lisp__394624008 ))
2506	G_2BB3F_lang__Lisp__394624008)fiExportGlobalFun("G_2BB3F_lang__Lisp__394624008", (Ptr) & G_2BB3F_lang__Lisp__394624008, sizeof(G_2BB3F_lang__Lisp__394624008 ));
2507	fiExportGlobal("G_I98PU_lang__C__394624008",fiExportGlobalFun("G_I98PU_lang__C__394624008", (Ptr) &G_I98PU_lang__C__394624008 , sizeof(G_I98PU_lang__C__394624008))
2508	G_I98PU_lang__C__394624008)fiExportGlobalFun("G_I98PU_lang__C__394624008", (Ptr) &G_I98PU_lang__C__394624008 , sizeof(G_I98PU_lang__C__394624008));
2509	fiExportGlobal("G_YHZ7E_lang__Builtin__3946240",fiExportGlobalFun("G_YHZ7E_lang__Builtin__3946240", (Ptr) & G_YHZ7E_lang__Builtin__3946240, sizeof(G_YHZ7E_lang__Builtin__3946240 ))
2510	G_YHZ7E_lang__Builtin__3946240)fiExportGlobalFun("G_YHZ7E_lang__Builtin__3946240", (Ptr) & G_YHZ7E_lang__Builtin__3946240, sizeof(G_YHZ7E_lang__Builtin__3946240 ));
2511	fiExportGlobal("G_AIUXA_lang__Literal__3946240",fiExportGlobalFun("G_AIUXA_lang__Literal__3946240", (Ptr) & G_AIUXA_lang__Literal__3946240, sizeof(G_AIUXA_lang__Literal__3946240 ))
2512	G_AIUXA_lang__Literal__3946240)fiExportGlobalFun("G_AIUXA_lang__Literal__3946240", (Ptr) & G_AIUXA_lang__Literal__3946240, sizeof(G_AIUXA_lang__Literal__3946240 ));
2513	fiExportGlobal("G_4T625_lang__Ref__814586999",fiExportGlobalFun("G_4T625_lang__Ref__814586999", (Ptr) & G_4T625_lang__Ref__814586999, sizeof(G_4T625_lang__Ref__814586999 ))
2514	G_4T625_lang__Ref__814586999)fiExportGlobalFun("G_4T625_lang__Ref__814586999", (Ptr) & G_4T625_lang__Ref__814586999, sizeof(G_4T625_lang__Ref__814586999 ));
2515	fiExportGlobal("G_JK5PB_lang__Generator__81458",fiExportGlobalFun("G_JK5PB_lang__Generator__81458", (Ptr) & G_JK5PB_lang__Generator__81458, sizeof(G_JK5PB_lang__Generator__81458 ))
2516	G_JK5PB_lang__Generator__81458)fiExportGlobalFun("G_JK5PB_lang__Generator__81458", (Ptr) & G_JK5PB_lang__Generator__81458, sizeof(G_JK5PB_lang__Generator__81458 ));
2517	fiExportGlobal("G_1JSH9_lang__Exit__394624008",fiExportGlobalFun("G_1JSH9_lang__Exit__394624008", (Ptr) & G_1JSH9_lang__Exit__394624008, sizeof(G_1JSH9_lang__Exit__394624008 ))
2518	G_1JSH9_lang__Exit__394624008)fiExportGlobalFun("G_1JSH9_lang__Exit__394624008", (Ptr) & G_1JSH9_lang__Exit__394624008, sizeof(G_1JSH9_lang__Exit__394624008 ));
2519	fiExportGlobal("G_1M9E1_lang__Join__459849284",fiExportGlobalFun("G_1M9E1_lang__Join__459849284", (Ptr) & G_1M9E1_lang__Join__459849284, sizeof(G_1M9E1_lang__Join__459849284 ))
2520	G_1M9E1_lang__Join__459849284)fiExportGlobalFun("G_1M9E1_lang__Join__459849284", (Ptr) & G_1M9E1_lang__Join__459849284, sizeof(G_1M9E1_lang__Join__459849284 ));
2521	fiExportGlobal("G_Q3NR7_lang__TrailingArray__2",fiExportGlobalFun("G_Q3NR7_lang__TrailingArray__2", (Ptr) & G_Q3NR7_lang__TrailingArray__2, sizeof(G_Q3NR7_lang__TrailingArray__2 ))
2522	G_Q3NR7_lang__TrailingArray__2)fiExportGlobalFun("G_Q3NR7_lang__TrailingArray__2", (Ptr) & G_Q3NR7_lang__TrailingArray__2, sizeof(G_Q3NR7_lang__TrailingArray__2 ));
2523	fiExportGlobal("G_KU40K_lang__Enumeration__799",fiExportGlobalFun("G_KU40K_lang__Enumeration__799", (Ptr) & G_KU40K_lang__Enumeration__799, sizeof(G_KU40K_lang__Enumeration__799 ))
2524	G_KU40K_lang__Enumeration__799)fiExportGlobalFun("G_KU40K_lang__Enumeration__799", (Ptr) & G_KU40K_lang__Enumeration__799, sizeof(G_KU40K_lang__Enumeration__799 ));
2525	fiExportGlobal("G_VPDBC_lang__Union__799856246",fiExportGlobalFun("G_VPDBC_lang__Union__799856246", (Ptr) & G_VPDBC_lang__Union__799856246, sizeof(G_VPDBC_lang__Union__799856246 ))
2526	G_VPDBC_lang__Union__799856246)fiExportGlobalFun("G_VPDBC_lang__Union__799856246", (Ptr) & G_VPDBC_lang__Union__799856246, sizeof(G_VPDBC_lang__Union__799856246 ));
2527	fiExportGlobal("G_QLPQP_lang__Record__79985624",fiExportGlobalFun("G_QLPQP_lang__Record__79985624", (Ptr) & G_QLPQP_lang__Record__79985624, sizeof(G_QLPQP_lang__Record__79985624 ))
2528	G_QLPQP_lang__Record__79985624)fiExportGlobalFun("G_QLPQP_lang__Record__79985624", (Ptr) & G_QLPQP_lang__Record__79985624, sizeof(G_QLPQP_lang__Record__79985624 ));
2529	fiExportGlobal("G_2D7U7_lang__Cross__799856246",fiExportGlobalFun("G_2D7U7_lang__Cross__799856246", (Ptr) & G_2D7U7_lang__Cross__799856246, sizeof(G_2D7U7_lang__Cross__799856246 ))
2530	G_2D7U7_lang__Cross__799856246)fiExportGlobalFun("G_2D7U7_lang__Cross__799856246", (Ptr) & G_2D7U7_lang__Cross__799856246, sizeof(G_2D7U7_lang__Cross__799856246 ));
2531	fiExportGlobal("G_8J5OB_lang___MINUS__GT_", G_8J5OB_lang___MINUS__GT_)fiExportGlobalFun("G_8J5OB_lang___MINUS__GT_", (Ptr) &G_8J5OB_lang___MINUS__GT_ , sizeof(G_8J5OB_lang___MINUS__GT_));
2532	fiExportGlobal("G_2YLCN_lang__Tuple__814586999",fiExportGlobalFun("G_2YLCN_lang__Tuple__814586999", (Ptr) & G_2YLCN_lang__Tuple__814586999, sizeof(G_2YLCN_lang__Tuple__814586999 ))
2533	G_2YLCN_lang__Tuple__814586999)fiExportGlobalFun("G_2YLCN_lang__Tuple__814586999", (Ptr) & G_2YLCN_lang__Tuple__814586999, sizeof(G_2YLCN_lang__Tuple__814586999 ));
2534	fiExportGlobal("G_OFGSL_lang___MINUS__GT___586",fiExportGlobalFun("G_OFGSL_lang___MINUS__GT___586", (Ptr) & G_OFGSL_lang___MINUS__GT___586, sizeof(G_OFGSL_lang___MINUS__GT___586 ))
2535	G_OFGSL_lang___MINUS__GT___586)fiExportGlobalFun("G_OFGSL_lang___MINUS__GT___586", (Ptr) & G_OFGSL_lang___MINUS__GT___586, sizeof(G_OFGSL_lang___MINUS__GT___586 ));
2536	fiExportGlobal("G_RO3JX_lang__Category__394624",fiExportGlobalFun("G_RO3JX_lang__Category__394624", (Ptr) & G_RO3JX_lang__Category__394624, sizeof(G_RO3JX_lang__Category__394624 ))
2537	G_RO3JX_lang__Category__394624)fiExportGlobalFun("G_RO3JX_lang__Category__394624", (Ptr) & G_RO3JX_lang__Category__394624, sizeof(G_RO3JX_lang__Category__394624 ));
2538	fiExportGlobal("G_S6I8I_lang__Type__394624008",fiExportGlobalFun("G_S6I8I_lang__Type__394624008", (Ptr) & G_S6I8I_lang__Type__394624008, sizeof(G_S6I8I_lang__Type__394624008 ))
2539	G_S6I8I_lang__Type__394624008)fiExportGlobalFun("G_S6I8I_lang__Type__394624008", (Ptr) & G_S6I8I_lang__Type__394624008, sizeof(G_S6I8I_lang__Type__394624008 ));
2540	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
2541	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
2542	fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn );
2543	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
2544	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
2545	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
2546	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
2547	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
2548	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
2549	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
2550	fiImportGlobal("G_KAC1B_rtCacheExplicitMake",fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) & pG_KAC1B_rtCacheExplicitMake)
2551	pG_KAC1B_rtCacheExplicitMake)fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) & pG_KAC1B_rtCacheExplicitMake);
2552	fiImportGlobal("G_759EG_rtCacheCheck", pG_759EG_rtCacheCheck)fiImportGlobalFun("G_759EG_rtCacheCheck", (Ptr *) &pG_759EG_rtCacheCheck );
2553	fiImportGlobal("G_LD0B5_domainHash_BANG_", pG_LD0B5_domainHash_BANG_)fiImportGlobalFun("G_LD0B5_domainHash_BANG_", (Ptr *) &pG_LD0B5_domainHash_BANG_ );
2554	fiImportGlobal("G_FZP76_namePartFrString", pG_FZP76_namePartFrString)fiImportGlobalFun("G_FZP76_namePartFrString", (Ptr *) &pG_FZP76_namePartFrString );
2555	fiImportGlobal("G_GJ87F_domainName", pG_GJ87F_domainName)fiImportGlobalFun("G_GJ87F_domainName", (Ptr *) &pG_GJ87F_domainName );
2556	fiImportGlobal("G_9TG1R_namePartConcat", pG_9TG1R_namePartConcat)fiImportGlobalFun("G_9TG1R_namePartConcat", (Ptr *) &pG_9TG1R_namePartConcat );
2557	fiImportGlobal("G_PV28S_rtCacheAdd", pG_PV28S_rtCacheAdd)fiImportGlobalFun("G_PV28S_rtCacheAdd", (Ptr *) &pG_PV28S_rtCacheAdd );
2558	fiImportGlobal("G_8AMPD_rtSingleParamNameFn",fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) & pG_8AMPD_rtSingleParamNameFn)
2559	pG_8AMPD_rtSingleParamNameFn)fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) & pG_8AMPD_rtSingleParamNameFn);
2560	fiImportGlobal("G_X9M4Q_stringHash", pG_X9M4Q_stringHash)fiImportGlobalFun("G_X9M4Q_stringHash", (Ptr *) &pG_X9M4Q_stringHash );
2561	fiImportGlobal("G_WXLY5_categoryAddExports",fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports)
2562	pG_WXLY5_categoryAddExports)fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports);
2563	fiImportGlobal("G_GOVLL_categoryMake", pG_GOVLL_categoryMake)fiImportGlobalFun("G_GOVLL_categoryMake", (Ptr *) &pG_GOVLL_categoryMake );
2564	if (fiFileInitializer) {
2565	fiFileInitializer("rtexns");
2566	fiFileInitializer("runtime");
2567	}
2568	else {
2569	INIT__0_rtexns();
2570	INIT__0_runtime();
2571	}
2572	/* "---------------------------" */
2573	return 0L;
2574	}
2575
2576	FiWord G_S6I8I_lang__Type__394624008;
2577	FiWord G_RO3JX_lang__Category__394624;
2578	FiClos G_OFGSL_lang___MINUS__GT___586;
2579	FiClos G_2YLCN_lang__Tuple__814586999;
2580	FiClos G_8J5OB_lang___MINUS__GT_;
2581	FiClos G_2D7U7_lang__Cross__799856246;
2582	FiClos G_QLPQP_lang__Record__79985624;
2583	FiClos G_VPDBC_lang__Union__799856246;
2584	FiClos G_KU40K_lang__Enumeration__799;
2585	FiClos G_Q3NR7_lang__TrailingArray__2;
2586	FiClos G_1M9E1_lang__Join__459849284;
2587	FiWord G_1JSH9_lang__Exit__394624008;
2588	FiClos G_JK5PB_lang__Generator__81458;
2589	FiClos G_4T625_lang__Ref__814586999;
2590	FiWord G_AIUXA_lang__Literal__3946240;
2591	FiWord G_YHZ7E_lang__Builtin__3946240;
2592	FiWord G_I98PU_lang__C__394624008;
2593	FiWord G_2BB3F_lang__Lisp__394624008;
2594	FiClos G_1BUPJ_lang__Foreign__8145869;
2595
2596	static struct _FiClos tmpClos0_lang = {
2597	0L,
2598	(FiProg) &tmp0_lang
2599	};
2600	FiClos G_8KYHF_lang = &tmpClos0_lang;