al/runtime.c

Bug Summary

File:	lib/libfoam/al/runtime.c
Warning:	line 846, column 9 Value stored to 'l1' is never read

Annotated Source Code

Press '?' to see keyboard shortcuts

Show analyzer invocation

clang -cc1 -cc1 -triple x86_64-unknown-linux-gnu -analyze -disable-free -clear-ast-before-backend -disable-llvm-verifier -discard-value-names -main-file-name runtime.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/libfoam -fcoverage-compilation-dir=/home/kfp/aldor/aldor/aldor/lib/libfoam -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 ../../../aldor/src -I ../../src -D FOAM_RTS -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/runtime.c

1	/*
2	* C code generated by Aldor from file "runtime.ao".
3	*/
4
5	#include "foam_c.h"
6
7	typedef struct Fmt5 *PFmt5;
8	typedef struct Fmt6 *PFmt6;
9	typedef struct Fmt7 *PFmt7;
10	typedef struct Fmt8 *PFmt8;
11	typedef struct Fmt9 *PFmt9;
12	typedef struct Fmt10 *PFmt10;
13	typedef struct Fmt11 *PFmt11;
14	typedef struct Fmt12 *PFmt12;
15	typedef struct Fmt13 *PFmt13;
16	typedef struct Fmt14 *PFmt14;
17	typedef struct Fmt15 *PFmt15;
18	typedef struct Fmt16 *PFmt16;
19	typedef struct Fmt17 *PFmt17;
20	typedef struct Fmt18 *PFmt18;
21	typedef struct Fmt19 *PFmt19;
22	typedef struct Fmt20 *PFmt20;
23	typedef struct Fmt21 *PFmt21;
24	typedef struct Fmt22 *PFmt22;
25	typedef struct Fmt23 *PFmt23;
26	typedef struct Fmt24 *PFmt24;
27	typedef struct Fmt25 *PFmt25;
28	typedef struct Fmt26 *PFmt26;
29	typedef struct Fmt27 *PFmt27;
30	typedef struct Fmt28 *PFmt28;
31	typedef struct Fmt29 *PFmt29;
32	typedef struct Fmt30 *PFmt30;
33	typedef struct Fmt31 *PFmt31;
34	typedef struct Fmt32 *PFmt32;
35	typedef struct Fmt33 *PFmt33;
36	typedef struct Fmt34 *PFmt34;
37	typedef struct Fmt37 *PFmt37;
38	typedef struct Fmt38 *PFmt38;
39	typedef struct Fmt39 *PFmt39;
40	typedef struct Fmt40 *PFmt40;
41	typedef struct Fmt41 *PFmt41;
42	typedef struct Fmt42 *PFmt42;
43	typedef struct Fmt43 *PFmt43;
44	typedef struct Fmt44 *PFmt44;
45	typedef struct Fmt45 *PFmt45;
46	typedef struct Fmt46 *PFmt46;
47	typedef struct Fmt47 *PFmt47;
48	typedef struct Fmt48 *PFmt48;
49	struct Fmt5 {
50	FiPtr X0_empty;
51	};
52	struct Fmt6 {
53	FiClos X0_fn;
54	};
55	struct Fmt7 {
56	FiPtr X0_empty;
57	};
58	struct Fmt8 {
59	FiWord X0_ofile;
60	};
61	struct Fmt9 {
62	FiWord X0_ofile;
63	};
64	struct Fmt10 {
65	FiClos X0;
66	FiClos X1;
67	FiClos X2;
68	};
69	struct Fmt11 {
70	FiPtr X0_empty;
71	};
72	struct Fmt12 {
73	FiClos X0_fn;
74	FiWord X1_n;
75	};
76	struct Fmt13 {
77	FiWord X0_d;
78	FiWord X1_n1;
79	FiWord X2_n2;
80	};
81	struct Fmt14 {
82	FiClos X0_fn;
83	FiWord X1_n;
84	};
85	struct Fmt15 {
86	FiClos X0_fn;
87	FiWord X1_n;
88	};
89	struct Fmt16 {
90	FiWord X0_x;
91	};
92	struct Fmt17 {
93	FiWord X0_s;
94	};
95	struct Fmt18 {
96	FiPtr X0_empty;
97	};
98	struct Fmt19 {
99	FiWord X0_s;
100	FiWord X1_d;
101	};
102	struct Fmt20 {
103	FiWord X0;
104	FiWord X1;
105	};
106	struct Fmt21 {
107	FiWord X0_dom;
108	FiWord X1_child;
109	};
110	struct Fmt22 {
111	FiWord X0_dom;
112	FiWord X1_child;
113	};
114	struct Fmt23 {
115	FiWord X0_d1;
116	FiWord X1_d2;
117	};
118	struct Fmt24 {
119	FiClos X0_tmpfn;
120	};
121	struct Fmt25 {
122	FiClos X0_getter;
123	FiBool X1_flag;
124	FiClos X2_self;
125	};
126	struct Fmt26 {
127	FiWord X0_theStringTable;
128	FiWord X1_box;
129	FiClos X2_categoryMakeDummy;
130	FiClos X3_domainMakeDummy;
131	FiClos X4_domainName;
132	FiClos X5_domainGetExport_BANG_;
133	FiClos X6_domainMakeDispatch;
134	};
135	struct Fmt27 {
136	FiWord X0_names;
137	FiWord X1_codes;
138	};
139	struct Fmt28 {
140	FiWord X0_first;
141	FiWord X1_rest;
142	};
143	struct Fmt29 {
144	FiWord X0_value;
145	};
146	struct Fmt30 {
147	FiSInt X0_tag;
148	FiWord X1_p;
149	};
150	struct Fmt31 {
151	FiClos X0;
152	FiClos X1;
153	FiClos X2;
154	};
155	struct Fmt32 {
156	FiPtr X0_empty;
157	};
158	struct Fmt33 {
159	FiPtr X0_empty;
160	};
161	struct Fmt34 {
162	FiPtr X0_empty;
163	};
164	struct Fmt37 {
165	FiWord X0_f1;
166	FiWord X1_f2;
167	FiWord X2_hashcode;
168	FiWord X3_parents;
169	FiWord X4_extendees;
170	FiWord X5_defaults;
171	FiWord X6_names;
172	FiWord X7_types;
173	FiWord X8_exports;
174	FiWord X9_ngets;
175	FiWord X10_serial;
176	FiWord X11_cache;
177	FiClos X12_nameFn;
178	FiWord X13_id;
179	};
180	struct Fmt38 {
181	FiWord X0_posn;
182	FiWord X1_keys;
183	FiWord X2_values;
184	FiWord X3_size;
185	};
186	struct Fmt39 {
187	FiWord X0_size;
188	FiWord X1_nvalues;
189	FiWord X2_values;
190	};
191	struct Fmt40 {
192	FiWord X0_tag;
193	FiClos X1_namer;
194	FiWord X2_noname;
195	FiClos X3_getter;
196	FiClos X4_hasher;
197	FiClos X5_inheriter;
198	};
199	struct Fmt41 {
200	FiWord X0_dispatcher;
201	FiWord X1_domainRep;
202	};
203	struct Fmt42 {
204	FiWord X0_cdv;
205	FiWord X1_catRep;
206	};
207	struct Fmt43 {
208	FiWord X0_tag;
209	FiClos X1_namer;
210	FiWord X2_noname;
211	FiClos X3_getter;
212	FiClos X4_hasher;
213	FiClos X5_builder;
214	FiClos X6_parentCounter;
215	FiClos X7_parentGetter;
216	};
217	struct Fmt44 {
218	FiWord X0_buildFn;
219	FiClos X1_hashFn;
220	FiWord X2_dc;
221	FiWord X3_domain;
222	FiWord X4_parents;
223	FiWord X5_nparents;
224	FiWord X6_names;
225	FiWord X7_types;
226	FiWord X8_exports;
227	FiClos X9_nameFn;
228	};
229	struct Fmt45 {
230	FiSInt X0_tag;
231	FiWord X1_value;
232	};
233	struct Fmt46 {
234	FiWord X0_got;
235	FiWord X1_dom;
236	FiWord X2_name;
237	FiWord X3_type;
238	FiWord X4_value;
239	};
240	struct Fmt47 {
241	FiSInt X0_size;
242	FiWord *X1_values;
243	};
244	struct Fmt48 {
245	FiPtr X0_empty;
246	};
247	static FiProg C0_runtime;
248	static void CF0_runtime(FiEnv e1);
249	static FiProg C1_printDomain;
250	static FiWord CF1_printDomain(FiEnv e1, FiWord P0_out, FiWord P1_nm);
251	static FiProg C2_fn;
252	static FiWord CF2_fn(FiEnv e1, FiWord P0_f, FiWord P1_dom);
253	static FiProg C3_filePutc;
254	static FiClos CF3_filePutc(FiEnv e1, FiWord P0_ofile);
255	static FiProg C4_filePutc;
256	static void CF4_filePutc(FiEnv e1, FiWord P0_c);
257	static FiProg C5_filePuts;
258	static FiClos CF5_filePuts(FiEnv e1, FiWord P0_ofile);
259	static FiProg C6_filePuts;
260	static void CF6_filePuts(FiEnv e1, FiWord P0_s, FiWord P1_start, FiWord P2_limit);
261	static FiProg C7_PRINT;
262	static FiWord CF7_PRINT(FiEnv e1);
263	static FiProg C8_PRINT;
264	static void CF8_PRINT(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2);
265	static FiProg C9_PRINT;
266	static FiWord CF9_PRINT(FiEnv e1);
267	static FiProg C10_trace;
268	static FiWord CF10_trace(FiEnv e1, FiWord P0_s, FiWord P1_T, FiWord P2_f);
269	static FiProg C11_domainMake;
270	static FiWord CF11_domainMake(FiEnv e1, FiWord P0_df);
271	static FiProg C12_domainMakeDispatch;
272	static FiWord CF12_domainMakeDispatch(FiEnv e1, FiWord P0_dr);
273	static FiProg C13_domainMakeDummy;
274	static FiWord CF13_domainMakeDummy(FiEnv e1);
275	static FiProg C14_newAldorDomainRep;
276	static FiWord CF14_newAldorDomainRep(FiEnv e1, FiWord P0_df);
277	static FiProg C15_extendMakeDispatch;
278	static FiWord CF15_extendMakeDispatch(FiEnv e1, FiWord P0_dr);
279	static FiProg C16_domainAddExports_BANG_;
280	static void CF16_domainAddExports_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_names, FiWord P2_types, FiWord P3_exports);
281	static FiProg C17_domainGetExport_BANG_;
282	static FiWord CF17_domainGetExport_BANG_(FiEnv e1, FiWord P0_td, FiWord P1_name, FiWord P2_type);
283	static FiProg C18_domainGetExport1_BANG_;
284	static FiWord CF18_domainGetExport1_BANG_(FiEnv e1, FiWord P0_td, FiWord P1_name, FiWord P2_type);
285	static FiProg C19_failmsg;
286	static void CF19_failmsg(FiEnv e1, FiWord P0_td, FiWord P1_name, FiWord P2_type);
287	static FiProg C20_domainTestExport_BANG_;
288	static FiWord CF20_domainTestExport_BANG_(FiEnv e1, FiWord P0_td, FiWord P1_name, FiWord P2_type);
289	static FiProg C21_domainAddDefaults_BANG_;
290	static void CF21_domainAddDefaults_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_defaults, FiWord P2_d2);
291	static FiProg C22_domainAddParents_BANG_;
292	static void CF22_domainAddParents_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_parents, FiWord P2_dAsDom);
293	static FiProg C23_domainAddHash_BANG_;
294	static void CF23_domainAddHash_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_hash);
295	static FiProg C24_domainAddNameFn_BANG_;
296	static void CF24_domainAddNameFn_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_namefn);
297	static FiProg C25_domainHash_BANG_;
298	static FiWord CF25_domainHash_BANG_(FiEnv e1, FiWord P0_td);
299	static FiProg C26_domainName;
300	static FiWord CF26_domainName(FiEnv e1, FiWord P0_td);
301	static FiProg C27_domainFill_BANG_;
302	static void CF27_domainFill_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_v);
303	static FiProg C28_rtDelayedInit_BANG_;
304	static FiClos CF28_rtDelayedInit_BANG_(FiEnv e1, FiWord P0_fn, FiWord P1_n);
305	static FiProg C29_rtDelayedInit_BANG_;
306	static FiWord CF29_rtDelayedInit_BANG_(FiEnv e1);
307	static FiProg C30_rtDelayedGetExport_BANG_;
308	static FiClos CF30_rtDelayedGetExport_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_n1, FiWord P2_n2);
309	static FiProg C31_rtDelayedGetExport_BANG_;
310	static FiWord CF31_rtDelayedGetExport_BANG_(FiEnv e1);
311	static FiProg C32_categoryMake;
312	static FiWord CF32_categoryMake(FiEnv e1, FiWord P0_fn, FiWord P1_hfn, FiWord P2_nameFn);
313	static FiProg C33_categoryMakeDummy;
314	static FiWord CF33_categoryMakeDummy(FiEnv e1);
315	static FiProg C34_categoryAddParents_BANG_;
316	static void CF34_categoryAddParents_BANG_(FiEnv e1, FiWord P0_cat, FiWord P1_parents, FiWord P2_cAsCat);
317	static FiProg C35_categoryAddNameFn_BANG_;
318	static void CF35_categoryAddNameFn_BANG_(FiEnv e1, FiWord P0_cat, FiWord P1_namefn);
319	static FiProg C36_categoryAddExports_BANG_;
320	static void CF36_categoryAddExports_BANG_(FiEnv e1, FiWord P0_cat, FiWord P1_names, FiWord P2_types, FiWord P3_vals);
321	static FiProg C37_categoryBuild;
322	static FiWord CF37_categoryBuild(FiEnv e1, FiWord P0_cat, FiWord P1_dom);
323	static FiProg C38_categoryName;
324	static FiWord CF38_categoryName(FiEnv e1, FiWord P0_cat);
325	static FiProg C39_categoryFill_BANG_;
326	static void CF39_categoryFill_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_v);
327	static FiProg C40_extendMake;
328	static FiWord CF40_extendMake(FiEnv e1, FiWord P0_df);
329	static FiProg C41_extendFill_BANG_;
330	static void CF41_extendFill_BANG_(FiEnv e1, FiWord P0_dom, FiWord P1_pars);
331	static FiProg C42_noOperation;
332	static void CF42_noOperation(FiEnv e1);
333	static FiProg C43_rtLazyCatFrInit;
334	static FiWord CF43_rtLazyCatFrInit(FiEnv e1, FiWord P0_fn, FiWord P1_n);
335	static FiProg C44_ifn;
336	static FiWord CF44_ifn(FiEnv e1);
337	static FiProg C45_rtLazyCatFrFn;
338	static FiWord CF45_rtLazyCatFrFn(FiEnv e1, FiWord P0_fn);
339	static FiProg C46_rtLazyDomFrInit;
340	static FiWord CF46_rtLazyDomFrInit(FiEnv e1, FiWord P0_fn, FiWord P1_n);
341	static FiProg C47_ifn;
342	static FiWord CF47_ifn(FiEnv e1);
343	static FiProg C48_rtLazyDomFrFn;
344	static FiWord CF48_rtLazyDomFrFn(FiEnv e1, FiWord P0_fn);
345	static FiProg C49_lazyGetExport_BANG_;
346	static FiWord CF49_lazyGetExport_BANG_(FiEnv e1, FiWord P0_dom, FiWord P1_n, FiWord P2_t);
347	static FiProg C50_lazyForceImport;
348	static FiWord CF50_lazyForceImport(FiEnv e1, FiWord P0_li);
349	static FiProg C51_domainPrepare_BANG_;
350	static void CF51_domainPrepare_BANG_(FiEnv e1, FiWord P0_td);
351	static FiProg C52_rtConstSIntFn;
352	static FiClos CF52_rtConstSIntFn(FiEnv e1, FiWord P0_x);
353	static FiProg C53_rtConstSIntFn;
354	static FiWord CF53_rtConstSIntFn(FiEnv e1);
355	static FiProg C54_rtConstNameFn;
356	static FiClos CF54_rtConstNameFn(FiEnv e1, FiWord P0_s);
357	static FiProg C55_rtConstNameFn;
358	static FiWord CF55_rtConstNameFn(FiEnv e1);
359	static FiProg C56_rtSingleParamNameFn;
360	static FiClos CF56_rtSingleParamNameFn(FiEnv e1, FiWord P0_s, FiWord P1_d);
361	static FiProg C57_rtSingleParamNameFn;
362	static FiWord CF57_rtSingleParamNameFn(FiEnv e1);
363	static FiProg C58_rtAddStrings;
364	static void CF58_rtAddStrings(FiEnv e1, FiWord P0_a1, FiWord P1_a2);
365	static FiProg C59_rtCacheMake;
366	static FiWord CF59_rtCacheMake(FiEnv e1);
367	static FiProg C60_rtCacheExplicitMake;
368	static FiWord CF60_rtCacheExplicitMake(FiEnv e1, FiSInt P0_x);
369	static FiProg C61_rtCacheCheck;
370	static void CF61_rtCacheCheck(FiEnv e1, FiWord P0_cache, FiWord P1_key, FiWord* R0, FiWord* R1);
371	static FiProg C62_rtCacheAdd;
372	static FiWord CF62_rtCacheAdd(FiEnv e1, FiWord P0_cache, FiWord P1_key, FiWord P2_value);
373	static FiProg C63_aldorDispatchVector;
374	static FiWord CF63_aldorDispatchVector(FiEnv e1);
375	static FiProg C64_n;
376	static FiWord CF64_n(FiEnv e1, FiWord P0_x);
377	static FiProg C65_ag;
378	static FiWord CF65_ag(FiEnv e1, FiWord P0_d, FiWord P1_pc, FiWord P2_n, FiWord P3_t, FiWord P4_b, FiWord P5_flg);
379	static FiProg C66_h;
380	static FiWord CF66_h(FiEnv e1, FiWord P0_x);
381	static FiProg C67_i;
382	static FiWord CF67_i(FiEnv e1, FiWord P0_dom, FiWord P1_child);
383	static FiProg C68_fn;
384	static FiClos CF68_fn(FiEnv e1, FiWord P0_d);
385	static FiProg C69_extendDispatchVector;
386	static FiWord CF69_extendDispatchVector(FiEnv e1);
387	static FiProg C70_n;
388	static FiWord CF70_n(FiEnv e1, FiWord P0_e);
389	static FiProg C71_extendg;
390	static FiWord CF71_extendg(FiEnv e1, FiWord P0_d, FiWord P1_pc, FiWord P2_n, FiWord P3_t, FiWord P4_b, FiWord P5_flg);
391	static FiProg C72_h;
392	static FiWord CF72_h(FiEnv e1, FiWord P0_x);
393	static FiProg C73_i;
394	static FiWord CF73_i(FiEnv e1, FiWord P0_dom, FiWord P1_child);
395	static FiProg C74_efn;
396	static FiClos CF74_efn(FiEnv e1, FiWord P0_d);
397	static FiProg C75_dummyDispatchVector;
398	static FiWord CF75_dummyDispatchVector(FiEnv e1);
399	static FiProg C76_n;
400	static FiWord CF76_n(FiEnv e1, FiWord P0_x);
401	static FiProg C77_dummyg;
402	static FiWord CF77_dummyg(FiEnv e1, FiWord P0_d, FiWord P1_pc, FiWord P2_n, FiWord P3_t, FiWord P4_b, FiWord P5_flg);
403	static FiProg C78_h;
404	static FiWord CF78_h(FiEnv e1, FiWord P0_x);
405	static FiProg C79_i;
406	static FiWord CF79_i(FiEnv e1, FiWord P0_x, FiWord P1_d);
407	static FiProg C80_pointerDV;
408	static FiWord CF80_pointerDV(FiEnv e1);
409	static FiProg C81_n;
410	static FiWord CF81_n(FiEnv e1, FiWord P0_x);
411	static FiProg C82_ptrg;
412	static FiWord CF82_ptrg(FiEnv e1, FiWord P0_d, FiWord P1_pc, FiWord P2_n, FiWord P3_t, FiWord P4_b, FiWord P5_flg);
413	static FiProg C83_h;
414	static FiWord CF83_h(FiEnv e1, FiWord P0_x);
415	static FiProg C84_tmpfn;
416	static FiWord CF84_tmpfn(FiEnv e1, FiWord P0_d1, FiWord P1_d2);
417	static FiProg C85_fn;
418	static FiWord CF85_fn(FiEnv e1);
419	static FiProg C86_i;
420	static FiWord CF86_i(FiEnv e1, FiWord P0_x, FiWord P1_d);
421	static FiProg C87_aldorCatDispatchVector;
422	static FiWord CF87_aldorCatDispatchVector(FiEnv e1);
423	static FiProg C88_n1;
424	static FiWord CF88_n1(FiEnv e1, FiWord P0_x);
425	static FiProg C89_g1;
426	static FiWord CF89_g1(FiEnv e1, FiWord P0_x, FiWord P1_d, FiWord P2_h, FiWord P3_h2, FiWord P4_b);
427	static FiProg C90_h1;
428	static FiWord CF90_h1(FiEnv e1, FiWord P0_x);
429	static FiProg C91_pc1;
430	static FiWord CF91_pc1(FiEnv e1, FiWord P0_x);
431	static FiProg C92_pg1;
432	static FiWord CF92_pg1(FiEnv e1, FiWord P0_x, FiWord P1_i);
433	static FiProg C93_b1;
434	static FiWord CF93_b1(FiEnv e1, FiWord P0_r, FiWord P1_dom);
435	static FiProg C94_dummyCatDispatchVector;
436	static FiWord CF94_dummyCatDispatchVector(FiEnv e1);
437	static FiProg C95_n0;
438	static FiWord CF95_n0(FiEnv e1, FiWord P0_x);
439	static FiProg C96_b0;
440	static FiWord CF96_b0(FiEnv e1, FiWord P0_x, FiWord P1_d);
441	static FiProg C97_g0;
442	static FiWord CF97_g0(FiEnv e1, FiWord P0_x, FiWord P1_d, FiWord P2_h, FiWord P3_h2, FiWord P4_b);
443	static FiProg C98_h0;
444	static FiWord CF98_h0(FiEnv e1, FiWord P0_x);
445	static FiProg C99_pc0;
446	static FiWord CF99_pc0(FiEnv e1, FiWord P0_x);
447	static FiProg C100_pg0;
448	static FiWord CF100_pg0(FiEnv e1, FiWord P0_x, FiWord P1_i);
449	static FiProg C101_namePartConcat;
450	static FiWord CF101_namePartConcat(FiEnv e1, FiWord P0_x, FiWord P1_T);
451	static FiProg C102_namePartFrString;
452	static FiWord CF102_namePartFrString(FiEnv e1, FiWord P0_s);
453	static FiProg C103_namePartFrOther;
454	static FiWord CF103_namePartFrOther(FiEnv e1, FiWord P0_p);
455	static FiProg C104_stringHash;
456	static FiWord CF104_stringHash(FiEnv e1, FiWord P0_s);
457	static FiProg C105_rtAssertMessage;
458	static void CF105_rtAssertMessage(FiEnv e1, FiWord P0_file, FiWord P1_line, FiWord P2_msg);
459	static FiProg C106_lazyGetter2;
460	static void CF106_lazyGetter2(FiEnv e1);
461	static FiProg C107_lazyFnGetter;
462	static FiClos CF107_lazyFnGetter(FiEnv e1, FiWord P0_init);
463	static FiProg C108_lazyGetter;
464	static void CF108_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c, FiWord* R0, FiWord* R1);
465	static FiProg C109_lazyFnGetter;
466	static FiClos CF109_lazyFnGetter(FiEnv e1, FiWord P0_init);
467	static FiProg C110_lazyGetter;
468	static FiWord CF110_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c);
469	static FiProg C111_lazyFnGetter;
470	static FiClos CF111_lazyFnGetter(FiEnv e1, FiWord P0_init);
471	static FiProg C112_lazyGetter;
472	static void CF112_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c);
473	static FiProg C113_lazyFnGetter;
474	static FiClos CF113_lazyFnGetter(FiEnv e1, FiWord P0_init);
475	static FiProg C114_lazyGetter;
476	static FiClos CF114_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c);
477	static FiProg C115_lazyFnGetter;
478	static FiClos CF115_lazyFnGetter(FiEnv e1, FiWord P0_init);
479	static FiProg C116_lazyGetter;
480	static void CF116_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord* R0, FiWord* R1);
481	static FiProg C117_lazyFnGetter;
482	static FiClos CF117_lazyFnGetter(FiEnv e1, FiWord P0_init);
483	static FiProg C118_lazyGetter;
484	static FiWord CF118_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b);
485	static FiProg C119_lazyFnGetter;
486	static FiClos CF119_lazyFnGetter(FiEnv e1, FiWord P0_init);
487	static FiProg C120_lazyGetter;
488	static void CF120_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b);
489	static FiProg C121_lazyFnGetter;
490	static FiClos CF121_lazyFnGetter(FiEnv e1, FiWord P0_init);
491	static FiProg C122_lazyGetter;
492	static FiClos CF122_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b);
493	static FiProg C123_lazyFnGetter;
494	static FiClos CF123_lazyFnGetter(FiEnv e1, FiWord P0_init);
495	static FiProg C124_lazyGetter;
496	static void CF124_lazyGetter(FiEnv e1, FiWord P0_a, FiWord* R0, FiWord* R1);
497	static FiProg C125_lazyFnGetter;
498	static FiClos CF125_lazyFnGetter(FiEnv e1, FiWord P0_init);
499	static FiProg C126_lazyGetter;
500	static FiWord CF126_lazyGetter(FiEnv e1, FiWord P0_a);
501	static FiProg C127_lazyFnGetter;
502	static FiClos CF127_lazyFnGetter(FiEnv e1, FiWord P0_init);
503	static FiProg C128_lazyGetter;
504	static void CF128_lazyGetter(FiEnv e1, FiWord P0_a);
505	static FiProg C129_lazyFnGetter;
506	static FiClos CF129_lazyFnGetter(FiEnv e1, FiWord P0_init);
507	static FiProg C130_lazyGetter;
508	static FiClos CF130_lazyGetter(FiEnv e1, FiWord P0_a);
509	static FiProg C131_lazyFnGetter;
510	static FiClos CF131_lazyFnGetter(FiEnv e1, FiWord P0_init);
511	static FiProg C132_lazyGetter;
512	static void CF132_lazyGetter(FiEnv e1, FiClos P0_a, FiWord* R0, FiWord* R1);
513	static FiProg C133_lazyFnGetter;
514	static FiClos CF133_lazyFnGetter(FiEnv e1, FiWord P0_init);
515	static FiProg C134_lazyGetter;
516	static FiWord CF134_lazyGetter(FiEnv e1, FiClos P0_a);
517	static FiProg C135_lazyFnGetter;
518	static FiClos CF135_lazyFnGetter(FiEnv e1, FiWord P0_init);
519	static FiProg C136_lazyGetter;
520	static void CF136_lazyGetter(FiEnv e1, FiClos P0_a);
521	static FiProg C137_lazyFnGetter;
522	static FiClos CF137_lazyFnGetter(FiEnv e1, FiWord P0_init);
523	static FiProg C138_lazyGetter;
524	static FiClos CF138_lazyGetter(FiEnv e1, FiClos P0_a);
525	static FiProg C139_lazyFnGetter;
526	static FiClos CF139_lazyFnGetter(FiEnv e1, FiWord P0_init);
527	static FiProg C140_lazyGetter;
528	static void CF140_lazyGetter(FiEnv e1, FiWord* R0, FiWord* R1);
529	static FiProg C141_lazyFnGetter;
530	static FiClos CF141_lazyFnGetter(FiEnv e1, FiWord P0_init);
531	static FiProg C142_lazyGetter;
532	static FiWord CF142_lazyGetter(FiEnv e1);
533	static FiProg C143_lazyFnGetter;
534	static FiClos CF143_lazyFnGetter(FiEnv e1, FiWord P0_init);
535	static FiProg C144_lazyGetter;
536	static void CF144_lazyGetter(FiEnv e1);
537	static FiProg C145_lazyFnGetter;
538	static FiClos CF145_lazyFnGetter(FiEnv e1, FiWord P0_init);
539	static FiProg C146_lazyGetter;
540	static FiClos CF146_lazyGetter(FiEnv e1);
541	static FiProg C147_new;
542	static FiWord CF147_new(FiEnv e1);
543	static FiProg C148_n0;
544	static FiWord CF148_n0(FiEnv e1, FiWord P0_x);
545	static FiProg C149_b0;
546	static FiWord CF149_b0(FiEnv e1, FiWord P0_x, FiWord P1_d);
547	static FiProg C150_g0;
548	static FiWord CF150_g0(FiEnv e1, FiWord P0_x, FiWord P1_d, FiWord P2_h, FiWord P3_h2, FiWord P4_b);
549	static FiProg C151_h0;
550	static FiWord CF151_h0(FiEnv e1, FiWord P0_x);
551	static FiProg C152_pc0;
552	static FiWord CF152_pc0(FiEnv e1, FiWord P0_x);
553	static FiProg C153_pg0;
554	static FiWord CF153_pg0(FiEnv e1, FiWord P0_x, FiWord P1_i);
555	static FiProg C154_expandExtend;
556	static void CF154_expandExtend(FiEnv e1, FiWord P0_x, FiWord P1_h);
557	extern FiClos G_XIPRL_runtime;
558	extern FiClos G_NQYQM_noOperation;
559	extern void fiRaiseException();
560	extern FiWord stdoutFile();
561	extern FiWord fiStrHash();
562	extern FiClos G_GUPOC_rtAssertMessage;
563	extern FiClos G_X9M4Q_stringHash;
564	extern FiClos G_CEQ0J_dummyCatDispatchVector;
565	extern FiClos G_79OOL_aldorCatDispatchVector;
566	extern FiClos G_BXRJI_pointerDV;
567	extern FiClos G_FJ11F_dummyDispatchVector;
568	extern FiClos G_YY5KJ_extendDispatchVector;
569	extern FiClos G_L6ZD3_aldorDispatchVector;
570	extern FiClos G_8AMPD_rtSingleParamNameFn;
571	extern FiClos G_Z2868_rtConstNameFn;
572	extern FiClos G_X1QPH_rtLazyDomFrFn;
573	extern FiClos G_3BJ33_rtLazyCatFrFn;
574	extern FiClos G_607SQ_domainGetExport1_BANG_;
575	extern FiClos G_X6DBU_extendMakeDispatch;
576	extern FiClos G_GBH6X_newAldorDomainRep;
577	extern FiClos G_UG221_trace;
578	extern FiClos G_GUKH6_stdGetRetClos0;
579	extern FiClos G_W18J9_stdGetRetNOp0;
580	extern FiClos G_MNZVJ_stdGetRetWord0;
581	extern FiClos G_W18JB_stdGetRetNOp2;
582	extern FiClos G_4DAJB_stdGetClosRetClos0;
583	extern FiClos G_ZJ0BV_stdGetClosRetNOp0;
584	extern FiClos G_YCI2U_stdGetClosRetWord0;
585	extern FiClos G_ZJ0BX_stdGetClosRetNOp2;
586	extern FiClos G_LYCP1_stdGetWordRetClos0;
587	extern FiClos G_HM0N7_stdGetWordRetNOp0;
588	extern FiClos G_ZZZKG_stdGetWordRetWord0;
589	extern FiClos G_HM0N9_stdGetWordRetNOp2;
590	extern FiClos G_ERIR5_stdGetWordWordRetClos0;
591	extern FiClos G_30VT6_stdGetWordWordRetNOp0;
592	extern FiClos G_DLXW8_stdGetWordWordRetWord0;
593	extern FiClos G_30VT8_stdGetWordWordRetNOp2;
594	extern FiClos G_7SHFP_stdGetWordWordWordRetC;
595	extern FiClos G_DBH3Z_stdGetWordWordWordRetN;
596	extern FiClos G_B830W_stdGetWordWordWordRetW;
597	extern FiClos G_DBH41_stdGetWordWordWordRetN;
598	extern FiClos G_KK8CX_rtLazyDomFrInit;
599	extern FiClos G_QRAZA_rtDelayedGetExport;
600	extern FiClos G_RSHLY_rtDelayedInit_BANG_;
601	static FiClos *pG_DLXW8_stdGetWordWordRetWord;
602	extern FiClos G_4NZQI_lazyGetExport_BANG_;
603	extern FiClos G_R3D1K_lazyForceImport;
604	extern FiClos G_6L1ZC_domainMake;
605	extern FiClos G_IJHFC_domainMakeDispatch;
606	extern FiClos G_PA5R2_domainAddExports_BANG_;
607	extern FiClos G_V9SO_domainAddDefaults_BANG_;
608	extern FiClos G_LKD03_domainAddParents_BANG_;
609	extern FiClos G_XS55O_domainAddHash_BANG_;
610	extern FiClos G_CSVBL_domainAddNameFn_BANG_;
611	extern FiClos G_1X2RM_domainGetExport_BANG_;
612	extern FiClos G_RSCGM_domainTestExport_BANG_;
613	extern FiClos G_LD0B5_domainHash_BANG_;
614	extern FiClos G_GJ87F_domainName;
615	extern FiClos G_BEY7_domainMakeDummy;
616	extern FiClos G_AK1EB_domainFill_BANG_;
617	extern FiClos G_YXGL3_categoryAddParents;
618	extern FiClos G_6M45D_categoryAddNameFn;
619	extern FiClos G_WXLY5_categoryAddExports;
620	extern FiClos G_GOVLL_categoryMake;
621	extern FiClos G_J5O7O_categoryBuild;
622	extern FiClos G_6L2PO_categoryName;
623	extern FiClos G_20JKW_categoryMakeDummy;
624	extern FiClos G_2RANX_categoryFill_BANG_;
625	extern FiClos G_FZLG1_extendMake;
626	extern FiClos G_G3BWN_extendFill_BANG_;
627	extern FiClos G_JP87X_rtConstSIntFn;
628	extern FiClos G_822GM_rtAddStrings;
629	extern FiClos G_LMTDG_domainPrepare_BANG_;
630	extern FiClos G_NOX7X_rtLazyCatFrInit;
631	extern FiClos G_QQHP2_rtCacheMake;
632	extern FiClos G_KAC1B_rtCacheExplicitMake;
633	extern FiClos G_759EG_rtCacheCheck;
634	extern FiClos G_PV28S_rtCacheAdd;
635	extern FiClos G_9TG1R_namePartConcat;
636	extern FiClos G_7BRRS_namePartFrOther;
637	extern FiClos G_FZP76_namePartFrString;
638	extern int fputs(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [3]*/
639	extern int fputc(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [1]*/
640
641	extern FiWord fputss(FiWord P0, FiWord P1, FiWord P2, FiWord P3);
642	extern FiWord formatSInt();
643
644
645
646	static void
647	CF0_runtime(FiEnv e1)
648	{
649	PFmt29 T44;
650	FiSInt T40, T43;
651	PFmt28 T39, T42;
652	FiWord T35, T36, T38, T41;
653	PFmt27 T37;
654	FiClos T0_namePartFrString, T1_namePartFrOther, T2_namePartConcat, T3_rtCacheAdd, T4_rtCacheCheck, T5_rtCacheExplicitMake, T6_rtCacheMake, T7_rtLazyDomFrInit, T8_rtLazyCatFrInit, T9_rtDelayedGetExport_BANG_, T10_rtDelayedInit_BANG_, T11_domainPrepare_BANG_, T12_rtAddStrings, T13_rtConstSIntFn, T14_lazyForceImport, T15_lazyGetExport_BANG_, T16_noOperation, T17_extendFill_BANG_, T18_extendMake, T19_categoryFill_BANG_, T20_categoryName, T21_categoryBuild, T22_categoryMake, T23_categoryAddExports_BANG_, T24_categoryAddNameFn_BANG_, T25_categoryAddParents_BANG_, T26_domainFill_BANG_, T27_domainHash_BANG_, T28_domainTestExport_BANG_, T29_domainAddNameFn_BANG_, T30_domainAddHash_BANG_, T31_domainAddParents_BANG_, T32_domainAddDefaults_BANG_, T33_domainAddExports_BANG_, T34_domainMake;
655	PFmt26 l0;
656	FiEnv e0;
657	l0 = fi0New(struct Fmt26 , CENSUS_EnvLevel)((struct Fmt26 *) fi0Alloc(sizeof(struct Fmt26), (19)));
658	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
659	G_UG221_trace = fiClosMake(e0, C10_trace)fiClosMakeFun(e0, (FiProg) (C10_trace));
660	T34_domainMake = fiClosMake(e0, C11_domainMake)fiClosMakeFun(e0, (FiProg) (C11_domainMake));
661	l0->X6_domainMakeDispatch = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C12_domainMakeDispatch))
662	C12_domainMakeDispatch)fiClosMakeFun(e0, (FiProg) (C12_domainMakeDispatch));
663	l0->X3_domainMakeDummy = fiClosMake(e0, C13_domainMakeDummy)fiClosMakeFun(e0, (FiProg) (C13_domainMakeDummy));
664	G_GBH6X_newAldorDomainRep = fiClosMake(e0, C14_newAldorDomainRep)fiClosMakeFun(e0, (FiProg) (C14_newAldorDomainRep));
665	G_X6DBU_extendMakeDispatch = fiClosMake(e0, C15_extendMakeDispatch)fiClosMakeFun(e0, (FiProg) (C15_extendMakeDispatch));
666	T33_domainAddExports_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C16_domainAddExports_BANG_))
667	C16_domainAddExports_BANG_)fiClosMakeFun(e0, (FiProg) (C16_domainAddExports_BANG_));
668	l0->X5_domainGetExport_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C17_domainGetExport_BANG_))
669	C17_domainGetExport_BANG_)fiClosMakeFun(e0, (FiProg) (C17_domainGetExport_BANG_));
670	G_607SQ_domainGetExport1_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C18_domainGetExport1_BANG_))
671	C18_domainGetExport1_BANG_)fiClosMakeFun(e0, (FiProg) (C18_domainGetExport1_BANG_));
672	T28_domainTestExport_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C20_domainTestExport_BANG_))
673	C20_domainTestExport_BANG_)fiClosMakeFun(e0, (FiProg) (C20_domainTestExport_BANG_));
674	T32_domainAddDefaults_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C21_domainAddDefaults_BANG_))
675	C21_domainAddDefaults_BANG_)fiClosMakeFun(e0, (FiProg) (C21_domainAddDefaults_BANG_));
676	T31_domainAddParents_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C22_domainAddParents_BANG_))
677	C22_domainAddParents_BANG_)fiClosMakeFun(e0, (FiProg) (C22_domainAddParents_BANG_));
678	T30_domainAddHash_BANG_ = fiClosMake(e0, C23_domainAddHash_BANG_)fiClosMakeFun(e0, (FiProg) (C23_domainAddHash_BANG_));
679	T29_domainAddNameFn_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C24_domainAddNameFn_BANG_))
680	C24_domainAddNameFn_BANG_)fiClosMakeFun(e0, (FiProg) (C24_domainAddNameFn_BANG_));
681	T27_domainHash_BANG_ = fiClosMake(e0, C25_domainHash_BANG_)fiClosMakeFun(e0, (FiProg) (C25_domainHash_BANG_));
682	l0->X4_domainName = fiClosMake(e0, C26_domainName)fiClosMakeFun(e0, (FiProg) (C26_domainName));
683	T26_domainFill_BANG_ = fiClosMake(e0, C27_domainFill_BANG_)fiClosMakeFun(e0, (FiProg) (C27_domainFill_BANG_));
684	T10_rtDelayedInit_BANG_ = fiClosMake(e0, C28_rtDelayedInit_BANG_)fiClosMakeFun(e0, (FiProg) (C28_rtDelayedInit_BANG_));
685	T9_rtDelayedGetExport_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C30_rtDelayedGetExport_BANG_))
686	C30_rtDelayedGetExport_BANG_)fiClosMakeFun(e0, (FiProg) (C30_rtDelayedGetExport_BANG_));
687	T22_categoryMake = fiClosMake(e0, C32_categoryMake)fiClosMakeFun(e0, (FiProg) (C32_categoryMake));
688	l0->X2_categoryMakeDummy = fiClosMake(e0, C33_categoryMakeDummy)fiClosMakeFun(e0, (FiProg) (C33_categoryMakeDummy));
689	T25_categoryAddParents_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C34_categoryAddParents_BANG_))
690	C34_categoryAddParents_BANG_)fiClosMakeFun(e0, (FiProg) (C34_categoryAddParents_BANG_));
691	T24_categoryAddNameFn_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C35_categoryAddNameFn_BANG_))
692	C35_categoryAddNameFn_BANG_)fiClosMakeFun(e0, (FiProg) (C35_categoryAddNameFn_BANG_));
693	T23_categoryAddExports_BANG_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C36_categoryAddExports_BANG_))
694	C36_categoryAddExports_BANG_)fiClosMakeFun(e0, (FiProg) (C36_categoryAddExports_BANG_));
695	T21_categoryBuild = fiClosMake(e0, C37_categoryBuild)fiClosMakeFun(e0, (FiProg) (C37_categoryBuild));
696	T20_categoryName = fiClosMake(e0, C38_categoryName)fiClosMakeFun(e0, (FiProg) (C38_categoryName));
697	T19_categoryFill_BANG_ = fiClosMake(e0, C39_categoryFill_BANG_)fiClosMakeFun(e0, (FiProg) (C39_categoryFill_BANG_));
698	T18_extendMake = fiClosMake(e0, C40_extendMake)fiClosMakeFun(e0, (FiProg) (C40_extendMake));
699	T17_extendFill_BANG_ = fiClosMake(e0, C41_extendFill_BANG_)fiClosMakeFun(e0, (FiProg) (C41_extendFill_BANG_));
700	T16_noOperation = fiClosMake(e0, C42_noOperation)fiClosMakeFun(e0, (FiProg) (C42_noOperation));
701	T8_rtLazyCatFrInit = fiClosMake(e0, C43_rtLazyCatFrInit)fiClosMakeFun(e0, (FiProg) (C43_rtLazyCatFrInit));
702	G_3BJ33_rtLazyCatFrFn = fiClosMake(e0, C45_rtLazyCatFrFn)fiClosMakeFun(e0, (FiProg) (C45_rtLazyCatFrFn));
703	T7_rtLazyDomFrInit = fiClosMake(e0, C46_rtLazyDomFrInit)fiClosMakeFun(e0, (FiProg) (C46_rtLazyDomFrInit));
704	G_X1QPH_rtLazyDomFrFn = fiClosMake(e0, C48_rtLazyDomFrFn)fiClosMakeFun(e0, (FiProg) (C48_rtLazyDomFrFn));
705	T15_lazyGetExport_BANG_ = fiClosMake(e0, C49_lazyGetExport_BANG_)fiClosMakeFun(e0, (FiProg) (C49_lazyGetExport_BANG_));
706	T14_lazyForceImport = fiClosMake(e0, C50_lazyForceImport)fiClosMakeFun(e0, (FiProg) (C50_lazyForceImport));
707	T11_domainPrepare_BANG_ = fiClosMake(e0, C51_domainPrepare_BANG_)fiClosMakeFun(e0, (FiProg) (C51_domainPrepare_BANG_));
708	T13_rtConstSIntFn = fiClosMake(e0, C52_rtConstSIntFn)fiClosMakeFun(e0, (FiProg) (C52_rtConstSIntFn));
709	G_Z2868_rtConstNameFn = fiClosMake(e0, C54_rtConstNameFn)fiClosMakeFun(e0, (FiProg) (C54_rtConstNameFn));
710	G_8AMPD_rtSingleParamNameFn = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C56_rtSingleParamNameFn))
711	C56_rtSingleParamNameFn)fiClosMakeFun(e0, (FiProg) (C56_rtSingleParamNameFn));
712	T12_rtAddStrings = fiClosMake(e0, C58_rtAddStrings)fiClosMakeFun(e0, (FiProg) (C58_rtAddStrings));
713	T6_rtCacheMake = fiClosMake(e0, C59_rtCacheMake)fiClosMakeFun(e0, (FiProg) (C59_rtCacheMake));
714	T5_rtCacheExplicitMake = fiClosMake(e0, C60_rtCacheExplicitMake)fiClosMakeFun(e0, (FiProg) (C60_rtCacheExplicitMake));
715	T4_rtCacheCheck = fiClosMake(e0, C61_rtCacheCheck)fiClosMakeFun(e0, (FiProg) (C61_rtCacheCheck));
716	T3_rtCacheAdd = fiClosMake(e0, C62_rtCacheAdd)fiClosMakeFun(e0, (FiProg) (C62_rtCacheAdd));
717	G_L6ZD3_aldorDispatchVector = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C63_aldorDispatchVector))
718	C63_aldorDispatchVector)fiClosMakeFun(e0, (FiProg) (C63_aldorDispatchVector));
719	G_YY5KJ_extendDispatchVector = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C69_extendDispatchVector))
720	C69_extendDispatchVector)fiClosMakeFun(e0, (FiProg) (C69_extendDispatchVector));
721	G_FJ11F_dummyDispatchVector = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C75_dummyDispatchVector))
722	C75_dummyDispatchVector)fiClosMakeFun(e0, (FiProg) (C75_dummyDispatchVector));
723	G_BXRJI_pointerDV = fiClosMake(e0, C80_pointerDV)fiClosMakeFun(e0, (FiProg) (C80_pointerDV));
724	G_79OOL_aldorCatDispatchVector = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C87_aldorCatDispatchVector))
725	C87_aldorCatDispatchVector)fiClosMakeFun(e0, (FiProg) (C87_aldorCatDispatchVector));
726	G_CEQ0J_dummyCatDispatchVector = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C94_dummyCatDispatchVector))
727	C94_dummyCatDispatchVector)fiClosMakeFun(e0, (FiProg) (C94_dummyCatDispatchVector));
728	T2_namePartConcat = fiClosMake(e0, C101_namePartConcat)fiClosMakeFun(e0, (FiProg) (C101_namePartConcat));
729	T0_namePartFrString = fiClosMake(e0, C102_namePartFrString)fiClosMakeFun(e0, (FiProg) (C102_namePartFrString));
730	T1_namePartFrOther = fiClosMake(e0, C103_namePartFrOther)fiClosMakeFun(e0, (FiProg) (C103_namePartFrOther));
731	G_X9M4Q_stringHash = fiClosMake(e0, C104_stringHash)fiClosMakeFun(e0, (FiProg) (C104_stringHash));
732	G_GUPOC_rtAssertMessage = fiClosMake(e0, C105_rtAssertMessage)fiClosMakeFun(e0, (FiProg) (C105_rtAssertMessage));
733	G_GUKH6_stdGetRetClos0 = fiClosMake(e0, C145_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C145_lazyFnGetter));
734	G_W18J9_stdGetRetNOp0 = fiClosMake(e0, C143_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C143_lazyFnGetter));
735	G_MNZVJ_stdGetRetWord0 = fiClosMake(e0, C141_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C141_lazyFnGetter));
736	G_W18JB_stdGetRetNOp2 = fiClosMake(e0, C139_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C139_lazyFnGetter));
737	G_4DAJB_stdGetClosRetClos0 = fiClosMake(e0, C137_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C137_lazyFnGetter));
738	G_ZJ0BV_stdGetClosRetNOp0 = fiClosMake(e0, C135_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C135_lazyFnGetter));
739	G_YCI2U_stdGetClosRetWord0 = fiClosMake(e0, C133_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C133_lazyFnGetter));
740	G_ZJ0BX_stdGetClosRetNOp2 = fiClosMake(e0, C131_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C131_lazyFnGetter));
741	G_LYCP1_stdGetWordRetClos0 = fiClosMake(e0, C129_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C129_lazyFnGetter));
742	G_HM0N7_stdGetWordRetNOp0 = fiClosMake(e0, C127_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C127_lazyFnGetter));
743	G_ZZZKG_stdGetWordRetWord0 = fiClosMake(e0, C125_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C125_lazyFnGetter));
744	G_HM0N9_stdGetWordRetNOp2 = fiClosMake(e0, C123_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C123_lazyFnGetter));
745	G_ERIR5_stdGetWordWordRetClos0 = fiClosMake(e0, C121_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C121_lazyFnGetter));
746	G_30VT6_stdGetWordWordRetNOp0 = fiClosMake(e0, C119_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C119_lazyFnGetter));
747	G_DLXW8_stdGetWordWordRetWord0 = fiClosMake(e0, C117_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C117_lazyFnGetter));
748	G_30VT8_stdGetWordWordRetNOp2 = fiClosMake(e0, C115_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C115_lazyFnGetter));
749	G_7SHFP_stdGetWordWordWordRetC = fiClosMake(e0, C113_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C113_lazyFnGetter));
750	G_DBH3Z_stdGetWordWordWordRetN = fiClosMake(e0, C111_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C111_lazyFnGetter));
751	G_B830W_stdGetWordWordWordRetW = fiClosMake(e0, C109_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C109_lazyFnGetter));
752	G_DBH41_stdGetWordWordWordRetN = fiClosMake(e0, C107_lazyFnGetter)fiClosMakeFun(e0, (FiProg) (C107_lazyFnGetter));
753	G_6L1ZC_domainMake = T34_domainMake;
754	G_IJHFC_domainMakeDispatch = l0->X6_domainMakeDispatch;
755	G_PA5R2_domainAddExports_BANG_ = T33_domainAddExports_BANG_;
756	G_V9SO_domainAddDefaults_BANG_ = T32_domainAddDefaults_BANG_;
757	G_LKD03_domainAddParents_BANG_ = T31_domainAddParents_BANG_;
758	G_XS55O_domainAddHash_BANG_ = T30_domainAddHash_BANG_;
759	G_CSVBL_domainAddNameFn_BANG_ = T29_domainAddNameFn_BANG_;
760	G_1X2RM_domainGetExport_BANG_ = l0->X5_domainGetExport_BANG_;
761	G_RSCGM_domainTestExport_BANG_ = T28_domainTestExport_BANG_;
762	G_LD0B5_domainHash_BANG_ = T27_domainHash_BANG_;
763	G_GJ87F_domainName = l0->X4_domainName;
764	G_BEY7_domainMakeDummy = l0->X3_domainMakeDummy;
765	G_AK1EB_domainFill_BANG_ = T26_domainFill_BANG_;
766	G_YXGL3_categoryAddParents = T25_categoryAddParents_BANG_;
767	G_6M45D_categoryAddNameFn = T24_categoryAddNameFn_BANG_;
768	G_WXLY5_categoryAddExports = T23_categoryAddExports_BANG_;
769	G_GOVLL_categoryMake = T22_categoryMake;
770	G_J5O7O_categoryBuild = T21_categoryBuild;
771	G_6L2PO_categoryName = T20_categoryName;
772	G_20JKW_categoryMakeDummy = l0->X2_categoryMakeDummy;
773	G_2RANX_categoryFill_BANG_ = T19_categoryFill_BANG_;
774	G_FZLG1_extendMake = T18_extendMake;
775	G_G3BWN_extendFill_BANG_ = T17_extendFill_BANG_;
776	G_NQYQM_noOperation = T16_noOperation;
777	G_4NZQI_lazyGetExport_BANG_ = T15_lazyGetExport_BANG_;
778	G_R3D1K_lazyForceImport = T14_lazyForceImport;
779	G_JP87X_rtConstSIntFn = T13_rtConstSIntFn;
780	G_822GM_rtAddStrings = T12_rtAddStrings;
781	G_LMTDG_domainPrepare_BANG_ = T11_domainPrepare_BANG_;
782	T44 = fi0RecNew(struct Fmt29 , CENSUS_Rec)((struct Fmt29 *) fi0RecAlloc(sizeof(struct Fmt29), ( 5)));
783	T44->X0_value = (FiWord) fiNil((Ptr) 0);
784	l0->X1_box = (FiWord) T44;
785	G_RSHLY_rtDelayedInit_BANG_ = T10_rtDelayedInit_BANG_;
786	G_QRAZA_rtDelayedGetExport = T9_rtDelayedGetExport_BANG_;
787	G_NOX7X_rtLazyCatFrInit = T8_rtLazyCatFrInit;
788	G_KK8CX_rtLazyDomFrInit = T7_rtLazyDomFrInit;
789	fiARRNEW_Word(T35, FiWord, 1L)((T35) = (FiWord) fiArrNew_Word(1L));
790	T35[0L] = (FiWord) "%%";
791	fiARRNEW_Word(T36, FiWord, 1L)((T36) = (FiWord) fiArrNew_Word(1L));
792	T36[0L] = (FiWord) 51482908L;
793	T37 = fi0RecNew(struct Fmt27 , CENSUS_Rec)((struct Fmt27 *) fi0RecAlloc(sizeof(struct Fmt27), ( 5)));
794	T41 = (FiWord) fiNil((Ptr) 0);
795	T43 = 0L;
796	L1: if (T43 > 0) goto L2;
797	T42 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
798	T42->X0_first = T35[1L - T43 - 1L];
799	T42->X1_rest = T41;
800	T41 = (FiWord) T42;
801	T43 = T43 + 1L;
802	goto L1;
803	L2: T37->X0_names = T41;
804	T38 = (FiWord) fiNil((Ptr) 0);
805	T40 = 0L;
806	L0: if (T40 > 0) goto L3;
807	T39 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
808	T39->X0_first = T36[1L - T40 - 1L];
809	T39->X1_rest = T38;
810	T38 = (FiWord) T39;
811	T40 = T40 + 1L;
812	goto L0;
813	L3: T37->X1_codes = T38;
814	l0->X0_theStringTable = (FiWord) T37;
815	G_QQHP2_rtCacheMake = T6_rtCacheMake;
816	G_KAC1B_rtCacheExplicitMake = T5_rtCacheExplicitMake;
817	G_759EG_rtCacheCheck = T4_rtCacheCheck;
818	G_PV28S_rtCacheAdd = T3_rtCacheAdd;
819	G_9TG1R_namePartConcat = T2_namePartConcat;
820	G_7BRRS_namePartFrOther = T1_namePartFrOther;
821	G_FZP76_namePartFrString = T0_namePartFrString;
822	G_XIPRL_runtime = (FiClos) G_NQYQM_noOperation;
823	return ;
824	}
825
826	static struct _FiProg tmp0_runtime = {
827	(FiFun) CF0_runtime,
828	0L,
829	0L,
830	0L,
831	0L
832	};
833
834
835	static FiWord
836	CF1_printDomain(FiEnv e1, FiWord P0_out, FiWord P1_nm)
837	{
838	FiBool T2, T28, T29, T30;
839	FiWord T1, T3, T4, T8, T18, T19, T23, T24, T25, T26, T27_ll;
840	FiClos T0, T5, T6, T7, T9, T10, T11, T12, T13, T14, T15, T16, T17, T20, T21, T22;
841	PFmt6 l0;
842	FiEnv e0;
843	PFmt26 l1;
844	l0 = fi0New(struct Fmt6 , CENSUS_EnvLevel)((struct Fmt6 *) fi0Alloc(sizeof(struct Fmt6), (19)));
845	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
846	l1 = (PFmt26) fiEnvLevel(e1)((FiEnv) (e1)->level);
	Value stored to 'l1' is never read
847	l0->X0_fn = fiClosMake(e0, C2_fn)fiClosMakeFun(e0, (FiProg) (C2_fn));
848	T0 = l0->X0_fn;
849	if (((PFmt30) P1_nm)->X0_tag == 0) goto L0;
850	if (((PFmt30) P1_nm)->X0_tag == 3L) goto L2;
851	T2 = ((PFmt30) P1_nm)->X0_tag == 2L;
852	T1 = ((PFmt30) P1_nm)->X1_p;
853	if (T2) goto L4;
854	fiPTR_IS_NIL(T28, FiBool, (FiPtr) T1)((T28) = (FiBool)((FiPtr) ((FiPtr) T1) == (FiPtr) 0));
855	if (T28) goto L5;
856	T18 = ((PFmt28) T1)->X0_first;
857	fiCCall2(FiWord, T0, P0_out, T18)((((FiWord ()())(T0)->prog->fun))((T0)->env,P0_out ,T18));
858	T19 = ((PFmt28) T1)->X1_rest;
859	T1 = T19;
860	L4: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)
861	FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T12, &T13, &T14);
862	fiCCall3(FiWord, T13, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T13)->prog->fun))((T13)->env,(FiWord ) "(",(FiWord) 1L,(FiWord) 0L));
863	T27_ll = T1;
864	L6: fiPTR_IS_NIL(T29, FiBool, (FiPtr) T27_ll)((T29) = (FiBool)((FiPtr) ((FiPtr) T27_ll) == (FiPtr) 0));
865	if (T29) goto L7;
866	T26 = ((PFmt28) T27_ll)->X1_rest;
867	T24 = ((PFmt28) T27_ll)->X0_first;
868	fiCCall2(FiWord, T0, P0_out, T24)((((FiWord ()())(T0)->prog->fun))((T0)->env,P0_out ,T24));
869	T25 = ((PFmt28) T27_ll)->X1_rest;
870	fiPTR_IS_NIL(T30, FiBool, (FiPtr) T25)((T30) = (FiBool)((FiPtr) ((FiPtr) T25) == (FiPtr) 0));
871	if (T30) goto L8;
872	T8 = (FiWord) ", ";
873	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)
874	FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T5, &T6, &T7);
875	fiCCall3(FiWord, T6, T8, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T6)->prog->fun))((T6)->env,T8,(FiWord ) 1L,(FiWord) 0L));
876	L8: T27_ll = T26;
877	goto L6;
878	L7: T23 = (FiWord) ")";
879	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)
880	FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T20, &T21, &T22);
881	fiCCall3(FiWord, T21, T23, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T21)->prog->fun))((T21)->env,T23, (FiWord) 1L,(FiWord) 0L));
882	T4 = P0_out;
883	L3: T3 = T4;
884	L1: return T3;
885	L5: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
886	fputc((FiWord) 10L, stdoutFile());
887	fiHalt((FiSInt) 0L);
888	return (FiWord) 0L;
889	L2: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)
890	FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T9, &T10, &T11);
891	fiCCall3(FiWord, T10, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T10)->prog->fun))((T10)->env,(FiWord ) "\?\?",(FiWord) 1L,(FiWord) 0L));
892	T4 = P0_out;
893	goto L3;
894	L0: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)
895	FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T15, &T16, &T17);
896	fiCCall3(FiWord, T16, ((PFmt30) P1_nm)->X1_p, (FiWord) 1L, (FiWord)((((FiWord ()())(T16)->prog->fun))((T16)->env,((PFmt30 ) P1_nm)->X1_p,(FiWord) 1L,(FiWord) 0L))
897	0L)((((FiWord ()())(T16)->prog->fun))((T16)->env,((PFmt30 ) P1_nm)->X1_p,(FiWord) 1L,(FiWord) 0L));
898	T3 = P0_out;
899	goto L1;
900	}
901
902	static struct _FiProg tmp1_printDomain = {
903	(FiFun) CF1_printDomain,
904	0L,
905	0L,
906	0L,
907	0L
908	};
909
910
911	static FiWord
912	CF2_fn(FiEnv e1, FiWord P0_f, FiWord P1_dom)
913	{
914	FiBool T2, T28, T29, T30;
915	FiWord T1, T3, T4, T8, T18, T19, T23, T24, T25, T26, T27_ll;
916	FiClos T0, T5, T6, T7, T9, T10, T11, T12, T13, T14, T15, T16, T17, T20, T21, T22;
917	PFmt6 l1;
918	PFmt26 l2;
919	FiEnv e2;
920	l1 = (PFmt6) fiEnvLevel(e1)((FiEnv) (e1)->level);
921	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
922	l2 = (PFmt26) fiEnvLevel(e2)((FiEnv) (e2)->level);
923	T0 = l1->X0_fn;
924	if (((PFmt30) P1_dom)->X0_tag == 0) goto L0;
925	if (((PFmt30) P1_dom)->X0_tag == 3L) goto L2;
926	T2 = ((PFmt30) P1_dom)->X0_tag == 2L;
927	T1 = ((PFmt30) P1_dom)->X1_p;
928	if (T2) goto L4;
929	fiPTR_IS_NIL(T28, FiBool, (FiPtr) T1)((T28) = (FiBool)((FiPtr) ((FiPtr) T1) == (FiPtr) 0));
930	if (T28) goto L5;
931	T18 = ((PFmt28) T1)->X0_first;
932	fiCCall2(FiWord, T0, P0_f, T18)((((FiWord ()())(T0)->prog->fun))((T0)->env,P0_f,T18 ));
933	T19 = ((PFmt28) T1)->X1_rest;
934	T1 = T19;
935	L4: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_f)->prog->fun)
936	FiClos) P0_f)((( FiClos) P0_f)->prog->fun))(((FiClos) P0_f)->env, &T12, &T13, &T14);
937	fiCCall3(FiWord, T13, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T13)->prog->fun))((T13)->env,(FiWord ) "(",(FiWord) 1L,(FiWord) 0L));
938	T27_ll = T1;
939	L6: fiPTR_IS_NIL(T29, FiBool, (FiPtr) T27_ll)((T29) = (FiBool)((FiPtr) ((FiPtr) T27_ll) == (FiPtr) 0));
940	if (T29) goto L7;
941	T26 = ((PFmt28) T27_ll)->X1_rest;
942	T24 = ((PFmt28) T27_ll)->X0_first;
943	fiCCall2(FiWord, T0, P0_f, T24)((((FiWord ()())(T0)->prog->fun))((T0)->env,P0_f,T24 ));
944	T25 = ((PFmt28) T27_ll)->X1_rest;
945	fiPTR_IS_NIL(T30, FiBool, (FiPtr) T25)((T30) = (FiBool)((FiPtr) ((FiPtr) T25) == (FiPtr) 0));
946	if (T30) goto L8;
947	T8 = (FiWord) ", ";
948	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_f)->prog->fun)
949	FiClos) P0_f)((( FiClos) P0_f)->prog->fun))(((FiClos) P0_f)->env, &T5, &T6, &T7);
950	fiCCall3(FiWord, T6, T8, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T6)->prog->fun))((T6)->env,T8,(FiWord ) 1L,(FiWord) 0L));
951	L8: T27_ll = T26;
952	goto L6;
953	L7: T23 = (FiWord) ")";
954	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_f)->prog->fun)
955	FiClos) P0_f)((( FiClos) P0_f)->prog->fun))(((FiClos) P0_f)->env, &T20, &T21, &T22);
956	fiCCall3(FiWord, T21, T23, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T21)->prog->fun))((T21)->env,T23, (FiWord) 1L,(FiWord) 0L));
957	T4 = P0_f;
958	L3: T3 = T4;
959	L1: return T3;
960	L5: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
961	fputc((FiWord) 10L, stdoutFile());
962	fiHalt((FiSInt) 0L);
963	return (FiWord) 0L;
964	L2: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_f)->prog->fun)
965	FiClos) P0_f)((( FiClos) P0_f)->prog->fun))(((FiClos) P0_f)->env, &T9, &T10, &T11);
966	fiCCall3(FiWord, T10, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T10)->prog->fun))((T10)->env,(FiWord ) "\?\?",(FiWord) 1L,(FiWord) 0L));
967	T4 = P0_f;
968	goto L3;
969	L0: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_f)->prog->fun)
970	FiClos) P0_f)((( FiClos) P0_f)->prog->fun))(((FiClos) P0_f)->env, &T15, &T16, &T17);
971	fiCCall3(FiWord, T16, ((PFmt30) P1_dom)->X1_p, (FiWord) 1L, (FiWord)((((FiWord ()())(T16)->prog->fun))((T16)->env,((PFmt30 ) P1_dom)->X1_p,(FiWord) 1L,(FiWord) 0L))
972	0L)((((FiWord ()())(T16)->prog->fun))((T16)->env,((PFmt30 ) P1_dom)->X1_p,(FiWord) 1L,(FiWord) 0L));
973	T3 = P0_f;
974	goto L1;
975	}
976
977	static struct _FiProg tmp2_fn = {
978	(FiFun) CF2_fn,
979	0L,
980	0L,
981	0L,
982	0L
983	};
984
985
986	static FiClos
987	CF3_filePutc(FiEnv e1, FiWord P0_ofile)
988	{
989	PFmt8 l0;
990	FiEnv e0;
991	PFmt26 l1;
992	l0 = fi0New(struct Fmt8 , CENSUS_EnvLevel)((struct Fmt8 *) fi0Alloc(sizeof(struct Fmt8), (19)));
993	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
994	l1 = (PFmt26) fiEnvLevel(e1)((FiEnv) (e1)->level);
995	l0->X0_ofile = P0_ofile;
996	return fiClosMake(e0, C4_filePutc)fiClosMakeFun(e0, (FiProg) (C4_filePutc));
997	}
998
999	static struct _FiProg tmp3_filePutc = {
1000	(FiFun) CF3_filePutc,
1001	0L,
1002	0L,
1003	0L,
1004	0L
1005	};
1006
1007
1008	static void
1009	CF4_filePutc(FiEnv e1, FiWord P0_c)
1010	{
1011	FiBool T1;
1012	FiWord T0;
1013	PFmt8 l1;
1014	PFmt26 l2;
1015	FiEnv e2;
1016	l1 = (PFmt8) fiEnvLevel(e1)((FiEnv) (e1)->level);
1017	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1018	l2 = (PFmt26) fiEnvLevel(e2)((FiEnv) (e2)->level);
1019	T0 = l1->X0_ofile;
1020	fiPTR_IS_NIL(T1, FiBool, (FiPtr) T0)((T1) = (FiBool)((FiPtr) ((FiPtr) T0) == (FiPtr) 0));
1021	if (T1) goto L0;
1022	fputc((FiWord) (FiSInt) (FiChar) P0_c, T0);
1023	L0: return ;
1024	}
1025
1026	static struct _FiProg tmp4_filePutc = {
1027	(FiFun) CF4_filePutc,
1028	0L,
1029	0L,
1030	0L,
1031	0L
1032	};
1033
1034
1035	static FiClos
1036	CF5_filePuts(FiEnv e1, FiWord P0_ofile)
1037	{
1038	PFmt9 l0;
1039	FiEnv e0;
1040	PFmt26 l1;
1041	l0 = fi0New(struct Fmt9 , CENSUS_EnvLevel)((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)));
1042	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1043	l1 = (PFmt26) fiEnvLevel(e1)((FiEnv) (e1)->level);
1044	l0->X0_ofile = P0_ofile;
1045	return fiClosMake(e0, C6_filePuts)fiClosMakeFun(e0, (FiProg) (C6_filePuts));
1046	}
1047
1048	static struct _FiProg tmp5_filePuts = {
1049	(FiFun) CF5_filePuts,
1050	0L,
1051	0L,
1052	0L,
1053	0L
1054	};
1055
1056
1057	static void
1058	CF6_filePuts(FiEnv e1, FiWord P0_s, FiWord P1_start, FiWord P2_limit)
1059	{
1060	FiBool T3;
1061	FiWord T2;
1062	FiSInt T0, T1;
1063	PFmt9 l1;
1064	PFmt26 l2;
1065	FiEnv e2;
1066	l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
1067	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1068	l2 = (PFmt26) fiEnvLevel(e2)((FiEnv) (e2)->level);
1069	T2 = l1->X0_ofile;
1070	fiPTR_IS_NIL(T3, FiBool, (FiPtr) T2)((T3) = (FiBool)((FiPtr) ((FiPtr) T2) == (FiPtr) 0));
1071	if (T3) goto L3;
1072	fputss(P0_s, (FiWord) ((FiSInt) P1_start - 1L), (FiWord) ((
1073	FiSInt) P2_limit - 1L), T2);
1074	L0: return ;
1075	L3: if ((FiSInt) P2_limit == 0) goto L1;
1076	goto L0;
1077	L1: T0 = 1L;
1078	L2: T1 = T0 - 1L;
1079	if (((FiChar*) P0_s)[T1] == 0L) goto L0;
1080	T0 = T0 + 1L;
1081	goto L2;
1082	}
1083
1084	static struct _FiProg tmp6_filePuts = {
1085	(FiFun) CF6_filePuts,
1086	0L,
1087	0L,
1088	0L,
1089	0L
1090	};
1091
1092
1093	static FiWord
1094	CF7_PRINT(FiEnv e1)
1095	{
1096	FiEnv e0;
1097	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1098	return (FiWord) fiClosMake(e0, C8_PRINT)fiClosMakeFun(e0, (FiProg) (C8_PRINT));
1099	}
1100
1101	static struct _FiProg tmp7_PRINT = {
1102	(FiFun) CF7_PRINT,
1103	0L,
1104	0L,
1105	0L,
1106	0L
1107	};
1108
1109
1110	static void
1111	CF8_PRINT(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2)
1112	{
1113	FiWord T4, T6;
1114	FiEnv e2, e0, T3, T5;
1115	FiClos T0, T1, T2;
1116	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1117	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1118	T5 = fiEnvPush(fi0New(struct Fmt8 , CENSUS_EnvLevel), e2)fiEnvPushFun((FiPtr) (((struct Fmt8 *) fi0Alloc(sizeof(struct Fmt8), (19)))), e2);
1119	T6 = stdoutFile();
1120	((PFmt8) fiEnvLevel0(T5)(((FiEnv)(T5))->level))->X0_ofile = T6;
1121	T0 = (FiClos) fiClosMake(T5, C4_filePutc)fiClosMakeFun(T5, (FiProg) (C4_filePutc));
1122	T3 = fiEnvPush(fi0New(struct Fmt9 , CENSUS_EnvLevel), e2)fiEnvPushFun((FiPtr) (((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)))), e2);
1123	T4 = stdoutFile();
1124	((PFmt9) fiEnvLevel0(T3)(((FiEnv)(T3))->level))->X0_ofile = T4;
1125	T1 = (FiClos) fiClosMake(T3, C6_filePuts)fiClosMakeFun(T3, (FiProg) (C6_filePuts));
1126	T2 = fiClosMake(e0, C9_PRINT)fiClosMakeFun(e0, (FiProg) (C9_PRINT));
1127	*R0 = T0;
1128	*R1 = T1;
1129	*R2 = T2;
1130	return ;
1131	}
1132
1133	static struct _FiProg tmp8_PRINT = {
1134	(FiFun) CF8_PRINT,
1135	0L,
1136	0L,
1137	0L,
1138	0L
1139	};
1140
1141
1142	static FiWord
1143	CF9_PRINT(FiEnv e1)
1144	{
1145	FiEnv e3, e2;
1146	PFmt26 l3;
1147	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1148	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1149	l3 = (PFmt26) fiEnvLevel(e3)((FiEnv) (e3)->level);
1150	return (FiWord) 0L;
1151	}
1152
1153	static struct _FiProg tmp9_PRINT = {
1154	(FiFun) CF9_PRINT,
1155	0L,
1156	0L,
1157	0L,
1158	0L
1159	};
1160
1161
1162	static FiWord
1163	CF10_trace(FiEnv e1, FiWord P0_s, FiWord P1_T, FiWord P2_f)
1164	{
1165	FiWord T0_v, T7, T11, T12, T25, T29;
1166	FiClos T1, T2, T3, T4, T5, T6, T8, T9, T10, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T23, T24, T28__LT__LT_;
1167	FiEnv T26, T27;
1168	T26 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1169	T25 = (FiWord) fiClosMake(T26, C8_PRINT)fiClosMakeFun(T26, (FiProg) (C8_PRINT));
1170	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T25)->prog->fun)
1171	FiClos) T25)((( FiClos) T25)->prog->fun))(((FiClos) T25)->env, &T22, &T23, &T24);
1172	fiCCall3(FiWord, T23, (FiWord) "{", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T23)->prog->fun))((T23)->env,(FiWord ) "{",(FiWord) 1L,(FiWord) 0L));
1173	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T25)->prog->fun)
1174	FiClos) T25)((( FiClos) T25)->prog->fun))(((FiClos) T25)->env, &T16, &T17, &T18);
1175	fiCCall3(FiWord, T17, P0_s, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T17)->prog->fun))((T17)->env,P0_s ,(FiWord) 1L,(FiWord) 0L));
1176	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T25)->prog->fun)
1177	FiClos) T25)((( FiClos) T25)->prog->fun))(((FiClos) T25)->env, &T19, &T20, &T21);
1178	fiCCall3(FiWord, T20, (FiWord) ":", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T20)->prog->fun))((T20)->env,(FiWord ) ":",(FiWord) 1L,(FiWord) 0L));
1179	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T25)->prog->fun)
1180	FiClos) T25)((( FiClos) T25)->prog->fun))(((FiClos) T25)->env, &T13, &T14, &T15);
1181	fiCCall1(void, T13, (FiWord) 10L)((((void ()())(T13)->prog->fun))((T13)->env,(FiWord ) 10L));
1182	T0_v = fiCCall0(FiWord, (FiClos) P2_f)((((FiWord ()())((FiClos) P2_f)->prog->fun))(((FiClos ) P2_f)->env));
1183	T29 = fiCCall3(FiWord, G_QRAZA_rtDelayedGetExport, P1_T, 51492426L,((((FiWord ()())(G_QRAZA_rtDelayedGetExport)->prog->fun ))((G_QRAZA_rtDelayedGetExport)->env,P1_T,51492426L,0L))
1184	0L)((((FiWord ()())(G_QRAZA_rtDelayedGetExport)->prog->fun ))((G_QRAZA_rtDelayedGetExport)->env,P1_T,51492426L,0L));
1185	T28__LT__LT_ = fiCCall1(FiClos, (pG_DLXW8_stdGetWordWordRetWord),((((FiClos ()())((pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((*pG_DLXW8_stdGetWordWordRetWord))->env,T29))
1186	T29)((((FiClos ()())((pG_DLXW8_stdGetWordWordRetWord))->prog ->fun))(((pG_DLXW8_stdGetWordWordRetWord))->env,T29));
1187	T27 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1188	T11 = (FiWord) fiClosMake(T27, C8_PRINT)fiClosMakeFun(T27, (FiProg) (C8_PRINT));
1189	T12 = (FiWord) " ";
1190	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T11)->prog->fun)
1191	FiClos) T11)((( FiClos) T11)->prog->fun))(((FiClos) T11)->env, &T8, &T9, &T10);
1192	fiCCall3(FiWord, T9, T12, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T9)->prog->fun))((T9)->env,T12,(FiWord ) 1L,(FiWord) 0L));
1193	T7 = fiCCall2(FiWord, T28__LT__LT_, T11, T0_v)((((FiWord ()())(T28__LT__LT_)->prog->fun))((T28__LT__LT_ )->env,T11,T0_v));
1194	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T7)->prog->fun)
1195	FiClos) T7)((( FiClos) T7)->prog->fun))(((FiClos) T7)->env, &T4, &T5, &T6);
1196	fiCCall3(FiWord, T5, (FiWord) "}", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T5)->prog->fun))((T5)->env,(FiWord ) "}",(FiWord) 1L,(FiWord) 0L));
1197	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T7)->prog->fun)
1198	FiClos) T7)((( FiClos) T7)->prog->fun))(((FiClos) T7)->env, &T1, &T2, &T3);
1199	fiCCall1(void, T1, (FiWord) 10L)((((void ()())(T1)->prog->fun))((T1)->env,(FiWord) 10L));
1200	return T0_v;
1201	}
1202
1203	static struct _FiProg tmp10_trace = {
1204	(FiFun) CF10_trace,
1205	0L,
1206	0L,
1207	0L,
1208	0L
1209	};
1210
1211
1212	static FiWord
1213	CF11_domainMake(FiEnv e1, FiWord P0_df)
1214	{
1215	FiSInt T11, T12, T15, T16;
1216	FiPtr T10, T14;
1217	PFmt39 T9, T13;
1218	PFmt38 T8;
1219	PFmt37 T7;
1220	PFmt40 T6;
1221	FiClos T2, T3, T4, T5;
1222	FiEnv e0, T1;
1223	PFmt41 T0;
1224	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1225	T7 = fi0RecNew(struct Fmt37 , CENSUS_Rec)((struct Fmt37 *) fi0RecAlloc(sizeof(struct Fmt37), ( 5)));
1226	T7->X0_f1 = P0_df;
1227	T7->X1_f2 = (FiWord) fiNil((Ptr) 0);
1228	T7->X2_hashcode = (FiWord) 0L;
1229	T7->X3_parents = (FiWord) fiNil((Ptr) 0);
1230	T7->X4_extendees = (FiWord) fiNil((Ptr) 0);
1231	T7->X5_defaults = (FiWord) fiNil((Ptr) 0);
1232	T7->X6_names = (FiWord) fiNil((Ptr) 0);
1233	T7->X7_types = (FiWord) fiNil((Ptr) 0);
1234	T7->X8_exports = (FiWord) fiNil((Ptr) 0);
1235	T7->X9_ngets = (FiWord) 0L;
1236	T7->X10_serial = (FiWord) 0L;
1237	T8 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
1238	T8->X0_posn = (FiWord) 0L;
1239	T9 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
1240	T9->X0_size = (FiWord) 15L;
1241	T9->X1_nvalues = (FiWord) 15L;
1242	T10 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
1243	T12 = 1L;
1244	L1: if (T12 <= 15L) goto L2;
1245	T9->X2_values = (FiWord) T10;
1246	T8->X1_keys = (FiWord) T9;
1247	T13 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
1248	T13->X0_size = (FiWord) 15L;
1249	T13->X1_nvalues = (FiWord) 15L;
1250	T14 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
1251	T16 = 1L;
1252	L3: if (T16 <= 15L) goto L4;
1253	T13->X2_values = (FiWord) T14;
1254	T8->X2_values = (FiWord) T13;
1255	T8->X3_size = (FiWord) 15L;
1256	T7->X11_cache = (FiWord) T8;
1257	T7->X12_nameFn = fiClosMake(e0, C147_new)fiClosMakeFun(e0, (FiProg) (C147_new));
1258	T7->X13_id = (FiWord) 0L;
1259	T1 = fiEnvPush(fiNil, ((FiClos) G_L6ZD3_aldorDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_L6ZD3_aldorDispatchVector )-> env)
1260	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_L6ZD3_aldorDispatchVector )-> env);
1261	T5 = fiClosMake(T1, C64_n)fiClosMakeFun(T1, (FiProg) (C64_n));
1262	T4 = fiClosMake(T1, C65_ag)fiClosMakeFun(T1, (FiProg) (C65_ag));
1263	T3 = fiClosMake(T1, C66_h)fiClosMakeFun(T1, (FiProg) (C66_h));
1264	T2 = fiClosMake(T1, C67_i)fiClosMakeFun(T1, (FiProg) (C67_i));
1265	T6 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
1266	T6->X0_tag = (FiWord) 0L;
1267	T6->X1_namer = T5;
1268	T6->X2_noname = (FiWord) fiNil((Ptr) 0);
1269	T6->X3_getter = T4;
1270	T6->X4_hasher = T3;
1271	T6->X5_inheriter = T2;
1272	if ((FiPtr) T6 == (FiPtr) fiNil((Ptr) 0)) goto L0;
1273	T0 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
1274	T0->X0_dispatcher = (FiWord) T6;
1275	T0->X1_domainRep = (FiWord) T7;
1276	return (FiWord) T0;
1277	L0: fiHalt((FiSInt) 102L);
1278	return (FiWord) 0L;
1279	L4: T15 = T16 - 1L;
1280	((FiWord*) T14)[T15] = (FiWord) fiNil((Ptr) 0);
1281	T16 = T16 + 1L;
1282	goto L3;
1283	L2: T11 = T12 - 1L;
1284	((FiWord*) T10)[T11] = (FiWord) fiNil((Ptr) 0);
1285	T12 = T12 + 1L;
1286	goto L1;
1287	}
1288
1289	static struct _FiProg tmp11_domainMake = {
1290	(FiFun) CF11_domainMake,
1291	0L,
1292	0L,
1293	0L,
1294	0L
1295	};
1296
1297
1298	static FiWord
1299	CF12_domainMakeDispatch(FiEnv e1, FiWord P0_dr)
1300	{
1301	PFmt40 T6;
1302	FiClos T2, T3, T4, T5;
1303	FiEnv T1;
1304	PFmt41 T0;
1305	T1 = fiEnvPush(fiNil, ((FiClos) G_L6ZD3_aldorDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_L6ZD3_aldorDispatchVector )-> env)
1306	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_L6ZD3_aldorDispatchVector )-> env);
1307	T5 = fiClosMake(T1, C64_n)fiClosMakeFun(T1, (FiProg) (C64_n));
1308	T4 = fiClosMake(T1, C65_ag)fiClosMakeFun(T1, (FiProg) (C65_ag));
1309	T3 = fiClosMake(T1, C66_h)fiClosMakeFun(T1, (FiProg) (C66_h));
1310	T2 = fiClosMake(T1, C67_i)fiClosMakeFun(T1, (FiProg) (C67_i));
1311	T6 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
1312	T6->X0_tag = (FiWord) 0L;
1313	T6->X1_namer = T5;
1314	T6->X2_noname = (FiWord) fiNil((Ptr) 0);
1315	T6->X3_getter = T4;
1316	T6->X4_hasher = T3;
1317	T6->X5_inheriter = T2;
1318	if ((FiPtr) T6 == (FiPtr) fiNil((Ptr) 0)) goto L0;
1319	T0 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
1320	T0->X0_dispatcher = (FiWord) T6;
1321	T0->X1_domainRep = P0_dr;
1322	return (FiWord) T0;
1323	L0: fiHalt((FiSInt) 102L);
1324	return (FiWord) 0L;
1325	}
1326
1327	static struct _FiProg tmp12_domainMakeDispatch = {
1328	(FiFun) CF12_domainMakeDispatch,
1329	0L,
1330	0L,
1331	0L,
1332	0L
1333	};
1334
1335
1336	static FiWord
1337	CF13_domainMakeDummy(FiEnv e1)
1338	{
1339	PFmt40 T6;
1340	FiClos T2, T3, T4, T5;
1341	FiEnv T1;
1342	PFmt41 T0;
1343	T1 = fiEnvPush(fiNil, ((FiClos) G_FJ11F_dummyDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_FJ11F_dummyDispatchVector )-> env)
1344	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_FJ11F_dummyDispatchVector )-> env);
1345	T5 = fiClosMake(T1, C76_n)fiClosMakeFun(T1, (FiProg) (C76_n));
1346	T4 = fiClosMake(T1, C77_dummyg)fiClosMakeFun(T1, (FiProg) (C77_dummyg));
1347	T3 = fiClosMake(T1, C78_h)fiClosMakeFun(T1, (FiProg) (C78_h));
1348	T2 = fiClosMake(T1, C79_i)fiClosMakeFun(T1, (FiProg) (C79_i));
1349	T6 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
1350	T6->X0_tag = (FiWord) 0L;
1351	T6->X1_namer = T5;
1352	T6->X2_noname = (FiWord) fiNil((Ptr) 0);
1353	T6->X3_getter = T4;
1354	T6->X4_hasher = T3;
1355	T6->X5_inheriter = T2;
1356	if ((FiPtr) T6 == (FiPtr) fiNil((Ptr) 0)) goto L0;
1357	T0 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
1358	T0->X0_dispatcher = (FiWord) T6;
1359	T0->X1_domainRep = (FiWord) fiNil((Ptr) 0);
1360	return (FiWord) T0;
1361	L0: fiHalt((FiSInt) 102L);
1362	return (FiWord) 0L;
1363	}
1364
1365	static struct _FiProg tmp13_domainMakeDummy = {
1366	(FiFun) CF13_domainMakeDummy,
1367	0L,
1368	0L,
1369	0L,
1370	0L
1371	};
1372
1373
1374	static FiWord
1375	CF14_newAldorDomainRep(FiEnv e1, FiWord P0_df)
1376	{
1377	FiSInt T4, T5, T8, T9;
1378	FiPtr T3, T7;
1379	PFmt39 T2, T6;
1380	PFmt38 T1;
1381	PFmt37 T0;
1382	FiEnv e0;
1383	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1384	T0 = fi0RecNew(struct Fmt37 , CENSUS_Rec)((struct Fmt37 *) fi0RecAlloc(sizeof(struct Fmt37), ( 5)));
1385	T0->X0_f1 = P0_df;
1386	T0->X1_f2 = (FiWord) fiNil((Ptr) 0);
1387	T0->X2_hashcode = (FiWord) 0L;
1388	T0->X3_parents = (FiWord) fiNil((Ptr) 0);
1389	T0->X4_extendees = (FiWord) fiNil((Ptr) 0);
1390	T0->X5_defaults = (FiWord) fiNil((Ptr) 0);
1391	T0->X6_names = (FiWord) fiNil((Ptr) 0);
1392	T0->X7_types = (FiWord) fiNil((Ptr) 0);
1393	T0->X8_exports = (FiWord) fiNil((Ptr) 0);
1394	T0->X9_ngets = (FiWord) 0L;
1395	T0->X10_serial = (FiWord) 0L;
1396	T1 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
1397	T1->X0_posn = (FiWord) 0L;
1398	T2 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
1399	T2->X0_size = (FiWord) 15L;
1400	T2->X1_nvalues = (FiWord) 15L;
1401	T3 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
1402	T5 = 1L;
1403	L0: if (T5 <= 15L) goto L1;
1404	T2->X2_values = (FiWord) T3;
1405	T1->X1_keys = (FiWord) T2;
1406	T6 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
1407	T6->X0_size = (FiWord) 15L;
1408	T6->X1_nvalues = (FiWord) 15L;
1409	T7 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
1410	T9 = 1L;
1411	L2: if (T9 <= 15L) goto L3;
1412	T6->X2_values = (FiWord) T7;
1413	T1->X2_values = (FiWord) T6;
1414	T1->X3_size = (FiWord) 15L;
1415	T0->X11_cache = (FiWord) T1;
1416	T0->X12_nameFn = fiClosMake(e0, C147_new)fiClosMakeFun(e0, (FiProg) (C147_new));
1417	T0->X13_id = (FiWord) 0L;
1418	return (FiWord) T0;
1419	L3: T8 = T9 - 1L;
1420	((FiWord*) T7)[T8] = (FiWord) fiNil((Ptr) 0);
1421	T9 = T9 + 1L;
1422	goto L2;
1423	L1: T4 = T5 - 1L;
1424	((FiWord*) T3)[T4] = (FiWord) fiNil((Ptr) 0);
1425	T5 = T5 + 1L;
1426	goto L0;
1427	}
1428
1429	static struct _FiProg tmp14_newAldorDomainRep = {
1430	(FiFun) CF14_newAldorDomainRep,
1431	0L,
1432	0L,
1433	0L,
1434	0L
1435	};
1436
1437
1438	static FiWord
1439	CF15_extendMakeDispatch(FiEnv e1, FiWord P0_dr)
1440	{
1441	PFmt40 T6;
1442	FiClos T2, T3, T4, T5;
1443	FiEnv T1;
1444	PFmt41 T0;
1445	T1 = fiEnvPush(fiNil, ((FiClos) G_YY5KJ_extendDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_YY5KJ_extendDispatchVector )-> env)
1446	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_YY5KJ_extendDispatchVector )-> env);
1447	T5 = fiClosMake(T1, C70_n)fiClosMakeFun(T1, (FiProg) (C70_n));
1448	T4 = fiClosMake(T1, C71_extendg)fiClosMakeFun(T1, (FiProg) (C71_extendg));
1449	T3 = fiClosMake(T1, C72_h)fiClosMakeFun(T1, (FiProg) (C72_h));
1450	T2 = fiClosMake(T1, C73_i)fiClosMakeFun(T1, (FiProg) (C73_i));
1451	T6 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
1452	T6->X0_tag = (FiWord) 0L;
1453	T6->X1_namer = T5;
1454	T6->X2_noname = (FiWord) fiNil((Ptr) 0);
1455	T6->X3_getter = T4;
1456	T6->X4_hasher = T3;
1457	T6->X5_inheriter = T2;
1458	if ((FiPtr) T6 == (FiPtr) fiNil((Ptr) 0)) goto L0;
1459	T0 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
1460	T0->X0_dispatcher = (FiWord) T6;
1461	T0->X1_domainRep = P0_dr;
1462	return (FiWord) T0;
1463	L0: fiHalt((FiSInt) 102L);
1464	return (FiWord) 0L;
1465	}
1466
1467	static struct _FiProg tmp15_extendMakeDispatch = {
1468	(FiFun) CF15_extendMakeDispatch,
1469	0L,
1470	0L,
1471	0L,
1472	0L
1473	};
1474
1475
1476	static void
1477	CF16_domainAddExports_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_names,
1478	FiWord P2_types, FiWord P3_exports)
1479	{
1480	FiSInt T2, T3, T4;
1481	FiPtr T0, T1;
1482	((PFmt37) P0_d)->X6_names = P1_names;
1483	((PFmt37) P0_d)->X7_types = P2_types;
1484	((PFmt37) P0_d)->X8_exports = P3_exports;
1485	T3 = (FiSInt) ((PFmt39) P1_names)->X1_nvalues;
1486	T2 = 1L;
1487	L0: if (T2 <= T3) goto L1;
1488	return ;
1489	L1: T0 = (FiPtr*) ((PFmt39) ((PFmt37) P0_d)->X6_names)->X2_values;
1490	T4 = T2 - 1L;
1491	((FiWord*) T0)[T4] = (FiWord) 0L;
1492	T1 = (FiPtr*) ((PFmt39) ((PFmt37) P0_d)->X7_types)->X2_values;
1493	((FiWord*) T1)[T4] = (FiWord) 0L;
1494	T2 = T2 + 1L;
1495	goto L0;
1496	}
1497
1498	static struct _FiProg tmp16_domainAddExports_BANG_ = {
1499	(FiFun) CF16_domainAddExports_BANG_,
1500	0L,
1501	0L,
1502	0L,
1503	0L
1504	};
1505
1506
1507	static FiWord
1508	CF17_domainGetExport_BANG_(FiEnv e1, FiWord P0_td, FiWord P1_name,
1509	FiWord P2_type)
1510	{
1511	FiBool T35, T36, T55, T85, T86, T87, T88, T89;
1512	FiWord T1, T2, T5, T6, T13, T17, T19, T20, T28, T30, T31, T38, T46, T50, T51, T54, T56, T57, T61, T71, T72, T76, T77, T78, T79, T80, T84_ll;
1513	FiEnv T0, T52, T82, T83;
1514	PFmt30 T81;
1515	FiClos T4, T7, T8, T9, T10, T11, T12, T14, T15, T16, T39, T40, T41, T42, T43, T44, T45, T47, T48, T49, T53, T58, T59, T60, T62, T63, T64, T65, T66, T67, T68, T69, T70, T73, T74, T75;
1516	PFmt27 T37;
1517	FiSInt T18, T21, T23, T24, T25, T26, T29, T34;
1518	PFmt28 T32, T33;
1519	FiPtr T22, T27;
1520	PFmt29 T3;
1521	PFmt26 l1;
1522	l1 = (PFmt26) fiEnvLevel(e1)((FiEnv) (e1)->level);
1523	T0 = ((FiClos) G_607SQ_domainGetExport1_BANG_)->env;
1524	T6 = l1->X1_box;
1525	T5 = ((PFmt41) P0_td)->X0_dispatcher;
1526	T4 = (FiClos) ((PFmt40) T5)->X3_getter;
1527	T3 = (PFmt29) fiCFun(FiWord, T4)(((FiWord ()())(T4)->prog->fun))((T4)->env, ((PFmt41) P0_td)->
1528	X1_domainRep, P0_td, P1_name, P2_type, T6, (FiWord) 0L);
1529	fiPTR_IS_NIL(T87, FiBool, (FiPtr) T3)((T87) = (FiBool)((FiPtr) ((FiPtr) T3) == (FiPtr) 0));
1530	if (T87) goto L19;
1531	T1 = T3->X0_value;
1532	return T1;
1533	L19: T83 = fiEnvPush(fiNil, T0)fiEnvPushFun((FiPtr) (((Ptr) 0)), T0);
1534	T50 = (FiWord) fiClosMake(T83, C8_PRINT)fiClosMakeFun(T83, (FiProg) (C8_PRINT));
1535	T51 = (FiWord) "Looking in ";
1536	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T50)->prog->fun)
1537	FiClos) T50)((( FiClos) T50)->prog->fun))(((FiClos) T50)->env, &T47, &T48, &T49);
1538	fiCCall3(FiWord, T48, T51, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T48)->prog->fun))((T48)->env,T51, (FiWord) 1L,(FiWord) 0L));
1539	T37 = (PFmt27) l1->X0_theStringTable;
1540	T20 = T37->X1_codes;
1541	T19 = T37->X0_names;
1542	T33 = (PFmt28) T20;
1543	fiPTR_IS_NIL(T35, FiBool, (FiPtr) T20)((T35) = (FiBool)((FiPtr) ((FiPtr) T20) == (FiPtr) 0));
1544	if (T35) goto L0;
1545	T29 = (FiSInt) ((PFmt28) T20)->X0_first;
1546	T34 = T29;
1547	T32 = (PFmt28) T19;
1548	L8: fiPTR_IS_NIL(T36, FiBool, (FiPtr) T32)((T36) = (FiBool)((FiPtr) ((FiPtr) T32) == (FiPtr) 0));
1549	if (T36) goto L0;
1550	T31 = T32->X0_first;
1551	if (T34 == (FiSInt) P1_name) goto L1;
1552	fiPTR_IS_NIL(T88, FiBool, (FiPtr) T33)((T88) = (FiBool)((FiPtr) ((FiPtr) T33) == (FiPtr) 0));
1553	if (T88) goto L6;
1554	T28 = T33->X1_rest;
1555	L7: T33 = (PFmt28) T28;
1556	fiPTR_IS_NIL(T35, FiBool, (FiPtr) T28)((T35) = (FiBool)((FiPtr) ((FiPtr) T28) == (FiPtr) 0));
1557	if (T35) goto L0;
1558	T29 = (FiSInt) ((PFmt28) T28)->X0_first;
1559	T34 = T29;
1560	T30 = T32->X1_rest;
1561	T32 = (PFmt28) T30;
1562	goto L8;
1563	L0: T27 = (FiPtr*) "\?\?: ";
1564	T23 = 1L;
1565	L2: T25 = T23 - 1L;
1566	if (((FiChar*) T27)[T25] == 0L) goto L3;
1567	T23 = T23 + 1L;
1568	goto L2;
1569	L3: T22 = (FiPtr*) (FiPtr) fiArrNew_Char(T25 + 1L);
1570	((FiChar*) T22)[0L] = 0L;
1571	((FiChar*) T22)[T25] = 0L;
1572	T24 = 1L;
1573	L4: if (T24 <= T25) goto L5;
1574	fiFORMAT_SINT(T21, FiSInt, (FiSInt) P1_name, T22, 2L)((T21) = (FiSInt) fiFormatSInt((FiSInt) P1_name,(FiArr)T22,2L ));
1575	T18 = T21 + 1L;
1576	((FiChar*) T22)[T18] = 0L;
1577	T38 = (FiWord) T22;
1578	L9: T46 = ((PFmt41) P0_td)->X0_dispatcher;
1579	T45 = (FiClos) ((PFmt40) T46)->X1_namer;
1580	T52 = fiEnvPush(fi0New(struct Fmt6 , CENSUS_EnvLevel), T0)fiEnvPushFun((FiPtr) (((struct Fmt6 *) fi0Alloc(sizeof(struct Fmt6), (19)))), T0);
1581	T82 = fiEnvPush(fiNil, T0)fiEnvPushFun((FiPtr) (((Ptr) 0)), T0);
1582	T80 = (FiWord) fiClosMake(T82, C8_PRINT)fiClosMakeFun(T82, (FiProg) (C8_PRINT));
1583	T81 = (PFmt30) fiCCall1(FiWord, T45, ((PFmt41) P0_td)->((((FiWord ()())(T45)->prog->fun))((T45)->env,((PFmt41 ) P0_td)-> X1_domainRep))
1584	X1_domainRep)((((FiWord ()())(T45)->prog->fun))((T45)->env,((PFmt41 ) P0_td)-> X1_domainRep));
1585	((PFmt6) fiEnvLevel0(T52)(((FiEnv)(T52))->level))->X0_fn = fiClosMake(T52, C2_fn)fiClosMakeFun(T52, (FiProg) (C2_fn));
1586	T53 = ((PFmt6) fiEnvLevel0(T52)(((FiEnv)(T52))->level))->X0_fn;
1587	if (T81->X0_tag == 0) goto L10;
1588	if (T81->X0_tag == 3L) goto L12;
1589	T55 = T81->X0_tag == 2L;
1590	T54 = T81->X1_p;
1591	if (T55) goto L14;
1592	fiPTR_IS_NIL(T85, FiBool, (FiPtr) T54)((T85) = (FiBool)((FiPtr) ((FiPtr) T54) == (FiPtr) 0));
1593	if (T85) goto L15;
1594	T71 = ((PFmt28) T54)->X0_first;
1595	fiCCall2(FiWord, T53, T80, T71)((((FiWord ()())(T53)->prog->fun))((T53)->env,T80, T71));
1596	T72 = ((PFmt28) T54)->X1_rest;
1597	T54 = T72;
1598	L14: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
1599	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T65, &T66, &T67);
1600	fiCCall3(FiWord, T66, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T66)->prog->fun))((T66)->env,(FiWord ) "(",(FiWord) 1L,(FiWord) 0L));
1601	T84_ll = T54;
1602	L16: fiPTR_IS_NIL(T86, FiBool, (FiPtr) T84_ll)((T86) = (FiBool)((FiPtr) ((FiPtr) T84_ll) == (FiPtr) 0));
1603	if (T86) goto L17;
1604	T79 = ((PFmt28) T84_ll)->X1_rest;
1605	T77 = ((PFmt28) T84_ll)->X0_first;
1606	fiCCall2(FiWord, T53, T80, T77)((((FiWord ()())(T53)->prog->fun))((T53)->env,T80, T77));
1607	T78 = ((PFmt28) T84_ll)->X1_rest;
1608	fiPTR_IS_NIL(T89, FiBool, (FiPtr) T78)((T89) = (FiBool)((FiPtr) ((FiPtr) T78) == (FiPtr) 0));
1609	if (T89) goto L18;
1610	T61 = (FiWord) ", ";
1611	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
1612	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T58, &T59, &T60);
1613	fiCCall3(FiWord, T59, T61, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T59)->prog->fun))((T59)->env,T61, (FiWord) 1L,(FiWord) 0L));
1614	L18: T84_ll = T79;
1615	goto L16;
1616	L17: T76 = (FiWord) ")";
1617	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
1618	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T73, &T74, &T75);
1619	fiCCall3(FiWord, T74, T76, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T74)->prog->fun))((T74)->env,T76, (FiWord) 1L,(FiWord) 0L));
1620	T57 = T80;
1621	L13: T56 = T57;
1622	L11: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
1623	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T42, &T43, &T44);
1624	fiCCall3(FiWord, T43, (FiWord) " for ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T43)->prog->fun))((T43)->env,(FiWord ) " for ",(FiWord) 1L,(FiWord) 0L));
1625	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
1626	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T39, &T40, &T41);
1627	fiCCall3(FiWord, T40, T38, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T40)->prog->fun))((T40)->env,T38, (FiWord) 1L,(FiWord) 0L));
1628	T13 = (FiWord) " with code ";
1629	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
1630	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T10, &T11, &T12);
1631	fiCCall3(FiWord, T11, T13, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T11)->prog->fun))((T11)->env,T13, (FiWord) 1L,(FiWord) 0L));
1632	T17 = formatSInt((FiSInt) P2_type);
1633	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
1634	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T14, &T15, &T16);
1635	fiCCall3(FiWord, T15, T17, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T15)->prog->fun))((T15)->env,T17, (FiWord) 1L,(FiWord) 0L));
1636	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
1637	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T7, &T8, &T9);
1638	fiCCall1(void, T7, (FiWord) 10L)((((void ()())(T7)->prog->fun))((T7)->env,(FiWord) 10L));
1639	T2 = (FiWord) "Export not found";
1640	fiRaiseException(T2);
1641	fiHalt((FiSInt) 102L);
1642	return (FiWord) 0L;
1643	L15: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
1644	fputc((FiWord) 10L, stdoutFile());
1645	fiHalt((FiSInt) 0L);
1646	return (FiWord) 0L;
1647	L12: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
1648	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T62, &T63, &T64);
1649	fiCCall3(FiWord, T63, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T63)->prog->fun))((T63)->env,(FiWord ) "\?\?",(FiWord) 1L,(FiWord) 0L));
1650	T57 = T80;
1651	goto L13;
1652	L10: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
1653	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T68, &T69, &T70);
1654	fiCCall3(FiWord, T69, T81->X1_p, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T69)->prog->fun))((T69)->env,T81-> X1_p,(FiWord) 1L,(FiWord) 0L));
1655	T56 = T80;
1656	goto L11;
1657	L5: T26 = T24 - 1L;
1658	((FiChar) T22)[T26] = ((FiChar) T27)[T26];
1659	T24 = T24 + 1L;
1660	goto L4;
1661	L6: T28 = (FiWord) T33;
1662	goto L7;
1663	L1: T38 = T31;
1664	goto L9;
1665	}
1666
1667	static struct _FiProg tmp17_domainGetExport_BANG_ = {
1668	(FiFun) CF17_domainGetExport_BANG_,
1669	0L,
1670	0L,
1671	0L,
1672	0L
1673	};
1674
1675
1676	static FiWord
1677	CF18_domainGetExport1_BANG_(FiEnv e1, FiWord P0_td, FiWord P1_name,
1678	FiWord P2_type)
1679	{
1680	FiBool T34, T35, T54, T84, T85, T86, T87, T88;
1681	FiWord T0, T1, T4, T5, T12, T16, T18, T19, T27, T29, T30, T37, T45, T49, T50, T53, T55, T56, T60, T70, T71, T75, T76, T77, T78, T79, T83_ll;
1682	FiEnv T51, T81, T82;
1683	PFmt30 T80;
1684	FiClos T3, T6, T7, T8, T9, T10, T11, T13, T14, T15, T38, T39, T40, T41, T42, T43, T44, T46, T47, T48, T52, T57, T58, T59, T61, T62, T63, T64, T65, T66, T67, T68, T69, T72, T73, T74;
1685	PFmt27 T36;
1686	FiSInt T17, T20, T22, T23, T24, T25, T28, T33;
1687	PFmt28 T31, T32;
1688	FiPtr T21, T26;
1689	PFmt29 T2;
1690	PFmt26 l1;
1691	l1 = (PFmt26) fiEnvLevel(e1)((FiEnv) (e1)->level);
1692	T5 = l1->X1_box;
1693	T4 = ((PFmt41) P0_td)->X0_dispatcher;
1694	T3 = (FiClos) ((PFmt40) T4)->X3_getter;
1695	T2 = (PFmt29) fiCFun(FiWord, T3)(((FiWord ()())(T3)->prog->fun))((T3)->env, ((PFmt41) P0_td)->
1696	X1_domainRep, P0_td, P1_name, P2_type, T5, (FiWord) 0L);
1697	fiPTR_IS_NIL(T86, FiBool, (FiPtr) T2)((T86) = (FiBool)((FiPtr) ((FiPtr) T2) == (FiPtr) 0));
1698	if (T86) goto L19;
1699	T0 = T2->X0_value;
1700	return T0;
1701	L19: T82 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1702	T49 = (FiWord) fiClosMake(T82, C8_PRINT)fiClosMakeFun(T82, (FiProg) (C8_PRINT));
1703	T50 = (FiWord) "Looking in ";
1704	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T49)->prog->fun)
1705	FiClos) T49)((( FiClos) T49)->prog->fun))(((FiClos) T49)->env, &T46, &T47, &T48);
1706	fiCCall3(FiWord, T47, T50, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T47)->prog->fun))((T47)->env,T50, (FiWord) 1L,(FiWord) 0L));
1707	T36 = (PFmt27) l1->X0_theStringTable;
1708	T19 = T36->X1_codes;
1709	T18 = T36->X0_names;
1710	T32 = (PFmt28) T19;
1711	fiPTR_IS_NIL(T34, FiBool, (FiPtr) T19)((T34) = (FiBool)((FiPtr) ((FiPtr) T19) == (FiPtr) 0));
1712	if (T34) goto L0;
1713	T28 = (FiSInt) ((PFmt28) T19)->X0_first;
1714	T33 = T28;
1715	T31 = (PFmt28) T18;
1716	L8: fiPTR_IS_NIL(T35, FiBool, (FiPtr) T31)((T35) = (FiBool)((FiPtr) ((FiPtr) T31) == (FiPtr) 0));
1717	if (T35) goto L0;
1718	T30 = T31->X0_first;
1719	if (T33 == (FiSInt) P1_name) goto L1;
1720	fiPTR_IS_NIL(T87, FiBool, (FiPtr) T32)((T87) = (FiBool)((FiPtr) ((FiPtr) T32) == (FiPtr) 0));
1721	if (T87) goto L6;
1722	T27 = T32->X1_rest;
1723	L7: T32 = (PFmt28) T27;
1724	fiPTR_IS_NIL(T34, FiBool, (FiPtr) T27)((T34) = (FiBool)((FiPtr) ((FiPtr) T27) == (FiPtr) 0));
1725	if (T34) goto L0;
1726	T28 = (FiSInt) ((PFmt28) T27)->X0_first;
1727	T33 = T28;
1728	T29 = T31->X1_rest;
1729	T31 = (PFmt28) T29;
1730	goto L8;
1731	L0: T26 = (FiPtr*) "\?\?: ";
1732	T22 = 1L;
1733	L2: T24 = T22 - 1L;
1734	if (((FiChar*) T26)[T24] == 0L) goto L3;
1735	T22 = T22 + 1L;
1736	goto L2;
1737	L3: T21 = (FiPtr*) (FiPtr) fiArrNew_Char(T24 + 1L);
1738	((FiChar*) T21)[0L] = 0L;
1739	((FiChar*) T21)[T24] = 0L;
1740	T23 = 1L;
1741	L4: if (T23 <= T24) goto L5;
1742	fiFORMAT_SINT(T20, FiSInt, (FiSInt) P1_name, T21, 2L)((T20) = (FiSInt) fiFormatSInt((FiSInt) P1_name,(FiArr)T21,2L ));
1743	T17 = T20 + 1L;
1744	((FiChar*) T21)[T17] = 0L;
1745	T37 = (FiWord) T21;
1746	L9: T45 = ((PFmt41) P0_td)->X0_dispatcher;
1747	T44 = (FiClos) ((PFmt40) T45)->X1_namer;
1748	T51 = fiEnvPush(fi0New(struct Fmt6 , CENSUS_EnvLevel), e1)fiEnvPushFun((FiPtr) (((struct Fmt6 *) fi0Alloc(sizeof(struct Fmt6), (19)))), e1);
1749	T81 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1750	T79 = (FiWord) fiClosMake(T81, C8_PRINT)fiClosMakeFun(T81, (FiProg) (C8_PRINT));
1751	T80 = (PFmt30) fiCCall1(FiWord, T44, ((PFmt41) P0_td)->((((FiWord ()())(T44)->prog->fun))((T44)->env,((PFmt41 ) P0_td)-> X1_domainRep))
1752	X1_domainRep)((((FiWord ()())(T44)->prog->fun))((T44)->env,((PFmt41 ) P0_td)-> X1_domainRep));
1753	((PFmt6) fiEnvLevel0(T51)(((FiEnv)(T51))->level))->X0_fn = fiClosMake(T51, C2_fn)fiClosMakeFun(T51, (FiProg) (C2_fn));
1754	T52 = ((PFmt6) fiEnvLevel0(T51)(((FiEnv)(T51))->level))->X0_fn;
1755	if (T80->X0_tag == 0) goto L10;
1756	if (T80->X0_tag == 3L) goto L12;
1757	T54 = T80->X0_tag == 2L;
1758	T53 = T80->X1_p;
1759	if (T54) goto L14;
1760	fiPTR_IS_NIL(T84, FiBool, (FiPtr) T53)((T84) = (FiBool)((FiPtr) ((FiPtr) T53) == (FiPtr) 0));
1761	if (T84) goto L15;
1762	T70 = ((PFmt28) T53)->X0_first;
1763	fiCCall2(FiWord, T52, T79, T70)((((FiWord ()())(T52)->prog->fun))((T52)->env,T79, T70));
1764	T71 = ((PFmt28) T53)->X1_rest;
1765	T53 = T71;
1766	L14: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T79)->prog->fun)
1767	FiClos) T79)((( FiClos) T79)->prog->fun))(((FiClos) T79)->env, &T64, &T65, &T66);
1768	fiCCall3(FiWord, T65, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T65)->prog->fun))((T65)->env,(FiWord ) "(",(FiWord) 1L,(FiWord) 0L));
1769	T83_ll = T53;
1770	L16: fiPTR_IS_NIL(T85, FiBool, (FiPtr) T83_ll)((T85) = (FiBool)((FiPtr) ((FiPtr) T83_ll) == (FiPtr) 0));
1771	if (T85) goto L17;
1772	T78 = ((PFmt28) T83_ll)->X1_rest;
1773	T76 = ((PFmt28) T83_ll)->X0_first;
1774	fiCCall2(FiWord, T52, T79, T76)((((FiWord ()())(T52)->prog->fun))((T52)->env,T79, T76));
1775	T77 = ((PFmt28) T83_ll)->X1_rest;
1776	fiPTR_IS_NIL(T88, FiBool, (FiPtr) T77)((T88) = (FiBool)((FiPtr) ((FiPtr) T77) == (FiPtr) 0));
1777	if (T88) goto L18;
1778	T60 = (FiWord) ", ";
1779	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T79)->prog->fun)
1780	FiClos) T79)((( FiClos) T79)->prog->fun))(((FiClos) T79)->env, &T57, &T58, &T59);
1781	fiCCall3(FiWord, T58, T60, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T58)->prog->fun))((T58)->env,T60, (FiWord) 1L,(FiWord) 0L));
1782	L18: T83_ll = T78;
1783	goto L16;
1784	L17: T75 = (FiWord) ")";
1785	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T79)->prog->fun)
1786	FiClos) T79)((( FiClos) T79)->prog->fun))(((FiClos) T79)->env, &T72, &T73, &T74);
1787	fiCCall3(FiWord, T73, T75, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T73)->prog->fun))((T73)->env,T75, (FiWord) 1L,(FiWord) 0L));
1788	T56 = T79;
1789	L13: T55 = T56;
1790	L11: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T55)->prog->fun)
1791	FiClos) T55)((( FiClos) T55)->prog->fun))(((FiClos) T55)->env, &T41, &T42, &T43);
1792	fiCCall3(FiWord, T42, (FiWord) " for ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T42)->prog->fun))((T42)->env,(FiWord ) " for ",(FiWord) 1L,(FiWord) 0L));
1793	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T55)->prog->fun)
1794	FiClos) T55)((( FiClos) T55)->prog->fun))(((FiClos) T55)->env, &T38, &T39, &T40);
1795	fiCCall3(FiWord, T39, T37, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T39)->prog->fun))((T39)->env,T37, (FiWord) 1L,(FiWord) 0L));
1796	T12 = (FiWord) " with code ";
1797	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T55)->prog->fun)
1798	FiClos) T55)((( FiClos) T55)->prog->fun))(((FiClos) T55)->env, &T9, &T10, &T11);
1799	fiCCall3(FiWord, T10, T12, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T10)->prog->fun))((T10)->env,T12, (FiWord) 1L,(FiWord) 0L));
1800	T16 = formatSInt((FiSInt) P2_type);
1801	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T55)->prog->fun)
1802	FiClos) T55)((( FiClos) T55)->prog->fun))(((FiClos) T55)->env, &T13, &T14, &T15);
1803	fiCCall3(FiWord, T14, T16, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T14)->prog->fun))((T14)->env,T16, (FiWord) 1L,(FiWord) 0L));
1804	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T55)->prog->fun)
1805	FiClos) T55)((( FiClos) T55)->prog->fun))(((FiClos) T55)->env, &T6, &T7, &T8);
1806	fiCCall1(void, T6, (FiWord) 10L)((((void ()())(T6)->prog->fun))((T6)->env,(FiWord) 10L));
1807	T1 = (FiWord) "Export not found";
1808	fiRaiseException(T1);
1809	fiHalt((FiSInt) 102L);
1810	return (FiWord) 0L;
1811	L15: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
1812	fputc((FiWord) 10L, stdoutFile());
1813	fiHalt((FiSInt) 0L);
1814	return (FiWord) 0L;
1815	L12: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T79)->prog->fun)
1816	FiClos) T79)((( FiClos) T79)->prog->fun))(((FiClos) T79)->env, &T61, &T62, &T63);
1817	fiCCall3(FiWord, T62, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T62)->prog->fun))((T62)->env,(FiWord ) "\?\?",(FiWord) 1L,(FiWord) 0L));
1818	T56 = T79;
1819	goto L13;
1820	L10: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T79)->prog->fun)
1821	FiClos) T79)((( FiClos) T79)->prog->fun))(((FiClos) T79)->env, &T67, &T68, &T69);
1822	fiCCall3(FiWord, T68, T80->X1_p, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T68)->prog->fun))((T68)->env,T80-> X1_p,(FiWord) 1L,(FiWord) 0L));
1823	T55 = T79;
1824	goto L11;
1825	L5: T25 = T23 - 1L;
1826	((FiChar) T21)[T25] = ((FiChar) T26)[T25];
1827	T23 = T23 + 1L;
1828	goto L4;
1829	L6: T27 = (FiWord) T32;
1830	goto L7;
1831	L1: T37 = T30;
1832	goto L9;
1833	}
1834
1835	static struct _FiProg tmp18_domainGetExport1_BANG_ = {
1836	(FiFun) CF18_domainGetExport1_BANG_,
1837	0L,
1838	0L,
1839	0L,
1840	0L
1841	};
1842
1843
1844	static void
1845	CF19_failmsg(FiEnv e1, FiWord P0_td, FiWord P1_name, FiWord P2_type)
1846	{
1847	FiBool T28, T29, T48, T78, T79, T80, T81;
1848	FiWord T6, T10, T12, T13, T21, T23, T24, T31, T39, T43, T44, T47, T49, T50, T54, T64, T65, T69, T70, T71, T72, T73, T77_ll;
1849	FiEnv T45, T75, T76;
1850	PFmt30 T74;
1851	FiClos T0, T1, T2, T3, T4, T5, T7, T8, T9, T32, T33, T34, T35, T36, T37, T38, T40, T41, T42, T46, T51, T52, T53, T55, T56, T57, T58, T59, T60, T61, T62, T63, T66, T67, T68;
1852	PFmt27 T30;
1853	FiSInt T11, T14, T16, T17, T18, T19, T22, T27;
1854	PFmt28 T25, T26;
1855	FiPtr T15, T20;
1856	PFmt26 l1;
1857	l1 = (PFmt26) fiEnvLevel(e1)((FiEnv) (e1)->level);
1858	T76 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1859	T43 = (FiWord) fiClosMake(T76, C8_PRINT)fiClosMakeFun(T76, (FiProg) (C8_PRINT));
1860	T44 = (FiWord) "Looking in ";
1861	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T43)->prog->fun)
1862	FiClos) T43)((( FiClos) T43)->prog->fun))(((FiClos) T43)->env, &T40, &T41, &T42);
1863	fiCCall3(FiWord, T41, T44, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T41)->prog->fun))((T41)->env,T44, (FiWord) 1L,(FiWord) 0L));
1864	T30 = (PFmt27) l1->X0_theStringTable;
1865	T13 = T30->X1_codes;
1866	T12 = T30->X0_names;
1867	T26 = (PFmt28) T13;
1868	fiPTR_IS_NIL(T28, FiBool, (FiPtr) T13)((T28) = (FiBool)((FiPtr) ((FiPtr) T13) == (FiPtr) 0));
1869	if (T28) goto L0;
1870	T22 = (FiSInt) ((PFmt28) T13)->X0_first;
1871	T27 = T22;
1872	T25 = (PFmt28) T12;
1873	L8: fiPTR_IS_NIL(T29, FiBool, (FiPtr) T25)((T29) = (FiBool)((FiPtr) ((FiPtr) T25) == (FiPtr) 0));
1874	if (T29) goto L0;
1875	T24 = T25->X0_first;
1876	if (T27 == (FiSInt) P1_name) goto L1;
1877	fiPTR_IS_NIL(T80, FiBool, (FiPtr) T26)((T80) = (FiBool)((FiPtr) ((FiPtr) T26) == (FiPtr) 0));
1878	if (T80) goto L6;
1879	T21 = T26->X1_rest;
1880	L7: T26 = (PFmt28) T21;
1881	fiPTR_IS_NIL(T28, FiBool, (FiPtr) T21)((T28) = (FiBool)((FiPtr) ((FiPtr) T21) == (FiPtr) 0));
1882	if (T28) goto L0;
1883	T22 = (FiSInt) ((PFmt28) T21)->X0_first;
1884	T27 = T22;
1885	T23 = T25->X1_rest;
1886	T25 = (PFmt28) T23;
1887	goto L8;
1888	L0: T20 = (FiPtr*) "\?\?: ";
1889	T16 = 1L;
1890	L2: T18 = T16 - 1L;
1891	if (((FiChar*) T20)[T18] == 0L) goto L3;
1892	T16 = T16 + 1L;
1893	goto L2;
1894	L3: T15 = (FiPtr*) (FiPtr) fiArrNew_Char(T18 + 1L);
1895	((FiChar*) T15)[0L] = 0L;
1896	((FiChar*) T15)[T18] = 0L;
1897	T17 = 1L;
1898	L4: if (T17 <= T18) goto L5;
1899	fiFORMAT_SINT(T14, FiSInt, (FiSInt) P1_name, T15, 2L)((T14) = (FiSInt) fiFormatSInt((FiSInt) P1_name,(FiArr)T15,2L ));
1900	T11 = T14 + 1L;
1901	((FiChar*) T15)[T11] = 0L;
1902	T31 = (FiWord) T15;
1903	L9: T39 = ((PFmt41) P0_td)->X0_dispatcher;
1904	T38 = (FiClos) ((PFmt40) T39)->X1_namer;
1905	T45 = fiEnvPush(fi0New(struct Fmt6 , CENSUS_EnvLevel), e1)fiEnvPushFun((FiPtr) (((struct Fmt6 *) fi0Alloc(sizeof(struct Fmt6), (19)))), e1);
1906	T75 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1907	T73 = (FiWord) fiClosMake(T75, C8_PRINT)fiClosMakeFun(T75, (FiProg) (C8_PRINT));
1908	T74 = (PFmt30) fiCCall1(FiWord, T38, ((PFmt41) P0_td)->((((FiWord ()())(T38)->prog->fun))((T38)->env,((PFmt41 ) P0_td)-> X1_domainRep))
1909	X1_domainRep)((((FiWord ()())(T38)->prog->fun))((T38)->env,((PFmt41 ) P0_td)-> X1_domainRep));
1910	((PFmt6) fiEnvLevel0(T45)(((FiEnv)(T45))->level))->X0_fn = fiClosMake(T45, C2_fn)fiClosMakeFun(T45, (FiProg) (C2_fn));
1911	T46 = ((PFmt6) fiEnvLevel0(T45)(((FiEnv)(T45))->level))->X0_fn;
1912	if (T74->X0_tag == 0) goto L10;
1913	if (T74->X0_tag == 3L) goto L12;
1914	T48 = T74->X0_tag == 2L;
1915	T47 = T74->X1_p;
1916	if (T48) goto L14;
1917	fiPTR_IS_NIL(T78, FiBool, (FiPtr) T47)((T78) = (FiBool)((FiPtr) ((FiPtr) T47) == (FiPtr) 0));
1918	if (T78) goto L15;
1919	T64 = ((PFmt28) T47)->X0_first;
1920	fiCCall2(FiWord, T46, T73, T64)((((FiWord ()())(T46)->prog->fun))((T46)->env,T73, T64));
1921	T65 = ((PFmt28) T47)->X1_rest;
1922	T47 = T65;
1923	L14: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T73)->prog->fun)
1924	FiClos) T73)((( FiClos) T73)->prog->fun))(((FiClos) T73)->env, &T58, &T59, &T60);
1925	fiCCall3(FiWord, T59, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T59)->prog->fun))((T59)->env,(FiWord ) "(",(FiWord) 1L,(FiWord) 0L));
1926	T77_ll = T47;
1927	L16: fiPTR_IS_NIL(T79, FiBool, (FiPtr) T77_ll)((T79) = (FiBool)((FiPtr) ((FiPtr) T77_ll) == (FiPtr) 0));
1928	if (T79) goto L17;
1929	T72 = ((PFmt28) T77_ll)->X1_rest;
1930	T70 = ((PFmt28) T77_ll)->X0_first;
1931	fiCCall2(FiWord, T46, T73, T70)((((FiWord ()())(T46)->prog->fun))((T46)->env,T73, T70));
1932	T71 = ((PFmt28) T77_ll)->X1_rest;
1933	fiPTR_IS_NIL(T81, FiBool, (FiPtr) T71)((T81) = (FiBool)((FiPtr) ((FiPtr) T71) == (FiPtr) 0));
1934	if (T81) goto L18;
1935	T54 = (FiWord) ", ";
1936	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T73)->prog->fun)
1937	FiClos) T73)((( FiClos) T73)->prog->fun))(((FiClos) T73)->env, &T51, &T52, &T53);
1938	fiCCall3(FiWord, T52, T54, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T52)->prog->fun))((T52)->env,T54, (FiWord) 1L,(FiWord) 0L));
1939	L18: T77_ll = T72;
1940	goto L16;
1941	L17: T69 = (FiWord) ")";
1942	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T73)->prog->fun)
1943	FiClos) T73)((( FiClos) T73)->prog->fun))(((FiClos) T73)->env, &T66, &T67, &T68);
1944	fiCCall3(FiWord, T67, T69, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T67)->prog->fun))((T67)->env,T69, (FiWord) 1L,(FiWord) 0L));
1945	T50 = T73;
1946	L13: T49 = T50;
1947	L11: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T49)->prog->fun)
1948	FiClos) T49)((( FiClos) T49)->prog->fun))(((FiClos) T49)->env, &T35, &T36, &T37);
1949	fiCCall3(FiWord, T36, (FiWord) " for ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T36)->prog->fun))((T36)->env,(FiWord ) " for ",(FiWord) 1L,(FiWord) 0L));
1950	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T49)->prog->fun)
1951	FiClos) T49)((( FiClos) T49)->prog->fun))(((FiClos) T49)->env, &T32, &T33, &T34);
1952	fiCCall3(FiWord, T33, T31, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T33)->prog->fun))((T33)->env,T31, (FiWord) 1L,(FiWord) 0L));
1953	T6 = (FiWord) " with code ";
1954	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T49)->prog->fun)
1955	FiClos) T49)((( FiClos) T49)->prog->fun))(((FiClos) T49)->env, &T3, &T4, &T5);
1956	fiCCall3(FiWord, T4, T6, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T4)->prog->fun))((T4)->env,T6,(FiWord ) 1L,(FiWord) 0L));
1957	T10 = formatSInt((FiSInt) P2_type);
1958	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T49)->prog->fun)
1959	FiClos) T49)((( FiClos) T49)->prog->fun))(((FiClos) T49)->env, &T7, &T8, &T9);
1960	fiCCall3(FiWord, T8, T10, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T8)->prog->fun))((T8)->env,T10,(FiWord ) 1L,(FiWord) 0L));
1961	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T49)->prog->fun)
1962	FiClos) T49)((( FiClos) T49)->prog->fun))(((FiClos) T49)->env, &T0, &T1, &T2);
1963	fiCCall1(void, T0, (FiWord) 10L)((((void ()())(T0)->prog->fun))((T0)->env,(FiWord) 10L));
1964	return ;
1965	L15: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
1966	fputc((FiWord) 10L, stdoutFile());
1967	fiHalt((FiSInt) 0L);
1968	return ;
1969	L12: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T73)->prog->fun)
1970	FiClos) T73)((( FiClos) T73)->prog->fun))(((FiClos) T73)->env, &T55, &T56, &T57);
1971	fiCCall3(FiWord, T56, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T56)->prog->fun))((T56)->env,(FiWord ) "\?\?",(FiWord) 1L,(FiWord) 0L));
1972	T50 = T73;
1973	goto L13;
1974	L10: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T73)->prog->fun)
1975	FiClos) T73)((( FiClos) T73)->prog->fun))(((FiClos) T73)->env, &T61, &T62, &T63);
1976	fiCCall3(FiWord, T62, T74->X1_p, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T62)->prog->fun))((T62)->env,T74-> X1_p,(FiWord) 1L,(FiWord) 0L));
1977	T49 = T73;
1978	goto L11;
1979	L5: T19 = T17 - 1L;
1980	((FiChar) T15)[T19] = ((FiChar) T20)[T19];
1981	T17 = T17 + 1L;
1982	goto L4;
1983	L6: T21 = (FiWord) T26;
1984	goto L7;
1985	L1: T31 = T24;
1986	goto L9;
1987	}
1988
1989	static struct _FiProg tmp19_failmsg = {
1990	(FiFun) CF19_failmsg,
1991	0L,
1992	0L,
1993	0L,
1994	0L
1995	};
1996
1997
1998	static FiWord
1999	CF20_domainTestExport_BANG_(FiEnv e1, FiWord P0_td, FiWord P1_name,
2000	FiWord P2_type)
2001	{
2002	FiBool T4;
2003	FiWord T1, T3;
2004	FiClos T2;
2005	PFmt29 T0;
2006	T0 = fi0RecNew(struct Fmt29 , CENSUS_Rec)((struct Fmt29 *) fi0RecAlloc(sizeof(struct Fmt29), ( 5)));
2007	T0->X0_value = (FiWord) fiNil((Ptr) 0);
2008	T3 = ((PFmt41) P0_td)->X0_dispatcher;
2009	T2 = (FiClos) ((PFmt40) T3)->X3_getter;
2010	T1 = fiCFun(FiWord, T2)(((FiWord ()())(T2)->prog->fun))((T2)->env, ((PFmt41) P0_td)->
2011	X1_domainRep, P0_td, P1_name, P2_type, (FiWord) T0, (FiWord)
2012	0L);
2013	fiPTR_IS_NIL(T4, FiBool, (FiPtr) T1)((T4) = (FiBool)((FiPtr) ((FiPtr) T1) == (FiPtr) 0));
2014	return (FiWord) !T4;
2015	}
2016
2017	static struct _FiProg tmp20_domainTestExport_BANG_ = {
2018	(FiFun) CF20_domainTestExport_BANG_,
2019	0L,
2020	0L,
2021	0L,
2022	0L
2023	};
2024
2025
2026	static void
2027	CF21_domainAddDefaults_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_defaults,
2028	FiWord P2_d2)
2029	{
2030	FiWord T1;
2031	FiClos T0;
2032	T1 = ((PFmt42) P1_defaults)->X0_cdv;
2033	T0 = (FiClos) ((PFmt43) T1)->X5_builder;
2034	((PFmt37) P0_d)->X5_defaults = fiCCall2(FiWord, T0, ((PFmt42)((((FiWord ()())(T0)->prog->fun))((T0)->env,((PFmt42 ) P1_defaults)->X1_catRep,P2_d2))
2035	P1_defaults)->X1_catRep, P2_d2)((((FiWord ()())(T0)->prog->fun))((T0)->env,((PFmt42 ) P1_defaults)->X1_catRep,P2_d2));
2036	return ;
2037	}
2038
2039	static struct _FiProg tmp21_domainAddDefaults_BANG_ = {
2040	(FiFun) CF21_domainAddDefaults_BANG_,
2041	0L,
2042	0L,
2043	0L,
2044	0L
2045	};
2046
2047
2048	static void
2049	CF22_domainAddParents_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_parents,
2050	FiWord P2_dAsDom)
2051	{
2052	FiSInt T5, T6, T7;
2053	FiWord T1, T4;
2054	FiPtr *T3;
2055	PFmt41 T2;
2056	FiClos T0;
2057	T6 = (FiSInt) ((PFmt39) P1_parents)->X1_nvalues;
2058	T5 = 1L;
2059	L0: if (T5 <= T6) goto L1;
2060	((PFmt37) P0_d)->X3_parents = P1_parents;
2061	return ;
2062	L1: T7 = T5 - 1L;
2063	T2 = (PFmt41) ((FiWord*) ((PFmt39) P1_parents)->X2_values)[T7];
2064	T1 = T2->X0_dispatcher;
2065	T0 = (FiClos) ((PFmt40) T1)->X5_inheriter;
2066	T4 = fiCCall2(FiWord, T0, T2->X1_domainRep, P2_dAsDom)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_domainRep,P2_dAsDom));
2067	T3 = (FiPtr*) ((PFmt39) P1_parents)->X2_values;
2068	((FiWord*) T3)[T7] = T4;
2069	T5 = T5 + 1L;
2070	goto L0;
2071	}
2072
2073	static struct _FiProg tmp22_domainAddParents_BANG_ = {
2074	(FiFun) CF22_domainAddParents_BANG_,
2075	0L,
2076	0L,
2077	0L,
2078	0L
2079	};
2080
2081
2082	static void
2083	CF23_domainAddHash_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_hash)
2084	{
2085	((PFmt37) P0_d)->X2_hashcode = P1_hash;
2086	return ;
2087	}
2088
2089	static struct _FiProg tmp23_domainAddHash_BANG_ = {
2090	(FiFun) CF23_domainAddHash_BANG_,
2091	0L,
2092	0L,
2093	0L,
2094	0L
2095	};
2096
2097
2098	static void
2099	CF24_domainAddNameFn_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_namefn)
2100	{
2101	((PFmt37) P0_d)->X12_nameFn = (FiClos) P1_namefn;
2102	return ;
2103	}
2104
2105	static struct _FiProg tmp24_domainAddNameFn_BANG_ = {
2106	(FiFun) CF24_domainAddNameFn_BANG_,
2107	0L,
2108	0L,
2109	0L,
2110	0L
2111	};
2112
2113
2114	static FiWord
2115	CF25_domainHash_BANG_(FiEnv e1, FiWord P0_td)
2116	{
2117	FiWord T1;
2118	FiClos T0;
2119	T1 = ((PFmt41) P0_td)->X0_dispatcher;
2120	T0 = (FiClos) ((PFmt40) T1)->X4_hasher;
2121	return fiCCall1(FiWord, T0, ((PFmt41) P0_td)->X1_domainRep)((((FiWord ()())(T0)->prog->fun))((T0)->env,((PFmt41 ) P0_td)->X1_domainRep));
2122	}
2123
2124	static struct _FiProg tmp25_domainHash_BANG_ = {
2125	(FiFun) CF25_domainHash_BANG_,
2126	0L,
2127	0L,
2128	0L,
2129	0L
2130	};
2131
2132
2133	static FiWord
2134	CF26_domainName(FiEnv e1, FiWord P0_td)
2135	{
2136	FiWord T1;
2137	FiClos T0;
2138	T1 = ((PFmt41) P0_td)->X0_dispatcher;
2139	T0 = (FiClos) ((PFmt40) T1)->X1_namer;
2140	return fiCCall1(FiWord, T0, ((PFmt41) P0_td)->X1_domainRep)((((FiWord ()())(T0)->prog->fun))((T0)->env,((PFmt41 ) P0_td)->X1_domainRep));
2141	}
2142
2143	static struct _FiProg tmp26_domainName = {
2144	(FiFun) CF26_domainName,
2145	0L,
2146	0L,
2147	0L,
2148	0L
2149	};
2150
2151
2152	static void
2153	CF27_domainFill_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_v)
2154	{
2155	FiWord T0;
2156	T0 = ((PFmt41) P1_v)->X0_dispatcher;
2157	if ((FiPtr) T0 == (FiPtr) fiNil((Ptr) 0)) goto L0;
2158	((PFmt41) P0_d)->X0_dispatcher = ((PFmt41) P1_v)->
2159	X0_dispatcher;
2160	((PFmt41) P0_d)->X1_domainRep = ((PFmt41) P1_v)->X1_domainRep;
2161	return ;
2162	L0: fiHalt((FiSInt) 102L);
2163	return ;
2164	}
2165
2166	static struct _FiProg tmp27_domainFill_BANG_ = {
2167	(FiFun) CF27_domainFill_BANG_,
2168	0L,
2169	0L,
2170	0L,
2171	0L
2172	};
2173
2174
2175	static FiClos
2176	CF28_rtDelayedInit_BANG_(FiEnv e1, FiWord P0_fn, FiWord P1_n)
2177	{
2178	PFmt12 l0;
2179	FiEnv e0;
2180	l0 = fi0New(struct Fmt12 , CENSUS_EnvLevel)((struct Fmt12 *) fi0Alloc(sizeof(struct Fmt12), (19)));
2181	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2182	l0->X0_fn = (FiClos) P0_fn;
2183	l0->X1_n = P1_n;
2184	return fiClosMake(e0, C29_rtDelayedInit_BANG_)fiClosMakeFun(e0, (FiProg) (C29_rtDelayedInit_BANG_));
2185	}
2186
2187	static struct _FiProg tmp28_rtDelayedInit_BANG_ = {
2188	(FiFun) CF28_rtDelayedInit_BANG_,
2189	0L,
2190	0L,
2191	0L,
2192	0L
2193	};
2194
2195
2196	static FiWord
2197	CF29_rtDelayedInit_BANG_(FiEnv e1)
2198	{
2199	PFmt12 l1;
2200	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
2201	return fiCCall1(FiWord, l1->X0_fn, l1->X1_n)((((FiWord ()())(l1->X0_fn)->prog->fun))((l1->X0_fn )->env,l1->X1_n));
2202	}
2203
2204	static struct _FiProg tmp29_rtDelayedInit_BANG_ = {
2205	(FiFun) CF29_rtDelayedInit_BANG_,
2206	0L,
2207	0L,
2208	0L,
2209	0L
2210	};
2211
2212
2213	static FiClos
2214	CF30_rtDelayedGetExport_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_n1,
2215	FiWord P2_n2)
2216	{
2217	FiWord T0;
2218	PFmt13 l0;
2219	FiEnv e0;
2220	PFmt26 l1;
2221	l0 = fi0New(struct Fmt13 , CENSUS_EnvLevel)((struct Fmt13 *) fi0Alloc(sizeof(struct Fmt13), (19)));
2222	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2223	l1 = (PFmt26) fiEnvLevel(e1)((FiEnv) (e1)->level);
2224	l0->X0_d = P0_d;
2225	l0->X1_n1 = P1_n1;
2226	l0->X2_n2 = P2_n2;
2227	T0 = l0->X0_d;
2228	if ((FiPtr) T0 == (FiPtr) fiNil((Ptr) 0)) goto L0;
2229	return fiClosMake(e0, C31_rtDelayedGetExport_BANG_)fiClosMakeFun(e0, (FiProg) (C31_rtDelayedGetExport_BANG_));
2230	L0: fiHalt((FiSInt) 102L);
2231	return (FiClos) 0L;
2232	}
2233
2234	static struct _FiProg tmp30_rtDelayedGetExport_BANG_ = {
2235	(FiFun) CF30_rtDelayedGetExport_BANG_,
2236	0L,
2237	0L,
2238	0L,
2239	0L
2240	};
2241
2242
2243	static FiWord
2244	CF31_rtDelayedGetExport_BANG_(FiEnv e1)
2245	{
2246	FiBool T35, T36, T55, T88, T89, T90, T91, T92;
2247	FiWord T1, T2, T5, T6, T13, T17, T19, T20, T28, T30, T31, T38, T46, T50, T51, T54, T56, T57, T61, T71, T72, T76, T77, T78, T79, T80, T87_ll;
2248	FiSInt T18, T21, T23, T24, T25, T26, T29, T34, T85, T86;
2249	PFmt41 T84;
2250	FiEnv e2, T0, T52, T82, T83;
2251	PFmt30 T81;
2252	FiClos T4, T7, T8, T9, T10, T11, T12, T14, T15, T16, T39, T40, T41, T42, T43, T44, T45, T47, T48, T49, T53, T58, T59, T60, T62, T63, T64, T65, T66, T67, T68, T69, T70, T73, T74, T75;
2253	PFmt27 T37;
2254	PFmt28 T32, T33;
2255	FiPtr T22, T27;
2256	PFmt29 T3;
2257	PFmt13 l1;
2258	PFmt26 l2;
2259	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
2260	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
2261	l2 = (PFmt26) fiEnvLevel(e2)((FiEnv) (e2)->level);
2262	T84 = (PFmt41) l1->X0_d;
2263	T85 = (FiSInt) l1->X1_n1;
2264	T86 = (FiSInt) l1->X2_n2;
2265	T0 = ((FiClos) G_607SQ_domainGetExport1_BANG_)->env;
2266	T6 = l2->X1_box;
2267	T5 = T84->X0_dispatcher;
2268	T4 = (FiClos) ((PFmt40) T5)->X3_getter;
2269	T3 = (PFmt29) fiCFun(FiWord, T4)(((FiWord ()())(T4)->prog->fun))((T4)->env, T84->X1_domainRep, (
2270	FiWord) T84, (FiWord) T85, (FiWord) T86, T6, (FiWord) 0L);
2271	fiPTR_IS_NIL(T90, FiBool, (FiPtr) T3)((T90) = (FiBool)((FiPtr) ((FiPtr) T3) == (FiPtr) 0));
2272	if (T90) goto L19;
2273	T1 = T3->X0_value;
2274	return T1;
2275	L19: T83 = fiEnvPush(fiNil, T0)fiEnvPushFun((FiPtr) (((Ptr) 0)), T0);
2276	T50 = (FiWord) fiClosMake(T83, C8_PRINT)fiClosMakeFun(T83, (FiProg) (C8_PRINT));
2277	T51 = (FiWord) "Looking in ";
2278	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T50)->prog->fun)
2279	FiClos) T50)((( FiClos) T50)->prog->fun))(((FiClos) T50)->env, &T47, &T48, &T49);
2280	fiCCall3(FiWord, T48, T51, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T48)->prog->fun))((T48)->env,T51, (FiWord) 1L,(FiWord) 0L));
2281	T37 = (PFmt27) l2->X0_theStringTable;
2282	T20 = T37->X1_codes;
2283	T19 = T37->X0_names;
2284	T33 = (PFmt28) T20;
2285	fiPTR_IS_NIL(T35, FiBool, (FiPtr) T20)((T35) = (FiBool)((FiPtr) ((FiPtr) T20) == (FiPtr) 0));
2286	if (T35) goto L0;
2287	T29 = (FiSInt) ((PFmt28) T20)->X0_first;
2288	T34 = T29;
2289	T32 = (PFmt28) T19;
2290	L8: fiPTR_IS_NIL(T36, FiBool, (FiPtr) T32)((T36) = (FiBool)((FiPtr) ((FiPtr) T32) == (FiPtr) 0));
2291	if (T36) goto L0;
2292	T31 = T32->X0_first;
2293	if (T34 == T85) goto L1;
2294	fiPTR_IS_NIL(T91, FiBool, (FiPtr) T33)((T91) = (FiBool)((FiPtr) ((FiPtr) T33) == (FiPtr) 0));
2295	if (T91) goto L6;
2296	T28 = T33->X1_rest;
2297	L7: T33 = (PFmt28) T28;
2298	fiPTR_IS_NIL(T35, FiBool, (FiPtr) T28)((T35) = (FiBool)((FiPtr) ((FiPtr) T28) == (FiPtr) 0));
2299	if (T35) goto L0;
2300	T29 = (FiSInt) ((PFmt28) T28)->X0_first;
2301	T34 = T29;
2302	T30 = T32->X1_rest;
2303	T32 = (PFmt28) T30;
2304	goto L8;
2305	L0: T27 = (FiPtr*) "\?\?: ";
2306	T23 = 1L;
2307	L2: T25 = T23 - 1L;
2308	if (((FiChar*) T27)[T25] == 0L) goto L3;
2309	T23 = T23 + 1L;
2310	goto L2;
2311	L3: T22 = (FiPtr*) (FiPtr) fiArrNew_Char(T25 + 1L);
2312	((FiChar*) T22)[0L] = 0L;
2313	((FiChar*) T22)[T25] = 0L;
2314	T24 = 1L;
2315	L4: if (T24 <= T25) goto L5;
2316	fiFORMAT_SINT(T21, FiSInt, T85, T22, 2L)((T21) = (FiSInt) fiFormatSInt(T85,(FiArr)T22,2L));
2317	T18 = T21 + 1L;
2318	((FiChar*) T22)[T18] = 0L;
2319	T38 = (FiWord) T22;
2320	L9: T46 = T84->X0_dispatcher;
2321	T45 = (FiClos) ((PFmt40) T46)->X1_namer;
2322	T52 = fiEnvPush(fi0New(struct Fmt6 , CENSUS_EnvLevel), T0)fiEnvPushFun((FiPtr) (((struct Fmt6 *) fi0Alloc(sizeof(struct Fmt6), (19)))), T0);
2323	T82 = fiEnvPush(fiNil, T0)fiEnvPushFun((FiPtr) (((Ptr) 0)), T0);
2324	T80 = (FiWord) fiClosMake(T82, C8_PRINT)fiClosMakeFun(T82, (FiProg) (C8_PRINT));
2325	T81 = (PFmt30) fiCCall1(FiWord, T45, T84->X1_domainRep)((((FiWord ()())(T45)->prog->fun))((T45)->env,T84-> X1_domainRep));
2326	((PFmt6) fiEnvLevel0(T52)(((FiEnv)(T52))->level))->X0_fn = fiClosMake(T52, C2_fn)fiClosMakeFun(T52, (FiProg) (C2_fn));
2327	T53 = ((PFmt6) fiEnvLevel0(T52)(((FiEnv)(T52))->level))->X0_fn;
2328	if (T81->X0_tag == 0) goto L10;
2329	if (T81->X0_tag == 3L) goto L12;
2330	T55 = T81->X0_tag == 2L;
2331	T54 = T81->X1_p;
2332	if (T55) goto L14;
2333	fiPTR_IS_NIL(T88, FiBool, (FiPtr) T54)((T88) = (FiBool)((FiPtr) ((FiPtr) T54) == (FiPtr) 0));
2334	if (T88) goto L15;
2335	T71 = ((PFmt28) T54)->X0_first;
2336	fiCCall2(FiWord, T53, T80, T71)((((FiWord ()())(T53)->prog->fun))((T53)->env,T80, T71));
2337	T72 = ((PFmt28) T54)->X1_rest;
2338	T54 = T72;
2339	L14: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
2340	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T65, &T66, &T67);
2341	fiCCall3(FiWord, T66, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T66)->prog->fun))((T66)->env,(FiWord ) "(",(FiWord) 1L,(FiWord) 0L));
2342	T87_ll = T54;
2343	L16: fiPTR_IS_NIL(T89, FiBool, (FiPtr) T87_ll)((T89) = (FiBool)((FiPtr) ((FiPtr) T87_ll) == (FiPtr) 0));
2344	if (T89) goto L17;
2345	T79 = ((PFmt28) T87_ll)->X1_rest;
2346	T77 = ((PFmt28) T87_ll)->X0_first;
2347	fiCCall2(FiWord, T53, T80, T77)((((FiWord ()())(T53)->prog->fun))((T53)->env,T80, T77));
2348	T78 = ((PFmt28) T87_ll)->X1_rest;
2349	fiPTR_IS_NIL(T92, FiBool, (FiPtr) T78)((T92) = (FiBool)((FiPtr) ((FiPtr) T78) == (FiPtr) 0));
2350	if (T92) goto L18;
2351	T61 = (FiWord) ", ";
2352	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
2353	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T58, &T59, &T60);
2354	fiCCall3(FiWord, T59, T61, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T59)->prog->fun))((T59)->env,T61, (FiWord) 1L,(FiWord) 0L));
2355	L18: T87_ll = T79;
2356	goto L16;
2357	L17: T76 = (FiWord) ")";
2358	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
2359	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T73, &T74, &T75);
2360	fiCCall3(FiWord, T74, T76, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T74)->prog->fun))((T74)->env,T76, (FiWord) 1L,(FiWord) 0L));
2361	T57 = T80;
2362	L13: T56 = T57;
2363	L11: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
2364	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T42, &T43, &T44);
2365	fiCCall3(FiWord, T43, (FiWord) " for ", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T43)->prog->fun))((T43)->env,(FiWord ) " for ",(FiWord) 1L,(FiWord) 0L));
2366	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
2367	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T39, &T40, &T41);
2368	fiCCall3(FiWord, T40, T38, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T40)->prog->fun))((T40)->env,T38, (FiWord) 1L,(FiWord) 0L));
2369	T13 = (FiWord) " with code ";
2370	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
2371	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T10, &T11, &T12);
2372	fiCCall3(FiWord, T11, T13, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T11)->prog->fun))((T11)->env,T13, (FiWord) 1L,(FiWord) 0L));
2373	T17 = formatSInt(T86);
2374	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
2375	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T14, &T15, &T16);
2376	fiCCall3(FiWord, T15, T17, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T15)->prog->fun))((T15)->env,T17, (FiWord) 1L,(FiWord) 0L));
2377	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T56)->prog->fun)
2378	FiClos) T56)((( FiClos) T56)->prog->fun))(((FiClos) T56)->env, &T7, &T8, &T9);
2379	fiCCall1(void, T7, (FiWord) 10L)((((void ()())(T7)->prog->fun))((T7)->env,(FiWord) 10L));
2380	T2 = (FiWord) "Export not found";
2381	fiRaiseException(T2);
2382	fiHalt((FiSInt) 102L);
2383	return (FiWord) 0L;
2384	L15: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());
2385	fputc((FiWord) 10L, stdoutFile());
2386	fiHalt((FiSInt) 0L);
2387	return (FiWord) 0L;
2388	L12: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
2389	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T62, &T63, &T64);
2390	fiCCall3(FiWord, T63, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T63)->prog->fun))((T63)->env,(FiWord ) "\?\?",(FiWord) 1L,(FiWord) 0L));
2391	T57 = T80;
2392	goto L13;
2393	L10: ((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T80)->prog->fun)
2394	FiClos) T80)((( FiClos) T80)->prog->fun))(((FiClos) T80)->env, &T68, &T69, &T70);
2395	fiCCall3(FiWord, T69, T81->X1_p, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T69)->prog->fun))((T69)->env,T81-> X1_p,(FiWord) 1L,(FiWord) 0L));
2396	T56 = T80;
2397	goto L11;
2398	L5: T26 = T24 - 1L;
2399	((FiChar) T22)[T26] = ((FiChar) T27)[T26];
2400	T24 = T24 + 1L;
2401	goto L4;
2402	L6: T28 = (FiWord) T33;
2403	goto L7;
2404	L1: T38 = T31;
2405	goto L9;
2406	}
2407
2408	static struct _FiProg tmp31_rtDelayedGetExport_BANG_ = {
2409	(FiFun) CF31_rtDelayedGetExport_BANG_,
2410	0L,
2411	0L,
2412	0L,
2413	0L
2414	};
2415
2416
2417	static FiWord
2418	CF32_categoryMake(FiEnv e1, FiWord P0_fn, FiWord P1_hfn, FiWord
2419	P2_nameFn)
2420	{
2421	PFmt43 T18;
2422	FiClos T12, T13, T14, T15, T16, T17;
2423	FiEnv T11;
2424	FiSInt T5, T6, T9, T10;
2425	FiPtr T4, T8;
2426	PFmt39 T3, T7;
2427	PFmt38 T2;
2428	PFmt44 T1;
2429	PFmt42 T0;
2430	T11 = fiEnvPush(fiNil, ((FiClos) G_79OOL_aldorCatDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_79OOL_aldorCatDispatchVector )-> env)
2431	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_79OOL_aldorCatDispatchVector )-> env);
2432	T17 = fiClosMake(T11, C88_n1)fiClosMakeFun(T11, (FiProg) (C88_n1));
2433	T16 = fiClosMake(T11, C89_g1)fiClosMakeFun(T11, (FiProg) (C89_g1));
2434	T15 = fiClosMake(T11, C90_h1)fiClosMakeFun(T11, (FiProg) (C90_h1));
2435	T14 = fiClosMake(T11, C91_pc1)fiClosMakeFun(T11, (FiProg) (C91_pc1));
2436	T13 = fiClosMake(T11, C92_pg1)fiClosMakeFun(T11, (FiProg) (C92_pg1));
2437	T12 = fiClosMake(T11, C93_b1)fiClosMakeFun(T11, (FiProg) (C93_b1));
2438	T18 = fi0RecNew(struct Fmt43 , CENSUS_Rec)((struct Fmt43 *) fi0RecAlloc(sizeof(struct Fmt43), ( 5)));
2439	T18->X0_tag = (FiWord) 10L;
2440	T18->X1_namer = T17;
2441	T18->X2_noname = (FiWord) fiNil((Ptr) 0);
2442	T18->X3_getter = T16;
2443	T18->X4_hasher = T15;
2444	T18->X5_builder = T12;
2445	T18->X6_parentCounter = T14;
2446	T18->X7_parentGetter = T13;
2447	T1 = fi0RecNew(struct Fmt44 , CENSUS_Rec)((struct Fmt44 *) fi0RecAlloc(sizeof(struct Fmt44), ( 5)));
2448	T1->X0_buildFn = P0_fn;
2449	T1->X1_hashFn = (FiClos) P1_hfn;
2450	T2 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
2451	T2->X0_posn = (FiWord) 0L;
2452	T3 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
2453	T3->X0_size = (FiWord) 15L;
2454	T3->X1_nvalues = (FiWord) 15L;
2455	T4 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
2456	T6 = 1L;
2457	L1: if (T6 <= 15L) goto L2;
2458	T3->X2_values = (FiWord) T4;
2459	T2->X1_keys = (FiWord) T3;
2460	T7 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
2461	T7->X0_size = (FiWord) 15L;
2462	T7->X1_nvalues = (FiWord) 15L;
2463	T8 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
2464	T10 = 1L;
2465	L3: if (T10 <= 15L) goto L4;
2466	T7->X2_values = (FiWord) T8;
2467	T2->X2_values = (FiWord) T7;
2468	T2->X3_size = (FiWord) 15L;
2469	T1->X2_dc = (FiWord) T2;
2470	T1->X3_domain = (FiWord) fiNil((Ptr) 0);
2471	T1->X4_parents = (FiWord) fiNil((Ptr) 0);
2472	T1->X5_nparents = (FiWord) 0L;
2473	T1->X6_names = (FiWord) fiNil((Ptr) 0);
2474	T1->X7_types = (FiWord) fiNil((Ptr) 0);
2475	T1->X8_exports = (FiWord) fiNil((Ptr) 0);
2476	T1->X9_nameFn = (FiClos) P2_nameFn;
2477	if ((FiPtr) T18 == (FiPtr) fiNil((Ptr) 0)) goto L0;
2478	T0 = fi0RecNew(struct Fmt42 , CENSUS_Rec)((struct Fmt42 *) fi0RecAlloc(sizeof(struct Fmt42), ( 5)));
2479	T0->X0_cdv = (FiWord) T18;
2480	T0->X1_catRep = (FiWord) T1;
2481	return (FiWord) T0;
2482	L0: fiHalt((FiSInt) 102L);
2483	return (FiWord) 0L;
2484	L4: T9 = T10 - 1L;
2485	((FiWord*) T8)[T9] = (FiWord) fiNil((Ptr) 0);
2486	T10 = T10 + 1L;
2487	goto L3;
2488	L2: T5 = T6 - 1L;
2489	((FiWord*) T4)[T5] = (FiWord) fiNil((Ptr) 0);
2490	T6 = T6 + 1L;
2491	goto L1;
2492	}
2493
2494	static struct _FiProg tmp32_categoryMake = {
2495	(FiFun) CF32_categoryMake,
2496	0L,
2497	0L,
2498	0L,
2499	0L
2500	};
2501
2502
2503	static FiWord
2504	CF33_categoryMakeDummy(FiEnv e1)
2505	{
2506	PFmt43 T8;
2507	FiClos T2, T3, T4, T5, T6, T7;
2508	FiEnv T1;
2509	PFmt42 T0;
2510	T1 = fiEnvPush(fiNil, ((FiClos) G_CEQ0J_dummyCatDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_CEQ0J_dummyCatDispatchVector )-> env)
2511	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_CEQ0J_dummyCatDispatchVector )-> env);
2512	T7 = fiClosMake(T1, C95_n0)fiClosMakeFun(T1, (FiProg) (C95_n0));
2513	T6 = fiClosMake(T1, C96_b0)fiClosMakeFun(T1, (FiProg) (C96_b0));
2514	T5 = fiClosMake(T1, C97_g0)fiClosMakeFun(T1, (FiProg) (C97_g0));
2515	T4 = fiClosMake(T1, C98_h0)fiClosMakeFun(T1, (FiProg) (C98_h0));
2516	T3 = fiClosMake(T1, C99_pc0)fiClosMakeFun(T1, (FiProg) (C99_pc0));
2517	T2 = fiClosMake(T1, C100_pg0)fiClosMakeFun(T1, (FiProg) (C100_pg0));
2518	T8 = fi0RecNew(struct Fmt43 , CENSUS_Rec)((struct Fmt43 *) fi0RecAlloc(sizeof(struct Fmt43), ( 5)));
2519	T8->X0_tag = (FiWord) 10L;
2520	T8->X1_namer = T7;
2521	T8->X2_noname = (FiWord) fiNil((Ptr) 0);
2522	T8->X3_getter = T5;
2523	T8->X4_hasher = T4;
2524	T8->X5_builder = T6;
2525	T8->X6_parentCounter = T3;
2526	T8->X7_parentGetter = T2;
2527	if ((FiPtr) T8 == (FiPtr) fiNil((Ptr) 0)) goto L0;
2528	T0 = fi0RecNew(struct Fmt42 , CENSUS_Rec)((struct Fmt42 *) fi0RecAlloc(sizeof(struct Fmt42), ( 5)));
2529	T0->X0_cdv = (FiWord) T8;
2530	T0->X1_catRep = (FiWord) fiNil((Ptr) 0);
2531	return (FiWord) T0;
2532	L0: fiHalt((FiSInt) 102L);
2533	return (FiWord) 0L;
2534	}
2535
2536	static struct _FiProg tmp33_categoryMakeDummy = {
2537	(FiFun) CF33_categoryMakeDummy,
2538	0L,
2539	0L,
2540	0L,
2541	0L
2542	};
2543
2544
2545	static void
2546	CF34_categoryAddParents_BANG_(FiEnv e1, FiWord P0_cat, FiWord P1_parents,
2547	FiWord P2_cAsCat)
2548	{
2549	FiBool T10;
2550	FiSInt T0, T4, T8, T9;
2551	PFmt42 T7;
2552	FiWord T1, T3, T6;
2553	FiPtr *T5;
2554	FiClos T2;
2555	T1 = ((PFmt44) P0_cat)->X3_domain;
2556	T0 = 0L;
2557	T9 = (FiSInt) ((PFmt39) P1_parents)->X1_nvalues;
2558	T8 = 1L;
2559	L0: if (T8 <= T9) goto L2;
2560	((PFmt44) P0_cat)->X4_parents = P1_parents;
2561	((PFmt44) P0_cat)->X5_nparents = (FiWord) T0;
2562	return ;
2563	L2: T7 = (PFmt42) ((FiWord*) ((PFmt39) P1_parents)->X2_values)[T8 -
2564	1L];
2565	fiPTR_IS_NIL(T10, FiBool, (FiPtr) T7)((T10) = (FiBool)((FiPtr) ((FiPtr) T7) == (FiPtr) 0));
2566	if (T10) goto L1;
2567	T0 = T0 + 1L;
2568	T3 = T7->X0_cdv;
2569	T2 = (FiClos) ((PFmt43) T3)->X5_builder;
2570	T6 = fiCCall2(FiWord, T2, T7->X1_catRep, T1)((((FiWord ()())(T2)->prog->fun))((T2)->env,T7-> X1_catRep,T1));
2571	T5 = (FiPtr*) ((PFmt39) P1_parents)->X2_values;
2572	T4 = T0 - 1L;
2573	((FiWord*) T5)[T4] = T6;
2574	L1: T8 = T8 + 1L;
2575	goto L0;
2576	}
2577
2578	static struct _FiProg tmp34_categoryAddParents_BANG_ = {
2579	(FiFun) CF34_categoryAddParents_BANG_,
2580	0L,
2581	0L,
2582	0L,
2583	0L
2584	};
2585
2586
2587	static void
2588	CF35_categoryAddNameFn_BANG_(FiEnv e1, FiWord P0_cat, FiWord P1_namefn)
2589	{
2590	((PFmt44) P0_cat)->X9_nameFn = (FiClos) P1_namefn;
2591	return ;
2592	}
2593
2594	static struct _FiProg tmp35_categoryAddNameFn_BANG_ = {
2595	(FiFun) CF35_categoryAddNameFn_BANG_,
2596	0L,
2597	0L,
2598	0L,
2599	0L
2600	};
2601
2602
2603	static void
2604	CF36_categoryAddExports_BANG_(FiEnv e1, FiWord P0_cat, FiWord P1_names,
2605	FiWord P2_types, FiWord P3_vals)
2606	{
2607	FiSInt T2, T3, T4;
2608	FiPtr T0, T1;
2609	((PFmt44) P0_cat)->X6_names = P1_names;
2610	((PFmt44) P0_cat)->X7_types = P2_types;
2611	((PFmt44) P0_cat)->X8_exports = P3_vals;
2612	T3 = (FiSInt) ((PFmt39) P1_names)->X1_nvalues;
2613	T2 = 1L;
2614	L0: if (T2 <= T3) goto L1;
2615	return ;
2616	L1: T0 = (FiPtr*) ((PFmt39) ((PFmt44) P0_cat)->X6_names)->X2_values;
2617	T4 = T2 - 1L;
2618	((FiWord*) T0)[T4] = (FiWord) 0L;
2619	T1 = (FiPtr*) ((PFmt39) ((PFmt44) P0_cat)->X7_types)->
2620	X2_values;
2621	((FiWord*) T1)[T4] = (FiWord) 0L;
2622	T2 = T2 + 1L;
2623	goto L0;
2624	}
2625
2626	static struct _FiProg tmp36_categoryAddExports_BANG_ = {
2627	(FiFun) CF36_categoryAddExports_BANG_,
2628	0L,
2629	0L,
2630	0L,
2631	0L
2632	};
2633
2634
2635	static FiWord
2636	CF37_categoryBuild(FiEnv e1, FiWord P0_cat, FiWord P1_dom)
2637	{
2638	FiWord T1;
2639	FiClos T0;
2640	T1 = ((PFmt42) P0_cat)->X0_cdv;
2641	T0 = (FiClos) ((PFmt43) T1)->X5_builder;
2642	return fiCCall2(FiWord, T0, ((PFmt42) P0_cat)->X1_catRep, P1_dom)((((FiWord ()())(T0)->prog->fun))((T0)->env,((PFmt42 ) P0_cat)->X1_catRep,P1_dom));
2643	}
2644
2645	static struct _FiProg tmp37_categoryBuild = {
2646	(FiFun) CF37_categoryBuild,
2647	0L,
2648	0L,
2649	0L,
2650	0L
2651	};
2652
2653
2654	static FiWord
2655	CF38_categoryName(FiEnv e1, FiWord P0_cat)
2656	{
2657	FiWord T1;
2658	FiClos T0;
2659	T1 = ((PFmt42) P0_cat)->X0_cdv;
2660	T0 = (FiClos) ((PFmt43) T1)->X1_namer;
2661	return fiCCall1(FiWord, T0, ((PFmt42) P0_cat)->X1_catRep)((((FiWord ()())(T0)->prog->fun))((T0)->env,((PFmt42 ) P0_cat)->X1_catRep));
2662	}
2663
2664	static struct _FiProg tmp38_categoryName = {
2665	(FiFun) CF38_categoryName,
2666	0L,
2667	0L,
2668	0L,
2669	0L
2670	};
2671
2672
2673	static void
2674	CF39_categoryFill_BANG_(FiEnv e1, FiWord P0_d, FiWord P1_v)
2675	{
2676	((PFmt42) P0_d)->X0_cdv = ((PFmt42) P1_v)->X0_cdv;
2677	((PFmt42) P0_d)->X1_catRep = ((PFmt42) P1_v)->X1_catRep;
2678	return ;
2679	}
2680
2681	static struct _FiProg tmp39_categoryFill_BANG_ = {
2682	(FiFun) CF39_categoryFill_BANG_,
2683	0L,
2684	0L,
2685	0L,
2686	0L
2687	};
2688
2689
2690	static FiWord
2691	CF40_extendMake(FiEnv e1, FiWord P0_df)
2692	{
2693	PFmt40 T16;
2694	FiClos T12, T13, T14, T15;
2695	FiEnv e0, T11;
2696	FiSInt T5, T6, T9, T10;
2697	FiPtr T4, T8;
2698	PFmt39 T3, T7;
2699	PFmt38 T2;
2700	PFmt37 T1;
2701	PFmt41 T0;
2702	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2703	T11 = fiEnvPush(fiNil, ((FiClos) G_YY5KJ_extendDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_YY5KJ_extendDispatchVector )-> env)
2704	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_YY5KJ_extendDispatchVector )-> env);
2705	T15 = fiClosMake(T11, C70_n)fiClosMakeFun(T11, (FiProg) (C70_n));
2706	T14 = fiClosMake(T11, C71_extendg)fiClosMakeFun(T11, (FiProg) (C71_extendg));
2707	T13 = fiClosMake(T11, C72_h)fiClosMakeFun(T11, (FiProg) (C72_h));
2708	T12 = fiClosMake(T11, C73_i)fiClosMakeFun(T11, (FiProg) (C73_i));
2709	T16 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
2710	T16->X0_tag = (FiWord) 0L;
2711	T16->X1_namer = T15;
2712	T16->X2_noname = (FiWord) fiNil((Ptr) 0);
2713	T16->X3_getter = T14;
2714	T16->X4_hasher = T13;
2715	T16->X5_inheriter = T12;
2716	T1 = fi0RecNew(struct Fmt37 , CENSUS_Rec)((struct Fmt37 *) fi0RecAlloc(sizeof(struct Fmt37), ( 5)));
2717	T1->X0_f1 = P0_df;
2718	T1->X1_f2 = (FiWord) fiNil((Ptr) 0);
2719	T1->X2_hashcode = (FiWord) 0L;
2720	T1->X3_parents = (FiWord) fiNil((Ptr) 0);
2721	T1->X4_extendees = (FiWord) fiNil((Ptr) 0);
2722	T1->X5_defaults = (FiWord) fiNil((Ptr) 0);
2723	T1->X6_names = (FiWord) fiNil((Ptr) 0);
2724	T1->X7_types = (FiWord) fiNil((Ptr) 0);
2725	T1->X8_exports = (FiWord) fiNil((Ptr) 0);
2726	T1->X9_ngets = (FiWord) 0L;
2727	T1->X10_serial = (FiWord) 0L;
2728	T2 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
2729	T2->X0_posn = (FiWord) 0L;
2730	T3 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
2731	T3->X0_size = (FiWord) 15L;
2732	T3->X1_nvalues = (FiWord) 15L;
2733	T4 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
2734	T6 = 1L;
2735	L1: if (T6 <= 15L) goto L2;
2736	T3->X2_values = (FiWord) T4;
2737	T2->X1_keys = (FiWord) T3;
2738	T7 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
2739	T7->X0_size = (FiWord) 15L;
2740	T7->X1_nvalues = (FiWord) 15L;
2741	T8 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
2742	T10 = 1L;
2743	L3: if (T10 <= 15L) goto L4;
2744	T7->X2_values = (FiWord) T8;
2745	T2->X2_values = (FiWord) T7;
2746	T2->X3_size = (FiWord) 15L;
2747	T1->X11_cache = (FiWord) T2;
2748	T1->X12_nameFn = fiClosMake(e0, C147_new)fiClosMakeFun(e0, (FiProg) (C147_new));
2749	T1->X13_id = (FiWord) 0L;
2750	if ((FiPtr) T16 == (FiPtr) fiNil((Ptr) 0)) goto L0;
2751	T0 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
2752	T0->X0_dispatcher = (FiWord) T16;
2753	T0->X1_domainRep = (FiWord) T1;
2754	return (FiWord) T0;
2755	L0: fiHalt((FiSInt) 102L);
2756	return (FiWord) 0L;
2757	L4: T9 = T10 - 1L;
2758	((FiWord*) T8)[T9] = (FiWord) fiNil((Ptr) 0);
2759	T10 = T10 + 1L;
2760	goto L3;
2761	L2: T5 = T6 - 1L;
2762	((FiWord*) T4)[T5] = (FiWord) fiNil((Ptr) 0);
2763	T6 = T6 + 1L;
2764	goto L1;
2765	}
2766
2767	static struct _FiProg tmp40_extendMake = {
2768	(FiFun) CF40_extendMake,
2769	0L,
2770	0L,
2771	0L,
2772	0L
2773	};
2774
2775
2776	static void
2777	CF41_extendFill_BANG_(FiEnv e1, FiWord P0_dom, FiWord P1_pars)
2778	{
2779	FiSInt T1, T5, T6, T7, T8, T9, T10;
2780	FiPtr T2, T4;
2781	PFmt39 T3;
2782	FiWord T0;
2783	((PFmt37) P0_dom)->X3_parents = P1_pars;
2784	T0 = ((FiWord*) ((PFmt39) P1_pars)->X2_values)[0L];
2785	T8 = (FiSInt) ((PFmt39) P1_pars)->X1_nvalues;
2786	T7 = T8 - 1L;
2787	T3 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
2788	T3->X0_size = (FiWord) T7;
2789	T3->X1_nvalues = (FiWord) T7;
2790	T4 = (FiPtr*) (FiPtr) fiArrNew_Word(T7);
2791	T6 = 1L;
2792	L0: if (T6 <= T7) goto L1;
2793	T3->X2_values = (FiWord) T4;
2794	T9 = 2L;
2795	L2: if (T9 <= T8) goto L3;
2796	((PFmt37) ((PFmt41) T0)->X1_domainRep)->X4_extendees = (FiWord)
2797	T3;
2798	return ;
2799	L3: T2 = (FiPtr*) T3->X2_values;
2800	T10 = T9 - 1L;
2801	T1 = T10 - 1L;
2802	((FiWord) T2)[T1] = ((FiWord) ((PFmt39) P1_pars)->X2_values)[
2803	T10];
2804	T9 = T9 + 1L;
2805	goto L2;
2806	L1: T5 = T6 - 1L;
2807	((FiWord*) T4)[T5] = (FiWord) fiNil((Ptr) 0);
2808	T6 = T6 + 1L;
2809	goto L0;
2810	}
2811
2812	static struct _FiProg tmp41_extendFill_BANG_ = {
2813	(FiFun) CF41_extendFill_BANG_,
2814	0L,
2815	0L,
2816	0L,
2817	0L
2818	};
2819
2820
2821	static void
2822	CF42_noOperation(FiEnv e1)
2823	{
2824	return ;
2825	}
2826
2827	static struct _FiProg tmp42_noOperation = {
2828	(FiFun) CF42_noOperation,
2829	0L,
2830	0L,
2831	0L,
2832	0L
2833	};
2834
2835
2836	static FiWord
2837	CF43_rtLazyCatFrInit(FiEnv e1, FiWord P0_fn, FiWord P1_n)
2838	{
2839	PFmt43 T7, T17;
2840	FiClos T0_ifn, T1, T2, T3, T4, T5, T6, T11, T12, T13, T14, T15, T16;
2841	FiEnv e0, T10;
2842	PFmt42 T9;
2843	PFmt45 T8;
2844	PFmt14 l0;
2845	l0 = fi0New(struct Fmt14 , CENSUS_EnvLevel)((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)));
2846	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2847	l0->X0_fn = (FiClos) P0_fn;
2848	l0->X1_n = P1_n;
2849	T0_ifn = fiClosMake(e0, C44_ifn)fiClosMakeFun(e0, (FiProg) (C44_ifn));
2850	T10 = fiEnvPush(fiNil, ((FiClos) G_CEQ0J_dummyCatDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_CEQ0J_dummyCatDispatchVector )-> env)
2851	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_CEQ0J_dummyCatDispatchVector )-> env);
2852	T16 = fiClosMake(T10, C95_n0)fiClosMakeFun(T10, (FiProg) (C95_n0));
2853	T15 = fiClosMake(T10, C96_b0)fiClosMakeFun(T10, (FiProg) (C96_b0));
2854	T14 = fiClosMake(T10, C97_g0)fiClosMakeFun(T10, (FiProg) (C97_g0));
2855	T13 = fiClosMake(T10, C98_h0)fiClosMakeFun(T10, (FiProg) (C98_h0));
2856	T12 = fiClosMake(T10, C99_pc0)fiClosMakeFun(T10, (FiProg) (C99_pc0));
2857	T11 = fiClosMake(T10, C100_pg0)fiClosMakeFun(T10, (FiProg) (C100_pg0));
2858	T17 = fi0RecNew(struct Fmt43 , CENSUS_Rec)((struct Fmt43 *) fi0RecAlloc(sizeof(struct Fmt43), ( 5)));
2859	T17->X0_tag = (FiWord) 10L;
2860	T17->X1_namer = T16;
2861	T17->X2_noname = (FiWord) fiNil((Ptr) 0);
2862	T17->X3_getter = T14;
2863	T17->X4_hasher = T13;
2864	T17->X5_builder = T15;
2865	T17->X6_parentCounter = T12;
2866	T17->X7_parentGetter = T11;
2867	if ((FiPtr) T17 == (FiPtr) fiNil((Ptr) 0)) goto L0;
2868	T9 = fi0RecNew(struct Fmt42 , CENSUS_Rec)((struct Fmt42 *) fi0RecAlloc(sizeof(struct Fmt42), ( 5)));
2869	T9->X0_cdv = (FiWord) T17;
2870	T9->X1_catRep = (FiWord) fiNil((Ptr) 0);
2871	T6 = fiClosMake(e0, C148_n0)fiClosMakeFun(e0, (FiProg) (C148_n0));
2872	T5 = fiClosMake(e0, C149_b0)fiClosMakeFun(e0, (FiProg) (C149_b0));
2873	T4 = fiClosMake(e0, C150_g0)fiClosMakeFun(e0, (FiProg) (C150_g0));
2874	T3 = fiClosMake(e0, C151_h0)fiClosMakeFun(e0, (FiProg) (C151_h0));
2875	T2 = fiClosMake(e0, C152_pc0)fiClosMakeFun(e0, (FiProg) (C152_pc0));
2876	T1 = fiClosMake(e0, C153_pg0)fiClosMakeFun(e0, (FiProg) (C153_pg0));
2877	T7 = fi0RecNew(struct Fmt43 , CENSUS_Rec)((struct Fmt43 *) fi0RecAlloc(sizeof(struct Fmt43), ( 5)));
2878	T7->X0_tag = (FiWord) 10L;
2879	T7->X1_namer = T6;
2880	T7->X2_noname = (FiWord) fiNil((Ptr) 0);
2881	T7->X3_getter = T4;
2882	T7->X4_hasher = T3;
2883	T7->X5_builder = T5;
2884	T7->X6_parentCounter = T2;
2885	T7->X7_parentGetter = T1;
2886	T8 = fi0RecNew(struct Fmt45 , CENSUS_Rec)((struct Fmt45 *) fi0RecAlloc(sizeof(struct Fmt45), ( 5)));
2887	T8->X0_tag = 0L;
2888	T8->X1_value = (FiWord) T0_ifn;
2889	T9->X0_cdv = (FiWord) T7;
2890	T9->X1_catRep = (FiWord) T8;
2891	return (FiWord) T9;
2892	L0: fiHalt((FiSInt) 102L);
2893	return (FiWord) 0L;
2894	}
2895
2896	static struct _FiProg tmp43_rtLazyCatFrInit = {
2897	(FiFun) CF43_rtLazyCatFrInit,
2898	0L,
2899	0L,
2900	0L,
2901	0L
2902	};
2903
2904
2905	static FiWord
2906	CF44_ifn(FiEnv e1)
2907	{
2908	PFmt14 l1;
2909	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
2910	return fiCCall1(FiWord, l1->X0_fn, l1->X1_n)((((FiWord ()())(l1->X0_fn)->prog->fun))((l1->X0_fn )->env,l1->X1_n));
2911	}
2912
2913	static struct _FiProg tmp44_ifn = {
2914	(FiFun) CF44_ifn,
2915	0L,
2916	0L,
2917	0L,
2918	0L
2919	};
2920
2921
2922	static FiWord
2923	CF45_rtLazyCatFrFn(FiEnv e1, FiWord P0_fn)
2924	{
2925	PFmt43 T6, T16;
2926	FiClos T0, T1, T2, T3, T4, T5, T10, T11, T12, T13, T14, T15;
2927	FiEnv e0, T9;
2928	PFmt42 T8;
2929	PFmt45 T7;
2930	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
2931	T9 = fiEnvPush(fiNil, ((FiClos) G_CEQ0J_dummyCatDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_CEQ0J_dummyCatDispatchVector )-> env)
2932	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_CEQ0J_dummyCatDispatchVector )-> env);
2933	T15 = fiClosMake(T9, C95_n0)fiClosMakeFun(T9, (FiProg) (C95_n0));
2934	T14 = fiClosMake(T9, C96_b0)fiClosMakeFun(T9, (FiProg) (C96_b0));
2935	T13 = fiClosMake(T9, C97_g0)fiClosMakeFun(T9, (FiProg) (C97_g0));
2936	T12 = fiClosMake(T9, C98_h0)fiClosMakeFun(T9, (FiProg) (C98_h0));
2937	T11 = fiClosMake(T9, C99_pc0)fiClosMakeFun(T9, (FiProg) (C99_pc0));
2938	T10 = fiClosMake(T9, C100_pg0)fiClosMakeFun(T9, (FiProg) (C100_pg0));
2939	T16 = fi0RecNew(struct Fmt43 , CENSUS_Rec)((struct Fmt43 *) fi0RecAlloc(sizeof(struct Fmt43), ( 5)));
2940	T16->X0_tag = (FiWord) 10L;
2941	T16->X1_namer = T15;
2942	T16->X2_noname = (FiWord) fiNil((Ptr) 0);
2943	T16->X3_getter = T13;
2944	T16->X4_hasher = T12;
2945	T16->X5_builder = T14;
2946	T16->X6_parentCounter = T11;
2947	T16->X7_parentGetter = T10;
2948	if ((FiPtr) T16 == (FiPtr) fiNil((Ptr) 0)) goto L0;
2949	T8 = fi0RecNew(struct Fmt42 , CENSUS_Rec)((struct Fmt42 *) fi0RecAlloc(sizeof(struct Fmt42), ( 5)));
2950	T8->X0_cdv = (FiWord) T16;
2951	T8->X1_catRep = (FiWord) fiNil((Ptr) 0);
2952	T5 = fiClosMake(e0, C148_n0)fiClosMakeFun(e0, (FiProg) (C148_n0));
2953	T4 = fiClosMake(e0, C149_b0)fiClosMakeFun(e0, (FiProg) (C149_b0));
2954	T3 = fiClosMake(e0, C150_g0)fiClosMakeFun(e0, (FiProg) (C150_g0));
2955	T2 = fiClosMake(e0, C151_h0)fiClosMakeFun(e0, (FiProg) (C151_h0));
2956	T1 = fiClosMake(e0, C152_pc0)fiClosMakeFun(e0, (FiProg) (C152_pc0));
2957	T0 = fiClosMake(e0, C153_pg0)fiClosMakeFun(e0, (FiProg) (C153_pg0));
2958	T6 = fi0RecNew(struct Fmt43 , CENSUS_Rec)((struct Fmt43 *) fi0RecAlloc(sizeof(struct Fmt43), ( 5)));
2959	T6->X0_tag = (FiWord) 10L;
2960	T6->X1_namer = T5;
2961	T6->X2_noname = (FiWord) fiNil((Ptr) 0);
2962	T6->X3_getter = T3;
2963	T6->X4_hasher = T2;
2964	T6->X5_builder = T4;
2965	T6->X6_parentCounter = T1;
2966	T6->X7_parentGetter = T0;
2967	T7 = fi0RecNew(struct Fmt45 , CENSUS_Rec)((struct Fmt45 *) fi0RecAlloc(sizeof(struct Fmt45), ( 5)));
2968	T7->X0_tag = 0L;
2969	T7->X1_value = P0_fn;
2970	T8->X0_cdv = (FiWord) T6;
2971	T8->X1_catRep = (FiWord) T7;
2972	return (FiWord) T8;
2973	L0: fiHalt((FiSInt) 102L);
2974	return (FiWord) 0L;
2975	}
2976
2977	static struct _FiProg tmp45_rtLazyCatFrFn = {
2978	(FiFun) CF45_rtLazyCatFrFn,
2979	0L,
2980	0L,
2981	0L,
2982	0L
2983	};
2984
2985
2986	static FiWord
2987	CF46_rtLazyDomFrInit(FiEnv e1, FiWord P0_fn, FiWord P1_n)
2988	{
2989	PFmt40 T7, T14;
2990	FiClos T0_ifn, T3, T4, T5, T6, T10, T11, T12, T13;
2991	FiEnv e0, T2, T9;
2992	PFmt41 T8;
2993	PFmt45 T1;
2994	PFmt15 l0;
2995	l0 = fi0New(struct Fmt15 , CENSUS_EnvLevel)((struct Fmt15 *) fi0Alloc(sizeof(struct Fmt15), (19)));
2996	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2997	l0->X0_fn = (FiClos) P0_fn;
2998	l0->X1_n = P1_n;
2999	T0_ifn = fiClosMake(e0, C47_ifn)fiClosMakeFun(e0, (FiProg) (C47_ifn));
3000	T9 = fiEnvPush(fiNil, ((FiClos) G_FJ11F_dummyDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_FJ11F_dummyDispatchVector )-> env)
3001	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_FJ11F_dummyDispatchVector )-> env);
3002	T13 = fiClosMake(T9, C76_n)fiClosMakeFun(T9, (FiProg) (C76_n));
3003	T12 = fiClosMake(T9, C77_dummyg)fiClosMakeFun(T9, (FiProg) (C77_dummyg));
3004	T11 = fiClosMake(T9, C78_h)fiClosMakeFun(T9, (FiProg) (C78_h));
3005	T10 = fiClosMake(T9, C79_i)fiClosMakeFun(T9, (FiProg) (C79_i));
3006	T14 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
3007	T14->X0_tag = (FiWord) 0L;
3008	T14->X1_namer = T13;
3009	T14->X2_noname = (FiWord) fiNil((Ptr) 0);
3010	T14->X3_getter = T12;
3011	T14->X4_hasher = T11;
3012	T14->X5_inheriter = T10;
3013	if ((FiPtr) T14 == (FiPtr) fiNil((Ptr) 0)) goto L1;
3014	T8 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
3015	T8->X0_dispatcher = (FiWord) T14;
3016	T8->X1_domainRep = (FiWord) fiNil((Ptr) 0);
3017	T2 = fiEnvPush(fi0New(struct Fmt24 , CENSUS_EnvLevel), ((FiClos)fiEnvPushFun((FiPtr) (((struct Fmt24 *) fi0Alloc(sizeof(struct Fmt24), (19)))), ((FiClos) G_BXRJI_pointerDV)->env)
3018	G_BXRJI_pointerDV)->env)fiEnvPushFun((FiPtr) (((struct Fmt24 *) fi0Alloc(sizeof(struct Fmt24), (19)))), ((FiClos) G_BXRJI_pointerDV)->env);
3019	T6 = fiClosMake(T2, C81_n)fiClosMakeFun(T2, (FiProg) (C81_n));
3020	T5 = fiClosMake(T2, C82_ptrg)fiClosMakeFun(T2, (FiProg) (C82_ptrg));
3021	T4 = fiClosMake(T2, C83_h)fiClosMakeFun(T2, (FiProg) (C83_h));
3022	((PFmt24) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X0_tmpfn = fiClosMake(T2, C84_tmpfn)fiClosMakeFun(T2, (FiProg) (C84_tmpfn));
3023	T3 = fiClosMake(T2, C86_i)fiClosMakeFun(T2, (FiProg) (C86_i));
3024	T7 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
3025	T7->X0_tag = (FiWord) 0L;
3026	T7->X1_namer = T6;
3027	T7->X2_noname = (FiWord) fiNil((Ptr) 0);
3028	T7->X3_getter = T5;
3029	T7->X4_hasher = T4;
3030	T7->X5_inheriter = T3;
3031	T1 = fi0RecNew(struct Fmt45 , CENSUS_Rec)((struct Fmt45 *) fi0RecAlloc(sizeof(struct Fmt45), ( 5)));
3032	T1->X0_tag = 0L;
3033	T1->X1_value = (FiWord) T0_ifn;
3034	if ((FiPtr) T7 == (FiPtr) fiNil((Ptr) 0)) goto L0;
3035	T8->X0_dispatcher = (FiWord) T7;
3036	T8->X1_domainRep = (FiWord) T1;
3037	return (FiWord) T8;
3038	L0: fiHalt((FiSInt) 102L);
3039	return (FiWord) 0L;
3040	L1: fiHalt((FiSInt) 102L);
3041	return (FiWord) 0L;
3042	}
3043
3044	static struct _FiProg tmp46_rtLazyDomFrInit = {
3045	(FiFun) CF46_rtLazyDomFrInit,
3046	0L,
3047	0L,
3048	0L,
3049	0L
3050	};
3051
3052
3053	static FiWord
3054	CF47_ifn(FiEnv e1)
3055	{
3056	FiWord T0_d;
3057	PFmt15 l1;
3058	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
3059	T0_d = fiCCall1(FiWord, l1->X0_fn, l1->X1_n)((((FiWord ()())(l1->X0_fn)->prog->fun))((l1->X0_fn )->env,l1->X1_n));
3060	if ((FiPtr) T0_d == (FiPtr) fiNil((Ptr) 0)) goto L0;
3061	return T0_d;
3062	L0: fiRaiseException((FiWord) "No Domain found");
3063	fiHalt((FiSInt) 102L);
3064	return (FiWord) 0L;
3065	}
3066
3067	static struct _FiProg tmp47_ifn = {
3068	(FiFun) CF47_ifn,
3069	0L,
3070	0L,
3071	0L,
3072	0L
3073	};
3074
3075
3076	static FiWord
3077	CF48_rtLazyDomFrFn(FiEnv e1, FiWord P0_fn)
3078	{
3079	PFmt40 T6, T13;
3080	FiClos T2, T3, T4, T5, T9, T10, T11, T12;
3081	FiEnv T1, T8;
3082	PFmt41 T7;
3083	PFmt45 T0;
3084	T8 = fiEnvPush(fiNil, ((FiClos) G_FJ11F_dummyDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_FJ11F_dummyDispatchVector )-> env)
3085	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_FJ11F_dummyDispatchVector )-> env);
3086	T12 = fiClosMake(T8, C76_n)fiClosMakeFun(T8, (FiProg) (C76_n));
3087	T11 = fiClosMake(T8, C77_dummyg)fiClosMakeFun(T8, (FiProg) (C77_dummyg));
3088	T10 = fiClosMake(T8, C78_h)fiClosMakeFun(T8, (FiProg) (C78_h));
3089	T9 = fiClosMake(T8, C79_i)fiClosMakeFun(T8, (FiProg) (C79_i));
3090	T13 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
3091	T13->X0_tag = (FiWord) 0L;
3092	T13->X1_namer = T12;
3093	T13->X2_noname = (FiWord) fiNil((Ptr) 0);
3094	T13->X3_getter = T11;
3095	T13->X4_hasher = T10;
3096	T13->X5_inheriter = T9;
3097	if ((FiPtr) T13 == (FiPtr) fiNil((Ptr) 0)) goto L1;
3098	T7 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
3099	T7->X0_dispatcher = (FiWord) T13;
3100	T7->X1_domainRep = (FiWord) fiNil((Ptr) 0);
3101	T1 = fiEnvPush(fi0New(struct Fmt24 , CENSUS_EnvLevel), ((FiClos)fiEnvPushFun((FiPtr) (((struct Fmt24 *) fi0Alloc(sizeof(struct Fmt24), (19)))), ((FiClos) G_BXRJI_pointerDV)->env)
3102	G_BXRJI_pointerDV)->env)fiEnvPushFun((FiPtr) (((struct Fmt24 *) fi0Alloc(sizeof(struct Fmt24), (19)))), ((FiClos) G_BXRJI_pointerDV)->env);
3103	T5 = fiClosMake(T1, C81_n)fiClosMakeFun(T1, (FiProg) (C81_n));
3104	T4 = fiClosMake(T1, C82_ptrg)fiClosMakeFun(T1, (FiProg) (C82_ptrg));
3105	T3 = fiClosMake(T1, C83_h)fiClosMakeFun(T1, (FiProg) (C83_h));
3106	((PFmt24) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X0_tmpfn = fiClosMake(T1, C84_tmpfn)fiClosMakeFun(T1, (FiProg) (C84_tmpfn));
3107	T2 = fiClosMake(T1, C86_i)fiClosMakeFun(T1, (FiProg) (C86_i));
3108	T6 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
3109	T6->X0_tag = (FiWord) 0L;
3110	T6->X1_namer = T5;
3111	T6->X2_noname = (FiWord) fiNil((Ptr) 0);
3112	T6->X3_getter = T4;
3113	T6->X4_hasher = T3;
3114	T6->X5_inheriter = T2;
3115	T0 = fi0RecNew(struct Fmt45 , CENSUS_Rec)((struct Fmt45 *) fi0RecAlloc(sizeof(struct Fmt45), ( 5)));
3116	T0->X0_tag = 0L;
3117	T0->X1_value = P0_fn;
3118	if ((FiPtr) T6 == (FiPtr) fiNil((Ptr) 0)) goto L0;
3119	T7->X0_dispatcher = (FiWord) T6;
3120	T7->X1_domainRep = (FiWord) T0;
3121	return (FiWord) T7;
3122	L0: fiHalt((FiSInt) 102L);
3123	return (FiWord) 0L;
3124	L1: fiHalt((FiSInt) 102L);
3125	return (FiWord) 0L;
3126	}
3127
3128	static struct _FiProg tmp48_rtLazyDomFrFn = {
3129	(FiFun) CF48_rtLazyDomFrFn,
3130	0L,
3131	0L,
3132	0L,
3133	0L
3134	};
3135
3136
3137	static FiWord
3138	CF49_lazyGetExport_BANG_(FiEnv e1, FiWord P0_dom, FiWord P1_n, FiWord
3139	P2_t)
3140	{
3141	PFmt46 T0;
3142	T0 = fi0RecNew(struct Fmt46 , CENSUS_Rec)((struct Fmt46 *) fi0RecAlloc(sizeof(struct Fmt46), ( 5)));
3143	T0->X0_got = (FiWord) 0L;
3144	T0->X1_dom = P0_dom;
3145	T0->X2_name = P1_n;
3146	T0->X3_type = P2_t;
3147	T0->X4_value = (FiWord) fiNil((Ptr) 0);
3148	return (FiWord) T0;
3149	}
3150
3151	static struct _FiProg tmp49_lazyGetExport_BANG_ = {
3152	(FiFun) CF49_lazyGetExport_BANG_,
3153	0L,
3154	0L,
3155	0L,
3156	0L
3157	};
3158
3159
3160	static FiWord
3161	CF50_lazyForceImport(FiEnv e1, FiWord P0_li)
3162	{
3163	FiBool T6;
3164	PFmt41 T5;
3165	FiWord T1, T4;
3166	FiClos T3;
3167	PFmt29 T0, T2;
3168	if ((FiBool) ((PFmt46) P0_li)->X0_got) goto L0;
3169	T0 = fi0RecNew(struct Fmt29 , CENSUS_Rec)((struct Fmt29 *) fi0RecAlloc(sizeof(struct Fmt29), ( 5)));
3170	T0->X0_value = (FiWord) fiNil((Ptr) 0);
3171	T5 = (PFmt41) ((PFmt46) P0_li)->X1_dom;
3172	T4 = T5->X0_dispatcher;
3173	T3 = (FiClos) ((PFmt40) T4)->X3_getter;
3174	T2 = (PFmt29) fiCFun(FiWord, T3)(((FiWord ()())(T3)->prog->fun))((T3)->env, T5->X1_domainRep, (
3175	FiWord) T5, ((PFmt46) P0_li)->X2_name, ((PFmt46) P0_li)->
3176	X3_type, (FiWord) T0, (FiWord) 0L);
3177	fiPTR_IS_NIL(T6, FiBool, (FiPtr) T2)((T6) = (FiBool)((FiPtr) ((FiPtr) T2) == (FiPtr) 0));
3178	if (T6) goto L1;
3179	T1 = T2->X0_value;
3180	((PFmt46) P0_li)->X4_value = T1;
3181	((PFmt46) P0_li)->X0_got = (FiWord) 1L;
3182	((PFmt46) P0_li)->X1_dom = (FiWord) fiNil((Ptr) 0);
3183	L0: return ((PFmt46) P0_li)->X4_value;
3184	L1: fiRaiseException((FiWord) "Export not found");
3185	fiHalt((FiSInt) 102L);
3186	return (FiWord) 0L;
3187	}
3188
3189	static struct _FiProg tmp50_lazyForceImport = {
3190	(FiFun) CF50_lazyForceImport,
3191	0L,
3192	0L,
3193	0L,
3194	0L
3195	};
3196
3197
3198	static void
3199	CF51_domainPrepare_BANG_(FiEnv e1, FiWord P0_td)
3200	{
3201	FiWord T0, T1;
3202	T1 = ((PFmt41) P0_td)->X1_domainRep;
3203	if ((FiPtr) ((PFmt37) T1)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L2;
3204	L3: T0 = ((PFmt37) T1)->X2_hashcode;
3205	if ((FiPtr) ((PFmt37) T1)->X6_names == (FiPtr) fiNil((Ptr) 0)) goto L0;
3206	L1: return ;
3207	L0: fiCCall2(void, (FiClos) ((PFmt37) T1)->X1_f2, T1, T0)((((void ()())((FiClos) ((PFmt37) T1)->X1_f2)->prog-> fun))(((FiClos) ((PFmt37) T1)->X1_f2)->env,T1,T0));
3208	goto L1;
3209	L2: ((PFmt37) T1)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) T1)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) T1)->X0_f1)->env,T1))
3210	PFmt37) T1)->X0_f1, T1)((((FiClos ()())((FiClos) (( PFmt37) T1)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) T1)->X0_f1)->env,T1));
3211	goto L3;
3212	}
3213
3214	static struct _FiProg tmp51_domainPrepare_BANG_ = {
3215	(FiFun) CF51_domainPrepare_BANG_,
3216	0L,
3217	0L,
3218	0L,
3219	0L
3220	};
3221
3222
3223	static FiClos
3224	CF52_rtConstSIntFn(FiEnv e1, FiWord P0_x)
3225	{
3226	PFmt16 l0;
3227	FiEnv e0;
3228	l0 = fi0New(struct Fmt16 , CENSUS_EnvLevel)((struct Fmt16 *) fi0Alloc(sizeof(struct Fmt16), (19)));
3229	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
3230	l0->X0_x = P0_x;
3231	return fiClosMake(e0, C53_rtConstSIntFn)fiClosMakeFun(e0, (FiProg) (C53_rtConstSIntFn));
3232	}
3233
3234	static struct _FiProg tmp52_rtConstSIntFn = {
3235	(FiFun) CF52_rtConstSIntFn,
3236	0L,
3237	0L,
3238	0L,
3239	0L
3240	};
3241
3242
3243	static FiWord
3244	CF53_rtConstSIntFn(FiEnv e1)
3245	{
3246	PFmt16 l1;
3247	l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);
3248	return l1->X0_x;
3249	}
3250
3251	static struct _FiProg tmp53_rtConstSIntFn = {
3252	(FiFun) CF53_rtConstSIntFn,
3253	0L,
3254	0L,
3255	0L,
3256	0L
3257	};
3258
3259
3260	static FiClos
3261	CF54_rtConstNameFn(FiEnv e1, FiWord P0_s)
3262	{
3263	PFmt17 l0;
3264	FiEnv e0;
3265	l0 = fi0New(struct Fmt17 , CENSUS_EnvLevel)((struct Fmt17 *) fi0Alloc(sizeof(struct Fmt17), (19)));
3266	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
3267	l0->X0_s = P0_s;
3268	return fiClosMake(e0, C55_rtConstNameFn)fiClosMakeFun(e0, (FiProg) (C55_rtConstNameFn));
3269	}
3270
3271	static struct _FiProg tmp54_rtConstNameFn = {
3272	(FiFun) CF54_rtConstNameFn,
3273	0L,
3274	0L,
3275	0L,
3276	0L
3277	};
3278
3279
3280	static FiWord
3281	CF55_rtConstNameFn(FiEnv e1)
3282	{
3283	FiWord T1;
3284	PFmt30 T0;
3285	PFmt17 l1;
3286	l1 = (PFmt17) fiEnvLevel(e1)((FiEnv) (e1)->level);
3287	T1 = l1->X0_s;
3288	T0 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
3289	T0->X0_tag = 0L;
3290	T0->X1_p = T1;
3291	return (FiWord) T0;
3292	}
3293
3294	static struct _FiProg tmp55_rtConstNameFn = {
3295	(FiFun) CF55_rtConstNameFn,
3296	0L,
3297	0L,
3298	0L,
3299	0L
3300	};
3301
3302
3303	static FiClos
3304	CF56_rtSingleParamNameFn(FiEnv e1, FiWord P0_s, FiWord P1_d)
3305	{
3306	PFmt19 l0;
3307	FiEnv e0;
3308	l0 = fi0New(struct Fmt19 , CENSUS_EnvLevel)((struct Fmt19 *) fi0Alloc(sizeof(struct Fmt19), (19)));
3309	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
3310	l0->X0_s = P0_s;
3311	l0->X1_d = P1_d;
3312	return fiClosMake(e0, C57_rtSingleParamNameFn)fiClosMakeFun(e0, (FiProg) (C57_rtSingleParamNameFn));
3313	}
3314
3315	static struct _FiProg tmp56_rtSingleParamNameFn = {
3316	(FiFun) CF56_rtSingleParamNameFn,
3317	0L,
3318	0L,
3319	0L,
3320	0L
3321	};
3322
3323
3324	static FiWord
3325	CF57_rtSingleParamNameFn(FiEnv e1)
3326	{
3327	PFmt41 T10;
3328	FiWord T0, *T1, T2, T7, T9;
3329	FiClos T8;
3330	PFmt30 T5, T6;
3331	FiSInt T4;
3332	PFmt28 T3;
3333	PFmt19 l1;
3334	l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
3335	T7 = l1->X0_s;
3336	T6 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
3337	T6->X0_tag = 0L;
3338	T6->X1_p = T7;
3339	T10 = (PFmt41) l1->X1_d;
3340	T9 = T10->X0_dispatcher;
3341	T8 = (FiClos) ((PFmt40) T9)->X1_namer;
3342	T0 = fiCCall1(FiWord, T8, T10->X1_domainRep)((((FiWord ()())(T8)->prog->fun))((T8)->env,T10-> X1_domainRep));
3343	fiARRNEW_Word(T1, FiWord, 2L)((T1) = (FiWord) fiArrNew_Word(2L));
3344	T1[0L] = (FiWord) T6;
3345	T1[1L] = T0;
3346	T2 = (FiWord) fiNil((Ptr) 0);
3347	T4 = 0L;
3348	L0: if (T4 <= 1L) goto L1;
3349	T5 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
3350	T5->X0_tag = 1L;
3351	T5->X1_p = T2;
3352	return (FiWord) T5;
3353	L1: T3 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
3354	T3->X0_first = T1[2L - T4 - 1L];
3355	T3->X1_rest = T2;
3356	T2 = (FiWord) T3;
3357	T4 = T4 + 1L;
3358	goto L0;
3359	}
3360
3361	static struct _FiProg tmp57_rtSingleParamNameFn = {
3362	(FiFun) CF57_rtSingleParamNameFn,
3363	0L,
3364	0L,
3365	0L,
3366	0L
3367	};
3368
3369
3370	static void
3371	CF58_rtAddStrings(FiEnv e1, FiWord P0_a1, FiWord P1_a2)
3372	{
3373	PFmt27 T11;
3374	FiSInt T7, T8, T9, T10;
3375	FiWord T1, T3, T4, T5, T6;
3376	PFmt28 T0, T2;
3377	PFmt26 l1;
3378	l1 = (PFmt26) fiEnvLevel(e1)((FiEnv) (e1)->level);
3379	T11 = (PFmt27) l1->X0_theStringTable;
3380	T9 = (FiSInt) ((PFmt39) P0_a1)->X1_nvalues;
3381	T8 = 1L;
3382	if (1L <= T9) goto L3;
3383	L0: return ;
3384	L3: T4 = ((FiWord*) ((PFmt39) P0_a1)->X2_values)[0L];
3385	T6 = T4;
3386	T10 = (FiSInt) ((PFmt39) P1_a2)->X1_nvalues;
3387	T7 = 1L;
3388	L1: if (T7 <= T10) goto L2;
3389	goto L0;
3390	L2: T5 = ((FiWord*) ((PFmt39) P1_a2)->X2_values)[T7 - 1L];
3391	T3 = T11->X1_codes;
3392	T2 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
3393	T2->X0_first = T6;
3394	T2->X1_rest = T3;
3395	T11->X1_codes = (FiWord) T2;
3396	T1 = T11->X0_names;
3397	T0 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
3398	T0->X0_first = T5;
3399	T0->X1_rest = T1;
3400	T11->X0_names = (FiWord) T0;
3401	T8 = T8 + 1L;
3402	if (T8 <= T9) goto L4;
3403	goto L0;
3404	L4: T4 = ((FiWord*) ((PFmt39) P0_a1)->X2_values)[T8 - 1L];
3405	T6 = T4;
3406	T7 = T7 + 1L;
3407	goto L1;
3408	}
3409
3410	static struct _FiProg tmp58_rtAddStrings = {
3411	(FiFun) CF58_rtAddStrings,
3412	0L,
3413	0L,
3414	0L,
3415	0L
3416	};
3417
3418
3419	static FiWord
3420	CF59_rtCacheMake(FiEnv e1)
3421	{
3422	FiSInt T3, T4, T7, T8;
3423	FiPtr T2, T6;
3424	PFmt39 T1, T5;
3425	PFmt38 T0;
3426	T0 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
3427	T0->X0_posn = (FiWord) 0L;
3428	T1 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
3429	T1->X0_size = (FiWord) 15L;
3430	T1->X1_nvalues = (FiWord) 15L;
3431	T2 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
3432	T4 = 1L;
3433	L0: if (T4 <= 15L) goto L1;
3434	T1->X2_values = (FiWord) T2;
3435	T0->X1_keys = (FiWord) T1;
3436	T5 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
3437	T5->X0_size = (FiWord) 15L;
3438	T5->X1_nvalues = (FiWord) 15L;
3439	T6 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
3440	T8 = 1L;
3441	L2: if (T8 <= 15L) goto L3;
3442	T5->X2_values = (FiWord) T6;
3443	T0->X2_values = (FiWord) T5;
3444	T0->X3_size = (FiWord) 15L;
3445	return (FiWord) T0;
3446	L3: T7 = T8 - 1L;
3447	((FiWord*) T6)[T7] = (FiWord) fiNil((Ptr) 0);
3448	T8 = T8 + 1L;
3449	goto L2;
3450	L1: T3 = T4 - 1L;
3451	((FiWord*) T2)[T3] = (FiWord) fiNil((Ptr) 0);
3452	T4 = T4 + 1L;
3453	goto L0;
3454	}
3455
3456	static struct _FiProg tmp59_rtCacheMake = {
3457	(FiFun) CF59_rtCacheMake,
3458	0L,
3459	0L,
3460	0L,
3461	0L
3462	};
3463
3464
3465	static FiWord
3466	CF60_rtCacheExplicitMake(FiEnv e1, FiSInt P0_x)
3467	{
3468	FiSInt T3, T4, T7, T8;
3469	FiPtr T2, T6;
3470	PFmt39 T1, T5;
3471	PFmt38 T0;
3472	T0 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
3473	T0->X0_posn = (FiWord) 0L;
3474	T1 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
3475	T1->X0_size = (FiWord) P0_x;
3476	T1->X1_nvalues = (FiWord) P0_x;
3477	T2 = (FiPtr*) (FiPtr) fiArrNew_Word(P0_x);
3478	T4 = 1L;
3479	L0: if (T4 <= P0_x) goto L1;
3480	T1->X2_values = (FiWord) T2;
3481	T0->X1_keys = (FiWord) T1;
3482	T5 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
3483	T5->X0_size = (FiWord) P0_x;
3484	T5->X1_nvalues = (FiWord) P0_x;
3485	T6 = (FiPtr*) (FiPtr) fiArrNew_Word(P0_x);
3486	T8 = 1L;
3487	L2: if (T8 <= P0_x) goto L3;
3488	T5->X2_values = (FiWord) T6;
3489	T0->X2_values = (FiWord) T5;
3490	T0->X3_size = (FiWord) P0_x;
3491	return (FiWord) T0;
3492	L3: T7 = T8 - 1L;
3493	((FiWord*) T6)[T7] = (FiWord) fiNil((Ptr) 0);
3494	T8 = T8 + 1L;
3495	goto L2;
3496	L1: T3 = T4 - 1L;
3497	((FiWord*) T2)[T3] = (FiWord) fiNil((Ptr) 0);
3498	T4 = T4 + 1L;
3499	goto L0;
3500	}
3501
3502	static struct _FiProg tmp60_rtCacheExplicitMake = {
3503	(FiFun) CF60_rtCacheExplicitMake,
3504	0L,
3505	0L,
3506	0L,
3507	0L
3508	};
3509
3510
3511	static void
3512	CF61_rtCacheCheck(FiEnv e1, FiWord P0_cache, FiWord P1_key, FiWord* R0,
3513	FiWord* R1)
3514	{
3515	*R0 = (FiWord) fiNil((Ptr) 0);
3516	*R1 = (FiWord) 0L;
3517	return ;
3518	}
3519
3520	static struct _FiProg tmp61_rtCacheCheck = {
3521	(FiFun) CF61_rtCacheCheck,
3522	0L,
3523	0L,
3524	0L,
3525	0L
3526	};
3527
3528
3529	static FiWord
3530	CF62_rtCacheAdd(FiEnv e1, FiWord P0_cache, FiWord P1_key, FiWord
3531	P2_value)
3532	{
3533	FiWord T6, T8;
3534	FiPtr T5, T7;
3535	FiSInt T0, T1, T2, T3, T4;
3536	T1 = (FiSInt) ((PFmt38) P0_cache)->X0_posn;
3537	T8 = ((PFmt38) P0_cache)->X1_keys;
3538	T7 = (FiPtr*) ((PFmt39) T8)->X2_values;
3539	((FiWord*) T7)[T1] = P1_key;
3540	T0 = (FiSInt) ((PFmt38) P0_cache)->X0_posn;
3541	T6 = ((PFmt38) P0_cache)->X2_values;
3542	T5 = (FiPtr*) ((PFmt39) T6)->X2_values;
3543	((FiWord*) T5)[T0] = P2_value;
3544	T3 = (FiSInt) ((PFmt38) P0_cache)->X0_posn;
3545	T4 = (FiSInt) ((PFmt38) P0_cache)->X3_size;
3546	T3 = T3 - T4;
3547	T2 = T3 + 1L;
3548	if (T2 < 0L) goto L0;
3549	L1: ((PFmt38) P0_cache)->X0_posn = (FiWord) T2;
3550	return P2_value;
3551	L0: T2 = T2 + T4;
3552	goto L1;
3553	}
3554
3555	static struct _FiProg tmp62_rtCacheAdd = {
3556	(FiFun) CF62_rtCacheAdd,
3557	0L,
3558	0L,
3559	0L,
3560	0L
3561	};
3562
3563
3564	static FiWord
3565	CF63_aldorDispatchVector(FiEnv e1)
3566	{
3567	PFmt40 T4;
3568	FiClos T0_i, T1_h, T2_ag, T3_n;
3569	FiEnv e0;
3570	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
3571	T3_n = fiClosMake(e0, C64_n)fiClosMakeFun(e0, (FiProg) (C64_n));
3572	T2_ag = fiClosMake(e0, C65_ag)fiClosMakeFun(e0, (FiProg) (C65_ag));
3573	T1_h = fiClosMake(e0, C66_h)fiClosMakeFun(e0, (FiProg) (C66_h));
3574	T0_i = fiClosMake(e0, C67_i)fiClosMakeFun(e0, (FiProg) (C67_i));
3575	T4 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
3576	T4->X0_tag = (FiWord) 0L;
3577	T4->X1_namer = T3_n;
3578	T4->X2_noname = (FiWord) fiNil((Ptr) 0);
3579	T4->X3_getter = T2_ag;
3580	T4->X4_hasher = T1_h;
3581	T4->X5_inheriter = T0_i;
3582	return (FiWord) T4;
3583	}
3584
3585	static struct _FiProg tmp63_aldorDispatchVector = {
3586	(FiFun) CF63_aldorDispatchVector,
3587	0L,
3588	0L,
3589	0L,
3590	0L
3591	};
3592
3593
3594	static FiWord
3595	CF64_n(FiEnv e1, FiWord P0_x)
3596	{
3597	if ((FiPtr) ((PFmt37) P0_x)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L0;
3598	L1: return fiCCall0(FiWord, ((PFmt37) P0_x)->X12_nameFn)((((FiWord ()())(((PFmt37) P0_x)->X12_nameFn)->prog-> fun))((((PFmt37) P0_x)->X12_nameFn)->env));
3599	L0: ((PFmt37) P0_x)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) P0_x)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_x)->X0_f1)->env,P0_x ))
3600	PFmt37) P0_x)->X0_f1, P0_x)((((FiClos ()())((FiClos) (( PFmt37) P0_x)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_x)->X0_f1)->env,P0_x ));
3601	goto L1;
3602	}
3603
3604	static struct _FiProg tmp64_n = {
3605	(FiFun) CF64_n,
3606	0L,
3607	0L,
3608	0L,
3609	0L
3610	};
3611
3612
3613	static FiWord
3614	CF65_ag(FiEnv e1, FiWord P0_d, FiWord P1_pc, FiWord P2_n, FiWord
3615	P3_t, FiWord P4_b, FiWord P5_flg)
3616	{
3617	FiBool T36, T59, T75, T95, T96, T97, T98, T99, T100, T101, T102, T103, T104, T105, T106, T107, T108, T109, T110, T111;
3618	FiSInt T3, T4, T5, T6, T7, T23, T44, T46, T73, T74, T77, T79, T82, T83, T84, T85, T86, T87, T88, T89, T90, T91, T92, T93, T94;
3619	FiWord T1, T9, T11, T12, *T13, T15, T16, T17, T18, T19, T21, T22, T24, T27, T30, T31, T34, T37, T38, T40, T41, T42, T43, T45, T47, T50, T53, T54, T57, T60, T61, T63, T65, T66, T68, T70, T71, T72, T76, T78, T80, T81;
3620	PFmt41 T39, T64, T69;
3621	FiClos T20, T26, T29, T33, T49, T52, T56, T62, T67;
3622	PFmt28 T25, T28, T35, T48, T51, T58;
3623	PFmt42 T32, T55;
3624	PFmt47 T14;
3625	FiPtr T8, T10;
3626	PFmt29 T0, T2;
3627	fiARRNEW_Word(T13, FiWord, 4L)((T13) = (FiWord) fiArrNew_Word(4L));
3628	T14 = fi0RecNew(struct Fmt47 , CENSUS_Rec)((struct Fmt47 *) fi0RecAlloc(sizeof(struct Fmt47), ( 5)));
3629	T14->X0_size = 4L;
3630	T14->X1_values = (FiWord*) T13;
3631	T13[0L] = P1_pc;
3632	T13[1L] = P2_n;
3633	T13[2L] = P3_t;
3634	T13[3L] = P5_flg;
3635	((PFmt37) P0_d)->X9_ngets = (FiWord) ((FiSInt) ((PFmt37)
3636	P0_d)->X9_ngets + 1L);
3637	if (100L < (FiSInt) ((PFmt37) P0_d)->X9_ngets) goto L0;
3638	if ((FiSInt) P2_n == 51482908L) goto L1;
3639	if ((FiPtr) ((PFmt37) P0_d)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L47;
3640	L48: T71 = ((PFmt37) P0_d)->X2_hashcode;
3641	if ((FiPtr) ((PFmt37) P0_d)->X6_names == (FiPtr) fiNil((Ptr) 0)) goto L45;
3642	L46: T81 = ((PFmt37) P0_d)->X6_names;
3643	T78 = ((PFmt37) P0_d)->X7_types;
3644	T80 = ((PFmt37) P0_d)->X8_exports;
3645	T93 = (FiSInt) ((PFmt39) T81)->X1_nvalues;
3646	T86 = 1L;
3647	if (1L <= T93) goto L61;
3648	L25: if ((FiBool) P5_flg) goto L27;
3649	T44 = 2L;
3650	L28: T75 = 1L;
3651	T77 = 1L;
3652	L51: if (T77 <= T44) goto L52;
3653	T76 = (FiWord) fiNil((Ptr) 0);
3654	L53: T0 = (PFmt29) T76;
3655	L2: ((PFmt37) P0_d)->X9_ngets = (FiWord) ((FiSInt) ((PFmt37) P0_d)->
3656	X9_ngets - 1L);
3657	T12 = ((PFmt37) P0_d)->X11_cache;
3658	fiPTR_IS_NIL(T95, FiBool, (FiPtr) T0)((T95) = (FiBool)((FiPtr) ((FiPtr) T0) == (FiPtr) 0));
3659	if (T95) goto L3;
3660	T2 = fi0RecNew(struct Fmt29 , CENSUS_Rec)((struct Fmt29 *) fi0RecAlloc(sizeof(struct Fmt29), ( 5)));
3661	T2->X0_value = T0->X0_value;
3662	T1 = (FiWord) T2;
3663	L4: T4 = (FiSInt) ((PFmt38) T12)->X0_posn;
3664	T11 = ((PFmt38) T12)->X1_keys;
3665	T10 = (FiPtr*) ((PFmt39) T11)->X2_values;
3666	((FiWord*) T10)[T4] = (FiWord) T14;
3667	T3 = (FiSInt) ((PFmt38) T12)->X0_posn;
3668	T9 = ((PFmt38) T12)->X2_values;
3669	T8 = (FiPtr*) ((PFmt39) T9)->X2_values;
3670	((FiWord*) T8)[T3] = T1;
3671	T6 = (FiSInt) ((PFmt38) T12)->X0_posn;
3672	T7 = (FiSInt) ((PFmt38) T12)->X3_size;
3673	T6 = T6 - T7;
3674	T5 = T6 + 1L;
3675	if (T5 < 0L) goto L5;
3676	L6: ((PFmt38) T12)->X0_posn = (FiWord) T5;
3677	return (FiWord) T0;
3678	L5: T5 = T5 + T7;
3679	goto L6;
3680	L3: T1 = (FiWord) fiNil((Ptr) 0);
3681	goto L4;
3682	L52: T43 = ((PFmt37) P0_d)->X5_defaults;
3683	if (T75) goto L29;
3684	fiPTR_IS_NIL(T96, FiBool, (FiPtr) T43)((T96) = (FiBool)((FiPtr) ((FiPtr) T43) == (FiPtr) 0));
3685	if (T96) goto L29;
3686	T58 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
3687	T58->X0_first = T43;
3688	T58->X1_rest = (FiWord) fiNil((Ptr) 0);
3689	T48 = T58;
3690	L30: fiPTR_IS_NIL(T59, FiBool, (FiPtr) T48)((T59) = (FiBool)((FiPtr) ((FiPtr) T48) == (FiPtr) 0));
3691	if (T59) goto L31;
3692	T55 = (PFmt42) T48->X0_first;
3693	T54 = T48->X1_rest;
3694	T48 = (PFmt28) T54;
3695	T50 = T55->X0_cdv;
3696	T49 = (FiClos) ((PFmt43) T50)->X3_getter;
3697	T47 = fiCCall5(FiWord, T49, T55->X1_catRep, P1_pc, P2_n, P3_t,((((FiWord ()())(T49)->prog->fun))((T49)->env,T55-> X1_catRep,P1_pc,P2_n,P3_t,P4_b))
3698	P4_b)((((FiWord ()())(T49)->prog->fun))((T49)->env,T55-> X1_catRep,P1_pc,P2_n,P3_t,P4_b));
3699	fiPTR_IS_NIL(T97, FiBool, (FiPtr) T47)((T97) = (FiBool)((FiPtr) ((FiPtr) T47) == (FiPtr) 0));
3700	if (T97) goto L34;
3701	T60 = T47;
3702	L36: fiPTR_IS_NIL(T98, FiBool, (FiPtr) T60)((T98) = (FiBool)((FiPtr) ((FiPtr) T60) == (FiPtr) 0));
3703	if (T98) goto L29;
3704	T76 = T60;
3705	goto L53;
3706	L29: T42 = ((PFmt37) P0_d)->X3_parents;
3707	if ((FiPtr) T42 == (FiPtr) fiNil((Ptr) 0)) goto L37;
3708	T90 = (FiSInt) ((PFmt39) T42)->X1_nvalues;
3709	T87 = 1L;
3710	L38: if (T87 <= T90) goto L59;
3711	T65 = (FiWord) fiNil((Ptr) 0);
3712	L40: fiPTR_IS_NIL(T99, FiBool, (FiPtr) T65)((T99) = (FiBool)((FiPtr) ((FiPtr) T65) == (FiPtr) 0));
3713	if (T99) goto L54;
3714	T76 = T65;
3715	goto L53;
3716	L54: T41 = ((PFmt37) P0_d)->X4_extendees;
3717	if ((FiPtr) T41 == (FiPtr) fiNil((Ptr) 0)) goto L41;
3718	T91 = (FiSInt) ((PFmt39) T41)->X1_nvalues;
3719	T88 = 1L;
3720	L42: if (T88 <= T91) goto L60;
3721	T70 = (FiWord) fiNil((Ptr) 0);
3722	L44: fiPTR_IS_NIL(T100, FiBool, (FiPtr) T70)((T100) = (FiBool)((FiPtr) ((FiPtr) T70) == (FiPtr) 0));
3723	if (T100) goto L57;
3724	T76 = T70;
3725	goto L53;
3726	L57: T75 = !T75;
3727	T77 = T77 + 1L;
3728	goto L51;
3729	L60: T69 = (PFmt41) ((FiWord*) ((PFmt39) T41)->X2_values)[T88 - 1L];
3730	fiPTR_IS_NIL(T101, FiBool, (FiPtr) T69)((T101) = (FiBool)((FiPtr) ((FiPtr) T69) == (FiPtr) 0));
3731	if (T101) goto L43;
3732	T68 = T69->X0_dispatcher;
3733	T67 = (FiClos) ((PFmt40) T68)->X3_getter;
3734	T66 = fiCFun(FiWord, T67)(((FiWord ()())(T67)->prog->fun))((T67)->env, T69->X1_domainRep, P1_pc,
3735	P2_n, P3_t, P4_b, (FiWord) T75);
3736	fiPTR_IS_NIL(T102, FiBool, (FiPtr) T66)((T102) = (FiBool)((FiPtr) ((FiPtr) T66) == (FiPtr) 0));
3737	if (T102) goto L43;
3738	T70 = T66;
3739	goto L44;
3740	L43: T88 = T88 + 1L;
3741	goto L42;
3742	L41: T70 = (FiWord) fiNil((Ptr) 0);
3743	goto L44;
3744	L59: T64 = (PFmt41) ((FiWord*) ((PFmt39) T42)->X2_values)[T87 - 1L];
3745	fiPTR_IS_NIL(T103, FiBool, (FiPtr) T64)((T103) = (FiBool)((FiPtr) ((FiPtr) T64) == (FiPtr) 0));
3746	if (T103) goto L39;
3747	T63 = T64->X0_dispatcher;
3748	T62 = (FiClos) ((PFmt40) T63)->X3_getter;
3749	T61 = fiCFun(FiWord, T62)(((FiWord ()())(T62)->prog->fun))((T62)->env, T64->X1_domainRep, P1_pc,
3750	P2_n, P3_t, P4_b, (FiWord) T75);
3751	fiPTR_IS_NIL(T104, FiBool, (FiPtr) T61)((T104) = (FiBool)((FiPtr) ((FiPtr) T61) == (FiPtr) 0));
3752	if (T104) goto L39;
3753	T65 = T61;
3754	goto L40;
3755	L39: T87 = T87 + 1L;
3756	goto L38;
3757	L37: T65 = (FiWord) fiNil((Ptr) 0);
3758	goto L40;
3759	L34: T57 = T55->X0_cdv;
3760	T56 = (FiClos) ((PFmt43) T57)->X6_parentCounter;
3761	T46 = (FiSInt) fiCCall1(FiWord, T56, T55->X1_catRep)((((FiWord ()())(T56)->prog->fun))((T56)->env,T55-> X1_catRep));
3762	L32: if (T46 > 0) goto L35;
3763	goto L30;
3764	L35: T53 = T55->X0_cdv;
3765	T52 = (FiClos) ((PFmt43) T53)->X7_parentGetter;
3766	T45 = fiCCall2(FiWord, T52, T55->X1_catRep, (FiWord) T46)((((FiWord ()())(T52)->prog->fun))((T52)->env,T55-> X1_catRep,(FiWord) T46));
3767	fiPTR_IS_NIL(T105, FiBool, (FiPtr) T45)((T105) = (FiBool)((FiPtr) ((FiPtr) T45) == (FiPtr) 0));
3768	if (T105) goto L33;
3769	T51 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
3770	T51->X0_first = T45;
3771	T51->X1_rest = (FiWord) T48;
3772	T48 = T51;
3773	L33: T46 = T46 - 1L;
3774	goto L32;
3775	L31: T60 = (FiWord) fiNil((Ptr) 0);
3776	goto L36;
3777	L27: T44 = 1L;
3778	goto L28;
3779	L61: T73 = (FiSInt) ((FiWord*) ((PFmt39) T81)->X2_values)[0L];
3780	T82 = T73;
3781	T94 = (FiSInt) ((PFmt39) T78)->X1_nvalues;
3782	T84 = 1L;
3783	if (1L <= T94) goto L63;
3784	goto L25;
3785	L63: T74 = (FiSInt) ((FiWord*) ((PFmt39) T78)->X2_values)[0L];
3786	T79 = T74;
3787	T92 = (FiSInt) ((PFmt39) T80)->X1_nvalues;
3788	T85 = 1L;
3789	L49: if (T85 <= T92) goto L58;
3790	goto L25;
3791	L58: T72 = ((FiWord*) ((PFmt39) T80)->X2_values)[T85 - 1L];
3792	if (T82 == 0) goto L50;
3793	if (T82 != (FiSInt) P2_n) goto L50;
3794	if ((FiSInt) P3_t == T79) goto L26;
3795	if ((FiSInt) P3_t == -1L) goto L26;
3796	L50: T86 = T86 + 1L;
3797	if (T86 <= T93) goto L62;
3798	goto L25;
3799	L62: T73 = (FiSInt) ((FiWord*) ((PFmt39) T81)->X2_values)[T86 - 1L];
3800	T82 = T73;
3801	T84 = T84 + 1L;
3802	if (T84 <= T94) goto L64;
3803	goto L25;
3804	L64: T74 = (FiSInt) ((FiWord*) ((PFmt39) T78)->X2_values)[T84 - 1L];
3805	T79 = T74;
3806	T85 = T85 + 1L;
3807	goto L49;
3808	L26: ((PFmt29) P4_b)->X0_value = T72;
3809	T76 = P4_b;
3810	goto L53;
3811	L45: fiCCall2(void, (FiClos) ((PFmt37) P0_d)->X1_f2, P0_d, T71)((((void ()())((FiClos) ((PFmt37) P0_d)->X1_f2)->prog ->fun))(((FiClos) ((PFmt37) P0_d)->X1_f2)->env,P0_d, T71));
3812	goto L46;
3813	L47: ((PFmt37) P0_d)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) P0_d)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_d)->X0_f1)->env,P0_d ))
3814	PFmt37) P0_d)->X0_f1, P0_d)((((FiClos ()())((FiClos) (( PFmt37) P0_d)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_d)->X0_f1)->env,P0_d ));
3815	goto L48;
3816	L1: if ((FiPtr) ((PFmt37) P0_d)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L20;
3817	L21: T38 = ((PFmt37) P0_d)->X2_hashcode;
3818	if ((FiPtr) ((PFmt37) P0_d)->X6_names == (FiPtr) fiNil((Ptr) 0)) goto L18;
3819	L19: T17 = ((PFmt37) P0_d)->X5_defaults;
3820	fiPTR_IS_NIL(T106, FiBool, (FiPtr) T17)((T106) = (FiBool)((FiPtr) ((FiPtr) T17) == (FiPtr) 0));
3821	if (T106) goto L7;
3822	T35 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
3823	T35->X0_first = T17;
3824	T35->X1_rest = (FiWord) fiNil((Ptr) 0);
3825	T25 = T35;
3826	L11: fiPTR_IS_NIL(T36, FiBool, (FiPtr) T25)((T36) = (FiBool)((FiPtr) ((FiPtr) T25) == (FiPtr) 0));
3827	if (T36) goto L12;
3828	T32 = (PFmt42) T25->X0_first;
3829	T31 = T25->X1_rest;
3830	T25 = (PFmt28) T31;
3831	T27 = T32->X0_cdv;
3832	T26 = (FiClos) ((PFmt43) T27)->X3_getter;
3833	T24 = fiCCall5(FiWord, T26, T32->X1_catRep, P1_pc, (FiWord)((((FiWord ()())(T26)->prog->fun))((T26)->env,T32-> X1_catRep,P1_pc,(FiWord) 51482908L,P3_t,P4_b))
3834	51482908L, P3_t, P4_b)((((FiWord ()())(T26)->prog->fun))((T26)->env,T32-> X1_catRep,P1_pc,(FiWord) 51482908L,P3_t,P4_b));
3835	fiPTR_IS_NIL(T107, FiBool, (FiPtr) T24)((T107) = (FiBool)((FiPtr) ((FiPtr) T24) == (FiPtr) 0));
3836	if (T107) goto L15;
3837	T37 = T24;
3838	L17: fiPTR_IS_NIL(T108, FiBool, (FiPtr) T37)((T108) = (FiBool)((FiPtr) ((FiPtr) T37) == (FiPtr) 0));
3839	if (T108) goto L55;
3840	T18 = T37;
3841	L8: T40 = T18;
3842	L24: T0 = (PFmt29) T40;
3843	goto L2;
3844	L55: T15 = ((PFmt37) P0_d)->X4_extendees;
3845	if ((FiPtr) T15 == (FiPtr) fiNil((Ptr) 0)) goto L9;
3846	T89 = (FiSInt) ((PFmt39) T15)->X1_nvalues;
3847	T83 = 1L;
3848	L22: if (T83 <= T89) goto L56;
3849	T19 = (FiWord) fiNil((Ptr) 0);
3850	L10: T18 = T19;
3851	goto L8;
3852	L56: T39 = (PFmt41) ((FiWord*) ((PFmt39) T15)->X2_values)[T83 - 1L];
3853	fiPTR_IS_NIL(T109, FiBool, (FiPtr) T39)((T109) = (FiBool)((FiPtr) ((FiPtr) T39) == (FiPtr) 0));
3854	if (T109) goto L23;
3855	T21 = T39->X0_dispatcher;
3856	T20 = (FiClos) ((PFmt40) T21)->X3_getter;
3857	T16 = fiCFun(FiWord, T20)(((FiWord ()())(T20)->prog->fun))((T20)->env, T39->X1_domainRep, P1_pc, (
3858	FiWord) 51482908L, P3_t, P4_b, P5_flg);
3859	fiPTR_IS_NIL(T110, FiBool, (FiPtr) T16)((T110) = (FiBool)((FiPtr) ((FiPtr) T16) == (FiPtr) 0));
3860	if (T110) goto L23;
3861	T40 = T16;
3862	goto L24;
3863	L23: T83 = T83 + 1L;
3864	goto L22;
3865	L9: T19 = (FiWord) fiNil((Ptr) 0);
3866	goto L10;
3867	L15: T34 = T32->X0_cdv;
3868	T33 = (FiClos) ((PFmt43) T34)->X6_parentCounter;
3869	T23 = (FiSInt) fiCCall1(FiWord, T33, T32->X1_catRep)((((FiWord ()())(T33)->prog->fun))((T33)->env,T32-> X1_catRep));
3870	L13: if (T23 > 0) goto L16;
3871	goto L11;
3872	L16: T30 = T32->X0_cdv;
3873	T29 = (FiClos) ((PFmt43) T30)->X7_parentGetter;
3874	T22 = fiCCall2(FiWord, T29, T32->X1_catRep, (FiWord) T23)((((FiWord ()())(T29)->prog->fun))((T29)->env,T32-> X1_catRep,(FiWord) T23));
3875	fiPTR_IS_NIL(T111, FiBool, (FiPtr) T22)((T111) = (FiBool)((FiPtr) ((FiPtr) T22) == (FiPtr) 0));
3876	if (T111) goto L14;
3877	T28 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
3878	T28->X0_first = T22;
3879	T28->X1_rest = (FiWord) T25;
3880	T25 = T28;
3881	L14: T23 = T23 - 1L;
3882	goto L13;
3883	L12: T37 = (FiWord) fiNil((Ptr) 0);
3884	goto L17;
3885	L7: T40 = (FiWord) fiNil((Ptr) 0);
3886	goto L24;
3887	L18: fiCCall2(void, (FiClos) ((PFmt37) P0_d)->X1_f2, P0_d, T38)((((void ()())((FiClos) ((PFmt37) P0_d)->X1_f2)->prog ->fun))(((FiClos) ((PFmt37) P0_d)->X1_f2)->env,P0_d, T38));
3888	goto L19;
3889	L20: ((PFmt37) P0_d)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) P0_d)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_d)->X0_f1)->env,P0_d ))
3890	PFmt37) P0_d)->X0_f1, P0_d)((((FiClos ()())((FiClos) (( PFmt37) P0_d)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_d)->X0_f1)->env,P0_d ));
3891	goto L21;
3892	L0: fiRaiseException((FiWord) "Circular get broken");
3893	fiHalt((FiSInt) 102L);
3894	return (FiWord) 0L;
3895	}
3896
3897	static struct _FiProg tmp65_ag = {
3898	(FiFun) CF65_ag,
3899	0L,
3900	0L,
3901	0L,
3902	0L
3903	};
3904
3905
3906	static FiWord
3907	CF66_h(FiEnv e1, FiWord P0_x)
3908	{
3909	if ((FiPtr) ((PFmt37) P0_x)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L0;
3910	L1: return ((PFmt37) P0_x)->X2_hashcode;
3911	L0: ((PFmt37) P0_x)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) P0_x)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_x)->X0_f1)->env,P0_x ))
3912	PFmt37) P0_x)->X0_f1, P0_x)((((FiClos ()())((FiClos) (( PFmt37) P0_x)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_x)->X0_f1)->env,P0_x ));
3913	goto L1;
3914	}
3915
3916	static struct _FiProg tmp66_h = {
3917	(FiFun) CF66_h,
3918	0L,
3919	0L,
3920	0L,
3921	0L
3922	};
3923
3924
3925	static FiWord
3926	CF67_i(FiEnv e1, FiWord P0_dom, FiWord P1_child)
3927	{
3928	PFmt40 T17;
3929	FiClos T0_fn, T13, T14, T15, T16;
3930	FiEnv e0, T12;
3931	PFmt41 T11;
3932	FiSInt T5, T6, T9, T10;
3933	FiPtr T4, T8;
3934	PFmt39 T3, T7;
3935	PFmt38 T2;
3936	PFmt37 T1;
3937	PFmt21 l0;
3938	l0 = fi0New(struct Fmt21 , CENSUS_EnvLevel)((struct Fmt21 *) fi0Alloc(sizeof(struct Fmt21), (19)));
3939	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
3940	l0->X0_dom = P0_dom;
3941	l0->X1_child = P1_child;
3942	T0_fn = fiClosMake(e0, C68_fn)fiClosMakeFun(e0, (FiProg) (C68_fn));
3943	T1 = fi0RecNew(struct Fmt37 , CENSUS_Rec)((struct Fmt37 *) fi0RecAlloc(sizeof(struct Fmt37), ( 5)));
3944	T1->X0_f1 = (FiWord) T0_fn;
3945	T1->X1_f2 = (FiWord) fiNil((Ptr) 0);
3946	T1->X2_hashcode = (FiWord) 0L;
3947	T1->X3_parents = (FiWord) fiNil((Ptr) 0);
3948	T1->X4_extendees = (FiWord) fiNil((Ptr) 0);
3949	T1->X5_defaults = (FiWord) fiNil((Ptr) 0);
3950	T1->X6_names = (FiWord) fiNil((Ptr) 0);
3951	T1->X7_types = (FiWord) fiNil((Ptr) 0);
3952	T1->X8_exports = (FiWord) fiNil((Ptr) 0);
3953	T1->X9_ngets = (FiWord) 0L;
3954	T1->X10_serial = (FiWord) 0L;
3955	T2 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
3956	T2->X0_posn = (FiWord) 0L;
3957	T3 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
3958	T3->X0_size = (FiWord) 15L;
3959	T3->X1_nvalues = (FiWord) 15L;
3960	T4 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
3961	T6 = 1L;
3962	L0: if (T6 <= 15L) goto L1;
3963	T3->X2_values = (FiWord) T4;
3964	T2->X1_keys = (FiWord) T3;
3965	T7 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
3966	T7->X0_size = (FiWord) 15L;
3967	T7->X1_nvalues = (FiWord) 15L;
3968	T8 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
3969	T10 = 1L;
3970	L2: if (T10 <= 15L) goto L3;
3971	T7->X2_values = (FiWord) T8;
3972	T2->X2_values = (FiWord) T7;
3973	T2->X3_size = (FiWord) 15L;
3974	T1->X11_cache = (FiWord) T2;
3975	T1->X12_nameFn = fiClosMake(e0, C147_new)fiClosMakeFun(e0, (FiProg) (C147_new));
3976	T1->X13_id = (FiWord) 0L;
3977	T12 = fiEnvPush(fiNil, ((FiClos) G_L6ZD3_aldorDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_L6ZD3_aldorDispatchVector )-> env)
3978	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_L6ZD3_aldorDispatchVector )-> env);
3979	T16 = fiClosMake(T12, C64_n)fiClosMakeFun(T12, (FiProg) (C64_n));
3980	T15 = fiClosMake(T12, C65_ag)fiClosMakeFun(T12, (FiProg) (C65_ag));
3981	T14 = fiClosMake(T12, C66_h)fiClosMakeFun(T12, (FiProg) (C66_h));
3982	T13 = fiClosMake(T12, C67_i)fiClosMakeFun(T12, (FiProg) (C67_i));
3983	T17 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
3984	T17->X0_tag = (FiWord) 0L;
3985	T17->X1_namer = T16;
3986	T17->X2_noname = (FiWord) fiNil((Ptr) 0);
3987	T17->X3_getter = T15;
3988	T17->X4_hasher = T14;
3989	T17->X5_inheriter = T13;
3990	if ((FiPtr) T17 == (FiPtr) fiNil((Ptr) 0)) goto L4;
3991	T11 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
3992	T11->X0_dispatcher = (FiWord) T17;
3993	T11->X1_domainRep = (FiWord) T1;
3994	return (FiWord) T11;
3995	L4: fiHalt((FiSInt) 102L);
3996	return (FiWord) 0L;
3997	L3: T9 = T10 - 1L;
3998	((FiWord*) T8)[T9] = (FiWord) fiNil((Ptr) 0);
3999	T10 = T10 + 1L;
4000	goto L2;
4001	L1: T5 = T6 - 1L;
4002	((FiWord*) T4)[T5] = (FiWord) fiNil((Ptr) 0);
4003	T6 = T6 + 1L;
4004	goto L0;
4005	}
4006
4007	static struct _FiProg tmp67_i = {
4008	(FiFun) CF67_i,
4009	0L,
4010	0L,
4011	0L,
4012	0L
4013	};
4014
4015
4016	static FiClos
4017	CF68_fn(FiEnv e1, FiWord P0_d)
4018	{
4019	PFmt41 T2, T27;
4020	FiWord T1, T4, T6, T21, T26;
4021	FiSInt T9, T10, T11, T15, T16, T19, T20, T23, T24, T25;
4022	FiClos T0, T5, T22;
4023	FiPtr T3, T8, T14, T18;
4024	PFmt39 T7, T13, T17;
4025	PFmt38 T12;
4026	PFmt21 l1;
4027	l1 = (PFmt21) fiEnvLevel(e1)((FiEnv) (e1)->level);
4028	T26 = l1->X0_dom;
4029	T27 = (PFmt41) l1->X1_child;
4030	if ((FiPtr) ((PFmt37) T26)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L7;
4031	L8: T6 = T27->X0_dispatcher;
4032	T5 = (FiClos) ((PFmt40) T6)->X4_hasher;
4033	T21 = fiCCall1(FiWord, T5, T27->X1_domainRep)((((FiWord ()())(T5)->prog->fun))((T5)->env,T27-> X1_domainRep));
4034	((PFmt37) P0_d)->X2_hashcode = T21;
4035	T22 = ((PFmt37) T26)->X12_nameFn;
4036	((PFmt37) P0_d)->X12_nameFn = T22;
4037	if ((FiPtr) ((PFmt37) T26)->X4_extendees == (FiPtr) fiNil((Ptr) 0)) goto
4038	L0;
4039	T11 = (FiSInt) ((PFmt39) ((PFmt37) T26)->X4_extendees)->
4040	X1_nvalues;
4041	T7 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4042	T7->X0_size = (FiWord) T11;
4043	T7->X1_nvalues = (FiWord) T11;
4044	T8 = (FiPtr*) (FiPtr) fiArrNew_Word(T11);
4045	T10 = 1L;
4046	L1: if (T10 <= T11) goto L2;
4047	T7->X2_values = (FiWord) T8;
4048	T24 = (FiSInt) T7->X1_nvalues;
4049	T23 = 1L;
4050	L9: if (T23 <= T24) goto L10;
4051	((PFmt37) P0_d)->X4_extendees = (FiWord) T7;
4052	L0: T12 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
4053	T12->X0_posn = (FiWord) 0L;
4054	T13 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4055	T13->X0_size = (FiWord) 15L;
4056	T13->X1_nvalues = (FiWord) 15L;
4057	T14 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
4058	T16 = 1L;
4059	L3: if (T16 <= 15L) goto L4;
4060	T13->X2_values = (FiWord) T14;
4061	T12->X1_keys = (FiWord) T13;
4062	T17 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4063	T17->X0_size = (FiWord) 15L;
4064	T17->X1_nvalues = (FiWord) 15L;
4065	T18 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
4066	T20 = 1L;
4067	L5: if (T20 <= 15L) goto L6;
4068	T17->X2_values = (FiWord) T18;
4069	T12->X2_values = (FiWord) T17;
4070	T12->X3_size = (FiWord) 15L;
4071	((PFmt37) P0_d)->X11_cache = (FiWord) T12;
4072	return (FiClos) ((PFmt37) T26)->X1_f2;
4073	L6: T19 = T20 - 1L;
4074	((FiWord*) T18)[T19] = (FiWord) fiNil((Ptr) 0);
4075	T20 = T20 + 1L;
4076	goto L5;
4077	L4: T15 = T16 - 1L;
4078	((FiWord*) T14)[T15] = (FiWord) fiNil((Ptr) 0);
4079	T16 = T16 + 1L;
4080	goto L3;
4081	L10: T25 = T23 - 1L;
4082	T2 = (PFmt41) ((FiWord*) ((PFmt39) ((PFmt37) T26)->
4083	X4_extendees)->X2_values)[T25];
4084	T1 = T2->X0_dispatcher;
4085	T0 = (FiClos) ((PFmt40) T1)->X5_inheriter;
4086	T4 = fiCCall2(FiWord, T0, T2->X1_domainRep, (FiWord) T27)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_domainRep,(FiWord) T27));
4087	T3 = (FiPtr*) T7->X2_values;
4088	((FiWord*) T3)[T25] = T4;
4089	T23 = T23 + 1L;
4090	goto L9;
4091	L2: T9 = T10 - 1L;
4092	((FiWord*) T8)[T9] = (FiWord) fiNil((Ptr) 0);
4093	T10 = T10 + 1L;
4094	goto L1;
4095	L7: ((PFmt37) T26)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) T26)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) T26)->X0_f1)->env,T26))
4096	PFmt37) T26)->X0_f1, T26)((((FiClos ()())((FiClos) (( PFmt37) T26)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) T26)->X0_f1)->env,T26));
4097	goto L8;
4098	}
4099
4100	static struct _FiProg tmp68_fn = {
4101	(FiFun) CF68_fn,
4102	0L,
4103	0L,
4104	0L,
4105	0L
4106	};
4107
4108
4109	static FiWord
4110	CF69_extendDispatchVector(FiEnv e1)
4111	{
4112	PFmt40 T4;
4113	FiClos T0_i, T1_h, T2_extendg, T3_n;
4114	FiEnv e0;
4115	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4116	T3_n = fiClosMake(e0, C70_n)fiClosMakeFun(e0, (FiProg) (C70_n));
4117	T2_extendg = fiClosMake(e0, C71_extendg)fiClosMakeFun(e0, (FiProg) (C71_extendg));
4118	T1_h = fiClosMake(e0, C72_h)fiClosMakeFun(e0, (FiProg) (C72_h));
4119	T0_i = fiClosMake(e0, C73_i)fiClosMakeFun(e0, (FiProg) (C73_i));
4120	T4 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
4121	T4->X0_tag = (FiWord) 0L;
4122	T4->X1_namer = T3_n;
4123	T4->X2_noname = (FiWord) fiNil((Ptr) 0);
4124	T4->X3_getter = T2_extendg;
4125	T4->X4_hasher = T1_h;
4126	T4->X5_inheriter = T0_i;
4127	return (FiWord) T4;
4128	}
4129
4130	static struct _FiProg tmp69_extendDispatchVector = {
4131	(FiFun) CF69_extendDispatchVector,
4132	0L,
4133	0L,
4134	0L,
4135	0L
4136	};
4137
4138
4139	static FiWord
4140	CF70_n(FiEnv e1, FiWord P0_e)
4141	{
4142	PFmt41 T5;
4143	FiWord T0, T1, T4;
4144	FiClos T3;
4145	PFmt30 T2;
4146	if ((FiPtr) ((PFmt37) P0_e)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L1;
4147	L2: T0 = ((PFmt37) P0_e)->X3_parents;
4148	if ((FiPtr) T0 == (FiPtr) fiNil((Ptr) 0)) goto L3;
4149	T5 = (PFmt41) ((FiWord*) ((PFmt39) T0)->X2_values)[0L];
4150	T4 = T5->X0_dispatcher;
4151	T3 = (FiClos) ((PFmt40) T4)->X1_namer;
4152	T1 = fiCCall1(FiWord, T3, T5->X1_domainRep)((((FiWord ()())(T3)->prog->fun))((T3)->env,T5-> X1_domainRep));
4153	L0: return T1;
4154	L3: T2 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
4155	T2->X0_tag = 0L;
4156	T2->X1_p = (FiWord) "Dunno";
4157	T1 = (FiWord) T2;
4158	goto L0;
4159	L1: ((PFmt37) P0_e)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) P0_e)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_e)->X0_f1)->env,P0_e ))
4160	PFmt37) P0_e)->X0_f1, P0_e)((((FiClos ()())((FiClos) (( PFmt37) P0_e)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_e)->X0_f1)->env,P0_e ));
4161	goto L2;
4162	}
4163
4164	static struct _FiProg tmp70_n = {
4165	(FiFun) CF70_n,
4166	0L,
4167	0L,
4168	0L,
4169	0L
4170	};
4171
4172
4173	static FiWord
4174	CF71_extendg(FiEnv e1, FiWord P0_d, FiWord P1_pc, FiWord P2_n, FiWord
4175	P3_t, FiWord P4_b, FiWord P5_flg)
4176	{
4177	FiBool T9, T10, T11;
4178	FiWord T0, T1, T3, T5, T8;
4179	FiSInt T6, T7;
4180	PFmt41 T4;
4181	FiClos T2;
4182	if ((FiPtr) ((PFmt37) P0_d)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L0;
4183	L1: T0 = ((PFmt37) P0_d)->X3_parents;
4184	if ((FiPtr) T0 == (FiPtr) fiNil((Ptr) 0)) goto L2;
4185	T7 = (FiSInt) ((PFmt39) T0)->X1_nvalues;
4186	T6 = 1L;
4187	L3: if (T6 <= T7) goto L7;
4188	T5 = (FiWord) fiNil((Ptr) 0);
4189	L5: fiPTR_IS_NIL(T9, FiBool, (FiPtr) T5)((T9) = (FiBool)((FiPtr) ((FiPtr) T5) == (FiPtr) 0));
4190	if (T9) goto L6;
4191	T8 = T5;
4192	L8: return T8;
4193	L6: T8 = (FiWord) fiNil((Ptr) 0);
4194	goto L8;
4195	L7: T4 = (PFmt41) ((FiWord*) ((PFmt39) T0)->X2_values)[T6 - 1L];
4196	fiPTR_IS_NIL(T10, FiBool, (FiPtr) T4)((T10) = (FiBool)((FiPtr) ((FiPtr) T4) == (FiPtr) 0));
4197	if (T10) goto L4;
4198	T3 = T4->X0_dispatcher;
4199	T2 = (FiClos) ((PFmt40) T3)->X3_getter;
4200	T1 = fiCFun(FiWord, T2)(((FiWord ()())(T2)->prog->fun))((T2)->env, T4->X1_domainRep, P1_pc,
4201	P2_n, P3_t, P4_b, P5_flg);
4202	fiPTR_IS_NIL(T11, FiBool, (FiPtr) T1)((T11) = (FiBool)((FiPtr) ((FiPtr) T1) == (FiPtr) 0));
4203	if (T11) goto L4;
4204	T5 = T1;
4205	goto L5;
4206	L4: T6 = T6 + 1L;
4207	goto L3;
4208	L2: T5 = (FiWord) fiNil((Ptr) 0);
4209	goto L5;
4210	L0: ((PFmt37) P0_d)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) P0_d)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_d)->X0_f1)->env,P0_d ))
4211	PFmt37) P0_d)->X0_f1, P0_d)((((FiClos ()())((FiClos) (( PFmt37) P0_d)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_d)->X0_f1)->env,P0_d ));
4212	goto L1;
4213	}
4214
4215	static struct _FiProg tmp71_extendg = {
4216	(FiFun) CF71_extendg,
4217	0L,
4218	0L,
4219	0L,
4220	0L
4221	};
4222
4223
4224	static FiWord
4225	CF72_h(FiEnv e1, FiWord P0_x)
4226	{
4227	PFmt41 T4;
4228	FiWord T0, T1, T3;
4229	FiClos T2;
4230	if ((FiPtr) ((PFmt37) P0_x)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L1;
4231	L2: T0 = ((PFmt37) P0_x)->X3_parents;
4232	if ((FiPtr) T0 == (FiPtr) fiNil((Ptr) 0)) goto L3;
4233	T4 = (PFmt41) ((FiWord*) ((PFmt39) T0)->X2_values)[0L];
4234	T3 = T4->X0_dispatcher;
4235	T2 = (FiClos) ((PFmt40) T3)->X4_hasher;
4236	T1 = fiCCall1(FiWord, T2, T4->X1_domainRep)((((FiWord ()())(T2)->prog->fun))((T2)->env,T4-> X1_domainRep));
4237	L0: return T1;
4238	L3: T1 = (FiWord) 0L;
4239	goto L0;
4240	L1: ((PFmt37) P0_x)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) P0_x)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_x)->X0_f1)->env,P0_x ))
4241	PFmt37) P0_x)->X0_f1, P0_x)((((FiClos ()())((FiClos) (( PFmt37) P0_x)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) P0_x)->X0_f1)->env,P0_x ));
4242	goto L2;
4243	}
4244
4245	static struct _FiProg tmp72_h = {
4246	(FiFun) CF72_h,
4247	0L,
4248	0L,
4249	0L,
4250	0L
4251	};
4252
4253
4254	static FiWord
4255	CF73_i(FiEnv e1, FiWord P0_dom, FiWord P1_child)
4256	{
4257	PFmt40 T17;
4258	FiClos T0_efn, T13, T14, T15, T16;
4259	FiEnv e0, T12;
4260	PFmt41 T11;
4261	FiSInt T5, T6, T9, T10;
4262	FiPtr T4, T8;
4263	PFmt39 T3, T7;
4264	PFmt38 T2;
4265	PFmt37 T1;
4266	PFmt22 l0;
4267	l0 = fi0New(struct Fmt22 , CENSUS_EnvLevel)((struct Fmt22 *) fi0Alloc(sizeof(struct Fmt22), (19)));
4268	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
4269	l0->X0_dom = P0_dom;
4270	l0->X1_child = P1_child;
4271	T0_efn = fiClosMake(e0, C74_efn)fiClosMakeFun(e0, (FiProg) (C74_efn));
4272	T1 = fi0RecNew(struct Fmt37 , CENSUS_Rec)((struct Fmt37 *) fi0RecAlloc(sizeof(struct Fmt37), ( 5)));
4273	T1->X0_f1 = (FiWord) T0_efn;
4274	T1->X1_f2 = (FiWord) fiNil((Ptr) 0);
4275	T1->X2_hashcode = (FiWord) 0L;
4276	T1->X3_parents = (FiWord) fiNil((Ptr) 0);
4277	T1->X4_extendees = (FiWord) fiNil((Ptr) 0);
4278	T1->X5_defaults = (FiWord) fiNil((Ptr) 0);
4279	T1->X6_names = (FiWord) fiNil((Ptr) 0);
4280	T1->X7_types = (FiWord) fiNil((Ptr) 0);
4281	T1->X8_exports = (FiWord) fiNil((Ptr) 0);
4282	T1->X9_ngets = (FiWord) 0L;
4283	T1->X10_serial = (FiWord) 0L;
4284	T2 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
4285	T2->X0_posn = (FiWord) 0L;
4286	T3 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4287	T3->X0_size = (FiWord) 15L;
4288	T3->X1_nvalues = (FiWord) 15L;
4289	T4 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
4290	T6 = 1L;
4291	L0: if (T6 <= 15L) goto L1;
4292	T3->X2_values = (FiWord) T4;
4293	T2->X1_keys = (FiWord) T3;
4294	T7 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4295	T7->X0_size = (FiWord) 15L;
4296	T7->X1_nvalues = (FiWord) 15L;
4297	T8 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
4298	T10 = 1L;
4299	L2: if (T10 <= 15L) goto L3;
4300	T7->X2_values = (FiWord) T8;
4301	T2->X2_values = (FiWord) T7;
4302	T2->X3_size = (FiWord) 15L;
4303	T1->X11_cache = (FiWord) T2;
4304	T1->X12_nameFn = fiClosMake(e0, C147_new)fiClosMakeFun(e0, (FiProg) (C147_new));
4305	T1->X13_id = (FiWord) 0L;
4306	T12 = fiEnvPush(fiNil, ((FiClos) G_YY5KJ_extendDispatchVector)->fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_YY5KJ_extendDispatchVector )-> env)
4307	env)fiEnvPushFun((FiPtr) (((Ptr) 0)), ((FiClos) G_YY5KJ_extendDispatchVector )-> env);
4308	T16 = fiClosMake(T12, C70_n)fiClosMakeFun(T12, (FiProg) (C70_n));
4309	T15 = fiClosMake(T12, C71_extendg)fiClosMakeFun(T12, (FiProg) (C71_extendg));
4310	T14 = fiClosMake(T12, C72_h)fiClosMakeFun(T12, (FiProg) (C72_h));
4311	T13 = fiClosMake(T12, C73_i)fiClosMakeFun(T12, (FiProg) (C73_i));
4312	T17 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
4313	T17->X0_tag = (FiWord) 0L;
4314	T17->X1_namer = T16;
4315	T17->X2_noname = (FiWord) fiNil((Ptr) 0);
4316	T17->X3_getter = T15;
4317	T17->X4_hasher = T14;
4318	T17->X5_inheriter = T13;
4319	if ((FiPtr) T17 == (FiPtr) fiNil((Ptr) 0)) goto L4;
4320	T11 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
4321	T11->X0_dispatcher = (FiWord) T17;
4322	T11->X1_domainRep = (FiWord) T1;
4323	return (FiWord) T11;
4324	L4: fiHalt((FiSInt) 102L);
4325	return (FiWord) 0L;
4326	L3: T9 = T10 - 1L;
4327	((FiWord*) T8)[T9] = (FiWord) fiNil((Ptr) 0);
4328	T10 = T10 + 1L;
4329	goto L2;
4330	L1: T5 = T6 - 1L;
4331	((FiWord*) T4)[T5] = (FiWord) fiNil((Ptr) 0);
4332	T6 = T6 + 1L;
4333	goto L0;
4334	}
4335
4336	static struct _FiProg tmp73_i = {
4337	(FiFun) CF73_i,
4338	0L,
4339	0L,
4340	0L,
4341	0L
4342	};
4343
4344
4345	static FiClos
4346	CF74_efn(FiEnv e1, FiWord P0_d)
4347	{
4348	FiClos T0, T25, T41;
4349	FiWord T1, T4, T26, T29, T39, T40;
4350	FiSInt T8, T9, T10, T13, T14, T15, T19, T20, T23, T24, T30, T31, T32, T33, T34, T35, T36, T37, T38;
4351	FiPtr T3, T5, T7, T12, T18, T22, *T28;
4352	PFmt41 T2, T27;
4353	PFmt39 T6, T11, T17, T21;
4354	PFmt38 T16;
4355	PFmt22 l1;
4356	FiEnv e0;
4357	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4358	l1 = (PFmt22) fiEnvLevel(e1)((FiEnv) (e1)->level);
4359	T39 = l1->X0_dom;
4360	T40 = l1->X1_child;
4361	if ((FiPtr) ((PFmt37) T39)->X1_f2 == (FiPtr) fiNil((Ptr) 0)) goto L9;
4362	L10: T10 = (FiSInt) ((PFmt39) ((PFmt37) T39)->X3_parents)->X1_nvalues;
4363	T6 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4364	T6->X0_size = (FiWord) T10;
4365	T6->X1_nvalues = (FiWord) T10;
4366	T7 = (FiPtr*) (FiPtr) fiArrNew_Word(T10);
4367	T9 = 1L;
4368	L1: if (T9 <= T10) goto L2;
4369	T6->X2_values = (FiWord) T7;
4370	T34 = (FiSInt) T6->X1_nvalues;
4371	T30 = 1L;
4372	L15: if (T30 <= T34) goto L16;
4373	T35 = (FiSInt) T6->X1_nvalues;
4374	T32 = 1L;
4375	L11: if (T32 <= T35) goto L12;
4376	((PFmt37) P0_d)->X3_parents = (FiWord) T6;
4377	if ((FiPtr) ((PFmt37) T39)->X4_extendees == (FiPtr) fiNil((Ptr) 0)) goto
4378	L0;
4379	T15 = (FiSInt) ((PFmt39) ((PFmt37) T39)->X4_extendees)->
4380	X1_nvalues;
4381	T11 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4382	T11->X0_size = (FiWord) T15;
4383	T11->X1_nvalues = (FiWord) T15;
4384	T12 = (FiPtr*) (FiPtr) fiArrNew_Word(T15);
4385	T14 = 1L;
4386	L3: if (T14 <= T15) goto L4;
4387	T11->X2_values = (FiWord) T12;
4388	T33 = (FiSInt) T11->X1_nvalues;
4389	T31 = 1L;
4390	L13: if (T31 <= T33) goto L14;
4391	((PFmt37) P0_d)->X4_extendees = (FiWord) T11;
4392	L0: T16 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
4393	T16->X0_posn = (FiWord) 0L;
4394	T17 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4395	T17->X0_size = (FiWord) 15L;
4396	T17->X1_nvalues = (FiWord) 15L;
4397	T18 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
4398	T20 = 1L;
4399	L5: if (T20 <= 15L) goto L6;
4400	T17->X2_values = (FiWord) T18;
4401	T16->X1_keys = (FiWord) T17;
4402	T21 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
4403	T21->X0_size = (FiWord) 15L;
4404	T21->X1_nvalues = (FiWord) 15L;
4405	T22 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
4406	T24 = 1L;
4407	L7: if (T24 <= 15L) goto L8;
4408	T21->X2_values = (FiWord) T22;
4409	T16->X2_values = (FiWord) T21;
4410	T16->X3_size = (FiWord) 15L;
4411	((PFmt37) P0_d)->X11_cache = (FiWord) T16;
4412	T41 = fiClosMake(e0, C154_expandExtend)fiClosMakeFun(e0, (FiProg) (C154_expandExtend));
4413	return T41;
4414	L8: T23 = T24 - 1L;
4415	((FiWord*) T22)[T23] = (FiWord) fiNil((Ptr) 0);
4416	T24 = T24 + 1L;
4417	goto L7;
4418	L6: T19 = T20 - 1L;
4419	((FiWord*) T18)[T19] = (FiWord) fiNil((Ptr) 0);
4420	T20 = T20 + 1L;
4421	goto L5;
4422	L14: T38 = T31 - 1L;
4423	T2 = (PFmt41) ((FiWord*) ((PFmt39) ((PFmt37) T39)->
4424	X4_extendees)->X2_values)[T38];
4425	T1 = T2->X0_dispatcher;
4426	T0 = (FiClos) ((PFmt40) T1)->X5_inheriter;
4427	T4 = fiCCall2(FiWord, T0, T2->X1_domainRep, T40)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_domainRep,T40));
4428	T3 = (FiPtr*) T11->X2_values;
4429	((FiWord*) T3)[T38] = T4;
4430	T31 = T31 + 1L;
4431	goto L13;
4432	L4: T13 = T14 - 1L;
4433	((FiWord*) T12)[T13] = (FiWord) fiNil((Ptr) 0);
4434	T14 = T14 + 1L;
4435	goto L3;
4436	L12: T37 = T32 - 1L;
4437	T27 = (PFmt41) ((FiWord*) T6->X2_values)[T37];
4438	T26 = T27->X0_dispatcher;
4439	T25 = (FiClos) ((PFmt40) T26)->X5_inheriter;
4440	T29 = fiCCall2(FiWord, T25, T27->X1_domainRep, T40)((((FiWord ()())(T25)->prog->fun))((T25)->env,T27-> X1_domainRep,T40));
4441	T28 = (FiPtr*) T6->X2_values;
4442	((FiWord*) T28)[T37] = T29;
4443	T32 = T32 + 1L;
4444	goto L11;
4445	L16: T5 = (FiPtr*) T6->X2_values;
4446	T36 = T30 - 1L;
4447	((FiWord) T5)[T36] = ((FiWord) ((PFmt39) ((PFmt37) T39)->
4448	X3_parents)->X2_values)[T36];
4449	T30 = T30 + 1L;
4450	goto L15;
4451	L2: T8 = T9 - 1L;
4452	((FiWord*) T7)[T8] = (FiWord) fiNil((Ptr) 0);
4453	T9 = T9 + 1L;
4454	goto L1;
4455	L9: ((PFmt37) T39)->X1_f2 = (FiWord) fiCCall1(FiClos, (FiClos) ((((((FiClos ()())((FiClos) (( PFmt37) T39)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) T39)->X0_f1)->env,T39))
4456	PFmt37) T39)->X0_f1, T39)((((FiClos ()())((FiClos) (( PFmt37) T39)->X0_f1)->prog ->fun))(((FiClos) (( PFmt37) T39)->X0_f1)->env,T39));
4457	goto L10;
4458	}
4459
4460	static struct _FiProg tmp74_efn = {
4461	(FiFun) CF74_efn,
4462	0L,
4463	0L,
4464	0L,
4465	0L
4466	};
4467
4468
4469	static FiWord
4470	CF75_dummyDispatchVector(FiEnv e1)
4471	{
4472	PFmt40 T4;
4473	FiClos T0_i, T1_h, T2_dummyg, T3_n;
4474	FiEnv e0;
4475	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4476	T3_n = fiClosMake(e0, C76_n)fiClosMakeFun(e0, (FiProg) (C76_n));
4477	T2_dummyg = fiClosMake(e0, C77_dummyg)fiClosMakeFun(e0, (FiProg) (C77_dummyg));
4478	T1_h = fiClosMake(e0, C78_h)fiClosMakeFun(e0, (FiProg) (C78_h));
4479	T0_i = fiClosMake(e0, C79_i)fiClosMakeFun(e0, (FiProg) (C79_i));
4480	T4 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
4481	T4->X0_tag = (FiWord) 0L;
4482	T4->X1_namer = T3_n;
4483	T4->X2_noname = (FiWord) fiNil((Ptr) 0);
4484	T4->X3_getter = T2_dummyg;
4485	T4->X4_hasher = T1_h;
4486	T4->X5_inheriter = T0_i;
4487	return (FiWord) T4;
4488	}
4489
4490	static struct _FiProg tmp75_dummyDispatchVector = {
4491	(FiFun) CF75_dummyDispatchVector,
4492	0L,
4493	0L,
4494	0L,
4495	0L
4496	};
4497
4498
4499	static FiWord
4500	CF76_n(FiEnv e1, FiWord P0_x)
4501	{
4502	PFmt30 T0;
4503	T0 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
4504	T0->X0_tag = 0L;
4505	T0->X1_p = (FiWord) "Dunno";
4506	return (FiWord) T0;
4507	}
4508
4509	static struct _FiProg tmp76_n = {
4510	(FiFun) CF76_n,
4511	0L,
4512	0L,
4513	0L,
4514	0L
4515	};
4516
4517
4518	static FiWord
4519	CF77_dummyg(FiEnv e1, FiWord P0_d, FiWord P1_pc, FiWord P2_n, FiWord
4520	P3_t, FiWord P4_b, FiWord P5_flg)
4521	{
4522	fiRaiseException((FiWord) "get on incomplete domain");
4523	fiHalt((FiSInt) 102L);
4524	return (FiWord) 0L;
4525	}
4526
4527	static struct _FiProg tmp77_dummyg = {
4528	(FiFun) CF77_dummyg,
4529	0L,
4530	0L,
4531	0L,
4532	0L
4533	};
4534
4535
4536	static FiWord
4537	CF78_h(FiEnv e1, FiWord P0_x)
4538	{
4539	fiRaiseException((FiWord) "hash value read on incomplete domain");
4540	fiHalt((FiSInt) 102L);
4541	return (FiWord) 0L;
4542	}
4543
4544	static struct _FiProg tmp78_h = {
4545	(FiFun) CF78_h,
4546	0L,
4547	0L,
4548	0L,
4549	0L
4550	};
4551
4552
4553	static FiWord
4554	CF79_i(FiEnv e1, FiWord P0_x, FiWord P1_d)
4555	{
4556	fiRaiseException((FiWord) "inherit to incomplete domain");
4557	fiHalt((FiSInt) 102L);
4558	return (FiWord) 0L;
4559	}
4560
4561	static struct _FiProg tmp79_i = {
4562	(FiFun) CF79_i,
4563	0L,
4564	0L,
4565	0L,
4566	0L
4567	};
4568
4569
4570	static FiWord
4571	CF80_pointerDV(FiEnv e1)
4572	{
4573	PFmt40 T4;
4574	FiClos T0_i, T1_h, T2_ptrg, T3_n;
4575	PFmt24 l0;
4576	FiEnv e0;
4577	l0 = fi0New(struct Fmt24 , CENSUS_EnvLevel)((struct Fmt24 *) fi0Alloc(sizeof(struct Fmt24), (19)));
4578	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
4579	T3_n = fiClosMake(e0, C81_n)fiClosMakeFun(e0, (FiProg) (C81_n));
4580	T2_ptrg = fiClosMake(e0, C82_ptrg)fiClosMakeFun(e0, (FiProg) (C82_ptrg));
4581	T1_h = fiClosMake(e0, C83_h)fiClosMakeFun(e0, (FiProg) (C83_h));
4582	l0->X0_tmpfn = fiClosMake(e0, C84_tmpfn)fiClosMakeFun(e0, (FiProg) (C84_tmpfn));
4583	T0_i = fiClosMake(e0, C86_i)fiClosMakeFun(e0, (FiProg) (C86_i));
4584	T4 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
4585	T4->X0_tag = (FiWord) 0L;
4586	T4->X1_namer = T3_n;
4587	T4->X2_noname = (FiWord) fiNil((Ptr) 0);
4588	T4->X3_getter = T2_ptrg;
4589	T4->X4_hasher = T1_h;
4590	T4->X5_inheriter = T0_i;
4591	return (FiWord) T4;
4592	}
4593
4594	static struct _FiProg tmp80_pointerDV = {
4595	(FiFun) CF80_pointerDV,
4596	0L,
4597	0L,
4598	0L,
4599	0L
4600	};
4601
4602
4603	static FiWord
4604	CF81_n(FiEnv e1, FiWord P0_x)
4605	{
4606	FiWord T1, T3;
4607	PFmt41 T2;
4608	FiClos T0;
4609	if (((PFmt45) P0_x)->X0_tag == 0) goto L0;
4610	L1: if (((PFmt45) P0_x)->X0_tag == 1L) goto L4;
4611	fiHalt((FiSInt) 103L);
4612	return (FiWord) 0L;
4613	L4: T2 = (PFmt41) ((PFmt45) P0_x)->X1_value;
4614	T1 = T2->X0_dispatcher;
4615	T0 = (FiClos) ((PFmt40) T1)->X1_namer;
4616	return fiCCall1(FiWord, T0, T2->X1_domainRep)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_domainRep));
4617	L0: if (((PFmt45) P0_x)->X0_tag == 0) goto L2;
4618	fiHalt((FiSInt) 103L);
4619	return (FiWord) 0L;
4620	L2: T3 = fiCCall0(FiWord, (FiClos) ((PFmt45) P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
4621	if ((FiPtr) T3 == (FiPtr) fiNil((Ptr) 0)) goto L3;
4622	((PFmt45) P0_x)->X0_tag = 1L;
4623	((PFmt45) P0_x)->X1_value = T3;
4624	goto L1;
4625	L3: fiHalt((FiSInt) 102L);
4626	return (FiWord) 0L;
4627	}
4628
4629	static struct _FiProg tmp81_n = {
4630	(FiFun) CF81_n,
4631	0L,
4632	0L,
4633	0L,
4634	0L
4635	};
4636
4637
4638	static FiWord
4639	CF82_ptrg(FiEnv e1, FiWord P0_d, FiWord P1_pc, FiWord P2_n, FiWord
4640	P3_t, FiWord P4_b, FiWord P5_flg)
4641	{
4642	FiWord T1, T3;
4643	PFmt41 T2;
4644	FiClos T0;
4645	if (((PFmt45) P0_d)->X0_tag == 0) goto L0;
4646	L1: if (((PFmt45) P0_d)->X0_tag == 1L) goto L4;
4647	fiHalt((FiSInt) 103L);
4648	return (FiWord) 0L;
4649	L4: T2 = (PFmt41) ((PFmt45) P0_d)->X1_value;
4650	T1 = T2->X0_dispatcher;
4651	T0 = (FiClos) ((PFmt40) T1)->X3_getter;
4652	return fiCFun(FiWord, T0)(((FiWord ()())(T0)->prog->fun))((T0)->env, T2->X1_domainRep, P1_pc, P2_n,
4653	P3_t, P4_b, P5_flg);
4654	L0: if (((PFmt45) P0_d)->X0_tag == 0) goto L2;
4655	fiHalt((FiSInt) 103L);
4656	return (FiWord) 0L;
4657	L2: T3 = fiCCall0(FiWord, (FiClos) ((PFmt45) P0_d)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_d)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_d)->X1_value)->env ));
4658	if ((FiPtr) T3 == (FiPtr) fiNil((Ptr) 0)) goto L3;
4659	((PFmt45) P0_d)->X0_tag = 1L;
4660	((PFmt45) P0_d)->X1_value = T3;
4661	goto L1;
4662	L3: fiHalt((FiSInt) 102L);
4663	return (FiWord) 0L;
4664	}
4665
4666	static struct _FiProg tmp82_ptrg = {
4667	(FiFun) CF82_ptrg,
4668	0L,
4669	0L,
4670	0L,
4671	0L
4672	};
4673
4674
4675	static FiWord
4676	CF83_h(FiEnv e1, FiWord P0_x)
4677	{
4678	FiWord T1, T3;
4679	PFmt41 T2;
4680	FiClos T0;
4681	if (((PFmt45) P0_x)->X0_tag == 0) goto L0;
4682	L1: if (((PFmt45) P0_x)->X0_tag == 1L) goto L4;
4683	fiHalt((FiSInt) 103L);
4684	return (FiWord) 0L;
4685	L4: T2 = (PFmt41) ((PFmt45) P0_x)->X1_value;
4686	T1 = T2->X0_dispatcher;
4687	T0 = (FiClos) ((PFmt40) T1)->X4_hasher;
4688	return fiCCall1(FiWord, T0, T2->X1_domainRep)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_domainRep));
4689	L0: if (((PFmt45) P0_x)->X0_tag == 0) goto L2;
4690	fiHalt((FiSInt) 103L);
4691	return (FiWord) 0L;
4692	L2: T3 = fiCCall0(FiWord, (FiClos) ((PFmt45) P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
4693	if ((FiPtr) T3 == (FiPtr) fiNil((Ptr) 0)) goto L3;
4694	((PFmt45) P0_x)->X0_tag = 1L;
4695	((PFmt45) P0_x)->X1_value = T3;
4696	goto L1;
4697	L3: fiHalt((FiSInt) 102L);
4698	return (FiWord) 0L;
4699	}
4700
4701	static struct _FiProg tmp83_h = {
4702	(FiFun) CF83_h,
4703	0L,
4704	0L,
4705	0L,
4706	0L
4707	};
4708
4709
4710	static FiWord
4711	CF84_tmpfn(FiEnv e1, FiWord P0_d1, FiWord P1_d2)
4712	{
4713	PFmt40 T8;
4714	FiClos T0_fn, T4, T5, T6, T7;
4715	FiEnv e2, e0, T3;
4716	PFmt45 T2;
4717	PFmt41 T1;
4718	PFmt23 l0;
4719	l0 = fi0New(struct Fmt23 , CENSUS_EnvLevel)((struct Fmt23 *) fi0Alloc(sizeof(struct Fmt23), (19)));
4720	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
4721	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
4722	l0->X0_d1 = P0_d1;
4723	l0->X1_d2 = P1_d2;
4724	T0_fn = fiClosMake(e0, C85_fn)fiClosMakeFun(e0, (FiProg) (C85_fn));
4725	T3 = fiEnvPush(fi0New(struct Fmt24 , CENSUS_EnvLevel), e2)fiEnvPushFun((FiPtr) (((struct Fmt24 *) fi0Alloc(sizeof(struct Fmt24), (19)))), e2);
4726	T7 = fiClosMake(T3, C81_n)fiClosMakeFun(T3, (FiProg) (C81_n));
4727	T6 = fiClosMake(T3, C82_ptrg)fiClosMakeFun(T3, (FiProg) (C82_ptrg));
4728	T5 = fiClosMake(T3, C83_h)fiClosMakeFun(T3, (FiProg) (C83_h));
4729	((PFmt24) fiEnvLevel0(T3)(((FiEnv)(T3))->level))->X0_tmpfn = fiClosMake(T3, C84_tmpfn)fiClosMakeFun(T3, (FiProg) (C84_tmpfn));
4730	T4 = fiClosMake(T3, C86_i)fiClosMakeFun(T3, (FiProg) (C86_i));
4731	T8 = fi0RecNew(struct Fmt40 , CENSUS_Rec)((struct Fmt40 *) fi0RecAlloc(sizeof(struct Fmt40), ( 5)));
4732	T8->X0_tag = (FiWord) 0L;
4733	T8->X1_namer = T7;
4734	T8->X2_noname = (FiWord) fiNil((Ptr) 0);
4735	T8->X3_getter = T6;
4736	T8->X4_hasher = T5;
4737	T8->X5_inheriter = T4;
4738	T2 = fi0RecNew(struct Fmt45 , CENSUS_Rec)((struct Fmt45 *) fi0RecAlloc(sizeof(struct Fmt45), ( 5)));
4739	T2->X0_tag = 0L;
4740	T2->X1_value = (FiWord) T0_fn;
4741	if ((FiPtr) T8 == (FiPtr) fiNil((Ptr) 0)) goto L0;
4742	T1 = fi0RecNew(struct Fmt41 , CENSUS_Rec)((struct Fmt41 *) fi0RecAlloc(sizeof(struct Fmt41), ( 5)));
4743	T1->X0_dispatcher = (FiWord) T8;
4744	T1->X1_domainRep = (FiWord) T2;
4745	return (FiWord) T1;
4746	L0: fiHalt((FiSInt) 102L);
4747	return (FiWord) 0L;
4748	}
4749
4750	static struct _FiProg tmp84_tmpfn = {
4751	(FiFun) CF84_tmpfn,
4752	0L,
4753	0L,
4754	0L,
4755	0L
4756	};
4757
4758
4759	static FiWord
4760	CF85_fn(FiEnv e1)
4761	{
4762	FiWord T1, T3;
4763	PFmt41 T2;
4764	FiClos T0;
4765	PFmt23 l1;
4766	l1 = (PFmt23) fiEnvLevel(e1)((FiEnv) (e1)->level);
4767	T2 = (PFmt41) l1->X0_d1;
4768	T3 = l1->X1_d2;
4769	T1 = T2->X0_dispatcher;
4770	T0 = (FiClos) ((PFmt40) T1)->X5_inheriter;
4771	return fiCCall2(FiWord, T0, T2->X1_domainRep, T3)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_domainRep,T3));
4772	}
4773
4774	static struct _FiProg tmp85_fn = {
4775	(FiFun) CF85_fn,
4776	0L,
4777	0L,
4778	0L,
4779	0L
4780	};
4781
4782
4783	static FiWord
4784	CF86_i(FiEnv e1, FiWord P0_x, FiWord P1_d)
4785	{
4786	FiWord T0, T2, T4;
4787	PFmt41 T3;
4788	FiClos T1;
4789	PFmt24 l1;
4790	l1 = (PFmt24) fiEnvLevel(e1)((FiEnv) (e1)->level);
4791	if (((PFmt45) P0_x)->X0_tag == 1L) goto L0;
4792	if (((PFmt45) P0_x)->X0_tag == 0) goto L3;
4793	L4: if (((PFmt45) P0_x)->X0_tag == 1L) goto L7;
4794	fiHalt((FiSInt) 103L);
4795	return (FiWord) 0L;
4796	L7: T0 = fiCCall2(FiWord, l1->X0_tmpfn, ((PFmt45) P0_x)->X1_value,((((FiWord ()())(l1->X0_tmpfn)->prog->fun))((l1-> X0_tmpfn)->env,((PFmt45) P0_x)->X1_value,P1_d))
4797	P1_d)((((FiWord ()())(l1->X0_tmpfn)->prog->fun))((l1-> X0_tmpfn)->env,((PFmt45) P0_x)->X1_value,P1_d));
4798	L1: return T0;
4799	L3: if (((PFmt45) P0_x)->X0_tag == 0) goto L5;
4800	fiHalt((FiSInt) 103L);
4801	return (FiWord) 0L;
4802	L5: T4 = fiCCall0(FiWord, (FiClos) ((PFmt45) P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
4803	if ((FiPtr) T4 == (FiPtr) fiNil((Ptr) 0)) goto L6;
4804	((PFmt45) P0_x)->X0_tag = 1L;
4805	((PFmt45) P0_x)->X1_value = T4;
4806	goto L4;
4807	L6: fiHalt((FiSInt) 102L);
4808	return (FiWord) 0L;
4809	L0: if (((PFmt45) P0_x)->X0_tag == 1L) goto L2;
4810	fiHalt((FiSInt) 103L);
4811	return (FiWord) 0L;
4812	L2: T3 = (PFmt41) ((PFmt45) P0_x)->X1_value;
4813	T2 = T3->X0_dispatcher;
4814	T1 = (FiClos) ((PFmt40) T2)->X5_inheriter;
4815	T0 = fiCCall2(FiWord, T1, T3->X1_domainRep, P1_d)((((FiWord ()())(T1)->prog->fun))((T1)->env,T3-> X1_domainRep,P1_d));
4816	goto L1;
4817	}
4818
4819	static struct _FiProg tmp86_i = {
4820	(FiFun) CF86_i,
4821	0L,
4822	0L,
4823	0L,
4824	0L
4825	};
4826
4827
4828	static FiWord
4829	CF87_aldorCatDispatchVector(FiEnv e1)
4830	{
4831	PFmt43 T6;
4832	FiClos T0_b1, T1_pg1, T2_pc1, T3_h1, T4_g1, T5_n1;
4833	FiEnv e0;
4834	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4835	T5_n1 = fiClosMake(e0, C88_n1)fiClosMakeFun(e0, (FiProg) (C88_n1));
4836	T4_g1 = fiClosMake(e0, C89_g1)fiClosMakeFun(e0, (FiProg) (C89_g1));
4837	T3_h1 = fiClosMake(e0, C90_h1)fiClosMakeFun(e0, (FiProg) (C90_h1));
4838	T2_pc1 = fiClosMake(e0, C91_pc1)fiClosMakeFun(e0, (FiProg) (C91_pc1));
4839	T1_pg1 = fiClosMake(e0, C92_pg1)fiClosMakeFun(e0, (FiProg) (C92_pg1));
4840	T0_b1 = fiClosMake(e0, C93_b1)fiClosMakeFun(e0, (FiProg) (C93_b1));
4841	T6 = fi0RecNew(struct Fmt43 , CENSUS_Rec)((struct Fmt43 *) fi0RecAlloc(sizeof(struct Fmt43), ( 5)));
4842	T6->X0_tag = (FiWord) 10L;
4843	T6->X1_namer = T5_n1;
4844	T6->X2_noname = (FiWord) fiNil((Ptr) 0);
4845	T6->X3_getter = T4_g1;
4846	T6->X4_hasher = T3_h1;
4847	T6->X5_builder = T0_b1;
4848	T6->X6_parentCounter = T2_pc1;
4849	T6->X7_parentGetter = T1_pg1;
4850	return (FiWord) T6;
4851	}
4852
4853	static struct _FiProg tmp87_aldorCatDispatchVector = {
4854	(FiFun) CF87_aldorCatDispatchVector,
4855	0L,
4856	0L,
4857	0L,
4858	0L
4859	};
4860
4861
4862	static FiWord
4863	CF88_n1(FiEnv e1, FiWord P0_x)
4864	{
4865	FiClos T0;
4866	T0 = (FiClos) ((PFmt44) P0_x)->X9_nameFn;
4867	return fiCCall0(FiWord, T0)((((FiWord ()())(T0)->prog->fun))((T0)->env));
4868	}
4869
4870	static struct _FiProg tmp88_n1 = {
4871	(FiFun) CF88_n1,
4872	0L,
4873	0L,
4874	0L,
4875	0L
4876	};
4877
4878
4879	static FiWord
4880	CF89_g1(FiEnv e1, FiWord P0_x, FiWord P1_d, FiWord P2_h, FiWord
4881	P3_h2, FiWord P4_b)
4882	{
4883	FiWord T2, T3, T4, T6, T7, T10, T19;
4884	FiSInt T0, T8, T9, T11, T12, T13, T14, T15, T16, T17, T18;
4885	FiClos T1, T5;
4886	if ((FiSInt) P2_h == 51482908L) goto L0;
4887	T6 = ((PFmt44) P0_x)->X6_names;
4888	if ((FiPtr) T6 == (FiPtr) fiNil((Ptr) 0)) goto L4;
4889	L5: T4 = ((PFmt44) P0_x)->X6_names;
4890	T2 = ((PFmt44) P0_x)->X7_types;
4891	T3 = ((PFmt44) P0_x)->X8_exports;
4892	T18 = (FiSInt) ((PFmt39) T4)->X1_nvalues;
4893	T15 = 1L;
4894	if (1L <= T18) goto L10;
4895	L2: T10 = (FiWord) fiNil((Ptr) 0);
4896	L8: T19 = T10;
4897	L14: return T19;
4898	L10: T9 = (FiSInt) ((FiWord*) ((PFmt39) T4)->X2_values)[0L];
4899	T12 = T9;
4900	T17 = (FiSInt) ((PFmt39) T2)->X1_nvalues;
4901	T13 = 1L;
4902	if (1L <= T17) goto L12;
4903	goto L2;
4904	L12: T8 = (FiSInt) ((FiWord*) ((PFmt39) T2)->X2_values)[0L];
4905	T11 = T8;
4906	T16 = (FiSInt) ((PFmt39) T3)->X1_nvalues;
4907	T14 = 1L;
4908	L6: if (T14 <= T16) goto L9;
4909	goto L2;
4910	L9: T7 = ((FiWord*) ((PFmt39) T3)->X2_values)[T14 - 1L];
4911	if (T12 != (FiSInt) P2_h) goto L7;
4912	if ((FiSInt) P3_h2 == T11) goto L3;
4913	if ((FiSInt) P3_h2 == -1L) goto L3;
4914	L7: T15 = T15 + 1L;
4915	if (T15 <= T18) goto L11;
4916	goto L2;
4917	L11: T9 = (FiSInt) ((FiWord*) ((PFmt39) T4)->X2_values)[T15 - 1L];
4918	T12 = T9;
4919	T13 = T13 + 1L;
4920	if (T13 <= T17) goto L13;
4921	goto L2;
4922	L13: T8 = (FiSInt) ((FiWord*) ((PFmt39) T2)->X2_values)[T13 - 1L];
4923	T11 = T8;
4924	T14 = T14 + 1L;
4925	goto L6;
4926	L3: ((PFmt29) P4_b)->X0_value = T7;
4927	T10 = P4_b;
4928	goto L8;
4929	L4: T5 = (FiClos) ((PFmt44) P0_x)->X0_buildFn;
4930	fiCCall2(void, T5, P0_x, ((PFmt44) P0_x)->X3_domain)((((void ()())(T5)->prog->fun))((T5)->env,P0_x,((PFmt44 ) P0_x)->X3_domain));
4931	goto L5;
4932	L0: T1 = (FiClos) ((PFmt44) P0_x)->X1_hashFn;
4933	T0 = (FiSInt) fiCCall0(FiWord, T1)((((FiWord ()())(T1)->prog->fun))((T1)->env));
4934	if ((FiSInt) P3_h2 != T0) goto L1;
4935	((PFmt29) P4_b)->X0_value = P1_d;
4936	T19 = P4_b;
4937	goto L14;
4938	L1: T19 = (FiWord) fiNil((Ptr) 0);
4939	goto L14;
4940	}
4941
4942	static struct _FiProg tmp89_g1 = {
4943	(FiFun) CF89_g1,
4944	0L,
4945	0L,
4946	0L,
4947	0L
4948	};
4949
4950
4951	static FiWord
4952	CF90_h1(FiEnv e1, FiWord P0_x)
4953	{
4954	FiClos T0;
4955	T0 = (FiClos) ((PFmt44) P0_x)->X1_hashFn;
4956	return fiCCall0(FiWord, T0)((((FiWord ()())(T0)->prog->fun))((T0)->env));
4957	}
4958
4959	static struct _FiProg tmp90_h1 = {
4960	(FiFun) CF90_h1,
4961	0L,
4962	0L,
4963	0L,
4964	0L
4965	};
4966
4967
4968	static FiWord
4969	CF91_pc1(FiEnv e1, FiWord P0_x)
4970	{
4971	FiWord T1;
4972	FiClos T0;
4973	T1 = ((PFmt44) P0_x)->X6_names;
4974	if ((FiPtr) T1 == (FiPtr) fiNil((Ptr) 0)) goto L0;
4975	L1: return ((PFmt44) P0_x)->X5_nparents;
4976	L0: T0 = (FiClos) ((PFmt44) P0_x)->X0_buildFn;
4977	fiCCall2(void, T0, P0_x, ((PFmt44) P0_x)->X3_domain)((((void ()())(T0)->prog->fun))((T0)->env,P0_x,((PFmt44 ) P0_x)->X3_domain));
4978	goto L1;
4979	}
4980
4981	static struct _FiProg tmp91_pc1 = {
4982	(FiFun) CF91_pc1,
4983	0L,
4984	0L,
4985	0L,
4986	0L
4987	};
4988
4989
4990	static FiWord
4991	CF92_pg1(FiEnv e1, FiWord P0_x, FiWord P1_i)
4992	{
4993	FiWord T0, T2;
4994	FiClos T1;
4995	T2 = ((PFmt44) P0_x)->X6_names;
4996	if ((FiPtr) T2 == (FiPtr) fiNil((Ptr) 0)) goto L0;
4997	L1: T0 = ((PFmt44) P0_x)->X4_parents;
4998	return ((FiWord*) ((PFmt39) T0)->X2_values)[(FiSInt) P1_i - 1L];
4999	L0: T1 = (FiClos) ((PFmt44) P0_x)->X0_buildFn;
5000	fiCCall2(void, T1, P0_x, ((PFmt44) P0_x)->X3_domain)((((void ()())(T1)->prog->fun))((T1)->env,P0_x,((PFmt44 ) P0_x)->X3_domain));
5001	goto L1;
5002	}
5003
5004	static struct _FiProg tmp92_pg1 = {
5005	(FiFun) CF92_pg1,
5006	0L,
5007	0L,
5008	0L,
5009	0L
5010	};
5011
5012
5013	static FiWord
5014	CF93_b1(FiEnv e1, FiWord P0_r, FiWord P1_dom)
5015	{
5016	FiSInt T4, T5, T6, T7, T8, T21, T22, T25, T26;
5017	FiPtr T9, T11, T20, T24;
5018	PFmt39 T19, T23;
5019	PFmt38 T18;
5020	PFmt44 T17;
5021	FiClos T14, T15, T16;
5022	FiWord *T0, T3, T10, T12, T13;
5023	PFmt42 T2;
5024	PFmt47 T1;
5025	fiARRNEW_Word(T0, FiWord, 1L)((T0) = (FiWord) fiArrNew_Word(1L));
5026	T1 = fi0RecNew(struct Fmt47 , CENSUS_Rec)((struct Fmt47 *) fi0RecAlloc(sizeof(struct Fmt47), ( 5)));
5027	T1->X0_size = 1L;
5028	T1->X1_values = (FiWord*) T0;
5029	T0[0L] = P1_dom;
5030	T14 = (FiClos) ((PFmt44) P0_r)->X0_buildFn;
5031	T15 = (FiClos) ((PFmt44) P0_r)->X1_hashFn;
5032	T16 = (FiClos) ((PFmt44) P0_r)->X9_nameFn;
5033	T17 = fi0RecNew(struct Fmt44 , CENSUS_Rec)((struct Fmt44 *) fi0RecAlloc(sizeof(struct Fmt44), ( 5)));
5034	T17->X0_buildFn = (FiWord) T14;
5035	T17->X1_hashFn = T15;
5036	T18 = fi0RecNew(struct Fmt38 , CENSUS_Rec)((struct Fmt38 *) fi0RecAlloc(sizeof(struct Fmt38), ( 5)));
5037	T18->X0_posn = (FiWord) 0L;
5038	T19 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
5039	T19->X0_size = (FiWord) 15L;
5040	T19->X1_nvalues = (FiWord) 15L;
5041	T20 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
5042	T22 = 1L;
5043	L3: if (T22 <= 15L) goto L4;
5044	T19->X2_values = (FiWord) T20;
5045	T18->X1_keys = (FiWord) T19;
5046	T23 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));
5047	T23->X0_size = (FiWord) 15L;
5048	T23->X1_nvalues = (FiWord) 15L;
5049	T24 = (FiPtr*) (FiPtr) fiArrNew_Word(15L);
5050	T26 = 1L;
5051	L5: if (T26 <= 15L) goto L6;
5052	T23->X2_values = (FiWord) T24;
5053	T18->X2_values = (FiWord) T23;
5054	T18->X3_size = (FiWord) 15L;
5055	T17->X2_dc = (FiWord) T18;
5056	T17->X3_domain = (FiWord) fiNil((Ptr) 0);
5057	T17->X4_parents = (FiWord) fiNil((Ptr) 0);
5058	T17->X5_nparents = (FiWord) 0L;
5059	T17->X6_names = (FiWord) fiNil((Ptr) 0);
5060	T17->X7_types = (FiWord) fiNil((Ptr) 0);
5061	T17->X8_exports = (FiWord) fiNil((Ptr) 0);
5062	T17->X9_nameFn = T16;
5063	T17->X3_domain = P1_dom;
5064	T17->X2_dc = (FiWord) fiNil((Ptr) 0);
5065	T3 = fiCCall0(FiWord, G_79OOL_aldorCatDispatchVector)((((FiWord ()())(G_79OOL_aldorCatDispatchVector)->prog-> fun))((G_79OOL_aldorCatDispatchVector)->env));
5066	if ((FiPtr) T3 == (FiPtr) fiNil((Ptr) 0)) goto L0;
5067	T2 = fi0RecNew(struct Fmt42 , CENSUS_Rec)((struct Fmt42 *) fi0RecAlloc(sizeof(struct Fmt42), ( 5)));
5068	T2->X0_cdv = T3;
5069	T2->X1_catRep = (FiWord) T17;
5070	T13 = ((PFmt44) P0_r)->X2_dc;
5071	T5 = (FiSInt) ((PFmt38) T13)->X0_posn;
5072	T12 = ((PFmt38) T13)->X1_keys;
5073	T11 = (FiPtr*) ((PFmt39) T12)->X2_values;
5074	((FiWord*) T11)[T5] = (FiWord) T1;
5075	T4 = (FiSInt) ((PFmt38) T13)->X0_posn;
5076	T10 = ((PFmt38) T13)->X2_values;
5077	T9 = (FiPtr*) ((PFmt39) T10)->X2_values;
5078	((FiWord*) T9)[T4] = (FiWord) T2;
5079	T7 = (FiSInt) ((PFmt38) T13)->X0_posn;
5080	T8 = (FiSInt) ((PFmt38) T13)->X3_size;
5081	T7 = T7 - T8;
5082	T6 = T7 + 1L;
5083	if (T6 < 0L) goto L1;
5084	L2: ((PFmt38) T13)->X0_posn = (FiWord) T6;
5085	return (FiWord) T2;
5086	L1: T6 = T6 + T8;
5087	goto L2;
5088	L0: fiHalt((FiSInt) 102L);
5089	return (FiWord) 0L;
5090	L6: T25 = T26 - 1L;
5091	((FiWord*) T24)[T25] = (FiWord) fiNil((Ptr) 0);
5092	T26 = T26 + 1L;
5093	goto L5;
5094	L4: T21 = T22 - 1L;
5095	((FiWord*) T20)[T21] = (FiWord) fiNil((Ptr) 0);
5096	T22 = T22 + 1L;
5097	goto L3;
5098	}
5099
5100	static struct _FiProg tmp93_b1 = {
5101	(FiFun) CF93_b1,
5102	0L,
5103	0L,
5104	0L,
5105	0L
5106	};
5107
5108
5109	static FiWord
5110	CF94_dummyCatDispatchVector(FiEnv e1)
5111	{
5112	PFmt43 T6;
5113	FiClos T0_pg0, T1_pc0, T2_h0, T3_g0, T4_b0, T5_n0;
5114	FiEnv e0;
5115	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5116	T5_n0 = fiClosMake(e0, C95_n0)fiClosMakeFun(e0, (FiProg) (C95_n0));
5117	T4_b0 = fiClosMake(e0, C96_b0)fiClosMakeFun(e0, (FiProg) (C96_b0));
5118	T3_g0 = fiClosMake(e0, C97_g0)fiClosMakeFun(e0, (FiProg) (C97_g0));
5119	T2_h0 = fiClosMake(e0, C98_h0)fiClosMakeFun(e0, (FiProg) (C98_h0));
5120	T1_pc0 = fiClosMake(e0, C99_pc0)fiClosMakeFun(e0, (FiProg) (C99_pc0));
5121	T0_pg0 = fiClosMake(e0, C100_pg0)fiClosMakeFun(e0, (FiProg) (C100_pg0));
5122	T6 = fi0RecNew(struct Fmt43 , CENSUS_Rec)((struct Fmt43 *) fi0RecAlloc(sizeof(struct Fmt43), ( 5)));
5123	T6->X0_tag = (FiWord) 10L;
5124	T6->X1_namer = T5_n0;
5125	T6->X2_noname = (FiWord) fiNil((Ptr) 0);
5126	T6->X3_getter = T3_g0;
5127	T6->X4_hasher = T2_h0;
5128	T6->X5_builder = T4_b0;
5129	T6->X6_parentCounter = T1_pc0;
5130	T6->X7_parentGetter = T0_pg0;
5131	return (FiWord) T6;
5132	}
5133
5134	static struct _FiProg tmp94_dummyCatDispatchVector = {
5135	(FiFun) CF94_dummyCatDispatchVector,
5136	0L,
5137	0L,
5138	0L,
5139	0L
5140	};
5141
5142
5143	static FiWord
5144	CF95_n0(FiEnv e1, FiWord P0_x)
5145	{
5146	PFmt30 T0;
5147	T0 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
5148	T0->X0_tag = 0L;
5149	T0->X1_p = (FiWord) "Dunno";
5150	return (FiWord) T0;
5151	}
5152
5153	static struct _FiProg tmp95_n0 = {
5154	(FiFun) CF95_n0,
5155	0L,
5156	0L,
5157	0L,
5158	0L
5159	};
5160
5161
5162	static FiWord
5163	CF96_b0(FiEnv e1, FiWord P0_x, FiWord P1_d)
5164	{
5165	fiRaiseException((FiWord) "build on incomplete category");
5166	fiHalt((FiSInt) 102L);
5167	return (FiWord) 0L;
5168	}
5169
5170	static struct _FiProg tmp96_b0 = {
5171	(FiFun) CF96_b0,
5172	0L,
5173	0L,
5174	0L,
5175	0L
5176	};
5177
5178
5179	static FiWord
5180	CF97_g0(FiEnv e1, FiWord P0_x, FiWord P1_d, FiWord P2_h, FiWord
5181	P3_h2, FiWord P4_b)
5182	{
5183	fiRaiseException((FiWord) "get on incomplete category");
5184	fiHalt((FiSInt) 102L);
5185	return (FiWord) 0L;
5186	}
5187
5188	static struct _FiProg tmp97_g0 = {
5189	(FiFun) CF97_g0,
5190	0L,
5191	0L,
5192	0L,
5193	0L
5194	};
5195
5196
5197	static FiWord
5198	CF98_h0(FiEnv e1, FiWord P0_x)
5199	{
5200	fiRaiseException((FiWord) "hash value read on incomplete domain");
5201	fiHalt((FiSInt) 102L);
5202	return (FiWord) 0L;
5203	}
5204
5205	static struct _FiProg tmp98_h0 = {
5206	(FiFun) CF98_h0,
5207	0L,
5208	0L,
5209	0L,
5210	0L
5211	};
5212
5213
5214	static FiWord
5215	CF99_pc0(FiEnv e1, FiWord P0_x)
5216	{
5217	fiRaiseException((FiWord) "parent count on incomplete category");
5218	fiHalt((FiSInt) 102L);
5219	return (FiWord) 0L;
5220	}
5221
5222	static struct _FiProg tmp99_pc0 = {
5223	(FiFun) CF99_pc0,
5224	0L,
5225	0L,
5226	0L,
5227	0L
5228	};
5229
5230
5231	static FiWord
5232	CF100_pg0(FiEnv e1, FiWord P0_x, FiWord P1_i)
5233	{
5234	fiRaiseException((FiWord) "parent get on incomplete category");
5235	fiHalt((FiSInt) 102L);
5236	return (FiWord) 0L;
5237	}
5238
5239	static struct _FiProg tmp100_pg0 = {
5240	(FiFun) CF100_pg0,
5241	0L,
5242	0L,
5243	0L,
5244	0L
5245	};
5246
5247
5248	static FiWord
5249	CF101_namePartConcat(FiEnv e1, FiWord P0_x, FiWord P1_T)
5250	{
5251	FiSInt T3, T6, T7;
5252	PFmt28 T5;
5253	FiWord T0, T4;
5254	PFmt30 T1, T2;
5255	T4 = (FiWord) fiNil((Ptr) 0);
5256	T3 = ((PFmt47) P1_T)->X0_size;
5257	T7 = T3 - 1L;
5258	T6 = 0L;
5259	L2: if (T6 <= T7) goto L3;
5260	if ((FiBool) P0_x) goto L0;
5261	T1 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
5262	T1->X0_tag = 1L;
5263	T1->X1_p = T4;
5264	T0 = (FiWord) T1;
5265	L1: return T0;
5266	L0: T2 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
5267	T2->X0_tag = 2L;
5268	T2->X1_p = T4;
5269	T0 = (FiWord) T2;
5270	goto L1;
5271	L3: T5 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
5272	T5->X0_first = ((PFmt47) P1_T)->X1_values[T3 - T6 - 1L];
5273	T5->X1_rest = T4;
5274	T4 = (FiWord) T5;
5275	T6 = T6 + 1L;
5276	goto L2;
5277	}
5278
5279	static struct _FiProg tmp101_namePartConcat = {
5280	(FiFun) CF101_namePartConcat,
5281	0L,
5282	0L,
5283	0L,
5284	0L
5285	};
5286
5287
5288	static FiWord
5289	CF102_namePartFrString(FiEnv e1, FiWord P0_s)
5290	{
5291	PFmt30 T0;
5292	T0 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
5293	T0->X0_tag = 0L;
5294	T0->X1_p = P0_s;
5295	return (FiWord) T0;
5296	}
5297
5298	static struct _FiProg tmp102_namePartFrString = {
5299	(FiFun) CF102_namePartFrString,
5300	0L,
5301	0L,
5302	0L,
5303	0L
5304	};
5305
5306
5307	static FiWord
5308	CF103_namePartFrOther(FiEnv e1, FiWord P0_p)
5309	{
5310	PFmt30 T0;
5311	T0 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
5312	T0->X0_tag = 3L;
5313	T0->X1_p = P0_p;
5314	return (FiWord) T0;
5315	}
5316
5317	static struct _FiProg tmp103_namePartFrOther = {
5318	(FiFun) CF103_namePartFrOther,
5319	0L,
5320	0L,
5321	0L,
5322	0L
5323	};
5324
5325
5326	static FiWord
5327	CF104_stringHash(FiEnv e1, FiWord P0_s)
5328	{
5329	return fiStrHash(P0_s);
5330	}
5331
5332	static struct _FiProg tmp104_stringHash = {
5333	(FiFun) CF104_stringHash,
5334	0L,
5335	0L,
5336	0L,
5337	0L
5338	};
5339
5340
5341	static void
5342	CF105_rtAssertMessage(FiEnv e1, FiWord P0_file, FiWord P1_line, FiWord
5343	P2_msg)
5344	{
5345	FiEnv T26;
5346	FiClos T0, T1, T2, T3, T4, T5, T7, T8, T9, T10, T11, T12, T14, T15, T16, T18, T19, T20, T23, T24, T25;
5347	FiWord T6, T13, T17, T21, T22;
5348	T26 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5349	T21 = (FiWord) fiClosMake(T26, C8_PRINT)fiClosMakeFun(T26, (FiProg) (C8_PRINT));
5350	T22 = (FiWord) "Assertion failed at ";
5351	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T21)->prog->fun)
5352	FiClos) T21)((( FiClos) T21)->prog->fun))(((FiClos) T21)->env, &T18, &T19, &T20);
5353	fiCCall3(FiWord, T19, T22, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T19)->prog->fun))((T19)->env,T22, (FiWord) 1L,(FiWord) 0L));
5354	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T21)->prog->fun)
5355	FiClos) T21)((( FiClos) T21)->prog->fun))(((FiClos) T21)->env, &T23, &T24, &T25);
5356	fiCCall3(FiWord, T24, P0_file, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T24)->prog->fun))((T24)->env,P0_file ,(FiWord) 1L,(FiWord) 0L));
5357	T13 = (FiWord) ":";
5358	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T21)->prog->fun)
5359	FiClos) T21)((( FiClos) T21)->prog->fun))(((FiClos) T21)->env, &T10, &T11, &T12);
5360	fiCCall3(FiWord, T11, T13, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T11)->prog->fun))((T11)->env,T13, (FiWord) 1L,(FiWord) 0L));
5361	T17 = formatSInt((FiSInt) P1_line);
5362	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T21)->prog->fun)
5363	FiClos) T21)((( FiClos) T21)->prog->fun))(((FiClos) T21)->env, &T14, &T15, &T16);
5364	fiCCall3(FiWord, T15, T17, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T15)->prog->fun))((T15)->env,T17, (FiWord) 1L,(FiWord) 0L));
5365	T6 = (FiWord) ": ";
5366	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T21)->prog->fun)
5367	FiClos) T21)((( FiClos) T21)->prog->fun))(((FiClos) T21)->env, &T3, &T4, &T5);
5368	fiCCall3(FiWord, T4, T6, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T4)->prog->fun))((T4)->env,T6,(FiWord ) 1L,(FiWord) 0L));
5369	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T21)->prog->fun)
5370	FiClos) T21)((( FiClos) T21)->prog->fun))(((FiClos) T21)->env, &T7, &T8, &T9);
5371	fiCCall3(FiWord, T8, P2_msg, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T8)->prog->fun))((T8)->env,P2_msg ,(FiWord) 1L,(FiWord) 0L));
5372	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T21)->prog->fun)
5373	FiClos) T21)((( FiClos) T21)->prog->fun))(((FiClos) T21)->env, &T0, &T1, &T2);
5374	fiCCall1(void, T0, (FiWord) 10L)((((void ()())(T0)->prog->fun))((T0)->env,(FiWord) 10L));
5375	return ;
5376	}
5377
5378	static struct _FiProg tmp105_rtAssertMessage = {
5379	(FiFun) CF105_rtAssertMessage,
5380	0L,
5381	0L,
5382	0L,
5383	0L
5384	};
5385
5386
5387	static void
5388	CF106_lazyGetter2(FiEnv e1)
5389	{
5390	FiClos T0;
5391	PFmt25 l1;
5392	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5393	if (l1->X1_flag) goto L0;
5394	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5395	l1->X1_flag = 1L;
5396	l1->X2_self->env = T0->env;
5397	l1->X2_self->prog = T0->prog;
5398	fiEnvInfo(e1)(((FiEnv) (e1))->info) = (FiWord) fiNil((Ptr) 0);
5399	L0: return ;
5400	}
5401
5402	static struct _FiProg tmp106_lazyGetter2 = {
5403	(FiFun) CF106_lazyGetter2,
5404	0L,
5405	0L,
5406	0L,
5407	0L
5408	};
5409
5410
5411	static FiClos
5412	CF107_lazyFnGetter(FiEnv e1, FiWord P0_init)
5413	{
5414	PFmt25 l0;
5415	FiEnv e0;
5416	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5417	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5418	l0->X0_getter = (FiClos) P0_init;
5419	l0->X1_flag = 0L;
5420	l0->X2_self = fiClosMake(e0, C108_lazyGetter)fiClosMakeFun(e0, (FiProg) (C108_lazyGetter));
5421	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5422	return l0->X2_self;
5423	}
5424
5425	static struct _FiProg tmp107_lazyFnGetter = {
5426	(FiFun) CF107_lazyFnGetter,
5427	0L,
5428	0L,
5429	0L,
5430	0L
5431	};
5432
5433
5434	static void
5435	CF108_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c,
5436	FiWord* R0, FiWord* R1)
5437	{
5438	FiWord T1, T2;
5439	FiClos T0;
5440	PFmt25 l1;
5441	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5442	if (l1->X1_flag) goto L0;
5443	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5444	l1->X2_self->env = T0->env;
5445	l1->X2_self->prog = T0->prog;
5446	l1->X1_flag = 1L;
5447	L0: ((void()(FiEnv , FiWord , FiWord , FiWord , FiWord , FiWord* ))
5448	fiRawCProg(l1->X2_self)((l1->X2_self)->prog->fun))((l1->X2_self)->env, (FiWord)
5449	P0_a, (FiWord) P1_b, (FiWord) P2_c, &T1, &T2);
5450	*R0 = T1;
5451	*R1 = T2;
5452	return ;
5453	}
5454
5455	static struct _FiProg tmp108_lazyGetter = {
5456	(FiFun) CF108_lazyGetter,
5457	0L,
5458	0L,
5459	0L,
5460	0L
5461	};
5462
5463
5464	static FiClos
5465	CF109_lazyFnGetter(FiEnv e1, FiWord P0_init)
5466	{
5467	PFmt25 l0;
5468	FiEnv e0;
5469	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5470	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5471	l0->X0_getter = (FiClos) P0_init;
5472	l0->X1_flag = 0L;
5473	l0->X2_self = fiClosMake(e0, C110_lazyGetter)fiClosMakeFun(e0, (FiProg) (C110_lazyGetter));
5474	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5475	return l0->X2_self;
5476	}
5477
5478	static struct _FiProg tmp109_lazyFnGetter = {
5479	(FiFun) CF109_lazyFnGetter,
5480	0L,
5481	0L,
5482	0L,
5483	0L
5484	};
5485
5486
5487	static FiWord
5488	CF110_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c)
5489	{
5490	FiClos T0;
5491	PFmt25 l1;
5492	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5493	if (l1->X1_flag) goto L0;
5494	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5495	l1->X2_self->env = T0->env;
5496	l1->X2_self->prog = T0->prog;
5497	l1->X1_flag = 1L;
5498	L0: return fiCCall3(FiWord, l1->X2_self, P0_a, P1_b, P2_c)((((FiWord ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a,P1_b,P2_c));
5499	}
5500
5501	static struct _FiProg tmp110_lazyGetter = {
5502	(FiFun) CF110_lazyGetter,
5503	0L,
5504	0L,
5505	0L,
5506	0L
5507	};
5508
5509
5510	static FiClos
5511	CF111_lazyFnGetter(FiEnv e1, FiWord P0_init)
5512	{
5513	PFmt25 l0;
5514	FiEnv e0;
5515	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5516	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5517	l0->X0_getter = (FiClos) P0_init;
5518	l0->X1_flag = 0L;
5519	l0->X2_self = fiClosMake(e0, C112_lazyGetter)fiClosMakeFun(e0, (FiProg) (C112_lazyGetter));
5520	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5521	return l0->X2_self;
5522	}
5523
5524	static struct _FiProg tmp111_lazyFnGetter = {
5525	(FiFun) CF111_lazyFnGetter,
5526	0L,
5527	0L,
5528	0L,
5529	0L
5530	};
5531
5532
5533	static void
5534	CF112_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c)
5535	{
5536	FiClos T0;
5537	PFmt25 l1;
5538	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5539	if (l1->X1_flag) goto L0;
5540	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5541	l1->X2_self->env = T0->env;
5542	l1->X2_self->prog = T0->prog;
5543	l1->X1_flag = 1L;
5544	L0: fiCCall3(void, l1->X2_self, P0_a, P1_b, P2_c)((((void ()())(l1->X2_self)->prog->fun))((l1->X2_self )->env,P0_a,P1_b,P2_c));
5545	return ;
5546	}
5547
5548	static struct _FiProg tmp112_lazyGetter = {
5549	(FiFun) CF112_lazyGetter,
5550	0L,
5551	0L,
5552	0L,
5553	0L
5554	};
5555
5556
5557	static FiClos
5558	CF113_lazyFnGetter(FiEnv e1, FiWord P0_init)
5559	{
5560	PFmt25 l0;
5561	FiEnv e0;
5562	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5563	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5564	l0->X0_getter = (FiClos) P0_init;
5565	l0->X1_flag = 0L;
5566	l0->X2_self = fiClosMake(e0, C114_lazyGetter)fiClosMakeFun(e0, (FiProg) (C114_lazyGetter));
5567	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5568	return l0->X2_self;
5569	}
5570
5571	static struct _FiProg tmp113_lazyFnGetter = {
5572	(FiFun) CF113_lazyFnGetter,
5573	0L,
5574	0L,
5575	0L,
5576	0L
5577	};
5578
5579
5580	static FiClos
5581	CF114_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c)
5582	{
5583	FiClos T0;
5584	PFmt25 l1;
5585	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5586	if (l1->X1_flag) goto L0;
5587	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5588	l1->X2_self->env = T0->env;
5589	l1->X2_self->prog = T0->prog;
5590	l1->X1_flag = 1L;
5591	L0: return fiCCall3(FiClos, l1->X2_self, P0_a, P1_b, P2_c)((((FiClos ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a,P1_b,P2_c));
5592	}
5593
5594	static struct _FiProg tmp114_lazyGetter = {
5595	(FiFun) CF114_lazyGetter,
5596	0L,
5597	0L,
5598	0L,
5599	0L
5600	};
5601
5602
5603	static FiClos
5604	CF115_lazyFnGetter(FiEnv e1, FiWord P0_init)
5605	{
5606	PFmt25 l0;
5607	FiEnv e0;
5608	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5609	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5610	l0->X0_getter = (FiClos) P0_init;
5611	l0->X1_flag = 0L;
5612	l0->X2_self = fiClosMake(e0, C116_lazyGetter)fiClosMakeFun(e0, (FiProg) (C116_lazyGetter));
5613	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5614	return l0->X2_self;
5615	}
5616
5617	static struct _FiProg tmp115_lazyFnGetter = {
5618	(FiFun) CF115_lazyFnGetter,
5619	0L,
5620	0L,
5621	0L,
5622	0L
5623	};
5624
5625
5626	static void
5627	CF116_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord* R0,
5628	FiWord* R1)
5629	{
5630	FiWord T1, T2;
5631	FiClos T0;
5632	PFmt25 l1;
5633	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5634	if (l1->X1_flag) goto L0;
5635	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5636	l1->X2_self->env = T0->env;
5637	l1->X2_self->prog = T0->prog;
5638	l1->X1_flag = 1L;
5639	L0: ((void()(FiEnv , FiWord , FiWord , FiWord , FiWord* ))
5640	fiRawCProg(l1->X2_self)((l1->X2_self)->prog->fun))((l1->X2_self)->env, (FiWord)
5641	P0_a, (FiWord) P1_b, &T1, &T2);
5642	*R0 = T1;
5643	*R1 = T2;
5644	return ;
5645	}
5646
5647	static struct _FiProg tmp116_lazyGetter = {
5648	(FiFun) CF116_lazyGetter,
5649	0L,
5650	0L,
5651	0L,
5652	0L
5653	};
5654
5655
5656	static FiClos
5657	CF117_lazyFnGetter(FiEnv e1, FiWord P0_init)
5658	{
5659	PFmt25 l0;
5660	FiEnv e0;
5661	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5662	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5663	l0->X0_getter = (FiClos) P0_init;
5664	l0->X1_flag = 0L;
5665	l0->X2_self = fiClosMake(e0, C118_lazyGetter)fiClosMakeFun(e0, (FiProg) (C118_lazyGetter));
5666	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5667	return l0->X2_self;
5668	}
5669
5670	static struct _FiProg tmp117_lazyFnGetter = {
5671	(FiFun) CF117_lazyFnGetter,
5672	0L,
5673	0L,
5674	0L,
5675	0L
5676	};
5677
5678
5679	static FiWord
5680	CF118_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b)
5681	{
5682	FiClos T0;
5683	PFmt25 l1;
5684	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5685	if (l1->X1_flag) goto L0;
5686	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5687	l1->X2_self->env = T0->env;
5688	l1->X2_self->prog = T0->prog;
5689	l1->X1_flag = 1L;
5690	L0: return fiCCall2(FiWord, l1->X2_self, P0_a, P1_b)((((FiWord ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a,P1_b));
5691	}
5692
5693	static struct _FiProg tmp118_lazyGetter = {
5694	(FiFun) CF118_lazyGetter,
5695	0L,
5696	0L,
5697	0L,
5698	0L
5699	};
5700
5701
5702	static FiClos
5703	CF119_lazyFnGetter(FiEnv e1, FiWord P0_init)
5704	{
5705	PFmt25 l0;
5706	FiEnv e0;
5707	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5708	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5709	l0->X0_getter = (FiClos) P0_init;
5710	l0->X1_flag = 0L;
5711	l0->X2_self = fiClosMake(e0, C120_lazyGetter)fiClosMakeFun(e0, (FiProg) (C120_lazyGetter));
5712	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5713	return l0->X2_self;
5714	}
5715
5716	static struct _FiProg tmp119_lazyFnGetter = {
5717	(FiFun) CF119_lazyFnGetter,
5718	0L,
5719	0L,
5720	0L,
5721	0L
5722	};
5723
5724
5725	static void
5726	CF120_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b)
5727	{
5728	FiClos T0;
5729	PFmt25 l1;
5730	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5731	if (l1->X1_flag) goto L0;
5732	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5733	l1->X2_self->env = T0->env;
5734	l1->X2_self->prog = T0->prog;
5735	l1->X1_flag = 1L;
5736	L0: fiCCall2(void, l1->X2_self, P0_a, P1_b)((((void ()())(l1->X2_self)->prog->fun))((l1->X2_self )->env,P0_a,P1_b));
5737	return ;
5738	}
5739
5740	static struct _FiProg tmp120_lazyGetter = {
5741	(FiFun) CF120_lazyGetter,
5742	0L,
5743	0L,
5744	0L,
5745	0L
5746	};
5747
5748
5749	static FiClos
5750	CF121_lazyFnGetter(FiEnv e1, FiWord P0_init)
5751	{
5752	PFmt25 l0;
5753	FiEnv e0;
5754	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5755	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5756	l0->X0_getter = (FiClos) P0_init;
5757	l0->X1_flag = 0L;
5758	l0->X2_self = fiClosMake(e0, C122_lazyGetter)fiClosMakeFun(e0, (FiProg) (C122_lazyGetter));
5759	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5760	return l0->X2_self;
5761	}
5762
5763	static struct _FiProg tmp121_lazyFnGetter = {
5764	(FiFun) CF121_lazyFnGetter,
5765	0L,
5766	0L,
5767	0L,
5768	0L
5769	};
5770
5771
5772	static FiClos
5773	CF122_lazyGetter(FiEnv e1, FiWord P0_a, FiWord P1_b)
5774	{
5775	FiClos T0;
5776	PFmt25 l1;
5777	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5778	if (l1->X1_flag) goto L0;
5779	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5780	l1->X2_self->env = T0->env;
5781	l1->X2_self->prog = T0->prog;
5782	l1->X1_flag = 1L;
5783	L0: return fiCCall2(FiClos, l1->X2_self, P0_a, P1_b)((((FiClos ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a,P1_b));
5784	}
5785
5786	static struct _FiProg tmp122_lazyGetter = {
5787	(FiFun) CF122_lazyGetter,
5788	0L,
5789	0L,
5790	0L,
5791	0L
5792	};
5793
5794
5795	static FiClos
5796	CF123_lazyFnGetter(FiEnv e1, FiWord P0_init)
5797	{
5798	PFmt25 l0;
5799	FiEnv e0;
5800	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5801	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5802	l0->X0_getter = (FiClos) P0_init;
5803	l0->X1_flag = 0L;
5804	l0->X2_self = fiClosMake(e0, C124_lazyGetter)fiClosMakeFun(e0, (FiProg) (C124_lazyGetter));
5805	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5806	return l0->X2_self;
5807	}
5808
5809	static struct _FiProg tmp123_lazyFnGetter = {
5810	(FiFun) CF123_lazyFnGetter,
5811	0L,
5812	0L,
5813	0L,
5814	0L
5815	};
5816
5817
5818	static void
5819	CF124_lazyGetter(FiEnv e1, FiWord P0_a, FiWord* R0, FiWord* R1)
5820	{
5821	FiWord T1, T2;
5822	FiClos T0;
5823	PFmt25 l1;
5824	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5825	if (l1->X1_flag) goto L0;
5826	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5827	l1->X2_self->env = T0->env;
5828	l1->X2_self->prog = T0->prog;
5829	l1->X1_flag = 1L;
5830	L0: ((void()(FiEnv , FiWord , FiWord , FiWord* )) fiRawCProg(l1->((l1-> X2_self)->prog->fun)
5831	X2_self)((l1-> X2_self)->prog->fun))((l1->X2_self)->env, (FiWord) P0_a, &T1, &T2);
5832	*R0 = T1;
5833	*R1 = T2;
5834	return ;
5835	}
5836
5837	static struct _FiProg tmp124_lazyGetter = {
5838	(FiFun) CF124_lazyGetter,
5839	0L,
5840	0L,
5841	0L,
5842	0L
5843	};
5844
5845
5846	static FiClos
5847	CF125_lazyFnGetter(FiEnv e1, FiWord P0_init)
5848	{
5849	PFmt25 l0;
5850	FiEnv e0;
5851	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5852	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5853	l0->X0_getter = (FiClos) P0_init;
5854	l0->X1_flag = 0L;
5855	l0->X2_self = fiClosMake(e0, C126_lazyGetter)fiClosMakeFun(e0, (FiProg) (C126_lazyGetter));
5856	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5857	return l0->X2_self;
5858	}
5859
5860	static struct _FiProg tmp125_lazyFnGetter = {
5861	(FiFun) CF125_lazyFnGetter,
5862	0L,
5863	0L,
5864	0L,
5865	0L
5866	};
5867
5868
5869	static FiWord
5870	CF126_lazyGetter(FiEnv e1, FiWord P0_a)
5871	{
5872	FiClos T0;
5873	PFmt25 l1;
5874	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5875	if (l1->X1_flag) goto L0;
5876	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5877	l1->X2_self->env = T0->env;
5878	l1->X2_self->prog = T0->prog;
5879	l1->X1_flag = 1L;
5880	L0: return fiCCall1(FiWord, l1->X2_self, P0_a)((((FiWord ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a));
5881	}
5882
5883	static struct _FiProg tmp126_lazyGetter = {
5884	(FiFun) CF126_lazyGetter,
5885	0L,
5886	0L,
5887	0L,
5888	0L
5889	};
5890
5891
5892	static FiClos
5893	CF127_lazyFnGetter(FiEnv e1, FiWord P0_init)
5894	{
5895	PFmt25 l0;
5896	FiEnv e0;
5897	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5898	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5899	l0->X0_getter = (FiClos) P0_init;
5900	l0->X1_flag = 0L;
5901	l0->X2_self = fiClosMake(e0, C128_lazyGetter)fiClosMakeFun(e0, (FiProg) (C128_lazyGetter));
5902	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5903	return l0->X2_self;
5904	}
5905
5906	static struct _FiProg tmp127_lazyFnGetter = {
5907	(FiFun) CF127_lazyFnGetter,
5908	0L,
5909	0L,
5910	0L,
5911	0L
5912	};
5913
5914
5915	static void
5916	CF128_lazyGetter(FiEnv e1, FiWord P0_a)
5917	{
5918	FiClos T0;
5919	PFmt25 l1;
5920	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5921	if (l1->X1_flag) goto L0;
5922	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5923	l1->X2_self->env = T0->env;
5924	l1->X2_self->prog = T0->prog;
5925	l1->X1_flag = 1L;
5926	L0: fiCCall1(void, l1->X2_self, P0_a)((((void ()())(l1->X2_self)->prog->fun))((l1->X2_self )->env,P0_a));
5927	return ;
5928	}
5929
5930	static struct _FiProg tmp128_lazyGetter = {
5931	(FiFun) CF128_lazyGetter,
5932	0L,
5933	0L,
5934	0L,
5935	0L
5936	};
5937
5938
5939	static FiClos
5940	CF129_lazyFnGetter(FiEnv e1, FiWord P0_init)
5941	{
5942	PFmt25 l0;
5943	FiEnv e0;
5944	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5945	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5946	l0->X0_getter = (FiClos) P0_init;
5947	l0->X1_flag = 0L;
5948	l0->X2_self = fiClosMake(e0, C130_lazyGetter)fiClosMakeFun(e0, (FiProg) (C130_lazyGetter));
5949	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5950	return l0->X2_self;
5951	}
5952
5953	static struct _FiProg tmp129_lazyFnGetter = {
5954	(FiFun) CF129_lazyFnGetter,
5955	0L,
5956	0L,
5957	0L,
5958	0L
5959	};
5960
5961
5962	static FiClos
5963	CF130_lazyGetter(FiEnv e1, FiWord P0_a)
5964	{
5965	FiClos T0;
5966	PFmt25 l1;
5967	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
5968	if (l1->X1_flag) goto L0;
5969	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
5970	l1->X2_self->env = T0->env;
5971	l1->X2_self->prog = T0->prog;
5972	l1->X1_flag = 1L;
5973	L0: return fiCCall1(FiClos, l1->X2_self, P0_a)((((FiClos ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a));
5974	}
5975
5976	static struct _FiProg tmp130_lazyGetter = {
5977	(FiFun) CF130_lazyGetter,
5978	0L,
5979	0L,
5980	0L,
5981	0L
5982	};
5983
5984
5985	static FiClos
5986	CF131_lazyFnGetter(FiEnv e1, FiWord P0_init)
5987	{
5988	PFmt25 l0;
5989	FiEnv e0;
5990	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
5991	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
5992	l0->X0_getter = (FiClos) P0_init;
5993	l0->X1_flag = 0L;
5994	l0->X2_self = fiClosMake(e0, C132_lazyGetter)fiClosMakeFun(e0, (FiProg) (C132_lazyGetter));
5995	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
5996	return l0->X2_self;
5997	}
5998
5999	static struct _FiProg tmp131_lazyFnGetter = {
6000	(FiFun) CF131_lazyFnGetter,
6001	0L,
6002	0L,
6003	0L,
6004	0L
6005	};
6006
6007
6008	static void
6009	CF132_lazyGetter(FiEnv e1, FiClos P0_a, FiWord* R0, FiWord* R1)
6010	{
6011	FiWord T1, T2;
6012	FiClos T0;
6013	PFmt25 l1;
6014	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
6015	if (l1->X1_flag) goto L0;
6016	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
6017	l1->X2_self->env = T0->env;
6018	l1->X2_self->prog = T0->prog;
6019	l1->X1_flag = 1L;
6020	L0: ((void()(FiEnv , FiWord , FiWord , FiWord* )) fiRawCProg(l1->((l1-> X2_self)->prog->fun)
6021	X2_self)((l1-> X2_self)->prog->fun))((l1->X2_self)->env, (FiWord) P0_a, &T1, &T2);
6022	*R0 = T1;
6023	*R1 = T2;
6024	return ;
6025	}
6026
6027	static struct _FiProg tmp132_lazyGetter = {
6028	(FiFun) CF132_lazyGetter,
6029	0L,
6030	0L,
6031	0L,
6032	0L
6033	};
6034
6035
6036	static FiClos
6037	CF133_lazyFnGetter(FiEnv e1, FiWord P0_init)
6038	{
6039	PFmt25 l0;
6040	FiEnv e0;
6041	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
6042	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
6043	l0->X0_getter = (FiClos) P0_init;
6044	l0->X1_flag = 0L;
6045	l0->X2_self = fiClosMake(e0, C134_lazyGetter)fiClosMakeFun(e0, (FiProg) (C134_lazyGetter));
6046	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
6047	return l0->X2_self;
6048	}
6049
6050	static struct _FiProg tmp133_lazyFnGetter = {
6051	(FiFun) CF133_lazyFnGetter,
6052	0L,
6053	0L,
6054	0L,
6055	0L
6056	};
6057
6058
6059	static FiWord
6060	CF134_lazyGetter(FiEnv e1, FiClos P0_a)
6061	{
6062	FiClos T0;
6063	PFmt25 l1;
6064	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
6065	if (l1->X1_flag) goto L0;
6066	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
6067	l1->X2_self->env = T0->env;
6068	l1->X2_self->prog = T0->prog;
6069	l1->X1_flag = 1L;
6070	L0: return fiCCall1(FiWord, l1->X2_self, P0_a)((((FiWord ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a));
6071	}
6072
6073	static struct _FiProg tmp134_lazyGetter = {
6074	(FiFun) CF134_lazyGetter,
6075	0L,
6076	0L,
6077	0L,
6078	0L
6079	};
6080
6081
6082	static FiClos
6083	CF135_lazyFnGetter(FiEnv e1, FiWord P0_init)
6084	{
6085	PFmt25 l0;
6086	FiEnv e0;
6087	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
6088	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
6089	l0->X0_getter = (FiClos) P0_init;
6090	l0->X1_flag = 0L;
6091	l0->X2_self = fiClosMake(e0, C136_lazyGetter)fiClosMakeFun(e0, (FiProg) (C136_lazyGetter));
6092	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
6093	return l0->X2_self;
6094	}
6095
6096	static struct _FiProg tmp135_lazyFnGetter = {
6097	(FiFun) CF135_lazyFnGetter,
6098	0L,
6099	0L,
6100	0L,
6101	0L
6102	};
6103
6104
6105	static void
6106	CF136_lazyGetter(FiEnv e1, FiClos P0_a)
6107	{
6108	FiClos T0;
6109	PFmt25 l1;
6110	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
6111	if (l1->X1_flag) goto L0;
6112	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
6113	l1->X2_self->env = T0->env;
6114	l1->X2_self->prog = T0->prog;
6115	l1->X1_flag = 1L;
6116	L0: fiCCall1(void, l1->X2_self, P0_a)((((void ()())(l1->X2_self)->prog->fun))((l1->X2_self )->env,P0_a));
6117	return ;
6118	}
6119
6120	static struct _FiProg tmp136_lazyGetter = {
6121	(FiFun) CF136_lazyGetter,
6122	0L,
6123	0L,
6124	0L,
6125	0L
6126	};
6127
6128
6129	static FiClos
6130	CF137_lazyFnGetter(FiEnv e1, FiWord P0_init)
6131	{
6132	PFmt25 l0;
6133	FiEnv e0;
6134	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
6135	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
6136	l0->X0_getter = (FiClos) P0_init;
6137	l0->X1_flag = 0L;
6138	l0->X2_self = fiClosMake(e0, C138_lazyGetter)fiClosMakeFun(e0, (FiProg) (C138_lazyGetter));
6139	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
6140	return l0->X2_self;
6141	}
6142
6143	static struct _FiProg tmp137_lazyFnGetter = {
6144	(FiFun) CF137_lazyFnGetter,
6145	0L,
6146	0L,
6147	0L,
6148	0L
6149	};
6150
6151
6152	static FiClos
6153	CF138_lazyGetter(FiEnv e1, FiClos P0_a)
6154	{
6155	FiClos T0;
6156	PFmt25 l1;
6157	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
6158	if (l1->X1_flag) goto L0;
6159	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
6160	l1->X2_self->env = T0->env;
6161	l1->X2_self->prog = T0->prog;
6162	l1->X1_flag = 1L;
6163	L0: return fiCCall1(FiClos, l1->X2_self, P0_a)((((FiClos ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a));
6164	}
6165
6166	static struct _FiProg tmp138_lazyGetter = {
6167	(FiFun) CF138_lazyGetter,
6168	0L,
6169	0L,
6170	0L,
6171	0L
6172	};
6173
6174
6175	static FiClos
6176	CF139_lazyFnGetter(FiEnv e1, FiWord P0_init)
6177	{
6178	PFmt25 l0;
6179	FiEnv e0;
6180	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
6181	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
6182	l0->X0_getter = (FiClos) P0_init;
6183	l0->X1_flag = 0L;
6184	l0->X2_self = fiClosMake(e0, C140_lazyGetter)fiClosMakeFun(e0, (FiProg) (C140_lazyGetter));
6185	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
6186	return l0->X2_self;
6187	}
6188
6189	static struct _FiProg tmp139_lazyFnGetter = {
6190	(FiFun) CF139_lazyFnGetter,
6191	0L,
6192	0L,
6193	0L,
6194	0L
6195	};
6196
6197
6198	static void
6199	CF140_lazyGetter(FiEnv e1, FiWord* R0, FiWord* R1)
6200	{
6201	FiWord T1, T2;
6202	FiClos T0;
6203	PFmt25 l1;
6204	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
6205	if (l1->X1_flag) goto L0;
6206	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
6207	l1->X2_self->env = T0->env;
6208	l1->X2_self->prog = T0->prog;
6209	l1->X1_flag = 1L;
6210	L0: ((void()(FiEnv , FiWord , FiWord* )) fiRawCProg(l1->X2_self)((l1->X2_self)->prog->fun))((
6211	l1->X2_self)->env, &T1, &T2);
6212	*R0 = T1;
6213	*R1 = T2;
6214	return ;
6215	}
6216
6217	static struct _FiProg tmp140_lazyGetter = {
6218	(FiFun) CF140_lazyGetter,
6219	0L,
6220	0L,
6221	0L,
6222	0L
6223	};
6224
6225
6226	static FiClos
6227	CF141_lazyFnGetter(FiEnv e1, FiWord P0_init)
6228	{
6229	PFmt25 l0;
6230	FiEnv e0;
6231	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
6232	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
6233	l0->X0_getter = (FiClos) P0_init;
6234	l0->X1_flag = 0L;
6235	l0->X2_self = fiClosMake(e0, C142_lazyGetter)fiClosMakeFun(e0, (FiProg) (C142_lazyGetter));
6236	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
6237	return l0->X2_self;
6238	}
6239
6240	static struct _FiProg tmp141_lazyFnGetter = {
6241	(FiFun) CF141_lazyFnGetter,
6242	0L,
6243	0L,
6244	0L,
6245	0L
6246	};
6247
6248
6249	static FiWord
6250	CF142_lazyGetter(FiEnv e1)
6251	{
6252	FiClos T0;
6253	PFmt25 l1;
6254	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
6255	if (l1->X1_flag) goto L0;
6256	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
6257	l1->X2_self->env = T0->env;
6258	l1->X2_self->prog = T0->prog;
6259	l1->X1_flag = 1L;
6260	L0: return fiCCall0(FiWord, l1->X2_self)((((FiWord ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env));
6261	}
6262
6263	static struct _FiProg tmp142_lazyGetter = {
6264	(FiFun) CF142_lazyGetter,
6265	0L,
6266	0L,
6267	0L,
6268	0L
6269	};
6270
6271
6272	static FiClos
6273	CF143_lazyFnGetter(FiEnv e1, FiWord P0_init)
6274	{
6275	PFmt25 l0;
6276	FiEnv e0;
6277	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
6278	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
6279	l0->X0_getter = (FiClos) P0_init;
6280	l0->X1_flag = 0L;
6281	l0->X2_self = fiClosMake(e0, C144_lazyGetter)fiClosMakeFun(e0, (FiProg) (C144_lazyGetter));
6282	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
6283	return l0->X2_self;
6284	}
6285
6286	static struct _FiProg tmp143_lazyFnGetter = {
6287	(FiFun) CF143_lazyFnGetter,
6288	0L,
6289	0L,
6290	0L,
6291	0L
6292	};
6293
6294
6295	static void
6296	CF144_lazyGetter(FiEnv e1)
6297	{
6298	FiClos T0;
6299	PFmt25 l1;
6300	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
6301	if (l1->X1_flag) goto L0;
6302	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
6303	l1->X2_self->env = T0->env;
6304	l1->X2_self->prog = T0->prog;
6305	l1->X1_flag = 1L;
6306	L0: fiCCall0(void, l1->X2_self)((((void ()())(l1->X2_self)->prog->fun))((l1->X2_self )->env));
6307	return ;
6308	}
6309
6310	static struct _FiProg tmp144_lazyGetter = {
6311	(FiFun) CF144_lazyGetter,
6312	0L,
6313	0L,
6314	0L,
6315	0L
6316	};
6317
6318
6319	static FiClos
6320	CF145_lazyFnGetter(FiEnv e1, FiWord P0_init)
6321	{
6322	PFmt25 l0;
6323	FiEnv e0;
6324	l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));
6325	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
6326	l0->X0_getter = (FiClos) P0_init;
6327	l0->X1_flag = 0L;
6328	l0->X2_self = fiClosMake(e0, C146_lazyGetter)fiClosMakeFun(e0, (FiProg) (C146_lazyGetter));
6329	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C106_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C106_lazyGetter2));
6330	return l0->X2_self;
6331	}
6332
6333	static struct _FiProg tmp145_lazyFnGetter = {
6334	(FiFun) CF145_lazyFnGetter,
6335	0L,
6336	0L,
6337	0L,
6338	0L
6339	};
6340
6341
6342	static FiClos
6343	CF146_lazyGetter(FiEnv e1)
6344	{
6345	FiClos T0;
6346	PFmt25 l1;
6347	l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);
6348	if (l1->X1_flag) goto L0;
6349	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
6350	l1->X2_self->env = T0->env;
6351	l1->X2_self->prog = T0->prog;
6352	l1->X1_flag = 1L;
6353	L0: return fiCCall0(FiClos, l1->X2_self)((((FiClos ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env));
6354	}
6355
6356	static struct _FiProg tmp146_lazyGetter = {
6357	(FiFun) CF146_lazyGetter,
6358	0L,
6359	0L,
6360	0L,
6361	0L
6362	};
6363
6364
6365	static FiWord
6366	CF147_new(FiEnv e1)
6367	{
6368	PFmt30 T0;
6369	T0 = fi0RecNew(struct Fmt30 , CENSUS_Rec)((struct Fmt30 *) fi0RecAlloc(sizeof(struct Fmt30), ( 5)));
6370	T0->X0_tag = 0L;
6371	T0->X1_p = (FiWord) "Dunno";
6372	return (FiWord) T0;
6373	}
6374
6375	static struct _FiProg tmp147_new = {
6376	(FiFun) CF147_new,
6377	0L,
6378	0L,
6379	0L,
6380	0L
6381	};
6382
6383
6384	static FiWord
6385	CF148_n0(FiEnv e1, FiWord P0_x)
6386	{
6387	PFmt42 T2;
6388	FiWord T1;
6389	FiClos T0;
6390	if (((PFmt45) P0_x)->X0_tag == 0) goto L0;
6391	L1: if (((PFmt45) P0_x)->X0_tag == 1L) goto L3;
6392	fiHalt((FiSInt) 103L);
6393	return (FiWord) 0L;
6394	L3: T2 = (PFmt42) ((PFmt45) P0_x)->X1_value;
6395	T1 = T2->X0_cdv;
6396	T0 = (FiClos) ((PFmt43) T1)->X1_namer;
6397	return fiCCall1(FiWord, T0, T2->X1_catRep)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_catRep));
6398	L0: if (((PFmt45) P0_x)->X0_tag == 0) goto L2;
6399	fiHalt((FiSInt) 103L);
6400	return (FiWord) 0L;
6401	L2: ((PFmt45) P0_x)->X0_tag = 1L;
6402	((PFmt45) P0_x)->X1_value = fiCCall0(FiWord, (FiClos) ((PFmt45)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ))
6403	P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
6404	goto L1;
6405	}
6406
6407	static struct _FiProg tmp148_n0 = {
6408	(FiFun) CF148_n0,
6409	0L,
6410	0L,
6411	0L,
6412	0L
6413	};
6414
6415
6416	static FiWord
6417	CF149_b0(FiEnv e1, FiWord P0_x, FiWord P1_d)
6418	{
6419	PFmt42 T2;
6420	FiWord T1;
6421	FiClos T0;
6422	if (((PFmt45) P0_x)->X0_tag == 0) goto L0;
6423	L1: if (((PFmt45) P0_x)->X0_tag == 1L) goto L3;
6424	fiHalt((FiSInt) 103L);
6425	return (FiWord) 0L;
6426	L3: T2 = (PFmt42) ((PFmt45) P0_x)->X1_value;
6427	T1 = T2->X0_cdv;
6428	T0 = (FiClos) ((PFmt43) T1)->X5_builder;
6429	return fiCCall2(FiWord, T0, T2->X1_catRep, P1_d)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_catRep,P1_d));
6430	L0: if (((PFmt45) P0_x)->X0_tag == 0) goto L2;
6431	fiHalt((FiSInt) 103L);
6432	return (FiWord) 0L;
6433	L2: ((PFmt45) P0_x)->X0_tag = 1L;
6434	((PFmt45) P0_x)->X1_value = fiCCall0(FiWord, (FiClos) ((PFmt45)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ))
6435	P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
6436	goto L1;
6437	}
6438
6439	static struct _FiProg tmp149_b0 = {
6440	(FiFun) CF149_b0,
6441	0L,
6442	0L,
6443	0L,
6444	0L
6445	};
6446
6447
6448	static FiWord
6449	CF150_g0(FiEnv e1, FiWord P0_x, FiWord P1_d, FiWord P2_h, FiWord
6450	P3_h2, FiWord P4_b)
6451	{
6452	FiBool T14, T17, T18;
6453	FiWord T0, T2, T5, T8, T9, T12, T15, T16;
6454	PFmt28 T3, T6, T13;
6455	FiClos T4, T7, T11;
6456	PFmt42 T10;
6457	FiSInt T1;
6458	if (((PFmt45) P0_x)->X0_tag == 0) goto L7;
6459	L8: if (((PFmt45) P0_x)->X0_tag == 1L) goto L10;
6460	fiHalt((FiSInt) 103L);
6461	return (FiWord) 0L;
6462	L10: T15 = ((PFmt45) P0_x)->X1_value;
6463	T13 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
6464	T13->X0_first = T15;
6465	T13->X1_rest = (FiWord) fiNil((Ptr) 0);
6466	T3 = T13;
6467	L0: fiPTR_IS_NIL(T14, FiBool, (FiPtr) T3)((T14) = (FiBool)((FiPtr) ((FiPtr) T3) == (FiPtr) 0));
6468	if (T14) goto L1;
6469	T10 = (PFmt42) T3->X0_first;
6470	T9 = T3->X1_rest;
6471	T3 = (PFmt28) T9;
6472	T5 = T10->X0_cdv;
6473	T4 = (FiClos) ((PFmt43) T5)->X3_getter;
6474	T2 = fiCCall5(FiWord, T4, T10->X1_catRep, P1_d, P2_h, P3_h2,((((FiWord ()())(T4)->prog->fun))((T4)->env,T10-> X1_catRep,P1_d,P2_h,P3_h2,P4_b))
6475	P4_b)((((FiWord ()())(T4)->prog->fun))((T4)->env,T10-> X1_catRep,P1_d,P2_h,P3_h2,P4_b));
6476	fiPTR_IS_NIL(T17, FiBool, (FiPtr) T2)((T17) = (FiBool)((FiPtr) ((FiPtr) T2) == (FiPtr) 0));
6477	if (T17) goto L4;
6478	T16 = T2;
6479	L6: return T16;
6480	L4: T12 = T10->X0_cdv;
6481	T11 = (FiClos) ((PFmt43) T12)->X6_parentCounter;
6482	T1 = (FiSInt) fiCCall1(FiWord, T11, T10->X1_catRep)((((FiWord ()())(T11)->prog->fun))((T11)->env,T10-> X1_catRep));
6483	L2: if (T1 > 0) goto L5;
6484	goto L0;
6485	L5: T8 = T10->X0_cdv;
6486	T7 = (FiClos) ((PFmt43) T8)->X7_parentGetter;
6487	T0 = fiCCall2(FiWord, T7, T10->X1_catRep, (FiWord) T1)((((FiWord ()())(T7)->prog->fun))((T7)->env,T10-> X1_catRep,(FiWord) T1));
6488	fiPTR_IS_NIL(T18, FiBool, (FiPtr) T0)((T18) = (FiBool)((FiPtr) ((FiPtr) T0) == (FiPtr) 0));
6489	if (T18) goto L3;
6490	T6 = fi0RecNew(struct Fmt28 , CENSUS_Rec)((struct Fmt28 *) fi0RecAlloc(sizeof(struct Fmt28), ( 5)));
6491	T6->X0_first = T0;
6492	T6->X1_rest = (FiWord) T3;
6493	T3 = T6;
6494	L3: T1 = T1 - 1L;
6495	goto L2;
6496	L1: T16 = (FiWord) fiNil((Ptr) 0);
6497	goto L6;
6498	L7: if (((PFmt45) P0_x)->X0_tag == 0) goto L9;
6499	fiHalt((FiSInt) 103L);
6500	return (FiWord) 0L;
6501	L9: ((PFmt45) P0_x)->X0_tag = 1L;
6502	((PFmt45) P0_x)->X1_value = fiCCall0(FiWord, (FiClos) ((PFmt45)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ))
6503	P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
6504	goto L8;
6505	}
6506
6507	static struct _FiProg tmp150_g0 = {
6508	(FiFun) CF150_g0,
6509	0L,
6510	0L,
6511	0L,
6512	0L
6513	};
6514
6515
6516	static FiWord
6517	CF151_h0(FiEnv e1, FiWord P0_x)
6518	{
6519	PFmt42 T2;
6520	FiWord T1;
6521	FiClos T0;
6522	if (((PFmt45) P0_x)->X0_tag == 0) goto L0;
6523	L1: if (((PFmt45) P0_x)->X0_tag == 1L) goto L3;
6524	fiHalt((FiSInt) 103L);
6525	return (FiWord) 0L;
6526	L3: T2 = (PFmt42) ((PFmt45) P0_x)->X1_value;
6527	T1 = T2->X0_cdv;
6528	T0 = (FiClos) ((PFmt43) T1)->X4_hasher;
6529	return fiCCall1(FiWord, T0, T2->X1_catRep)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_catRep));
6530	L0: if (((PFmt45) P0_x)->X0_tag == 0) goto L2;
6531	fiHalt((FiSInt) 103L);
6532	return (FiWord) 0L;
6533	L2: ((PFmt45) P0_x)->X0_tag = 1L;
6534	((PFmt45) P0_x)->X1_value = fiCCall0(FiWord, (FiClos) ((PFmt45)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ))
6535	P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
6536	goto L1;
6537	}
6538
6539	static struct _FiProg tmp151_h0 = {
6540	(FiFun) CF151_h0,
6541	0L,
6542	0L,
6543	0L,
6544	0L
6545	};
6546
6547
6548	static FiWord
6549	CF152_pc0(FiEnv e1, FiWord P0_x)
6550	{
6551	PFmt42 T2;
6552	FiWord T1;
6553	FiClos T0;
6554	if (((PFmt45) P0_x)->X0_tag == 0) goto L0;
6555	L1: if (((PFmt45) P0_x)->X0_tag == 1L) goto L3;
6556	fiHalt((FiSInt) 103L);
6557	return (FiWord) 0L;
6558	L3: T2 = (PFmt42) ((PFmt45) P0_x)->X1_value;
6559	T1 = T2->X0_cdv;
6560	T0 = (FiClos) ((PFmt43) T1)->X6_parentCounter;
6561	return fiCCall1(FiWord, T0, T2->X1_catRep)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_catRep));
6562	L0: if (((PFmt45) P0_x)->X0_tag == 0) goto L2;
6563	fiHalt((FiSInt) 103L);
6564	return (FiWord) 0L;
6565	L2: ((PFmt45) P0_x)->X0_tag = 1L;
6566	((PFmt45) P0_x)->X1_value = fiCCall0(FiWord, (FiClos) ((PFmt45)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ))
6567	P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
6568	goto L1;
6569	}
6570
6571	static struct _FiProg tmp152_pc0 = {
6572	(FiFun) CF152_pc0,
6573	0L,
6574	0L,
6575	0L,
6576	0L
6577	};
6578
6579
6580	static FiWord
6581	CF153_pg0(FiEnv e1, FiWord P0_x, FiWord P1_i)
6582	{
6583	PFmt42 T2;
6584	FiWord T1;
6585	FiClos T0;
6586	if (((PFmt45) P0_x)->X0_tag == 0) goto L0;
6587	L1: if (((PFmt45) P0_x)->X0_tag == 1L) goto L3;
6588	fiHalt((FiSInt) 103L);
6589	return (FiWord) 0L;
6590	L3: T2 = (PFmt42) ((PFmt45) P0_x)->X1_value;
6591	T1 = T2->X0_cdv;
6592	T0 = (FiClos) ((PFmt43) T1)->X7_parentGetter;
6593	return fiCCall2(FiWord, T0, T2->X1_catRep, P1_i)((((FiWord ()())(T0)->prog->fun))((T0)->env,T2-> X1_catRep,P1_i));
6594	L0: if (((PFmt45) P0_x)->X0_tag == 0) goto L2;
6595	fiHalt((FiSInt) 103L);
6596	return (FiWord) 0L;
6597	L2: ((PFmt45) P0_x)->X0_tag = 1L;
6598	((PFmt45) P0_x)->X1_value = fiCCall0(FiWord, (FiClos) ((PFmt45)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ))
6599	P0_x)->X1_value)((((FiWord ()())((FiClos) ((PFmt45) P0_x)->X1_value)-> prog->fun))(((FiClos) ((PFmt45) P0_x)->X1_value)->env ));
6600	goto L1;
6601	}
6602
6603	static struct _FiProg tmp153_pg0 = {
6604	(FiFun) CF153_pg0,
6605	0L,
6606	0L,
6607	0L,
6608	0L
6609	};
6610
6611
6612	static void
6613	CF154_expandExtend(FiEnv e1, FiWord P0_x, FiWord P1_h)
6614	{
6615	return ;
6616	}
6617
6618	static struct _FiProg tmp154_expandExtend = {
6619	(FiFun) CF154_expandExtend,
6620	0L,
6621	0L,
6622	0L,
6623	0L
6624	};
6625
6626	extern int
6627	INIT__0_runtime()
6628	{
6629
6630	extern int INIT__0_rtexns();
6631	static int initialized = 0;
6632	if (initialized)
6633	return 0L;
6634	else
6635	initialized = 1;
6636	C1_printDomain = &tmp1_printDomain;
6637	C2_fn = &tmp2_fn;
6638	C3_filePutc = &tmp3_filePutc;
6639	C4_filePutc = &tmp4_filePutc;
6640	C5_filePuts = &tmp5_filePuts;
6641	C6_filePuts = &tmp6_filePuts;
6642	C7_PRINT = &tmp7_PRINT;
6643	C8_PRINT = &tmp8_PRINT;
6644	C9_PRINT = &tmp9_PRINT;
6645	C10_trace = &tmp10_trace;
6646	C11_domainMake = &tmp11_domainMake;
6647	C12_domainMakeDispatch = &tmp12_domainMakeDispatch;
6648	C13_domainMakeDummy = &tmp13_domainMakeDummy;
6649	C14_newAldorDomainRep = &tmp14_newAldorDomainRep;
6650	C15_extendMakeDispatch = &tmp15_extendMakeDispatch;
6651	C16_domainAddExports_BANG_ = &tmp16_domainAddExports_BANG_;
6652	C17_domainGetExport_BANG_ = &tmp17_domainGetExport_BANG_;
6653	C18_domainGetExport1_BANG_ = &tmp18_domainGetExport1_BANG_;
6654	C19_failmsg = &tmp19_failmsg;
6655	C20_domainTestExport_BANG_ = &tmp20_domainTestExport_BANG_;
6656	C21_domainAddDefaults_BANG_ = &tmp21_domainAddDefaults_BANG_;
6657	C22_domainAddParents_BANG_ = &tmp22_domainAddParents_BANG_;
6658	C23_domainAddHash_BANG_ = &tmp23_domainAddHash_BANG_;
6659	C24_domainAddNameFn_BANG_ = &tmp24_domainAddNameFn_BANG_;
6660	C25_domainHash_BANG_ = &tmp25_domainHash_BANG_;
6661	C26_domainName = &tmp26_domainName;
6662	C27_domainFill_BANG_ = &tmp27_domainFill_BANG_;
6663	C28_rtDelayedInit_BANG_ = &tmp28_rtDelayedInit_BANG_;
6664	C29_rtDelayedInit_BANG_ = &tmp29_rtDelayedInit_BANG_;
6665	C30_rtDelayedGetExport_BANG_ = &tmp30_rtDelayedGetExport_BANG_;
6666	C31_rtDelayedGetExport_BANG_ = &tmp31_rtDelayedGetExport_BANG_;
6667	C32_categoryMake = &tmp32_categoryMake;
6668	C33_categoryMakeDummy = &tmp33_categoryMakeDummy;
6669	C34_categoryAddParents_BANG_ = &tmp34_categoryAddParents_BANG_;
6670	C35_categoryAddNameFn_BANG_ = &tmp35_categoryAddNameFn_BANG_;
6671	C36_categoryAddExports_BANG_ = &tmp36_categoryAddExports_BANG_;
6672	C37_categoryBuild = &tmp37_categoryBuild;
6673	C38_categoryName = &tmp38_categoryName;
6674	C39_categoryFill_BANG_ = &tmp39_categoryFill_BANG_;
6675	C40_extendMake = &tmp40_extendMake;
6676	C41_extendFill_BANG_ = &tmp41_extendFill_BANG_;
6677	C42_noOperation = &tmp42_noOperation;
6678	C43_rtLazyCatFrInit = &tmp43_rtLazyCatFrInit;
6679	C44_ifn = &tmp44_ifn;
6680	C45_rtLazyCatFrFn = &tmp45_rtLazyCatFrFn;
6681	C46_rtLazyDomFrInit = &tmp46_rtLazyDomFrInit;
6682	C47_ifn = &tmp47_ifn;
6683	C48_rtLazyDomFrFn = &tmp48_rtLazyDomFrFn;
6684	C49_lazyGetExport_BANG_ = &tmp49_lazyGetExport_BANG_;
6685	C50_lazyForceImport = &tmp50_lazyForceImport;
6686	C51_domainPrepare_BANG_ = &tmp51_domainPrepare_BANG_;
6687	C52_rtConstSIntFn = &tmp52_rtConstSIntFn;
6688	C53_rtConstSIntFn = &tmp53_rtConstSIntFn;
6689	C54_rtConstNameFn = &tmp54_rtConstNameFn;
6690	C55_rtConstNameFn = &tmp55_rtConstNameFn;
6691	C56_rtSingleParamNameFn = &tmp56_rtSingleParamNameFn;
6692	C57_rtSingleParamNameFn = &tmp57_rtSingleParamNameFn;
6693	C58_rtAddStrings = &tmp58_rtAddStrings;
6694	C59_rtCacheMake = &tmp59_rtCacheMake;
6695	C60_rtCacheExplicitMake = &tmp60_rtCacheExplicitMake;
6696	C61_rtCacheCheck = &tmp61_rtCacheCheck;
6697	C62_rtCacheAdd = &tmp62_rtCacheAdd;
6698	C63_aldorDispatchVector = &tmp63_aldorDispatchVector;
6699	C64_n = &tmp64_n;
6700	C65_ag = &tmp65_ag;
6701	C66_h = &tmp66_h;
6702	C67_i = &tmp67_i;
6703	C68_fn = &tmp68_fn;
6704	C69_extendDispatchVector = &tmp69_extendDispatchVector;
6705	C70_n = &tmp70_n;
6706	C71_extendg = &tmp71_extendg;
6707	C72_h = &tmp72_h;
6708	C73_i = &tmp73_i;
6709	C74_efn = &tmp74_efn;
6710	C75_dummyDispatchVector = &tmp75_dummyDispatchVector;
6711	C76_n = &tmp76_n;
6712	C77_dummyg = &tmp77_dummyg;
6713	C78_h = &tmp78_h;
6714	C79_i = &tmp79_i;
6715	C80_pointerDV = &tmp80_pointerDV;
6716	C81_n = &tmp81_n;
6717	C82_ptrg = &tmp82_ptrg;
6718	C83_h = &tmp83_h;
6719	C84_tmpfn = &tmp84_tmpfn;
6720	C85_fn = &tmp85_fn;
6721	C86_i = &tmp86_i;
6722	C87_aldorCatDispatchVector = &tmp87_aldorCatDispatchVector;
6723	C88_n1 = &tmp88_n1;
6724	C89_g1 = &tmp89_g1;
6725	C90_h1 = &tmp90_h1;
6726	C91_pc1 = &tmp91_pc1;
6727	C92_pg1 = &tmp92_pg1;
6728	C93_b1 = &tmp93_b1;
6729	C94_dummyCatDispatchVector = &tmp94_dummyCatDispatchVector;
6730	C95_n0 = &tmp95_n0;
6731	C96_b0 = &tmp96_b0;
6732	C97_g0 = &tmp97_g0;
6733	C98_h0 = &tmp98_h0;
6734	C99_pc0 = &tmp99_pc0;
6735	C100_pg0 = &tmp100_pg0;
6736	C101_namePartConcat = &tmp101_namePartConcat;
6737	C102_namePartFrString = &tmp102_namePartFrString;
6738	C103_namePartFrOther = &tmp103_namePartFrOther;
6739	C104_stringHash = &tmp104_stringHash;
6740	C105_rtAssertMessage = &tmp105_rtAssertMessage;
6741	C106_lazyGetter2 = &tmp106_lazyGetter2;
6742	C107_lazyFnGetter = &tmp107_lazyFnGetter;
6743	C108_lazyGetter = &tmp108_lazyGetter;
6744	C109_lazyFnGetter = &tmp109_lazyFnGetter;
6745	C110_lazyGetter = &tmp110_lazyGetter;
6746	C111_lazyFnGetter = &tmp111_lazyFnGetter;
6747	C112_lazyGetter = &tmp112_lazyGetter;
6748	C113_lazyFnGetter = &tmp113_lazyFnGetter;
6749	C114_lazyGetter = &tmp114_lazyGetter;
6750	C115_lazyFnGetter = &tmp115_lazyFnGetter;
6751	C116_lazyGetter = &tmp116_lazyGetter;
6752	C117_lazyFnGetter = &tmp117_lazyFnGetter;
6753	C118_lazyGetter = &tmp118_lazyGetter;
6754	C119_lazyFnGetter = &tmp119_lazyFnGetter;
6755	C120_lazyGetter = &tmp120_lazyGetter;
6756	C121_lazyFnGetter = &tmp121_lazyFnGetter;
6757	C122_lazyGetter = &tmp122_lazyGetter;
6758	C123_lazyFnGetter = &tmp123_lazyFnGetter;
6759	C124_lazyGetter = &tmp124_lazyGetter;
6760	C125_lazyFnGetter = &tmp125_lazyFnGetter;
6761	C126_lazyGetter = &tmp126_lazyGetter;
6762	C127_lazyFnGetter = &tmp127_lazyFnGetter;
6763	C128_lazyGetter = &tmp128_lazyGetter;
6764	C129_lazyFnGetter = &tmp129_lazyFnGetter;
6765	C130_lazyGetter = &tmp130_lazyGetter;
6766	C131_lazyFnGetter = &tmp131_lazyFnGetter;
6767	C132_lazyGetter = &tmp132_lazyGetter;
6768	C133_lazyFnGetter = &tmp133_lazyFnGetter;
6769	C134_lazyGetter = &tmp134_lazyGetter;
6770	C135_lazyFnGetter = &tmp135_lazyFnGetter;
6771	C136_lazyGetter = &tmp136_lazyGetter;
6772	C137_lazyFnGetter = &tmp137_lazyFnGetter;
6773	C138_lazyGetter = &tmp138_lazyGetter;
6774	C139_lazyFnGetter = &tmp139_lazyFnGetter;
6775	C140_lazyGetter = &tmp140_lazyGetter;
6776	C141_lazyFnGetter = &tmp141_lazyFnGetter;
6777	C142_lazyGetter = &tmp142_lazyGetter;
6778	C143_lazyFnGetter = &tmp143_lazyFnGetter;
6779	C144_lazyGetter = &tmp144_lazyGetter;
6780	C145_lazyFnGetter = &tmp145_lazyFnGetter;
6781	C146_lazyGetter = &tmp146_lazyGetter;
6782	C147_new = &tmp147_new;
6783	C148_n0 = &tmp148_n0;
6784	C149_b0 = &tmp149_b0;
6785	C150_g0 = &tmp150_g0;
6786	C151_h0 = &tmp151_h0;
6787	C152_pc0 = &tmp152_pc0;
6788	C153_pg0 = &tmp153_pg0;
6789	C154_expandExtend = &tmp154_expandExtend;
6790	C0_runtime = &tmp0_runtime;
6791	fiExportGlobal("G_XIPRL_runtime", G_XIPRL_runtime)fiExportGlobalFun("G_XIPRL_runtime", (Ptr) &G_XIPRL_runtime , sizeof(G_XIPRL_runtime));
6792	fiExportGlobal("G_NQYQM_noOperation", G_NQYQM_noOperation)fiExportGlobalFun("G_NQYQM_noOperation", (Ptr) &G_NQYQM_noOperation , sizeof(G_NQYQM_noOperation));
6793	fiExportGlobal("G_GUPOC_rtAssertMessage", G_GUPOC_rtAssertMessage)fiExportGlobalFun("G_GUPOC_rtAssertMessage", (Ptr) &G_GUPOC_rtAssertMessage , sizeof(G_GUPOC_rtAssertMessage));
6794	fiExportGlobal("G_X9M4Q_stringHash", G_X9M4Q_stringHash)fiExportGlobalFun("G_X9M4Q_stringHash", (Ptr) &G_X9M4Q_stringHash , sizeof(G_X9M4Q_stringHash));
6795	fiExportGlobal("G_CEQ0J_dummyCatDispatchVector",fiExportGlobalFun("G_CEQ0J_dummyCatDispatchVector", (Ptr) & G_CEQ0J_dummyCatDispatchVector, sizeof(G_CEQ0J_dummyCatDispatchVector ))
6796	G_CEQ0J_dummyCatDispatchVector)fiExportGlobalFun("G_CEQ0J_dummyCatDispatchVector", (Ptr) & G_CEQ0J_dummyCatDispatchVector, sizeof(G_CEQ0J_dummyCatDispatchVector ));
6797	fiExportGlobal("G_79OOL_aldorCatDispatchVector",fiExportGlobalFun("G_79OOL_aldorCatDispatchVector", (Ptr) & G_79OOL_aldorCatDispatchVector, sizeof(G_79OOL_aldorCatDispatchVector ))
6798	G_79OOL_aldorCatDispatchVector)fiExportGlobalFun("G_79OOL_aldorCatDispatchVector", (Ptr) & G_79OOL_aldorCatDispatchVector, sizeof(G_79OOL_aldorCatDispatchVector ));
6799	fiExportGlobal("G_BXRJI_pointerDV", G_BXRJI_pointerDV)fiExportGlobalFun("G_BXRJI_pointerDV", (Ptr) &G_BXRJI_pointerDV , sizeof(G_BXRJI_pointerDV));
6800	fiExportGlobal("G_FJ11F_dummyDispatchVector",fiExportGlobalFun("G_FJ11F_dummyDispatchVector", (Ptr) &G_FJ11F_dummyDispatchVector , sizeof(G_FJ11F_dummyDispatchVector))
6801	G_FJ11F_dummyDispatchVector)fiExportGlobalFun("G_FJ11F_dummyDispatchVector", (Ptr) &G_FJ11F_dummyDispatchVector , sizeof(G_FJ11F_dummyDispatchVector));
6802	fiExportGlobal("G_YY5KJ_extendDispatchVector",fiExportGlobalFun("G_YY5KJ_extendDispatchVector", (Ptr) & G_YY5KJ_extendDispatchVector, sizeof(G_YY5KJ_extendDispatchVector ))
6803	G_YY5KJ_extendDispatchVector)fiExportGlobalFun("G_YY5KJ_extendDispatchVector", (Ptr) & G_YY5KJ_extendDispatchVector, sizeof(G_YY5KJ_extendDispatchVector ));
6804	fiExportGlobal("G_L6ZD3_aldorDispatchVector",fiExportGlobalFun("G_L6ZD3_aldorDispatchVector", (Ptr) &G_L6ZD3_aldorDispatchVector , sizeof(G_L6ZD3_aldorDispatchVector))
6805	G_L6ZD3_aldorDispatchVector)fiExportGlobalFun("G_L6ZD3_aldorDispatchVector", (Ptr) &G_L6ZD3_aldorDispatchVector , sizeof(G_L6ZD3_aldorDispatchVector));
6806	fiExportGlobal("G_8AMPD_rtSingleParamNameFn",fiExportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr) &G_8AMPD_rtSingleParamNameFn , sizeof(G_8AMPD_rtSingleParamNameFn))
6807	G_8AMPD_rtSingleParamNameFn)fiExportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr) &G_8AMPD_rtSingleParamNameFn , sizeof(G_8AMPD_rtSingleParamNameFn));
6808	fiExportGlobal("G_Z2868_rtConstNameFn", G_Z2868_rtConstNameFn)fiExportGlobalFun("G_Z2868_rtConstNameFn", (Ptr) &G_Z2868_rtConstNameFn , sizeof(G_Z2868_rtConstNameFn));
6809	fiExportGlobal("G_X1QPH_rtLazyDomFrFn", G_X1QPH_rtLazyDomFrFn)fiExportGlobalFun("G_X1QPH_rtLazyDomFrFn", (Ptr) &G_X1QPH_rtLazyDomFrFn , sizeof(G_X1QPH_rtLazyDomFrFn));
6810	fiExportGlobal("G_3BJ33_rtLazyCatFrFn", G_3BJ33_rtLazyCatFrFn)fiExportGlobalFun("G_3BJ33_rtLazyCatFrFn", (Ptr) &G_3BJ33_rtLazyCatFrFn , sizeof(G_3BJ33_rtLazyCatFrFn));
6811	fiExportGlobal("G_607SQ_domainGetExport1_BANG_",fiExportGlobalFun("G_607SQ_domainGetExport1_BANG_", (Ptr) & G_607SQ_domainGetExport1_BANG_, sizeof(G_607SQ_domainGetExport1_BANG_ ))
6812	G_607SQ_domainGetExport1_BANG_)fiExportGlobalFun("G_607SQ_domainGetExport1_BANG_", (Ptr) & G_607SQ_domainGetExport1_BANG_, sizeof(G_607SQ_domainGetExport1_BANG_ ));
6813	fiExportGlobal("G_X6DBU_extendMakeDispatch",fiExportGlobalFun("G_X6DBU_extendMakeDispatch", (Ptr) &G_X6DBU_extendMakeDispatch , sizeof(G_X6DBU_extendMakeDispatch))
6814	G_X6DBU_extendMakeDispatch)fiExportGlobalFun("G_X6DBU_extendMakeDispatch", (Ptr) &G_X6DBU_extendMakeDispatch , sizeof(G_X6DBU_extendMakeDispatch));
6815	fiExportGlobal("G_GBH6X_newAldorDomainRep", G_GBH6X_newAldorDomainRep)fiExportGlobalFun("G_GBH6X_newAldorDomainRep", (Ptr) &G_GBH6X_newAldorDomainRep , sizeof(G_GBH6X_newAldorDomainRep));
6816	fiExportGlobal("G_UG221_trace", G_UG221_trace)fiExportGlobalFun("G_UG221_trace", (Ptr) &G_UG221_trace, sizeof (G_UG221_trace));
6817	fiExportGlobal("G_GUKH6_stdGetRetClos0", G_GUKH6_stdGetRetClos0)fiExportGlobalFun("G_GUKH6_stdGetRetClos0", (Ptr) &G_GUKH6_stdGetRetClos0 , sizeof(G_GUKH6_stdGetRetClos0));
6818	fiExportGlobal("G_W18J9_stdGetRetNOp0", G_W18J9_stdGetRetNOp0)fiExportGlobalFun("G_W18J9_stdGetRetNOp0", (Ptr) &G_W18J9_stdGetRetNOp0 , sizeof(G_W18J9_stdGetRetNOp0));
6819	fiExportGlobal("G_MNZVJ_stdGetRetWord0", G_MNZVJ_stdGetRetWord0)fiExportGlobalFun("G_MNZVJ_stdGetRetWord0", (Ptr) &G_MNZVJ_stdGetRetWord0 , sizeof(G_MNZVJ_stdGetRetWord0));
6820	fiExportGlobal("G_W18JB_stdGetRetNOp2", G_W18JB_stdGetRetNOp2)fiExportGlobalFun("G_W18JB_stdGetRetNOp2", (Ptr) &G_W18JB_stdGetRetNOp2 , sizeof(G_W18JB_stdGetRetNOp2));
6821	fiExportGlobal("G_4DAJB_stdGetClosRetClos0",fiExportGlobalFun("G_4DAJB_stdGetClosRetClos0", (Ptr) &G_4DAJB_stdGetClosRetClos0 , sizeof(G_4DAJB_stdGetClosRetClos0))
6822	G_4DAJB_stdGetClosRetClos0)fiExportGlobalFun("G_4DAJB_stdGetClosRetClos0", (Ptr) &G_4DAJB_stdGetClosRetClos0 , sizeof(G_4DAJB_stdGetClosRetClos0));
6823	fiExportGlobal("G_ZJ0BV_stdGetClosRetNOp0", G_ZJ0BV_stdGetClosRetNOp0)fiExportGlobalFun("G_ZJ0BV_stdGetClosRetNOp0", (Ptr) &G_ZJ0BV_stdGetClosRetNOp0 , sizeof(G_ZJ0BV_stdGetClosRetNOp0));
6824	fiExportGlobal("G_YCI2U_stdGetClosRetWord0",fiExportGlobalFun("G_YCI2U_stdGetClosRetWord0", (Ptr) &G_YCI2U_stdGetClosRetWord0 , sizeof(G_YCI2U_stdGetClosRetWord0))
6825	G_YCI2U_stdGetClosRetWord0)fiExportGlobalFun("G_YCI2U_stdGetClosRetWord0", (Ptr) &G_YCI2U_stdGetClosRetWord0 , sizeof(G_YCI2U_stdGetClosRetWord0));
6826	fiExportGlobal("G_ZJ0BX_stdGetClosRetNOp2", G_ZJ0BX_stdGetClosRetNOp2)fiExportGlobalFun("G_ZJ0BX_stdGetClosRetNOp2", (Ptr) &G_ZJ0BX_stdGetClosRetNOp2 , sizeof(G_ZJ0BX_stdGetClosRetNOp2));
6827	fiExportGlobal("G_LYCP1_stdGetWordRetClos0",fiExportGlobalFun("G_LYCP1_stdGetWordRetClos0", (Ptr) &G_LYCP1_stdGetWordRetClos0 , sizeof(G_LYCP1_stdGetWordRetClos0))
6828	G_LYCP1_stdGetWordRetClos0)fiExportGlobalFun("G_LYCP1_stdGetWordRetClos0", (Ptr) &G_LYCP1_stdGetWordRetClos0 , sizeof(G_LYCP1_stdGetWordRetClos0));
6829	fiExportGlobal("G_HM0N7_stdGetWordRetNOp0", G_HM0N7_stdGetWordRetNOp0)fiExportGlobalFun("G_HM0N7_stdGetWordRetNOp0", (Ptr) &G_HM0N7_stdGetWordRetNOp0 , sizeof(G_HM0N7_stdGetWordRetNOp0));
6830	fiExportGlobal("G_ZZZKG_stdGetWordRetWord0",fiExportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr) &G_ZZZKG_stdGetWordRetWord0 , sizeof(G_ZZZKG_stdGetWordRetWord0))
6831	G_ZZZKG_stdGetWordRetWord0)fiExportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr) &G_ZZZKG_stdGetWordRetWord0 , sizeof(G_ZZZKG_stdGetWordRetWord0));
6832	fiExportGlobal("G_HM0N9_stdGetWordRetNOp2", G_HM0N9_stdGetWordRetNOp2)fiExportGlobalFun("G_HM0N9_stdGetWordRetNOp2", (Ptr) &G_HM0N9_stdGetWordRetNOp2 , sizeof(G_HM0N9_stdGetWordRetNOp2));
6833	fiExportGlobal("G_ERIR5_stdGetWordWordRetClos0",fiExportGlobalFun("G_ERIR5_stdGetWordWordRetClos0", (Ptr) & G_ERIR5_stdGetWordWordRetClos0, sizeof(G_ERIR5_stdGetWordWordRetClos0 ))
6834	G_ERIR5_stdGetWordWordRetClos0)fiExportGlobalFun("G_ERIR5_stdGetWordWordRetClos0", (Ptr) & G_ERIR5_stdGetWordWordRetClos0, sizeof(G_ERIR5_stdGetWordWordRetClos0 ));
6835	fiExportGlobal("G_30VT6_stdGetWordWordRetNOp0",fiExportGlobalFun("G_30VT6_stdGetWordWordRetNOp0", (Ptr) & G_30VT6_stdGetWordWordRetNOp0, sizeof(G_30VT6_stdGetWordWordRetNOp0 ))
6836	G_30VT6_stdGetWordWordRetNOp0)fiExportGlobalFun("G_30VT6_stdGetWordWordRetNOp0", (Ptr) & G_30VT6_stdGetWordWordRetNOp0, sizeof(G_30VT6_stdGetWordWordRetNOp0 ));
6837	fiExportGlobal("G_DLXW8_stdGetWordWordRetWord0",fiExportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr) & G_DLXW8_stdGetWordWordRetWord0, sizeof(G_DLXW8_stdGetWordWordRetWord0 ))
6838	G_DLXW8_stdGetWordWordRetWord0)fiExportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr) & G_DLXW8_stdGetWordWordRetWord0, sizeof(G_DLXW8_stdGetWordWordRetWord0 ));
6839	fiExportGlobal("G_30VT8_stdGetWordWordRetNOp2",fiExportGlobalFun("G_30VT8_stdGetWordWordRetNOp2", (Ptr) & G_30VT8_stdGetWordWordRetNOp2, sizeof(G_30VT8_stdGetWordWordRetNOp2 ))
6840	G_30VT8_stdGetWordWordRetNOp2)fiExportGlobalFun("G_30VT8_stdGetWordWordRetNOp2", (Ptr) & G_30VT8_stdGetWordWordRetNOp2, sizeof(G_30VT8_stdGetWordWordRetNOp2 ));
6841	fiExportGlobal("G_7SHFP_stdGetWordWordWordRetC",fiExportGlobalFun("G_7SHFP_stdGetWordWordWordRetC", (Ptr) & G_7SHFP_stdGetWordWordWordRetC, sizeof(G_7SHFP_stdGetWordWordWordRetC ))
6842	G_7SHFP_stdGetWordWordWordRetC)fiExportGlobalFun("G_7SHFP_stdGetWordWordWordRetC", (Ptr) & G_7SHFP_stdGetWordWordWordRetC, sizeof(G_7SHFP_stdGetWordWordWordRetC ));
6843	fiExportGlobal("G_DBH3Z_stdGetWordWordWordRetN",fiExportGlobalFun("G_DBH3Z_stdGetWordWordWordRetN", (Ptr) & G_DBH3Z_stdGetWordWordWordRetN, sizeof(G_DBH3Z_stdGetWordWordWordRetN ))
6844	G_DBH3Z_stdGetWordWordWordRetN)fiExportGlobalFun("G_DBH3Z_stdGetWordWordWordRetN", (Ptr) & G_DBH3Z_stdGetWordWordWordRetN, sizeof(G_DBH3Z_stdGetWordWordWordRetN ));
6845	fiExportGlobal("G_B830W_stdGetWordWordWordRetW",fiExportGlobalFun("G_B830W_stdGetWordWordWordRetW", (Ptr) & G_B830W_stdGetWordWordWordRetW, sizeof(G_B830W_stdGetWordWordWordRetW ))
6846	G_B830W_stdGetWordWordWordRetW)fiExportGlobalFun("G_B830W_stdGetWordWordWordRetW", (Ptr) & G_B830W_stdGetWordWordWordRetW, sizeof(G_B830W_stdGetWordWordWordRetW ));
6847	fiExportGlobal("G_DBH41_stdGetWordWordWordRetN",fiExportGlobalFun("G_DBH41_stdGetWordWordWordRetN", (Ptr) & G_DBH41_stdGetWordWordWordRetN, sizeof(G_DBH41_stdGetWordWordWordRetN ))
6848	G_DBH41_stdGetWordWordWordRetN)fiExportGlobalFun("G_DBH41_stdGetWordWordWordRetN", (Ptr) & G_DBH41_stdGetWordWordWordRetN, sizeof(G_DBH41_stdGetWordWordWordRetN ));
6849	fiExportGlobal("G_KK8CX_rtLazyDomFrInit", G_KK8CX_rtLazyDomFrInit)fiExportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr) &G_KK8CX_rtLazyDomFrInit , sizeof(G_KK8CX_rtLazyDomFrInit));
6850	fiExportGlobal("G_QRAZA_rtDelayedGetExport",fiExportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr) &G_QRAZA_rtDelayedGetExport , sizeof(G_QRAZA_rtDelayedGetExport))
6851	G_QRAZA_rtDelayedGetExport)fiExportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr) &G_QRAZA_rtDelayedGetExport , sizeof(G_QRAZA_rtDelayedGetExport));
6852	fiExportGlobal("G_RSHLY_rtDelayedInit_BANG_",fiExportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr) &G_RSHLY_rtDelayedInit_BANG_ , sizeof(G_RSHLY_rtDelayedInit_BANG_))
6853	G_RSHLY_rtDelayedInit_BANG_)fiExportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr) &G_RSHLY_rtDelayedInit_BANG_ , sizeof(G_RSHLY_rtDelayedInit_BANG_));
6854	fiExportGlobal("G_4NZQI_lazyGetExport_BANG_",fiExportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr) &G_4NZQI_lazyGetExport_BANG_ , sizeof(G_4NZQI_lazyGetExport_BANG_))
6855	G_4NZQI_lazyGetExport_BANG_)fiExportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr) &G_4NZQI_lazyGetExport_BANG_ , sizeof(G_4NZQI_lazyGetExport_BANG_));
6856	fiExportGlobal("G_R3D1K_lazyForceImport", G_R3D1K_lazyForceImport)fiExportGlobalFun("G_R3D1K_lazyForceImport", (Ptr) &G_R3D1K_lazyForceImport , sizeof(G_R3D1K_lazyForceImport));
6857	fiExportGlobal("G_6L1ZC_domainMake", G_6L1ZC_domainMake)fiExportGlobalFun("G_6L1ZC_domainMake", (Ptr) &G_6L1ZC_domainMake , sizeof(G_6L1ZC_domainMake));
6858	fiExportGlobal("G_IJHFC_domainMakeDispatch",fiExportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr) &G_IJHFC_domainMakeDispatch , sizeof(G_IJHFC_domainMakeDispatch))
6859	G_IJHFC_domainMakeDispatch)fiExportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr) &G_IJHFC_domainMakeDispatch , sizeof(G_IJHFC_domainMakeDispatch));
6860	fiExportGlobal("G_PA5R2_domainAddExports_BANG_",fiExportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr) & G_PA5R2_domainAddExports_BANG_, sizeof(G_PA5R2_domainAddExports_BANG_ ))
6861	G_PA5R2_domainAddExports_BANG_)fiExportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr) & G_PA5R2_domainAddExports_BANG_, sizeof(G_PA5R2_domainAddExports_BANG_ ));
6862	fiExportGlobal("G_V9SO_domainAddDefaults_BANG_",fiExportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr) & G_V9SO_domainAddDefaults_BANG_, sizeof(G_V9SO_domainAddDefaults_BANG_ ))
6863	G_V9SO_domainAddDefaults_BANG_)fiExportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr) & G_V9SO_domainAddDefaults_BANG_, sizeof(G_V9SO_domainAddDefaults_BANG_ ));
6864	fiExportGlobal("G_LKD03_domainAddParents_BANG_",fiExportGlobalFun("G_LKD03_domainAddParents_BANG_", (Ptr) & G_LKD03_domainAddParents_BANG_, sizeof(G_LKD03_domainAddParents_BANG_ ))
6865	G_LKD03_domainAddParents_BANG_)fiExportGlobalFun("G_LKD03_domainAddParents_BANG_", (Ptr) & G_LKD03_domainAddParents_BANG_, sizeof(G_LKD03_domainAddParents_BANG_ ));
6866	fiExportGlobal("G_XS55O_domainAddHash_BANG_",fiExportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr) &G_XS55O_domainAddHash_BANG_ , sizeof(G_XS55O_domainAddHash_BANG_))
6867	G_XS55O_domainAddHash_BANG_)fiExportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr) &G_XS55O_domainAddHash_BANG_ , sizeof(G_XS55O_domainAddHash_BANG_));
6868	fiExportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiExportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr) & G_CSVBL_domainAddNameFn_BANG_, sizeof(G_CSVBL_domainAddNameFn_BANG_ ))
6869	G_CSVBL_domainAddNameFn_BANG_)fiExportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr) & G_CSVBL_domainAddNameFn_BANG_, sizeof(G_CSVBL_domainAddNameFn_BANG_ ));
6870	fiExportGlobal("G_1X2RM_domainGetExport_BANG_",fiExportGlobalFun("G_1X2RM_domainGetExport_BANG_", (Ptr) & G_1X2RM_domainGetExport_BANG_, sizeof(G_1X2RM_domainGetExport_BANG_ ))
6871	G_1X2RM_domainGetExport_BANG_)fiExportGlobalFun("G_1X2RM_domainGetExport_BANG_", (Ptr) & G_1X2RM_domainGetExport_BANG_, sizeof(G_1X2RM_domainGetExport_BANG_ ));
6872	fiExportGlobal("G_RSCGM_domainTestExport_BANG_",fiExportGlobalFun("G_RSCGM_domainTestExport_BANG_", (Ptr) & G_RSCGM_domainTestExport_BANG_, sizeof(G_RSCGM_domainTestExport_BANG_ ))
6873	G_RSCGM_domainTestExport_BANG_)fiExportGlobalFun("G_RSCGM_domainTestExport_BANG_", (Ptr) & G_RSCGM_domainTestExport_BANG_, sizeof(G_RSCGM_domainTestExport_BANG_ ));
6874	fiExportGlobal("G_LD0B5_domainHash_BANG_", G_LD0B5_domainHash_BANG_)fiExportGlobalFun("G_LD0B5_domainHash_BANG_", (Ptr) &G_LD0B5_domainHash_BANG_ , sizeof(G_LD0B5_domainHash_BANG_));
6875	fiExportGlobal("G_GJ87F_domainName", G_GJ87F_domainName)fiExportGlobalFun("G_GJ87F_domainName", (Ptr) &G_GJ87F_domainName , sizeof(G_GJ87F_domainName));
6876	fiExportGlobal("G_BEY7_domainMakeDummy", G_BEY7_domainMakeDummy)fiExportGlobalFun("G_BEY7_domainMakeDummy", (Ptr) &G_BEY7_domainMakeDummy , sizeof(G_BEY7_domainMakeDummy));
6877	fiExportGlobal("G_AK1EB_domainFill_BANG_", G_AK1EB_domainFill_BANG_)fiExportGlobalFun("G_AK1EB_domainFill_BANG_", (Ptr) &G_AK1EB_domainFill_BANG_ , sizeof(G_AK1EB_domainFill_BANG_));
6878	fiExportGlobal("G_YXGL3_categoryAddParents",fiExportGlobalFun("G_YXGL3_categoryAddParents", (Ptr) &G_YXGL3_categoryAddParents , sizeof(G_YXGL3_categoryAddParents))
6879	G_YXGL3_categoryAddParents)fiExportGlobalFun("G_YXGL3_categoryAddParents", (Ptr) &G_YXGL3_categoryAddParents , sizeof(G_YXGL3_categoryAddParents));
6880	fiExportGlobal("G_6M45D_categoryAddNameFn", G_6M45D_categoryAddNameFn)fiExportGlobalFun("G_6M45D_categoryAddNameFn", (Ptr) &G_6M45D_categoryAddNameFn , sizeof(G_6M45D_categoryAddNameFn));
6881	fiExportGlobal("G_WXLY5_categoryAddExports",fiExportGlobalFun("G_WXLY5_categoryAddExports", (Ptr) &G_WXLY5_categoryAddExports , sizeof(G_WXLY5_categoryAddExports))
6882	G_WXLY5_categoryAddExports)fiExportGlobalFun("G_WXLY5_categoryAddExports", (Ptr) &G_WXLY5_categoryAddExports , sizeof(G_WXLY5_categoryAddExports));
6883	fiExportGlobal("G_GOVLL_categoryMake", G_GOVLL_categoryMake)fiExportGlobalFun("G_GOVLL_categoryMake", (Ptr) &G_GOVLL_categoryMake , sizeof(G_GOVLL_categoryMake));
6884	fiExportGlobal("G_J5O7O_categoryBuild", G_J5O7O_categoryBuild)fiExportGlobalFun("G_J5O7O_categoryBuild", (Ptr) &G_J5O7O_categoryBuild , sizeof(G_J5O7O_categoryBuild));
6885	fiExportGlobal("G_6L2PO_categoryName", G_6L2PO_categoryName)fiExportGlobalFun("G_6L2PO_categoryName", (Ptr) &G_6L2PO_categoryName , sizeof(G_6L2PO_categoryName));
6886	fiExportGlobal("G_20JKW_categoryMakeDummy", G_20JKW_categoryMakeDummy)fiExportGlobalFun("G_20JKW_categoryMakeDummy", (Ptr) &G_20JKW_categoryMakeDummy , sizeof(G_20JKW_categoryMakeDummy));
6887	fiExportGlobal("G_2RANX_categoryFill_BANG_",fiExportGlobalFun("G_2RANX_categoryFill_BANG_", (Ptr) &G_2RANX_categoryFill_BANG_ , sizeof(G_2RANX_categoryFill_BANG_))
6888	G_2RANX_categoryFill_BANG_)fiExportGlobalFun("G_2RANX_categoryFill_BANG_", (Ptr) &G_2RANX_categoryFill_BANG_ , sizeof(G_2RANX_categoryFill_BANG_));
6889	fiExportGlobal("G_FZLG1_extendMake", G_FZLG1_extendMake)fiExportGlobalFun("G_FZLG1_extendMake", (Ptr) &G_FZLG1_extendMake , sizeof(G_FZLG1_extendMake));
6890	fiExportGlobal("G_G3BWN_extendFill_BANG_", G_G3BWN_extendFill_BANG_)fiExportGlobalFun("G_G3BWN_extendFill_BANG_", (Ptr) &G_G3BWN_extendFill_BANG_ , sizeof(G_G3BWN_extendFill_BANG_));
6891	fiExportGlobal("G_JP87X_rtConstSIntFn", G_JP87X_rtConstSIntFn)fiExportGlobalFun("G_JP87X_rtConstSIntFn", (Ptr) &G_JP87X_rtConstSIntFn , sizeof(G_JP87X_rtConstSIntFn));
6892	fiExportGlobal("G_822GM_rtAddStrings", G_822GM_rtAddStrings)fiExportGlobalFun("G_822GM_rtAddStrings", (Ptr) &G_822GM_rtAddStrings , sizeof(G_822GM_rtAddStrings));
6893	fiExportGlobal("G_LMTDG_domainPrepare_BANG_",fiExportGlobalFun("G_LMTDG_domainPrepare_BANG_", (Ptr) &G_LMTDG_domainPrepare_BANG_ , sizeof(G_LMTDG_domainPrepare_BANG_))
6894	G_LMTDG_domainPrepare_BANG_)fiExportGlobalFun("G_LMTDG_domainPrepare_BANG_", (Ptr) &G_LMTDG_domainPrepare_BANG_ , sizeof(G_LMTDG_domainPrepare_BANG_));
6895	fiExportGlobal("G_NOX7X_rtLazyCatFrInit", G_NOX7X_rtLazyCatFrInit)fiExportGlobalFun("G_NOX7X_rtLazyCatFrInit", (Ptr) &G_NOX7X_rtLazyCatFrInit , sizeof(G_NOX7X_rtLazyCatFrInit));
6896	fiExportGlobal("G_QQHP2_rtCacheMake", G_QQHP2_rtCacheMake)fiExportGlobalFun("G_QQHP2_rtCacheMake", (Ptr) &G_QQHP2_rtCacheMake , sizeof(G_QQHP2_rtCacheMake));
6897	fiExportGlobal("G_KAC1B_rtCacheExplicitMake",fiExportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr) &G_KAC1B_rtCacheExplicitMake , sizeof(G_KAC1B_rtCacheExplicitMake))
6898	G_KAC1B_rtCacheExplicitMake)fiExportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr) &G_KAC1B_rtCacheExplicitMake , sizeof(G_KAC1B_rtCacheExplicitMake));
6899	fiExportGlobal("G_759EG_rtCacheCheck", G_759EG_rtCacheCheck)fiExportGlobalFun("G_759EG_rtCacheCheck", (Ptr) &G_759EG_rtCacheCheck , sizeof(G_759EG_rtCacheCheck));
6900	fiExportGlobal("G_PV28S_rtCacheAdd", G_PV28S_rtCacheAdd)fiExportGlobalFun("G_PV28S_rtCacheAdd", (Ptr) &G_PV28S_rtCacheAdd , sizeof(G_PV28S_rtCacheAdd));
6901	fiExportGlobal("G_9TG1R_namePartConcat", G_9TG1R_namePartConcat)fiExportGlobalFun("G_9TG1R_namePartConcat", (Ptr) &G_9TG1R_namePartConcat , sizeof(G_9TG1R_namePartConcat));
6902	fiExportGlobal("G_7BRRS_namePartFrOther", G_7BRRS_namePartFrOther)fiExportGlobalFun("G_7BRRS_namePartFrOther", (Ptr) &G_7BRRS_namePartFrOther , sizeof(G_7BRRS_namePartFrOther));
6903	fiExportGlobal("G_FZP76_namePartFrString", G_FZP76_namePartFrString)fiExportGlobalFun("G_FZP76_namePartFrString", (Ptr) &G_FZP76_namePartFrString , sizeof(G_FZP76_namePartFrString));
6904	fiImportGlobal("G_DLXW8_stdGetWordWordRetWord0",fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) & pG_DLXW8_stdGetWordWordRetWord)
6905	pG_DLXW8_stdGetWordWordRetWord)fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) & pG_DLXW8_stdGetWordWordRetWord);
6906	if (fiFileInitializer) {
6907	fiFileInitializer("rtexns");
6908	}
6909	else {
6910	INIT__0_rtexns();
6911	}
6912	/* "---------------------------" */
6913	return 0L;
6914	}
6915
6916	FiClos G_FZP76_namePartFrString;
6917	FiClos G_7BRRS_namePartFrOther;
6918	FiClos G_9TG1R_namePartConcat;
6919	FiClos G_PV28S_rtCacheAdd;
6920	FiClos G_759EG_rtCacheCheck;
6921	FiClos G_KAC1B_rtCacheExplicitMake;
6922	FiClos G_QQHP2_rtCacheMake;
6923	FiClos G_KK8CX_rtLazyDomFrInit;
6924	FiClos G_NOX7X_rtLazyCatFrInit;
6925	FiClos G_QRAZA_rtDelayedGetExport;
6926	FiClos G_RSHLY_rtDelayedInit_BANG_;
6927	FiClos G_LMTDG_domainPrepare_BANG_;
6928	FiClos G_822GM_rtAddStrings;
6929	FiClos G_JP87X_rtConstSIntFn;
6930	FiClos G_R3D1K_lazyForceImport;
6931	FiClos G_4NZQI_lazyGetExport_BANG_;
6932	FiClos G_NQYQM_noOperation;
6933	FiClos G_G3BWN_extendFill_BANG_;
6934	FiClos G_FZLG1_extendMake;
6935	FiClos G_2RANX_categoryFill_BANG_;
6936	FiClos G_20JKW_categoryMakeDummy;
6937	FiClos G_6L2PO_categoryName;
6938	FiClos G_J5O7O_categoryBuild;
6939	FiClos G_GOVLL_categoryMake;
6940	FiClos G_WXLY5_categoryAddExports;
6941	FiClos G_6M45D_categoryAddNameFn;
6942	FiClos G_YXGL3_categoryAddParents;
6943	FiClos G_AK1EB_domainFill_BANG_;
6944	FiClos G_BEY7_domainMakeDummy;
6945	FiClos G_GJ87F_domainName;
6946	FiClos G_LD0B5_domainHash_BANG_;
6947	FiClos G_RSCGM_domainTestExport_BANG_;
6948	FiClos G_1X2RM_domainGetExport_BANG_;
6949	FiClos G_CSVBL_domainAddNameFn_BANG_;
6950	FiClos G_XS55O_domainAddHash_BANG_;
6951	FiClos G_LKD03_domainAddParents_BANG_;
6952	FiClos G_V9SO_domainAddDefaults_BANG_;
6953	FiClos G_PA5R2_domainAddExports_BANG_;
6954	FiClos G_IJHFC_domainMakeDispatch;
6955	FiClos G_6L1ZC_domainMake;
6956	FiClos G_DBH41_stdGetWordWordWordRetN;
6957	FiClos G_B830W_stdGetWordWordWordRetW;
6958	FiClos G_DBH3Z_stdGetWordWordWordRetN;
6959	FiClos G_7SHFP_stdGetWordWordWordRetC;
6960	FiClos G_30VT8_stdGetWordWordRetNOp2;
6961	FiClos G_DLXW8_stdGetWordWordRetWord0;
6962	FiClos G_30VT6_stdGetWordWordRetNOp0;
6963	FiClos G_ERIR5_stdGetWordWordRetClos0;
6964	FiClos G_HM0N9_stdGetWordRetNOp2;
6965	FiClos G_ZZZKG_stdGetWordRetWord0;
6966	FiClos G_HM0N7_stdGetWordRetNOp0;
6967	FiClos G_LYCP1_stdGetWordRetClos0;
6968	FiClos G_ZJ0BX_stdGetClosRetNOp2;
6969	FiClos G_YCI2U_stdGetClosRetWord0;
6970	FiClos G_ZJ0BV_stdGetClosRetNOp0;
6971	FiClos G_4DAJB_stdGetClosRetClos0;
6972	FiClos G_W18JB_stdGetRetNOp2;
6973	FiClos G_MNZVJ_stdGetRetWord0;
6974	FiClos G_W18J9_stdGetRetNOp0;
6975	FiClos G_GUKH6_stdGetRetClos0;
6976	FiClos G_UG221_trace;
6977	FiClos G_GBH6X_newAldorDomainRep;
6978	FiClos G_X6DBU_extendMakeDispatch;
6979	FiClos G_607SQ_domainGetExport1_BANG_;
6980	FiClos G_3BJ33_rtLazyCatFrFn;
6981	FiClos G_X1QPH_rtLazyDomFrFn;
6982	FiClos G_Z2868_rtConstNameFn;
6983	FiClos G_8AMPD_rtSingleParamNameFn;
6984	FiClos G_L6ZD3_aldorDispatchVector;
6985	FiClos G_YY5KJ_extendDispatchVector;
6986	FiClos G_FJ11F_dummyDispatchVector;
6987	FiClos G_BXRJI_pointerDV;
6988	FiClos G_79OOL_aldorCatDispatchVector;
6989	FiClos G_CEQ0J_dummyCatDispatchVector;
6990	FiClos G_X9M4Q_stringHash;
6991	FiClos G_GUPOC_rtAssertMessage;
6992
6993	static struct _FiClos tmpClos0_runtime = {
6994	0L,
6995	(FiProg) &tmp0_runtime
6996	};
6997	FiClos G_XIPRL_runtime = &tmpClos0_runtime;