al/machine.c

Bug Summary

File:	lib/libfoamlib/al/machine.c
Warning:	line 5097, column 9 Value stored to 'l3' 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 machine.c -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 2 -pic-is-pie -mframe-pointer=none -fmath-errno -ffp-contract=on -fno-rounding-math -mconstructor-aliases -funwind-tables=2 -target-cpu x86-64 -tune-cpu generic -debugger-tuning=gdb -fdebug-compilation-dir=/home/kfp/aldor/aldor/aldor/lib/libfoamlib -fcoverage-compilation-dir=/home/kfp/aldor/aldor/aldor/lib/libfoamlib -resource-dir /usr/local/lib/clang/18 -D PACKAGE_NAME="aldor" -D PACKAGE_TARNAME="aldor" -D PACKAGE_VERSION="1.4.0" -D PACKAGE_STRING="aldor 1.4.0" -D PACKAGE_BUGREPORT="aldor@xinutec.org" -D PACKAGE_URL="" -D PACKAGE="aldor" -D VERSION="1.4.0" -D YYTEXT_POINTER=1 -D HAVE_STDIO_H=1 -D HAVE_STDLIB_H=1 -D HAVE_STRING_H=1 -D HAVE_INTTYPES_H=1 -D HAVE_STDINT_H=1 -D HAVE_STRINGS_H=1 -D HAVE_SYS_STAT_H=1 -D HAVE_SYS_TYPES_H=1 -D HAVE_UNISTD_H=1 -D STDC_HEADERS=1 -D HAVE_LIBREADLINE=1 -D HAVE_READLINE_READLINE_H=1 -D HAVE_READLINE_HISTORY=1 -D HAVE_READLINE_HISTORY_H=1 -D USE_GLOOP_SHELL=1 -D GENERATOR_COROUTINES=0 -D HAVE_DLFCN_H=1 -D LT_OBJDIR=".libs/" -I . -I /home/kfp/aldor/aldor/aldor/src -internal-isystem /usr/local/lib/clang/18/include -internal-isystem /usr/local/include -internal-isystem /usr/lib/gcc/x86_64-linux-gnu/14/../../../../x86_64-linux-gnu/include -internal-externc-isystem /usr/include/x86_64-linux-gnu -internal-externc-isystem /include -internal-externc-isystem /usr/include -O2 -Wno-builtin-declaration-mismatch -Wno-incompatible-pointer-types -Wno-deprecated-non-prototype -ferror-limit 19 -fgnuc-version=4.2.1 -fskip-odr-check-in-gmf -vectorize-loops -vectorize-slp -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /tmp/scan-build-2026-01-15-223856-845667-1 -x c al/machine.c

