al/segment.c

Bug Summary

File:	lib/libfoamlib/al/segment.c
Warning:	line 479, column 9 Value stored to 'l2' 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 segment.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/segment.c

1	/*
2	* C code generated by Aldor from file "segment.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	struct Fmt5 {
27	FiSInt X0_size;
28	FiSInt X1_nsize;
29	FiWord X2_values;
30	};
31	struct Fmt6 {
32	FiPtr X0_empty;
33	};
34	struct Fmt7 {
35	FiSInt X0_size;
36	FiWord *X1_values;
37	};
38	struct Fmt8 {
39	FiWord X0_found;
40	FiWord X1_value;
41	};
42	struct Fmt9 {
43	FiPtr X0_empty;
44	};
45	struct Fmt10 {
46	FiWord X0_S;
47	};
48	struct Fmt11 {
49	FiPtr X0_empty;
50	};
51	struct Fmt12 {
52	FiWord X0_S;
53	};
54	struct Fmt13 {
55	FiWord X0_open_QMARK_;
56	FiWord X1_low;
57	FiWord X2_high;
58	FiWord X3_step;
59	};
60	struct Fmt14 {
61	FiClos X0_done_QMARK_;
62	FiClos X1_step_BANG_;
63	FiClos X2_value;
64	FiClos X3_bound;
65	};
66	struct Fmt15 {
67	FiWord X0_s;
68	FiWord X1_a;
69	FiBool X2;
70	FiSInt X3;
71	FiWord X4;
72	};
73	struct Fmt16 {
74	FiWord X0_s;
75	FiWord X1_b;
76	FiWord X2_a;
77	FiBool X3;
78	FiSInt X4;
79	FiWord X5;
80	};
81	struct Fmt17 {
82	FiWord X0_s;
83	FiWord X1_up;
84	FiWord X2_ubd;
85	FiWord X3_d;
86	FiWord X4_b;
87	FiWord X5_a;
88	FiBool X6;
89	FiSInt X7;
90	FiWord X8;
91	FiBool X9;
92	FiBool X10;
93	FiBool X11;
94	FiBool X12;
95	};
96	struct Fmt18 {
97	FiWord X0_x;
98	};
99	struct Fmt19 {
100	FiClos X0_case;
101	FiClos X1_hash;
102	FiClos X2__TILDE__EQ_;
103	FiClos X3_size;
104	FiClos X4_size;
105	FiClos X5__LT__LT_;
106	FiClos X6__LT__LT_;
107	FiClos X7__EQ_;
108	FiClos X8_generator;
109	FiClos X9_generator;
110	FiClos X10_generator;
111	FiClos X11_step;
112	FiClos X12_high;
113	FiClos X13_low;
114	FiClos X14_open_QMARK_;
115	FiClos X15_by;
116	FiClos X16_by;
117	FiClos X17_by;
118	FiClos X18_coerce;
119	FiClos X19_coerce;
120	FiClos X20__DOT__DOT_;
121	FiClos X21__DOT__DOT_;
122	FiWord X22_sample;
123	FiClos X23__EQ_;
124	FiClos X24__TILDE__EQ_;
125	FiClos X25__LT__LT_;
126	FiClos X26__GT__EQ_;
127	FiClos X27__LT__EQ_;
128	FiWord X28_0;
129	FiClos X29__PLUS_;
130	FiWord X30_1;
131	FiClos X31__STAR_;
132	FiClos X32_stepsBetween;
133	FiSInt X33;
134	FiWord X34_dom;
135	};
136	struct Fmt20 {
137	FiWord X0_S;
138	};
139	struct Fmt21 {
140	FiPtr X0_empty;
141	};
142	struct Fmt22 {
143	FiWord X0_OrderedRing;
144	FiWord X1_BasicType;
145	FiWord X2;
146	FiWord X3;
147	FiWord X4;
148	FiBool X5;
149	};
150	struct Fmt23 {
151	FiClos X0;
152	FiClos X1;
153	FiClos X2;
154	};
155	static FiProg C0_segment;
156	static void CF0_segment(FiEnv e1);
157	static FiProg C1_Steppable;
158	static void CF1_Steppable(FiEnv e1, FiWord P0_self, FiWord P1_dom);
159	static FiProg C2_OpenSegment;
160	static FiWord CF2_OpenSegment(FiEnv e1, FiWord P0_S);
161	static FiProg C3_addLevel0;
162	static FiClos CF3_addLevel0(FiEnv e1, FiWord P0_domain);
163	static FiProg C4_addLevel1;
164	static FiWord CF4_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
165	static FiProg C5_ClosedSegment;
166	static FiWord CF5_ClosedSegment(FiEnv e1, FiWord P0_S);
167	static FiProg C6_addLevel0;
168	static FiClos CF6_addLevel0(FiEnv e1, FiWord P0_domain);
169	static FiProg C7_addLevel1;
170	static FiWord CF7_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
171	static FiProg C8_Segment;
172	static FiWord CF8_Segment(FiEnv e1, FiWord P0_S);
173	static FiProg C9_addLevel0;
174	static FiClos CF9_addLevel0(FiEnv e1, FiWord P0_domain);
175	static FiProg C10_addLevel1;
176	static FiWord CF10_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
177	static FiProg C11__DOT__DOT_;
178	static FiWord CF11__DOT__DOT_(FiEnv e1, FiWord P0_a);
179	static FiProg C12__DOT__DOT_;
180	static FiWord CF12__DOT__DOT_(FiEnv e1, FiWord P0_a, FiWord P1_b);
181	static FiProg C13_coerce;
182	static FiWord CF13_coerce(FiEnv e1, FiWord P0_s);
183	static FiProg C14_coerce;
184	static FiWord CF14_coerce(FiEnv e1, FiWord P0_s);
185	static FiProg C15_by;
186	static FiWord CF15_by(FiEnv e1, FiWord P0_s, FiWord P1_d);
187	static FiProg C16_by;
188	static FiWord CF16_by(FiEnv e1, FiWord P0_s, FiWord P1_d);
189	static FiProg C17_by;
190	static FiWord CF17_by(FiEnv e1, FiWord P0_s, FiWord P1_d);
191	static FiProg C18_open_QMARK_;
192	static FiWord CF18_open_QMARK_(FiEnv e1, FiWord P0_s);
193	static FiProg C19_low;
194	static FiWord CF19_low(FiEnv e1, FiWord P0_s);
195	static FiProg C20_high;
196	static FiWord CF20_high(FiEnv e1, FiWord P0_s);
197	static FiProg C21_step;
198	static FiWord CF21_step(FiEnv e1, FiWord P0_s);
199	static FiProg C22_generator;
200	static FiClos CF22_generator(FiEnv e1, FiWord P0_s);
201	static FiProg C23_generBaseFn;
202	static void CF23_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
203	static FiProg C24_generStepper;
204	static void CF24_generStepper(FiEnv e1);
205	static FiProg C25_generDone_QMARK_;
206	static FiBool CF25_generDone_QMARK_(FiEnv e1);
207	static FiProg C26_generValue;
208	static FiWord CF26_generValue(FiEnv e1);
209	static FiProg C27_generBound;
210	static FiSInt CF27_generBound(FiEnv e1);
211	static FiProg C28_generator;
212	static FiClos CF28_generator(FiEnv e1, FiWord P0_s);
213	static FiProg C29_generBaseFn;
214	static void CF29_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
215	static FiProg C30_generStepper;
216	static void CF30_generStepper(FiEnv e1);
217	static FiProg C31_generDone_QMARK_;
218	static FiBool CF31_generDone_QMARK_(FiEnv e1);
219	static FiProg C32_generValue;
220	static FiWord CF32_generValue(FiEnv e1);
221	static FiProg C33_generBound;
222	static FiSInt CF33_generBound(FiEnv e1);
223	static FiProg C34_generator;
224	static FiClos CF34_generator(FiEnv e1, FiWord P0_s);
225	static FiProg C35_generBaseFn;
226	static void CF35_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
227	static FiProg C36_generStepper;
228	static void CF36_generStepper(FiEnv e1);
229	static FiProg C37_generDone_QMARK_;
230	static FiBool CF37_generDone_QMARK_(FiEnv e1);
231	static FiProg C38_generValue;
232	static FiWord CF38_generValue(FiEnv e1);
233	static FiProg C39_generBound;
234	static FiSInt CF39_generBound(FiEnv e1);
235	static FiProg C40__EQ_;
236	static FiWord CF40__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);
237	static FiProg C41__LT__LT_;
238	static FiWord CF41__LT__LT_(FiEnv e1, FiWord P0_p, FiWord P1_a);
239	static FiProg C42_size;
240	static FiWord CF42_size(FiEnv e1, FiWord P0_s);
241	static FiProg C43_size;
242	static FiWord CF43_size(FiEnv e1, FiWord P0_s);
243	static FiProg C44__TILDE__EQ_;
244	static FiWord CF44__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y);
245	static FiProg C45_hash;
246	static FiWord CF45_hash(FiEnv e1, FiWord P0_x);
247	static FiProg C46__LT__LT_;
248	static FiClos CF46__LT__LT_(FiEnv e1, FiWord P0_x);
249	static FiProg C47__LT__LT_;
250	static FiWord CF47__LT__LT_(FiEnv e1, FiWord P0_p);
251	static FiProg C48_case;
252	static FiWord CF48_case(FiEnv e1, FiWord P0_x, FiWord P1_y);
253	static FiProg C49_foamcat_MINUS_init;
254	static FiWord CF49_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx);
255	extern FiClos G_WVJG4_segment;
256	static FiClos *pG_NQYQM_noOperation;
257	extern FiClos G_RPY7R_segment__Segment__1001;
258	extern FiClos G_H8G3S_segment__ClosedSegment;
259	extern FiClos G_RE3O1_segment__OpenSegment__;
260	extern FiWord G_YTG7I_segment__Steppable__06;
261	static FiClos *pG_XIPRL_runtime;
262	static FiClos *pG_JP87X_rtConstSIntFn;
263	static FiClos *pG_LD0B5_domainHash_BANG_;
264	static FiClos *pG_WXLY5_categoryAddExports;
265	static FiWord *pG_7KMBB_foamcat__OrderedRing;
266	static FiClos *pG_NOX7X_rtLazyCatFrInit;
267	static FiClos *pG_YXGL3_categoryAddParents;
268	static FiClos *pG_QRAZA_rtDelayedGetExport;
269	static FiClos *pG_B830W_stdGetWordWordWordRet;
270	static FiClos *pG_DLXW8_stdGetWordWordRetWord;
271	static FiClos *pG_Z2868_rtConstNameFn;
272	static FiClos *pG_GOVLL_categoryMake;
273	static FiClos *pG_KAC1B_rtCacheExplicitMake;
274	static FiClos *pG_759EG_rtCacheCheck;
275	static FiClos *pG_8AMPD_rtSingleParamNameFn;
276	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
277	static FiClos *pG_XS55O_domainAddHash_BANG_;
278	static FiClos *pG_PA5R2_domainAddExports;
279	static FiClos *pG_IJHFC_domainMakeDispatch;
280	static FiWord *pG_WJ80M_foamcat__BasicType__9;
281	static FiClos *pG_V9SO_domainAddDefaults;
282	static FiClos *pG_LKD03_domainAddParents;
283	static FiClos *pG_6L1ZC_domainMake;
284	static FiClos *pG_PV28S_rtCacheAdd;
285	static FiClos *pG_4NZQI_lazyGetExport_BANG_;
286	static FiClos *pG_R3D1K_lazyForceImport;
287	static FiClos *pG_822GM_rtAddStrings;
288	static FiClos *pG_H8TZ5_foamcat;
289
290
291
292	static void
293	CF0_segment(FiEnv e1)
294	{
295	FiWord T1, T2, T6;
296	FiClos T0, T5;
297	PFmt5 T3, T4;
298	PFmt22 l0;
299	FiEnv e0;
300	l0 = fi0New(struct Fmt22 , CENSUS_EnvLevel)((struct Fmt22 *) fi0Alloc(sizeof(struct Fmt22), (19)));
301	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
302	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
303	G_WVJG4_segment = (FiClos) (*pG_NQYQM_noOperation);
304	T0 = fiClosMake(e0, C49_foamcat_MINUS_init)fiClosMakeFun(e0, (FiProg) (C49_foamcat_MINUS_init));
305	l0->X2 = (FiWord) fiNil((Ptr) 0);
306	G_RE3O1_segment__OpenSegment__ = fiClosMake(e0, C2_OpenSegment)fiClosMakeFun(e0, (FiProg) (C2_OpenSegment));
307	fiProgHashCode(((FiClos) G_RE3O1_segment__OpenSegment__)->prog)((((FiClos) G_RE3O1_segment__OpenSegment__)->prog)->data ) =
308	625415912L;
309	l0->X3 = (FiWord) fiNil((Ptr) 0);
310	G_H8G3S_segment__ClosedSegment = fiClosMake(e0, C5_ClosedSegment)fiClosMakeFun(e0, (FiProg) (C5_ClosedSegment));
311	fiProgHashCode(((FiClos) G_H8G3S_segment__ClosedSegment)->prog)((((FiClos) G_H8G3S_segment__ClosedSegment)->prog)->data ) =
312	961154690L;
313	l0->X4 = (FiWord) fiNil((Ptr) 0);
314	G_RPY7R_segment__Segment__1001 = fiClosMake(e0, C8_Segment)fiClosMakeFun(e0, (FiProg) (C8_Segment));
315	fiProgHashCode(((FiClos) G_RPY7R_segment__Segment__1001)->prog)((((FiClos) G_RPY7R_segment__Segment__1001)->prog)->data ) =
316	924797874L;
317	l0->X5 = 0L;
318	fiARRNEW_Word(T1, FiWord, 15L)((T1) = (FiWord) fiArrNew_Word(15L));
319	fiARRNEW_Word(T2, FiWord, 15L)((T2) = (FiWord) fiArrNew_Word(15L));
320	T1[0L] = (FiWord) 200102L;
321	T2[0L] = (FiWord) "=";
322	T1[1L] = (FiWord) 61407584L;
323	T2[1L] = (FiWord) "step";
324	T1[2L] = (FiWord) 318396813L;
325	T2[2L] = (FiWord) "low";
326	T1[3L] = (FiWord) 770345191L;
327	T2[3L] = (FiWord) "coerce";
328	T1[4L] = (FiWord) 51509389L;
329	T2[4L] = (FiWord) "~=";
330	T1[5L] = (FiWord) 51500205L;
331	T2[5L] = (FiWord) "by";
332	T1[6L] = (FiWord) 255806968L;
333	T2[6L] = (FiWord) "sample";
334	T1[7L] = (FiWord) 864625472L;
335	T2[7L] = (FiWord) "case";
336	T1[8L] = (FiWord) 61996127L;
337	T2[8L] = (FiWord) "size";
338	T1[9L] = (FiWord) 113320568L;
339	T2[9L] = (FiWord) "generator";
340	T1[10L] = (FiWord) 1069058302L;
341	T2[10L] = (FiWord) "open\?";
342	T1[11L] = (FiWord) 749482564L;
343	T2[11L] = (FiWord) "high";
344	T1[12L] = (FiWord) 51492426L;
345	T2[12L] = (FiWord) "<<";
346	T1[13L] = (FiWord) 746853960L;
347	T2[13L] = (FiWord) "hash";
348	T1[14L] = (FiWord) 51488814L;
349	T2[14L] = (FiWord) "..";
350	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
351	T3->X0_size = 15L;
352	T3->X1_nsize = 15L;
353	T3->X2_values = (FiWord) T1;
354	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
355	T4->X0_size = 15L;
356	T4->X1_nsize = 15L;
357	T4->X2_values = (FiWord) T2;
358	fiCCall2(void, (pG_822GM_rtAddStrings), (FiWord) T3, (FiWord) T4)((((void ()())((pG_822GM_rtAddStrings))->prog->fun)) (((*pG_822GM_rtAddStrings))->env,(FiWord) T3,(FiWord) T4));
359	l0->X0_OrderedRing = fiCCall2(FiWord, (pG_NOX7X_rtLazyCatFrInit),((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((*pG_NOX7X_rtLazyCatFrInit))->env,T0,0L))
360	T0, 0L)((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((pG_NOX7X_rtLazyCatFrInit))->env,T0,0L));
361	T5 = fiCCall1(FiClos, (pG_JP87X_rtConstSIntFn), 539663185L)((((FiClos ()())((pG_JP87X_rtConstSIntFn))->prog->fun ))(((*pG_JP87X_rtConstSIntFn))->env,539663185L));
362	T6 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Steppable")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Steppable"));
363	G_YTG7I_segment__Steppable__06 = fiCCall3(FiWord, (((((FiWord ()())(( pG_GOVLL_categoryMake))->prog->fun ))(((* pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_Steppable)),T5,T6))
364	pG_GOVLL_categoryMake), fiClosMake(e0, C1_Steppable), T5, T6)((((FiWord ()())((* pG_GOVLL_categoryMake))->prog->fun ))(((* pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_Steppable)),T5,T6));
365	l0->X1_BasicType = fiCCall2(FiWord, (pG_NOX7X_rtLazyCatFrInit),((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((*pG_NOX7X_rtLazyCatFrInit))->env,T0,1L))
366	T0, 1L)((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((pG_NOX7X_rtLazyCatFrInit))->env,T0,1L));
367	return ;
368	}
369
370	static struct _FiProg tmp0_segment = {
371	(FiFun) CF0_segment,
372	0L,
373	0L,
374	0L,
375	0L
376	};
377
378
379	static void
380	CF1_Steppable(FiEnv e1, FiWord P0_self, FiWord P1_dom)
381	{
382	PFmt5 T3, T4, T5, T7;
383	FiWord T0, T1, T2, T6;
384	PFmt22 l1;
385	l1 = (PFmt22) fiEnvLevel(e1)((FiEnv) (e1)->level);
386	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
387	fiARRNEW_Word(T1, FiWord, 1L)((T1) = (FiWord) fiArrNew_Word(1L));
388	fiARRNEW_Word(T2, FiWord, 1L)((T2) = (FiWord) fiArrNew_Word(1L));
389	fiARRNEW_Word(T6, FiWord, 1L)((T6) = (FiWord) fiArrNew_Word(1L));
390	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
391	T3->X0_size = 1L;
392	T3->X1_nsize = 1L;
393	T3->X2_values = (FiWord) T0;
394	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
395	T4->X0_size = 1L;
396	T4->X1_nsize = 1L;
397	T4->X2_values = (FiWord) T1;
398	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
399	T5->X0_size = 1L;
400	T5->X1_nsize = 1L;
401	T5->X2_values = (FiWord) T2;
402	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));
403	T0[0L] = (FiWord) 51482908L;
404	T1[0L] = (FiWord) 539663185L;
405	T2[0L] = P1_dom;
406	T6[0L] = l1->X0_OrderedRing;
407	T7 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
408	T7->X0_size = 1L;
409	T7->X1_nsize = 1L;
410	T7->X2_values = (FiWord) T6;
411	fiCCall3(FiWord, (pG_YXGL3_categoryAddParents), P0_self, T7, P1_dom)((((FiWord ()())((pG_YXGL3_categoryAddParents))->prog-> fun))(((*pG_YXGL3_categoryAddParents))->env,P0_self,T7,P1_dom ));
412	return ;
413	}
414
415	static struct _FiProg tmp1_Steppable = {
416	(FiFun) CF1_Steppable,
417	0L,
418	0L,
419	0L,
420	0L
421	};
422
423
424	static FiWord
425	CF2_OpenSegment(FiEnv e1, FiWord P0_S)
426	{
427	FiBool T3, T5;
428	FiWord *T0, T2, T4;
429	PFmt7 T1;
430	PFmt10 l0;
431	FiEnv e0;
432	PFmt22 l1;
433	l0 = fi0New(struct Fmt10 , CENSUS_EnvLevel)((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)));
434	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
435	l1 = (PFmt22) fiEnvLevel(e1)((FiEnv) (e1)->level);
436	l0->X0_S = P0_S;
437	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
438	T1 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
439	T1->X0_size = 1L;
440	T1->X1_values = (FiWord*) T0;
441	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X2)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X2) == (FiPtr) 0));
442	if (T5) goto L3;
443	L1: T0[0L] = l0->X0_S;
444	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
445	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
446	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X2, (FiWord) (
447	FiWord) T1, &T2, &T4);
448	T3 = (FiBool) T4;
449	if (T3) goto L0;
450	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C3_addLevel0))))
451	C3_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C3_addLevel0))));
452	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X2, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X2,(FiWord) T1,T2))
453	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X2,(FiWord) T1,T2));
454	L0: return T2;
455	L3: l1->X2 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
456	goto L1;
457	}
458
459	static struct _FiProg tmp2_OpenSegment = {
460	(FiFun) CF2_OpenSegment,
461	0L,
462	0L,
463	0L,
464	0L
465	};
466
467
468	static FiClos
469	CF3_addLevel0(FiEnv e1, FiWord P0_domain)
470	{
471	FiSInt T1, T2;
472	FiWord T0;
473	FiEnv e2, e0;
474	PFmt10 l1;
475	PFmt22 l2;
476	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
477	l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
478	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
479	l2 = (PFmt22) fiEnvLevel(e2)((FiEnv) (e2)->level);
	Value stored to 'l2' is never read
480	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "OpenSegment",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"OpenSegment" ,l1->X0_S))
481	l1->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"OpenSegment" ,l1->X0_S));
482	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
483	T2 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_S));
484	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 625415912L)((T1) = (FiSInt) fiSIntHashCombine(T2, 625415912L));
485	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
486	return fiClosMake(e0, C4_addLevel1)fiClosMakeFun(e0, (FiProg) (C4_addLevel1));
487	}
488
489	static struct _FiProg tmp3_addLevel0 = {
490	(FiFun) CF3_addLevel0,
491	0L,
492	0L,
493	0L,
494	0L
495	};
496
497
498	static FiWord
499	CF4_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
500	{
501	PFmt5 T3, T4, T5, T8;
502	FiWord T0, T1, T2, T6, T7;
503	PFmt10 l2;
504	FiEnv e3, e2;
505	PFmt22 l3;
506	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
507	l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
508	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
509	l3 = (PFmt22) fiEnvLevel(e3)((FiEnv) (e3)->level);
510	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
511	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
512	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
513	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
514	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
515	T3->X0_size = 0L;
516	T3->X1_nsize = 0L;
517	T3->X2_values = (FiWord) T0;
518	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
519	T4->X0_size = 0L;
520	T4->X1_nsize = 0L;
521	T4->X2_values = (FiWord) T1;
522	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
523	T5->X0_size = 0L;
524	T5->X1_nsize = 0L;
525	T5->X2_values = (FiWord) T2;
526	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) );
527	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l3->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3-> X1_BasicType,T6))
528	X1_BasicType, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l3-> X1_BasicType,T6));
529	fiARRNEW_Word(T7, FiWord, 1L)((T7) = (FiWord) fiArrNew_Word(1L));
530	T7[0L] = fiCCall1(FiWord, G_RPY7R_segment__Segment__1001, l2->((((FiWord ()())(G_RPY7R_segment__Segment__1001)->prog-> fun))((G_RPY7R_segment__Segment__1001)->env,l2-> X0_S))
531	X0_S)((((FiWord ()())(G_RPY7R_segment__Segment__1001)->prog-> fun))((G_RPY7R_segment__Segment__1001)->env,l2-> X0_S));
532	T8 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
533	T8->X0_size = 1L;
534	T8->X1_nsize = 1L;
535	T8->X2_values = (FiWord) T7;
536	fiCCall3(FiWord, (pG_LKD03_domainAddParents), P0_domain, T8, T6)((((FiWord ()())((pG_LKD03_domainAddParents))->prog-> fun))(((*pG_LKD03_domainAddParents))->env,P0_domain,T8,T6) );
537	return P0_domain;
538	}
539
540	static struct _FiProg tmp4_addLevel1 = {
541	(FiFun) CF4_addLevel1,
542	0L,
543	0L,
544	0L,
545	0L
546	};
547
548
549	static FiWord
550	CF5_ClosedSegment(FiEnv e1, FiWord P0_S)
551	{
552	FiBool T3, T5;
553	FiWord *T0, T2, T4;
554	PFmt7 T1;
555	PFmt12 l0;
556	FiEnv e0;
557	PFmt22 l1;
558	l0 = fi0New(struct Fmt12 , CENSUS_EnvLevel)((struct Fmt12 *) fi0Alloc(sizeof(struct Fmt12), (19)));
559	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
560	l1 = (PFmt22) fiEnvLevel(e1)((FiEnv) (e1)->level);
561	l0->X0_S = P0_S;
562	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
563	T1 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
564	T1->X0_size = 1L;
565	T1->X1_values = (FiWord*) T0;
566	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X3)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X3) == (FiPtr) 0));
567	if (T5) goto L3;
568	L1: T0[0L] = l0->X0_S;
569	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
570	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
571	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X3, (FiWord) (
572	FiWord) T1, &T2, &T4);
573	T3 = (FiBool) T4;
574	if (T3) goto L0;
575	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C6_addLevel0))))
576	C6_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C6_addLevel0))));
577	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X3, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2))
578	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2));
579	L0: return T2;
580	L3: l1->X3 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
581	goto L1;
582	}
583
584	static struct _FiProg tmp5_ClosedSegment = {
585	(FiFun) CF5_ClosedSegment,
586	0L,
587	0L,
588	0L,
589	0L
590	};
591
592
593	static FiClos
594	CF6_addLevel0(FiEnv e1, FiWord P0_domain)
595	{
596	FiSInt T1, T2;
597	FiWord T0;
598	FiEnv e2, e0;
599	PFmt12 l1;
600	PFmt22 l2;
601	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
602	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
603	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
604	l2 = (PFmt22) fiEnvLevel(e2)((FiEnv) (e2)->level);
605	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "ClosedSegment",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"ClosedSegment" ,l1->X0_S))
606	l1->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"ClosedSegment" ,l1->X0_S));
607	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
608	T2 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_S));
609	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 961154690L)((T1) = (FiSInt) fiSIntHashCombine(T2, 961154690L));
610	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
611	return fiClosMake(e0, C7_addLevel1)fiClosMakeFun(e0, (FiProg) (C7_addLevel1));
612	}
613
614	static struct _FiProg tmp6_addLevel0 = {
615	(FiFun) CF6_addLevel0,
616	0L,
617	0L,
618	0L,
619	0L
620	};
621
622
623	static FiWord
624	CF7_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
625	{
626	PFmt5 T3, T4, T5, T8;
627	FiWord T0, T1, T2, T6, T7;
628	PFmt12 l2;
629	FiEnv e3, e2;
630	PFmt22 l3;
631	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
632	l2 = (PFmt12) fiEnvLevel(e2)((FiEnv) (e2)->level);
633	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
634	l3 = (PFmt22) fiEnvLevel(e3)((FiEnv) (e3)->level);
635	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
636	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
637	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
638	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
639	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
640	T3->X0_size = 0L;
641	T3->X1_nsize = 0L;
642	T3->X2_values = (FiWord) T0;
643	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
644	T4->X0_size = 0L;
645	T4->X1_nsize = 0L;
646	T4->X2_values = (FiWord) T1;
647	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
648	T5->X0_size = 0L;
649	T5->X1_nsize = 0L;
650	T5->X2_values = (FiWord) T2;
651	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) );
652	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l3->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3-> X1_BasicType,T6))
653	X1_BasicType, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l3-> X1_BasicType,T6));
654	fiARRNEW_Word(T7, FiWord, 1L)((T7) = (FiWord) fiArrNew_Word(1L));
655	T7[0L] = fiCCall1(FiWord, G_RPY7R_segment__Segment__1001, l2->((((FiWord ()())(G_RPY7R_segment__Segment__1001)->prog-> fun))((G_RPY7R_segment__Segment__1001)->env,l2-> X0_S))
656	X0_S)((((FiWord ()())(G_RPY7R_segment__Segment__1001)->prog-> fun))((G_RPY7R_segment__Segment__1001)->env,l2-> X0_S));
657	T8 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
658	T8->X0_size = 1L;
659	T8->X1_nsize = 1L;
660	T8->X2_values = (FiWord) T7;
661	fiCCall3(FiWord, (pG_LKD03_domainAddParents), P0_domain, T8, T6)((((FiWord ()())((pG_LKD03_domainAddParents))->prog-> fun))(((*pG_LKD03_domainAddParents))->env,P0_domain,T8,T6) );
662	return P0_domain;
663	}
664
665	static struct _FiProg tmp7_addLevel1 = {
666	(FiFun) CF7_addLevel1,
667	0L,
668	0L,
669	0L,
670	0L
671	};
672
673
674	static FiWord
675	CF8_Segment(FiEnv e1, FiWord P0_S)
676	{
677	FiBool T3, T5;
678	FiWord *T0, T2, T4;
679	PFmt7 T1;
680	PFmt20 l0;
681	FiEnv e0;
682	PFmt22 l1;
683	l0 = fi0New(struct Fmt20 , CENSUS_EnvLevel)((struct Fmt20 *) fi0Alloc(sizeof(struct Fmt20), (19)));
684	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
685	l1 = (PFmt22) fiEnvLevel(e1)((FiEnv) (e1)->level);
686	l0->X0_S = P0_S;
687	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
688	T1 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
689	T1->X0_size = 1L;
690	T1->X1_values = (FiWord*) T0;
691	fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X4)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X4) == (FiPtr) 0));
692	if (T5) goto L3;
693	L1: T0[0L] = l0->X0_S;
694	((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
695	fiRawCProg((pG_759EG_rtCacheCheck))(((pG_759EG_rtCacheCheck))->prog->fun))(((*
696	pG_759EG_rtCacheCheck))->env, (FiWord) l1->X4, (FiWord) (
697	FiWord) T1, &T2, &T4);
698	T3 = (FiBool) T4;
699	if (T3) goto L0;
700	T2 = fiCCall1(FiWord, (pG_6L1ZC_domainMake), fiClosMake(e0,((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C9_addLevel0))))
701	C9_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C9_addLevel0))));
702	T2 = fiCCall3(FiWord, (pG_PV28S_rtCacheAdd), l1->X4, (FiWord)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((*pG_PV28S_rtCacheAdd))->env,l1->X4,(FiWord) T1,T2))
703	T1, T2)((((FiWord ()())((pG_PV28S_rtCacheAdd))->prog->fun)) (((pG_PV28S_rtCacheAdd))->env,l1->X4,(FiWord) T1,T2));
704	L0: return T2;
705	L3: l1->X4 = fiCCall1(FiWord, (pG_KAC1B_rtCacheExplicitMake), 15L)((((FiWord ()())((pG_KAC1B_rtCacheExplicitMake))->prog-> fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
706	goto L1;
707	}
708
709	static struct _FiProg tmp8_Segment = {
710	(FiFun) CF8_Segment,
711	0L,
712	0L,
713	0L,
714	0L
715	};
716
717
718	static FiClos
719	CF9_addLevel0(FiEnv e1, FiWord P0_domain)
720	{
721	FiSInt T1, T2;
722	FiWord T0;
723	FiEnv e2, e0;
724	PFmt20 l1;
725	PFmt22 l2;
726	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
727	l1 = (PFmt20) fiEnvLevel(e1)((FiEnv) (e1)->level);
728	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
729	l2 = (PFmt22) fiEnvLevel(e2)((FiEnv) (e2)->level);
730	T0 = fiCCall2(FiWord, (pG_8AMPD_rtSingleParamNameFn), "Segment",((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Segment",l1-> X0_S))
731	l1->X0_S)((((FiWord ()())((pG_8AMPD_rtSingleParamNameFn))->prog-> fun))(((pG_8AMPD_rtSingleParamNameFn))->env,"Segment",l1-> X0_S));
732	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
733	T2 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l1->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_S));
734	fiSINT_HASHCOMBINE(T1, FiSInt, T2, 924797874L)((T1) = (FiSInt) fiSIntHashCombine(T2, 924797874L));
735	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1) );
736	return fiClosMake(e0, C10_addLevel1)fiClosMakeFun(e0, (FiProg) (C10_addLevel1));
737	}
738
739	static struct _FiProg tmp9_addLevel0 = {
740	(FiFun) CF9_addLevel0,
741	0L,
742	0L,
743	0L,
744	0L
745	};
746
747
748	static FiWord
749	CF10_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
750	{
751	FiWord T0, T1, *T2, T6, T43;
752	FiSInt T7, T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T23, T24, T25, T26, T27, T29, T30, T31, T32, T33, T34, T35, T36, T37, T38, T39, T40, T41, T42;
753	PFmt13 T28;
754	PFmt5 T3, T4, T5;
755	PFmt19 l0;
756	FiEnv e3, e2, e0;
757	PFmt20 l2;
758	PFmt22 l3;
759	l0 = fi0New(struct Fmt19 , CENSUS_EnvLevel)((struct Fmt19 *) fi0Alloc(sizeof(struct Fmt19), (19)));
760	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
761	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
762	l2 = (PFmt20) fiEnvLevel(e2)((FiEnv) (e2)->level);
763	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
764	l3 = (PFmt22) fiEnvLevel(e3)((FiEnv) (e3)->level);
765	fiARRNEW_Word(T0, FiWord, 23L)((T0) = (FiWord) fiArrNew_Word(23L));
766	fiARRNEW_Word(T1, FiWord, 23L)((T1) = (FiWord) fiArrNew_Word(23L));
767	fiARRNEW_Word(T2, FiWord, 23L)((T2) = (FiWord) fiArrNew_Word(23L));
768	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
769	l0->X33 = (FiSInt) P1_hashcode;
770	l0->X20__DOT__DOT_ = fiClosMake(e0, C11__DOT__DOT_)fiClosMakeFun(e0, (FiProg) (C11__DOT__DOT_));
771	l0->X21__DOT__DOT_ = fiClosMake(e0, C12__DOT__DOT_)fiClosMakeFun(e0, (FiProg) (C12__DOT__DOT_));
772	l0->X18_coerce = fiClosMake(e0, C13_coerce)fiClosMakeFun(e0, (FiProg) (C13_coerce));
773	l0->X19_coerce = fiClosMake(e0, C14_coerce)fiClosMakeFun(e0, (FiProg) (C14_coerce));
774	l0->X15_by = fiClosMake(e0, C15_by)fiClosMakeFun(e0, (FiProg) (C15_by));
775	l0->X16_by = fiClosMake(e0, C16_by)fiClosMakeFun(e0, (FiProg) (C16_by));
776	l0->X17_by = fiClosMake(e0, C17_by)fiClosMakeFun(e0, (FiProg) (C17_by));
777	l0->X14_open_QMARK_ = fiClosMake(e0, C18_open_QMARK_)fiClosMakeFun(e0, (FiProg) (C18_open_QMARK_));
778	l0->X13_low = fiClosMake(e0, C19_low)fiClosMakeFun(e0, (FiProg) (C19_low));
779	l0->X12_high = fiClosMake(e0, C20_high)fiClosMakeFun(e0, (FiProg) (C20_high));
780	l0->X11_step = fiClosMake(e0, C21_step)fiClosMakeFun(e0, (FiProg) (C21_step));
781	l0->X8_generator = fiClosMake(e0, C22_generator)fiClosMakeFun(e0, (FiProg) (C22_generator));
782	l0->X9_generator = fiClosMake(e0, C28_generator)fiClosMakeFun(e0, (FiProg) (C28_generator));
783	l0->X10_generator = fiClosMake(e0, C34_generator)fiClosMakeFun(e0, (FiProg) (C34_generator));
784	l0->X7__EQ_ = fiClosMake(e0, C40__EQ_)fiClosMakeFun(e0, (FiProg) (C40__EQ_));
785	l0->X5__LT__LT_ = fiClosMake(e0, C41__LT__LT_)fiClosMakeFun(e0, (FiProg) (C41__LT__LT_));
786	l0->X3_size = fiClosMake(e0, C42_size)fiClosMakeFun(e0, (FiProg) (C42_size));
787	l0->X4_size = fiClosMake(e0, C43_size)fiClosMakeFun(e0, (FiProg) (C43_size));
788	l0->X2__TILDE__EQ_ = fiClosMake(e0, C44__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C44__TILDE__EQ_));
789	l0->X1_hash = fiClosMake(e0, C45_hash)fiClosMakeFun(e0, (FiProg) (C45_hash));
790	l0->X6__LT__LT_ = fiClosMake(e0, C46__LT__LT_)fiClosMakeFun(e0, (FiProg) (C46__LT__LT_));
791	l0->X0_case = fiClosMake(e0, C48_case)fiClosMakeFun(e0, (FiProg) (C48_case));
792	T30 = fiCCall1(FiSInt, (pG_LD0B5_domainHash_BANG_), l2->X0_S)((((FiSInt ()())((pG_LD0B5_domainHash_BANG_))->prog-> fun))(((*pG_LD0B5_domainHash_BANG_))->env,l2->X0_S));
793	fiEnvEnsure(((FiClos) G_RE3O1_segment__OpenSegment__)->env)fiEnvEnsureFun(((FiClos) G_RE3O1_segment__OpenSegment__)-> env);
794	fiSINT_HASHCOMBINE(T32, FiSInt, T30, 625415912L)((T32) = (FiSInt) fiSIntHashCombine(T30, 625415912L));
795	fiSINT_HASHCOMBINE(T31, FiSInt, T30, 51489085L)((T31) = (FiSInt) fiSIntHashCombine(T30, 51489085L));
796	fiSINT_HASHCOMBINE(T7, FiSInt, T32, fiSIntHashCombine((FiSInt) 32236L, (((T7) = (FiSInt) fiSIntHashCombine(T32, fiSIntHashCombine((FiSInt ) 32236L, ( FiSInt) T31)))
797	FiSInt) T31))((T7) = (FiSInt) fiSIntHashCombine(T32, fiSIntHashCombine((FiSInt ) 32236L, ( FiSInt) T31)));
798	fiEnvEnsure(((FiClos) G_H8G3S_segment__ClosedSegment)->env)fiEnvEnsureFun(((FiClos) G_H8G3S_segment__ClosedSegment)-> env);
799	fiSINT_HASHCOMBINE(T33, FiSInt, T30, 961154690L)((T33) = (FiSInt) fiSIntHashCombine(T30, 961154690L));
800	fiSINT_HASHCOMBINE(T34, FiSInt, T30, T31)((T34) = (FiSInt) fiSIntHashCombine(T30, T31));
801	fiSINT_HASHCOMBINE(T35, FiSInt, 32236L, T34)((T35) = (FiSInt) fiSIntHashCombine(32236L, T34));
802	fiSINT_HASHCOMBINE(T8, FiSInt, T33, T35)((T8) = (FiSInt) fiSIntHashCombine(T33, T35));
803	fiEnvEnsure(((FiClos) G_RE3O1_segment__OpenSegment__)->env)fiEnvEnsureFun(((FiClos) G_RE3O1_segment__OpenSegment__)-> env);
804	fiSINT_HASHCOMBINE(T39, FiSInt, T32, 51489085L)((T39) = (FiSInt) fiSIntHashCombine(T32, 51489085L));
805	fiSINT_HASHCOMBINE(T41, FiSInt, 32236L, T39)((T41) = (FiSInt) fiSIntHashCombine(32236L, T39));
806	fiSINT_HASHCOMBINE(T9, FiSInt, l0->X33, T41)((T9) = (FiSInt) fiSIntHashCombine(l0->X33, T41));
807	fiEnvEnsure(((FiClos) G_H8G3S_segment__ClosedSegment)->env)fiEnvEnsureFun(((FiClos) G_H8G3S_segment__ClosedSegment)-> env);
808	fiSINT_HASHCOMBINE(T40, FiSInt, T33, 51489085L)((T40) = (FiSInt) fiSIntHashCombine(T33, 51489085L));
809	fiSINT_HASHCOMBINE(T42, FiSInt, 32236L, T40)((T42) = (FiSInt) fiSIntHashCombine(32236L, T40));
810	fiSINT_HASHCOMBINE(T10, FiSInt, l0->X33, T42)((T10) = (FiSInt) fiSIntHashCombine(l0->X33, T42));
811	fiEnvEnsure(((FiClos) G_RE3O1_segment__OpenSegment__)->env)fiEnvEnsureFun(((FiClos) G_RE3O1_segment__OpenSegment__)-> env);
812	fiSINT_HASHCOMBINE(T11, FiSInt, l0->X33, fiSIntHashCombine((FiSInt)((T11) = (FiSInt) fiSIntHashCombine(l0->X33, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) T39))))
813	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt) T39)))((T11) = (FiSInt) fiSIntHashCombine(l0->X33, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) T39))));
814	fiEnvEnsure(((FiClos) G_H8G3S_segment__ClosedSegment)->env)fiEnvEnsureFun(((FiClos) G_H8G3S_segment__ClosedSegment)-> env);
815	fiSINT_HASHCOMBINE(T12, FiSInt, l0->X33, fiSIntHashCombine((FiSInt)((T12) = (FiSInt) fiSIntHashCombine(l0->X33, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) T40))))
816	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt) T40)))((T12) = (FiSInt) fiSIntHashCombine(l0->X33, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) T40))));
817	fiSINT_HASHCOMBINE(T13, FiSInt, T30, T35)((T13) = (FiSInt) fiSIntHashCombine(T30, T35));
818	fiSINT_HASHCOMBINE(T36, FiSInt, l0->X33, 51489085L)((T36) = (FiSInt) fiSIntHashCombine(l0->X33, 51489085L));
819	fiSINT_HASHCOMBINE(T14, FiSInt, l0->X33, fiSIntHashCombine((FiSInt)((T14) = (FiSInt) fiSIntHashCombine(l0->X33, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) T36))))
820	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt) T36)))((T14) = (FiSInt) fiSIntHashCombine(l0->X33, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) T36))));
821	fiSINT_HASHCOMBINE(T37, FiSInt, 32236L, T36)((T37) = (FiSInt) fiSIntHashCombine(32236L, T36));
822	fiSINT_HASHCOMBINE(T15, FiSInt, 740244383L, T37)((T15) = (FiSInt) fiSIntHashCombine(740244383L, T37));
823	fiSINT_HASHCOMBINE(T16, FiSInt, T30, T37)((T16) = (FiSInt) fiSIntHashCombine(T30, T37));
824	fiEnvEnsure(((FiClos) G_RE3O1_segment__OpenSegment__)->env)fiEnvEnsureFun(((FiClos) G_RE3O1_segment__OpenSegment__)-> env);
825	fiSINT_HASHCOMBINE(T38, FiSInt, T30, 83976792L)((T38) = (FiSInt) fiSIntHashCombine(T30, 83976792L));
826	fiSINT_HASHCOMBINE(T17, FiSInt, T38, T41)((T17) = (FiSInt) fiSIntHashCombine(T38, T41));
827	fiSINT_HASHCOMBINE(T18, FiSInt, 740244383L, T35)((T18) = (FiSInt) fiSIntHashCombine(740244383L, T35));
828	fiEnvEnsure(((FiClos) G_H8G3S_segment__ClosedSegment)->env)fiEnvEnsureFun(((FiClos) G_H8G3S_segment__ClosedSegment)-> env);
829	fiSINT_HASHCOMBINE(T19, FiSInt, T38, T42)((T19) = (FiSInt) fiSIntHashCombine(T38, T42));
830	fiSINT_HASHCOMBINE(T20, FiSInt, T38, T37)((T20) = (FiSInt) fiSIntHashCombine(T38, T37));
831	fiSINT_HASHCOMBINE(T21, FiSInt, 740244383L, fiSIntHashCombine((FiSInt)((T21) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X33, ( FiSInt) T36))))
832	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X33, (((T21) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X33, ( FiSInt) T36))))
833	FiSInt) T36)))((T21) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X33, ( FiSInt) T36))));
834	fiSINT_HASHCOMBINE(T22, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T22) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) 102896482L))))
835	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt)((T22) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) 102896482L))))
836	102896482L)))((T22) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) 102896482L))));
837	fiSINT_HASHCOMBINE(T23, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T23) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X33, ( FiSInt) 102896482L))))
838	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X33, (((T23) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X33, ( FiSInt) 102896482L))))
839	FiSInt) 102896482L)))((T23) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X33, ( FiSInt) 102896482L))));
840	fiSINT_HASHCOMBINE(T24, FiSInt, 33717313L, fiSIntHashCombine((FiSInt)((T24) = (FiSInt) fiSIntHashCombine(33717313L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) T34))))
841	32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt) T34)))((T24) = (FiSInt) fiSIntHashCombine(33717313L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T30, (FiSInt ) T34))));
842	fiSINT_HASHCOMBINE(T25, FiSInt, 33717313L, T37)((T25) = (FiSInt) fiSIntHashCombine(33717313L, T37));
843	fiEnvEnsure(((FiClos) G_H8G3S_segment__ClosedSegment)->env)fiEnvEnsureFun(((FiClos) G_H8G3S_segment__ClosedSegment)-> env);
844	fiSINT_HASHCOMBINE(T26, FiSInt, 33717313L, T42)((T26) = (FiSInt) fiSIntHashCombine(33717313L, T42));
845	fiSINT_HASHCOMBINE(T27, FiSInt, 755420535L, T37)((T27) = (FiSInt) fiSIntHashCombine(755420535L, T37));
846	T29 = l0->X33;
847	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
848	T3->X0_size = 23L;
849	T3->X1_nsize = 23L;
850	T3->X2_values = (FiWord) T0;
851	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
852	T4->X0_size = 23L;
853	T4->X1_nsize = 23L;
854	T4->X2_values = (FiWord) T1;
855	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
856	T5->X0_size = 23L;
857	T5->X1_nsize = 23L;
858	T5->X2_values = (FiWord) T2;
859	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) );
860	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l3->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3-> X1_BasicType,T6))
861	X1_BasicType, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l3-> X1_BasicType,T6));
862	l0->X34_dom = l2->X0_S;
863	l0->X28_0 = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X34_dom ,200089L,T30))
864	l0->X34_dom, 200089L, T30)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X34_dom ,200089L,T30));
865	l0->X30_1 = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X34_dom ,200090L,T30))
866	l0->X34_dom, 200090L, T30)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X34_dom ,200090L,T30));
867	T0[0L] = (FiWord) 51488814L;
868	T1[0L] = (FiWord) T7;
869	T2[0L] = (FiWord) l0->X20__DOT__DOT_;
870	T0[1L] = (FiWord) 51488814L;
871	T1[1L] = (FiWord) T8;
872	T2[1L] = (FiWord) l0->X21__DOT__DOT_;
873	T0[2L] = (FiWord) 770345191L;
874	T1[2L] = (FiWord) T9;
875	T2[2L] = (FiWord) l0->X18_coerce;
876	T0[3L] = (FiWord) 770345191L;
877	T1[3L] = (FiWord) T10;
878	T2[3L] = (FiWord) l0->X19_coerce;
879	T0[4L] = (FiWord) 51500205L;
880	T1[4L] = (FiWord) T11;
881	T2[4L] = (FiWord) l0->X15_by;
882	T0[5L] = (FiWord) 51500205L;
883	T1[5L] = (FiWord) T12;
884	T2[5L] = (FiWord) l0->X16_by;
885	T43 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,200083L,T13))
886	X34_dom, 200083L, T13)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,200083L,T13));
887	l0->X31__STAR_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43))
888	pG_DLXW8_stdGetWordWordRetWord), T43)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43));
889	T0[6L] = (FiWord) 51500205L;
890	T1[6L] = (FiWord) T14;
891	T2[6L] = (FiWord) l0->X17_by;
892	T0[7L] = (FiWord) 1069058302L;
893	T1[7L] = (FiWord) T15;
894	T2[7L] = (FiWord) l0->X14_open_QMARK_;
895	T0[8L] = (FiWord) 318396813L;
896	T1[8L] = (FiWord) T16;
897	T2[8L] = (FiWord) l0->X13_low;
898	T0[9L] = (FiWord) 749482564L;
899	T1[9L] = (FiWord) T16;
900	T2[9L] = (FiWord) l0->X12_high;
901	T0[10L] = (FiWord) 61407584L;
902	T1[10L] = (FiWord) T16;
903	T2[10L] = (FiWord) l0->X11_step;
904	T43 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,200084L,T13))
905	X34_dom, 200084L, T13)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,200084L,T13));
906	l0->X29__PLUS_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43))
907	pG_DLXW8_stdGetWordWordRetWord), T43)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43));
908	T0[11L] = (FiWord) 113320568L;
909	T1[11L] = (FiWord) T17;
910	T2[11L] = (FiWord) l0->X8_generator;
911	T43 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,51492427L,T18))
912	X34_dom, 51492427L, T18)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,51492427L,T18));
913	l0->X27__LT__EQ_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43))
914	pG_DLXW8_stdGetWordWordRetWord), T43)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43));
915	T0[12L] = (FiWord) 113320568L;
916	T1[12L] = (FiWord) T19;
917	T2[12L] = (FiWord) l0->X9_generator;
918	T43 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,51492941L,T18))
919	X34_dom, 51492941L, T18)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,51492941L,T18));
920	l0->X26__GT__EQ_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43))
921	pG_DLXW8_stdGetWordWordRetWord), T43)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43));
922	T0[13L] = (FiWord) 113320568L;
923	T1[13L] = (FiWord) T20;
924	T2[13L] = (FiWord) l0->X10_generator;
925	T43 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,200102L,T18))
926	X34_dom, 200102L, T18)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,200102L,T18));
927	l0->X23__EQ_ = fiCCall1(FiClos, (pG_DLXW8_stdGetWordWordRetWord),((((FiClos ()())((pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((*pG_DLXW8_stdGetWordWordRetWord))->env,T43))
928	T43)((((FiClos ()())((pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((pG_DLXW8_stdGetWordWordRetWord))->env,T43));
929	T0[14L] = (FiWord) 200102L;
930	T1[14L] = (FiWord) T21;
931	T2[14L] = (FiWord) l0->X7__EQ_;
932	T43 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,51492426L,T22))
933	X34_dom, 51492426L, T22)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,51492426L,T22));
934	l0->X25__LT__LT_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43))
935	pG_DLXW8_stdGetWordWordRetWord), T43)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43));
936	T43 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,51509389L,T18))
937	X34_dom, 51509389L, T18)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,51509389L,T18));
938	l0->X24__TILDE__EQ_ = fiCCall1(FiClos, (((((FiClos ()())(( pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43))
939	pG_DLXW8_stdGetWordWordRetWord), T43)((((FiClos ()())((* pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T43));
940	T0[15L] = (FiWord) 51492426L;
941	T1[15L] = (FiWord) T23;
942	T2[15L] = (FiWord) l0->X5__LT__LT_;
943	T43 = fiCCall3(FiWord, (pG_QRAZA_rtDelayedGetExport), l0->((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,417900517L,T24))
944	X34_dom, 417900517L, T24)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0-> X34_dom ,417900517L,T24));
945	l0->X32_stepsBetween = fiCCall1(FiClos, (((((FiClos ()())(( pG_B830W_stdGetWordWordWordRet))->prog ->fun))(((* pG_B830W_stdGetWordWordWordRet))->env,T43))
946	pG_B830W_stdGetWordWordWordRet), T43)((((FiClos ()())((* pG_B830W_stdGetWordWordWordRet))->prog ->fun))(((* pG_B830W_stdGetWordWordWordRet))->env,T43));
947	T0[16L] = (FiWord) 61996127L;
948	T1[16L] = (FiWord) T25;
949	T2[16L] = (FiWord) l0->X3_size;
950	T0[17L] = (FiWord) 61996127L;
951	T1[17L] = (FiWord) T26;
952	T2[17L] = (FiWord) l0->X4_size;
953	T0[18L] = (FiWord) 51509389L;
954	T1[18L] = (FiWord) T21;
955	T2[18L] = (FiWord) l0->X2__TILDE__EQ_;
956	T0[19L] = (FiWord) 746853960L;
957	T1[19L] = (FiWord) T25;
958	T2[19L] = (FiWord) l0->X1_hash;
959	T0[20L] = (FiWord) 51492426L;
960	T1[20L] = (FiWord) T27;
961	T2[20L] = (FiWord) l0->X6__LT__LT_;
962	T0[21L] = (FiWord) 864625472L;
963	T1[21L] = (FiWord) T21;
964	T2[21L] = (FiWord) l0->X0_case;
965	T28 = fi0RecNew(struct Fmt13 , CENSUS_Rec)((struct Fmt13 *) fi0RecAlloc(sizeof(struct Fmt13), ( 5)));
966	T28->X0_open_QMARK_ = (FiWord) 1L;
967	T28->X1_low = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l0->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l0-> X28_0))
968	X28_0)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l0-> X28_0));
969	T28->X2_high = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport),((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l0->X28_0))
970	l0->X28_0)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l0->X28_0));
971	T28->X3_step = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport),((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l0->X30_1))
972	l0->X30_1)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l0->X30_1));
973	l0->X22_sample = (FiWord) T28;
974	T0[22L] = (FiWord) 255806968L;
975	T1[22L] = (FiWord) T29;
976	T2[22L] = l0->X22_sample;
977	return P0_domain;
978	}
979
980	static struct _FiProg tmp10_addLevel1 = {
981	(FiFun) CF10_addLevel1,
982	0L,
983	0L,
984	0L,
985	0L
986	};
987
988
989	static FiWord
990	CF11__DOT__DOT_(FiEnv e1, FiWord P0_a)
991	{
992	PFmt13 T0;
993	PFmt19 l1;
994	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
995	T0 = fi0RecNew(struct Fmt13 , CENSUS_Rec)((struct Fmt13 *) fi0RecAlloc(sizeof(struct Fmt13), ( 5)));
996	T0->X0_open_QMARK_ = (FiWord) 1L;
997	T0->X1_low = P0_a;
998	T0->X2_high = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l1->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l1-> X28_0))
999	X28_0)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l1-> X28_0));
1000	T0->X3_step = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l1->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l1-> X30_1))
1001	X30_1)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l1-> X30_1));
1002	return (FiWord) T0;
1003	}
1004
1005	static struct _FiProg tmp11__DOT__DOT_ = {
1006	(FiFun) CF11__DOT__DOT_,
1007	0L,
1008	0L,
1009	0L,
1010	0L
1011	};
1012
1013
1014	static FiWord
1015	CF12__DOT__DOT_(FiEnv e1, FiWord P0_a, FiWord P1_b)
1016	{
1017	PFmt13 T0;
1018	PFmt19 l1;
1019	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1020	T0 = fi0RecNew(struct Fmt13 , CENSUS_Rec)((struct Fmt13 *) fi0RecAlloc(sizeof(struct Fmt13), ( 5)));
1021	T0->X0_open_QMARK_ = (FiWord) 0L;
1022	T0->X1_low = P0_a;
1023	T0->X2_high = P1_b;
1024	T0->X3_step = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l1->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l1-> X30_1))
1025	X30_1)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l1-> X30_1));
1026	return (FiWord) T0;
1027	}
1028
1029	static struct _FiProg tmp12__DOT__DOT_ = {
1030	(FiFun) CF12__DOT__DOT_,
1031	0L,
1032	0L,
1033	0L,
1034	0L
1035	};
1036
1037
1038	static FiWord
1039	CF13_coerce(FiEnv e1, FiWord P0_s)
1040	{
1041	return P0_s;
1042	}
1043
1044	static struct _FiProg tmp13_coerce = {
1045	(FiFun) CF13_coerce,
1046	0L,
1047	0L,
1048	0L,
1049	0L
1050	};
1051
1052
1053	static FiWord
1054	CF14_coerce(FiEnv e1, FiWord P0_s)
1055	{
1056	return P0_s;
1057	}
1058
1059	static struct _FiProg tmp14_coerce = {
1060	(FiFun) CF14_coerce,
1061	0L,
1062	0L,
1063	0L,
1064	0L
1065	};
1066
1067
1068	static FiWord
1069	CF15_by(FiEnv e1, FiWord P0_s, FiWord P1_d)
1070	{
1071	PFmt13 T0;
1072	PFmt19 l1;
1073	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1074	T0 = fi0RecNew(struct Fmt13 , CENSUS_Rec)((struct Fmt13 *) fi0RecAlloc(sizeof(struct Fmt13), ( 5)));
1075	T0->X0_open_QMARK_ = ((PFmt13) P0_s)->X0_open_QMARK_;
1076	T0->X1_low = ((PFmt13) P0_s)->X1_low;
1077	T0->X2_high = ((PFmt13) P0_s)->X2_high;
1078	T0->X3_step = fiCCall2(FiWord, l1->X31__STAR_, P1_d, ((((((FiWord ()())(l1->X31__STAR_)->prog->fun))((l1-> X31__STAR_)->env,P1_d,(( PFmt13) P0_s)->X3_step))
1079	PFmt13) P0_s)->X3_step)((((FiWord ()())(l1->X31__STAR_)->prog->fun))((l1-> X31__STAR_)->env,P1_d,(( PFmt13) P0_s)->X3_step));
1080	return (FiWord) T0;
1081	}
1082
1083	static struct _FiProg tmp15_by = {
1084	(FiFun) CF15_by,
1085	0L,
1086	0L,
1087	0L,
1088	0L
1089	};
1090
1091
1092	static FiWord
1093	CF16_by(FiEnv e1, FiWord P0_s, FiWord P1_d)
1094	{
1095	PFmt13 T0;
1096	PFmt19 l1;
1097	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1098	T0 = fi0RecNew(struct Fmt13 , CENSUS_Rec)((struct Fmt13 *) fi0RecAlloc(sizeof(struct Fmt13), ( 5)));
1099	T0->X0_open_QMARK_ = ((PFmt13) P0_s)->X0_open_QMARK_;
1100	T0->X1_low = ((PFmt13) P0_s)->X1_low;
1101	T0->X2_high = ((PFmt13) P0_s)->X2_high;
1102	T0->X3_step = fiCCall2(FiWord, l1->X31__STAR_, P1_d, ((((((FiWord ()())(l1->X31__STAR_)->prog->fun))((l1-> X31__STAR_)->env,P1_d,(( PFmt13) P0_s)->X3_step))
1103	PFmt13) P0_s)->X3_step)((((FiWord ()())(l1->X31__STAR_)->prog->fun))((l1-> X31__STAR_)->env,P1_d,(( PFmt13) P0_s)->X3_step));
1104	return (FiWord) T0;
1105	}
1106
1107	static struct _FiProg tmp16_by = {
1108	(FiFun) CF16_by,
1109	0L,
1110	0L,
1111	0L,
1112	0L
1113	};
1114
1115
1116	static FiWord
1117	CF17_by(FiEnv e1, FiWord P0_s, FiWord P1_d)
1118	{
1119	PFmt13 T0;
1120	PFmt19 l1;
1121	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1122	T0 = fi0RecNew(struct Fmt13 , CENSUS_Rec)((struct Fmt13 *) fi0RecAlloc(sizeof(struct Fmt13), ( 5)));
1123	T0->X0_open_QMARK_ = ((PFmt13) P0_s)->X0_open_QMARK_;
1124	T0->X1_low = ((PFmt13) P0_s)->X1_low;
1125	T0->X2_high = ((PFmt13) P0_s)->X2_high;
1126	T0->X3_step = fiCCall2(FiWord, l1->X31__STAR_, P1_d, ((((((FiWord ()())(l1->X31__STAR_)->prog->fun))((l1-> X31__STAR_)->env,P1_d,(( PFmt13) P0_s)->X3_step))
1127	PFmt13) P0_s)->X3_step)((((FiWord ()())(l1->X31__STAR_)->prog->fun))((l1-> X31__STAR_)->env,P1_d,(( PFmt13) P0_s)->X3_step));
1128	return (FiWord) T0;
1129	}
1130
1131	static struct _FiProg tmp17_by = {
1132	(FiFun) CF17_by,
1133	0L,
1134	0L,
1135	0L,
1136	0L
1137	};
1138
1139
1140	static FiWord
1141	CF18_open_QMARK_(FiEnv e1, FiWord P0_s)
1142	{
1143	return ((PFmt13) P0_s)->X0_open_QMARK_;
1144	}
1145
1146	static struct _FiProg tmp18_open_QMARK_ = {
1147	(FiFun) CF18_open_QMARK_,
1148	0L,
1149	0L,
1150	0L,
1151	0L
1152	};
1153
1154
1155	static FiWord
1156	CF19_low(FiEnv e1, FiWord P0_s)
1157	{
1158	return ((PFmt13) P0_s)->X1_low;
1159	}
1160
1161	static struct _FiProg tmp19_low = {
1162	(FiFun) CF19_low,
1163	0L,
1164	0L,
1165	0L,
1166	0L
1167	};
1168
1169
1170	static FiWord
1171	CF20_high(FiEnv e1, FiWord P0_s)
1172	{
1173	return ((PFmt13) P0_s)->X2_high;
1174	}
1175
1176	static struct _FiProg tmp20_high = {
1177	(FiFun) CF20_high,
1178	0L,
1179	0L,
1180	0L,
1181	0L
1182	};
1183
1184
1185	static FiWord
1186	CF21_step(FiEnv e1, FiWord P0_s)
1187	{
1188	return ((PFmt13) P0_s)->X3_step;
1189	}
1190
1191	static struct _FiProg tmp21_step = {
1192	(FiFun) CF21_step,
1193	0L,
1194	0L,
1195	0L,
1196	0L
1197	};
1198
1199
1200	static FiClos
1201	CF22_generator(FiEnv e1, FiWord P0_s)
1202	{
1203	PFmt15 l0;
1204	FiEnv e0;
1205	PFmt19 l1;
1206	l0 = fi0New(struct Fmt15 , CENSUS_EnvLevel)((struct Fmt15 *) fi0Alloc(sizeof(struct Fmt15), (19)));
1207	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1208	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1209	l0->X0_s = P0_s;
1210	l0->X3 = 0L;
1211	return fiClosMake(e0, C23_generBaseFn)fiClosMakeFun(e0, (FiProg) (C23_generBaseFn));
1212	}
1213
1214	static struct _FiProg tmp22_generator = {
1215	(FiFun) CF22_generator,
1216	0L,
1217	0L,
1218	0L,
1219	0L
1220	};
1221
1222
1223	static void
1224	CF23_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
1225	R3)
1226	{
1227	FiEnv e2, e0;
1228	PFmt15 l1;
1229	PFmt19 l2;
1230	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1231	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
1232	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1233	l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
1234	*R0 = fiClosMake(e0, C25_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C25_generDone_QMARK_));
1235	*R1 = fiClosMake(e0, C24_generStepper)fiClosMakeFun(e0, (FiProg) (C24_generStepper));
1236	*R2 = fiClosMake(e0, C26_generValue)fiClosMakeFun(e0, (FiProg) (C26_generValue));
1237	*R3 = fiClosMake(e0, C27_generBound)fiClosMakeFun(e0, (FiProg) (C27_generBound));
1238	return ;
1239	}
1240
1241	static struct _FiProg tmp23_generBaseFn = {
1242	(FiFun) CF23_generBaseFn,
1243	0L,
1244	0L,
1245	0L,
1246	0L
1247	};
1248
1249
1250	static void
1251	CF24_generStepper(FiEnv e1)
1252	{
1253	FiWord T0, T2;
1254	PFmt13 T1;
1255	PFmt15 l2;
1256	FiEnv e3, e2;
1257	PFmt19 l3;
1258	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1259	l2 = (PFmt15) fiEnvLevel(e2)((FiEnv) (e2)->level);
1260	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1261	l3 = (PFmt19) fiEnvLevel(e3)((FiEnv) (e3)->level);
1262	switch (l2->X3) {
1263	case 0L: goto L0;
1264	case 1L: goto L2;
1265	}
1266	L0: l2->X2 = 0L;
1267	T1 = (PFmt13) l2->X0_s;
1268	l2->X1_a = T1->X1_low;
1269	L1: l2->X3 = 1L;
1270	T0 = l2->X1_a;
1271	l2->X4 = T0;
1272	return ;
1273	L2: T2 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l3->X30_1)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l3->X30_1));
1274	l2->X1_a = fiCCall2(FiWord, l3->X29__PLUS_, l2->X1_a, T2)((((FiWord ()())(l3->X29__PLUS_)->prog->fun))((l3-> X29__PLUS_)->env,l2->X1_a,T2));
1275	goto L1;
1276	}
1277
1278	static struct _FiProg tmp24_generStepper = {
1279	(FiFun) CF24_generStepper,
1280	0L,
1281	0L,
1282	0L,
1283	0L
1284	};
1285
1286
1287	static FiBool
1288	CF25_generDone_QMARK_(FiEnv e1)
1289	{
1290	PFmt15 l2;
1291	FiEnv e2;
1292	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1293	l2 = (PFmt15) fiEnvLevel(e2)((FiEnv) (e2)->level);
1294	return l2->X2;
1295	}
1296
1297	static struct _FiProg tmp25_generDone_QMARK_ = {
1298	(FiFun) CF25_generDone_QMARK_,
1299	0L,
1300	0L,
1301	0L,
1302	0L
1303	};
1304
1305
1306	static FiWord
1307	CF26_generValue(FiEnv e1)
1308	{
1309	PFmt15 l2;
1310	FiEnv e2;
1311	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1312	l2 = (PFmt15) fiEnvLevel(e2)((FiEnv) (e2)->level);
1313	return l2->X4;
1314	}
1315
1316	static struct _FiProg tmp26_generValue = {
1317	(FiFun) CF26_generValue,
1318	0L,
1319	0L,
1320	0L,
1321	0L
1322	};
1323
1324
1325	static FiSInt
1326	CF27_generBound(FiEnv e1)
1327	{
1328	return -1L;
1329	}
1330
1331	static struct _FiProg tmp27_generBound = {
1332	(FiFun) CF27_generBound,
1333	0L,
1334	0L,
1335	0L,
1336	0L
1337	};
1338
1339
1340	static FiClos
1341	CF28_generator(FiEnv e1, FiWord P0_s)
1342	{
1343	PFmt16 l0;
1344	FiEnv e0;
1345	PFmt19 l1;
1346	l0 = fi0New(struct Fmt16 , CENSUS_EnvLevel)((struct Fmt16 *) fi0Alloc(sizeof(struct Fmt16), (19)));
1347	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1348	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1349	l0->X0_s = P0_s;
1350	l0->X4 = 0L;
1351	return fiClosMake(e0, C29_generBaseFn)fiClosMakeFun(e0, (FiProg) (C29_generBaseFn));
1352	}
1353
1354	static struct _FiProg tmp28_generator = {
1355	(FiFun) CF28_generator,
1356	0L,
1357	0L,
1358	0L,
1359	0L
1360	};
1361
1362
1363	static void
1364	CF29_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
1365	R3)
1366	{
1367	FiEnv e2, e0;
1368	PFmt16 l1;
1369	PFmt19 l2;
1370	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1371	l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);
1372	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1373	l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
1374	*R0 = fiClosMake(e0, C31_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C31_generDone_QMARK_));
1375	*R1 = fiClosMake(e0, C30_generStepper)fiClosMakeFun(e0, (FiProg) (C30_generStepper));
1376	*R2 = fiClosMake(e0, C32_generValue)fiClosMakeFun(e0, (FiProg) (C32_generValue));
1377	*R3 = fiClosMake(e0, C33_generBound)fiClosMakeFun(e0, (FiProg) (C33_generBound));
1378	return ;
1379	}
1380
1381	static struct _FiProg tmp29_generBaseFn = {
1382	(FiFun) CF29_generBaseFn,
1383	0L,
1384	0L,
1385	0L,
1386	0L
1387	};
1388
1389
1390	static void
1391	CF30_generStepper(FiEnv e1)
1392	{
1393	FiWord T0, T3;
1394	PFmt13 T1, T2;
1395	PFmt16 l2;
1396	FiEnv e3, e2;
1397	PFmt19 l3;
1398	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1399	l2 = (PFmt16) fiEnvLevel(e2)((FiEnv) (e2)->level);
1400	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1401	l3 = (PFmt19) fiEnvLevel(e3)((FiEnv) (e3)->level);
1402	switch (l2->X4) {
1403	case 0L: goto L0;
1404	case 1L: goto L3;
1405	}
1406	L0: l2->X3 = 0L;
1407	T2 = (PFmt13) l2->X0_s;
1408	l2->X2_a = T2->X1_low;
1409	T1 = (PFmt13) l2->X0_s;
1410	l2->X1_b = T1->X2_high;
1411	L1: if ((FiBool) fiCCall2(FiWord, l3->X27__LT__EQ_, l2->X2_a, l2->X1_b)((((FiWord ()())(l3->X27__LT__EQ_)->prog->fun))((l3 ->X27__LT__EQ_)->env,l2->X2_a,l2->X1_b))) goto
1412	L5;
1413	l2->X3 = 1L;
1414	return ;
1415	L5: l2->X4 = 1L;
1416	T0 = l2->X2_a;
1417	l2->X5 = T0;
1418	return ;
1419	L3: T3 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l3->X30_1)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l3->X30_1));
1420	l2->X2_a = fiCCall2(FiWord, l3->X29__PLUS_, l2->X2_a, T3)((((FiWord ()())(l3->X29__PLUS_)->prog->fun))((l3-> X29__PLUS_)->env,l2->X2_a,T3));
1421	goto L1;
1422	}
1423
1424	static struct _FiProg tmp30_generStepper = {
1425	(FiFun) CF30_generStepper,
1426	0L,
1427	0L,
1428	0L,
1429	0L
1430	};
1431
1432
1433	static FiBool
1434	CF31_generDone_QMARK_(FiEnv e1)
1435	{
1436	PFmt16 l2;
1437	FiEnv e2;
1438	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1439	l2 = (PFmt16) fiEnvLevel(e2)((FiEnv) (e2)->level);
1440	return l2->X3;
1441	}
1442
1443	static struct _FiProg tmp31_generDone_QMARK_ = {
1444	(FiFun) CF31_generDone_QMARK_,
1445	0L,
1446	0L,
1447	0L,
1448	0L
1449	};
1450
1451
1452	static FiWord
1453	CF32_generValue(FiEnv e1)
1454	{
1455	PFmt16 l2;
1456	FiEnv e2;
1457	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1458	l2 = (PFmt16) fiEnvLevel(e2)((FiEnv) (e2)->level);
1459	return l2->X5;
1460	}
1461
1462	static struct _FiProg tmp32_generValue = {
1463	(FiFun) CF32_generValue,
1464	0L,
1465	0L,
1466	0L,
1467	0L
1468	};
1469
1470
1471	static FiSInt
1472	CF33_generBound(FiEnv e1)
1473	{
1474	return -1L;
1475	}
1476
1477	static struct _FiProg tmp33_generBound = {
1478	(FiFun) CF33_generBound,
1479	0L,
1480	0L,
1481	0L,
1482	0L
1483	};
1484
1485
1486	static FiClos
1487	CF34_generator(FiEnv e1, FiWord P0_s)
1488	{
1489	PFmt17 l0;
1490	FiEnv e0;
1491	PFmt19 l1;
1492	l0 = fi0New(struct Fmt17 , CENSUS_EnvLevel)((struct Fmt17 *) fi0Alloc(sizeof(struct Fmt17), (19)));
1493	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1494	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1495	l0->X0_s = P0_s;
1496	l0->X7 = 0L;
1497	return fiClosMake(e0, C35_generBaseFn)fiClosMakeFun(e0, (FiProg) (C35_generBaseFn));
1498	}
1499
1500	static struct _FiProg tmp34_generator = {
1501	(FiFun) CF34_generator,
1502	0L,
1503	0L,
1504	0L,
1505	0L
1506	};
1507
1508
1509	static void
1510	CF35_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
1511	R3)
1512	{
1513	FiEnv e2, e0;
1514	PFmt17 l1;
1515	PFmt19 l2;
1516	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1517	l1 = (PFmt17) fiEnvLevel(e1)((FiEnv) (e1)->level);
1518	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1519	l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
1520	*R0 = fiClosMake(e0, C37_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C37_generDone_QMARK_));
1521	*R1 = fiClosMake(e0, C36_generStepper)fiClosMakeFun(e0, (FiProg) (C36_generStepper));
1522	*R2 = fiClosMake(e0, C38_generValue)fiClosMakeFun(e0, (FiProg) (C38_generValue));
1523	*R3 = fiClosMake(e0, C39_generBound)fiClosMakeFun(e0, (FiProg) (C39_generBound));
1524	return ;
1525	}
1526
1527	static struct _FiProg tmp35_generBaseFn = {
1528	(FiFun) CF35_generBaseFn,
1529	0L,
1530	0L,
1531	0L,
1532	0L
1533	};
1534
1535
1536	static void
1537	CF36_generStepper(FiEnv e1)
1538	{
1539	FiWord T0, T5;
1540	PFmt13 T1, T2, T3, T4;
1541	PFmt17 l2;
1542	FiEnv e3, e2;
1543	PFmt19 l3;
1544	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1545	l2 = (PFmt17) fiEnvLevel(e2)((FiEnv) (e2)->level);
1546	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1547	l3 = (PFmt19) fiEnvLevel(e3)((FiEnv) (e3)->level);
1548	switch (l2->X7) {
1549	case 0L: goto L0;
1550	case 1L: goto L11;
1551	}
1552	L0: l2->X6 = 0L;
1553	T4 = (PFmt13) l2->X0_s;
1554	l2->X5_a = T4->X1_low;
1555	T2 = (PFmt13) l2->X0_s;
1556	l2->X4_b = T2->X2_high;
1557	T3 = (PFmt13) l2->X0_s;
1558	l2->X3_d = T3->X3_step;
1559	T1 = (PFmt13) l2->X0_s;
1560	l2->X2_ubd = T1->X0_open_QMARK_;
1561	T5 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l3->X28_0)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l3->X28_0));
1562	l2->X1_up = fiCCall2(FiWord, l3->X26__GT__EQ_, l2->X3_d, T5)((((FiWord ()())(l3->X26__GT__EQ_)->prog->fun))((l3 ->X26__GT__EQ_)->env,l2->X3_d,T5));
1563	L1: l2->X9 = 0L;
1564	l2->X10 = 0L;
1565	if ((FiBool) l2->X2_ubd) goto L5;
1566	l2->X11 = 1L;
1567	if ((FiBool) l2->X1_up) goto L14;
1568	L7: l2->X11 = 0L;
1569	L8: if ((FiBool) l2->X11) goto L5;
1570	L6: if ((FiBool) l2->X10) goto L3;
1571	l2->X12 = 1L;
1572	if ((FiBool) l2->X1_up) goto L9;
1573	if ((FiBool) fiCCall2(FiWord, l3->X26__GT__EQ_, l2->X5_a, l2->((((FiWord ()())(l3->X26__GT__EQ_)->prog->fun))((l3 ->X26__GT__EQ_)->env,l2->X5_a,l2-> X4_b))
1574	X4_b)((((FiWord ()())(l3->X26__GT__EQ_)->prog->fun))((l3 ->X26__GT__EQ_)->env,l2->X5_a,l2-> X4_b))) goto L10;
1575	L9: l2->X12 = 0L;
1576	L10: if ((FiBool) l2->X12) goto L3;
1577	L4: if ((FiBool) l2->X9) goto L17;
1578	l2->X6 = 1L;
1579	return ;
1580	L17: l2->X7 = 1L;
1581	T0 = l2->X5_a;
1582	l2->X8 = T0;
1583	return ;
1584	L3: l2->X9 = 1L;
1585	goto L4;
1586	L5: l2->X10 = 1L;
1587	goto L6;
1588	L14: if ((FiBool) fiCCall2(FiWord, l3->X27__LT__EQ_, l2->X5_a, l2->X4_b)((((FiWord ()())(l3->X27__LT__EQ_)->prog->fun))((l3 ->X27__LT__EQ_)->env,l2->X5_a,l2->X4_b))) goto
1589	L8;
1590	goto L7;
1591	L11: l2->X5_a = fiCCall2(FiWord, l3->X29__PLUS_, l2->X5_a, l2->((((FiWord ()())(l3->X29__PLUS_)->prog->fun))((l3-> X29__PLUS_)->env,l2->X5_a,l2-> X3_d))
1592	X3_d)((((FiWord ()())(l3->X29__PLUS_)->prog->fun))((l3-> X29__PLUS_)->env,l2->X5_a,l2-> X3_d));
1593	goto L1;
1594	}
1595
1596	static struct _FiProg tmp36_generStepper = {
1597	(FiFun) CF36_generStepper,
1598	0L,
1599	0L,
1600	0L,
1601	0L
1602	};
1603
1604
1605	static FiBool
1606	CF37_generDone_QMARK_(FiEnv e1)
1607	{
1608	PFmt17 l2;
1609	FiEnv e2;
1610	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1611	l2 = (PFmt17) fiEnvLevel(e2)((FiEnv) (e2)->level);
1612	return l2->X6;
1613	}
1614
1615	static struct _FiProg tmp37_generDone_QMARK_ = {
1616	(FiFun) CF37_generDone_QMARK_,
1617	0L,
1618	0L,
1619	0L,
1620	0L
1621	};
1622
1623
1624	static FiWord
1625	CF38_generValue(FiEnv e1)
1626	{
1627	PFmt17 l2;
1628	FiEnv e2;
1629	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1630	l2 = (PFmt17) fiEnvLevel(e2)((FiEnv) (e2)->level);
1631	return l2->X8;
1632	}
1633
1634	static struct _FiProg tmp38_generValue = {
1635	(FiFun) CF38_generValue,
1636	0L,
1637	0L,
1638	0L,
1639	0L
1640	};
1641
1642
1643	static FiSInt
1644	CF39_generBound(FiEnv e1)
1645	{
1646	return -1L;
1647	}
1648
1649	static struct _FiProg tmp39_generBound = {
1650	(FiFun) CF39_generBound,
1651	0L,
1652	0L,
1653	0L,
1654	0L
1655	};
1656
1657
1658	static FiWord
1659	CF40__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)
1660	{
1661	FiBool T0, T1, T2;
1662	PFmt19 l1;
1663	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1664	T0 = 1L;
1665	T1 = 1L;
1666	T2 = 1L;
1667	if ((FiBool) ((PFmt13) P1_b)->X0_open_QMARK_ != (FiBool) ((
1668	PFmt13) P0_a)->X0_open_QMARK_) goto L4;
1669	if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_a)->((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_a)-> X1_low,((PFmt13) P1_b) ->X1_low))
1670	X1_low, ((PFmt13) P1_b)->X1_low)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_a)-> X1_low,((PFmt13) P1_b) ->X1_low))) goto L5;
1671	L4: T2 = 0L;
1672	L5: if (T2) goto L8;
1673	L2: T1 = 0L;
1674	L3: if (T1) goto L9;
1675	L0: T0 = 0L;
1676	L1: return (FiWord) T0;
1677	L9: if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_a)->X3_step, ((((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_a)->X3_step,(( PFmt13) P1_b )->X3_step))
1678	PFmt13) P1_b)->X3_step)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_a)->X3_step,(( PFmt13) P1_b )->X3_step))) goto L1;
1679	goto L0;
1680	L8: if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_a)->X2_high, ((((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_a)->X2_high,(( PFmt13) P1_b )->X2_high))
1681	PFmt13) P1_b)->X2_high)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_a)->X2_high,(( PFmt13) P1_b )->X2_high))) goto L3;
1682	goto L2;
1683	}
1684
1685	static struct _FiProg tmp40__EQ_ = {
1686	(FiFun) CF40__EQ_,
1687	0L,
1688	0L,
1689	0L,
1690	0L
1691	};
1692
1693
1694	static FiWord
1695	CF41__LT__LT_(FiEnv e1, FiWord P0_p, FiWord P1_a)
1696	{
1697	FiWord T6, T7;
1698	FiClos T0, T1, T2, T3, T4, T5;
1699	PFmt19 l1;
1700	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1701	T6 = fiCCall2(FiWord, l1->X25__LT__LT_, P0_p, ((PFmt13) P1_a)->((((FiWord ()())(l1->X25__LT__LT_)->prog->fun))((l1 ->X25__LT__LT_)->env,P0_p,((PFmt13) P1_a)-> X1_low))
1702	X1_low)((((FiWord ()())(l1->X25__LT__LT_)->prog->fun))((l1 ->X25__LT__LT_)->env,P0_p,((PFmt13) P1_a)-> X1_low));
1703	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T6)->prog->fun)
1704	FiClos) T6)((( FiClos) T6)->prog->fun))(((FiClos) T6)->env, &T3, &T4, &T5);
1705	fiCCall3(FiWord, T4, (FiWord) "..", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T4)->prog->fun))((T4)->env,(FiWord ) "..",(FiWord) 1L,(FiWord) 0L));
1706	if ((FiBool) ((PFmt13) P1_a)->X0_open_QMARK_) goto L1;
1707	fiCCall2(FiWord, l1->X25__LT__LT_, P0_p, ((PFmt13) P1_a)->X2_high)((((FiWord ()())(l1->X25__LT__LT_)->prog->fun))((l1 ->X25__LT__LT_)->env,P0_p,((PFmt13) P1_a)->X2_high));
1708	L1: T7 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l1->X30_1)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l1->X30_1));
1709	if ((FiBool) fiCCall2(FiWord, l1->X24__TILDE__EQ_, ((PFmt13) P1_a)->((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((PFmt13) P1_a)-> X3_step ,T7))
1710	X3_step, T7)((((FiWord ()())(l1->X24__TILDE__EQ_)->prog->fun)) ((l1->X24__TILDE__EQ_)->env,((PFmt13) P1_a)-> X3_step ,T7))) goto L2;
1711	L3: return P0_p;
1712	L2: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1713	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);
1714	fiCCall3(FiWord, T1, (FiWord) " by ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,(FiWord ) " by ",(FiWord) 1L,(FiWord) 0L));
1715	fiCCall2(FiWord, l1->X25__LT__LT_, P0_p, ((PFmt13) P1_a)->X3_step)((((FiWord ()())(l1->X25__LT__LT_)->prog->fun))((l1 ->X25__LT__LT_)->env,P0_p,((PFmt13) P1_a)->X3_step));
1716	goto L3;
1717	}
1718
1719	static struct _FiProg tmp41__LT__LT_ = {
1720	(FiFun) CF41__LT__LT_,
1721	0L,
1722	0L,
1723	0L,
1724	0L
1725	};
1726
1727
1728	static FiWord
1729	CF42_size(FiEnv e1, FiWord P0_s)
1730	{
1731	PFmt19 l1;
1732	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1733	return fiCCall3(FiWord, l1->X32_stepsBetween, ((PFmt13) P0_s)->((((FiWord ()())(l1->X32_stepsBetween)->prog->fun) )((l1->X32_stepsBetween)->env,((PFmt13) P0_s)-> X1_low ,((PFmt13) P0_s)->X2_high,((PFmt13) P0_s)-> X3_step))
1734	X1_low, ((PFmt13) P0_s)->X2_high, ((PFmt13) P0_s)->((((FiWord ()())(l1->X32_stepsBetween)->prog->fun) )((l1->X32_stepsBetween)->env,((PFmt13) P0_s)-> X1_low ,((PFmt13) P0_s)->X2_high,((PFmt13) P0_s)-> X3_step))
1735	X3_step)((((FiWord ()())(l1->X32_stepsBetween)->prog->fun) )((l1->X32_stepsBetween)->env,((PFmt13) P0_s)-> X1_low ,((PFmt13) P0_s)->X2_high,((PFmt13) P0_s)-> X3_step));
1736	}
1737
1738	static struct _FiProg tmp42_size = {
1739	(FiFun) CF42_size,
1740	0L,
1741	0L,
1742	0L,
1743	0L
1744	};
1745
1746
1747	static FiWord
1748	CF43_size(FiEnv e1, FiWord P0_s)
1749	{
1750	FiWord T0;
1751	PFmt19 l1;
1752	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1753	T0 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l1->X30_1)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l1->X30_1));
1754	return fiCCall3(FiWord, l1->X32_stepsBetween, ((PFmt13) P0_s)->((((FiWord ()())(l1->X32_stepsBetween)->prog->fun) )((l1->X32_stepsBetween)->env,((PFmt13) P0_s)-> X1_low ,((PFmt13) P0_s)->X2_high,T0))
1755	X1_low, ((PFmt13) P0_s)->X2_high, T0)((((FiWord ()())(l1->X32_stepsBetween)->prog->fun) )((l1->X32_stepsBetween)->env,((PFmt13) P0_s)-> X1_low ,((PFmt13) P0_s)->X2_high,T0));
1756	}
1757
1758	static struct _FiProg tmp43_size = {
1759	(FiFun) CF43_size,
1760	0L,
1761	0L,
1762	0L,
1763	0L
1764	};
1765
1766
1767	static FiWord
1768	CF44__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1769	{
1770	FiBool T0, T1, T2;
1771	PFmt19 l1;
1772	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1773	T0 = 1L;
1774	T1 = 1L;
1775	T2 = 1L;
1776	if ((FiBool) ((PFmt13) P1_y)->X0_open_QMARK_ != (FiBool) ((
1777	PFmt13) P0_x)->X0_open_QMARK_) goto L4;
1778	if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_x)->((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)-> X1_low,((PFmt13) P1_y) ->X1_low))
1779	X1_low, ((PFmt13) P1_y)->X1_low)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)-> X1_low,((PFmt13) P1_y) ->X1_low))) goto L5;
1780	L4: T2 = 0L;
1781	L5: if (T2) goto L8;
1782	L2: T1 = 0L;
1783	L3: if (T1) goto L9;
1784	L0: T0 = 0L;
1785	L1: return (FiWord) !T0;
1786	L9: if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_x)->X3_step, ((((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)->X3_step,(( PFmt13) P1_y )->X3_step))
1787	PFmt13) P1_y)->X3_step)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)->X3_step,(( PFmt13) P1_y )->X3_step))) goto L1;
1788	goto L0;
1789	L8: if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_x)->X2_high, ((((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)->X2_high,(( PFmt13) P1_y )->X2_high))
1790	PFmt13) P1_y)->X2_high)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)->X2_high,(( PFmt13) P1_y )->X2_high))) goto L3;
1791	goto L2;
1792	}
1793
1794	static struct _FiProg tmp44__TILDE__EQ_ = {
1795	(FiFun) CF44__TILDE__EQ_,
1796	0L,
1797	0L,
1798	0L,
1799	0L
1800	};
1801
1802
1803	static FiWord
1804	CF45_hash(FiEnv e1, FiWord P0_x)
1805	{
1806	return (FiWord) 0L;
1807	}
1808
1809	static struct _FiProg tmp45_hash = {
1810	(FiFun) CF45_hash,
1811	0L,
1812	0L,
1813	0L,
1814	0L
1815	};
1816
1817
1818	static FiClos
1819	CF46__LT__LT_(FiEnv e1, FiWord P0_x)
1820	{
1821	PFmt18 l0;
1822	FiEnv e0;
1823	l0 = fi0New(struct Fmt18 , CENSUS_EnvLevel)((struct Fmt18 *) fi0Alloc(sizeof(struct Fmt18), (19)));
1824	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1825	l0->X0_x = P0_x;
1826	return fiClosMake(e0, C47__LT__LT_)fiClosMakeFun(e0, (FiProg) (C47__LT__LT_));
1827	}
1828
1829	static struct _FiProg tmp46__LT__LT_ = {
1830	(FiFun) CF46__LT__LT_,
1831	0L,
1832	0L,
1833	0L,
1834	0L
1835	};
1836
1837
1838	static FiWord
1839	CF47__LT__LT_(FiEnv e1, FiWord P0_p)
1840	{
1841	FiWord T6, T7, T8;
1842	FiClos T0, T1, T2, T3, T4, T5;
1843	PFmt18 l1;
1844	PFmt19 l2;
1845	FiEnv e2;
1846	l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);
1847	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1848	l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
1849	T7 = l1->X0_x;
1850	T6 = fiCCall2(FiWord, l2->X25__LT__LT_, P0_p, ((PFmt13) T7)->((((FiWord ()())(l2->X25__LT__LT_)->prog->fun))((l2 ->X25__LT__LT_)->env,P0_p,((PFmt13) T7)-> X1_low))
1851	X1_low)((((FiWord ()())(l2->X25__LT__LT_)->prog->fun))((l2 ->X25__LT__LT_)->env,P0_p,((PFmt13) T7)-> X1_low));
1852	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T6)->prog->fun)
1853	FiClos) T6)((( FiClos) T6)->prog->fun))(((FiClos) T6)->env, &T3, &T4, &T5);
1854	fiCCall3(FiWord, T4, (FiWord) "..", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T4)->prog->fun))((T4)->env,(FiWord ) "..",(FiWord) 1L,(FiWord) 0L));
1855	if ((FiBool) ((PFmt13) T7)->X0_open_QMARK_) goto L1;
1856	fiCCall2(FiWord, l2->X25__LT__LT_, P0_p, ((PFmt13) T7)->X2_high)((((FiWord ()())(l2->X25__LT__LT_)->prog->fun))((l2 ->X25__LT__LT_)->env,P0_p,((PFmt13) T7)->X2_high));
1857	L1: T8 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), ((PFmt19)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,((PFmt19) (((FiEnv )(e2))->level))->X30_1))
1858	fiEnvLevel0(e2))->X30_1)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,((PFmt19) (((FiEnv )(e2))->level))->X30_1));
1859	if ((FiBool) fiCCall2(FiWord, l2->X24__TILDE__EQ_, ((PFmt13) T7)->((((FiWord ()())(l2->X24__TILDE__EQ_)->prog->fun)) ((l2->X24__TILDE__EQ_)->env,((PFmt13) T7)-> X3_step, T8))
1860	X3_step, T8)((((FiWord ()())(l2->X24__TILDE__EQ_)->prog->fun)) ((l2->X24__TILDE__EQ_)->env,((PFmt13) T7)-> X3_step, T8))) goto L2;
1861	L3: return P0_p;
1862	L2: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1863	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);
1864	fiCCall3(FiWord, T1, (FiWord) " by ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,(FiWord ) " by ",(FiWord) 1L,(FiWord) 0L));
1865	fiCCall2(FiWord, l2->X25__LT__LT_, P0_p, ((PFmt13) T7)->X3_step)((((FiWord ()())(l2->X25__LT__LT_)->prog->fun))((l2 ->X25__LT__LT_)->env,P0_p,((PFmt13) T7)->X3_step));
1866	goto L3;
1867	}
1868
1869	static struct _FiProg tmp47__LT__LT_ = {
1870	(FiFun) CF47__LT__LT_,
1871	0L,
1872	0L,
1873	0L,
1874	0L
1875	};
1876
1877
1878	static FiWord
1879	CF48_case(FiEnv e1, FiWord P0_x, FiWord P1_y)
1880	{
1881	FiBool T0, T1, T2;
1882	PFmt19 l1;
1883	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1884	T0 = 1L;
1885	T1 = 1L;
1886	T2 = 1L;
1887	if ((FiBool) ((PFmt13) P1_y)->X0_open_QMARK_ != (FiBool) ((
1888	PFmt13) P0_x)->X0_open_QMARK_) goto L4;
1889	if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_x)->((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)-> X1_low,((PFmt13) P1_y) ->X1_low))
1890	X1_low, ((PFmt13) P1_y)->X1_low)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)-> X1_low,((PFmt13) P1_y) ->X1_low))) goto L5;
1891	L4: T2 = 0L;
1892	L5: if (T2) goto L8;
1893	L2: T1 = 0L;
1894	L3: if (T1) goto L9;
1895	L0: T0 = 0L;
1896	L1: return (FiWord) T0;
1897	L9: if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_x)->X3_step, ((((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)->X3_step,(( PFmt13) P1_y )->X3_step))
1898	PFmt13) P1_y)->X3_step)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)->X3_step,(( PFmt13) P1_y )->X3_step))) goto L1;
1899	goto L0;
1900	L8: if ((FiBool) fiCCall2(FiWord, l1->X23__EQ_, ((PFmt13) P0_x)->X2_high, ((((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)->X2_high,(( PFmt13) P1_y )->X2_high))
1901	PFmt13) P1_y)->X2_high)((((FiWord ()())(l1->X23__EQ_)->prog->fun))((l1-> X23__EQ_)->env,((PFmt13) P0_x)->X2_high,(( PFmt13) P1_y )->X2_high))) goto L3;
1902	goto L2;
1903	}
1904
1905	static struct _FiProg tmp48_case = {
1906	(FiFun) CF48_case,
1907	0L,
1908	0L,
1909	0L,
1910	0L
1911	};
1912
1913
1914	static FiWord
1915	CF49_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx)
1916	{
1917	PFmt22 l1;
1918	l1 = (PFmt22) fiEnvLevel(e1)((FiEnv) (e1)->level);
1919	if (l1->X5) goto L0;
1920	l1->X5 = 1L;
1921	fiCCall0(void, (pG_H8TZ5_foamcat))((((void ()())((pG_H8TZ5_foamcat))->prog->fun))(((*pG_H8TZ5_foamcat ))->env));
1922	L0: if (P0_idx != 1L) goto L1;
1923	return (FiWord) (*pG_WJ80M_foamcat__BasicType__9);
1924	L1: return (FiWord) (*pG_7KMBB_foamcat__OrderedRing);
1925	}
1926
1927	static struct _FiProg tmp49_foamcat_MINUS_init = {
1928	(FiFun) CF49_foamcat_MINUS_init,
1929	0L,
1930	0L,
1931	0L,
1932	0L
1933	};
1934
1935	extern int
1936	INIT__0_segment()
1937	{
1938
1939	extern int INIT__0_rtexns();
1940	extern int INIT__0_foamcat();
1941	extern int INIT__0_runtime();
1942	static int initialized = 0;
1943	if (initialized)
1944	return 0L;
1945	else
1946	initialized = 1;
1947	C1_Steppable = &tmp1_Steppable;
1948	C2_OpenSegment = &tmp2_OpenSegment;
1949	C3_addLevel0 = &tmp3_addLevel0;
1950	C4_addLevel1 = &tmp4_addLevel1;
1951	C5_ClosedSegment = &tmp5_ClosedSegment;
1952	C6_addLevel0 = &tmp6_addLevel0;
1953	C7_addLevel1 = &tmp7_addLevel1;
1954	C8_Segment = &tmp8_Segment;
1955	C9_addLevel0 = &tmp9_addLevel0;
1956	C10_addLevel1 = &tmp10_addLevel1;
1957	C11__DOT__DOT_ = &tmp11__DOT__DOT_;
1958	C12__DOT__DOT_ = &tmp12__DOT__DOT_;
1959	C13_coerce = &tmp13_coerce;
1960	C14_coerce = &tmp14_coerce;
1961	C15_by = &tmp15_by;
1962	C16_by = &tmp16_by;
1963	C17_by = &tmp17_by;
1964	C18_open_QMARK_ = &tmp18_open_QMARK_;
1965	C19_low = &tmp19_low;
1966	C20_high = &tmp20_high;
1967	C21_step = &tmp21_step;
1968	C22_generator = &tmp22_generator;
1969	C23_generBaseFn = &tmp23_generBaseFn;
1970	C24_generStepper = &tmp24_generStepper;
1971	C25_generDone_QMARK_ = &tmp25_generDone_QMARK_;
1972	C26_generValue = &tmp26_generValue;
1973	C27_generBound = &tmp27_generBound;
1974	C28_generator = &tmp28_generator;
1975	C29_generBaseFn = &tmp29_generBaseFn;
1976	C30_generStepper = &tmp30_generStepper;
1977	C31_generDone_QMARK_ = &tmp31_generDone_QMARK_;
1978	C32_generValue = &tmp32_generValue;
1979	C33_generBound = &tmp33_generBound;
1980	C34_generator = &tmp34_generator;
1981	C35_generBaseFn = &tmp35_generBaseFn;
1982	C36_generStepper = &tmp36_generStepper;
1983	C37_generDone_QMARK_ = &tmp37_generDone_QMARK_;
1984	C38_generValue = &tmp38_generValue;
1985	C39_generBound = &tmp39_generBound;
1986	C40__EQ_ = &tmp40__EQ_;
1987	C41__LT__LT_ = &tmp41__LT__LT_;
1988	C42_size = &tmp42_size;
1989	C43_size = &tmp43_size;
1990	C44__TILDE__EQ_ = &tmp44__TILDE__EQ_;
1991	C45_hash = &tmp45_hash;
1992	C46__LT__LT_ = &tmp46__LT__LT_;
1993	C47__LT__LT_ = &tmp47__LT__LT_;
1994	C48_case = &tmp48_case;
1995	C49_foamcat_MINUS_init = &tmp49_foamcat_MINUS_init;
1996	C0_segment = &tmp0_segment;
1997	fiExportGlobal("G_WVJG4_segment", G_WVJG4_segment)fiExportGlobalFun("G_WVJG4_segment", (Ptr) &G_WVJG4_segment , sizeof(G_WVJG4_segment));
1998	fiExportGlobal("G_RPY7R_segment__Segment__1001",fiExportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr) & G_RPY7R_segment__Segment__1001, sizeof(G_RPY7R_segment__Segment__1001 ))
1999	G_RPY7R_segment__Segment__1001)fiExportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr) & G_RPY7R_segment__Segment__1001, sizeof(G_RPY7R_segment__Segment__1001 ));
2000	fiExportGlobal("G_H8G3S_segment__ClosedSegment",fiExportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr) & G_H8G3S_segment__ClosedSegment, sizeof(G_H8G3S_segment__ClosedSegment ))
2001	G_H8G3S_segment__ClosedSegment)fiExportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr) & G_H8G3S_segment__ClosedSegment, sizeof(G_H8G3S_segment__ClosedSegment ));
2002	fiExportGlobal("G_RE3O1_segment__OpenSegment__",fiExportGlobalFun("G_RE3O1_segment__OpenSegment__", (Ptr) & G_RE3O1_segment__OpenSegment__, sizeof(G_RE3O1_segment__OpenSegment__ ))
2003	G_RE3O1_segment__OpenSegment__)fiExportGlobalFun("G_RE3O1_segment__OpenSegment__", (Ptr) & G_RE3O1_segment__OpenSegment__, sizeof(G_RE3O1_segment__OpenSegment__ ));
2004	fiExportGlobal("G_YTG7I_segment__Steppable__06",fiExportGlobalFun("G_YTG7I_segment__Steppable__06", (Ptr) & G_YTG7I_segment__Steppable__06, sizeof(G_YTG7I_segment__Steppable__06 ))
2005	G_YTG7I_segment__Steppable__06)fiExportGlobalFun("G_YTG7I_segment__Steppable__06", (Ptr) & G_YTG7I_segment__Steppable__06, sizeof(G_YTG7I_segment__Steppable__06 ));
2006	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
2007	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
2008	fiImportGlobal("G_JP87X_rtConstSIntFn", pG_JP87X_rtConstSIntFn)fiImportGlobalFun("G_JP87X_rtConstSIntFn", (Ptr *) &pG_JP87X_rtConstSIntFn );
2009	fiImportGlobal("G_LD0B5_domainHash_BANG_", pG_LD0B5_domainHash_BANG_)fiImportGlobalFun("G_LD0B5_domainHash_BANG_", (Ptr *) &pG_LD0B5_domainHash_BANG_ );
2010	fiImportGlobal("G_WXLY5_categoryAddExports",fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports)
2011	pG_WXLY5_categoryAddExports)fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports);
2012	fiImportGlobal("G_7KMBB_foamcat__OrderedRing__",fiImportGlobalFun("G_7KMBB_foamcat__OrderedRing__", (Ptr *) & pG_7KMBB_foamcat__OrderedRing)
2013	pG_7KMBB_foamcat__OrderedRing)fiImportGlobalFun("G_7KMBB_foamcat__OrderedRing__", (Ptr *) & pG_7KMBB_foamcat__OrderedRing);
2014	fiImportGlobal("G_NOX7X_rtLazyCatFrInit", pG_NOX7X_rtLazyCatFrInit)fiImportGlobalFun("G_NOX7X_rtLazyCatFrInit", (Ptr *) &pG_NOX7X_rtLazyCatFrInit );
2015	fiImportGlobal("G_YXGL3_categoryAddParents",fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents)
2016	pG_YXGL3_categoryAddParents)fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents);
2017	fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport)
2018	pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport);
2019	fiImportGlobal("G_B830W_stdGetWordWordWordRetW",fiImportGlobalFun("G_B830W_stdGetWordWordWordRetW", (Ptr *) & pG_B830W_stdGetWordWordWordRet)
2020	pG_B830W_stdGetWordWordWordRet)fiImportGlobalFun("G_B830W_stdGetWordWordWordRetW", (Ptr *) & pG_B830W_stdGetWordWordWordRet);
2021	fiImportGlobal("G_DLXW8_stdGetWordWordRetWord0",fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) & pG_DLXW8_stdGetWordWordRetWord)
2022	pG_DLXW8_stdGetWordWordRetWord)fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) & pG_DLXW8_stdGetWordWordRetWord);
2023	fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn );
2024	fiImportGlobal("G_GOVLL_categoryMake", pG_GOVLL_categoryMake)fiImportGlobalFun("G_GOVLL_categoryMake", (Ptr *) &pG_GOVLL_categoryMake );
2025	fiImportGlobal("G_KAC1B_rtCacheExplicitMake",fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) & pG_KAC1B_rtCacheExplicitMake)
2026	pG_KAC1B_rtCacheExplicitMake)fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) & pG_KAC1B_rtCacheExplicitMake);
2027	fiImportGlobal("G_759EG_rtCacheCheck", pG_759EG_rtCacheCheck)fiImportGlobalFun("G_759EG_rtCacheCheck", (Ptr *) &pG_759EG_rtCacheCheck );
2028	fiImportGlobal("G_8AMPD_rtSingleParamNameFn",fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) & pG_8AMPD_rtSingleParamNameFn)
2029	pG_8AMPD_rtSingleParamNameFn)fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) & pG_8AMPD_rtSingleParamNameFn);
2030	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
2031	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
2032	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
2033	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
2034	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
2035	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
2036	fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch)
2037	pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch);
2038	fiImportGlobal("G_WJ80M_foamcat__BasicType__90",fiImportGlobalFun("G_WJ80M_foamcat__BasicType__90", (Ptr *) & pG_WJ80M_foamcat__BasicType__9)
2039	pG_WJ80M_foamcat__BasicType__9)fiImportGlobalFun("G_WJ80M_foamcat__BasicType__90", (Ptr *) & pG_WJ80M_foamcat__BasicType__9);
2040	fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults)
2041	pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults);
2042	fiImportGlobal("G_LKD03_domainAddParents_BANG_",fiImportGlobalFun("G_LKD03_domainAddParents_BANG_", (Ptr *) & pG_LKD03_domainAddParents)
2043	pG_LKD03_domainAddParents)fiImportGlobalFun("G_LKD03_domainAddParents_BANG_", (Ptr *) & pG_LKD03_domainAddParents);
2044	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
2045	fiImportGlobal("G_PV28S_rtCacheAdd", pG_PV28S_rtCacheAdd)fiImportGlobalFun("G_PV28S_rtCacheAdd", (Ptr *) &pG_PV28S_rtCacheAdd );
2046	fiImportGlobal("G_4NZQI_lazyGetExport_BANG_",fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) & pG_4NZQI_lazyGetExport_BANG_)
2047	pG_4NZQI_lazyGetExport_BANG_)fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) & pG_4NZQI_lazyGetExport_BANG_);
2048	fiImportGlobal("G_R3D1K_lazyForceImport", pG_R3D1K_lazyForceImport)fiImportGlobalFun("G_R3D1K_lazyForceImport", (Ptr *) &pG_R3D1K_lazyForceImport );
2049	fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings );
2050	fiImportGlobal("G_H8TZ5_foamcat", pG_H8TZ5_foamcat)fiImportGlobalFun("G_H8TZ5_foamcat", (Ptr *) &pG_H8TZ5_foamcat );
2051	if (fiFileInitializer) {
2052	fiFileInitializer("rtexns");
2053	fiFileInitializer("foamcat");
2054	fiFileInitializer("runtime");
2055	}
2056	else {
2057	INIT__0_rtexns();
2058	INIT__0_foamcat();
2059	INIT__0_runtime();
2060	}
2061	/* "---------------------------" */
2062	return 0L;
2063	}
2064
2065	FiWord G_YTG7I_segment__Steppable__06;
2066	FiClos G_RE3O1_segment__OpenSegment__;
2067	FiClos G_H8G3S_segment__ClosedSegment;
2068	FiClos G_RPY7R_segment__Segment__1001;
2069
2070	static struct _FiClos tmpClos0_segment = {
2071	0L,
2072	(FiProg) &tmp0_segment
2073	};
2074	FiClos G_WVJG4_segment = &tmpClos0_segment;