1	/*
2	* C code generated by Aldor from file "machine.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	struct Fmt5 {
37	FiSInt X0_size;
38	FiSInt X1_nsize;
39	FiWord X2_values;
40	};
41	struct Fmt6 {
42	FiSInt X0;
43	FiSInt X1;
44	};
45	struct Fmt7 {
46	FiBInt X0;
47	FiBInt X1;
48	};
49	struct Fmt8 {
50	FiWord X0;
51	FiWord X1;
52	};
53	struct Fmt9 {
54	FiWord X0;
55	FiWord X1;
56	FiWord X2;
57	};
58	struct Fmt10 {
59	FiBool X0;
60	FiSInt X1;
61	FiWord X2;
62	};
63	struct Fmt11 {
64	FiBool X0;
65	FiSInt X1;
66	FiWord X2;
67	FiWord X3;
68	};
69	struct Fmt12 {
70	FiSFlo X0;
71	FiSInt X1;
72	};
73	struct Fmt13 {
74	FiDFlo X0;
75	FiSInt X1;
76	};
77	struct Fmt14 {
78	FiBInt X0;
79	FiSInt X1;
80	};
81	struct Fmt15 {
82	FiPtr X0_empty;
83	};
84	struct Fmt16 {
85	FiPtr X0_empty;
86	};
87	struct Fmt17 {
88	FiPtr X0_empty;
89	};
90	struct Fmt18 {
91	FiPtr X0_empty;
92	};
93	struct Fmt19 {
94	FiPtr X0_empty;
95	};
96	struct Fmt20 {
97	FiPtr X0_empty;
98	};
99	struct Fmt21 {
100	FiPtr X0_empty;
101	};
102	struct Fmt22 {
103	FiPtr X0_empty;
104	};
105	struct Fmt23 {
106	FiPtr X0_empty;
107	};
108	struct Fmt24 {
109	FiPtr X0_empty;
110	};
111	struct Fmt25 {
112	FiPtr X0_empty;
113	};
114	struct Fmt26 {
115	FiPtr X0_empty;
116	};
117	struct Fmt27 {
118	FiPtr X0_empty;
119	};
120	struct Fmt28 {
121	FiPtr X0_empty;
122	};
123	struct Fmt29 {
124	FiPtr X0_empty;
125	};
126	struct Fmt30 {
127	FiPtr X0_empty;
128	};
129	struct Fmt31 {
130	FiPtr X0_empty;
131	};
132	struct Fmt32 {
133	FiClos X0_dispose_BANG_;
134	FiClos X1_dispose_BANG_;
135	FiClos X2_set_BANG_;
136	FiClos X3_get;
137	FiClos X4_array;
138	FiClos X5_halt;
139	FiClos X6_OS;
140	FiClos X7_RTE;
141	FiClos X8_scan;
142	FiClos X9_scan;
143	FiClos X10_scan;
144	FiClos X11_scan;
145	FiClos X12_format;
146	FiClos X13_format;
147	FiClos X14_format;
148	FiClos X15_format;
149	FiClos X16_convert;
150	FiClos X17_convert;
151	FiClos X18_convert;
152	FiClos X19_convert;
153	FiClos X20_convert;
154	FiClos X21_convert;
155	FiClos X22_convert;
156	FiClos X23_convert;
157	FiClos X24_convert;
158	FiClos X25_convert;
159	FiClos X26_convert;
160	FiClos X27_convert;
161	FiClos X28_convert;
162	FiClos X29_convert;
163	FiClos X30_convert;
164	FiClos X31_convert;
165	FiClos X32_convert;
166	FiClos X33_convert;
167	FiClos X34_fraction;
168	FiClos X35_fraction;
169	FiClos X36_truncate;
170	FiClos X37_truncate;
171	FiClos X38_round_SLASH_;
172	FiClos X39_round_SLASH_;
173	FiClos X40_round_STAR__PLUS_;
174	FiClos X41_round_STAR__PLUS_;
175	FiClos X42_round_STAR_;
176	FiClos X43_round_STAR_;
177	FiClos X44_round_MINUS_;
178	FiClos X45_round_MINUS_;
179	FiClos X46_round_PLUS_;
180	FiClos X47_round_PLUS_;
181	FiClos X48_round;
182	FiClos X49_round;
183	FiClos X50_Bany;
184	FiClos X51_Bdown;
185	FiClos X52_Bup;
186	FiClos X53_Bnearest;
187	FiClos X54_Bzero;
188	FiClos X55_dissemble;
189	FiClos X56_dissemble;
190	FiClos X57_assemble;
191	FiClos X58_assemble;
192	FiClos X59_ord;
193	FiClos X60_char;
194	FiClos X61_lower;
195	FiClos X62_upper;
196	FiClos X63_timesStep;
197	FiClos X64_plusStep;
198	FiClos X65_doubleDivide;
199	FiClos X66_double_STAR_;
200	FiClos X67_mod_STAR_inv;
201	FiClos X68_mod_STAR_;
202	FiClos X69_mod_MINUS_;
203	FiClos X70_mod_PLUS_;
204	FiClos X71_gcd;
205	FiClos X72_gcd;
206	FiClos X73_divide;
207	FiClos X74_divide;
208	FiClos X75_mod;
209	FiClos X76_mod;
210	FiClos X77_rem;
211	FiClos X78_rem;
212	FiClos X79_quo;
213	FiClos X80_quo;
214	FiClos X81_prev;
215	FiClos X82_prev;
216	FiClos X83_prev;
217	FiClos X84_prev;
218	FiClos X85_next;
219	FiClos X86_next;
220	FiClos X87_next;
221	FiClos X88_next;
222	FiClos X89_shiftDown;
223	FiClos X90_shiftDown;
224	FiClos X91_shiftUp;
225	FiClos X92_shiftUp;
226	FiClos X93_bit;
227	FiClos X94_bit;
228	FiClos X95_length;
229	FiClos X96_length;
230	FiClos X97_mod_HAT_;
231	FiClos X98__HAT_;
232	FiClos X99__HAT_;
233	FiClos X100__SLASH_;
234	FiClos X101__SLASH_;
235	FiClos X102__STAR__PLUS_;
236	FiClos X103__STAR__PLUS_;
237	FiClos X104__STAR__PLUS_;
238	FiClos X105__STAR__PLUS_;
239	FiClos X106__STAR_;
240	FiClos X107__STAR_;
241	FiClos X108__STAR_;
242	FiClos X109__STAR_;
243	FiClos X110__MINUS_;
244	FiClos X111__MINUS_;
245	FiClos X112__MINUS_;
246	FiClos X113__MINUS_;
247	FiClos X114__MINUS_;
248	FiClos X115__MINUS_;
249	FiClos X116__MINUS_;
250	FiClos X117__MINUS_;
251	FiClos X118__PLUS_;
252	FiClos X119__PLUS_;
253	FiClos X120__PLUS_;
254	FiClos X121__PLUS_;
255	FiClos X122_xor;
256	FiClos X123__BSLSH__SLASH_;
257	FiClos X124__BSLSH__SLASH_;
258	FiClos X125__SLASH__BSLSH_;
259	FiClos X126__SLASH__BSLSH_;
260	FiClos X127__TILDE_;
261	FiClos X128__TILDE_;
262	FiClos X129_letter_QMARK_;
263	FiClos X130_digit_QMARK_;
264	FiClos X131_nil_QMARK_;
265	FiClos X132_single_QMARK_;
266	FiClos X133_odd_QMARK_;
267	FiClos X134_odd_QMARK_;
268	FiClos X135_even_QMARK_;
269	FiClos X136_even_QMARK_;
270	FiClos X137_negative_QMARK_;
271	FiClos X138_negative_QMARK_;
272	FiClos X139_negative_QMARK_;
273	FiClos X140_negative_QMARK_;
274	FiClos X141_positive_QMARK_;
275	FiClos X142_positive_QMARK_;
276	FiClos X143_positive_QMARK_;
277	FiClos X144_positive_QMARK_;
278	FiClos X145_zero_QMARK_;
279	FiClos X146_zero_QMARK_;
280	FiClos X147_zero_QMARK_;
281	FiClos X148_zero_QMARK_;
282	FiClos X149__LT__EQ_;
283	FiClos X150__LT__EQ_;
284	FiClos X151__LT__EQ_;
285	FiClos X152__LT__EQ_;
286	FiClos X153__LT__EQ_;
287	FiClos X154__LT_;
288	FiClos X155__LT_;
289	FiClos X156__LT_;
290	FiClos X157__LT_;
291	FiClos X158__LT_;
292	FiClos X159__TILDE__EQ_;
293	FiClos X160__TILDE__EQ_;
294	FiClos X161__TILDE__EQ_;
295	FiClos X162__TILDE__EQ_;
296	FiClos X163__TILDE__EQ_;
297	FiClos X164__TILDE__EQ_;
298	FiClos X165__TILDE__EQ_;
299	FiClos X166__EQ_;
300	FiClos X167__EQ_;
301	FiClos X168__EQ_;
302	FiClos X169__EQ_;
303	FiClos X170__EQ_;
304	FiClos X171__EQ_;
305	FiClos X172__EQ_;
306	FiSFlo X173_epsilon;
307	FiDFlo X174_epsilon;
308	FiChar X175_min;
309	FiByte X176_min;
310	FiHInt X177_min;
311	FiSInt X178_min;
312	FiSFlo X179_min;
313	FiDFlo X180_min;
314	FiChar X181_max;
315	FiByte X182_max;
316	FiHInt X183_max;
317	FiSInt X184_max;
318	FiSFlo X185_max;
319	FiDFlo X186_max;
320	FiWord X187_Word;
321	FiWord X188_Ptr;
322	FiWord X189_Rec;
323	FiWord X190_Arr;
324	FiWord X191_Nil;
325	FiWord X192_DFlo;
326	FiWord X193_SFlo;
327	FiWord X194_Char;
328	FiWord X195_BInt;
329	FiWord X196_SInt;
330	FiWord X197_HInt;
331	FiWord X198_XByte;
332	FiWord X199_Bool;
333	};
334	struct Fmt33 {
335	FiWord X0_Type;
336	FiBool X1;
337	};
338	static FiProg C0_machine;
339	static void CF0_machine(FiEnv e1);
340	static FiProg C1_addLevel0;
341	static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
342	static FiProg C2_addLevel1;
343	static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
344	static FiProg C3__EQ_;
345	static FiBool CF3__EQ_(FiEnv e1, FiBool P0_a, FiBool P1_b);
346	static FiProg C4__EQ_;
347	static FiBool CF4__EQ_(FiEnv e1, FiChar P0_a, FiChar P1_b);
348	static FiProg C5__EQ_;
349	static FiBool CF5__EQ_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
350	static FiProg C6__EQ_;
351	static FiBool CF6__EQ_(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
352	static FiProg C7__EQ_;
353	static FiBool CF7__EQ_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b);
354	static FiProg C8__EQ_;
355	static FiBool CF8__EQ_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b);
356	static FiProg C9__EQ_;
357	static FiBool CF9__EQ_(FiEnv e1, FiPtr P0_a, FiPtr P1_b);
358	static FiProg C10__TILDE__EQ_;
359	static FiBool CF10__TILDE__EQ_(FiEnv e1, FiBool P0_a, FiBool P1_b);
360	static FiProg C11__TILDE__EQ_;
361	static FiBool CF11__TILDE__EQ_(FiEnv e1, FiChar P0_a, FiChar P1_b);
362	static FiProg C12__TILDE__EQ_;
363	static FiBool CF12__TILDE__EQ_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
364	static FiProg C13__TILDE__EQ_;
365	static FiBool CF13__TILDE__EQ_(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
366	static FiProg C14__TILDE__EQ_;
367	static FiBool CF14__TILDE__EQ_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b);
368	static FiProg C15__TILDE__EQ_;
369	static FiBool CF15__TILDE__EQ_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b);
370	static FiProg C16__TILDE__EQ_;
371	static FiBool CF16__TILDE__EQ_(FiEnv e1, FiPtr P0_a, FiPtr P1_b);
372	static FiProg C17__LT_;
373	static FiBool CF17__LT_(FiEnv e1, FiChar P0_a, FiChar P1_b);
374	static FiProg C18__LT_;
375	static FiBool CF18__LT_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
376	static FiProg C19__LT_;
377	static FiBool CF19__LT_(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
378	static FiProg C20__LT_;
379	static FiBool CF20__LT_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b);
380	static FiProg C21__LT_;
381	static FiBool CF21__LT_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b);
382	static FiProg C22__LT__EQ_;
383	static FiBool CF22__LT__EQ_(FiEnv e1, FiChar P0_a, FiChar P1_b);
384	static FiProg C23__LT__EQ_;
385	static FiBool CF23__LT__EQ_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
386	static FiProg C24__LT__EQ_;
387	static FiBool CF24__LT__EQ_(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
388	static FiProg C25__LT__EQ_;
389	static FiBool CF25__LT__EQ_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b);
390	static FiProg C26__LT__EQ_;
391	static FiBool CF26__LT__EQ_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b);
392	static FiProg C27_zero_QMARK_;
393	static FiBool CF27_zero_QMARK_(FiEnv e1, FiSInt P0_a);
394	static FiProg C28_zero_QMARK_;
395	static FiBool CF28_zero_QMARK_(FiEnv e1, FiBInt P0_a);
396	static FiProg C29_zero_QMARK_;
397	static FiBool CF29_zero_QMARK_(FiEnv e1, FiSFlo P0_a);
398	static FiProg C30_zero_QMARK_;
399	static FiBool CF30_zero_QMARK_(FiEnv e1, FiDFlo P0_a);
400	static FiProg C31_positive_QMARK_;
401	static FiBool CF31_positive_QMARK_(FiEnv e1, FiSInt P0_a);
402	static FiProg C32_positive_QMARK_;
403	static FiBool CF32_positive_QMARK_(FiEnv e1, FiBInt P0_a);
404	static FiProg C33_positive_QMARK_;
405	static FiBool CF33_positive_QMARK_(FiEnv e1, FiSFlo P0_a);
406	static FiProg C34_positive_QMARK_;
407	static FiBool CF34_positive_QMARK_(FiEnv e1, FiDFlo P0_a);
408	static FiProg C35_negative_QMARK_;
409	static FiBool CF35_negative_QMARK_(FiEnv e1, FiSInt P0_a);
410	static FiProg C36_negative_QMARK_;
411	static FiBool CF36_negative_QMARK_(FiEnv e1, FiBInt P0_a);
412	static FiProg C37_negative_QMARK_;
413	static FiBool CF37_negative_QMARK_(FiEnv e1, FiSFlo P0_a);
414	static FiProg C38_negative_QMARK_;
415	static FiBool CF38_negative_QMARK_(FiEnv e1, FiDFlo P0_a);
416	static FiProg C39_even_QMARK_;
417	static FiBool CF39_even_QMARK_(FiEnv e1, FiBInt P0_a);
418	static FiProg C40_even_QMARK_;
419	static FiBool CF40_even_QMARK_(FiEnv e1, FiSInt P0_a);
420	static FiProg C41_odd_QMARK_;
421	static FiBool CF41_odd_QMARK_(FiEnv e1, FiBInt P0_a);
422	static FiProg C42_odd_QMARK_;
423	static FiBool CF42_odd_QMARK_(FiEnv e1, FiSInt P0_a);
424	static FiProg C43_single_QMARK_;
425	static FiBool CF43_single_QMARK_(FiEnv e1, FiBInt P0_a);
426	static FiProg C44_nil_QMARK_;
427	static FiBool CF44_nil_QMARK_(FiEnv e1, FiPtr P0_a);
428	static FiProg C45_digit_QMARK_;
429	static FiBool CF45_digit_QMARK_(FiEnv e1, FiChar P0_a);
430	static FiProg C46_letter_QMARK_;
431	static FiBool CF46_letter_QMARK_(FiEnv e1, FiChar P0_a);
432	static FiProg C47__TILDE_;
433	static FiBool CF47__TILDE_(FiEnv e1, FiBool P0_a);
434	static FiProg C48__TILDE_;
435	static FiSInt CF48__TILDE_(FiEnv e1, FiSInt P0_a);
436	static FiProg C49__SLASH__BSLSH_;
437	static FiBool CF49__SLASH__BSLSH_(FiEnv e1, FiBool P0_a, FiBool P1_b);
438	static FiProg C50__SLASH__BSLSH_;
439	static FiSInt CF50__SLASH__BSLSH_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
440	static FiProg C51__BSLSH__SLASH_;
441	static FiBool CF51__BSLSH__SLASH_(FiEnv e1, FiBool P0_a, FiBool P1_b);
442	static FiProg C52__BSLSH__SLASH_;
443	static FiSInt CF52__BSLSH__SLASH_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
444	static FiProg C53_xor;
445	static FiSInt CF53_xor(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
446	static FiProg C54__PLUS_;
447	static FiSInt CF54__PLUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
448	static FiProg C55__PLUS_;
449	static FiBInt CF55__PLUS_(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
450	static FiProg C56__PLUS_;
451	static FiSFlo CF56__PLUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b);
452	static FiProg C57__PLUS_;
453	static FiDFlo CF57__PLUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b);
454	static FiProg C58__MINUS_;
455	static FiSInt CF58__MINUS_(FiEnv e1, FiSInt P0_a);
456	static FiProg C59__MINUS_;
457	static FiBInt CF59__MINUS_(FiEnv e1, FiBInt P0_a);
458	static FiProg C60__MINUS_;
459	static FiSFlo CF60__MINUS_(FiEnv e1, FiSFlo P0_a);
460	static FiProg C61__MINUS_;
461	static FiDFlo CF61__MINUS_(FiEnv e1, FiDFlo P0_a);
462	static FiProg C62__MINUS_;
463	static FiSInt CF62__MINUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
464	static FiProg C63__MINUS_;
465	static FiBInt CF63__MINUS_(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
466	static FiProg C64__MINUS_;
467	static FiSFlo CF64__MINUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b);
468	static FiProg C65__MINUS_;
469	static FiDFlo CF65__MINUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b);
470	static FiProg C66__STAR_;
471	static FiSInt CF66__STAR_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
472	static FiProg C67__STAR_;
473	static FiBInt CF67__STAR_(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
474	static FiProg C68__STAR_;
475	static FiSFlo CF68__STAR_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b);
476	static FiProg C69__STAR_;
477	static FiDFlo CF69__STAR_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b);
478	static FiProg C70__STAR__PLUS_;
479	static FiSInt CF70__STAR__PLUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_c);
480	static FiProg C71__STAR__PLUS_;
481	static FiBInt CF71__STAR__PLUS_(FiEnv e1, FiBInt P0_a, FiBInt P1_b, FiBInt P2_c);
482	static FiProg C72__STAR__PLUS_;
483	static FiSFlo CF72__STAR__PLUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSFlo P2_c);
484	static FiProg C73__STAR__PLUS_;
485	static FiDFlo CF73__STAR__PLUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiDFlo P2_c);
486	static FiProg C74__SLASH_;
487	static FiSFlo CF74__SLASH_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b);
488	static FiProg C75__SLASH_;
489	static FiDFlo CF75__SLASH_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b);
490	static FiProg C76__HAT_;
491	static FiBInt CF76__HAT_(FiEnv e1, FiBInt P0_a, FiSInt P1_b);
492	static FiProg C77__HAT_;
493	static FiBInt CF77__HAT_(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
494	static FiProg C78_mod_HAT_;
495	static FiBInt CF78_mod_HAT_(FiEnv e1, FiBInt P0_a, FiBInt P1_b, FiBInt P2_c);
496	static FiProg C79_length;
497	static FiSInt CF79_length(FiEnv e1, FiSInt P0_a);
498	static FiProg C80_length;
499	static FiSInt CF80_length(FiEnv e1, FiBInt P0_a);
500	static FiProg C81_bit;
501	static FiBool CF81_bit(FiEnv e1, FiSInt P0_a, FiSInt P1_n);
502	static FiProg C82_bit;
503	static FiBool CF82_bit(FiEnv e1, FiBInt P0_a, FiSInt P1_n);
504	static FiProg C83_shiftUp;
505	static FiSInt CF83_shiftUp(FiEnv e1, FiSInt P0_a, FiSInt P1_n);
506	static FiProg C84_shiftUp;
507	static FiBInt CF84_shiftUp(FiEnv e1, FiBInt P0_a, FiSInt P1_n);
508	static FiProg C85_shiftDown;
509	static FiSInt CF85_shiftDown(FiEnv e1, FiSInt P0_a, FiSInt P1_n);
510	static FiProg C86_shiftDown;
511	static FiBInt CF86_shiftDown(FiEnv e1, FiBInt P0_a, FiSInt P1_n);
512	static FiProg C87_next;
513	static FiSInt CF87_next(FiEnv e1, FiSInt P0_a);
514	static FiProg C88_next;
515	static FiBInt CF88_next(FiEnv e1, FiBInt P0_a);
516	static FiProg C89_prev;
517	static FiSInt CF89_prev(FiEnv e1, FiSInt P0_a);
518	static FiProg C90_prev;
519	static FiBInt CF90_prev(FiEnv e1, FiBInt P0_a);
520	static FiProg C91_quo;
521	static FiSInt CF91_quo(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
522	static FiProg C92_quo;
523	static FiBInt CF92_quo(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
524	static FiProg C93_rem;
525	static FiSInt CF93_rem(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
526	static FiProg C94_rem;
527	static FiBInt CF94_rem(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
528	static FiProg C95_mod;
529	static FiSInt CF95_mod(FiEnv e1, FiSInt P0_a, FiSInt P1_n);
530	static FiProg C96_mod;
531	static FiBInt CF96_mod(FiEnv e1, FiBInt P0_a, FiBInt P1_n);
532	static FiProg C97_divide;
533	static void CF97_divide(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt* R0, FiSInt* R1);
534	static FiProg C98_divide;
535	static void CF98_divide(FiEnv e1, FiBInt P0_a, FiBInt P1_b, FiBInt* R0, FiBInt* R1);
536	static FiProg C99_gcd;
537	static FiSInt CF99_gcd(FiEnv e1, FiSInt P0_a, FiSInt P1_b);
538	static FiProg C100_gcd;
539	static FiBInt CF100_gcd(FiEnv e1, FiBInt P0_a, FiBInt P1_b);
540	static FiProg C101_mod_PLUS_;
541	static FiSInt CF101_mod_PLUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_n);
542	static FiProg C102_mod_MINUS_;
543	static FiSInt CF102_mod_MINUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_n);
544	static FiProg C103_mod_STAR_;
545	static FiSInt CF103_mod_STAR_(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_n);
546	static FiProg C104_mod_STAR_inv;
547	static FiSInt CF104_mod_STAR_inv(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_n, FiDFlo P3_ni);
548	static FiProg C105_double_STAR_;
549	static void CF105_double_STAR_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord* R0, FiWord* R1);
550	static FiProg C106_doubleDivide;
551	static void CF106_doubleDivide(FiEnv e1, FiWord P0_nh, FiWord P1_nl, FiWord P2_d, FiWord* R0, FiWord* R1, FiWord* R2);
552	static FiProg C107_plusStep;
553	static void CF107_plusStep(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_kin, FiWord* R0, FiWord* R1);
554	static FiProg C108_timesStep;
555	static void CF108_timesStep(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c, FiWord P3_kin, FiWord* R0, FiWord* R1);
556	static FiProg C109_upper;
557	static FiChar CF109_upper(FiEnv e1, FiChar P0_c);
558	static FiProg C110_lower;
559	static FiChar CF110_lower(FiEnv e1, FiChar P0_c);
560	static FiProg C111_char;
561	static FiChar CF111_char(FiEnv e1, FiSInt P0_n);
562	static FiProg C112_ord;
563	static FiSInt CF112_ord(FiEnv e1, FiChar P0_c);
564	static FiProg C113_assemble;
565	static FiSFlo CF113_assemble(FiEnv e1, FiBool P0_s, FiSInt P1_e, FiWord P2_b);
566	static FiProg C114_assemble;
567	static FiDFlo CF114_assemble(FiEnv e1, FiBool P0_s, FiSInt P1_e, FiWord P2_bh, FiWord P3_bl);
568	static FiProg C115_dissemble;
569	static void CF115_dissemble(FiEnv e1, FiSFlo P0_x, FiBool* R0, FiSInt* R1, FiWord* R2);
570	static FiProg C116_dissemble;
571	static void CF116_dissemble(FiEnv e1, FiDFlo P0_x, FiBool* R0, FiSInt* R1, FiWord* R2, FiWord* R3);
572	static FiProg C117_next;
573	static FiSFlo CF117_next(FiEnv e1, FiSFlo P0_x);
574	static FiProg C118_next;
575	static FiDFlo CF118_next(FiEnv e1, FiDFlo P0_x);
576	static FiProg C119_prev;
577	static FiSFlo CF119_prev(FiEnv e1, FiSFlo P0_x);
578	static FiProg C120_prev;
579	static FiDFlo CF120_prev(FiEnv e1, FiDFlo P0_x);
580	static FiProg C121_Bzero;
581	static FiSInt CF121_Bzero(FiEnv e1);
582	static FiProg C122_Bnearest;
583	static FiSInt CF122_Bnearest(FiEnv e1);
584	static FiProg C123_Bup;
585	static FiSInt CF123_Bup(FiEnv e1);
586	static FiProg C124_Bdown;
587	static FiSInt CF124_Bdown(FiEnv e1);
588	static FiProg C125_Bany;
589	static FiSInt CF125_Bany(FiEnv e1);
590	static FiProg C126_round;
591	static FiBInt CF126_round(FiEnv e1, FiSFlo P0_a, FiSInt P1_d);
592	static FiProg C127_round;
593	static FiBInt CF127_round(FiEnv e1, FiDFlo P0_a, FiSInt P1_d);
594	static FiProg C128_round_PLUS_;
595	static FiSFlo CF128_round_PLUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSInt P2_d);
596	static FiProg C129_round_PLUS_;
597	static FiDFlo CF129_round_PLUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiSInt P2_d);
598	static FiProg C130_round_MINUS_;
599	static FiSFlo CF130_round_MINUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSInt P2_d);
600	static FiProg C131_round_MINUS_;
601	static FiDFlo CF131_round_MINUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiSInt P2_d);
602	static FiProg C132_round_STAR_;
603	static FiSFlo CF132_round_STAR_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSInt P2_d);
604	static FiProg C133_round_STAR_;
605	static FiDFlo CF133_round_STAR_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiSInt P2_d);
606	static FiProg C134_round_STAR__PLUS_;
607	static FiSFlo CF134_round_STAR__PLUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSFlo P2_c, FiSInt P3_d);
608	static FiProg C135_round_STAR__PLUS_;
609	static FiDFlo CF135_round_STAR__PLUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiDFlo P2_c, FiSInt P3_d);
610	static FiProg C136_round_SLASH_;
611	static FiSFlo CF136_round_SLASH_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSInt P2_d);
612	static FiProg C137_round_SLASH_;
613	static FiDFlo CF137_round_SLASH_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiSInt P2_d);
614	static FiProg C138_truncate;
615	static FiBInt CF138_truncate(FiEnv e1, FiSFlo P0_a);
616	static FiProg C139_truncate;
617	static FiBInt CF139_truncate(FiEnv e1, FiDFlo P0_a);
618	static FiProg C140_fraction;
619	static FiSFlo CF140_fraction(FiEnv e1, FiSFlo P0_a);
620	static FiProg C141_fraction;
621	static FiDFlo CF141_fraction(FiEnv e1, FiDFlo P0_a);
622	static FiProg C142_convert;
623	static FiDFlo CF142_convert(FiEnv e1, FiSFlo P0_a);
624	static FiProg C143_convert;
625	static FiSFlo CF143_convert(FiEnv e1, FiDFlo P0_a);
626	static FiProg C144_convert;
627	static FiSInt CF144_convert(FiEnv e1, FiByte P0_a);
628	static FiProg C145_convert;
629	static FiByte CF145_convert(FiEnv e1, FiSInt P0_a);
630	static FiProg C146_convert;
631	static FiSInt CF146_convert(FiEnv e1, FiHInt P0_a);
632	static FiProg C147_convert;
633	static FiHInt CF147_convert(FiEnv e1, FiSInt P0_a);
634	static FiProg C148_convert;
635	static FiBInt CF148_convert(FiEnv e1, FiSInt P0_a);
636	static FiProg C149_convert;
637	static FiSInt CF149_convert(FiEnv e1, FiBInt P0_a);
638	static FiProg C150_convert;
639	static FiSFlo CF150_convert(FiEnv e1, FiSInt P0_a);
640	static FiProg C151_convert;
641	static FiDFlo CF151_convert(FiEnv e1, FiSInt P0_a);
642	static FiProg C152_convert;
643	static FiSFlo CF152_convert(FiEnv e1, FiBInt P0_a);
644	static FiProg C153_convert;
645	static FiDFlo CF153_convert(FiEnv e1, FiBInt P0_a);
646	static FiProg C154_convert;
647	static FiSInt CF154_convert(FiEnv e1, FiPtr P0_a);
648	static FiProg C155_convert;
649	static FiPtr CF155_convert(FiEnv e1, FiSInt P0_a);
650	static FiProg C156_convert;
651	static FiSFlo CF156_convert(FiEnv e1, FiPtr *P0_a);
652	static FiProg C157_convert;
653	static FiDFlo CF157_convert(FiEnv e1, FiPtr *P0_a);
654	static FiProg C158_convert;
655	static FiSInt CF158_convert(FiEnv e1, FiPtr *P0_a);
656	static FiProg C159_convert;
657	static FiBInt CF159_convert(FiEnv e1, FiPtr *P0_a);
658	static FiProg C160_format;
659	static FiSInt CF160_format(FiEnv e1, FiSInt P0_a, FiPtr *P1_s, FiSInt P2_n);
660	static FiProg C161_format;
661	static FiSInt CF161_format(FiEnv e1, FiBInt P0_a, FiPtr *P1_s, FiSInt P2_n);
662	static FiProg C162_format;
663	static FiSInt CF162_format(FiEnv e1, FiSFlo P0_a, FiPtr *P1_s, FiSInt P2_n);
664	static FiProg C163_format;
665	static FiSInt CF163_format(FiEnv e1, FiDFlo P0_a, FiPtr *P1_s, FiSInt P2_n);
666	static FiProg C164_scan;
667	static void CF164_scan(FiEnv e1, FiPtr P0_s, FiSInt P1_n, FiSFlo R0, FiSInt* R1);
668	static FiProg C165_scan;
669	static void CF165_scan(FiEnv e1, FiPtr P0_s, FiSInt P1_n, FiDFlo R0, FiSInt* R1);
670	static FiProg C166_scan;
671	static void CF166_scan(FiEnv e1, FiPtr P0_s, FiSInt P1_n, FiSInt R0, FiSInt* R1);
672	static FiProg C167_scan;
673	static void CF167_scan(FiEnv e1, FiPtr P0_s, FiSInt P1_n, FiBInt R0, FiSInt* R1);
674	static FiProg C168_RTE;
675	static FiSInt CF168_RTE(FiEnv e1);
676	static FiProg C169_OS;
677	static FiSInt CF169_OS(FiEnv e1);
678	static FiProg C170_halt;
679	static FiWord CF170_halt(FiEnv e1, FiSInt P0_rc);
680	static FiProg C171_array;
681	static FiClos CF171_array(FiEnv e1, FiWord P0_E);
682	static FiProg C172_array;
683	static FiPtr CF172_array(FiEnv e1, FiWord P0_e, FiSInt P1_n);
684	static FiProg C173_get;
685	static FiClos CF173_get(FiEnv e1, FiWord P0_E);
686	static FiProg C174_get;
687	static FiWord CF174_get(FiEnv e1, FiPtr *P0_a, FiSInt P1_n);
688	static FiProg C175_set_BANG_;
689	static FiClos CF175_set_BANG_(FiEnv e1, FiWord P0_E);
690	static FiProg C176_set_BANG_;
691	static FiWord CF176_set_BANG_(FiEnv e1, FiPtr *P0_a, FiSInt P1_n, FiWord P2_e);
692	static FiProg C177_dispose_BANG_;
693	static void CF177_dispose_BANG_(FiEnv e1, FiPtr *P0_a);
694	static FiProg C178_dispose_BANG_;
695	static void CF178_dispose_BANG_(FiEnv e1, FiBInt P0_b);
696	static FiProg C179_addLevel0;
697	static FiClos CF179_addLevel0(FiEnv e1, FiWord P0_domain);
698	static FiProg C180_addLevel1;
699	static FiWord CF180_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
700	static FiProg C181_addLevel0;
701	static FiClos CF181_addLevel0(FiEnv e1, FiWord P0_domain);
702	static FiProg C182_addLevel1;
703	static FiWord CF182_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
704	static FiProg C183_addLevel0;
705	static FiClos CF183_addLevel0(FiEnv e1, FiWord P0_domain);
706	static FiProg C184_addLevel1;
707	static FiWord CF184_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
708	static FiProg C185_addLevel0;
709	static FiClos CF185_addLevel0(FiEnv e1, FiWord P0_domain);
710	static FiProg C186_addLevel1;
711	static FiWord CF186_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
712	static FiProg C187_addLevel0;
713	static FiClos CF187_addLevel0(FiEnv e1, FiWord P0_domain);
714	static FiProg C188_addLevel1;
715	static FiWord CF188_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
716	static FiProg C189_addLevel0;
717	static FiClos CF189_addLevel0(FiEnv e1, FiWord P0_domain);
718	static FiProg C190_addLevel1;
719	static FiWord CF190_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
720	static FiProg C191_addLevel0;
721	static FiClos CF191_addLevel0(FiEnv e1, FiWord P0_domain);
722	static FiProg C192_addLevel1;
723	static FiWord CF192_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
724	static FiProg C193_addLevel0;
725	static FiClos CF193_addLevel0(FiEnv e1, FiWord P0_domain);
726	static FiProg C194_addLevel1;
727	static FiWord CF194_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
728	static FiProg C195_addLevel0;
729	static FiClos CF195_addLevel0(FiEnv e1, FiWord P0_domain);
730	static FiProg C196_addLevel1;
731	static FiWord CF196_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
732	static FiProg C197_addLevel0;
733	static FiClos CF197_addLevel0(FiEnv e1, FiWord P0_domain);
734	static FiProg C198_addLevel1;
735	static FiWord CF198_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
736	static FiProg C199_addLevel0;
737	static FiClos CF199_addLevel0(FiEnv e1, FiWord P0_domain);
738	static FiProg C200_addLevel1;
739	static FiWord CF200_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
740	static FiProg C201_addLevel0;
741	static FiClos CF201_addLevel0(FiEnv e1, FiWord P0_domain);
742	static FiProg C202_addLevel1;
743	static FiWord CF202_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
744	static FiProg C203_addLevel0;
745	static FiClos CF203_addLevel0(FiEnv e1, FiWord P0_domain);
746	static FiProg C204_addLevel1;
747	static FiWord CF204_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
748	static FiProg C205_lang_MINUS_init;
749	static FiWord CF205_lang_MINUS_init(FiEnv e1, FiSInt P0_idx);
750	extern FiClos G_JNB1W_machine;
751	static FiClos *pG_NQYQM_noOperation;
752	extern FiWord G_1B0E6_machine__Machine__9157;
753	static FiClos *pG_XIPRL_runtime;
754	static FiClos *pG_Z2868_rtConstNameFn;
755	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
756	static FiClos *pG_XS55O_domainAddHash_BANG_;
757	static FiClos *pG_PA5R2_domainAddExports;
758	static FiClos *pG_IJHFC_domainMakeDispatch;
759	static FiWord *pG_S6I8I_lang__Type__394624008;
760	static FiClos *pG_KK8CX_rtLazyDomFrInit;
761	static FiClos *pG_V9SO_domainAddDefaults;
762	static FiClos *pG_6L1ZC_domainMake;
763	static FiClos *pG_822GM_rtAddStrings;
764	static FiClos *pG_8KYHF_lang;
765	static FiBInt GB0;
766	static FiBInt GB1;
767
768	static long GA0 = 0x0;
769	static long GA1 = 0x1;
770
771
772	static void
773	CF0_machine(FiEnv e1)
774	{
775	PFmt5 T3, T4;
776	FiWord T1, T2;
777	FiClos T0;
778	PFmt33 l0;
779	FiEnv e0;
780	l0 = fi0New(struct Fmt33 , CENSUS_EnvLevel)((struct Fmt33 *) fi0Alloc(sizeof(struct Fmt33), (19)));
781	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
782	fiBINT_FR_INT(GB0, FiBInt, GA0)((GB0) = (FiBInt) fiBIntFrInt(GA0));
783	fiBINT_FR_INT(GB1, FiBInt, GA1)((GB1) = (FiBInt) fiBIntFrInt(GA1));
784	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
785	G_JNB1W_machine = (FiClos) (*pG_NQYQM_noOperation);
786	T0 = fiClosMake(e0, C205_lang_MINUS_init)fiClosMakeFun(e0, (FiProg) (C205_lang_MINUS_init));
787	G_1B0E6_machine__Machine__9157 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))))
788	pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))));
789	l0->X1 = 0L;
790	fiARRNEW_Word(T1, FiWord, 96L)((T1) = (FiWord) fiArrNew_Word(96L));
791	fiARRNEW_Word(T2, FiWord, 96L)((T2) = (FiWord) fiArrNew_Word(96L));
792	T1[0L] = (FiWord) 318525310L;
793	T2[0L] = (FiWord) "nil";
794	T1[1L] = (FiWord) 200167L;
795	T2[1L] = (FiWord) "~";
796	T1[2L] = (FiWord) 316039793L;
797	T2[2L] = (FiWord) "Ptr";
798	T1[3L] = (FiWord) 51492427L;
799	T2[3L] = (FiWord) "<=";
800	T1[4L] = (FiWord) 493486801L;
801	T2[4L] = (FiWord) "newline";
802	T1[5L] = (FiWord) 800877593L;
803	T2[5L] = (FiWord) "space";
804	T1[6L] = (FiWord) 11137124L;
805	T2[6L] = (FiWord) "true";
806	T1[7L] = (FiWord) 432284431L;
807	T2[7L] = (FiWord) "Bzero";
808	T1[8L] = (FiWord) 763681468L;
809	T2[8L] = (FiWord) "doubleDivide";
810	T1[9L] = (FiWord) 195459125L;
811	T2[9L] = (FiWord) "round";
812	T1[10L] = (FiWord) 101877503L;
813	T2[10L] = (FiWord) "format";
814	T1[11L] = (FiWord) 318461825L;
815	T2[11L] = (FiWord) "max";
816	T1[12L] = (FiWord) 298204937L;
817	T2[12L] = (FiWord) "DFlo";
818	T1[13L] = (FiWord) 772508007L;
819	T2[13L] = (FiWord) "shiftDown";
820	T1[14L] = (FiWord) 312950368L;
821	T2[14L] = (FiWord) "Arr";
822	T1[15L] = (FiWord) 295223545L;
823	T2[15L] = (FiWord) "XByte";
824	T1[16L] = (FiWord) 746855757L;
825	T2[16L] = (FiWord) "halt";
826	T1[17L] = (FiWord) 51509389L;
827	T2[17L] = (FiWord) "~=";
828	T1[18L] = (FiWord) 699481154L;
829	T2[18L] = (FiWord) "mod^";
830	T1[19L] = (FiWord) 983329337L;
831	T2[19L] = (FiWord) "upper";
832	T1[20L] = (FiWord) 55906833L;
833	T2[20L] = (FiWord) "set!";
834	T1[21L] = (FiWord) 883237500L;
835	T2[21L] = (FiWord) "Bnearest";
836	T1[22L] = (FiWord) 733146723L;
837	T2[22L] = (FiWord) "positive\?";
838	T1[23L] = (FiWord) 613807201L;
839	T2[23L] = (FiWord) "prev";
840	T1[24L] = (FiWord) 158725806L;
841	T2[24L] = (FiWord) "letter\?";
842	T1[25L] = (FiWord) 51489831L;
843	T2[25L] = (FiWord) "*+";
844	T1[26L] = (FiWord) 200083L;
845	T2[26L] = (FiWord) "*";
846	T1[27L] = (FiWord) 988818480L;
847	T2[27L] = (FiWord) "Bool";
848	T1[28L] = (FiWord) 614579040L;
849	T2[28L] = (FiWord) "dispose!";
850	T1[29L] = (FiWord) 318604649L;
851	T2[29L] = (FiWord) "gcd";
852	T1[30L] = (FiWord) 609780612L;
853	T2[30L] = (FiWord) "double*";
854	T1[31L] = (FiWord) 1068141280L;
855	T2[31L] = (FiWord) "convert";
856	T1[32L] = (FiWord) 317608340L;
857	T2[32L] = (FiWord) "xor";
858	T1[33L] = (FiWord) 200084L;
859	T2[33L] = (FiWord) "+";
860	T1[34L] = (FiWord) 315787122L;
861	T2[34L] = (FiWord) "tab";
862	T1[35L] = (FiWord) 682906668L;
863	T2[35L] = (FiWord) "array";
864	T1[36L] = (FiWord) 9272514L;
865	T2[36L] = (FiWord) "shiftUp";
866	T1[37L] = (FiWord) 318604155L;
867	T2[37L] = (FiWord) "get";
868	T1[38L] = (FiWord) 888430996L;
869	T2[38L] = (FiWord) "assemble";
870	T1[39L] = (FiWord) 318461307L;
871	T2[39L] = (FiWord) "mod";
872	T1[40L] = (FiWord) 200086L;
873	T2[40L] = (FiWord) "-";
874	T1[41L] = (FiWord) 864294210L;
875	T2[41L] = (FiWord) "char";
876	T1[42L] = (FiWord) 13900568L;
877	T2[42L] = (FiWord) "false";
878	T1[43L] = (FiWord) 267433479L;
879	T2[43L] = (FiWord) "Bdown";
880	T1[44L] = (FiWord) 769743560L;
881	T2[44L] = (FiWord) "round*";
882	T1[45L] = (FiWord) 316169045L;
883	T2[45L] = (FiWord) "Rec";
884	T1[46L] = (FiWord) 200088L;
885	T2[46L] = (FiWord) "/";
886	T1[47L] = (FiWord) 769743561L;
887	T2[47L] = (FiWord) "round+";
888	T1[48L] = (FiWord) 200089L;
889	T2[48L] = (FiWord) "0";
890	T1[49L] = (FiWord) 318070400L;
891	T2[49L] = (FiWord) "ord";
892	T1[50L] = (FiWord) 318204816L;
893	T2[50L] = (FiWord) "quo";
894	T1[51L] = (FiWord) 214377384L;
895	T2[51L] = (FiWord) "plusStep";
896	T1[52L] = (FiWord) 200090L;
897	T2[52L] = (FiWord) "1";
898	T1[53L] = (FiWord) 42114539L;
899	T2[53L] = (FiWord) "divide";
900	T1[54L] = (FiWord) 206475020L;
901	T2[54L] = (FiWord) "zero\?";
902	T1[55L] = (FiWord) 699481102L;
903	T2[55L] = (FiWord) "mod*";
904	T1[56L] = (FiWord) 424301635L;
905	T2[56L] = (FiWord) "negative\?";
906	T1[57L] = (FiWord) 769743563L;
907	T2[57L] = (FiWord) "round-";
908	T1[58L] = (FiWord) 362464416L;
909	T2[58L] = (FiWord) "single\?";
910	T1[59L] = (FiWord) 699481103L;
911	T2[59L] = (FiWord) "mod+";
912	T1[60L] = (FiWord) 782953315L;
913	T2[60L] = (FiWord) "next";
914	T1[61L] = (FiWord) 769743565L;
915	T2[61L] = (FiWord) "round/";
916	T1[62L] = (FiWord) 315119482L;
917	T2[62L] = (FiWord) "bit";
918	T1[63L] = (FiWord) 316197414L;
919	T2[63L] = (FiWord) "RTE";
920	T1[64L] = (FiWord) 699481105L;
921	T2[64L] = (FiWord) "mod-";
922	T1[65L] = (FiWord) 313019234L;
923	T2[65L] = (FiWord) "Bup";
924	T1[66L] = (FiWord) 317742766L;
925	T2[66L] = (FiWord) "truncate";
926	T1[67L] = (FiWord) 980062510L;
927	T2[67L] = (FiWord) "Bany";
928	T1[68L] = (FiWord) 814719174L;
929	T2[68L] = (FiWord) "digit\?";
930	T1[69L] = (FiWord) 530526272L;
931	T2[69L] = (FiWord) "Word";
932	T1[70L] = (FiWord) 51495796L;
933	T2[70L] = (FiWord) "OS";
934	T1[71L] = (FiWord) 437828088L;
935	T2[71L] = (FiWord) "length";
936	T1[72L] = (FiWord) 213819484L;
937	T2[72L] = (FiWord) "round*+";
938	T1[73L] = (FiWord) 51487581L;
939	T2[73L] = (FiWord) "/\\";
940	T1[74L] = (FiWord) 979554577L;
941	T2[74L] = (FiWord) "BInt";
942	T1[75L] = (FiWord) 790889321L;
943	T2[75L] = (FiWord) "dissemble";
944	T1[76L] = (FiWord) 498514682L;
945	T2[76L] = (FiWord) "even\?";
946	T1[77L] = (FiWord) 375422425L;
947	T2[77L] = (FiWord) "epsilon";
948	T1[78L] = (FiWord) 592883736L;
949	T2[78L] = (FiWord) "SFlo";
950	T1[79L] = (FiWord) 594651170L;
951	T2[79L] = (FiWord) "SInt";
952	T1[80L] = (FiWord) 274372719L;
953	T2[80L] = (FiWord) "timesStep";
954	T1[81L] = (FiWord) 56100169L;
955	T2[81L] = (FiWord) "scan";
956	T1[82L] = (FiWord) 51500637L;
957	T2[82L] = (FiWord) "\\/";
958	T1[83L] = (FiWord) 318266239L;
959	T2[83L] = (FiWord) "rem";
960	T1[84L] = (FiWord) 200101L;
961	T2[84L] = (FiWord) "<";
962	T1[85L] = (FiWord) 316428126L;
963	T2[85L] = (FiWord) "Nil";
964	T1[86L] = (FiWord) 208444183L;
965	T2[86L] = (FiWord) "HInt";
966	T1[87L] = (FiWord) 244914846L;
967	T2[87L] = (FiWord) "fraction";
968	T1[88L] = (FiWord) 200102L;
969	T2[88L] = (FiWord) "=";
970	T1[89L] = (FiWord) 239585078L;
971	T2[89L] = (FiWord) "lower";
972	T1[90L] = (FiWord) 321172770L;
973	T2[90L] = (FiWord) "Char";
974	T1[91L] = (FiWord) 979527830L;
975	T2[91L] = (FiWord) "mod*inv";
976	T1[92L] = (FiWord) 318459775L;
977	T2[92L] = (FiWord) "min";
978	T1[93L] = (FiWord) 665072666L;
979	T2[93L] = (FiWord) "odd\?";
980	T1[94L] = (FiWord) 783695654L;
981	T2[94L] = (FiWord) "nil\?";
982	T1[95L] = (FiWord) 200135L;
983	T2[95L] = (FiWord) "^";
984	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
985	T3->X0_size = 96L;
986	T3->X1_nsize = 96L;
987	T3->X2_values = (FiWord) T1;
988	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
989	T4->X0_size = 96L;
990	T4->X1_nsize = 96L;
991	T4->X2_values = (FiWord) T2;
992	fiCCall2(void, (pG_822GM_rtAddStrings), (FiWord) T3, (FiWord) T4)((((void ()())((pG_822GM_rtAddStrings))->prog->fun)) (((*pG_822GM_rtAddStrings))->env,(FiWord) T3,(FiWord) T4));
993	l0->X0_Type = fiCCall2(FiWord, (pG_KK8CX_rtLazyDomFrInit), T0,((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T0,0L))
994	0L)((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((pG_KK8CX_rtLazyDomFrInit))->env,T0,0L));
995	return ;
996	}
997
998	static struct _FiProg tmp0_machine = {
999	(FiFun) CF0_machine,
1000	0L,
1001	0L,
1002	0L,
1003	0L
1004	};
1005
1006
1007	static FiClos
1008	CF1_addLevel0(FiEnv e1, FiWord P0_domain)
1009	{
1010	FiWord T0;
1011	FiEnv e0;
1012	PFmt33 l1;
1013	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1014	l1 = (PFmt33) fiEnvLevel(e1)((FiEnv) (e1)->level);
1015	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Machine")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Machine"));
1016	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
1017	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,73042068L ))
1018	73042068L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,73042068L ));
1019	return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
1020	}
1021
1022	static struct _FiProg tmp1_addLevel0 = {
1023	(FiFun) CF1_addLevel0,
1024	0L,
1025	0L,
1026	0L,
1027	0L
1028	};
1029
1030
1031	static FiWord
1032	CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
1033	{
1034	PFmt5 T3, T4, T5;
1035	FiWord T0, T1, *T2;
1036	PFmt32 l0;
1037	FiEnv e2, e0;
1038	PFmt33 l2;
1039	l0 = fi0New(struct Fmt32 , CENSUS_EnvLevel)((struct Fmt32 *) fi0Alloc(sizeof(struct Fmt32), (19)));
1040	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1041	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1042	l2 = (PFmt33) fiEnvLevel(e2)((FiEnv) (e2)->level);
1043	fiARRNEW_Word(T0, FiWord, 218L)((T0) = (FiWord) fiArrNew_Word(218L));
1044	fiARRNEW_Word(T1, FiWord, 218L)((T1) = (FiWord) fiArrNew_Word(218L));
1045	fiARRNEW_Word(T2, FiWord, 218L)((T2) = (FiWord) fiArrNew_Word(218L));
1046	l0->X166__EQ_ = fiClosMake(e0, C3__EQ_)fiClosMakeFun(e0, (FiProg) (C3__EQ_));
1047	l0->X167__EQ_ = fiClosMake(e0, C4__EQ_)fiClosMakeFun(e0, (FiProg) (C4__EQ_));
1048	l0->X168__EQ_ = fiClosMake(e0, C5__EQ_)fiClosMakeFun(e0, (FiProg) (C5__EQ_));
1049	l0->X169__EQ_ = fiClosMake(e0, C6__EQ_)fiClosMakeFun(e0, (FiProg) (C6__EQ_));
1050	l0->X170__EQ_ = fiClosMake(e0, C7__EQ_)fiClosMakeFun(e0, (FiProg) (C7__EQ_));
1051	l0->X171__EQ_ = fiClosMake(e0, C8__EQ_)fiClosMakeFun(e0, (FiProg) (C8__EQ_));
1052	l0->X172__EQ_ = fiClosMake(e0, C9__EQ_)fiClosMakeFun(e0, (FiProg) (C9__EQ_));
1053	l0->X159__TILDE__EQ_ = fiClosMake(e0, C10__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C10__TILDE__EQ_));
1054	l0->X160__TILDE__EQ_ = fiClosMake(e0, C11__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C11__TILDE__EQ_));
1055	l0->X161__TILDE__EQ_ = fiClosMake(e0, C12__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C12__TILDE__EQ_));
1056	l0->X162__TILDE__EQ_ = fiClosMake(e0, C13__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C13__TILDE__EQ_));
1057	l0->X163__TILDE__EQ_ = fiClosMake(e0, C14__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C14__TILDE__EQ_));
1058	l0->X164__TILDE__EQ_ = fiClosMake(e0, C15__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C15__TILDE__EQ_));
1059	l0->X165__TILDE__EQ_ = fiClosMake(e0, C16__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C16__TILDE__EQ_));
1060	l0->X154__LT_ = fiClosMake(e0, C17__LT_)fiClosMakeFun(e0, (FiProg) (C17__LT_));
1061	l0->X155__LT_ = fiClosMake(e0, C18__LT_)fiClosMakeFun(e0, (FiProg) (C18__LT_));
1062	l0->X156__LT_ = fiClosMake(e0, C19__LT_)fiClosMakeFun(e0, (FiProg) (C19__LT_));
1063	l0->X157__LT_ = fiClosMake(e0, C20__LT_)fiClosMakeFun(e0, (FiProg) (C20__LT_));
1064	l0->X158__LT_ = fiClosMake(e0, C21__LT_)fiClosMakeFun(e0, (FiProg) (C21__LT_));
1065	l0->X149__LT__EQ_ = fiClosMake(e0, C22__LT__EQ_)fiClosMakeFun(e0, (FiProg) (C22__LT__EQ_));
1066	l0->X150__LT__EQ_ = fiClosMake(e0, C23__LT__EQ_)fiClosMakeFun(e0, (FiProg) (C23__LT__EQ_));
1067	l0->X151__LT__EQ_ = fiClosMake(e0, C24__LT__EQ_)fiClosMakeFun(e0, (FiProg) (C24__LT__EQ_));
1068	l0->X152__LT__EQ_ = fiClosMake(e0, C25__LT__EQ_)fiClosMakeFun(e0, (FiProg) (C25__LT__EQ_));
1069	l0->X153__LT__EQ_ = fiClosMake(e0, C26__LT__EQ_)fiClosMakeFun(e0, (FiProg) (C26__LT__EQ_));
1070	l0->X145_zero_QMARK_ = fiClosMake(e0, C27_zero_QMARK_)fiClosMakeFun(e0, (FiProg) (C27_zero_QMARK_));
1071	l0->X146_zero_QMARK_ = fiClosMake(e0, C28_zero_QMARK_)fiClosMakeFun(e0, (FiProg) (C28_zero_QMARK_));
1072	l0->X147_zero_QMARK_ = fiClosMake(e0, C29_zero_QMARK_)fiClosMakeFun(e0, (FiProg) (C29_zero_QMARK_));
1073	l0->X148_zero_QMARK_ = fiClosMake(e0, C30_zero_QMARK_)fiClosMakeFun(e0, (FiProg) (C30_zero_QMARK_));
1074	l0->X141_positive_QMARK_ = fiClosMake(e0, C31_positive_QMARK_)fiClosMakeFun(e0, (FiProg) (C31_positive_QMARK_));
1075	l0->X142_positive_QMARK_ = fiClosMake(e0, C32_positive_QMARK_)fiClosMakeFun(e0, (FiProg) (C32_positive_QMARK_));
1076	l0->X143_positive_QMARK_ = fiClosMake(e0, C33_positive_QMARK_)fiClosMakeFun(e0, (FiProg) (C33_positive_QMARK_));
1077	l0->X144_positive_QMARK_ = fiClosMake(e0, C34_positive_QMARK_)fiClosMakeFun(e0, (FiProg) (C34_positive_QMARK_));
1078	l0->X137_negative_QMARK_ = fiClosMake(e0, C35_negative_QMARK_)fiClosMakeFun(e0, (FiProg) (C35_negative_QMARK_));
1079	l0->X138_negative_QMARK_ = fiClosMake(e0, C36_negative_QMARK_)fiClosMakeFun(e0, (FiProg) (C36_negative_QMARK_));
1080	l0->X139_negative_QMARK_ = fiClosMake(e0, C37_negative_QMARK_)fiClosMakeFun(e0, (FiProg) (C37_negative_QMARK_));
1081	l0->X140_negative_QMARK_ = fiClosMake(e0, C38_negative_QMARK_)fiClosMakeFun(e0, (FiProg) (C38_negative_QMARK_));
1082	l0->X135_even_QMARK_ = fiClosMake(e0, C39_even_QMARK_)fiClosMakeFun(e0, (FiProg) (C39_even_QMARK_));
1083	l0->X136_even_QMARK_ = fiClosMake(e0, C40_even_QMARK_)fiClosMakeFun(e0, (FiProg) (C40_even_QMARK_));
1084	l0->X133_odd_QMARK_ = fiClosMake(e0, C41_odd_QMARK_)fiClosMakeFun(e0, (FiProg) (C41_odd_QMARK_));
1085	l0->X134_odd_QMARK_ = fiClosMake(e0, C42_odd_QMARK_)fiClosMakeFun(e0, (FiProg) (C42_odd_QMARK_));
1086	l0->X132_single_QMARK_ = fiClosMake(e0, C43_single_QMARK_)fiClosMakeFun(e0, (FiProg) (C43_single_QMARK_));
1087	l0->X131_nil_QMARK_ = fiClosMake(e0, C44_nil_QMARK_)fiClosMakeFun(e0, (FiProg) (C44_nil_QMARK_));
1088	l0->X130_digit_QMARK_ = fiClosMake(e0, C45_digit_QMARK_)fiClosMakeFun(e0, (FiProg) (C45_digit_QMARK_));
1089	l0->X129_letter_QMARK_ = fiClosMake(e0, C46_letter_QMARK_)fiClosMakeFun(e0, (FiProg) (C46_letter_QMARK_));
1090	l0->X127__TILDE_ = fiClosMake(e0, C47__TILDE_)fiClosMakeFun(e0, (FiProg) (C47__TILDE_));
1091	l0->X128__TILDE_ = fiClosMake(e0, C48__TILDE_)fiClosMakeFun(e0, (FiProg) (C48__TILDE_));
1092	l0->X125__SLASH__BSLSH_ = fiClosMake(e0, C49__SLASH__BSLSH_)fiClosMakeFun(e0, (FiProg) (C49__SLASH__BSLSH_));
1093	l0->X126__SLASH__BSLSH_ = fiClosMake(e0, C50__SLASH__BSLSH_)fiClosMakeFun(e0, (FiProg) (C50__SLASH__BSLSH_));
1094	l0->X123__BSLSH__SLASH_ = fiClosMake(e0, C51__BSLSH__SLASH_)fiClosMakeFun(e0, (FiProg) (C51__BSLSH__SLASH_));
1095	l0->X124__BSLSH__SLASH_ = fiClosMake(e0, C52__BSLSH__SLASH_)fiClosMakeFun(e0, (FiProg) (C52__BSLSH__SLASH_));
1096	l0->X122_xor = fiClosMake(e0, C53_xor)fiClosMakeFun(e0, (FiProg) (C53_xor));
1097	l0->X118__PLUS_ = fiClosMake(e0, C54__PLUS_)fiClosMakeFun(e0, (FiProg) (C54__PLUS_));
1098	l0->X119__PLUS_ = fiClosMake(e0, C55__PLUS_)fiClosMakeFun(e0, (FiProg) (C55__PLUS_));
1099	l0->X120__PLUS_ = fiClosMake(e0, C56__PLUS_)fiClosMakeFun(e0, (FiProg) (C56__PLUS_));
1100	l0->X121__PLUS_ = fiClosMake(e0, C57__PLUS_)fiClosMakeFun(e0, (FiProg) (C57__PLUS_));
1101	l0->X110__MINUS_ = fiClosMake(e0, C58__MINUS_)fiClosMakeFun(e0, (FiProg) (C58__MINUS_));
1102	l0->X111__MINUS_ = fiClosMake(e0, C59__MINUS_)fiClosMakeFun(e0, (FiProg) (C59__MINUS_));
1103	l0->X112__MINUS_ = fiClosMake(e0, C60__MINUS_)fiClosMakeFun(e0, (FiProg) (C60__MINUS_));
1104	l0->X113__MINUS_ = fiClosMake(e0, C61__MINUS_)fiClosMakeFun(e0, (FiProg) (C61__MINUS_));
1105	l0->X114__MINUS_ = fiClosMake(e0, C62__MINUS_)fiClosMakeFun(e0, (FiProg) (C62__MINUS_));
1106	l0->X115__MINUS_ = fiClosMake(e0, C63__MINUS_)fiClosMakeFun(e0, (FiProg) (C63__MINUS_));
1107	l0->X116__MINUS_ = fiClosMake(e0, C64__MINUS_)fiClosMakeFun(e0, (FiProg) (C64__MINUS_));
1108	l0->X117__MINUS_ = fiClosMake(e0, C65__MINUS_)fiClosMakeFun(e0, (FiProg) (C65__MINUS_));
1109	l0->X106__STAR_ = fiClosMake(e0, C66__STAR_)fiClosMakeFun(e0, (FiProg) (C66__STAR_));
1110	l0->X107__STAR_ = fiClosMake(e0, C67__STAR_)fiClosMakeFun(e0, (FiProg) (C67__STAR_));
1111	l0->X108__STAR_ = fiClosMake(e0, C68__STAR_)fiClosMakeFun(e0, (FiProg) (C68__STAR_));
1112	l0->X109__STAR_ = fiClosMake(e0, C69__STAR_)fiClosMakeFun(e0, (FiProg) (C69__STAR_));
1113	l0->X102__STAR__PLUS_ = fiClosMake(e0, C70__STAR__PLUS_)fiClosMakeFun(e0, (FiProg) (C70__STAR__PLUS_));
1114	l0->X103__STAR__PLUS_ = fiClosMake(e0, C71__STAR__PLUS_)fiClosMakeFun(e0, (FiProg) (C71__STAR__PLUS_));
1115	l0->X104__STAR__PLUS_ = fiClosMake(e0, C72__STAR__PLUS_)fiClosMakeFun(e0, (FiProg) (C72__STAR__PLUS_));
1116	l0->X105__STAR__PLUS_ = fiClosMake(e0, C73__STAR__PLUS_)fiClosMakeFun(e0, (FiProg) (C73__STAR__PLUS_));
1117	l0->X100__SLASH_ = fiClosMake(e0, C74__SLASH_)fiClosMakeFun(e0, (FiProg) (C74__SLASH_));
1118	l0->X101__SLASH_ = fiClosMake(e0, C75__SLASH_)fiClosMakeFun(e0, (FiProg) (C75__SLASH_));
1119	l0->X98__HAT_ = fiClosMake(e0, C76__HAT_)fiClosMakeFun(e0, (FiProg) (C76__HAT_));
1120	l0->X99__HAT_ = fiClosMake(e0, C77__HAT_)fiClosMakeFun(e0, (FiProg) (C77__HAT_));
1121	l0->X97_mod_HAT_ = fiClosMake(e0, C78_mod_HAT_)fiClosMakeFun(e0, (FiProg) (C78_mod_HAT_));
1122	l0->X95_length = fiClosMake(e0, C79_length)fiClosMakeFun(e0, (FiProg) (C79_length));
1123	l0->X96_length = fiClosMake(e0, C80_length)fiClosMakeFun(e0, (FiProg) (C80_length));
1124	l0->X93_bit = fiClosMake(e0, C81_bit)fiClosMakeFun(e0, (FiProg) (C81_bit));
1125	l0->X94_bit = fiClosMake(e0, C82_bit)fiClosMakeFun(e0, (FiProg) (C82_bit));
1126	l0->X91_shiftUp = fiClosMake(e0, C83_shiftUp)fiClosMakeFun(e0, (FiProg) (C83_shiftUp));
1127	l0->X92_shiftUp = fiClosMake(e0, C84_shiftUp)fiClosMakeFun(e0, (FiProg) (C84_shiftUp));
1128	l0->X89_shiftDown = fiClosMake(e0, C85_shiftDown)fiClosMakeFun(e0, (FiProg) (C85_shiftDown));
1129	l0->X90_shiftDown = fiClosMake(e0, C86_shiftDown)fiClosMakeFun(e0, (FiProg) (C86_shiftDown));
1130	l0->X85_next = fiClosMake(e0, C87_next)fiClosMakeFun(e0, (FiProg) (C87_next));
1131	l0->X86_next = fiClosMake(e0, C88_next)fiClosMakeFun(e0, (FiProg) (C88_next));
1132	l0->X81_prev = fiClosMake(e0, C89_prev)fiClosMakeFun(e0, (FiProg) (C89_prev));
1133	l0->X82_prev = fiClosMake(e0, C90_prev)fiClosMakeFun(e0, (FiProg) (C90_prev));
1134	l0->X79_quo = fiClosMake(e0, C91_quo)fiClosMakeFun(e0, (FiProg) (C91_quo));
1135	l0->X80_quo = fiClosMake(e0, C92_quo)fiClosMakeFun(e0, (FiProg) (C92_quo));
1136	l0->X77_rem = fiClosMake(e0, C93_rem)fiClosMakeFun(e0, (FiProg) (C93_rem));
1137	l0->X78_rem = fiClosMake(e0, C94_rem)fiClosMakeFun(e0, (FiProg) (C94_rem));
1138	l0->X75_mod = fiClosMake(e0, C95_mod)fiClosMakeFun(e0, (FiProg) (C95_mod));
1139	l0->X76_mod = fiClosMake(e0, C96_mod)fiClosMakeFun(e0, (FiProg) (C96_mod));
1140	l0->X73_divide = fiClosMake(e0, C97_divide)fiClosMakeFun(e0, (FiProg) (C97_divide));
1141	l0->X74_divide = fiClosMake(e0, C98_divide)fiClosMakeFun(e0, (FiProg) (C98_divide));
1142	l0->X71_gcd = fiClosMake(e0, C99_gcd)fiClosMakeFun(e0, (FiProg) (C99_gcd));
1143	l0->X72_gcd = fiClosMake(e0, C100_gcd)fiClosMakeFun(e0, (FiProg) (C100_gcd));
1144	l0->X70_mod_PLUS_ = fiClosMake(e0, C101_mod_PLUS_)fiClosMakeFun(e0, (FiProg) (C101_mod_PLUS_));
1145	l0->X69_mod_MINUS_ = fiClosMake(e0, C102_mod_MINUS_)fiClosMakeFun(e0, (FiProg) (C102_mod_MINUS_));
1146	l0->X68_mod_STAR_ = fiClosMake(e0, C103_mod_STAR_)fiClosMakeFun(e0, (FiProg) (C103_mod_STAR_));
1147	l0->X67_mod_STAR_inv = fiClosMake(e0, C104_mod_STAR_inv)fiClosMakeFun(e0, (FiProg) (C104_mod_STAR_inv));
1148	l0->X66_double_STAR_ = fiClosMake(e0, C105_double_STAR_)fiClosMakeFun(e0, (FiProg) (C105_double_STAR_));
1149	l0->X65_doubleDivide = fiClosMake(e0, C106_doubleDivide)fiClosMakeFun(e0, (FiProg) (C106_doubleDivide));
1150	l0->X64_plusStep = fiClosMake(e0, C107_plusStep)fiClosMakeFun(e0, (FiProg) (C107_plusStep));
1151	l0->X63_timesStep = fiClosMake(e0, C108_timesStep)fiClosMakeFun(e0, (FiProg) (C108_timesStep));
1152	l0->X62_upper = fiClosMake(e0, C109_upper)fiClosMakeFun(e0, (FiProg) (C109_upper));
1153	l0->X61_lower = fiClosMake(e0, C110_lower)fiClosMakeFun(e0, (FiProg) (C110_lower));
1154	l0->X60_char = fiClosMake(e0, C111_char)fiClosMakeFun(e0, (FiProg) (C111_char));
1155	l0->X59_ord = fiClosMake(e0, C112_ord)fiClosMakeFun(e0, (FiProg) (C112_ord));
1156	l0->X57_assemble = fiClosMake(e0, C113_assemble)fiClosMakeFun(e0, (FiProg) (C113_assemble));
1157	l0->X58_assemble = fiClosMake(e0, C114_assemble)fiClosMakeFun(e0, (FiProg) (C114_assemble));
1158	l0->X55_dissemble = fiClosMake(e0, C115_dissemble)fiClosMakeFun(e0, (FiProg) (C115_dissemble));
1159	l0->X56_dissemble = fiClosMake(e0, C116_dissemble)fiClosMakeFun(e0, (FiProg) (C116_dissemble));
1160	l0->X87_next = fiClosMake(e0, C117_next)fiClosMakeFun(e0, (FiProg) (C117_next));
1161	l0->X88_next = fiClosMake(e0, C118_next)fiClosMakeFun(e0, (FiProg) (C118_next));
1162	l0->X83_prev = fiClosMake(e0, C119_prev)fiClosMakeFun(e0, (FiProg) (C119_prev));
1163	l0->X84_prev = fiClosMake(e0, C120_prev)fiClosMakeFun(e0, (FiProg) (C120_prev));
1164	l0->X54_Bzero = fiClosMake(e0, C121_Bzero)fiClosMakeFun(e0, (FiProg) (C121_Bzero));
1165	l0->X53_Bnearest = fiClosMake(e0, C122_Bnearest)fiClosMakeFun(e0, (FiProg) (C122_Bnearest));
1166	l0->X52_Bup = fiClosMake(e0, C123_Bup)fiClosMakeFun(e0, (FiProg) (C123_Bup));
1167	l0->X51_Bdown = fiClosMake(e0, C124_Bdown)fiClosMakeFun(e0, (FiProg) (C124_Bdown));
1168	l0->X50_Bany = fiClosMake(e0, C125_Bany)fiClosMakeFun(e0, (FiProg) (C125_Bany));
1169	l0->X48_round = fiClosMake(e0, C126_round)fiClosMakeFun(e0, (FiProg) (C126_round));
1170	l0->X49_round = fiClosMake(e0, C127_round)fiClosMakeFun(e0, (FiProg) (C127_round));
1171	l0->X46_round_PLUS_ = fiClosMake(e0, C128_round_PLUS_)fiClosMakeFun(e0, (FiProg) (C128_round_PLUS_));
1172	l0->X47_round_PLUS_ = fiClosMake(e0, C129_round_PLUS_)fiClosMakeFun(e0, (FiProg) (C129_round_PLUS_));
1173	l0->X44_round_MINUS_ = fiClosMake(e0, C130_round_MINUS_)fiClosMakeFun(e0, (FiProg) (C130_round_MINUS_));
1174	l0->X45_round_MINUS_ = fiClosMake(e0, C131_round_MINUS_)fiClosMakeFun(e0, (FiProg) (C131_round_MINUS_));
1175	l0->X42_round_STAR_ = fiClosMake(e0, C132_round_STAR_)fiClosMakeFun(e0, (FiProg) (C132_round_STAR_));
1176	l0->X43_round_STAR_ = fiClosMake(e0, C133_round_STAR_)fiClosMakeFun(e0, (FiProg) (C133_round_STAR_));
1177	l0->X40_round_STAR__PLUS_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C134_round_STAR__PLUS_))
1178	C134_round_STAR__PLUS_)fiClosMakeFun(e0, (FiProg) (C134_round_STAR__PLUS_));
1179	l0->X41_round_STAR__PLUS_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C135_round_STAR__PLUS_))
1180	C135_round_STAR__PLUS_)fiClosMakeFun(e0, (FiProg) (C135_round_STAR__PLUS_));
1181	l0->X38_round_SLASH_ = fiClosMake(e0, C136_round_SLASH_)fiClosMakeFun(e0, (FiProg) (C136_round_SLASH_));
1182	l0->X39_round_SLASH_ = fiClosMake(e0, C137_round_SLASH_)fiClosMakeFun(e0, (FiProg) (C137_round_SLASH_));
1183	l0->X36_truncate = fiClosMake(e0, C138_truncate)fiClosMakeFun(e0, (FiProg) (C138_truncate));
1184	l0->X37_truncate = fiClosMake(e0, C139_truncate)fiClosMakeFun(e0, (FiProg) (C139_truncate));
1185	l0->X34_fraction = fiClosMake(e0, C140_fraction)fiClosMakeFun(e0, (FiProg) (C140_fraction));
1186	l0->X35_fraction = fiClosMake(e0, C141_fraction)fiClosMakeFun(e0, (FiProg) (C141_fraction));
1187	l0->X16_convert = fiClosMake(e0, C142_convert)fiClosMakeFun(e0, (FiProg) (C142_convert));
1188	l0->X17_convert = fiClosMake(e0, C143_convert)fiClosMakeFun(e0, (FiProg) (C143_convert));
1189	l0->X18_convert = fiClosMake(e0, C144_convert)fiClosMakeFun(e0, (FiProg) (C144_convert));
1190	l0->X19_convert = fiClosMake(e0, C145_convert)fiClosMakeFun(e0, (FiProg) (C145_convert));
1191	l0->X20_convert = fiClosMake(e0, C146_convert)fiClosMakeFun(e0, (FiProg) (C146_convert));
1192	l0->X21_convert = fiClosMake(e0, C147_convert)fiClosMakeFun(e0, (FiProg) (C147_convert));
1193	l0->X22_convert = fiClosMake(e0, C148_convert)fiClosMakeFun(e0, (FiProg) (C148_convert));
1194	l0->X23_convert = fiClosMake(e0, C149_convert)fiClosMakeFun(e0, (FiProg) (C149_convert));
1195	l0->X24_convert = fiClosMake(e0, C150_convert)fiClosMakeFun(e0, (FiProg) (C150_convert));
1196	l0->X25_convert = fiClosMake(e0, C151_convert)fiClosMakeFun(e0, (FiProg) (C151_convert));
1197	l0->X26_convert = fiClosMake(e0, C152_convert)fiClosMakeFun(e0, (FiProg) (C152_convert));
1198	l0->X27_convert = fiClosMake(e0, C153_convert)fiClosMakeFun(e0, (FiProg) (C153_convert));
1199	l0->X28_convert = fiClosMake(e0, C154_convert)fiClosMakeFun(e0, (FiProg) (C154_convert));
1200	l0->X29_convert = fiClosMake(e0, C155_convert)fiClosMakeFun(e0, (FiProg) (C155_convert));
1201	l0->X30_convert = fiClosMake(e0, C156_convert)fiClosMakeFun(e0, (FiProg) (C156_convert));
1202	l0->X31_convert = fiClosMake(e0, C157_convert)fiClosMakeFun(e0, (FiProg) (C157_convert));
1203	l0->X32_convert = fiClosMake(e0, C158_convert)fiClosMakeFun(e0, (FiProg) (C158_convert));
1204	l0->X33_convert = fiClosMake(e0, C159_convert)fiClosMakeFun(e0, (FiProg) (C159_convert));
1205	l0->X12_format = fiClosMake(e0, C160_format)fiClosMakeFun(e0, (FiProg) (C160_format));
1206	l0->X13_format = fiClosMake(e0, C161_format)fiClosMakeFun(e0, (FiProg) (C161_format));
1207	l0->X14_format = fiClosMake(e0, C162_format)fiClosMakeFun(e0, (FiProg) (C162_format));
1208	l0->X15_format = fiClosMake(e0, C163_format)fiClosMakeFun(e0, (FiProg) (C163_format));
1209	l0->X8_scan = fiClosMake(e0, C164_scan)fiClosMakeFun(e0, (FiProg) (C164_scan));
1210	l0->X9_scan = fiClosMake(e0, C165_scan)fiClosMakeFun(e0, (FiProg) (C165_scan));
1211	l0->X10_scan = fiClosMake(e0, C166_scan)fiClosMakeFun(e0, (FiProg) (C166_scan));
1212	l0->X11_scan = fiClosMake(e0, C167_scan)fiClosMakeFun(e0, (FiProg) (C167_scan));
1213	l0->X7_RTE = fiClosMake(e0, C168_RTE)fiClosMakeFun(e0, (FiProg) (C168_RTE));
1214	l0->X6_OS = fiClosMake(e0, C169_OS)fiClosMakeFun(e0, (FiProg) (C169_OS));
1215	l0->X5_halt = fiClosMake(e0, C170_halt)fiClosMakeFun(e0, (FiProg) (C170_halt));
1216	l0->X4_array = fiClosMake(e0, C171_array)fiClosMakeFun(e0, (FiProg) (C171_array));
1217	l0->X3_get = fiClosMake(e0, C173_get)fiClosMakeFun(e0, (FiProg) (C173_get));
1218	l0->X2_set_BANG_ = fiClosMake(e0, C175_set_BANG_)fiClosMakeFun(e0, (FiProg) (C175_set_BANG_));
1219	l0->X0_dispose_BANG_ = fiClosMake(e0, C177_dispose_BANG_)fiClosMakeFun(e0, (FiProg) (C177_dispose_BANG_));
1220	l0->X1_dispose_BANG_ = fiClosMake(e0, C178_dispose_BANG_)fiClosMakeFun(e0, (FiProg) (C178_dispose_BANG_));
1221	l0->X199_Bool = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C179_addLevel0))))
1222	fiClosMake(e0, C179_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C179_addLevel0))));
1223	l0->X198_XByte = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C181_addLevel0))))
1224	fiClosMake(e0, C181_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C181_addLevel0))));
1225	l0->X197_HInt = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C183_addLevel0))))
1226	fiClosMake(e0, C183_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C183_addLevel0))));
1227	l0->X196_SInt = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C185_addLevel0))))
1228	fiClosMake(e0, C185_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C185_addLevel0))));
1229	l0->X195_BInt = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C187_addLevel0))))
1230	fiClosMake(e0, C187_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C187_addLevel0))));
1231	l0->X194_Char = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C189_addLevel0))))
1232	fiClosMake(e0, C189_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C189_addLevel0))));
1233	l0->X193_SFlo = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C191_addLevel0))))
1234	fiClosMake(e0, C191_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C191_addLevel0))));
1235	l0->X192_DFlo = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C193_addLevel0))))
1236	fiClosMake(e0, C193_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C193_addLevel0))));
1237	l0->X191_Nil = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C195_addLevel0))))
1238	fiClosMake(e0, C195_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C195_addLevel0))));
1239	l0->X190_Arr = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C197_addLevel0))))
1240	fiClosMake(e0, C197_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C197_addLevel0))));
1241	l0->X189_Rec = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C199_addLevel0))))
1242	fiClosMake(e0, C199_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C199_addLevel0))));
1243	l0->X188_Ptr = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C201_addLevel0))))
1244	fiClosMake(e0, C201_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C201_addLevel0))));
1245	l0->X187_Word = fiCCall1(FiWord, (pG_6L1ZC_domainMake),((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C203_addLevel0))))
1246	fiClosMake(e0, C203_addLevel0))((((FiWord ()())((pG_6L1ZC_domainMake))->prog->fun)) (((pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) ( C203_addLevel0))));
1247	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1248	T3->X0_size = 218L;
1249	T3->X1_nsize = 218L;
1250	T3->X2_values = (FiWord) T0;
1251	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1252	T4->X0_size = 218L;
1253	T4->X1_nsize = 218L;
1254	T4->X2_values = (FiWord) T1;
1255	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
1256	T5->X0_size = 218L;
1257	T5->X1_nsize = 218L;
1258	T5->X2_values = (FiWord) T2;
1259	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
1260	T0[0L] = (FiWord) 200102L;
1261	T1[0L] = (FiWord) 447753921L;
1262	T2[0L] = (FiWord) l0->X166__EQ_;
1263	T0[1L] = (FiWord) 200102L;
1264	T1[1L] = (FiWord) 1027736697L;
1265	T2[1L] = (FiWord) l0->X167__EQ_;
1266	T0[2L] = (FiWord) 200102L;
1267	T1[2L] = (FiWord) 132024466L;
1268	T2[2L] = (FiWord) l0->X168__EQ_;
1269	T0[3L] = (FiWord) 200102L;
1270	T1[3L] = (FiWord) 878610119L;
1271	T2[3L] = (FiWord) l0->X169__EQ_;
1272	T0[4L] = (FiWord) 200102L;
1273	T1[4L] = (FiWord) 641424861L;
1274	T2[4L] = (FiWord) l0->X170__EQ_;
1275	T0[5L] = (FiWord) 200102L;
1276	T1[5L] = (FiWord) 134566460L;
1277	T2[5L] = (FiWord) l0->X171__EQ_;
1278	T0[6L] = (FiWord) 200102L;
1279	T1[6L] = (FiWord) 880643471L;
1280	T2[6L] = (FiWord) l0->X172__EQ_;
1281	T0[7L] = (FiWord) 51509389L;
1282	T1[7L] = (FiWord) 447753921L;
1283	T2[7L] = (FiWord) l0->X159__TILDE__EQ_;
1284	T0[8L] = (FiWord) 51509389L;
1285	T1[8L] = (FiWord) 1027736697L;
1286	T2[8L] = (FiWord) l0->X160__TILDE__EQ_;
1287	T0[9L] = (FiWord) 51509389L;
1288	T1[9L] = (FiWord) 132024466L;
1289	T2[9L] = (FiWord) l0->X161__TILDE__EQ_;
1290	T0[10L] = (FiWord) 51509389L;
1291	T1[10L] = (FiWord) 878610119L;
1292	T2[10L] = (FiWord) l0->X162__TILDE__EQ_;
1293	T0[11L] = (FiWord) 51509389L;
1294	T1[11L] = (FiWord) 641424861L;
1295	T2[11L] = (FiWord) l0->X163__TILDE__EQ_;
1296	T0[12L] = (FiWord) 51509389L;
1297	T1[12L] = (FiWord) 134566460L;
1298	T2[12L] = (FiWord) l0->X164__TILDE__EQ_;
1299	T0[13L] = (FiWord) 51509389L;
1300	T1[13L] = (FiWord) 880643471L;
1301	T2[13L] = (FiWord) l0->X165__TILDE__EQ_;
1302	T0[14L] = (FiWord) 200101L;
1303	T1[14L] = (FiWord) 1027736697L;
1304	T2[14L] = (FiWord) l0->X154__LT_;
1305	T0[15L] = (FiWord) 200101L;
1306	T1[15L] = (FiWord) 132024466L;
1307	T2[15L] = (FiWord) l0->X155__LT_;
1308	T0[16L] = (FiWord) 200101L;
1309	T1[16L] = (FiWord) 878610119L;
1310	T2[16L] = (FiWord) l0->X156__LT_;
1311	T0[17L] = (FiWord) 200101L;
1312	T1[17L] = (FiWord) 641424861L;
1313	T2[17L] = (FiWord) l0->X157__LT_;
1314	T0[18L] = (FiWord) 200101L;
1315	T1[18L] = (FiWord) 134566460L;
1316	T2[18L] = (FiWord) l0->X158__LT_;
1317	T0[19L] = (FiWord) 51492427L;
1318	T1[19L] = (FiWord) 1027736697L;
1319	T2[19L] = (FiWord) l0->X149__LT__EQ_;
1320	T0[20L] = (FiWord) 51492427L;
1321	T1[20L] = (FiWord) 132024466L;
1322	T2[20L] = (FiWord) l0->X150__LT__EQ_;
1323	T0[21L] = (FiWord) 51492427L;
1324	T1[21L] = (FiWord) 878610119L;
1325	T2[21L] = (FiWord) l0->X151__LT__EQ_;
1326	T0[22L] = (FiWord) 51492427L;
1327	T1[22L] = (FiWord) 641424861L;
1328	T2[22L] = (FiWord) l0->X152__LT__EQ_;
1329	T0[23L] = (FiWord) 51492427L;
1330	T1[23L] = (FiWord) 134566460L;
1331	T2[23L] = (FiWord) l0->X153__LT__EQ_;
1332	T0[24L] = (FiWord) 206475020L;
1333	T1[24L] = (FiWord) 37749873L;
1334	T2[24L] = (FiWord) l0->X145_zero_QMARK_;
1335	T0[25L] = (FiWord) 206475020L;
1336	T1[25L] = (FiWord) 356747133L;
1337	T2[25L] = (FiWord) l0->X146_zero_QMARK_;
1338	T0[26L] = (FiWord) 206475020L;
1339	T1[26L] = (FiWord) 638633371L;
1340	T2[26L] = (FiWord) l0->X147_zero_QMARK_;
1341	T0[27L] = (FiWord) 206475020L;
1342	T1[27L] = (FiWord) 31509735L;
1343	T2[27L] = (FiWord) l0->X148_zero_QMARK_;
1344	T0[28L] = (FiWord) 733146723L;
1345	T1[28L] = (FiWord) 37749873L;
1346	T2[28L] = (FiWord) l0->X141_positive_QMARK_;
1347	T0[29L] = (FiWord) 733146723L;
1348	T1[29L] = (FiWord) 356747133L;
1349	T2[29L] = (FiWord) l0->X142_positive_QMARK_;
1350	T0[30L] = (FiWord) 733146723L;
1351	T1[30L] = (FiWord) 638633371L;
1352	T2[30L] = (FiWord) l0->X143_positive_QMARK_;
1353	T0[31L] = (FiWord) 733146723L;
1354	T1[31L] = (FiWord) 31509735L;
1355	T2[31L] = (FiWord) l0->X144_positive_QMARK_;
1356	T0[32L] = (FiWord) 424301635L;
1357	T1[32L] = (FiWord) 37749873L;
1358	T2[32L] = (FiWord) l0->X137_negative_QMARK_;
1359	T0[33L] = (FiWord) 424301635L;
1360	T1[33L] = (FiWord) 356747133L;
1361	T2[33L] = (FiWord) l0->X138_negative_QMARK_;
1362	T0[34L] = (FiWord) 424301635L;
1363	T1[34L] = (FiWord) 638633371L;
1364	T2[34L] = (FiWord) l0->X139_negative_QMARK_;
1365	T0[35L] = (FiWord) 424301635L;
1366	T1[35L] = (FiWord) 31509735L;
1367	T2[35L] = (FiWord) l0->X140_negative_QMARK_;
1368	T0[36L] = (FiWord) 498514682L;
1369	T1[36L] = (FiWord) 356747133L;
1370	T2[36L] = (FiWord) l0->X135_even_QMARK_;
1371	T0[37L] = (FiWord) 498514682L;
1372	T1[37L] = (FiWord) 37749873L;
1373	T2[37L] = (FiWord) l0->X136_even_QMARK_;
1374	T0[38L] = (FiWord) 665072666L;
1375	T1[38L] = (FiWord) 356747133L;
1376	T2[38L] = (FiWord) l0->X133_odd_QMARK_;
1377	T0[39L] = (FiWord) 665072666L;
1378	T1[39L] = (FiWord) 37749873L;
1379	T2[39L] = (FiWord) l0->X134_odd_QMARK_;
1380	T0[40L] = (FiWord) 362464416L;
1381	T1[40L] = (FiWord) 356747133L;
1382	T2[40L] = (FiWord) l0->X132_single_QMARK_;
1383	T0[41L] = (FiWord) 783695654L;
1384	T1[41L] = (FiWord) 338802700L;
1385	T2[41L] = (FiWord) l0->X131_nil_QMARK_;
1386	T0[42L] = (FiWord) 814719174L;
1387	T1[42L] = (FiWord) 406469397L;
1388	T2[42L] = (FiWord) l0->X130_digit_QMARK_;
1389	T0[43L] = (FiWord) 158725806L;
1390	T1[43L] = (FiWord) 406469397L;
1391	T2[43L] = (FiWord) l0->X129_letter_QMARK_;
1392	T0[44L] = (FiWord) 200167L;
1393	T1[44L] = (FiWord) 893055893L;
1394	T2[44L] = (FiWord) l0->X127__TILDE_;
1395	T0[45L] = (FiWord) 200167L;
1396	T1[45L] = (FiWord) 477777056L;
1397	T2[45L] = (FiWord) l0->X128__TILDE_;
1398	T0[46L] = (FiWord) 51487581L;
1399	T1[46L] = (FiWord) 447753921L;
1400	T2[46L] = (FiWord) l0->X125__SLASH__BSLSH_;
1401	T0[47L] = (FiWord) 51487581L;
1402	T1[47L] = (FiWord) 572051648L;
1403	T2[47L] = (FiWord) l0->X126__SLASH__BSLSH_;
1404	T0[48L] = (FiWord) 51500637L;
1405	T1[48L] = (FiWord) 447753921L;
1406	T2[48L] = (FiWord) l0->X123__BSLSH__SLASH_;
1407	T0[49L] = (FiWord) 51500637L;
1408	T1[49L] = (FiWord) 572051648L;
1409	T2[49L] = (FiWord) l0->X124__BSLSH__SLASH_;
1410	T0[50L] = (FiWord) 317608340L;
1411	T1[50L] = (FiWord) 572051648L;
1412	T2[50L] = (FiWord) l0->X122_xor;
1413	T0[51L] = (FiWord) 200084L;
1414	T1[51L] = (FiWord) 572051648L;
1415	T2[51L] = (FiWord) l0->X118__PLUS_;
1416	T0[52L] = (FiWord) 200084L;
1417	T1[52L] = (FiWord) 25170195L;
1418	T2[52L] = (FiWord) l0->X119__PLUS_;
1419	T0[53L] = (FiWord) 200084L;
1420	T1[53L] = (FiWord) 473936398L;
1421	T2[53L] = (FiWord) l0->X120__PLUS_;
1422	T0[54L] = (FiWord) 200084L;
1423	T1[54L] = (FiWord) 366194310L;
1424	T2[54L] = (FiWord) l0->X121__PLUS_;
1425	T0[55L] = (FiWord) 200086L;
1426	T1[55L] = (FiWord) 477777056L;
1427	T2[55L] = (FiWord) l0->X110__MINUS_;
1428	T0[56L] = (FiWord) 200086L;
1429	T1[56L] = (FiWord) 577049033L;
1430	T2[56L] = (FiWord) l0->X111__MINUS_;
1431	T0[57L] = (FiWord) 200086L;
1432	T1[57L] = (FiWord) 471144908L;
1433	T2[57L] = (FiWord) l0->X112__MINUS_;
1434	T0[58L] = (FiWord) 200086L;
1435	T1[58L] = (FiWord) 263137585L;
1436	T2[58L] = (FiWord) l0->X113__MINUS_;
1437	T0[59L] = (FiWord) 200086L;
1438	T1[59L] = (FiWord) 572051648L;
1439	T2[59L] = (FiWord) l0->X114__MINUS_;
1440	T0[60L] = (FiWord) 200086L;
1441	T1[60L] = (FiWord) 25170195L;
1442	T2[60L] = (FiWord) l0->X115__MINUS_;
1443	T0[61L] = (FiWord) 200086L;
1444	T1[61L] = (FiWord) 473936398L;
1445	T2[61L] = (FiWord) l0->X116__MINUS_;
1446	T0[62L] = (FiWord) 200086L;
1447	T1[62L] = (FiWord) 366194310L;
1448	T2[62L] = (FiWord) l0->X117__MINUS_;
1449	T0[63L] = (FiWord) 200083L;
1450	T1[63L] = (FiWord) 572051648L;
1451	T2[63L] = (FiWord) l0->X106__STAR_;
1452	T0[64L] = (FiWord) 200083L;
1453	T1[64L] = (FiWord) 25170195L;
1454	T2[64L] = (FiWord) l0->X107__STAR_;
1455	T0[65L] = (FiWord) 200083L;
1456	T1[65L] = (FiWord) 473936398L;
1457	T2[65L] = (FiWord) l0->X108__STAR_;
1458	T0[66L] = (FiWord) 200083L;
1459	T1[66L] = (FiWord) 366194310L;
1460	T2[66L] = (FiWord) l0->X109__STAR_;
1461	T0[67L] = (FiWord) 51489831L;
1462	T1[67L] = (FiWord) 86957093L;
1463	T2[67L] = (FiWord) l0->X102__STAR__PLUS_;
1464	T0[68L] = (FiWord) 51489831L;
1465	T1[68L] = (FiWord) 953602404L;
1466	T2[68L] = (FiWord) l0->X103__STAR__PLUS_;
1467	T0[69L] = (FiWord) 51489831L;
1468	T1[69L] = (FiWord) 625711815L;
1469	T2[69L] = (FiWord) l0->X104__STAR__PLUS_;
1470	T0[70L] = (FiWord) 51489831L;
1471	T1[70L] = (FiWord) 1049720470L;
1472	T2[70L] = (FiWord) l0->X105__STAR__PLUS_;
1473	T0[71L] = (FiWord) 200088L;
1474	T1[71L] = (FiWord) 473936398L;
1475	T2[71L] = (FiWord) l0->X100__SLASH_;
1476	T0[72L] = (FiWord) 200088L;
1477	T1[72L] = (FiWord) 366194310L;
1478	T2[72L] = (FiWord) l0->X101__SLASH_;
1479	T0[73L] = (FiWord) 200135L;
1480	T1[73L] = (FiWord) 790615205L;
1481	T2[73L] = (FiWord) l0->X98__HAT_;
1482	T0[74L] = (FiWord) 200135L;
1483	T1[74L] = (FiWord) 25170195L;
1484	T2[74L] = (FiWord) l0->X99__HAT_;
1485	T0[75L] = (FiWord) 699481154L;
1486	T1[75L] = (FiWord) 953602404L;
1487	T2[75L] = (FiWord) l0->X97_mod_HAT_;
1488	T0[76L] = (FiWord) 437828088L;
1489	T1[76L] = (FiWord) 477777056L;
1490	T2[76L] = (FiWord) l0->X95_length;
1491	T0[77L] = (FiWord) 437828088L;
1492	T1[77L] = (FiWord) 796774315L;
1493	T2[77L] = (FiWord) l0->X96_length;
1494	T0[78L] = (FiWord) 315119482L;
1495	T1[78L] = (FiWord) 132024466L;
1496	T2[78L] = (FiWord) l0->X93_bit;
1497	T0[79L] = (FiWord) 315119482L;
1498	T1[79L] = (FiWord) 570313305L;
1499	T2[79L] = (FiWord) l0->X94_bit;
1500	T0[80L] = (FiWord) 9272514L;
1501	T1[80L] = (FiWord) 572051648L;
1502	T2[80L] = (FiWord) l0->X91_shiftUp;
1503	T0[81L] = (FiWord) 9272514L;
1504	T1[81L] = (FiWord) 790615205L;
1505	T2[81L] = (FiWord) l0->X92_shiftUp;
1506	T0[82L] = (FiWord) 772508007L;
1507	T1[82L] = (FiWord) 572051648L;
1508	T2[82L] = (FiWord) l0->X89_shiftDown;
1509	T0[83L] = (FiWord) 772508007L;
1510	T1[83L] = (FiWord) 790615205L;
1511	T2[83L] = (FiWord) l0->X90_shiftDown;
1512	T0[84L] = (FiWord) 782953315L;
1513	T1[84L] = (FiWord) 477777056L;
1514	T2[84L] = (FiWord) l0->X85_next;
1515	T0[85L] = (FiWord) 782953315L;
1516	T1[85L] = (FiWord) 577049033L;
1517	T2[85L] = (FiWord) l0->X86_next;
1518	T0[86L] = (FiWord) 613807201L;
1519	T1[86L] = (FiWord) 477777056L;
1520	T2[86L] = (FiWord) l0->X81_prev;
1521	T0[87L] = (FiWord) 613807201L;
1522	T1[87L] = (FiWord) 577049033L;
1523	T2[87L] = (FiWord) l0->X82_prev;
1524	T0[88L] = (FiWord) 318204816L;
1525	T1[88L] = (FiWord) 572051648L;
1526	T2[88L] = (FiWord) l0->X79_quo;
1527	T0[89L] = (FiWord) 318204816L;
1528	T1[89L] = (FiWord) 25170195L;
1529	T2[89L] = (FiWord) l0->X80_quo;
1530	T0[90L] = (FiWord) 318266239L;
1531	T1[90L] = (FiWord) 572051648L;
1532	T2[90L] = (FiWord) l0->X77_rem;
1533	T0[91L] = (FiWord) 318266239L;
1534	T1[91L] = (FiWord) 25170195L;
1535	T2[91L] = (FiWord) l0->X78_rem;
1536	T0[92L] = (FiWord) 318461307L;
1537	T1[92L] = (FiWord) 572051648L;
1538	T2[92L] = (FiWord) l0->X75_mod;
1539	T0[93L] = (FiWord) 318461307L;
1540	T1[93L] = (FiWord) 25170195L;
1541	T2[93L] = (FiWord) l0->X76_mod;
1542	T0[94L] = (FiWord) 42114539L;
1543	T1[94L] = (FiWord) 140643765L;
1544	T2[94L] = (FiWord) l0->X73_divide;
1545	T0[95L] = (FiWord) 42114539L;
1546	T1[95L] = (FiWord) 1024043464L;
1547	T2[95L] = (FiWord) l0->X74_divide;
1548	T0[96L] = (FiWord) 318604649L;
1549	T1[96L] = (FiWord) 572051648L;
1550	T2[96L] = (FiWord) l0->X71_gcd;
1551	T0[97L] = (FiWord) 318604649L;
1552	T1[97L] = (FiWord) 25170195L;
1553	T2[97L] = (FiWord) l0->X72_gcd;
1554	T0[98L] = (FiWord) 699481103L;
1555	T1[98L] = (FiWord) 86957093L;
1556	T2[98L] = (FiWord) l0->X70_mod_PLUS_;
1557	T0[99L] = (FiWord) 699481105L;
1558	T1[99L] = (FiWord) 86957093L;
1559	T2[99L] = (FiWord) l0->X69_mod_MINUS_;
1560	T0[100L] = (FiWord) 699481102L;
1561	T1[100L] = (FiWord) 86957093L;
1562	T2[100L] = (FiWord) l0->X68_mod_STAR_;
1563	T0[101L] = (FiWord) 979527830L;
1564	T1[101L] = (FiWord) 371144197L;
1565	T2[101L] = (FiWord) l0->X67_mod_STAR_inv;
1566	T0[102L] = (FiWord) 609780612L;
1567	T1[102L] = (FiWord) 401156423L;
1568	T2[102L] = (FiWord) l0->X66_double_STAR_;
1569	T0[103L] = (FiWord) 763681468L;
1570	T1[103L] = (FiWord) 949315827L;
1571	T2[103L] = (FiWord) l0->X65_doubleDivide;
1572	T0[104L] = (FiWord) 214377384L;
1573	T1[104L] = (FiWord) 852517176L;
1574	T2[104L] = (FiWord) l0->X64_plusStep;
1575	T0[105L] = (FiWord) 274372719L;
1576	T1[105L] = (FiWord) 76907010L;
1577	T2[105L] = (FiWord) l0->X63_timesStep;
1578	T0[106L] = (FiWord) 983329337L;
1579	T1[106L] = (FiWord) 820219134L;
1580	T2[106L] = (FiWord) l0->X62_upper;
1581	T0[107L] = (FiWord) 239585078L;
1582	T1[107L] = (FiWord) 820219134L;
1583	T2[107L] = (FiWord) l0->X61_lower;
1584	T0[108L] = (FiWord) 864294210L;
1585	T1[108L] = (FiWord) 451499610L;
1586	T2[108L] = (FiWord) l0->X60_char;
1587	T0[109L] = (FiWord) 318070400L;
1588	T1[109L] = (FiWord) 846496580L;
1589	T2[109L] = (FiWord) l0->X59_ord;
1590	T0[110L] = (FiWord) 888430996L;
1591	T1[110L] = (FiWord) 307358141L;
1592	T2[110L] = (FiWord) l0->X57_assemble;
1593	T0[111L] = (FiWord) 888430996L;
1594	T1[111L] = (FiWord) 256525718L;
1595	T2[111L] = (FiWord) l0->X58_assemble;
1596	T0[112L] = (FiWord) 790889321L;
1597	T1[112L] = (FiWord) 800982362L;
1598	T2[112L] = (FiWord) l0->X55_dissemble;
1599	T0[113L] = (FiWord) 790889321L;
1600	T1[113L] = (FiWord) 520353863L;
1601	T2[113L] = (FiWord) l0->X56_dissemble;
1602	T0[114L] = (FiWord) 782953315L;
1603	T1[114L] = (FiWord) 471144908L;
1604	T2[114L] = (FiWord) l0->X87_next;
1605	T0[115L] = (FiWord) 782953315L;
1606	T1[115L] = (FiWord) 263137585L;
1607	T2[115L] = (FiWord) l0->X88_next;
1608	T0[116L] = (FiWord) 613807201L;
1609	T1[116L] = (FiWord) 471144908L;
1610	T2[116L] = (FiWord) l0->X83_prev;
1611	T0[117L] = (FiWord) 613807201L;
1612	T1[117L] = (FiWord) 263137585L;
1613	T2[117L] = (FiWord) l0->X84_prev;
1614	T0[118L] = (FiWord) 432284431L;
1615	T1[118L] = (FiWord) 499763642L;
1616	T2[118L] = (FiWord) l0->X54_Bzero;
1617	T0[119L] = (FiWord) 883237500L;
1618	T1[119L] = (FiWord) 499763642L;
1619	T2[119L] = (FiWord) l0->X53_Bnearest;
1620	T0[120L] = (FiWord) 313019234L;
1621	T1[120L] = (FiWord) 499763642L;
1622	T2[120L] = (FiWord) l0->X52_Bup;
1623	T0[121L] = (FiWord) 267433479L;
1624	T1[121L] = (FiWord) 499763642L;
1625	T2[121L] = (FiWord) l0->X51_Bdown;
1626	T0[122L] = (FiWord) 980062510L;
1627	T1[122L] = (FiWord) 499763642L;
1628	T2[122L] = (FiWord) l0->X50_Bany;
1629	T0[123L] = (FiWord) 195459125L;
1630	T1[123L] = (FiWord) 260843263L;
1631	T2[123L] = (FiWord) l0->X48_round;
1632	T0[124L] = (FiWord) 195459125L;
1633	T1[124L] = (FiWord) 36165764L;
1634	T2[124L] = (FiWord) l0->X49_round;
1635	T0[125L] = (FiWord) 769743561L;
1636	T1[125L] = (FiWord) 117695403L;
1637	T2[125L] = (FiWord) l0->X46_round_PLUS_;
1638	T0[126L] = (FiWord) 769743561L;
1639	T1[126L] = (FiWord) 741718320L;
1640	T2[126L] = (FiWord) l0->X47_round_PLUS_;
1641	T0[127L] = (FiWord) 769743563L;
1642	T1[127L] = (FiWord) 117695403L;
1643	T2[127L] = (FiWord) l0->X44_round_MINUS_;
1644	T0[128L] = (FiWord) 769743563L;
1645	T1[128L] = (FiWord) 741718320L;
1646	T2[128L] = (FiWord) l0->X45_round_MINUS_;
1647	T0[129L] = (FiWord) 769743560L;
1648	T1[129L] = (FiWord) 117695403L;
1649	T2[129L] = (FiWord) l0->X42_round_STAR_;
1650	T0[130L] = (FiWord) 769743560L;
1651	T1[130L] = (FiWord) 741718320L;
1652	T2[130L] = (FiWord) l0->X43_round_STAR_;
1653	T0[131L] = (FiWord) 213819484L;
1654	T1[131L] = (FiWord) 857031135L;
1655	T2[131L] = (FiWord) l0->X40_round_STAR__PLUS_;
1656	T0[132L] = (FiWord) 213819484L;
1657	T1[132L] = (FiWord) 48978832L;
1658	T2[132L] = (FiWord) l0->X41_round_STAR__PLUS_;
1659	T0[133L] = (FiWord) 769743565L;
1660	T1[133L] = (FiWord) 117695403L;
1661	T2[133L] = (FiWord) l0->X38_round_SLASH_;
1662	T0[134L] = (FiWord) 769743565L;
1663	T1[134L] = (FiWord) 741718320L;
1664	T2[134L] = (FiWord) l0->X39_round_SLASH_;
1665	T0[135L] = (FiWord) 317742766L;
1666	T1[135L] = (FiWord) 858935271L;
1667	T2[135L] = (FiWord) l0->X36_truncate;
1668	T0[136L] = (FiWord) 317742766L;
1669	T1[136L] = (FiWord) 251811635L;
1670	T2[136L] = (FiWord) l0->X37_truncate;
1671	T0[137L] = (FiWord) 244914846L;
1672	T1[137L] = (FiWord) 471144908L;
1673	T2[137L] = (FiWord) l0->X34_fraction;
1674	T0[138L] = (FiWord) 244914846L;
1675	T1[138L] = (FiWord) 263137585L;
1676	T2[138L] = (FiWord) l0->X35_fraction;
1677	T0[139L] = (FiWord) 1068141280L;
1678	T1[139L] = (FiWord) 870261221L;
1679	T2[139L] = (FiWord) l0->X16_convert;
1680	T0[140L] = (FiWord) 1068141280L;
1681	T1[140L] = (FiWord) 937763096L;
1682	T2[140L] = (FiWord) l0->X17_convert;
1683	T0[141L] = (FiWord) 1068141280L;
1684	T1[141L] = (FiWord) 106918392L;
1685	T2[141L] = (FiWord) l0->X18_convert;
1686	T0[142L] = (FiWord) 1068141280L;
1687	T1[142L] = (FiWord) 581628749L;
1688	T2[142L] = (FiWord) l0->X19_convert;
1689	T0[143L] = (FiWord) 1068141280L;
1690	T1[143L] = (FiWord) 557215170L;
1691	T2[143L] = (FiWord) l0->X20_convert;
1692	T0[144L] = (FiWord) 1068141280L;
1693	T1[144L] = (FiWord) 475709427L;
1694	T2[144L] = (FiWord) l0->X21_convert;
1695	T0[145L] = (FiWord) 1068141280L;
1696	T1[145L] = (FiWord) 258051773L;
1697	T2[145L] = (FiWord) l0->X22_convert;
1698	T0[146L] = (FiWord) 1068141280L;
1699	T1[146L] = (FiWord) 796774315L;
1700	T2[146L] = (FiWord) l0->X23_convert;
1701	T0[147L] = (FiWord) 1068141280L;
1702	T1[147L] = (FiWord) 944003234L;
1703	T2[147L] = (FiWord) l0->X24_convert;
1704	T0[148L] = (FiWord) 1068141280L;
1705	T1[148L] = (FiWord) 269377723L;
1706	T2[148L] = (FiWord) l0->X25_convert;
1707	T0[149L] = (FiWord) 1068141280L;
1708	T1[149L] = (FiWord) 189258670L;
1709	T2[149L] = (FiWord) l0->X26_convert;
1710	T0[150L] = (FiWord) 1068141280L;
1711	T1[150L] = (FiWord) 588374983L;
1712	T2[150L] = (FiWord) l0->X27_convert;
1713	T0[151L] = (FiWord) 1068141280L;
1714	T1[151L] = (FiWord) 778829883L;
1715	T2[151L] = (FiWord) l0->X28_convert;
1716	T0[152L] = (FiWord) 1068141280L;
1717	T1[152L] = (FiWord) 213035192L;
1718	T2[152L] = (FiWord) l0->X29_convert;
1719	T0[153L] = (FiWord) 1068141280L;
1720	T1[153L] = (FiWord) 375081925L;
1721	T2[153L] = (FiWord) l0->X30_convert;
1722	T0[154L] = (FiWord) 1068141280L;
1723	T1[154L] = (FiWord) 774198239L;
1724	T2[154L] = (FiWord) l0->X31_convert;
1725	T0[155L] = (FiWord) 1068141280L;
1726	T1[155L] = (FiWord) 982597571L;
1727	T2[155L] = (FiWord) l0->X32_convert;
1728	T0[156L] = (FiWord) 1068141280L;
1729	T1[156L] = (FiWord) 762872288L;
1730	T2[156L] = (FiWord) l0->X33_convert;
1731	T0[157L] = (FiWord) 101877503L;
1732	T1[157L] = (FiWord) 801977378L;
1733	T2[157L] = (FiWord) l0->X12_format;
1734	T0[158L] = (FiWord) 101877503L;
1735	T1[158L] = (FiWord) 1059595679L;
1736	T2[158L] = (FiWord) l0->X13_format;
1737	T0[159L] = (FiWord) 101877503L;
1738	T1[159L] = (FiWord) 375805973L;
1739	T2[159L] = (FiWord) l0->X14_format;
1740	T0[160L] = (FiWord) 101877503L;
1741	T1[160L] = (FiWord) 342647693L;
1742	T2[160L] = (FiWord) l0->X15_format;
1743	T0[161L] = (FiWord) 56100169L;
1744	T1[161L] = (FiWord) 478059647L;
1745	T2[161L] = (FiWord) l0->X8_scan;
1746	T0[162L] = (FiWord) 56100169L;
1747	T1[162L] = (FiWord) 103131861L;
1748	T2[162L] = (FiWord) l0->X9_scan;
1749	T0[163L] = (FiWord) 56100169L;
1750	T1[163L] = (FiWord) 632642109L;
1751	T2[163L] = (FiWord) l0->X10_scan;
1752	T0[164L] = (FiWord) 56100169L;
1753	T1[164L] = (FiWord) 799893662L;
1754	T2[164L] = (FiWord) l0->X11_scan;
1755	T0[165L] = (FiWord) 316197414L;
1756	T1[165L] = (FiWord) 499763642L;
1757	T2[165L] = (FiWord) l0->X7_RTE;
1758	T0[166L] = (FiWord) 51495796L;
1759	T1[166L] = (FiWord) 499763642L;
1760	T2[166L] = (FiWord) l0->X6_OS;
1761	T0[167L] = (FiWord) 746855757L;
1762	T1[167L] = (FiWord) 467734384L;
1763	T2[167L] = (FiWord) l0->X5_halt;
1764	T0[168L] = (FiWord) 682906668L;
1765	T1[168L] = (FiWord) 467741199L;
1766	T2[168L] = (FiWord) l0->X4_array;
1767	T0[169L] = (FiWord) 318604155L;
1768	T1[169L] = (FiWord) 772281275L;
1769	T2[169L] = (FiWord) l0->X3_get;
1770	T0[170L] = (FiWord) 55906833L;
1771	T1[170L] = (FiWord) 379547683L;
1772	T2[170L] = (FiWord) l0->X2_set_BANG_;
1773	T0[171L] = (FiWord) 614579040L;
1774	T1[171L] = (FiWord) 603033945L;
1775	T2[171L] = (FiWord) l0->X0_dispose_BANG_;
1776	T0[172L] = (FiWord) 614579040L;
1777	T1[172L] = (FiWord) 99073849L;
1778	T2[172L] = (FiWord) l0->X1_dispose_BANG_;
1779	T0[173L] = (FiWord) 988818480L;
1780	T1[173L] = (FiWord) 547382598L;
1781	T2[173L] = l0->X199_Bool;
1782	T0[174L] = (FiWord) 295223545L;
1783	T1[174L] = (FiWord) 547382598L;
1784	T2[174L] = l0->X198_XByte;
1785	T0[175L] = (FiWord) 208444183L;
1786	T1[175L] = (FiWord) 547382598L;
1787	T2[175L] = l0->X197_HInt;
1788	T0[176L] = (FiWord) 594651170L;
1789	T1[176L] = (FiWord) 547382598L;
1790	T2[176L] = l0->X196_SInt;
1791	T0[177L] = (FiWord) 979554577L;
1792	T1[177L] = (FiWord) 547382598L;
1793	T2[177L] = l0->X195_BInt;
1794	T0[178L] = (FiWord) 321172770L;
1795	T1[178L] = (FiWord) 547382598L;
1796	T2[178L] = l0->X194_Char;
1797	T0[179L] = (FiWord) 592883736L;
1798	T1[179L] = (FiWord) 547382598L;
1799	T2[179L] = l0->X193_SFlo;
1800	T0[180L] = (FiWord) 298204937L;
1801	T1[180L] = (FiWord) 547382598L;
1802	T2[180L] = l0->X192_DFlo;
1803	T0[181L] = (FiWord) 316428126L;
1804	T1[181L] = (FiWord) 547382598L;
1805	T2[181L] = l0->X191_Nil;
1806	T0[182L] = (FiWord) 312950368L;
1807	T1[182L] = (FiWord) 547382598L;
1808	T2[182L] = l0->X190_Arr;
1809	T0[183L] = (FiWord) 316169045L;
1810	T1[183L] = (FiWord) 547382598L;
1811	T2[183L] = l0->X189_Rec;
1812	T0[184L] = (FiWord) 316039793L;
1813	T1[184L] = (FiWord) 547382598L;
1814	T2[184L] = l0->X188_Ptr;
1815	T0[185L] = (FiWord) 530526272L;
1816	T1[185L] = (FiWord) 547382598L;
1817	T2[185L] = l0->X187_Word;
1818	T0[186L] = (FiWord) 13900568L;
1819	T1[186L] = (FiWord) 988818480L;
1820	T2[186L] = (FiWord) 0L;
1821	T0[187L] = (FiWord) 11137124L;
1822	T1[187L] = (FiWord) 988818480L;
1823	T2[187L] = (FiWord) 1L;
1824	T0[188L] = (FiWord) 800877593L;
1825	T1[188L] = (FiWord) 321172770L;
1826	T2[188L] = (FiWord) 32L;
1827	T0[189L] = (FiWord) 493486801L;
1828	T1[189L] = (FiWord) 321172770L;
1829	T2[189L] = (FiWord) 10L;
1830	T0[190L] = (FiWord) 315787122L;
1831	T1[190L] = (FiWord) 321172770L;
1832	T2[190L] = (FiWord) 9L;
1833	T0[191L] = (FiWord) 318525310L;
1834	T1[191L] = (FiWord) 316039793L;
1835	T2[191L] = (FiWord) fiNil((Ptr) 0);
1836	T0[192L] = (FiWord) 200089L;
1837	T1[192L] = (FiWord) 295223545L;
1838	T2[192L] = (FiWord) 0L;
1839	T0[193L] = (FiWord) 200089L;
1840	T1[193L] = (FiWord) 594651170L;
1841	T2[193L] = (FiWord) 0L;
1842	T0[194L] = (FiWord) 200089L;
1843	T1[194L] = (FiWord) 208444183L;
1844	T2[194L] = (FiWord) 0L;
1845	T0[195L] = (FiWord) 200089L;
1846	T1[195L] = (FiWord) 979554577L;
1847	T2[195L] = (FiWord) GB0;
1848	T0[196L] = (FiWord) 200089L;
1849	T1[196L] = (FiWord) 592883736L;
1850	fiWORD_FR_SFLO(T2[196L], 0.0000000000000000){ FiSFlo fi_tmp = (0.0000000000000000); (T2[196L]) = (FiWord )(&fi_tmp); };
1851	T0[197L] = (FiWord) 200089L;
1852	T1[197L] = (FiWord) 298204937L;
1853	T2[197L] = (FiWord) fiBoxDFlo(0.0000000000000000);
1854	T0[198L] = (FiWord) 200090L;
1855	T1[198L] = (FiWord) 295223545L;
1856	T2[198L] = (FiWord) 1L;
1857	T0[199L] = (FiWord) 200090L;
1858	T1[199L] = (FiWord) 979554577L;
1859	T2[199L] = (FiWord) GB1;
1860	T0[200L] = (FiWord) 200090L;
1861	T1[200L] = (FiWord) 298204937L;
1862	T2[200L] = (FiWord) fiBoxDFlo(1.0000000000000000);
1863	T0[201L] = (FiWord) 200090L;
1864	T1[201L] = (FiWord) 208444183L;
1865	T2[201L] = (FiWord) 1L;
1866	T0[202L] = (FiWord) 200090L;
1867	T1[202L] = (FiWord) 592883736L;
1868	fiWORD_FR_SFLO(T2[202L], 1.0000000000000000){ FiSFlo fi_tmp = (1.0000000000000000); (T2[202L]) = (FiWord )(&fi_tmp); };
1869	T0[203L] = (FiWord) 200090L;
1870	T1[203L] = (FiWord) 594651170L;
1871	T2[203L] = (FiWord) 1L;
1872	fiCHAR_MAX(l0->X181_max, FiChar)((l0->X181_max) = (FiChar) fiCharMax());
1873	T0[204L] = (FiWord) 318461825L;
1874	T1[204L] = (FiWord) 321172770L;
1875	T2[204L] = (FiWord) l0->X181_max;
1876	fiBYTE_MAX(l0->X182_max, FiByte)((l0->X182_max) = (FiByte) fiByteMax());
1877	T0[205L] = (FiWord) 318461825L;
1878	T1[205L] = (FiWord) 295223545L;
1879	T2[205L] = (FiWord) l0->X182_max;
1880	fiHINT_MAX(l0->X183_max, FiHInt)((l0->X183_max) = (FiHInt) fiHIntMax());
1881	T0[206L] = (FiWord) 318461825L;
1882	T1[206L] = (FiWord) 208444183L;
1883	T2[206L] = (FiWord) l0->X183_max;
1884	fiSINT_MAX(l0->X184_max, FiSInt)((l0->X184_max) = (FiSInt) fiSIntMax());
1885	T0[207L] = (FiWord) 318461825L;
1886	T1[207L] = (FiWord) 594651170L;
1887	T2[207L] = (FiWord) l0->X184_max;
1888	fiSFLO_MAX(l0->X185_max, FiSFlo)((l0->X185_max) = (FiSFlo) fiSFloMax());
1889	T0[208L] = (FiWord) 318461825L;
1890	T1[208L] = (FiWord) 592883736L;
1891	fiWORD_FR_SFLO(T2[208L], l0->X185_max){ FiSFlo fi_tmp = (l0->X185_max); (T2[208L]) = (FiWord ) (&fi_tmp); };
1892	fiDFLO_MAX(l0->X186_max, FiDFlo)((l0->X186_max) = (FiDFlo) fiDFloMax());
1893	T0[209L] = (FiWord) 318461825L;
1894	T1[209L] = (FiWord) 298204937L;
1895	T2[209L] = (FiWord) fiBoxDFlo(l0->X186_max);
1896	fiCHAR_MIN(l0->X175_min, FiChar)((l0->X175_min) = (FiChar) fiCharMin());
1897	T0[210L] = (FiWord) 318459775L;
1898	T1[210L] = (FiWord) 321172770L;
1899	T2[210L] = (FiWord) l0->X175_min;
1900	l0->X176_min = 0;
1901	T0[211L] = (FiWord) 318459775L;
1902	T1[211L] = (FiWord) 295223545L;
1903	T2[211L] = (FiWord) l0->X176_min;
1904	fiHINT_MIN(l0->X177_min, FiHInt)((l0->X177_min) = (FiHInt) fiHIntMin());
1905	T0[212L] = (FiWord) 318459775L;
1906	T1[212L] = (FiWord) 208444183L;
1907	T2[212L] = (FiWord) l0->X177_min;
1908	fiSINT_MIN(l0->X178_min, FiSInt)((l0->X178_min) = (FiSInt) fiSIntMin());
1909	T0[213L] = (FiWord) 318459775L;
1910	T1[213L] = (FiWord) 594651170L;
1911	T2[213L] = (FiWord) l0->X178_min;
1912	fiSFLO_MIN(l0->X179_min, FiSFlo)((l0->X179_min) = (FiSFlo) fiSFloMin());
1913	T0[214L] = (FiWord) 318459775L;
1914	T1[214L] = (FiWord) 592883736L;
1915	fiWORD_FR_SFLO(T2[214L], l0->X179_min){ FiSFlo fi_tmp = (l0->X179_min); (T2[214L]) = (FiWord ) (&fi_tmp); };
1916	fiDFLO_MIN(l0->X180_min, FiDFlo)((l0->X180_min) = (FiDFlo) fiDFloMin());
1917	T0[215L] = (FiWord) 318459775L;
1918	T1[215L] = (FiWord) 298204937L;
1919	T2[215L] = (FiWord) fiBoxDFlo(l0->X180_min);
1920	fiSFLO_EPSILON(l0->X173_epsilon, FiSFlo)((l0->X173_epsilon) = (FiSFlo) fiSFloEpsilon());
1921	T0[216L] = (FiWord) 375422425L;
1922	T1[216L] = (FiWord) 592883736L;
1923	fiWORD_FR_SFLO(T2[216L], l0->X173_epsilon){ FiSFlo fi_tmp = (l0->X173_epsilon); (T2[216L]) = (FiWord )(&fi_tmp); };
1924	fiDFLO_EPSILON(l0->X174_epsilon, FiDFlo)((l0->X174_epsilon) = (FiDFlo) fiDFloEpsilon());
1925	T0[217L] = (FiWord) 375422425L;
1926	T1[217L] = (FiWord) 298204937L;
1927	T2[217L] = (FiWord) fiBoxDFlo(l0->X174_epsilon);
1928	return P0_domain;
1929	}
1930
1931	static struct _FiProg tmp2_addLevel1 = {
1932	(FiFun) CF2_addLevel1,
1933	0L,
1934	0L,
1935	0L,
1936	0L
1937	};
1938
1939
1940	static FiBool
1941	CF3__EQ_(FiEnv e1, FiBool P0_a, FiBool P1_b)
1942	{
1943	return P0_a == P1_b;
1944	}
1945
1946	static struct _FiProg tmp3__EQ_ = {
1947	(FiFun) CF3__EQ_,
1948	0L,
1949	0L,
1950	0L,
1951	0L
1952	};
1953
1954
1955	static FiBool
1956	CF4__EQ_(FiEnv e1, FiChar P0_a, FiChar P1_b)
1957	{
1958	return P0_a == P1_b;
1959	}
1960
1961	static struct _FiProg tmp4__EQ_ = {
1962	(FiFun) CF4__EQ_,
1963	0L,
1964	0L,
1965	0L,
1966	0L
1967	};
1968
1969
1970	static FiBool
1971	CF5__EQ_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
1972	{
1973	return P0_a == P1_b;
1974	}
1975
1976	static struct _FiProg tmp5__EQ_ = {
1977	(FiFun) CF5__EQ_,
1978	0L,
1979	0L,
1980	0L,
1981	0L
1982	};
1983
1984
1985	static FiBool
1986	CF6__EQ_(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
1987	{
1988	FiBool T0;
1989	fiBINT_EQ(T0, FiBool, P0_a, P1_b)((T0) = (FiBool) fiBIntEQ(P0_a,P1_b));
1990	return T0;
1991	}
1992
1993	static struct _FiProg tmp6__EQ_ = {
1994	(FiFun) CF6__EQ_,
1995	0L,
1996	0L,
1997	0L,
1998	0L
1999	};
2000
2001
2002	static FiBool
2003	CF7__EQ_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b)
2004	{
2005	return P0_a == P1_b;
2006	}
2007
2008	static struct _FiProg tmp7__EQ_ = {
2009	(FiFun) CF7__EQ_,
2010	0L,
2011	0L,
2012	0L,
2013	0L
2014	};
2015
2016
2017	static FiBool
2018	CF8__EQ_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b)
2019	{
2020	return P0_a == P1_b;
2021	}
2022
2023	static struct _FiProg tmp8__EQ_ = {
2024	(FiFun) CF8__EQ_,
2025	0L,
2026	0L,
2027	0L,
2028	0L
2029	};
2030
2031
2032	static FiBool
2033	CF9__EQ_(FiEnv e1, FiPtr P0_a, FiPtr P1_b)
2034	{
2035	return P0_a == P1_b;
2036	}
2037
2038	static struct _FiProg tmp9__EQ_ = {
2039	(FiFun) CF9__EQ_,
2040	0L,
2041	0L,
2042	0L,
2043	0L
2044	};
2045
2046
2047	static FiBool
2048	CF10__TILDE__EQ_(FiEnv e1, FiBool P0_a, FiBool P1_b)
2049	{
2050	return P0_a != P1_b;
2051	}
2052
2053	static struct _FiProg tmp10__TILDE__EQ_ = {
2054	(FiFun) CF10__TILDE__EQ_,
2055	0L,
2056	0L,
2057	0L,
2058	0L
2059	};
2060
2061
2062	static FiBool
2063	CF11__TILDE__EQ_(FiEnv e1, FiChar P0_a, FiChar P1_b)
2064	{
2065	return P0_a != P1_b;
2066	}
2067
2068	static struct _FiProg tmp11__TILDE__EQ_ = {
2069	(FiFun) CF11__TILDE__EQ_,
2070	0L,
2071	0L,
2072	0L,
2073	0L
2074	};
2075
2076
2077	static FiBool
2078	CF12__TILDE__EQ_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2079	{
2080	return P0_a != P1_b;
2081	}
2082
2083	static struct _FiProg tmp12__TILDE__EQ_ = {
2084	(FiFun) CF12__TILDE__EQ_,
2085	0L,
2086	0L,
2087	0L,
2088	0L
2089	};
2090
2091
2092	static FiBool
2093	CF13__TILDE__EQ_(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
2094	{
2095	FiBool T0;
2096	fiBINT_NE(T0, FiBool, P0_a, P1_b)((T0) = (FiBool) fiBIntNE(P0_a,P1_b));
2097	return T0;
2098	}
2099
2100	static struct _FiProg tmp13__TILDE__EQ_ = {
2101	(FiFun) CF13__TILDE__EQ_,
2102	0L,
2103	0L,
2104	0L,
2105	0L
2106	};
2107
2108
2109	static FiBool
2110	CF14__TILDE__EQ_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b)
2111	{
2112	return P0_a != P1_b;
2113	}
2114
2115	static struct _FiProg tmp14__TILDE__EQ_ = {
2116	(FiFun) CF14__TILDE__EQ_,
2117	0L,
2118	0L,
2119	0L,
2120	0L
2121	};
2122
2123
2124	static FiBool
2125	CF15__TILDE__EQ_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b)
2126	{
2127	return P0_a != P1_b;
2128	}
2129
2130	static struct _FiProg tmp15__TILDE__EQ_ = {
2131	(FiFun) CF15__TILDE__EQ_,
2132	0L,
2133	0L,
2134	0L,
2135	0L
2136	};
2137
2138
2139	static FiBool
2140	CF16__TILDE__EQ_(FiEnv e1, FiPtr P0_a, FiPtr P1_b)
2141	{
2142	return P0_a != P1_b;
2143	}
2144
2145	static struct _FiProg tmp16__TILDE__EQ_ = {
2146	(FiFun) CF16__TILDE__EQ_,
2147	0L,
2148	0L,
2149	0L,
2150	0L
2151	};
2152
2153
2154	static FiBool
2155	CF17__LT_(FiEnv e1, FiChar P0_a, FiChar P1_b)
2156	{
2157	return P0_a < P1_b;
2158	}
2159
2160	static struct _FiProg tmp17__LT_ = {
2161	(FiFun) CF17__LT_,
2162	0L,
2163	0L,
2164	0L,
2165	0L
2166	};
2167
2168
2169	static FiBool
2170	CF18__LT_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2171	{
2172	return P0_a < P1_b;
2173	}
2174
2175	static struct _FiProg tmp18__LT_ = {
2176	(FiFun) CF18__LT_,
2177	0L,
2178	0L,
2179	0L,
2180	0L
2181	};
2182
2183
2184	static FiBool
2185	CF19__LT_(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
2186	{
2187	FiBool T0;
2188	fiBINT_LT(T0, FiBool, P0_a, P1_b)((T0) = (FiBool) fiBIntLT(P0_a,P1_b));
2189	return T0;
2190	}
2191
2192	static struct _FiProg tmp19__LT_ = {
2193	(FiFun) CF19__LT_,
2194	0L,
2195	0L,
2196	0L,
2197	0L
2198	};
2199
2200
2201	static FiBool
2202	CF20__LT_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b)
2203	{
2204	return P0_a < P1_b;
2205	}
2206
2207	static struct _FiProg tmp20__LT_ = {
2208	(FiFun) CF20__LT_,
2209	0L,
2210	0L,
2211	0L,
2212	0L
2213	};
2214
2215
2216	static FiBool
2217	CF21__LT_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b)
2218	{
2219	return P0_a < P1_b;
2220	}
2221
2222	static struct _FiProg tmp21__LT_ = {
2223	(FiFun) CF21__LT_,
2224	0L,
2225	0L,
2226	0L,
2227	0L
2228	};
2229
2230
2231	static FiBool
2232	CF22__LT__EQ_(FiEnv e1, FiChar P0_a, FiChar P1_b)
2233	{
2234	return P0_a <= P1_b;
2235	}
2236
2237	static struct _FiProg tmp22__LT__EQ_ = {
2238	(FiFun) CF22__LT__EQ_,
2239	0L,
2240	0L,
2241	0L,
2242	0L
2243	};
2244
2245
2246	static FiBool
2247	CF23__LT__EQ_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2248	{
2249	return P0_a <= P1_b;
2250	}
2251
2252	static struct _FiProg tmp23__LT__EQ_ = {
2253	(FiFun) CF23__LT__EQ_,
2254	0L,
2255	0L,
2256	0L,
2257	0L
2258	};
2259
2260
2261	static FiBool
2262	CF24__LT__EQ_(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
2263	{
2264	FiBool T0;
2265	fiBINT_LE(T0, FiBool, P0_a, P1_b)((T0) = (FiBool) fiBIntLE(P0_a,P1_b));
2266	return T0;
2267	}
2268
2269	static struct _FiProg tmp24__LT__EQ_ = {
2270	(FiFun) CF24__LT__EQ_,
2271	0L,
2272	0L,
2273	0L,
2274	0L
2275	};
2276
2277
2278	static FiBool
2279	CF25__LT__EQ_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b)
2280	{
2281	return P0_a <= P1_b;
2282	}
2283
2284	static struct _FiProg tmp25__LT__EQ_ = {
2285	(FiFun) CF25__LT__EQ_,
2286	0L,
2287	0L,
2288	0L,
2289	0L
2290	};
2291
2292
2293	static FiBool
2294	CF26__LT__EQ_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b)
2295	{
2296	return P0_a <= P1_b;
2297	}
2298
2299	static struct _FiProg tmp26__LT__EQ_ = {
2300	(FiFun) CF26__LT__EQ_,
2301	0L,
2302	0L,
2303	0L,
2304	0L
2305	};
2306
2307
2308	static FiBool
2309	CF27_zero_QMARK_(FiEnv e1, FiSInt P0_a)
2310	{
2311	return P0_a == 0;
2312	}
2313
2314	static struct _FiProg tmp27_zero_QMARK_ = {
2315	(FiFun) CF27_zero_QMARK_,
2316	0L,
2317	0L,
2318	0L,
2319	0L
2320	};
2321
2322
2323	static FiBool
2324	CF28_zero_QMARK_(FiEnv e1, FiBInt P0_a)
2325	{
2326	FiBool T0;
2327	fiBINT_IS_ZERO(T0, FiBool, P0_a)((T0) = (FiBool) fiBIntIsZero(P0_a));
2328	return T0;
2329	}
2330
2331	static struct _FiProg tmp28_zero_QMARK_ = {
2332	(FiFun) CF28_zero_QMARK_,
2333	0L,
2334	0L,
2335	0L,
2336	0L
2337	};
2338
2339
2340	static FiBool
2341	CF29_zero_QMARK_(FiEnv e1, FiSFlo P0_a)
2342	{
2343	return P0_a == 0.0;
2344	}
2345
2346	static struct _FiProg tmp29_zero_QMARK_ = {
2347	(FiFun) CF29_zero_QMARK_,
2348	0L,
2349	0L,
2350	0L,
2351	0L
2352	};
2353
2354
2355	static FiBool
2356	CF30_zero_QMARK_(FiEnv e1, FiDFlo P0_a)
2357	{
2358	return P0_a == 0.0;
2359	}
2360
2361	static struct _FiProg tmp30_zero_QMARK_ = {
2362	(FiFun) CF30_zero_QMARK_,
2363	0L,
2364	0L,
2365	0L,
2366	0L
2367	};
2368
2369
2370	static FiBool
2371	CF31_positive_QMARK_(FiEnv e1, FiSInt P0_a)
2372	{
2373	return P0_a > 0;
2374	}
2375
2376	static struct _FiProg tmp31_positive_QMARK_ = {
2377	(FiFun) CF31_positive_QMARK_,
2378	0L,
2379	0L,
2380	0L,
2381	0L
2382	};
2383
2384
2385	static FiBool
2386	CF32_positive_QMARK_(FiEnv e1, FiBInt P0_a)
2387	{
2388	FiBool T0;
2389	fiBINT_IS_POS(T0, FiBool, P0_a)((T0) = (FiBool) fiBIntIsPos(P0_a));
2390	return T0;
2391	}
2392
2393	static struct _FiProg tmp32_positive_QMARK_ = {
2394	(FiFun) CF32_positive_QMARK_,
2395	0L,
2396	0L,
2397	0L,
2398	0L
2399	};
2400
2401
2402	static FiBool
2403	CF33_positive_QMARK_(FiEnv e1, FiSFlo P0_a)
2404	{
2405	return P0_a > 0.0;
2406	}
2407
2408	static struct _FiProg tmp33_positive_QMARK_ = {
2409	(FiFun) CF33_positive_QMARK_,
2410	0L,
2411	0L,
2412	0L,
2413	0L
2414	};
2415
2416
2417	static FiBool
2418	CF34_positive_QMARK_(FiEnv e1, FiDFlo P0_a)
2419	{
2420	return P0_a > 0.0;
2421	}
2422
2423	static struct _FiProg tmp34_positive_QMARK_ = {
2424	(FiFun) CF34_positive_QMARK_,
2425	0L,
2426	0L,
2427	0L,
2428	0L
2429	};
2430
2431
2432	static FiBool
2433	CF35_negative_QMARK_(FiEnv e1, FiSInt P0_a)
2434	{
2435	return P0_a < 0;
2436	}
2437
2438	static struct _FiProg tmp35_negative_QMARK_ = {
2439	(FiFun) CF35_negative_QMARK_,
2440	0L,
2441	0L,
2442	0L,
2443	0L
2444	};
2445
2446
2447	static FiBool
2448	CF36_negative_QMARK_(FiEnv e1, FiBInt P0_a)
2449	{
2450	FiBool T0;
2451	fiBINT_IS_NEG(T0, FiBool, P0_a)((T0) = (FiBool) fiBIntIsNeg(P0_a));
2452	return T0;
2453	}
2454
2455	static struct _FiProg tmp36_negative_QMARK_ = {
2456	(FiFun) CF36_negative_QMARK_,
2457	0L,
2458	0L,
2459	0L,
2460	0L
2461	};
2462
2463
2464	static FiBool
2465	CF37_negative_QMARK_(FiEnv e1, FiSFlo P0_a)
2466	{
2467	return P0_a < 0.0;
2468	}
2469
2470	static struct _FiProg tmp37_negative_QMARK_ = {
2471	(FiFun) CF37_negative_QMARK_,
2472	0L,
2473	0L,
2474	0L,
2475	0L
2476	};
2477
2478
2479	static FiBool
2480	CF38_negative_QMARK_(FiEnv e1, FiDFlo P0_a)
2481	{
2482	return P0_a < 0.0;
2483	}
2484
2485	static struct _FiProg tmp38_negative_QMARK_ = {
2486	(FiFun) CF38_negative_QMARK_,
2487	0L,
2488	0L,
2489	0L,
2490	0L
2491	};
2492
2493
2494	static FiBool
2495	CF39_even_QMARK_(FiEnv e1, FiBInt P0_a)
2496	{
2497	return fiBIntEQ(fiBIntMod(P0_a, fiBIntNew(2L)), fiBInt0());
2498	}
2499
2500	static struct _FiProg tmp39_even_QMARK_ = {
2501	(FiFun) CF39_even_QMARK_,
2502	0L,
2503	0L,
2504	0L,
2505	0L
2506	};
2507
2508
2509	static FiBool
2510	CF40_even_QMARK_(FiEnv e1, FiSInt P0_a)
2511	{
2512	return P0_a % 2L == 0L;
2513	}
2514
2515	static struct _FiProg tmp40_even_QMARK_ = {
2516	(FiFun) CF40_even_QMARK_,
2517	0L,
2518	0L,
2519	0L,
2520	0L
2521	};
2522
2523
2524	static FiBool
2525	CF41_odd_QMARK_(FiEnv e1, FiBInt P0_a)
2526	{
2527	return fiBIntNE(fiBIntMod(P0_a, fiBIntNew(2L)), fiBInt0());
2528	}
2529
2530	static struct _FiProg tmp41_odd_QMARK_ = {
2531	(FiFun) CF41_odd_QMARK_,
2532	0L,
2533	0L,
2534	0L,
2535	0L
2536	};
2537
2538
2539	static FiBool
2540	CF42_odd_QMARK_(FiEnv e1, FiSInt P0_a)
2541	{
2542	return P0_a % 2L != 0L;
2543	}
2544
2545	static struct _FiProg tmp42_odd_QMARK_ = {
2546	(FiFun) CF42_odd_QMARK_,
2547	0L,
2548	0L,
2549	0L,
2550	0L
2551	};
2552
2553
2554	static FiBool
2555	CF43_single_QMARK_(FiEnv e1, FiBInt P0_a)
2556	{
2557	FiBool T0;
2558	fiBINT_IS_SINGLE(T0, FiBool, P0_a)((T0) = (FiBool) fiBIntIsSingle(P0_a));
2559	return T0;
2560	}
2561
2562	static struct _FiProg tmp43_single_QMARK_ = {
2563	(FiFun) CF43_single_QMARK_,
2564	0L,
2565	0L,
2566	0L,
2567	0L
2568	};
2569
2570
2571	static FiBool
2572	CF44_nil_QMARK_(FiEnv e1, FiPtr P0_a)
2573	{
2574	FiBool T0;
2575	fiPTR_IS_NIL(T0, FiBool, P0_a)((T0) = (FiBool)((FiPtr) (P0_a) == (FiPtr) 0));
2576	return T0;
2577	}
2578
2579	static struct _FiProg tmp44_nil_QMARK_ = {
2580	(FiFun) CF44_nil_QMARK_,
2581	0L,
2582	0L,
2583	0L,
2584	0L
2585	};
2586
2587
2588	static FiBool
2589	CF45_digit_QMARK_(FiEnv e1, FiChar P0_a)
2590	{
2591	FiBool T0;
2592	fiCHAR_IS_DIGIT(T0, FiBool, P0_a)((T0) = (FiBool) fiCharIsDigit(P0_a));
2593	return T0;
2594	}
2595
2596	static struct _FiProg tmp45_digit_QMARK_ = {
2597	(FiFun) CF45_digit_QMARK_,
2598	0L,
2599	0L,
2600	0L,
2601	0L
2602	};
2603
2604
2605	static FiBool
2606	CF46_letter_QMARK_(FiEnv e1, FiChar P0_a)
2607	{
2608	FiBool T0;
2609	fiCHAR_IS_LETTER(T0, FiBool, P0_a)((T0) = (FiBool) fiCharIsLetter(P0_a));
2610	return T0;
2611	}
2612
2613	static struct _FiProg tmp46_letter_QMARK_ = {
2614	(FiFun) CF46_letter_QMARK_,
2615	0L,
2616	0L,
2617	0L,
2618	0L
2619	};
2620
2621
2622	static FiBool
2623	CF47__TILDE_(FiEnv e1, FiBool P0_a)
2624	{
2625	return !P0_a;
2626	}
2627
2628	static struct _FiProg tmp47__TILDE_ = {
2629	(FiFun) CF47__TILDE_,
2630	0L,
2631	0L,
2632	0L,
2633	0L
2634	};
2635
2636
2637	static FiSInt
2638	CF48__TILDE_(FiEnv e1, FiSInt P0_a)
2639	{
2640	return ~P0_a;
2641	}
2642
2643	static struct _FiProg tmp48__TILDE_ = {
2644	(FiFun) CF48__TILDE_,
2645	0L,
2646	0L,
2647	0L,
2648	0L
2649	};
2650
2651
2652	static FiBool
2653	CF49__SLASH__BSLSH_(FiEnv e1, FiBool P0_a, FiBool P1_b)
2654	{
2655	return P0_a & P1_b;
2656	}
2657
2658	static struct _FiProg tmp49__SLASH__BSLSH_ = {
2659	(FiFun) CF49__SLASH__BSLSH_,
2660	0L,
2661	0L,
2662	0L,
2663	0L
2664	};
2665
2666
2667	static FiSInt
2668	CF50__SLASH__BSLSH_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2669	{
2670	return P0_a & P1_b;
2671	}
2672
2673	static struct _FiProg tmp50__SLASH__BSLSH_ = {
2674	(FiFun) CF50__SLASH__BSLSH_,
2675	0L,
2676	0L,
2677	0L,
2678	0L
2679	};
2680
2681
2682	static FiBool
2683	CF51__BSLSH__SLASH_(FiEnv e1, FiBool P0_a, FiBool P1_b)
2684	{
2685	return P0_a \| P1_b;
2686	}
2687
2688	static struct _FiProg tmp51__BSLSH__SLASH_ = {
2689	(FiFun) CF51__BSLSH__SLASH_,
2690	0L,
2691	0L,
2692	0L,
2693	0L
2694	};
2695
2696
2697	static FiSInt
2698	CF52__BSLSH__SLASH_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2699	{
2700	return P0_a \| P1_b;
2701	}
2702
2703	static struct _FiProg tmp52__BSLSH__SLASH_ = {
2704	(FiFun) CF52__BSLSH__SLASH_,
2705	0L,
2706	0L,
2707	0L,
2708	0L
2709	};
2710
2711
2712	static FiSInt
2713	CF53_xor(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2714	{
2715	return P0_a ^ P1_b;
2716	}
2717
2718	static struct _FiProg tmp53_xor = {
2719	(FiFun) CF53_xor,
2720	0L,
2721	0L,
2722	0L,
2723	0L
2724	};
2725
2726
2727	static FiSInt
2728	CF54__PLUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2729	{
2730	return P0_a + P1_b;
2731	}
2732
2733	static struct _FiProg tmp54__PLUS_ = {
2734	(FiFun) CF54__PLUS_,
2735	0L,
2736	0L,
2737	0L,
2738	0L
2739	};
2740
2741
2742	static FiBInt
2743	CF55__PLUS_(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
2744	{
2745	FiBInt T0;
2746	fiBINT_PLUS(T0, FiBInt, P0_a, P1_b)((T0) = (FiBInt) fiBIntPlus(P0_a,P1_b));
2747	return T0;
2748	}
2749
2750	static struct _FiProg tmp55__PLUS_ = {
2751	(FiFun) CF55__PLUS_,
2752	0L,
2753	0L,
2754	0L,
2755	0L
2756	};
2757
2758
2759	static FiSFlo
2760	CF56__PLUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b)
2761	{
2762	return P0_a + P1_b;
2763	}
2764
2765	static struct _FiProg tmp56__PLUS_ = {
2766	(FiFun) CF56__PLUS_,
2767	0L,
2768	0L,
2769	0L,
2770	0L
2771	};
2772
2773
2774	static FiDFlo
2775	CF57__PLUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b)
2776	{
2777	return P0_a + P1_b;
2778	}
2779
2780	static struct _FiProg tmp57__PLUS_ = {
2781	(FiFun) CF57__PLUS_,
2782	0L,
2783	0L,
2784	0L,
2785	0L
2786	};
2787
2788
2789	static FiSInt
2790	CF58__MINUS_(FiEnv e1, FiSInt P0_a)
2791	{
2792	return -P0_a;
2793	}
2794
2795	static struct _FiProg tmp58__MINUS_ = {
2796	(FiFun) CF58__MINUS_,
2797	0L,
2798	0L,
2799	0L,
2800	0L
2801	};
2802
2803
2804	static FiBInt
2805	CF59__MINUS_(FiEnv e1, FiBInt P0_a)
2806	{
2807	FiBInt T0;
2808	fiBINT_NEGATE(T0, FiBInt, P0_a)((T0) = (FiBInt) fiBIntNegate(P0_a));
2809	return T0;
2810	}
2811
2812	static struct _FiProg tmp59__MINUS_ = {
2813	(FiFun) CF59__MINUS_,
2814	0L,
2815	0L,
2816	0L,
2817	0L
2818	};
2819
2820
2821	static FiSFlo
2822	CF60__MINUS_(FiEnv e1, FiSFlo P0_a)
2823	{
2824	return -P0_a;
2825	}
2826
2827	static struct _FiProg tmp60__MINUS_ = {
2828	(FiFun) CF60__MINUS_,
2829	0L,
2830	0L,
2831	0L,
2832	0L
2833	};
2834
2835
2836	static FiDFlo
2837	CF61__MINUS_(FiEnv e1, FiDFlo P0_a)
2838	{
2839	return -P0_a;
2840	}
2841
2842	static struct _FiProg tmp61__MINUS_ = {
2843	(FiFun) CF61__MINUS_,
2844	0L,
2845	0L,
2846	0L,
2847	0L
2848	};
2849
2850
2851	static FiSInt
2852	CF62__MINUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2853	{
2854	return P0_a - P1_b;
2855	}
2856
2857	static struct _FiProg tmp62__MINUS_ = {
2858	(FiFun) CF62__MINUS_,
2859	0L,
2860	0L,
2861	0L,
2862	0L
2863	};
2864
2865
2866	static FiBInt
2867	CF63__MINUS_(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
2868	{
2869	FiBInt T0;
2870	fiBINT_MINUS(T0, FiBInt, P0_a, P1_b)((T0) = (FiBInt) fiBIntMinus(P0_a,P1_b));
2871	return T0;
2872	}
2873
2874	static struct _FiProg tmp63__MINUS_ = {
2875	(FiFun) CF63__MINUS_,
2876	0L,
2877	0L,
2878	0L,
2879	0L
2880	};
2881
2882
2883	static FiSFlo
2884	CF64__MINUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b)
2885	{
2886	return P0_a - P1_b;
2887	}
2888
2889	static struct _FiProg tmp64__MINUS_ = {
2890	(FiFun) CF64__MINUS_,
2891	0L,
2892	0L,
2893	0L,
2894	0L
2895	};
2896
2897
2898	static FiDFlo
2899	CF65__MINUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b)
2900	{
2901	return P0_a - P1_b;
2902	}
2903
2904	static struct _FiProg tmp65__MINUS_ = {
2905	(FiFun) CF65__MINUS_,
2906	0L,
2907	0L,
2908	0L,
2909	0L
2910	};
2911
2912
2913	static FiSInt
2914	CF66__STAR_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
2915	{
2916	return P0_a * P1_b;
2917	}
2918
2919	static struct _FiProg tmp66__STAR_ = {
2920	(FiFun) CF66__STAR_,
2921	0L,
2922	0L,
2923	0L,
2924	0L
2925	};
2926
2927
2928	static FiBInt
2929	CF67__STAR_(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
2930	{
2931	FiBInt T0;
2932	fiBINT_TIMES(T0, FiBInt, P0_a, P1_b)((T0) = (FiBInt) fiBIntTimes(P0_a,P1_b));
2933	return T0;
2934	}
2935
2936	static struct _FiProg tmp67__STAR_ = {
2937	(FiFun) CF67__STAR_,
2938	0L,
2939	0L,
2940	0L,
2941	0L
2942	};
2943
2944
2945	static FiSFlo
2946	CF68__STAR_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b)
2947	{
2948	return P0_a * P1_b;
2949	}
2950
2951	static struct _FiProg tmp68__STAR_ = {
2952	(FiFun) CF68__STAR_,
2953	0L,
2954	0L,
2955	0L,
2956	0L
2957	};
2958
2959
2960	static FiDFlo
2961	CF69__STAR_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b)
2962	{
2963	return P0_a * P1_b;
2964	}
2965
2966	static struct _FiProg tmp69__STAR_ = {
2967	(FiFun) CF69__STAR_,
2968	0L,
2969	0L,
2970	0L,
2971	0L
2972	};
2973
2974
2975	static FiSInt
2976	CF70__STAR__PLUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_c)
2977	{
2978	FiSInt T0;
2979	fiSINT_TIMES_PLUS(T0, FiSInt, P0_a, P1_b, P2_c)((T0) = (FiSInt) ((P0_a)*(P1_b)+(P2_c)));
2980	return T0;
2981	}
2982
2983	static struct _FiProg tmp70__STAR__PLUS_ = {
2984	(FiFun) CF70__STAR__PLUS_,
2985	0L,
2986	0L,
2987	0L,
2988	0L
2989	};
2990
2991
2992	static FiBInt
2993	CF71__STAR__PLUS_(FiEnv e1, FiBInt P0_a, FiBInt P1_b, FiBInt P2_c)
2994	{
2995	FiBInt T0;
2996	fiBINT_TIMES_PLUS(T0, FiBInt, P0_a, P1_b, P2_c)((T0) = (FiBInt) fiBIntTimesPlus(P0_a,P1_b,P2_c));
2997	return T0;
2998	}
2999
3000	static struct _FiProg tmp71__STAR__PLUS_ = {
3001	(FiFun) CF71__STAR__PLUS_,
3002	0L,
3003	0L,
3004	0L,
3005	0L
3006	};
3007
3008
3009	static FiSFlo
3010	CF72__STAR__PLUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSFlo P2_c)
3011	{
3012	FiSFlo T0;
3013	fiSFLO_TIMES_PLUS(T0, FiSFlo, P0_a, P1_b, P2_c)((T0) = (FiSFlo) ((P0_a)*(P1_b)+(P2_c)));
3014	return T0;
3015	}
3016
3017	static struct _FiProg tmp72__STAR__PLUS_ = {
3018	(FiFun) CF72__STAR__PLUS_,
3019	0L,
3020	0L,
3021	0L,
3022	0L
3023	};
3024
3025
3026	static FiDFlo
3027	CF73__STAR__PLUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiDFlo P2_c)
3028	{
3029	FiDFlo T0;
3030	fiDFLO_TIMES_PLUS(T0, FiDFlo, P0_a, P1_b, P2_c)((T0) = (FiDFlo) ((P0_a)*(P1_b)+(P2_c)));
3031	return T0;
3032	}
3033
3034	static struct _FiProg tmp73__STAR__PLUS_ = {
3035	(FiFun) CF73__STAR__PLUS_,
3036	0L,
3037	0L,
3038	0L,
3039	0L
3040	};
3041
3042
3043	static FiSFlo
3044	CF74__SLASH_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b)
3045	{
3046	return P0_a / P1_b;
3047	}
3048
3049	static struct _FiProg tmp74__SLASH_ = {
3050	(FiFun) CF74__SLASH_,
3051	0L,
3052	0L,
3053	0L,
3054	0L
3055	};
3056
3057
3058	static FiDFlo
3059	CF75__SLASH_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b)
3060	{
3061	return P0_a / P1_b;
3062	}
3063
3064	static struct _FiProg tmp75__SLASH_ = {
3065	(FiFun) CF75__SLASH_,
3066	0L,
3067	0L,
3068	0L,
3069	0L
3070	};
3071
3072
3073	static FiBInt
3074	CF76__HAT_(FiEnv e1, FiBInt P0_a, FiSInt P1_b)
3075	{
3076	FiBInt T0;
3077	fiBINT_SI_POWER(T0, FiBInt, P0_a, P1_b)((T0) = (FiBInt) fiBIntSIPower(P0_a,P1_b));
3078	return T0;
3079	}
3080
3081	static struct _FiProg tmp76__HAT_ = {
3082	(FiFun) CF76__HAT_,
3083	0L,
3084	0L,
3085	0L,
3086	0L
3087	};
3088
3089
3090	static FiBInt
3091	CF77__HAT_(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
3092	{
3093	FiBInt T0;
3094	fiBINT_BI_POWER(T0, FiBInt, P0_a, P1_b)((T0) = (FiBInt) fiBIntBIPower(P0_a,P1_b));
3095	return T0;
3096	}
3097
3098	static struct _FiProg tmp77__HAT_ = {
3099	(FiFun) CF77__HAT_,
3100	0L,
3101	0L,
3102	0L,
3103	0L
3104	};
3105
3106
3107	static FiBInt
3108	CF78_mod_HAT_(FiEnv e1, FiBInt P0_a, FiBInt P1_b, FiBInt P2_c)
3109	{
3110	FiBInt T0;
3111	fiBINT_POWER_MOD(T0, FiBInt, P0_a, P1_b, P2_c)((T0) = (FiBInt) fiBIntPowerMod(P0_a,P1_b,P2_c));
3112	return T0;
3113	}
3114
3115	static struct _FiProg tmp78_mod_HAT_ = {
3116	(FiFun) CF78_mod_HAT_,
3117	0L,
3118	0L,
3119	0L,
3120	0L
3121	};
3122
3123
3124	static FiSInt
3125	CF79_length(FiEnv e1, FiSInt P0_a)
3126	{
3127	FiSInt T0;
3128	fiSINT_LENGTH(T0, FiSInt, P0_a)((T0) = (FiSInt) fiSIntLength(P0_a));
3129	return T0;
3130	}
3131
3132	static struct _FiProg tmp79_length = {
3133	(FiFun) CF79_length,
3134	0L,
3135	0L,
3136	0L,
3137	0L
3138	};
3139
3140
3141	static FiSInt
3142	CF80_length(FiEnv e1, FiBInt P0_a)
3143	{
3144	FiSInt T0;
3145	fiBINT_LENGTH(T0, FiSInt, P0_a)((T0) = (FiSInt) fiBIntLength(P0_a));
3146	return T0;
3147	}
3148
3149	static struct _FiProg tmp80_length = {
3150	(FiFun) CF80_length,
3151	0L,
3152	0L,
3153	0L,
3154	0L
3155	};
3156
3157
3158	static FiBool
3159	CF81_bit(FiEnv e1, FiSInt P0_a, FiSInt P1_n)
3160	{
3161	FiBool T0;
3162	fiSINT_BIT(T0, FiBool, P0_a, P1_n)((T0) = (FiBool) (!!((P0_a) & (1L << (P1_n)))));
3163	return T0;
3164	}
3165
3166	static struct _FiProg tmp81_bit = {
3167	(FiFun) CF81_bit,
3168	0L,
3169	0L,
3170	0L,
3171	0L
3172	};
3173
3174
3175	static FiBool
3176	CF82_bit(FiEnv e1, FiBInt P0_a, FiSInt P1_n)
3177	{
3178	FiBool T0;
3179	fiBINT_BIT(T0, FiBool, P0_a, P1_n)((T0) = (FiBool) fiBIntBit(P0_a,P1_n));
3180	return T0;
3181	}
3182
3183	static struct _FiProg tmp82_bit = {
3184	(FiFun) CF82_bit,
3185	0L,
3186	0L,
3187	0L,
3188	0L
3189	};
3190
3191
3192	static FiSInt
3193	CF83_shiftUp(FiEnv e1, FiSInt P0_a, FiSInt P1_n)
3194	{
3195	return P0_a << P1_n;
3196	}
3197
3198	static struct _FiProg tmp83_shiftUp = {
3199	(FiFun) CF83_shiftUp,
3200	0L,
3201	0L,
3202	0L,
3203	0L
3204	};
3205
3206
3207	static FiBInt
3208	CF84_shiftUp(FiEnv e1, FiBInt P0_a, FiSInt P1_n)
3209	{
3210	FiBInt T0;
3211	fiBINT_SHIFT_UP(T0, FiBInt, P0_a, P1_n)((T0) = (FiBInt) fiBIntShiftUp(P0_a,P1_n));
3212	return T0;
3213	}
3214
3215	static struct _FiProg tmp84_shiftUp = {
3216	(FiFun) CF84_shiftUp,
3217	0L,
3218	0L,
3219	0L,
3220	0L
3221	};
3222
3223
3224	static FiSInt
3225	CF85_shiftDown(FiEnv e1, FiSInt P0_a, FiSInt P1_n)
3226	{
3227	return P0_a >> P1_n;
3228	}
3229
3230	static struct _FiProg tmp85_shiftDown = {
3231	(FiFun) CF85_shiftDown,
3232	0L,
3233	0L,
3234	0L,
3235	0L
3236	};
3237
3238
3239	static FiBInt
3240	CF86_shiftDown(FiEnv e1, FiBInt P0_a, FiSInt P1_n)
3241	{
3242	FiBInt T0;
3243	fiBINT_SHIFT_DN(T0, FiBInt, P0_a, P1_n)((T0) = (FiBInt) fiBIntShiftDn(P0_a,P1_n));
3244	return T0;
3245	}
3246
3247	static struct _FiProg tmp86_shiftDown = {
3248	(FiFun) CF86_shiftDown,
3249	0L,
3250	0L,
3251	0L,
3252	0L
3253	};
3254
3255
3256	static FiSInt
3257	CF87_next(FiEnv e1, FiSInt P0_a)
3258	{
3259	return P0_a + 1L;
3260	}
3261
3262	static struct _FiProg tmp87_next = {
3263	(FiFun) CF87_next,
3264	0L,
3265	0L,
3266	0L,
3267	0L
3268	};
3269
3270
3271	static FiBInt
3272	CF88_next(FiEnv e1, FiBInt P0_a)
3273	{
3274	return fiBIntPlus(P0_a, fiBInt1());
3275	}
3276
3277	static struct _FiProg tmp88_next = {
3278	(FiFun) CF88_next,
3279	0L,
3280	0L,
3281	0L,
3282	0L
3283	};
3284
3285
3286	static FiSInt
3287	CF89_prev(FiEnv e1, FiSInt P0_a)
3288	{
3289	return P0_a - 1L;
3290	}
3291
3292	static struct _FiProg tmp89_prev = {
3293	(FiFun) CF89_prev,
3294	0L,
3295	0L,
3296	0L,
3297	0L
3298	};
3299
3300
3301	static FiBInt
3302	CF90_prev(FiEnv e1, FiBInt P0_a)
3303	{
3304	return fiBIntMinus(P0_a, fiBInt1());
3305	}
3306
3307	static struct _FiProg tmp90_prev = {
3308	(FiFun) CF90_prev,
3309	0L,
3310	0L,
3311	0L,
3312	0L
3313	};
3314
3315
3316	static FiSInt
3317	CF91_quo(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
3318	{
3319	FiSInt T0;
3320	fiSINT_QUO(T0, FiSInt, P0_a, P1_b)((T0) = (FiSInt) ((P0_a)/(P1_b)));
3321	return T0;
3322	}
3323
3324	static struct _FiProg tmp91_quo = {
3325	(FiFun) CF91_quo,
3326	0L,
3327	0L,
3328	0L,
3329	0L
3330	};
3331
3332
3333	static FiBInt
3334	CF92_quo(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
3335	{
3336	FiBInt T0;
3337	fiBINT_QUO(T0, FiBInt, P0_a, P1_b)((T0) = (FiBInt) fiBIntQuo(P0_a,P1_b));
3338	return T0;
3339	}
3340
3341	static struct _FiProg tmp92_quo = {
3342	(FiFun) CF92_quo,
3343	0L,
3344	0L,
3345	0L,
3346	0L
3347	};
3348
3349
3350	static FiSInt
3351	CF93_rem(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
3352	{
3353	FiSInt T0;
3354	fiSINT_REM(T0, FiSInt, P0_a, P1_b)((T0) = (FiSInt) ((P0_a)%(P1_b)));
3355	return T0;
3356	}
3357
3358	static struct _FiProg tmp93_rem = {
3359	(FiFun) CF93_rem,
3360	0L,
3361	0L,
3362	0L,
3363	0L
3364	};
3365
3366
3367	static FiBInt
3368	CF94_rem(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
3369	{
3370	FiBInt T0;
3371	fiBINT_REM(T0, FiBInt, P0_a, P1_b)((T0) = (FiBInt) fiBIntRem(P0_a,P1_b));
3372	return T0;
3373	}
3374
3375	static struct _FiProg tmp94_rem = {
3376	(FiFun) CF94_rem,
3377	0L,
3378	0L,
3379	0L,
3380	0L
3381	};
3382
3383
3384	static FiSInt
3385	CF95_mod(FiEnv e1, FiSInt P0_a, FiSInt P1_n)
3386	{
3387	return P0_a % P1_n;
3388	}
3389
3390	static struct _FiProg tmp95_mod = {
3391	(FiFun) CF95_mod,
3392	0L,
3393	0L,
3394	0L,
3395	0L
3396	};
3397
3398
3399	static FiBInt
3400	CF96_mod(FiEnv e1, FiBInt P0_a, FiBInt P1_n)
3401	{
3402	FiBInt T0;
3403	fiBINT_MOD(T0, FiBInt, P0_a, P1_n)((T0) = (FiBInt) fiBIntMod(P0_a,P1_n));
3404	return T0;
3405	}
3406
3407	static struct _FiProg tmp96_mod = {
3408	(FiFun) CF96_mod,
3409	0L,
3410	0L,
3411	0L,
3412	0L
3413	};
3414
3415
3416	static void
3417	CF97_divide(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt* R0, FiSInt* R1)
3418	{
3419	FiSInt T0, T1;
3420	fiSIntDivide((FiSInt) P0_a, (FiSInt) P1_b, &T0, &T1);
3421	*R0 = T0;
3422	*R1 = T1;
3423	return ;
3424	}
3425
3426	static struct _FiProg tmp97_divide = {
3427	(FiFun) CF97_divide,
3428	0L,
3429	0L,
3430	0L,
3431	0L
3432	};
3433
3434
3435	static void
3436	CF98_divide(FiEnv e1, FiBInt P0_a, FiBInt P1_b, FiBInt* R0, FiBInt* R1)
3437	{
3438	FiBInt T0, T1;
3439	fiBIntDivide((FiBInt) P0_a, (FiBInt) P1_b, &T0, &T1);
3440	*R0 = T0;
3441	*R1 = T1;
3442	return ;
3443	}
3444
3445	static struct _FiProg tmp98_divide = {
3446	(FiFun) CF98_divide,
3447	0L,
3448	0L,
3449	0L,
3450	0L
3451	};
3452
3453
3454	static FiSInt
3455	CF99_gcd(FiEnv e1, FiSInt P0_a, FiSInt P1_b)
3456	{
3457	FiSInt T0;
3458	fiSINT_GCD(T0, FiSInt, P0_a, P1_b)((T0) = (FiSInt) fiSIntGcd(P0_a,P1_b));
3459	return T0;
3460	}
3461
3462	static struct _FiProg tmp99_gcd = {
3463	(FiFun) CF99_gcd,
3464	0L,
3465	0L,
3466	0L,
3467	0L
3468	};
3469
3470
3471	static FiBInt
3472	CF100_gcd(FiEnv e1, FiBInt P0_a, FiBInt P1_b)
3473	{
3474	FiBInt T0;
3475	fiBINT_GCD(T0, FiBInt, P0_a, P1_b)((T0) = (FiBInt) fiBIntGcd(P0_a,P1_b));
3476	return T0;
3477	}
3478
3479	static struct _FiProg tmp100_gcd = {
3480	(FiFun) CF100_gcd,
3481	0L,
3482	0L,
3483	0L,
3484	0L
3485	};
3486
3487
3488	static FiSInt
3489	CF101_mod_PLUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_n)
3490	{
3491	return (P0_a + P1_b) % P2_n;
3492	}
3493
3494	static struct _FiProg tmp101_mod_PLUS_ = {
3495	(FiFun) CF101_mod_PLUS_,
3496	0L,
3497	0L,
3498	0L,
3499	0L
3500	};
3501
3502
3503	static FiSInt
3504	CF102_mod_MINUS_(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_n)
3505	{
3506	return (P0_a - P1_b) % P2_n;
3507	}
3508
3509	static struct _FiProg tmp102_mod_MINUS_ = {
3510	(FiFun) CF102_mod_MINUS_,
3511	0L,
3512	0L,
3513	0L,
3514	0L
3515	};
3516
3517
3518	static FiSInt
3519	CF103_mod_STAR_(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_n)
3520	{
3521	FiSInt T0;
3522	fiSINT_TIMES_MOD(T0, FiSInt, P0_a, P1_b, P2_n)((T0) = (FiSInt) fiSIntTimesMod(P0_a,P1_b,P2_n));
3523	return T0;
3524	}
3525
3526	static struct _FiProg tmp103_mod_STAR_ = {
3527	(FiFun) CF103_mod_STAR_,
3528	0L,
3529	0L,
3530	0L,
3531	0L
3532	};
3533
3534
3535	static FiSInt
3536	CF104_mod_STAR_inv(FiEnv e1, FiSInt P0_a, FiSInt P1_b, FiSInt P2_n,
3537	FiDFlo P3_ni)
3538	{
3539	FiSInt T0;
3540	fiSINT_TIMES_MOD_INV(T0, FiSInt, P0_a, P1_b, P2_n, P3_ni)((T0) = (FiSInt) fiSIntTimesModInv(P0_a,P1_b,P2_n,P3_ni));
3541	return T0;
3542	}
3543
3544	static struct _FiProg tmp104_mod_STAR_inv = {
3545	(FiFun) CF104_mod_STAR_inv,
3546	0L,
3547	0L,
3548	0L,
3549	0L
3550	};
3551
3552
3553	static void
3554	CF105_double_STAR_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord* R0,
3555	FiWord* R1)
3556	{
3557	FiWord T0, T1;
3558	fiWordTimesDouble((FiWord) P0_a, (FiWord) P1_b, &T0, &T1);
3559	*R0 = T0;
3560	*R1 = T1;
3561	return ;
3562	}
3563
3564	static struct _FiProg tmp105_double_STAR_ = {
3565	(FiFun) CF105_double_STAR_,
3566	0L,
3567	0L,
3568	0L,
3569	0L
3570	};
3571
3572
3573	static void
3574	CF106_doubleDivide(FiEnv e1, FiWord P0_nh, FiWord P1_nl, FiWord P2_d,
3575	FiWord* R0, FiWord* R1, FiWord* R2)
3576	{
3577	FiWord T0, T1, T2;
3578	fiWordDivideDouble((FiWord) P0_nh, (FiWord) P1_nl, (FiWord) P2_d, &T0, &
3579	T1, &T2);
3580	*R0 = T0;
3581	*R1 = T1;
3582	*R2 = T2;
3583	return ;
3584	}
3585
3586	static struct _FiProg tmp106_doubleDivide = {
3587	(FiFun) CF106_doubleDivide,
3588	0L,
3589	0L,
3590	0L,
3591	0L
3592	};
3593
3594
3595	static void
3596	CF107_plusStep(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_kin,
3597	FiWord* R0, FiWord* R1)
3598	{
3599	FiWord T0, T1;
3600	fiWordPlusStep((FiWord) P0_a, (FiWord) P1_b, (FiWord) P2_kin, &T0, &
3601	T1);
3602	*R0 = T0;
3603	*R1 = T1;
3604	return ;
3605	}
3606
3607	static struct _FiProg tmp107_plusStep = {
3608	(FiFun) CF107_plusStep,
3609	0L,
3610	0L,
3611	0L,
3612	0L
3613	};
3614
3615
3616	static void
3617	CF108_timesStep(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c,
3618	FiWord P3_kin, FiWord* R0, FiWord* R1)
3619	{
3620	FiWord T0, T1;
3621	fiWordTimesStep((FiWord) P0_a, (FiWord) P1_b, (FiWord) P2_c, (FiWord)
3622	P3_kin, &T0, &T1);
3623	*R0 = T0;
3624	*R1 = T1;
3625	return ;
3626	}
3627
3628	static struct _FiProg tmp108_timesStep = {
3629	(FiFun) CF108_timesStep,
3630	0L,
3631	0L,
3632	0L,
3633	0L
3634	};
3635
3636
3637	static FiChar
3638	CF109_upper(FiEnv e1, FiChar P0_c)
3639	{
3640	FiChar T0;
3641	fiCHAR_UPPER(T0, FiChar, P0_c)((T0) = (FiChar) fiCharUpper(P0_c));
3642	return T0;
3643	}
3644
3645	static struct _FiProg tmp109_upper = {
3646	(FiFun) CF109_upper,
3647	0L,
3648	0L,
3649	0L,
3650	0L
3651	};
3652
3653
3654	static FiChar
3655	CF110_lower(FiEnv e1, FiChar P0_c)
3656	{
3657	FiChar T0;
3658	fiCHAR_LOWER(T0, FiChar, P0_c)((T0) = (FiChar) fiCharLower(P0_c));
3659	return T0;
3660	}
3661
3662	static struct _FiProg tmp110_lower = {
3663	(FiFun) CF110_lower,
3664	0L,
3665	0L,
3666	0L,
3667	0L
3668	};
3669
3670
3671	static FiChar
3672	CF111_char(FiEnv e1, FiSInt P0_n)
3673	{
3674	return (char) P0_n;
3675	}
3676
3677	static struct _FiProg tmp111_char = {
3678	(FiFun) CF111_char,
3679	0L,
3680	0L,
3681	0L,
3682	0L
3683	};
3684
3685
3686	static FiSInt
3687	CF112_ord(FiEnv e1, FiChar P0_c)
3688	{
3689	return (FiSInt) P0_c;
3690	}
3691
3692	static struct _FiProg tmp112_ord = {
3693	(FiFun) CF112_ord,
3694	0L,
3695	0L,
3696	0L,
3697	0L
3698	};
3699
3700
3701	static FiSFlo
3702	CF113_assemble(FiEnv e1, FiBool P0_s, FiSInt P1_e, FiWord P2_b)
3703	{
3704	return fiSFloAssemble((FiBool) P0_s, (FiSInt) P1_e, (FiWord) P2_b);
3705	}
3706
3707	static struct _FiProg tmp113_assemble = {
3708	(FiFun) CF113_assemble,
3709	0L,
3710	0L,
3711	0L,
3712	0L
3713	};
3714
3715
3716	static FiDFlo
3717	CF114_assemble(FiEnv e1, FiBool P0_s, FiSInt P1_e, FiWord P2_bh,
3718	FiWord P3_bl)
3719	{
3720	return fiDFloAssemble((FiBool) P0_s, (FiSInt) P1_e, (FiWord) P2_bh, (
3721	FiWord) P3_bl);
3722	}
3723
3724	static struct _FiProg tmp114_assemble = {
3725	(FiFun) CF114_assemble,
3726	0L,
3727	0L,
3728	0L,
3729	0L
3730	};
3731
3732
3733	static void
3734	CF115_dissemble(FiEnv e1, FiSFlo P0_x, FiBool* R0, FiSInt* R1, FiWord*
3735	R2)
3736	{
3737	FiWord T2;
3738	FiSInt T1;
3739	FiBool T0;
3740	fiSFloDissemble((FiSFlo) P0_x, &T0, &T1, &T2);
3741	*R0 = T0;
3742	*R1 = T1;
3743	*R2 = T2;
3744	return ;
3745	}
3746
3747	static struct _FiProg tmp115_dissemble = {
3748	(FiFun) CF115_dissemble,
3749	0L,
3750	0L,
3751	0L,
3752	0L
3753	};
3754
3755
3756	static void
3757	CF116_dissemble(FiEnv e1, FiDFlo P0_x, FiBool* R0, FiSInt* R1, FiWord*
3758	R2, FiWord* R3)
3759	{
3760	FiWord T2, T3;
3761	FiSInt T1;
3762	FiBool T0;
3763	fiDFloDissemble((FiDFlo) P0_x, &T0, &T1, &T2, &T3);
3764	*R0 = T0;
3765	*R1 = T1;
3766	*R2 = T2;
3767	*R3 = T3;
3768	return ;
3769	}
3770
3771	static struct _FiProg tmp116_dissemble = {
3772	(FiFun) CF116_dissemble,
3773	0L,
3774	0L,
3775	0L,
3776	0L
3777	};
3778
3779
3780	static FiSFlo
3781	CF117_next(FiEnv e1, FiSFlo P0_x)
3782	{
3783	FiSFlo T0;
3784	fiSFLO_NEXT(T0, FiSFlo, P0_x)((T0) = (FiSFlo) fiSFloNext(P0_x));
3785	return T0;
3786	}
3787
3788	static struct _FiProg tmp117_next = {
3789	(FiFun) CF117_next,
3790	0L,
3791	0L,
3792	0L,
3793	0L
3794	};
3795
3796
3797	static FiDFlo
3798	CF118_next(FiEnv e1, FiDFlo P0_x)
3799	{
3800	FiDFlo T0;
3801	fiDFLO_NEXT(T0, FiDFlo, P0_x)((T0) = (FiDFlo) fiDFloNext(P0_x));
3802	return T0;
3803	}
3804
3805	static struct _FiProg tmp118_next = {
3806	(FiFun) CF118_next,
3807	0L,
3808	0L,
3809	0L,
3810	0L
3811	};
3812
3813
3814	static FiSFlo
3815	CF119_prev(FiEnv e1, FiSFlo P0_x)
3816	{
3817	FiSFlo T0;
3818	fiSFLO_PREV(T0, FiSFlo, P0_x)((T0) = (FiSFlo) fiSFloPrev(P0_x));
3819	return T0;
3820	}
3821
3822	static struct _FiProg tmp119_prev = {
3823	(FiFun) CF119_prev,
3824	0L,
3825	0L,
3826	0L,
3827	0L
3828	};
3829
3830
3831	static FiDFlo
3832	CF120_prev(FiEnv e1, FiDFlo P0_x)
3833	{
3834	FiDFlo T0;
3835	fiDFLO_PREV(T0, FiDFlo, P0_x)((T0) = (FiDFlo) fiDFloPrev(P0_x));
3836	return T0;
3837	}
3838
3839	static struct _FiProg tmp120_prev = {
3840	(FiFun) CF120_prev,
3841	0L,
3842	0L,
3843	0L,
3844	0L
3845	};
3846
3847
3848	static FiSInt
3849	CF121_Bzero(FiEnv e1)
3850	{
3851	FiSInt T0;
3852	FI_ROUND_ZERO(T0, FiSInt)((T0) = (FiSInt) 0);
3853	return T0;
3854	}
3855
3856	static struct _FiProg tmp121_Bzero = {
3857	(FiFun) CF121_Bzero,
3858	0L,
3859	0L,
3860	0L,
3861	0L
3862	};
3863
3864
3865	static FiSInt
3866	CF122_Bnearest(FiEnv e1)
3867	{
3868	FiSInt T0;
3869	FI_ROUND_NEAREST(T0, FiSInt)((T0) = (FiSInt) 1);
3870	return T0;
3871	}
3872
3873	static struct _FiProg tmp122_Bnearest = {
3874	(FiFun) CF122_Bnearest,
3875	0L,
3876	0L,
3877	0L,
3878	0L
3879	};
3880
3881
3882	static FiSInt
3883	CF123_Bup(FiEnv e1)
3884	{
3885	FiSInt T0;
3886	FI_ROUND_UP(T0, FiSInt)((T0) = (FiSInt) 2);
3887	return T0;
3888	}
3889
3890	static struct _FiProg tmp123_Bup = {
3891	(FiFun) CF123_Bup,
3892	0L,
3893	0L,
3894	0L,
3895	0L
3896	};
3897
3898
3899	static FiSInt
3900	CF124_Bdown(FiEnv e1)
3901	{
3902	FiSInt T0;
3903	FI_ROUND_DOWN(T0, FiSInt)((T0) = (FiSInt) 3);
3904	return T0;
3905	}
3906
3907	static struct _FiProg tmp124_Bdown = {
3908	(FiFun) CF124_Bdown,
3909	0L,
3910	0L,
3911	0L,
3912	0L
3913	};
3914
3915
3916	static FiSInt
3917	CF125_Bany(FiEnv e1)
3918	{
3919	FiSInt T0;
3920	FI_ROUND_DONT_CARE(T0, FiSInt)((T0) = (FiSInt) 4);
3921	return T0;
3922	}
3923
3924	static struct _FiProg tmp125_Bany = {
3925	(FiFun) CF125_Bany,
3926	0L,
3927	0L,
3928	0L,
3929	0L
3930	};
3931
3932
3933	static FiBInt
3934	CF126_round(FiEnv e1, FiSFlo P0_a, FiSInt P1_d)
3935	{
3936	return fiSFloRound((FiSFlo) P0_a, (FiSInt) P1_d);
3937	}
3938
3939	static struct _FiProg tmp126_round = {
3940	(FiFun) CF126_round,
3941	0L,
3942	0L,
3943	0L,
3944	0L
3945	};
3946
3947
3948	static FiBInt
3949	CF127_round(FiEnv e1, FiDFlo P0_a, FiSInt P1_d)
3950	{
3951	return fiDFloRound((FiDFlo) P0_a, (FiSInt) P1_d);
3952	}
3953
3954	static struct _FiProg tmp127_round = {
3955	(FiFun) CF127_round,
3956	0L,
3957	0L,
3958	0L,
3959	0L
3960	};
3961
3962
3963	static FiSFlo
3964	CF128_round_PLUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSInt P2_d)
3965	{
3966	FiSFlo T0;
3967	fiSFLO_R_PLUS(T0, FiSFlo, P0_a, P1_b, P2_d)((T0) = (FiSFlo) fiSFloRPlus(P0_a,P1_b,P2_d));
3968	return T0;
3969	}
3970
3971	static struct _FiProg tmp128_round_PLUS_ = {
3972	(FiFun) CF128_round_PLUS_,
3973	0L,
3974	0L,
3975	0L,
3976	0L
3977	};
3978
3979
3980	static FiDFlo
3981	CF129_round_PLUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiSInt P2_d)
3982	{
3983	return P0_a + P1_b;
3984	}
3985
3986	static struct _FiProg tmp129_round_PLUS_ = {
3987	(FiFun) CF129_round_PLUS_,
3988	0L,
3989	0L,
3990	0L,
3991	0L
3992	};
3993
3994
3995	static FiSFlo
3996	CF130_round_MINUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSInt P2_d)
3997	{
3998	FiSFlo T0;
3999	fiSFLO_R_MINUS(T0, FiSFlo, P0_a, P1_b, P2_d)((T0) = (FiSFlo) fiSFloRMinus(P0_a,P1_b,P2_d));
4000	return T0;
4001	}
4002
4003	static struct _FiProg tmp130_round_MINUS_ = {
4004	(FiFun) CF130_round_MINUS_,
4005	0L,
4006	0L,
4007	0L,
4008	0L
4009	};
4010
4011
4012	static FiDFlo
4013	CF131_round_MINUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiSInt P2_d)
4014	{
4015	FiDFlo T0;
4016	fiDFLO_R_MINUS(T0, FiDFlo, P0_a, P1_b, P2_d)((T0) = (FiDFlo) fiDFloRMinus(P0_a,P1_b,P2_d));
4017	return T0;
4018	}
4019
4020	static struct _FiProg tmp131_round_MINUS_ = {
4021	(FiFun) CF131_round_MINUS_,
4022	0L,
4023	0L,
4024	0L,
4025	0L
4026	};
4027
4028
4029	static FiSFlo
4030	CF132_round_STAR_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSInt P2_d)
4031	{
4032	FiSFlo T0;
4033	fiSFLO_R_TIMES(T0, FiSFlo, P0_a, P1_b, P2_d)((T0) = (FiSFlo) fiSFloRTimes(P0_a,P1_b,P2_d));
4034	return T0;
4035	}
4036
4037	static struct _FiProg tmp132_round_STAR_ = {
4038	(FiFun) CF132_round_STAR_,
4039	0L,
4040	0L,
4041	0L,
4042	0L
4043	};
4044
4045
4046	static FiDFlo
4047	CF133_round_STAR_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiSInt P2_d)
4048	{
4049	FiDFlo T0;
4050	fiDFLO_R_TIMES(T0, FiDFlo, P0_a, P1_b, P2_d)((T0) = (FiDFlo) fiDFloRTimes(P0_a,P1_b,P2_d));
4051	return T0;
4052	}
4053
4054	static struct _FiProg tmp133_round_STAR_ = {
4055	(FiFun) CF133_round_STAR_,
4056	0L,
4057	0L,
4058	0L,
4059	0L
4060	};
4061
4062
4063	static FiSFlo
4064	CF134_round_STAR__PLUS_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSFlo
4065	P2_c, FiSInt P3_d)
4066	{
4067	FiSFlo T0;
4068	fiSFLO_R_TIMES_PLUS(T0, FiSFlo, P0_a, P1_b, P2_c, P3_d)((T0) = (FiSFlo) fiSFloRTimesPlus(P0_a,P1_b,P2_c,P3_d));
4069	return T0;
4070	}
4071
4072	static struct _FiProg tmp134_round_STAR__PLUS_ = {
4073	(FiFun) CF134_round_STAR__PLUS_,
4074	0L,
4075	0L,
4076	0L,
4077	0L
4078	};
4079
4080
4081	static FiDFlo
4082	CF135_round_STAR__PLUS_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiDFlo
4083	P2_c, FiSInt P3_d)
4084	{
4085	FiDFlo T0;
4086	fiDFLO_R_TIMES_PLUS(T0, FiDFlo, P0_a, P1_b, P2_c, P3_d)((T0) = (FiDFlo) fiDFloRTimesPlus(P0_a,P1_b,P2_c,P3_d));
4087	return T0;
4088	}
4089
4090	static struct _FiProg tmp135_round_STAR__PLUS_ = {
4091	(FiFun) CF135_round_STAR__PLUS_,
4092	0L,
4093	0L,
4094	0L,
4095	0L
4096	};
4097
4098
4099	static FiSFlo
4100	CF136_round_SLASH_(FiEnv e1, FiSFlo P0_a, FiSFlo P1_b, FiSInt P2_d)
4101	{
4102	FiSFlo T0;
4103	fiSFLO_R_DIVIDE(T0, FiSFlo, P0_a, P1_b, P2_d)((T0) = (FiSFlo) fiSFloRDivide(P0_a,P1_b,P2_d));
4104	return T0;
4105	}
4106
4107	static struct _FiProg tmp136_round_SLASH_ = {
4108	(FiFun) CF136_round_SLASH_,
4109	0L,
4110	0L,
4111	0L,
4112	0L
4113	};
4114
4115
4116	static FiDFlo
4117	CF137_round_SLASH_(FiEnv e1, FiDFlo P0_a, FiDFlo P1_b, FiSInt P2_d)
4118	{
4119	FiDFlo T0;
4120	fiDFLO_R_DIVIDE(T0, FiDFlo, P0_a, P1_b, P2_d)((T0) = (FiDFlo) fiDFloRDivide(P0_a,P1_b,P2_d));
4121	return T0;
4122	}
4123
4124	static struct _FiProg tmp137_round_SLASH_ = {
4125	(FiFun) CF137_round_SLASH_,
4126	0L,
4127	0L,
4128	0L,
4129	0L
4130	};
4131
4132
4133	static FiBInt
4134	CF138_truncate(FiEnv e1, FiSFlo P0_a)
4135	{
4136	return fiSFloTruncate((FiSFlo) P0_a);
4137	}
4138
4139	static struct _FiProg tmp138_truncate = {
4140	(FiFun) CF138_truncate,
4141	0L,
4142	0L,
4143	0L,
4144	0L
4145	};
4146
4147
4148	static FiBInt
4149	CF139_truncate(FiEnv e1, FiDFlo P0_a)
4150	{
4151	return fiDFloTruncate((FiDFlo) P0_a);
4152	}
4153
4154	static struct _FiProg tmp139_truncate = {
4155	(FiFun) CF139_truncate,
4156	0L,
4157	0L,
4158	0L,
4159	0L
4160	};
4161
4162
4163	static FiSFlo
4164	CF140_fraction(FiEnv e1, FiSFlo P0_a)
4165	{
4166	return fiSFloFraction((FiSFlo) P0_a);
4167	}
4168
4169	static struct _FiProg tmp140_fraction = {
4170	(FiFun) CF140_fraction,
4171	0L,
4172	0L,
4173	0L,
4174	0L
4175	};
4176
4177
4178	static FiDFlo
4179	CF141_fraction(FiEnv e1, FiDFlo P0_a)
4180	{
4181	return fiDFloFraction((FiDFlo) P0_a);
4182	}
4183
4184	static struct _FiProg tmp141_fraction = {
4185	(FiFun) CF141_fraction,
4186	0L,
4187	0L,
4188	0L,
4189	0L
4190	};
4191
4192
4193	static FiDFlo
4194	CF142_convert(FiEnv e1, FiSFlo P0_a)
4195	{
4196	FiDFlo T0;
4197	fiSFLO_TO_DFLO(T0, FiDFlo, P0_a)((T0) = (FiDFlo) ((FiDFlo)(P0_a)));
4198	return T0;
4199	}
4200
4201	static struct _FiProg tmp142_convert = {
4202	(FiFun) CF142_convert,
4203	0L,
4204	0L,
4205	0L,
4206	0L
4207	};
4208
4209
4210	static FiSFlo
4211	CF143_convert(FiEnv e1, FiDFlo P0_a)
4212	{
4213	FiSFlo T0;
4214	fiDFLO_TO_SFLO(T0, FiSFlo, P0_a)((T0) = (FiSFlo) ((FiSFlo)(P0_a)));
4215	return T0;
4216	}
4217
4218	static struct _FiProg tmp143_convert = {
4219	(FiFun) CF143_convert,
4220	0L,
4221	0L,
4222	0L,
4223	0L
4224	};
4225
4226
4227	static FiSInt
4228	CF144_convert(FiEnv e1, FiByte P0_a)
4229	{
4230	FiSInt T0;
4231	fiBYTE_TO_SINT(T0, FiSInt, P0_a)((T0) = (FiSInt) ((FiSInt)(P0_a)));
4232	return T0;
4233	}
4234
4235	static struct _FiProg tmp144_convert = {
4236	(FiFun) CF144_convert,
4237	0L,
4238	0L,
4239	0L,
4240	0L
4241	};
4242
4243
4244	static FiByte
4245	CF145_convert(FiEnv e1, FiSInt P0_a)
4246	{
4247	FiByte T0;
4248	fiSINT_TO_BYTE(T0, FiByte, P0_a)((T0) = (FiByte) ((FiByte)(P0_a)));
4249	return T0;
4250	}
4251
4252	static struct _FiProg tmp145_convert = {
4253	(FiFun) CF145_convert,
4254	0L,
4255	0L,
4256	0L,
4257	0L
4258	};
4259
4260
4261	static FiSInt
4262	CF146_convert(FiEnv e1, FiHInt P0_a)
4263	{
4264	FiSInt T0;
4265	fiHINT_TO_SINT(T0, FiSInt, P0_a)((T0) = (FiSInt) ((FiSInt)(P0_a)));
4266	return T0;
4267	}
4268
4269	static struct _FiProg tmp146_convert = {
4270	(FiFun) CF146_convert,
4271	0L,
4272	0L,
4273	0L,
4274	0L
4275	};
4276
4277
4278	static FiHInt
4279	CF147_convert(FiEnv e1, FiSInt P0_a)
4280	{
4281	FiHInt T0;
4282	fiSINT_TO_HINT(T0, FiHInt, P0_a)((T0) = (FiHInt) ((FiHInt)(P0_a)));
4283	return T0;
4284	}
4285
4286	static struct _FiProg tmp147_convert = {
4287	(FiFun) CF147_convert,
4288	0L,
4289	0L,
4290	0L,
4291	0L
4292	};
4293
4294
4295	static FiBInt
4296	CF148_convert(FiEnv e1, FiSInt P0_a)
4297	{
4298	FiBInt T0;
4299	fiSINT_TO_BINT(T0, FiBInt, P0_a)((T0) = (FiBInt) fiSIntToBInt(P0_a));
4300	return T0;
4301	}
4302
4303	static struct _FiProg tmp148_convert = {
4304	(FiFun) CF148_convert,
4305	0L,
4306	0L,
4307	0L,
4308	0L
4309	};
4310
4311
4312	static FiSInt
4313	CF149_convert(FiEnv e1, FiBInt P0_a)
4314	{
4315	FiSInt T0;
4316	fiBINT_TO_SINT(T0, FiSInt, P0_a)((T0) = (FiSInt) fiBIntToSInt(P0_a));
4317	return T0;
4318	}
4319
4320	static struct _FiProg tmp149_convert = {
4321	(FiFun) CF149_convert,
4322	0L,
4323	0L,
4324	0L,
4325	0L
4326	};
4327
4328
4329	static FiSFlo
4330	CF150_convert(FiEnv e1, FiSInt P0_a)
4331	{
4332	return (FiSFlo) P0_a;
4333	}
4334
4335	static struct _FiProg tmp150_convert = {
4336	(FiFun) CF150_convert,
4337	0L,
4338	0L,
4339	0L,
4340	0L
4341	};
4342
4343
4344	static FiDFlo
4345	CF151_convert(FiEnv e1, FiSInt P0_a)
4346	{
4347	return (FiDFlo) P0_a;
4348	}
4349
4350	static struct _FiProg tmp151_convert = {
4351	(FiFun) CF151_convert,
4352	0L,
4353	0L,
4354	0L,
4355	0L
4356	};
4357
4358
4359	static FiSFlo
4360	CF152_convert(FiEnv e1, FiBInt P0_a)
4361	{
4362	FiSFlo T0;
4363	fiBINT_TO_SFLO(T0, FiSFlo, P0_a)((T0) = (FiSFlo) fiBIntToSFlo(P0_a));
4364	return T0;
4365	}
4366
4367	static struct _FiProg tmp152_convert = {
4368	(FiFun) CF152_convert,
4369	0L,
4370	0L,
4371	0L,
4372	0L
4373	};
4374
4375
4376	static FiDFlo
4377	CF153_convert(FiEnv e1, FiBInt P0_a)
4378	{
4379	FiDFlo T0;
4380	fiBINT_TO_DFLO(T0, FiDFlo, P0_a)((T0) = (FiDFlo) fiBIntToDFlo(P0_a));
4381	return T0;
4382	}
4383
4384	static struct _FiProg tmp153_convert = {
4385	(FiFun) CF153_convert,
4386	0L,
4387	0L,
4388	0L,
4389	0L
4390	};
4391
4392
4393	static FiSInt
4394	CF154_convert(FiEnv e1, FiPtr P0_a)
4395	{
4396	FiSInt T0;
4397	fiPTR_TO_SINT(T0, FiSInt, P0_a)((T0) = (FiSInt) ((FiSInt)(P0_a)));
4398	return T0;
4399	}
4400
4401	static struct _FiProg tmp154_convert = {
4402	(FiFun) CF154_convert,
4403	0L,
4404	0L,
4405	0L,
4406	0L
4407	};
4408
4409
4410	static FiPtr
4411	CF155_convert(FiEnv e1, FiSInt P0_a)
4412	{
4413	FiPtr T0;
4414	fiSINT_TO_PTR(T0, FiPtr, P0_a)((T0) = (FiPtr) ((FiPtr) (P0_a)));
4415	return T0;
4416	}
4417
4418	static struct _FiProg tmp155_convert = {
4419	(FiFun) CF155_convert,
4420	0L,
4421	0L,
4422	0L,
4423	0L
4424	};
4425
4426
4427	static FiSFlo
4428	CF156_convert(FiEnv e1, FiPtr *P0_a)
4429	{
4430	FiSFlo T0;
4431	fiARR_TO_SFLO(T0, FiSFlo, P0_a)((T0) = (FiSFlo) fiArrToSFlo((FiArr)P0_a));
4432	return T0;
4433	}
4434
4435	static struct _FiProg tmp156_convert = {
4436	(FiFun) CF156_convert,
4437	0L,
4438	0L,
4439	0L,
4440	0L
4441	};
4442
4443
4444	static FiDFlo
4445	CF157_convert(FiEnv e1, FiPtr *P0_a)
4446	{
4447	FiDFlo T0;
4448	fiARR_TO_DFLO(T0, FiDFlo, P0_a)((T0) = (FiDFlo) fiArrToDFlo((FiArr)P0_a));
4449	return T0;
4450	}
4451
4452	static struct _FiProg tmp157_convert = {
4453	(FiFun) CF157_convert,
4454	0L,
4455	0L,
4456	0L,
4457	0L
4458	};
4459
4460
4461	static FiSInt
4462	CF158_convert(FiEnv e1, FiPtr *P0_a)
4463	{
4464	FiSInt T0;
4465	fiARR_TO_SINT(T0, FiSInt, P0_a)((T0) = (FiSInt) fiArrToSInt((FiArr)P0_a));
4466	return T0;
4467	}
4468
4469	static struct _FiProg tmp158_convert = {
4470	(FiFun) CF158_convert,
4471	0L,
4472	0L,
4473	0L,
4474	0L
4475	};
4476
4477
4478	static FiBInt
4479	CF159_convert(FiEnv e1, FiPtr *P0_a)
4480	{
4481	FiBInt T0;
4482	fiARR_TO_BINT(T0, FiBInt, P0_a)((T0) = (FiBInt) fiArrToBInt((FiArr)P0_a));
4483	return T0;
4484	}
4485
4486	static struct _FiProg tmp159_convert = {
4487	(FiFun) CF159_convert,
4488	0L,
4489	0L,
4490	0L,
4491	0L
4492	};
4493
4494
4495	static FiSInt
4496	CF160_format(FiEnv e1, FiSInt P0_a, FiPtr *P1_s, FiSInt P2_n)
4497	{
4498	FiSInt T0;
4499	fiFORMAT_SINT(T0, FiSInt, P0_a, P1_s, P2_n)((T0) = (FiSInt) fiFormatSInt(P0_a,(FiArr)P1_s,P2_n));
4500	return T0;
4501	}
4502
4503	static struct _FiProg tmp160_format = {
4504	(FiFun) CF160_format,
4505	0L,
4506	0L,
4507	0L,
4508	0L
4509	};
4510
4511
4512	static FiSInt
4513	CF161_format(FiEnv e1, FiBInt P0_a, FiPtr *P1_s, FiSInt P2_n)
4514	{
4515	FiSInt T0;
4516	fiFORMAT_BINT(T0, FiSInt, P0_a, P1_s, P2_n)((T0) = (FiSInt) fiFormatBInt(P0_a,(FiArr)P1_s,P2_n));
4517	return T0;
4518	}
4519
4520	static struct _FiProg tmp161_format = {
4521	(FiFun) CF161_format,
4522	0L,
4523	0L,
4524	0L,
4525	0L
4526	};
4527
4528
4529	static FiSInt
4530	CF162_format(FiEnv e1, FiSFlo P0_a, FiPtr *P1_s, FiSInt P2_n)
4531	{
4532	FiSInt T0;
4533	fiFORMAT_SFLO(T0, FiSInt, P0_a, P1_s, P2_n)((T0) = (FiSInt) fiFormatSFlo(P0_a,(FiArr)P1_s,P2_n));
4534	return T0;
4535	}
4536
4537	static struct _FiProg tmp162_format = {
4538	(FiFun) CF162_format,
4539	0L,
4540	0L,
4541	0L,
4542	0L
4543	};
4544
4545
4546	static FiSInt
4547	CF163_format(FiEnv e1, FiDFlo P0_a, FiPtr *P1_s, FiSInt P2_n)
4548	{
4549	FiSInt T0;
4550	fiFORMAT_DFLO(T0, FiSInt, P0_a, P1_s, P2_n)((T0) = (FiSInt) fiFormatDFlo(P0_a,(FiArr)P1_s,P2_n));
4551	return T0;
4552	}
4553
4554	static struct _FiProg tmp163_format = {
4555	(FiFun) CF163_format,
4556	0L,
4557	0L,
4558	0L,
4559	0L
4560	};
4561
4562
4563	static void
4564	CF164_scan(FiEnv e1, FiPtr P0_s, FiSInt P1_n, FiSFlo R0, FiSInt* R1)
4565	{
4566	FiSInt T1;
4567	FiSFlo T0;
4568	fiScanSFlo((FiPtr) P0_s, (FiSInt) P1_n, &T0, &T1);
4569	*R0 = T0;
4570	*R1 = T1;
4571	return ;
4572	}
4573
4574	static struct _FiProg tmp164_scan = {
4575	(FiFun) CF164_scan,
4576	0L,
4577	0L,
4578	0L,
4579	0L
4580	};
4581
4582
4583	static void
4584	CF165_scan(FiEnv e1, FiPtr P0_s, FiSInt P1_n, FiDFlo R0, FiSInt* R1)
4585	{
4586	FiSInt T1;
4587	FiDFlo T0;
4588	fiScanDFlo((FiPtr) P0_s, (FiSInt) P1_n, &T0, &T1);
4589	*R0 = T0;
4590	*R1 = T1;
4591	return ;
4592	}
4593
4594	static struct _FiProg tmp165_scan = {
4595	(FiFun) CF165_scan,
4596	0L,
4597	0L,
4598	0L,
4599	0L
4600	};
4601
4602
4603	static void
4604	CF166_scan(FiEnv e1, FiPtr P0_s, FiSInt P1_n, FiSInt R0, FiSInt* R1)
4605	{
4606	FiSInt T0, T1;
4607	fiScanSInt((FiPtr) P0_s, (FiSInt) P1_n, &T0, &T1);
4608	*R0 = T0;
4609	*R1 = T1;
4610	return ;
4611	}
4612
4613	static struct _FiProg tmp166_scan = {
4614	(FiFun) CF166_scan,
4615	0L,
4616	0L,
4617	0L,
4618	0L
4619	};
4620
4621
4622	static void
4623	CF167_scan(FiEnv e1, FiPtr P0_s, FiSInt P1_n, FiBInt R0, FiSInt* R1)
4624	{
4625	FiSInt T1;
4626	FiBInt T0;
4627	fiScanBInt((FiPtr) P0_s, (FiSInt) P1_n, &T0, &T1);
4628	*R0 = T0;
4629	*R1 = T1;
4630	return ;
4631	}
4632
4633	static struct _FiProg tmp167_scan = {
4634	(FiFun) CF167_scan,
4635	0L,
4636	0L,
4637	0L,
4638	0L
4639	};
4640
4641
4642	static FiSInt
4643	CF168_RTE(FiEnv e1)
4644	{
4645	return fiPlatformRTE();
4646	}
4647
4648	static struct _FiProg tmp168_RTE = {
4649	(FiFun) CF168_RTE,
4650	0L,
4651	0L,
4652	0L,
4653	0L
4654	};
4655
4656
4657	static FiSInt
4658	CF169_OS(FiEnv e1)
4659	{
4660	return fiPlatformOS();
4661	}
4662
4663	static struct _FiProg tmp169_OS = {
4664	(FiFun) CF169_OS,
4665	0L,
4666	0L,
4667	0L,
4668	0L
4669	};
4670
4671
4672	static FiWord
4673	CF170_halt(FiEnv e1, FiSInt P0_rc)
4674	{
4675	return fiHalt((FiSInt) P0_rc);
4676	}
4677
4678	static struct _FiProg tmp170_halt = {
4679	(FiFun) CF170_halt,
4680	0L,
4681	0L,
4682	0L,
4683	0L
4684	};
4685
4686
4687	static FiClos
4688	CF171_array(FiEnv e1, FiWord P0_E)
4689	{
4690	FiEnv e0;
4691	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4692	return fiClosMake(e0, C172_array)fiClosMakeFun(e0, (FiProg) (C172_array));
4693	}
4694
4695	static struct _FiProg tmp171_array = {
4696	(FiFun) CF171_array,
4697	0L,
4698	0L,
4699	0L,
4700	0L
4701	};
4702
4703
4704	static FiPtr
4705	CF172_array(FiEnv e1, FiWord P0_e, FiSInt P1_n)
4706	{
4707	return (FiPtr) fiArrNew_Word(P1_n);
4708	}
4709
4710	static struct _FiProg tmp172_array = {
4711	(FiFun) CF172_array,
4712	0L,
4713	0L,
4714	0L,
4715	0L
4716	};
4717
4718
4719	static FiClos
4720	CF173_get(FiEnv e1, FiWord P0_E)
4721	{
4722	FiEnv e0;
4723	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4724	return fiClosMake(e0, C174_get)fiClosMakeFun(e0, (FiProg) (C174_get));
4725	}
4726
4727	static struct _FiProg tmp173_get = {
4728	(FiFun) CF173_get,
4729	0L,
4730	0L,
4731	0L,
4732	0L
4733	};
4734
4735
4736	static FiWord
4737	CF174_get(FiEnv e1, FiPtr *P0_a, FiSInt P1_n)
4738	{
4739	return ((FiWord*) P0_a)[P1_n];
4740	}
4741
4742	static struct _FiProg tmp174_get = {
4743	(FiFun) CF174_get,
4744	0L,
4745	0L,
4746	0L,
4747	0L
4748	};
4749
4750
4751	static FiClos
4752	CF175_set_BANG_(FiEnv e1, FiWord P0_E)
4753	{
4754	FiEnv e0;
4755	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4756	return fiClosMake(e0, C176_set_BANG_)fiClosMakeFun(e0, (FiProg) (C176_set_BANG_));
4757	}
4758
4759	static struct _FiProg tmp175_set_BANG_ = {
4760	(FiFun) CF175_set_BANG_,
4761	0L,
4762	0L,
4763	0L,
4764	0L
4765	};
4766
4767
4768	static FiWord
4769	CF176_set_BANG_(FiEnv e1, FiPtr *P0_a, FiSInt P1_n, FiWord P2_e)
4770	{
4771	((FiWord*) P0_a)[P1_n] = P2_e;
4772	return ((FiWord*) P0_a)[P1_n];
4773	}
4774
4775	static struct _FiProg tmp176_set_BANG_ = {
4776	(FiFun) CF176_set_BANG_,
4777	0L,
4778	0L,
4779	0L,
4780	0L
4781	};
4782
4783
4784	static void
4785	CF177_dispose_BANG_(FiEnv e1, FiPtr *P0_a)
4786	{
4787	fiFree((FiPtr) P0_a);
4788	return ;
4789	}
4790
4791	static struct _FiProg tmp177_dispose_BANG_ = {
4792	(FiFun) CF177_dispose_BANG_,
4793	0L,
4794	0L,
4795	0L,
4796	0L
4797	};
4798
4799
4800	static void
4801	CF178_dispose_BANG_(FiEnv e1, FiBInt P0_b)
4802	{
4803	fiFree((FiPtr) P0_b);
4804	return ;
4805	}
4806
4807	static struct _FiProg tmp178_dispose_BANG_ = {
4808	(FiFun) CF178_dispose_BANG_,
4809	0L,
4810	0L,
4811	0L,
4812	0L
4813	};
4814
4815
4816	static FiClos
4817	CF179_addLevel0(FiEnv e1, FiWord P0_domain)
4818	{
4819	FiWord T0;
4820	FiEnv e3, e2, e0;
4821	PFmt33 l3;
4822	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4823	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
4824	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
4825	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
4826	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Bool")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Bool"));
4827	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
4828	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,988818480L ))
4829	988818480L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,988818480L ));
4830	return fiClosMake(e0, C180_addLevel1)fiClosMakeFun(e0, (FiProg) (C180_addLevel1));
4831	}
4832
4833	static struct _FiProg tmp179_addLevel0 = {
4834	(FiFun) CF179_addLevel0,
4835	0L,
4836	0L,
4837	0L,
4838	0L
4839	};
4840
4841
4842	static FiWord
4843	CF180_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
4844	{
4845	FiWord T0, T1, *T2, T6;
4846	PFmt5 T3, T4, T5;
4847	FiEnv e4, e3, e2;
4848	PFmt33 l4;
4849	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
4850	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
4851	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
4852	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
4853	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
4854	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
4855	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
4856	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
4857	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
4858	T3->X0_size = 0L;
4859	T3->X1_nsize = 0L;
4860	T3->X2_values = (FiWord) T0;
4861	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
4862	T4->X0_size = 0L;
4863	T4->X1_nsize = 0L;
4864	T4->X2_values = (FiWord) T1;
4865	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
4866	T5->X0_size = 0L;
4867	T5->X1_nsize = 0L;
4868	T5->X2_values = (FiWord) T2;
4869	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
4870	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
4871	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
4872	return P0_domain;
4873	}
4874
4875	static struct _FiProg tmp180_addLevel1 = {
4876	(FiFun) CF180_addLevel1,
4877	0L,
4878	0L,
4879	0L,
4880	0L
4881	};
4882
4883
4884	static FiClos
4885	CF181_addLevel0(FiEnv e1, FiWord P0_domain)
4886	{
4887	FiWord T0;
4888	FiEnv e3, e2, e0;
4889	PFmt33 l3;
4890	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4891	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
4892	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
4893	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
4894	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "XByte")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"XByte"));
4895	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
4896	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,295223545L ))
4897	295223545L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,295223545L ));
4898	return fiClosMake(e0, C182_addLevel1)fiClosMakeFun(e0, (FiProg) (C182_addLevel1));
4899	}
4900
4901	static struct _FiProg tmp181_addLevel0 = {
4902	(FiFun) CF181_addLevel0,
4903	0L,
4904	0L,
4905	0L,
4906	0L
4907	};
4908
4909
4910	static FiWord
4911	CF182_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
4912	{
4913	FiWord T0, T1, *T2, T6;
4914	PFmt5 T3, T4, T5;
4915	FiEnv e4, e3, e2;
4916	PFmt33 l4;
4917	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
4918	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
4919	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
4920	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
4921	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
4922	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
4923	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
4924	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
4925	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
4926	T3->X0_size = 0L;
4927	T3->X1_nsize = 0L;
4928	T3->X2_values = (FiWord) T0;
4929	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
4930	T4->X0_size = 0L;
4931	T4->X1_nsize = 0L;
4932	T4->X2_values = (FiWord) T1;
4933	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
4934	T5->X0_size = 0L;
4935	T5->X1_nsize = 0L;
4936	T5->X2_values = (FiWord) T2;
4937	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
4938	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
4939	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
4940	return P0_domain;
4941	}
4942
4943	static struct _FiProg tmp182_addLevel1 = {
4944	(FiFun) CF182_addLevel1,
4945	0L,
4946	0L,
4947	0L,
4948	0L
4949	};
4950
4951
4952	static FiClos
4953	CF183_addLevel0(FiEnv e1, FiWord P0_domain)
4954	{
4955	FiWord T0;
4956	FiEnv e3, e2, e0;
4957	PFmt33 l3;
4958	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
4959	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
4960	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
4961	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
4962	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "HInt")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"HInt"));
4963	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
4964	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,208444183L ))
4965	208444183L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,208444183L ));
4966	return fiClosMake(e0, C184_addLevel1)fiClosMakeFun(e0, (FiProg) (C184_addLevel1));
4967	}
4968
4969	static struct _FiProg tmp183_addLevel0 = {
4970	(FiFun) CF183_addLevel0,
4971	0L,
4972	0L,
4973	0L,
4974	0L
4975	};
4976
4977
4978	static FiWord
4979	CF184_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
4980	{
4981	FiWord T0, T1, *T2, T6;
4982	PFmt5 T3, T4, T5;
4983	FiEnv e4, e3, e2;
4984	PFmt33 l4;
4985	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
4986	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
4987	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
4988	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
4989	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
4990	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
4991	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
4992	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
4993	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
4994	T3->X0_size = 0L;
4995	T3->X1_nsize = 0L;
4996	T3->X2_values = (FiWord) T0;
4997	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
4998	T4->X0_size = 0L;
4999	T4->X1_nsize = 0L;
5000	T4->X2_values = (FiWord) T1;
5001	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5002	T5->X0_size = 0L;
5003	T5->X1_nsize = 0L;
5004	T5->X2_values = (FiWord) T2;
5005	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5006	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5007	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5008	return P0_domain;
5009	}
5010
5011	static struct _FiProg tmp184_addLevel1 = {
5012	(FiFun) CF184_addLevel1,
5013	0L,
5014	0L,
5015	0L,
5016	0L
5017	};
5018
5019
5020	static FiClos
5021	CF185_addLevel0(FiEnv e1, FiWord P0_domain)
5022	{
5023	FiWord T0;
5024	FiEnv e3, e2, e0;
5025	PFmt33 l3;
5026	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5027	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5028	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5029	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5030	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "SInt")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"SInt"));
5031	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5032	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,594651170L ))
5033	594651170L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,594651170L ));
5034	return fiClosMake(e0, C186_addLevel1)fiClosMakeFun(e0, (FiProg) (C186_addLevel1));
5035	}
5036
5037	static struct _FiProg tmp185_addLevel0 = {
5038	(FiFun) CF185_addLevel0,
5039	0L,
5040	0L,
5041	0L,
5042	0L
5043	};
5044
5045
5046	static FiWord
5047	CF186_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5048	{
5049	FiWord T0, T1, *T2, T6;
5050	PFmt5 T3, T4, T5;
5051	FiEnv e4, e3, e2;
5052	PFmt33 l4;
5053	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5054	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5055	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5056	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5057	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5058	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5059	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5060	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5061	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5062	T3->X0_size = 0L;
5063	T3->X1_nsize = 0L;
5064	T3->X2_values = (FiWord) T0;
5065	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5066	T4->X0_size = 0L;
5067	T4->X1_nsize = 0L;
5068	T4->X2_values = (FiWord) T1;
5069	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5070	T5->X0_size = 0L;
5071	T5->X1_nsize = 0L;
5072	T5->X2_values = (FiWord) T2;
5073	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5074	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5075	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5076	return P0_domain;
5077	}
5078
5079	static struct _FiProg tmp186_addLevel1 = {
5080	(FiFun) CF186_addLevel1,
5081	0L,
5082	0L,
5083	0L,
5084	0L
5085	};
5086
5087
5088	static FiClos
5089	CF187_addLevel0(FiEnv e1, FiWord P0_domain)
5090	{
5091	FiWord T0;
5092	FiEnv e3, e2, e0;
5093	PFmt33 l3;
5094	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5095	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5096	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5097	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
	Value stored to 'l3' is never read
5098	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "BInt")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"BInt"));
5099	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5100	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,979554577L ))
5101	979554577L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,979554577L ));
5102	return fiClosMake(e0, C188_addLevel1)fiClosMakeFun(e0, (FiProg) (C188_addLevel1));
5103	}
5104
5105	static struct _FiProg tmp187_addLevel0 = {
5106	(FiFun) CF187_addLevel0,
5107	0L,
5108	0L,
5109	0L,
5110	0L
5111	};
5112
5113
5114	static FiWord
5115	CF188_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5116	{
5117	FiWord T0, T1, *T2, T6;
5118	PFmt5 T3, T4, T5;
5119	FiEnv e4, e3, e2;
5120	PFmt33 l4;
5121	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5122	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5123	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5124	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5125	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5126	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5127	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5128	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5129	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5130	T3->X0_size = 0L;
5131	T3->X1_nsize = 0L;
5132	T3->X2_values = (FiWord) T0;
5133	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5134	T4->X0_size = 0L;
5135	T4->X1_nsize = 0L;
5136	T4->X2_values = (FiWord) T1;
5137	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5138	T5->X0_size = 0L;
5139	T5->X1_nsize = 0L;
5140	T5->X2_values = (FiWord) T2;
5141	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5142	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5143	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5144	return P0_domain;
5145	}
5146
5147	static struct _FiProg tmp188_addLevel1 = {
5148	(FiFun) CF188_addLevel1,
5149	0L,
5150	0L,
5151	0L,
5152	0L
5153	};
5154
5155
5156	static FiClos
5157	CF189_addLevel0(FiEnv e1, FiWord P0_domain)
5158	{
5159	FiWord T0;
5160	FiEnv e3, e2, e0;
5161	PFmt33 l3;
5162	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5163	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5164	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5165	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5166	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Char")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Char"));
5167	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5168	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,321172770L ))
5169	321172770L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,321172770L ));
5170	return fiClosMake(e0, C190_addLevel1)fiClosMakeFun(e0, (FiProg) (C190_addLevel1));
5171	}
5172
5173	static struct _FiProg tmp189_addLevel0 = {
5174	(FiFun) CF189_addLevel0,
5175	0L,
5176	0L,
5177	0L,
5178	0L
5179	};
5180
5181
5182	static FiWord
5183	CF190_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5184	{
5185	FiWord T0, T1, *T2, T6;
5186	PFmt5 T3, T4, T5;
5187	FiEnv e4, e3, e2;
5188	PFmt33 l4;
5189	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5190	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5191	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5192	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5193	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5194	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5195	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5196	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5197	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5198	T3->X0_size = 0L;
5199	T3->X1_nsize = 0L;
5200	T3->X2_values = (FiWord) T0;
5201	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5202	T4->X0_size = 0L;
5203	T4->X1_nsize = 0L;
5204	T4->X2_values = (FiWord) T1;
5205	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5206	T5->X0_size = 0L;
5207	T5->X1_nsize = 0L;
5208	T5->X2_values = (FiWord) T2;
5209	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5210	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5211	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5212	return P0_domain;
5213	}
5214
5215	static struct _FiProg tmp190_addLevel1 = {
5216	(FiFun) CF190_addLevel1,
5217	0L,
5218	0L,
5219	0L,
5220	0L
5221	};
5222
5223
5224	static FiClos
5225	CF191_addLevel0(FiEnv e1, FiWord P0_domain)
5226	{
5227	FiWord T0;
5228	FiEnv e3, e2, e0;
5229	PFmt33 l3;
5230	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5231	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5232	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5233	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5234	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "SFlo")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"SFlo"));
5235	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5236	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,592883736L ))
5237	592883736L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,592883736L ));
5238	return fiClosMake(e0, C192_addLevel1)fiClosMakeFun(e0, (FiProg) (C192_addLevel1));
5239	}
5240
5241	static struct _FiProg tmp191_addLevel0 = {
5242	(FiFun) CF191_addLevel0,
5243	0L,
5244	0L,
5245	0L,
5246	0L
5247	};
5248
5249
5250	static FiWord
5251	CF192_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5252	{
5253	FiWord T0, T1, *T2, T6;
5254	PFmt5 T3, T4, T5;
5255	FiEnv e4, e3, e2;
5256	PFmt33 l4;
5257	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5258	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5259	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5260	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5261	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5262	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5263	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5264	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5265	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5266	T3->X0_size = 0L;
5267	T3->X1_nsize = 0L;
5268	T3->X2_values = (FiWord) T0;
5269	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5270	T4->X0_size = 0L;
5271	T4->X1_nsize = 0L;
5272	T4->X2_values = (FiWord) T1;
5273	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5274	T5->X0_size = 0L;
5275	T5->X1_nsize = 0L;
5276	T5->X2_values = (FiWord) T2;
5277	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5278	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5279	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5280	return P0_domain;
5281	}
5282
5283	static struct _FiProg tmp192_addLevel1 = {
5284	(FiFun) CF192_addLevel1,
5285	0L,
5286	0L,
5287	0L,
5288	0L
5289	};
5290
5291
5292	static FiClos
5293	CF193_addLevel0(FiEnv e1, FiWord P0_domain)
5294	{
5295	FiWord T0;
5296	FiEnv e3, e2, e0;
5297	PFmt33 l3;
5298	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5299	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5300	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5301	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5302	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "DFlo")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"DFlo"));
5303	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5304	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,298204937L ))
5305	298204937L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,298204937L ));
5306	return fiClosMake(e0, C194_addLevel1)fiClosMakeFun(e0, (FiProg) (C194_addLevel1));
5307	}
5308
5309	static struct _FiProg tmp193_addLevel0 = {
5310	(FiFun) CF193_addLevel0,
5311	0L,
5312	0L,
5313	0L,
5314	0L
5315	};
5316
5317
5318	static FiWord
5319	CF194_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5320	{
5321	FiWord T0, T1, *T2, T6;
5322	PFmt5 T3, T4, T5;
5323	FiEnv e4, e3, e2;
5324	PFmt33 l4;
5325	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5326	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5327	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5328	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5329	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5330	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5331	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5332	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5333	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5334	T3->X0_size = 0L;
5335	T3->X1_nsize = 0L;
5336	T3->X2_values = (FiWord) T0;
5337	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5338	T4->X0_size = 0L;
5339	T4->X1_nsize = 0L;
5340	T4->X2_values = (FiWord) T1;
5341	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5342	T5->X0_size = 0L;
5343	T5->X1_nsize = 0L;
5344	T5->X2_values = (FiWord) T2;
5345	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5346	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5347	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5348	return P0_domain;
5349	}
5350
5351	static struct _FiProg tmp194_addLevel1 = {
5352	(FiFun) CF194_addLevel1,
5353	0L,
5354	0L,
5355	0L,
5356	0L
5357	};
5358
5359
5360	static FiClos
5361	CF195_addLevel0(FiEnv e1, FiWord P0_domain)
5362	{
5363	FiWord T0;
5364	FiEnv e3, e2, e0;
5365	PFmt33 l3;
5366	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5367	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5368	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5369	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5370	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Nil")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Nil"));
5371	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5372	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,316428126L ))
5373	316428126L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,316428126L ));
5374	return fiClosMake(e0, C196_addLevel1)fiClosMakeFun(e0, (FiProg) (C196_addLevel1));
5375	}
5376
5377	static struct _FiProg tmp195_addLevel0 = {
5378	(FiFun) CF195_addLevel0,
5379	0L,
5380	0L,
5381	0L,
5382	0L
5383	};
5384
5385
5386	static FiWord
5387	CF196_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5388	{
5389	FiWord T0, T1, *T2, T6;
5390	PFmt5 T3, T4, T5;
5391	FiEnv e4, e3, e2;
5392	PFmt33 l4;
5393	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5394	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5395	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5396	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5397	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5398	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5399	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5400	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5401	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5402	T3->X0_size = 0L;
5403	T3->X1_nsize = 0L;
5404	T3->X2_values = (FiWord) T0;
5405	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5406	T4->X0_size = 0L;
5407	T4->X1_nsize = 0L;
5408	T4->X2_values = (FiWord) T1;
5409	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5410	T5->X0_size = 0L;
5411	T5->X1_nsize = 0L;
5412	T5->X2_values = (FiWord) T2;
5413	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5414	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5415	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5416	return P0_domain;
5417	}
5418
5419	static struct _FiProg tmp196_addLevel1 = {
5420	(FiFun) CF196_addLevel1,
5421	0L,
5422	0L,
5423	0L,
5424	0L
5425	};
5426
5427
5428	static FiClos
5429	CF197_addLevel0(FiEnv e1, FiWord P0_domain)
5430	{
5431	FiWord T0;
5432	FiEnv e3, e2, e0;
5433	PFmt33 l3;
5434	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5435	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5436	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5437	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5438	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Arr")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Arr"));
5439	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5440	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,312950368L ))
5441	312950368L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,312950368L ));
5442	return fiClosMake(e0, C198_addLevel1)fiClosMakeFun(e0, (FiProg) (C198_addLevel1));
5443	}
5444
5445	static struct _FiProg tmp197_addLevel0 = {
5446	(FiFun) CF197_addLevel0,
5447	0L,
5448	0L,
5449	0L,
5450	0L
5451	};
5452
5453
5454	static FiWord
5455	CF198_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5456	{
5457	FiWord T0, T1, *T2, T6;
5458	PFmt5 T3, T4, T5;
5459	FiEnv e4, e3, e2;
5460	PFmt33 l4;
5461	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5462	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5463	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5464	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5465	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5466	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5467	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5468	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5469	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5470	T3->X0_size = 0L;
5471	T3->X1_nsize = 0L;
5472	T3->X2_values = (FiWord) T0;
5473	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5474	T4->X0_size = 0L;
5475	T4->X1_nsize = 0L;
5476	T4->X2_values = (FiWord) T1;
5477	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5478	T5->X0_size = 0L;
5479	T5->X1_nsize = 0L;
5480	T5->X2_values = (FiWord) T2;
5481	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5482	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5483	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5484	return P0_domain;
5485	}
5486
5487	static struct _FiProg tmp198_addLevel1 = {
5488	(FiFun) CF198_addLevel1,
5489	0L,
5490	0L,
5491	0L,
5492	0L
5493	};
5494
5495
5496	static FiClos
5497	CF199_addLevel0(FiEnv e1, FiWord P0_domain)
5498	{
5499	FiWord T0;
5500	FiEnv e3, e2, e0;
5501	PFmt33 l3;
5502	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5503	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5504	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5505	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5506	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Rec")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Rec"));
5507	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5508	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,316169045L ))
5509	316169045L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,316169045L ));
5510	return fiClosMake(e0, C200_addLevel1)fiClosMakeFun(e0, (FiProg) (C200_addLevel1));
5511	}
5512
5513	static struct _FiProg tmp199_addLevel0 = {
5514	(FiFun) CF199_addLevel0,
5515	0L,
5516	0L,
5517	0L,
5518	0L
5519	};
5520
5521
5522	static FiWord
5523	CF200_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5524	{
5525	FiWord T0, T1, *T2, T6;
5526	PFmt5 T3, T4, T5;
5527	FiEnv e4, e3, e2;
5528	PFmt33 l4;
5529	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5530	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5531	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5532	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5533	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5534	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5535	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5536	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5537	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5538	T3->X0_size = 0L;
5539	T3->X1_nsize = 0L;
5540	T3->X2_values = (FiWord) T0;
5541	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5542	T4->X0_size = 0L;
5543	T4->X1_nsize = 0L;
5544	T4->X2_values = (FiWord) T1;
5545	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5546	T5->X0_size = 0L;
5547	T5->X1_nsize = 0L;
5548	T5->X2_values = (FiWord) T2;
5549	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5550	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5551	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5552	return P0_domain;
5553	}
5554
5555	static struct _FiProg tmp200_addLevel1 = {
5556	(FiFun) CF200_addLevel1,
5557	0L,
5558	0L,
5559	0L,
5560	0L
5561	};
5562
5563
5564	static FiClos
5565	CF201_addLevel0(FiEnv e1, FiWord P0_domain)
5566	{
5567	FiWord T0;
5568	FiEnv e3, e2, e0;
5569	PFmt33 l3;
5570	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5571	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5572	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5573	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5574	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Ptr")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Ptr"));
5575	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5576	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,316039793L ))
5577	316039793L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,316039793L ));
5578	return fiClosMake(e0, C202_addLevel1)fiClosMakeFun(e0, (FiProg) (C202_addLevel1));
5579	}
5580
5581	static struct _FiProg tmp201_addLevel0 = {
5582	(FiFun) CF201_addLevel0,
5583	0L,
5584	0L,
5585	0L,
5586	0L
5587	};
5588
5589
5590	static FiWord
5591	CF202_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5592	{
5593	FiWord T0, T1, *T2, T6;
5594	PFmt5 T3, T4, T5;
5595	FiEnv e4, e3, e2;
5596	PFmt33 l4;
5597	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5598	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5599	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5600	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5601	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5602	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5603	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5604	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5605	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5606	T3->X0_size = 0L;
5607	T3->X1_nsize = 0L;
5608	T3->X2_values = (FiWord) T0;
5609	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5610	T4->X0_size = 0L;
5611	T4->X1_nsize = 0L;
5612	T4->X2_values = (FiWord) T1;
5613	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5614	T5->X0_size = 0L;
5615	T5->X1_nsize = 0L;
5616	T5->X2_values = (FiWord) T2;
5617	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5618	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5619	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5620	return P0_domain;
5621	}
5622
5623	static struct _FiProg tmp202_addLevel1 = {
5624	(FiFun) CF202_addLevel1,
5625	0L,
5626	0L,
5627	0L,
5628	0L
5629	};
5630
5631
5632	static FiClos
5633	CF203_addLevel0(FiEnv e1, FiWord P0_domain)
5634	{
5635	FiWord T0;
5636	FiEnv e3, e2, e0;
5637	PFmt33 l3;
5638	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
5639	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5640	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5641	l3 = (PFmt33) fiEnvLevel(e3)((FiEnv) (e3)->level);
5642	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "Word")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"Word"));
5643	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
5644	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,530526272L ))
5645	530526272L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,530526272L ));
5646	return fiClosMake(e0, C204_addLevel1)fiClosMakeFun(e0, (FiProg) (C204_addLevel1));
5647	}
5648
5649	static struct _FiProg tmp203_addLevel0 = {
5650	(FiFun) CF203_addLevel0,
5651	0L,
5652	0L,
5653	0L,
5654	0L
5655	};
5656
5657
5658	static FiWord
5659	CF204_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
5660	{
5661	FiWord T0, T1, *T2, T6;
5662	PFmt5 T3, T4, T5;
5663	FiEnv e4, e3, e2;
5664	PFmt33 l4;
5665	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
5666	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
5667	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
5668	l4 = (PFmt33) fiEnvLevel(e4)((FiEnv) (e4)->level);
5669	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
5670	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
5671	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
5672	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
5673	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5674	T3->X0_size = 0L;
5675	T3->X1_nsize = 0L;
5676	T3->X2_values = (FiWord) T0;
5677	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5678	T4->X0_size = 0L;
5679	T4->X1_nsize = 0L;
5680	T4->X2_values = (FiWord) T1;
5681	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
5682	T5->X0_size = 0L;
5683	T5->X1_nsize = 0L;
5684	T5->X2_values = (FiWord) T2;
5685	fiCCall4(void, (pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((((void ()())((pG_PA5R2_domainAddExports))->prog->fun ))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5) );
5686	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, l4->((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6))
5687	X0_Type, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((pG_V9SO_domainAddDefaults))->env,P0_domain,l4-> X0_Type,T6));
5688	return P0_domain;
5689	}
5690
5691	static struct _FiProg tmp204_addLevel1 = {
5692	(FiFun) CF204_addLevel1,
5693	0L,
5694	0L,
5695	0L,
5696	0L
5697	};
5698
5699
5700	static FiWord
5701	CF205_lang_MINUS_init(FiEnv e1, FiSInt P0_idx)
5702	{
5703	PFmt33 l1;
5704	l1 = (PFmt33) fiEnvLevel(e1)((FiEnv) (e1)->level);
5705	if (l1->X1) goto L0;
5706	l1->X1 = 1L;
5707	fiCCall0(void, (pG_8KYHF_lang))((((void ()())((pG_8KYHF_lang))->prog->fun))(((*pG_8KYHF_lang ))->env));
5708	L0: return (FiWord) (*pG_S6I8I_lang__Type__394624008);
5709	}
5710
5711	static struct _FiProg tmp205_lang_MINUS_init = {
5712	(FiFun) CF205_lang_MINUS_init,
5713	0L,
5714	0L,
5715	0L,
5716	0L
5717	};
5718
5719	extern int
5720	INIT__0_machine()
5721	{
5722
5723	extern int INIT__0_rtexns();
5724	extern int INIT__0_lang();
5725	extern int INIT__0_runtime();
5726	static int initialized = 0;
5727	if (initialized)
5728	return 0L;
5729	else
5730	initialized = 1;
5731	C1_addLevel0 = &tmp1_addLevel0;
5732	C2_addLevel1 = &tmp2_addLevel1;
5733	C3__EQ_ = &tmp3__EQ_;
5734	C4__EQ_ = &tmp4__EQ_;
5735	C5__EQ_ = &tmp5__EQ_;
5736	C6__EQ_ = &tmp6__EQ_;
5737	C7__EQ_ = &tmp7__EQ_;
5738	C8__EQ_ = &tmp8__EQ_;
5739	C9__EQ_ = &tmp9__EQ_;
5740	C10__TILDE__EQ_ = &tmp10__TILDE__EQ_;
5741	C11__TILDE__EQ_ = &tmp11__TILDE__EQ_;
5742	C12__TILDE__EQ_ = &tmp12__TILDE__EQ_;
5743	C13__TILDE__EQ_ = &tmp13__TILDE__EQ_;
5744	C14__TILDE__EQ_ = &tmp14__TILDE__EQ_;
5745	C15__TILDE__EQ_ = &tmp15__TILDE__EQ_;
5746	C16__TILDE__EQ_ = &tmp16__TILDE__EQ_;
5747	C17__LT_ = &tmp17__LT_;
5748	C18__LT_ = &tmp18__LT_;
5749	C19__LT_ = &tmp19__LT_;
5750	C20__LT_ = &tmp20__LT_;
5751	C21__LT_ = &tmp21__LT_;
5752	C22__LT__EQ_ = &tmp22__LT__EQ_;
5753	C23__LT__EQ_ = &tmp23__LT__EQ_;
5754	C24__LT__EQ_ = &tmp24__LT__EQ_;
5755	C25__LT__EQ_ = &tmp25__LT__EQ_;
5756	C26__LT__EQ_ = &tmp26__LT__EQ_;
5757	C27_zero_QMARK_ = &tmp27_zero_QMARK_;
5758	C28_zero_QMARK_ = &tmp28_zero_QMARK_;
5759	C29_zero_QMARK_ = &tmp29_zero_QMARK_;
5760	C30_zero_QMARK_ = &tmp30_zero_QMARK_;
5761	C31_positive_QMARK_ = &tmp31_positive_QMARK_;
5762	C32_positive_QMARK_ = &tmp32_positive_QMARK_;
5763	C33_positive_QMARK_ = &tmp33_positive_QMARK_;
5764	C34_positive_QMARK_ = &tmp34_positive_QMARK_;
5765	C35_negative_QMARK_ = &tmp35_negative_QMARK_;
5766	C36_negative_QMARK_ = &tmp36_negative_QMARK_;
5767	C37_negative_QMARK_ = &tmp37_negative_QMARK_;
5768	C38_negative_QMARK_ = &tmp38_negative_QMARK_;
5769	C39_even_QMARK_ = &tmp39_even_QMARK_;
5770	C40_even_QMARK_ = &tmp40_even_QMARK_;
5771	C41_odd_QMARK_ = &tmp41_odd_QMARK_;
5772	C42_odd_QMARK_ = &tmp42_odd_QMARK_;
5773	C43_single_QMARK_ = &tmp43_single_QMARK_;
5774	C44_nil_QMARK_ = &tmp44_nil_QMARK_;
5775	C45_digit_QMARK_ = &tmp45_digit_QMARK_;
5776	C46_letter_QMARK_ = &tmp46_letter_QMARK_;
5777	C47__TILDE_ = &tmp47__TILDE_;
5778	C48__TILDE_ = &tmp48__TILDE_;
5779	C49__SLASH__BSLSH_ = &tmp49__SLASH__BSLSH_;
5780	C50__SLASH__BSLSH_ = &tmp50__SLASH__BSLSH_;
5781	C51__BSLSH__SLASH_ = &tmp51__BSLSH__SLASH_;
5782	C52__BSLSH__SLASH_ = &tmp52__BSLSH__SLASH_;
5783	C53_xor = &tmp53_xor;
5784	C54__PLUS_ = &tmp54__PLUS_;
5785	C55__PLUS_ = &tmp55__PLUS_;
5786	C56__PLUS_ = &tmp56__PLUS_;
5787	C57__PLUS_ = &tmp57__PLUS_;
5788	C58__MINUS_ = &tmp58__MINUS_;
5789	C59__MINUS_ = &tmp59__MINUS_;
5790	C60__MINUS_ = &tmp60__MINUS_;
5791	C61__MINUS_ = &tmp61__MINUS_;
5792	C62__MINUS_ = &tmp62__MINUS_;
5793	C63__MINUS_ = &tmp63__MINUS_;
5794	C64__MINUS_ = &tmp64__MINUS_;
5795	C65__MINUS_ = &tmp65__MINUS_;
5796	C66__STAR_ = &tmp66__STAR_;
5797	C67__STAR_ = &tmp67__STAR_;
5798	C68__STAR_ = &tmp68__STAR_;
5799	C69__STAR_ = &tmp69__STAR_;
5800	C70__STAR__PLUS_ = &tmp70__STAR__PLUS_;
5801	C71__STAR__PLUS_ = &tmp71__STAR__PLUS_;
5802	C72__STAR__PLUS_ = &tmp72__STAR__PLUS_;
5803	C73__STAR__PLUS_ = &tmp73__STAR__PLUS_;
5804	C74__SLASH_ = &tmp74__SLASH_;
5805	C75__SLASH_ = &tmp75__SLASH_;
5806	C76__HAT_ = &tmp76__HAT_;
5807	C77__HAT_ = &tmp77__HAT_;
5808	C78_mod_HAT_ = &tmp78_mod_HAT_;
5809	C79_length = &tmp79_length;
5810	C80_length = &tmp80_length;
5811	C81_bit = &tmp81_bit;
5812	C82_bit = &tmp82_bit;
5813	C83_shiftUp = &tmp83_shiftUp;
5814	C84_shiftUp = &tmp84_shiftUp;
5815	C85_shiftDown = &tmp85_shiftDown;
5816	C86_shiftDown = &tmp86_shiftDown;
5817	C87_next = &tmp87_next;
5818	C88_next = &tmp88_next;
5819	C89_prev = &tmp89_prev;
5820	C90_prev = &tmp90_prev;
5821	C91_quo = &tmp91_quo;
5822	C92_quo = &tmp92_quo;
5823	C93_rem = &tmp93_rem;
5824	C94_rem = &tmp94_rem;
5825	C95_mod = &tmp95_mod;
5826	C96_mod = &tmp96_mod;
5827	C97_divide = &tmp97_divide;
5828	C98_divide = &tmp98_divide;
5829	C99_gcd = &tmp99_gcd;
5830	C100_gcd = &tmp100_gcd;
5831	C101_mod_PLUS_ = &tmp101_mod_PLUS_;
5832	C102_mod_MINUS_ = &tmp102_mod_MINUS_;
5833	C103_mod_STAR_ = &tmp103_mod_STAR_;
5834	C104_mod_STAR_inv = &tmp104_mod_STAR_inv;
5835	C105_double_STAR_ = &tmp105_double_STAR_;
5836	C106_doubleDivide = &tmp106_doubleDivide;
5837	C107_plusStep = &tmp107_plusStep;
5838	C108_timesStep = &tmp108_timesStep;
5839	C109_upper = &tmp109_upper;
5840	C110_lower = &tmp110_lower;
5841	C111_char = &tmp111_char;
5842	C112_ord = &tmp112_ord;
5843	C113_assemble = &tmp113_assemble;
5844	C114_assemble = &tmp114_assemble;
5845	C115_dissemble = &tmp115_dissemble;
5846	C116_dissemble = &tmp116_dissemble;
5847	C117_next = &tmp117_next;
5848	C118_next = &tmp118_next;
5849	C119_prev = &tmp119_prev;
5850	C120_prev = &tmp120_prev;
5851	C121_Bzero = &tmp121_Bzero;
5852	C122_Bnearest = &tmp122_Bnearest;
5853	C123_Bup = &tmp123_Bup;
5854	C124_Bdown = &tmp124_Bdown;
5855	C125_Bany = &tmp125_Bany;
5856	C126_round = &tmp126_round;
5857	C127_round = &tmp127_round;
5858	C128_round_PLUS_ = &tmp128_round_PLUS_;
5859	C129_round_PLUS_ = &tmp129_round_PLUS_;
5860	C130_round_MINUS_ = &tmp130_round_MINUS_;
5861	C131_round_MINUS_ = &tmp131_round_MINUS_;
5862	C132_round_STAR_ = &tmp132_round_STAR_;
5863	C133_round_STAR_ = &tmp133_round_STAR_;
5864	C134_round_STAR__PLUS_ = &tmp134_round_STAR__PLUS_;
5865	C135_round_STAR__PLUS_ = &tmp135_round_STAR__PLUS_;
5866	C136_round_SLASH_ = &tmp136_round_SLASH_;
5867	C137_round_SLASH_ = &tmp137_round_SLASH_;
5868	C138_truncate = &tmp138_truncate;
5869	C139_truncate = &tmp139_truncate;
5870	C140_fraction = &tmp140_fraction;
5871	C141_fraction = &tmp141_fraction;
5872	C142_convert = &tmp142_convert;
5873	C143_convert = &tmp143_convert;
5874	C144_convert = &tmp144_convert;
5875	C145_convert = &tmp145_convert;
5876	C146_convert = &tmp146_convert;
5877	C147_convert = &tmp147_convert;
5878	C148_convert = &tmp148_convert;
5879	C149_convert = &tmp149_convert;
5880	C150_convert = &tmp150_convert;
5881	C151_convert = &tmp151_convert;
5882	C152_convert = &tmp152_convert;
5883	C153_convert = &tmp153_convert;
5884	C154_convert = &tmp154_convert;
5885	C155_convert = &tmp155_convert;
5886	C156_convert = &tmp156_convert;
5887	C157_convert = &tmp157_convert;
5888	C158_convert = &tmp158_convert;
5889	C159_convert = &tmp159_convert;
5890	C160_format = &tmp160_format;
5891	C161_format = &tmp161_format;
5892	C162_format = &tmp162_format;
5893	C163_format = &tmp163_format;
5894	C164_scan = &tmp164_scan;
5895	C165_scan = &tmp165_scan;
5896	C166_scan = &tmp166_scan;
5897	C167_scan = &tmp167_scan;
5898	C168_RTE = &tmp168_RTE;
5899	C169_OS = &tmp169_OS;
5900	C170_halt = &tmp170_halt;
5901	C171_array = &tmp171_array;
5902	C172_array = &tmp172_array;
5903	C173_get = &tmp173_get;
5904	C174_get = &tmp174_get;
5905	C175_set_BANG_ = &tmp175_set_BANG_;
5906	C176_set_BANG_ = &tmp176_set_BANG_;
5907	C177_dispose_BANG_ = &tmp177_dispose_BANG_;
5908	C178_dispose_BANG_ = &tmp178_dispose_BANG_;
5909	C179_addLevel0 = &tmp179_addLevel0;
5910	C180_addLevel1 = &tmp180_addLevel1;
5911	C181_addLevel0 = &tmp181_addLevel0;
5912	C182_addLevel1 = &tmp182_addLevel1;
5913	C183_addLevel0 = &tmp183_addLevel0;
5914	C184_addLevel1 = &tmp184_addLevel1;
5915	C185_addLevel0 = &tmp185_addLevel0;
5916	C186_addLevel1 = &tmp186_addLevel1;
5917	C187_addLevel0 = &tmp187_addLevel0;
5918	C188_addLevel1 = &tmp188_addLevel1;
5919	C189_addLevel0 = &tmp189_addLevel0;
5920	C190_addLevel1 = &tmp190_addLevel1;
5921	C191_addLevel0 = &tmp191_addLevel0;
5922	C192_addLevel1 = &tmp192_addLevel1;
5923	C193_addLevel0 = &tmp193_addLevel0;
5924	C194_addLevel1 = &tmp194_addLevel1;
5925	C195_addLevel0 = &tmp195_addLevel0;
5926	C196_addLevel1 = &tmp196_addLevel1;
5927	C197_addLevel0 = &tmp197_addLevel0;
5928	C198_addLevel1 = &tmp198_addLevel1;
5929	C199_addLevel0 = &tmp199_addLevel0;
5930	C200_addLevel1 = &tmp200_addLevel1;
5931	C201_addLevel0 = &tmp201_addLevel0;
5932	C202_addLevel1 = &tmp202_addLevel1;
5933	C203_addLevel0 = &tmp203_addLevel0;
5934	C204_addLevel1 = &tmp204_addLevel1;
5935	C205_lang_MINUS_init = &tmp205_lang_MINUS_init;
5936	C0_machine = &tmp0_machine;
5937	fiExportGlobal("G_JNB1W_machine", G_JNB1W_machine)fiExportGlobalFun("G_JNB1W_machine", (Ptr) &G_JNB1W_machine , sizeof(G_JNB1W_machine));
5938	fiExportGlobal("G_1B0E6_machine__Machine__9157",fiExportGlobalFun("G_1B0E6_machine__Machine__9157", (Ptr) & G_1B0E6_machine__Machine__9157, sizeof(G_1B0E6_machine__Machine__9157 ))
5939	G_1B0E6_machine__Machine__9157)fiExportGlobalFun("G_1B0E6_machine__Machine__9157", (Ptr) & G_1B0E6_machine__Machine__9157, sizeof(G_1B0E6_machine__Machine__9157 ));
5940	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
5941	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
5942	fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn );
5943	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
5944	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
5945	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
5946	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
5947	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
5948	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
5949	fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch)
5950	pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch);
5951	fiImportGlobal("G_S6I8I_lang__Type__394624008",fiImportGlobalFun("G_S6I8I_lang__Type__394624008", (Ptr *) & pG_S6I8I_lang__Type__394624008)
5952	pG_S6I8I_lang__Type__394624008)fiImportGlobalFun("G_S6I8I_lang__Type__394624008", (Ptr *) & pG_S6I8I_lang__Type__394624008);
5953	fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit );
5954	fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults)
5955	pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults);
5956	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
5957	fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings );
5958	fiImportGlobal("G_8KYHF_lang", pG_8KYHF_lang)fiImportGlobalFun("G_8KYHF_lang", (Ptr *) &pG_8KYHF_lang);
5959	if (fiFileInitializer) {
5960	fiFileInitializer("rtexns");
5961	fiFileInitializer("lang");
5962	fiFileInitializer("runtime");
5963	}
5964	else {
5965	INIT__0_rtexns();
5966	INIT__0_lang();
5967	INIT__0_runtime();
5968	}
5969	/* "---------------------------" */
5970	return 0L;
5971	}
5972
5973	FiWord G_1B0E6_machine__Machine__9157;
5974
5975	static struct _FiClos tmpClos0_machine = {
5976	0L,
5977	(FiProg) &tmp0_machine
5978	};
5979	FiClos G_JNB1W_machine = &tmpClos0_machine;