al/sfloat.c

Bug Summary

File:	lib/libfoamlib/al/sfloat.c
Warning:	line 1397, column 9 Value stored to 'l1' is never read

Annotated Source Code

Press '?' to see keyboard shortcuts

Show analyzer invocation

clang -cc1 -cc1 -triple x86_64-unknown-linux-gnu -analyze -disable-free -clear-ast-before-backend -disable-llvm-verifier -discard-value-names -main-file-name sfloat.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/sfloat.c

1	/*
2	* C code generated by Aldor from file "sfloat.ao".
3	*/
4
5	#include "foam_c.h"
6
7	typedef struct Fmt6 *PFmt6;
8	typedef struct Fmt7 *PFmt7;
9	typedef struct Fmt8 *PFmt8;
10	typedef struct Fmt9 *PFmt9;
11	typedef struct Fmt10 *PFmt10;
12	typedef struct Fmt11 *PFmt11;
13	typedef struct Fmt12 *PFmt12;
14	typedef struct Fmt13 *PFmt13;
15	typedef struct Fmt14 *PFmt14;
16	typedef struct Fmt15 *PFmt15;
17	typedef struct Fmt16 *PFmt16;
18	typedef struct Fmt17 *PFmt17;
19	typedef struct Fmt18 *PFmt18;
20	typedef struct Fmt19 *PFmt19;
21	typedef struct Fmt20 *PFmt20;
22	struct Fmt6 {
23	FiSInt X0_size;
24	FiSInt X1_nsize;
25	FiWord X2_values;
26	};
27	struct Fmt7 {
28	FiPtr X0_empty;
29	};
30	struct Fmt8 {
31	FiWord X0;
32	FiWord X1;
33	};
34	struct Fmt9 {
35	FiClos X0_done_QMARK_;
36	FiClos X1_step_BANG_;
37	FiClos X2_value;
38	FiClos X3_bound;
39	};
40	struct Fmt10 {
41	FiWord X0_aa;
42	FiWord X1_b;
43	FiWord X2_del;
44	FiWord X3_a;
45	FiBool X4;
46	FiSInt X5;
47	FiWord X6;
48	FiWord X7_i;
49	FiEnv X8_12;
50	};
51	struct Fmt11 {
52	FiWord X0_n;
53	};
54	struct Fmt12 {
55	FiWord X0_x;
56	};
57	struct Fmt13 {
58	FiClos X0_sign;
59	FiClos X1_abs;
60	FiClos X2_case;
61	FiClos X3_hash;
62	FiClos X4_ceiling;
63	FiClos X5_floor;
64	FiClos X6_round_SLASH_;
65	FiClos X7_round_STAR__PLUS_;
66	FiClos X8_round_STAR_;
67	FiClos X9_round_MINUS_;
68	FiClos X10_round_PLUS_;
69	FiClos X11_next;
70	FiClos X12_prev;
71	FiClos X13_round;
72	FiClos X14_integer;
73	FiClos X15_fraction;
74	FiClos X16_exponent;
75	FiClos X17_mantissa;
76	FiClos X18_coerce;
77	FiClos X19_coerce;
78	FiClos X20_coerce;
79	FiClos X21_coerce;
80	FiClos X22_step;
81	FiClos X23_divide;
82	FiClos X24_rem;
83	FiClos X25_quo;
84	FiClos X26_gcd;
85	FiClos X27_inv;
86	FiClos X28__HAT_;
87	FiClos X29__SLASH_;
88	FiClos X30__BSLSH_;
89	FiClos X31__STAR_;
90	FiClos X32__PLUS_;
91	FiClos X33__PLUS_;
92	FiClos X34__GT__GT_;
93	FiClos X35__LT__LT_;
94	FiClos X36__LT__LT_;
95	FiClos X37__LT__LT_;
96	FiClos X38__GT__EQ_;
97	FiClos X39__LT__EQ_;
98	FiClos X40__GT_;
99	FiClos X41__LT_;
100	FiClos X42__TILDE__EQ_;
101	FiClos X43__EQ_;
102	FiClos X44_positive_QMARK_;
103	FiClos X45_negative_QMARK_;
104	FiClos X46_zero_QMARK_;
105	FiClos X47_float;
106	FiClos X48__MINUS_;
107	FiClos X49__MINUS_;
108	FiWord X50_epsilon;
109	FiWord X51_max;
110	FiClos X52_max;
111	FiWord X53_min;
112	FiClos X54_min;
113	FiWord X55_Rep;
114	FiSInt X56;
115	};
116	struct Fmt14 {
117	FiClos X0_getter;
118	FiBool X1_flag;
119	FiClos X2_self;
120	};
121	struct Fmt15 {
122	FiWord X0_Machine;
123	FiWord X1_FloatingPointNumberSystem;
124	FiWord X2_OrderedFinite;
125	FiWord X3_MachineInteger;
126	FiWord X4_SFlo;
127	FiWord X5_max;
128	FiWord X6_min;
129	FiWord X7_epsilon;
130	FiWord X8_dom;
131	FiClos X9_Segment;
132	FiClos X10_generator;
133	FiWord X11_dom;
134	FiBool X12;
135	FiBool X13;
136	FiBool X14;
137	FiBool X15;
138	};
139	struct Fmt16 {
140	FiClos X0;
141	FiClos X1;
142	FiClos X2;
143	};
144	struct Fmt17 {
145	FiWord X0_s;
146	FiWord X1_b;
147	FiWord X2_a;
148	FiBool X3;
149	FiSInt X4;
150	FiWord X5;
151	};
152	struct Fmt18 {
153	FiWord X0_open_QMARK_;
154	FiWord X1_low;
155	FiWord X2_high;
156	FiWord X3_step;
157	};
158	struct Fmt19 {
159	FiPtr X0_empty;
160	};
161	struct Fmt20 {
162	FiPtr X0_empty;
163	};
164	static FiProg C0_sfloat;
165	static void CF0_sfloat(FiEnv e1);
166	static FiProg C1_addLevel0;
167	static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
168	static FiProg C2_addLevel1;
169	static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
170	static FiProg C3_sfloat;
171	static void CF3_sfloat(FiEnv e1, FiWord P0_self, FiWord P1_dom);
172	static FiProg C4_float;
173	static FiWord CF4_float(FiEnv e1, FiWord P0_l);
174	static FiProg C5_zero_QMARK_;
175	static FiWord CF5_zero_QMARK_(FiEnv e1, FiWord P0_x);
176	static FiProg C6_negative_QMARK_;
177	static FiWord CF6_negative_QMARK_(FiEnv e1, FiWord P0_x);
178	static FiProg C7_positive_QMARK_;
179	static FiWord CF7_positive_QMARK_(FiEnv e1, FiWord P0_x);
180	static FiProg C8__EQ_;
181	static FiWord CF8__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y);
182	static FiProg C9__TILDE__EQ_;
183	static FiWord CF9__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y);
184	static FiProg C10__LT_;
185	static FiWord CF10__LT_(FiEnv e1, FiWord P0_x, FiWord P1_y);
186	static FiProg C11__GT_;
187	static FiWord CF11__GT_(FiEnv e1, FiWord P0_x, FiWord P1_y);
188	static FiProg C12__LT__EQ_;
189	static FiWord CF12__LT__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y);
190	static FiProg C13__GT__EQ_;
191	static FiWord CF13__GT__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y);
192	static FiProg C14__LT__LT_;
193	static FiWord CF14__LT__LT_(FiEnv e1, FiWord P0_x, FiWord P1_y);
194	static FiProg C15__GT__GT_;
195	static FiWord CF15__GT__GT_(FiEnv e1, FiWord P0_x, FiWord P1_y);
196	static FiProg C16__PLUS_;
197	static FiWord CF16__PLUS_(FiEnv e1, FiWord P0_x);
198	static FiProg C17__MINUS_;
199	static FiWord CF17__MINUS_(FiEnv e1, FiWord P0_x);
200	static FiProg C18__PLUS_;
201	static FiWord CF18__PLUS_(FiEnv e1, FiWord P0_x, FiWord P1_y);
202	static FiProg C19__MINUS_;
203	static FiWord CF19__MINUS_(FiEnv e1, FiWord P0_x, FiWord P1_y);
204	static FiProg C20__STAR_;
205	static FiWord CF20__STAR_(FiEnv e1, FiWord P0_x, FiWord P1_y);
206	static FiProg C21__BSLSH_;
207	static FiWord CF21__BSLSH_(FiEnv e1, FiWord P0_x, FiWord P1_y);
208	static FiProg C22__SLASH_;
209	static FiWord CF22__SLASH_(FiEnv e1, FiWord P0_x, FiWord P1_y);
210	static FiProg C23__HAT_;
211	static FiWord CF23__HAT_(FiEnv e1, FiWord P0_x, FiWord P1_n);
212	static FiProg C24_inv;
213	static FiWord CF24_inv(FiEnv e1, FiWord P0_x);
214	static FiProg C25_gcd;
215	static FiWord CF25_gcd(FiEnv e1, FiWord P0_x, FiWord P1_y);
216	static FiProg C26_quo;
217	static FiWord CF26_quo(FiEnv e1, FiWord P0_x, FiWord P1_y);
218	static FiProg C27_rem;
219	static FiWord CF27_rem(FiEnv e1, FiWord P0_x, FiWord P1_y);
220	static FiProg C28_divide;
221	static void CF28_divide(FiEnv e1, FiWord P0_x, FiWord P1_y, FiWord* R0, FiWord* R1);
222	static FiProg C29__LT__LT_;
223	static FiWord CF29__LT__LT_(FiEnv e1, FiWord P0_w, FiWord P1_x);
224	static FiProg C30_step;
225	static FiClos CF30_step(FiEnv e1, FiWord P0_n);
226	static FiProg C31_step;
227	static FiClos CF31_step(FiEnv e1, FiWord P0_aa, FiWord P1_b);
228	static FiProg C32_generBaseFn;
229	static void CF32_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
230	static FiProg C33_generStepper;
231	static void CF33_generStepper(FiEnv e1);
232	static FiProg C34_generDone_QMARK_;
233	static FiBool CF34_generDone_QMARK_(FiEnv e1);
234	static FiProg C35_generValue;
235	static FiWord CF35_generValue(FiEnv e1);
236	static FiProg C36_generBound;
237	static FiSInt CF36_generBound(FiEnv e1);
238	static FiProg C37_coerce;
239	static FiWord CF37_coerce(FiEnv e1, FiWord P0_n);
240	static FiProg C38_coerce;
241	static FiWord CF38_coerce(FiEnv e1, FiWord P0_n);
242	static FiProg C39_coerce;
243	static FiWord CF39_coerce(FiEnv e1, FiSFlo P0_x);
244	static FiProg C40_coerce;
245	static FiSFlo CF40_coerce(FiEnv e1, FiWord P0_x);
246	static FiProg C41_mantissa;
247	static FiWord CF41_mantissa(FiEnv e1, FiWord P0_x);
248	static FiProg C42_exponent;
249	static FiWord CF42_exponent(FiEnv e1, FiWord P0_x);
250	static FiProg C43_fraction;
251	static FiWord CF43_fraction(FiEnv e1, FiWord P0_x);
252	static FiProg C44_integer;
253	static FiWord CF44_integer(FiEnv e1, FiWord P0_x);
254	static FiProg C45_round;
255	static FiWord CF45_round(FiEnv e1, FiWord P0_x, FiWord P1_mode);
256	static FiProg C46_prev;
257	static FiWord CF46_prev(FiEnv e1, FiWord P0_x);
258	static FiProg C47_next;
259	static FiWord CF47_next(FiEnv e1, FiWord P0_x);
260	static FiProg C48_round_PLUS_;
261	static FiWord CF48_round_PLUS_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_mode);
262	static FiProg C49_round_MINUS_;
263	static FiWord CF49_round_MINUS_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_mode);
264	static FiProg C50_round_STAR_;
265	static FiWord CF50_round_STAR_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_mode);
266	static FiProg C51_round_STAR__PLUS_;
267	static FiWord CF51_round_STAR__PLUS_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c, FiWord P3_mode);
268	static FiProg C52_round_SLASH_;
269	static FiWord CF52_round_SLASH_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_mode);
270	static FiProg C53_floor;
271	static FiWord CF53_floor(FiEnv e1, FiWord P0_x);
272	static FiProg C54_ceiling;
273	static FiWord CF54_ceiling(FiEnv e1, FiWord P0_x);
274	static FiProg C55__LT__LT_;
275	static FiClos CF55__LT__LT_(FiEnv e1, FiWord P0_x);
276	static FiProg C56__LT__LT_;
277	static FiWord CF56__LT__LT_(FiEnv e1, FiWord P0_p);
278	static FiProg C57_hash;
279	static FiWord CF57_hash(FiEnv e1, FiWord P0_x);
280	static FiProg C58_case;
281	static FiWord CF58_case(FiEnv e1, FiWord P0_x, FiWord P1_y);
282	static FiProg C59_abs;
283	static FiWord CF59_abs(FiEnv e1, FiWord P0_x);
284	static FiProg C60_sign;
285	static FiWord CF60_sign(FiEnv e1, FiWord P0_x);
286	static FiProg C61_max;
287	static FiWord CF61_max(FiEnv e1, FiWord P0_x, FiWord P1_y);
288	static FiProg C62_min;
289	static FiWord CF62_min(FiEnv e1, FiWord P0_x, FiWord P1_y);
290	static FiProg C63_lazyGetter2;
291	static void CF63_lazyGetter2(FiEnv e1);
292	static FiProg C64_lazyFnGetter;
293	static FiClos CF64_lazyFnGetter(FiEnv e1, FiWord P0_init);
294	static FiProg C65_lazyGetter;
295	static FiClos CF65_lazyGetter(FiEnv e1, FiWord P0_a);
296	static FiProg C66_machine_MINUS_init;
297	static FiWord CF66_machine_MINUS_init(FiEnv e1, FiSInt P0_idx);
298	static FiProg C67_segment_MINUS_init;
299	static FiWord CF67_segment_MINUS_init(FiEnv e1, FiSInt P0_idx);
300	static FiProg C68_sinteger_MINUS_init;
301	static FiWord CF68_sinteger_MINUS_init(FiEnv e1, FiSInt P0_idx);
302	static FiProg C69_foamcat_MINUS_init;
303	static FiWord CF69_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx);
304	extern FiClos G_T13QO_sfloat;
305	static FiClos *pG_NQYQM_noOperation;
306	extern FiWord G_5Z1U3_sfloat__SingleFloat__6;
307	static FiClos *pG_XIPRL_runtime;
308	static FiClos *pG_Z2868_rtConstNameFn;
309	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
310	static FiClos *pG_XS55O_domainAddHash_BANG_;
311	extern FiWord formatSFlo();
312	extern FiBInt fiSFloExponent(FiSFlo P0);
313	extern FiBInt fiSFloMantissa(FiSFlo P0);
314	static FiClos *pG_PA5R2_domainAddExports;
315	static FiClos *pG_IJHFC_domainMakeDispatch;
316	static FiClos *pG_JP87X_rtConstSIntFn;
317	static FiClos *pG_WXLY5_categoryAddExports;
318	static FiWord *pG_JWK7S_foamcat__OrderedFinit;
319	static FiClos *pG_NOX7X_rtLazyCatFrInit;
320	static FiWord *pG_Y35UI_foamcat__FloatingPoin;
321	static FiClos *pG_YXGL3_categoryAddParents;
322	static FiClos *pG_GOVLL_categoryMake;
323	static FiClos *pG_V9SO_domainAddDefaults;
324	static FiClos *pG_BEY7_domainMakeDummy;
325	static FiClos *pG_AK1EB_domainFill_BANG_;
326	static FiWord *pG_1B0E6_machine__Machine__915;
327	static FiClos *pG_KK8CX_rtLazyDomFrInit;
328	static FiClos *pG_1X2RM_domainGetExport_BANG_;
329	static FiClos *pG_QRAZA_rtDelayedGetExport;
330	static FiClos *pG_ZZZKG_stdGetWordRetWord0;
331	static FiClos *pG_RSHLY_rtDelayedInit_BANG_;
332	static FiWord *pG_M8YLI_sinteger__MachineInte;
333	static FiClos *pG_4NZQI_lazyGetExport_BANG_;
334	static FiClos *pG_R3D1K_lazyForceImport;
335	static FiClos *pG_RPY7R_segment__Segment__100;
336	static FiClos *pG_H8G3S_segment__ClosedSegmen;
337	static FiClos *pG_6L1ZC_domainMake;
338	static FiClos *pG_822GM_rtAddStrings;
339	static FiClos *pG_JNB1W_machine;
340	static FiClos *pG_WVJG4_segment;
341	static FiClos *pG_HAQ5R_sinteger;
342	static FiClos *pG_H8TZ5_foamcat;
343	extern int fputs(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [3]*/
344	extern FiWord stdoutFile();
345	extern int fputc(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [1]*/
346	static FiBInt GB0;
347
348	static long GA0 = 0xFFFFFFFFFFFFFFFF;
349
350
351	static void
352	CF0_sfloat(FiEnv e1)
353	{
354	FiWord T4, T5, T8;
355	PFmt6 T6, T7;
356	FiClos T0, T1, T2, T3;
357	PFmt15 l0;
358	FiEnv e0;
359	l0 = fi0New(struct Fmt15 , CENSUS_EnvLevel)((struct Fmt15 *) fi0Alloc(sizeof(struct Fmt15), (19)));
360	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
361	fiBINT_FR_INT(GB0, FiBInt, GA0)((GB0) = (FiBInt) fiBIntFrInt(GA0));
362	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
363	G_T13QO_sfloat = (FiClos) (*pG_NQYQM_noOperation);
364	T0 = fiClosMake(e0, C69_foamcat_MINUS_init)fiClosMakeFun(e0, (FiProg) (C69_foamcat_MINUS_init));
365	T1 = fiClosMake(e0, C66_machine_MINUS_init)fiClosMakeFun(e0, (FiProg) (C66_machine_MINUS_init));
366	T2 = fiClosMake(e0, C68_sinteger_MINUS_init)fiClosMakeFun(e0, (FiProg) (C68_sinteger_MINUS_init));
367	T3 = fiClosMake(e0, C67_segment_MINUS_init)fiClosMakeFun(e0, (FiProg) (C67_segment_MINUS_init));
368	G_5Z1U3_sfloat__SingleFloat__6 = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))))
369	pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))));
370	l0->X12 = 0L;
371	l0->X13 = 0L;
372	l0->X14 = 0L;
373	l0->X15 = 0L;
374	fiARRNEW_Word(T4, FiWord, 51L)((T4) = (FiWord) fiArrNew_Word(51L));
375	fiARRNEW_Word(T5, FiWord, 51L)((T5) = (FiWord) fiArrNew_Word(51L));
376	T4[0L] = (FiWord) 61935445L;
377	T5[0L] = (FiWord) "sign";
378	T4[1L] = (FiWord) 315051633L;
379	T5[1L] = (FiWord) "abs";
380	T4[2L] = (FiWord) 200135L;
381	T5[2L] = (FiWord) "^";
382	T4[3L] = (FiWord) 200083L;
383	T5[3L] = (FiWord) "*";
384	T4[4L] = (FiWord) 255806968L;
385	T5[4L] = (FiWord) "sample";
386	T4[5L] = (FiWord) 375422425L;
387	T5[5L] = (FiWord) "epsilon";
388	T4[6L] = (FiWord) 769743560L;
389	T5[6L] = (FiWord) "round*";
390	T4[7L] = (FiWord) 782953315L;
391	T5[7L] = (FiWord) "next";
392	T4[8L] = (FiWord) 200084L;
393	T5[8L] = (FiWord) "+";
394	T4[9L] = (FiWord) 769743561L;
395	T5[9L] = (FiWord) "round+";
396	T4[10L] = (FiWord) 474572335L;
397	T5[10L] = (FiWord) "floor";
398	T4[11L] = (FiWord) 200086L;
399	T5[11L] = (FiWord) "-";
400	T4[12L] = (FiWord) 998253480L;
401	T5[12L] = (FiWord) "mantissa";
402	T4[13L] = (FiWord) 13508537L;
403	T5[13L] = (FiWord) "exponent";
404	T4[14L] = (FiWord) 424301635L;
405	T5[14L] = (FiWord) "negative\?";
406	T4[15L] = (FiWord) 195459125L;
407	T5[15L] = (FiWord) "round";
408	T4[16L] = (FiWord) 769743563L;
409	T5[16L] = (FiWord) "round-";
410	T4[17L] = (FiWord) 61407584L;
411	T5[17L] = (FiWord) "step";
412	T4[18L] = (FiWord) 200101L;
413	T5[18L] = (FiWord) "<";
414	T4[19L] = (FiWord) 318266239L;
415	T5[19L] = (FiWord) "rem";
416	T4[20L] = (FiWord) 200088L;
417	T5[20L] = (FiWord) "/";
418	T4[21L] = (FiWord) 770345191L;
419	T5[21L] = (FiWord) "coerce";
420	T4[22L] = (FiWord) 200076L;
421	T5[22L] = (FiWord) "#";
422	T4[23L] = (FiWord) 318461825L;
423	T5[23L] = (FiWord) "max";
424	T4[24L] = (FiWord) 200089L;
425	T5[24L] = (FiWord) "0";
426	T4[25L] = (FiWord) 769743565L;
427	T5[25L] = (FiWord) "round/";
428	T4[26L] = (FiWord) 318722696L;
429	T5[26L] = (FiWord) "inv";
430	T4[27L] = (FiWord) 51492941L;
431	T5[27L] = (FiWord) ">=";
432	T4[28L] = (FiWord) 200102L;
433	T5[28L] = (FiWord) "=";
434	T4[29L] = (FiWord) 200090L;
435	T5[29L] = (FiWord) "1";
436	T4[30L] = (FiWord) 318204816L;
437	T5[30L] = (FiWord) "quo";
438	T4[31L] = (FiWord) 51492942L;
439	T5[31L] = (FiWord) ">>";
440	T4[32L] = (FiWord) 200103L;
441	T5[32L] = (FiWord) ">";
442	T4[33L] = (FiWord) 244914846L;
443	T5[33L] = (FiWord) "fraction";
444	T4[34L] = (FiWord) 613807201L;
445	T5[34L] = (FiWord) "prev";
446	T4[35L] = (FiWord) 746853960L;
447	T5[35L] = (FiWord) "hash";
448	T4[36L] = (FiWord) 213819484L;
449	T5[36L] = (FiWord) "round*+";
450	T4[37L] = (FiWord) 474568739L;
451	T5[37L] = (FiWord) "float";
452	T4[38L] = (FiWord) 864625472L;
453	T5[38L] = (FiWord) "case";
454	T4[39L] = (FiWord) 427129530L;
455	T5[39L] = (FiWord) "ceiling";
456	T4[40L] = (FiWord) 477900237L;
457	T5[40L] = (FiWord) "integer";
458	T4[41L] = (FiWord) 51509389L;
459	T5[41L] = (FiWord) "~=";
460	T4[42L] = (FiWord) 318459775L;
461	T5[42L] = (FiWord) "min";
462	T4[43L] = (FiWord) 316169058L;
463	T5[43L] = (FiWord) "Rep";
464	T4[44L] = (FiWord) 733146723L;
465	T5[44L] = (FiWord) "positive\?";
466	T4[45L] = (FiWord) 51492426L;
467	T5[45L] = (FiWord) "<<";
468	T4[46L] = (FiWord) 206475020L;
469	T5[46L] = (FiWord) "zero\?";
470	T4[47L] = (FiWord) 200133L;
471	T5[47L] = (FiWord) "\\";
472	T4[48L] = (FiWord) 318604649L;
473	T5[48L] = (FiWord) "gcd";
474	T4[49L] = (FiWord) 42114539L;
475	T5[49L] = (FiWord) "divide";
476	T4[50L] = (FiWord) 51492427L;
477	T5[50L] = (FiWord) "<=";
478	T6 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
479	T6->X0_size = 51L;
480	T6->X1_nsize = 51L;
481	T6->X2_values = (FiWord) T4;
482	T7 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
483	T7->X0_size = 51L;
484	T7->X1_nsize = 51L;
485	T7->X2_values = (FiWord) T5;
486	fiCCall2(void, (pG_822GM_rtAddStrings), (FiWord) T6, (FiWord) T7)((((void ()())((pG_822GM_rtAddStrings))->prog->fun)) (((*pG_822GM_rtAddStrings))->env,(FiWord) T6,(FiWord) T7));
487	l0->X2_OrderedFinite = fiCCall2(FiWord, (((((FiWord ()())(( pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,0L))
488	pG_NOX7X_rtLazyCatFrInit), T0, 0L)((((FiWord ()())((* pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,0L));
489	l0->X1_FloatingPointNumberSystem = fiCCall2(FiWord, (((((FiWord ()())(( pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,1L))
490	pG_NOX7X_rtLazyCatFrInit), T0, 1L)((((FiWord ()())((* pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,1L));
491	l0->X0_Machine = fiCCall2(FiWord, (pG_KK8CX_rtLazyDomFrInit),((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T1,0L))
492	T1, 0L)((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((pG_KK8CX_rtLazyDomFrInit))->env,T1,0L));
493	l0->X8_dom = l0->X0_Machine;
494	l0->X4_SFlo = fiCCall3(FiWord, (pG_1X2RM_domainGetExport_BANG_),((((FiWord ()())((pG_1X2RM_domainGetExport_BANG_))->prog ->fun))(((*pG_1X2RM_domainGetExport_BANG_))->env,l0-> X8_dom,592883736L,547382598L))
495	l0->X8_dom, 592883736L, 547382598L)((((FiWord ()())((pG_1X2RM_domainGetExport_BANG_))->prog ->fun))(((pG_1X2RM_domainGetExport_BANG_))->env,l0-> X8_dom,592883736L,547382598L));
496	l0->X3_MachineInteger = fiCCall2(FiWord, (((((FiWord ()())(( pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T2,0L))
497	pG_KK8CX_rtLazyDomFrInit), T2, 0L)((((FiWord ()())((* pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T2,0L));
498	T8 = fiCCall2(FiWord, (pG_RSHLY_rtDelayedInit_BANG_), T3, 0L)((((FiWord ()())((pG_RSHLY_rtDelayedInit_BANG_))->prog-> fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T3,0L));
499	l0->X9_Segment = fiCCall1(FiClos, (pG_ZZZKG_stdGetWordRetWord0),((((FiClos ()())((pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T8))
500	T8)((((FiClos ()())((pG_ZZZKG_stdGetWordRetWord0))->prog-> fun))(((pG_ZZZKG_stdGetWordRetWord0))->env,T8));
501	l0->X11_dom = fiCCall1(FiWord, l0->X9_Segment, l0->((((FiWord ()())(l0->X9_Segment)->prog->fun))((l0-> X9_Segment)->env,l0-> X3_MachineInteger))
502	X3_MachineInteger)((((FiWord ()())(l0->X9_Segment)->prog->fun))((l0-> X9_Segment)->env,l0-> X3_MachineInteger));
503	l0->X10_generator = CF64_lazyFnGetter(e0, (FiWord) fiCCall3(((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0->X11_dom ,113320568L,622497990L))
504	FiWord, (pG_QRAZA_rtDelayedGetExport), l0->X11_dom,((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X11_dom ,113320568L,622497990L))
505	113320568L, 622497990L)((((FiWord ()())((pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((pG_QRAZA_rtDelayedGetExport))->env,l0->X11_dom ,113320568L,622497990L)));
506	l0->X6_min = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X8_dom ,318459775L,592883736L))
507	l0->X8_dom, 318459775L, 592883736L)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X8_dom ,318459775L,592883736L));
508	l0->X5_max = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X8_dom ,318461825L,592883736L))
509	l0->X8_dom, 318461825L, 592883736L)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X8_dom ,318461825L,592883736L));
510	l0->X7_epsilon = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X8_dom ,375422425L,592883736L))
511	l0->X8_dom, 375422425L, 592883736L)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X8_dom ,375422425L,592883736L));
512	return ;
513	}
514
515	static struct _FiProg tmp0_sfloat = {
516	(FiFun) CF0_sfloat,
517	0L,
518	0L,
519	0L,
520	0L
521	};
522
523
524	static FiClos
525	CF1_addLevel0(FiEnv e1, FiWord P0_domain)
526	{
527	FiWord T0;
528	FiEnv e0;
529	PFmt15 l1;
530	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
531	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
532	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "SingleFloat")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"SingleFloat"));
533	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
534	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,189518043L ))
535	189518043L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,189518043L ));
536	return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
537	}
538
539	static struct _FiProg tmp1_addLevel0 = {
540	(FiFun) CF1_addLevel0,
541	0L,
542	0L,
543	0L,
544	0L
545	};
546
547
548	static FiWord
549	CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
550	{
551	FiWord T0, T1, *T2, T6, T7, T31;
552	FiClos T30;
553	FiSInt T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T23, T24, T25, T26, T27, T28, T29;
554	PFmt6 T3, T4, T5;
555	PFmt13 l0;
556	FiEnv e2, e0;
557	PFmt15 l2;
558	l0 = fi0New(struct Fmt13 , CENSUS_EnvLevel)((struct Fmt13 *) fi0Alloc(sizeof(struct Fmt13), (19)));
559	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
560	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
561	l2 = (PFmt15) fiEnvLevel(e2)((FiEnv) (e2)->level);
562	fiARRNEW_Word(T0, FiWord, 60L)((T0) = (FiWord) fiArrNew_Word(60L));
563	fiARRNEW_Word(T1, FiWord, 60L)((T1) = (FiWord) fiArrNew_Word(60L));
564	fiARRNEW_Word(T2, FiWord, 60L)((T2) = (FiWord) fiArrNew_Word(60L));
565	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
566	l0->X56 = (FiSInt) P1_hashcode;
567	l0->X47_float = fiClosMake(e0, C4_float)fiClosMakeFun(e0, (FiProg) (C4_float));
568	l0->X46_zero_QMARK_ = fiClosMake(e0, C5_zero_QMARK_)fiClosMakeFun(e0, (FiProg) (C5_zero_QMARK_));
569	l0->X45_negative_QMARK_ = fiClosMake(e0, C6_negative_QMARK_)fiClosMakeFun(e0, (FiProg) (C6_negative_QMARK_));
570	l0->X44_positive_QMARK_ = fiClosMake(e0, C7_positive_QMARK_)fiClosMakeFun(e0, (FiProg) (C7_positive_QMARK_));
571	l0->X43__EQ_ = fiClosMake(e0, C8__EQ_)fiClosMakeFun(e0, (FiProg) (C8__EQ_));
572	l0->X42__TILDE__EQ_ = fiClosMake(e0, C9__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C9__TILDE__EQ_));
573	l0->X41__LT_ = fiClosMake(e0, C10__LT_)fiClosMakeFun(e0, (FiProg) (C10__LT_));
574	l0->X40__GT_ = fiClosMake(e0, C11__GT_)fiClosMakeFun(e0, (FiProg) (C11__GT_));
575	l0->X39__LT__EQ_ = fiClosMake(e0, C12__LT__EQ_)fiClosMakeFun(e0, (FiProg) (C12__LT__EQ_));
576	l0->X38__GT__EQ_ = fiClosMake(e0, C13__GT__EQ_)fiClosMakeFun(e0, (FiProg) (C13__GT__EQ_));
577	l0->X35__LT__LT_ = fiClosMake(e0, C14__LT__LT_)fiClosMakeFun(e0, (FiProg) (C14__LT__LT_));
578	l0->X34__GT__GT_ = fiClosMake(e0, C15__GT__GT_)fiClosMakeFun(e0, (FiProg) (C15__GT__GT_));
579	l0->X32__PLUS_ = fiClosMake(e0, C16__PLUS_)fiClosMakeFun(e0, (FiProg) (C16__PLUS_));
580	l0->X48__MINUS_ = fiClosMake(e0, C17__MINUS_)fiClosMakeFun(e0, (FiProg) (C17__MINUS_));
581	l0->X33__PLUS_ = fiClosMake(e0, C18__PLUS_)fiClosMakeFun(e0, (FiProg) (C18__PLUS_));
582	l0->X49__MINUS_ = fiClosMake(e0, C19__MINUS_)fiClosMakeFun(e0, (FiProg) (C19__MINUS_));
583	l0->X31__STAR_ = fiClosMake(e0, C20__STAR_)fiClosMakeFun(e0, (FiProg) (C20__STAR_));
584	l0->X30__BSLSH_ = fiClosMake(e0, C21__BSLSH_)fiClosMakeFun(e0, (FiProg) (C21__BSLSH_));
585	l0->X29__SLASH_ = fiClosMake(e0, C22__SLASH_)fiClosMakeFun(e0, (FiProg) (C22__SLASH_));
586	l0->X28__HAT_ = fiClosMake(e0, C23__HAT_)fiClosMakeFun(e0, (FiProg) (C23__HAT_));
587	l0->X27_inv = fiClosMake(e0, C24_inv)fiClosMakeFun(e0, (FiProg) (C24_inv));
588	l0->X26_gcd = fiClosMake(e0, C25_gcd)fiClosMakeFun(e0, (FiProg) (C25_gcd));
589	l0->X25_quo = fiClosMake(e0, C26_quo)fiClosMakeFun(e0, (FiProg) (C26_quo));
590	l0->X24_rem = fiClosMake(e0, C27_rem)fiClosMakeFun(e0, (FiProg) (C27_rem));
591	l0->X23_divide = fiClosMake(e0, C28_divide)fiClosMakeFun(e0, (FiProg) (C28_divide));
592	l0->X36__LT__LT_ = fiClosMake(e0, C29__LT__LT_)fiClosMakeFun(e0, (FiProg) (C29__LT__LT_));
593	l0->X22_step = fiClosMake(e0, C30_step)fiClosMakeFun(e0, (FiProg) (C30_step));
594	l0->X18_coerce = fiClosMake(e0, C37_coerce)fiClosMakeFun(e0, (FiProg) (C37_coerce));
595	l0->X19_coerce = fiClosMake(e0, C38_coerce)fiClosMakeFun(e0, (FiProg) (C38_coerce));
596	l0->X20_coerce = fiClosMake(e0, C39_coerce)fiClosMakeFun(e0, (FiProg) (C39_coerce));
597	l0->X21_coerce = fiClosMake(e0, C40_coerce)fiClosMakeFun(e0, (FiProg) (C40_coerce));
598	l0->X17_mantissa = fiClosMake(e0, C41_mantissa)fiClosMakeFun(e0, (FiProg) (C41_mantissa));
599	l0->X16_exponent = fiClosMake(e0, C42_exponent)fiClosMakeFun(e0, (FiProg) (C42_exponent));
600	l0->X15_fraction = fiClosMake(e0, C43_fraction)fiClosMakeFun(e0, (FiProg) (C43_fraction));
601	l0->X14_integer = fiClosMake(e0, C44_integer)fiClosMakeFun(e0, (FiProg) (C44_integer));
602	l0->X13_round = fiClosMake(e0, C45_round)fiClosMakeFun(e0, (FiProg) (C45_round));
603	l0->X12_prev = fiClosMake(e0, C46_prev)fiClosMakeFun(e0, (FiProg) (C46_prev));
604	l0->X11_next = fiClosMake(e0, C47_next)fiClosMakeFun(e0, (FiProg) (C47_next));
605	l0->X10_round_PLUS_ = fiClosMake(e0, C48_round_PLUS_)fiClosMakeFun(e0, (FiProg) (C48_round_PLUS_));
606	l0->X9_round_MINUS_ = fiClosMake(e0, C49_round_MINUS_)fiClosMakeFun(e0, (FiProg) (C49_round_MINUS_));
607	l0->X8_round_STAR_ = fiClosMake(e0, C50_round_STAR_)fiClosMakeFun(e0, (FiProg) (C50_round_STAR_));
608	l0->X7_round_STAR__PLUS_ = fiClosMake(e0, C51_round_STAR__PLUS_)fiClosMakeFun(e0, (FiProg) (C51_round_STAR__PLUS_));
609	l0->X6_round_SLASH_ = fiClosMake(e0, C52_round_SLASH_)fiClosMakeFun(e0, (FiProg) (C52_round_SLASH_));
610	l0->X5_floor = fiClosMake(e0, C53_floor)fiClosMakeFun(e0, (FiProg) (C53_floor));
611	l0->X4_ceiling = fiClosMake(e0, C54_ceiling)fiClosMakeFun(e0, (FiProg) (C54_ceiling));
612	l0->X37__LT__LT_ = fiClosMake(e0, C55__LT__LT_)fiClosMakeFun(e0, (FiProg) (C55__LT__LT_));
613	l0->X3_hash = fiClosMake(e0, C57_hash)fiClosMakeFun(e0, (FiProg) (C57_hash));
614	l0->X2_case = fiClosMake(e0, C58_case)fiClosMakeFun(e0, (FiProg) (C58_case));
615	l0->X1_abs = fiClosMake(e0, C59_abs)fiClosMakeFun(e0, (FiProg) (C59_abs));
616	l0->X0_sign = fiClosMake(e0, C60_sign)fiClosMakeFun(e0, (FiProg) (C60_sign));
617	l0->X52_max = fiClosMake(e0, C61_max)fiClosMakeFun(e0, (FiProg) (C61_max));
618	l0->X54_min = fiClosMake(e0, C62_min)fiClosMakeFun(e0, (FiProg) (C62_min));
619	fiSINT_HASHCOMBINE(T8, FiSInt, l0->X56, 711292475L)((T8) = (FiSInt) fiSIntHashCombine(l0->X56, 711292475L));
620	fiSINT_HASHCOMBINE(T25, FiSInt, l0->X56, 51489085L)((T25) = (FiSInt) fiSIntHashCombine(l0->X56, 51489085L));
621	fiSINT_HASHCOMBINE(T26, FiSInt, 32236L, T25)((T26) = (FiSInt) fiSIntHashCombine(32236L, T25));
622	fiSINT_HASHCOMBINE(T9, FiSInt, 740244383L, T26)((T9) = (FiSInt) fiSIntHashCombine(740244383L, T26));
623	fiSINT_HASHCOMBINE(T27, FiSInt, l0->X56, T25)((T27) = (FiSInt) fiSIntHashCombine(l0->X56, T25));
624	fiSINT_HASHCOMBINE(T28, FiSInt, 32236L, T27)((T28) = (FiSInt) fiSIntHashCombine(32236L, T27));
625	fiSINT_HASHCOMBINE(T10, FiSInt, 740244383L, T28)((T10) = (FiSInt) fiSIntHashCombine(740244383L, T28));
626	fiSINT_HASHCOMBINE(T11, FiSInt, l0->X56, T26)((T11) = (FiSInt) fiSIntHashCombine(l0->X56, T26));
627	fiSINT_HASHCOMBINE(T29, FiSInt, l0->X56, T28)((T29) = (FiSInt) fiSIntHashCombine(l0->X56, T28));
628	fiSINT_HASHCOMBINE(T12, FiSInt, l0->X56, fiSIntHashCombine((FiSInt)((T12) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 484208045L , ( FiSInt) T25))))
629	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 484208045L, (((T12) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 484208045L , ( FiSInt) T25))))
630	FiSInt) T25)))((T12) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 484208045L , ( FiSInt) T25))));
631	fiSINT_HASHCOMBINE(T13, FiSInt, l0->X56, T29)((T13) = (FiSInt) fiSIntHashCombine(l0->X56, T29));
632	fiSINT_HASHCOMBINE(T14, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T14) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X56, ( FiSInt) 102896482L))))
633	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X56, (((T14) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X56, ( FiSInt) 102896482L))))
634	FiSInt) 102896482L)))((T14) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X56, ( FiSInt) 102896482L))));
635	fiSINT_HASHCOMBINE(T15, FiSInt, fiSIntHashCombine((FiSInt)((T15) = (FiSInt) fiSIntHashCombine(fiSIntHashCombine((FiSInt ) fiSIntHashCombine((FiSInt) l0->X56, (FiSInt) 83976792L), ( FiSInt) T28), 796932504L))
636	fiSIntHashCombine((FiSInt) l0->X56, (FiSInt) 83976792L), (((T15) = (FiSInt) fiSIntHashCombine(fiSIntHashCombine((FiSInt ) fiSIntHashCombine((FiSInt) l0->X56, (FiSInt) 83976792L), ( FiSInt) T28), 796932504L))
637	FiSInt) T28), 796932504L)((T15) = (FiSInt) fiSIntHashCombine(fiSIntHashCombine((FiSInt ) fiSIntHashCombine((FiSInt) l0->X56, (FiSInt) 83976792L), ( FiSInt) T28), 796932504L));
638	fiSINT_HASHCOMBINE(T16, FiSInt, l0->X56, 366858836L)((T16) = (FiSInt) fiSIntHashCombine(l0->X56, 366858836L));
639	fiSINT_HASHCOMBINE(T17, FiSInt, l0->X56, 796932504L)((T17) = (FiSInt) fiSIntHashCombine(l0->X56, 796932504L));
640	fiSINT_HASHCOMBINE(T18, FiSInt, 484208045L, T26)((T18) = (FiSInt) fiSIntHashCombine(484208045L, T26));
641	fiSINT_HASHCOMBINE(T19, FiSInt, 484208045L, fiSIntHashCombine((FiSInt)((T19) = (FiSInt) fiSIntHashCombine(484208045L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) T25))))
642	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L, (((T19) = (FiSInt) fiSIntHashCombine(484208045L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) T25))))
643	FiSInt) T25)))((T19) = (FiSInt) fiSIntHashCombine(484208045L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) T25))));
644	fiSINT_HASHCOMBINE(T20, FiSInt, l0->X56, fiSIntHashCombine((FiSInt)((T20) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) T27))))
645	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L, (((T20) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) T27))))
646	FiSInt) T27)))((T20) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) T27))));
647	fiSINT_HASHCOMBINE(T21, FiSInt, l0->X56, fiSIntHashCombine((FiSInt)((T21) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) fiSIntHashCombine((FiSInt) l0->X56, (FiSInt) T27 )))))
648	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L, (((T21) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) fiSIntHashCombine((FiSInt) l0->X56, (FiSInt) T27 )))))
649	FiSInt) fiSIntHashCombine((FiSInt) l0->X56, (FiSInt) T27))))((T21) = (FiSInt) fiSIntHashCombine(l0->X56, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 922224055L , ( FiSInt) fiSIntHashCombine((FiSInt) l0->X56, (FiSInt) T27 )))));
650	fiSINT_HASHCOMBINE(T22, FiSInt, 755420535L, T26)((T22) = (FiSInt) fiSIntHashCombine(755420535L, T26));
651	fiSINT_HASHCOMBINE(T23, FiSInt, 33717313L, T26)((T23) = (FiSInt) fiSIntHashCombine(33717313L, T26));
652	T24 = l0->X56;
653	T3 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
654	T3->X0_size = 60L;
655	T3->X1_nsize = 60L;
656	T3->X2_values = (FiWord) T0;
657	T4 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
658	T4->X0_size = 60L;
659	T4->X1_nsize = 60L;
660	T4->X2_values = (FiWord) T1;
661	T5 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
662	T5->X0_size = 60L;
663	T5->X1_nsize = 60L;
664	T5->X2_values = (FiWord) T2;
665	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) );
666	T30 = fiCCall1(FiClos, (pG_JP87X_rtConstSIntFn), 189518043L)((((FiClos ()())((pG_JP87X_rtConstSIntFn))->prog->fun ))(((*pG_JP87X_rtConstSIntFn))->env,189518043L));
667	T31 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "SingleFloat")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"SingleFloat"));
668	T31 = fiCCall3(FiWord, (pG_GOVLL_categoryMake), fiClosMake(e0,((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((*pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_sfloat)),T30,T31))
669	C3_sfloat), T30, T31)((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_sfloat)),T30,T31));
670	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, T31, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,T31,T6 ));
671	l0->X55_Rep = fiCCall0(FiWord, (pG_BEY7_domainMakeDummy))((((FiWord ()())((pG_BEY7_domainMakeDummy))->prog->fun ))(((*pG_BEY7_domainMakeDummy))->env));
672	T7 = l0->X55_Rep;
673	l0->X55_Rep = l2->X4_SFlo;
674	fiCCall2(void, (pG_AK1EB_domainFill_BANG_), T7, l0->X55_Rep)((((void ()())((pG_AK1EB_domainFill_BANG_))->prog->fun ))(((*pG_AK1EB_domainFill_BANG_))->env,T7,l0->X55_Rep));
675	l0->X55_Rep = T7;
676	T0[0L] = (FiWord) 316169058L;
677	T1[0L] = (FiWord) 547382598L;
678	T2[0L] = l0->X55_Rep;
679	T0[1L] = (FiWord) 474568739L;
680	T1[1L] = (FiWord) T8;
681	T2[1L] = (FiWord) l0->X47_float;
682	T0[2L] = (FiWord) 206475020L;
683	T1[2L] = (FiWord) T9;
684	T2[2L] = (FiWord) l0->X46_zero_QMARK_;
685	T0[3L] = (FiWord) 424301635L;
686	T1[3L] = (FiWord) T9;
687	T2[3L] = (FiWord) l0->X45_negative_QMARK_;
688	T0[4L] = (FiWord) 733146723L;
689	T1[4L] = (FiWord) T9;
690	T2[4L] = (FiWord) l0->X44_positive_QMARK_;
691	T0[5L] = (FiWord) 200102L;
692	T1[5L] = (FiWord) T10;
693	T2[5L] = (FiWord) l0->X43__EQ_;
694	T0[6L] = (FiWord) 51509389L;
695	T1[6L] = (FiWord) T10;
696	T2[6L] = (FiWord) l0->X42__TILDE__EQ_;
697	T0[7L] = (FiWord) 200101L;
698	T1[7L] = (FiWord) T10;
699	T2[7L] = (FiWord) l0->X41__LT_;
700	T0[8L] = (FiWord) 200103L;
701	T1[8L] = (FiWord) T10;
702	T2[8L] = (FiWord) l0->X40__GT_;
703	T0[9L] = (FiWord) 51492427L;
704	T1[9L] = (FiWord) T10;
705	T2[9L] = (FiWord) l0->X39__LT__EQ_;
706	T0[10L] = (FiWord) 51492941L;
707	T1[10L] = (FiWord) T10;
708	T2[10L] = (FiWord) l0->X38__GT__EQ_;
709	T0[11L] = (FiWord) 51492426L;
710	T1[11L] = (FiWord) T10;
711	T2[11L] = (FiWord) l0->X35__LT__LT_;
712	T0[12L] = (FiWord) 51492942L;
713	T1[12L] = (FiWord) T10;
714	T2[12L] = (FiWord) l0->X34__GT__GT_;
715	T0[13L] = (FiWord) 200084L;
716	T1[13L] = (FiWord) T11;
717	T2[13L] = (FiWord) l0->X32__PLUS_;
718	T0[14L] = (FiWord) 200086L;
719	T1[14L] = (FiWord) T11;
720	T2[14L] = (FiWord) l0->X48__MINUS_;
721	T0[15L] = (FiWord) 200084L;
722	T1[15L] = (FiWord) T29;
723	T2[15L] = (FiWord) l0->X33__PLUS_;
724	T0[16L] = (FiWord) 200086L;
725	T1[16L] = (FiWord) T29;
726	T2[16L] = (FiWord) l0->X49__MINUS_;
727	T0[17L] = (FiWord) 200083L;
728	T1[17L] = (FiWord) T29;
729	T2[17L] = (FiWord) l0->X31__STAR_;
730	T0[18L] = (FiWord) 200133L;
731	T1[18L] = (FiWord) T29;
732	T2[18L] = (FiWord) l0->X30__BSLSH_;
733	T0[19L] = (FiWord) 200088L;
734	T1[19L] = (FiWord) T29;
735	T2[19L] = (FiWord) l0->X29__SLASH_;
736	T0[20L] = (FiWord) 200135L;
737	T1[20L] = (FiWord) T12;
738	T2[20L] = (FiWord) l0->X28__HAT_;
739	T0[21L] = (FiWord) 318722696L;
740	T1[21L] = (FiWord) T11;
741	T2[21L] = (FiWord) l0->X27_inv;
742	T0[22L] = (FiWord) 318604649L;
743	T1[22L] = (FiWord) T29;
744	T2[22L] = (FiWord) l0->X26_gcd;
745	T0[23L] = (FiWord) 318204816L;
746	T1[23L] = (FiWord) T29;
747	T2[23L] = (FiWord) l0->X25_quo;
748	T0[24L] = (FiWord) 318266239L;
749	T1[24L] = (FiWord) T29;
750	T2[24L] = (FiWord) l0->X24_rem;
751	T0[25L] = (FiWord) 42114539L;
752	T1[25L] = (FiWord) T13;
753	T2[25L] = (FiWord) l0->X23_divide;
754	T0[26L] = (FiWord) 51492426L;
755	T1[26L] = (FiWord) T14;
756	T2[26L] = (FiWord) l0->X36__LT__LT_;
757	T0[27L] = (FiWord) 61407584L;
758	T1[27L] = (FiWord) T15;
759	T2[27L] = (FiWord) l0->X22_step;
760	T0[28L] = (FiWord) 770345191L;
761	T1[28L] = (FiWord) T16;
762	T2[28L] = (FiWord) l0->X18_coerce;
763	T0[29L] = (FiWord) 770345191L;
764	T1[29L] = (FiWord) T17;
765	T2[29L] = (FiWord) l0->X19_coerce;
766	T0[30L] = (FiWord) 770345191L;
767	fiSINT_HASHCOMBINE(T1[30L], FiWord, l0->X56, 840281212L)((T1[30L]) = (FiWord) fiSIntHashCombine(l0->X56, 840281212L ));
768	T2[30L] = (FiWord) l0->X20_coerce;
769	T0[31L] = (FiWord) 770345191L;
770	fiSINT_HASHCOMBINE(T1[31L], FiWord, 592883736L, fiSIntHashCombine((((T1[31L]) = (FiWord) fiSIntHashCombine(592883736L, fiSIntHashCombine (( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X56, ( FiSInt) 51489085L))))
771	FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X56, (((T1[31L]) = (FiWord) fiSIntHashCombine(592883736L, fiSIntHashCombine (( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X56, ( FiSInt) 51489085L))))
772	FiSInt) 51489085L)))((T1[31L]) = (FiWord) fiSIntHashCombine(592883736L, fiSIntHashCombine (( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X56, ( FiSInt) 51489085L))));
773	T2[31L] = (FiWord) l0->X21_coerce;
774	T0[32L] = (FiWord) 998253480L;
775	T1[32L] = (FiWord) T18;
776	T2[32L] = (FiWord) l0->X17_mantissa;
777	T0[33L] = (FiWord) 13508537L;
778	T1[33L] = (FiWord) T18;
779	T2[33L] = (FiWord) l0->X16_exponent;
780	T0[34L] = (FiWord) 244914846L;
781	T1[34L] = (FiWord) T11;
782	T2[34L] = (FiWord) l0->X15_fraction;
783	T0[35L] = (FiWord) 477900237L;
784	T1[35L] = (FiWord) T18;
785	T2[35L] = (FiWord) l0->X14_integer;
786	T0[36L] = (FiWord) 195459125L;
787	T1[36L] = (FiWord) T19;
788	T2[36L] = (FiWord) l0->X13_round;
789	T0[37L] = (FiWord) 613807201L;
790	T1[37L] = (FiWord) T11;
791	T2[37L] = (FiWord) l0->X12_prev;
792	T0[38L] = (FiWord) 782953315L;
793	T1[38L] = (FiWord) T11;
794	T2[38L] = (FiWord) l0->X11_next;
795	T0[39L] = (FiWord) 769743561L;
796	T1[39L] = (FiWord) T20;
797	T2[39L] = (FiWord) l0->X10_round_PLUS_;
798	T0[40L] = (FiWord) 769743563L;
799	T1[40L] = (FiWord) T20;
800	T2[40L] = (FiWord) l0->X9_round_MINUS_;
801	T0[41L] = (FiWord) 769743560L;
802	T1[41L] = (FiWord) T20;
803	T2[41L] = (FiWord) l0->X8_round_STAR_;
804	T0[42L] = (FiWord) 213819484L;
805	T1[42L] = (FiWord) T21;
806	T2[42L] = (FiWord) l0->X7_round_STAR__PLUS_;
807	T0[43L] = (FiWord) 769743565L;
808	T1[43L] = (FiWord) T20;
809	T2[43L] = (FiWord) l0->X6_round_SLASH_;
810	T0[44L] = (FiWord) 474572335L;
811	T1[44L] = (FiWord) T11;
812	T2[44L] = (FiWord) l0->X5_floor;
813	T0[45L] = (FiWord) 427129530L;
814	T1[45L] = (FiWord) T11;
815	T2[45L] = (FiWord) l0->X4_ceiling;
816	T0[46L] = (FiWord) 51492426L;
817	T1[46L] = (FiWord) T22;
818	T2[46L] = (FiWord) l0->X37__LT__LT_;
819	T0[47L] = (FiWord) 746853960L;
820	T1[47L] = (FiWord) T23;
821	T2[47L] = (FiWord) l0->X3_hash;
822	T0[48L] = (FiWord) 864625472L;
823	T1[48L] = (FiWord) T10;
824	T2[48L] = (FiWord) l0->X2_case;
825	T0[49L] = (FiWord) 315051633L;
826	T1[49L] = (FiWord) T11;
827	T2[49L] = (FiWord) l0->X1_abs;
828	T0[50L] = (FiWord) 61935445L;
829	T1[50L] = (FiWord) T11;
830	T2[50L] = (FiWord) l0->X0_sign;
831	T0[51L] = (FiWord) 318461825L;
832	T1[51L] = (FiWord) T29;
833	T2[51L] = (FiWord) l0->X52_max;
834	T0[52L] = (FiWord) 318459775L;
835	T1[52L] = (FiWord) T29;
836	T2[52L] = (FiWord) l0->X54_min;
837	T0[53L] = (FiWord) 200089L;
838	T1[53L] = (FiWord) T24;
839	fiWORD_FR_SFLO(T2[53L], 0.0000000000000000){ FiSFlo fi_tmp = (0.0000000000000000); (T2[53L]) = (FiWord )(&fi_tmp); };
840	T0[54L] = (FiWord) 200090L;
841	T1[54L] = (FiWord) T24;
842	fiWORD_FR_SFLO(T2[54L], 1.0000000000000000){ FiSFlo fi_tmp = (1.0000000000000000); (T2[54L]) = (FiWord )(&fi_tmp); };
843	l0->X53_min = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l2->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X6_min))
844	X6_min)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2-> X6_min));
845	T0[55L] = (FiWord) 318459775L;
846	T1[55L] = (FiWord) T24;
847	T2[55L] = l0->X53_min;
848	l0->X51_max = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l2->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X5_max))
849	X5_max)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2-> X5_max));
850	T0[56L] = (FiWord) 318461825L;
851	T1[56L] = (FiWord) T24;
852	T2[56L] = l0->X51_max;
853	l0->X50_epsilon = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport),((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2->X7_epsilon ))
854	l2->X7_epsilon)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2->X7_epsilon ));
855	T0[57L] = (FiWord) 375422425L;
856	T1[57L] = (FiWord) T24;
857	T2[57L] = l0->X50_epsilon;
858	T0[58L] = (FiWord) 200076L;
859	T1[58L] = (FiWord) 484208045L;
860	T2[58L] = (FiWord) GB0;
861	T0[59L] = (FiWord) 255806968L;
862	T1[59L] = (FiWord) T24;
863	fiWORD_FR_SFLO(T2[59L], 0.0000000000000000){ FiSFlo fi_tmp = (0.0000000000000000); (T2[59L]) = (FiWord )(&fi_tmp); };
864	return P0_domain;
865	}
866
867	static struct _FiProg tmp2_addLevel1 = {
868	(FiFun) CF2_addLevel1,
869	0L,
870	0L,
871	0L,
872	0L
873	};
874
875
876	static void
877	CF3_sfloat(FiEnv e1, FiWord P0_self, FiWord P1_dom)
878	{
879	PFmt6 T3, T4, T5, T7;
880	FiWord T0, T1, T2, T6;
881	FiEnv e3, e2;
882	PFmt15 l3;
883	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
884	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
885	l3 = (PFmt15) fiEnvLevel(e3)((FiEnv) (e3)->level);
886	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
887	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
888	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
889	fiARRNEW_Word(T6, FiWord, 2L)((T6) = (FiWord) fiArrNew_Word(2L));
890	T3 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
891	T3->X0_size = 0L;
892	T3->X1_nsize = 0L;
893	T3->X2_values = (FiWord) T0;
894	T4 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
895	T4->X0_size = 0L;
896	T4->X1_nsize = 0L;
897	T4->X2_values = (FiWord) T1;
898	T5 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
899	T5->X0_size = 0L;
900	T5->X1_nsize = 0L;
901	T5->X2_values = (FiWord) T2;
902	fiCCall4(void, (pG_WXLY5_categoryAddExports), P0_self, T3, T4, T5)((((void ()())((pG_WXLY5_categoryAddExports))->prog-> fun))(((*pG_WXLY5_categoryAddExports))->env,P0_self,T3,T4, T5));
903	T6[0L] = l3->X2_OrderedFinite;
904	T6[1L] = l3->X1_FloatingPointNumberSystem;
905	T7 = fi0RecNew(struct Fmt6 , CENSUS_Rec)((struct Fmt6 *) fi0RecAlloc(sizeof(struct Fmt6), ( 5)));
906	T7->X0_size = 2L;
907	T7->X1_nsize = 2L;
908	T7->X2_values = (FiWord) T6;
909	fiCCall3(FiWord, (pG_YXGL3_categoryAddParents), P0_self, T7, P1_dom)((((FiWord ()())((pG_YXGL3_categoryAddParents))->prog-> fun))(((*pG_YXGL3_categoryAddParents))->env,P0_self,T7,P1_dom ));
910	return ;
911	}
912
913	static struct _FiProg tmp3_sfloat = {
914	(FiFun) CF3_sfloat,
915	0L,
916	0L,
917	0L,
918	0L
919	};
920
921
922	static FiWord
923	CF4_float(FiEnv e1, FiWord P0_l)
924	{
925	FiSFlo T0;
926	fiARR_TO_SFLO(T0, FiSFlo, (FiPtr) P0_l)((T0) = (FiSFlo) fiArrToSFlo((FiArr)(FiPtr) P0_l));
927	return fiSFloToWord(T0);
928	}
929
930	static struct _FiProg tmp4_float = {
931	(FiFun) CF4_float,
932	0L,
933	0L,
934	0L,
935	0L
936	};
937
938
939	static FiWord
940	CF5_zero_QMARK_(FiEnv e1, FiWord P0_x)
941	{
942	return (FiWord) (fiWordToSFlo(P0_x) == 0.0);
943	}
944
945	static struct _FiProg tmp5_zero_QMARK_ = {
946	(FiFun) CF5_zero_QMARK_,
947	0L,
948	0L,
949	0L,
950	0L
951	};
952
953
954	static FiWord
955	CF6_negative_QMARK_(FiEnv e1, FiWord P0_x)
956	{
957	return (FiWord) (fiWordToSFlo(P0_x) < 0.0);
958	}
959
960	static struct _FiProg tmp6_negative_QMARK_ = {
961	(FiFun) CF6_negative_QMARK_,
962	0L,
963	0L,
964	0L,
965	0L
966	};
967
968
969	static FiWord
970	CF7_positive_QMARK_(FiEnv e1, FiWord P0_x)
971	{
972	return (FiWord) (fiWordToSFlo(P0_x) > 0.0);
973	}
974
975	static struct _FiProg tmp7_positive_QMARK_ = {
976	(FiFun) CF7_positive_QMARK_,
977	0L,
978	0L,
979	0L,
980	0L
981	};
982
983
984	static FiWord
985	CF8__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y)
986	{
987	return (FiWord) (fiWordToSFlo(P0_x) == fiWordToSFlo(P1_y));
988	}
989
990	static struct _FiProg tmp8__EQ_ = {
991	(FiFun) CF8__EQ_,
992	0L,
993	0L,
994	0L,
995	0L
996	};
997
998
999	static FiWord
1000	CF9__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1001	{
1002	return (FiWord) (fiWordToSFlo(P0_x) != fiWordToSFlo(P1_y));
1003	}
1004
1005	static struct _FiProg tmp9__TILDE__EQ_ = {
1006	(FiFun) CF9__TILDE__EQ_,
1007	0L,
1008	0L,
1009	0L,
1010	0L
1011	};
1012
1013
1014	static FiWord
1015	CF10__LT_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1016	{
1017	return (FiWord) (fiWordToSFlo(P0_x) < fiWordToSFlo(P1_y));
1018	}
1019
1020	static struct _FiProg tmp10__LT_ = {
1021	(FiFun) CF10__LT_,
1022	0L,
1023	0L,
1024	0L,
1025	0L
1026	};
1027
1028
1029	static FiWord
1030	CF11__GT_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1031	{
1032	return (FiWord) (fiWordToSFlo(P1_y) < fiWordToSFlo(P0_x));
1033	}
1034
1035	static struct _FiProg tmp11__GT_ = {
1036	(FiFun) CF11__GT_,
1037	0L,
1038	0L,
1039	0L,
1040	0L
1041	};
1042
1043
1044	static FiWord
1045	CF12__LT__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1046	{
1047	return (FiWord) (fiWordToSFlo(P0_x) <= fiWordToSFlo(P1_y));
1048	}
1049
1050	static struct _FiProg tmp12__LT__EQ_ = {
1051	(FiFun) CF12__LT__EQ_,
1052	0L,
1053	0L,
1054	0L,
1055	0L
1056	};
1057
1058
1059	static FiWord
1060	CF13__GT__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1061	{
1062	return (FiWord) (fiWordToSFlo(P1_y) <= fiWordToSFlo(P0_x));
1063	}
1064
1065	static struct _FiProg tmp13__GT__EQ_ = {
1066	(FiFun) CF13__GT__EQ_,
1067	0L,
1068	0L,
1069	0L,
1070	0L
1071	};
1072
1073
1074	static FiWord
1075	CF14__LT__LT_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1076	{
1077	return (FiWord) (fiWordToSFlo(P1_y) == fiWordToSFlo(P0_x) +
1078	fiWordToSFlo(P1_y));
1079	}
1080
1081	static struct _FiProg tmp14__LT__LT_ = {
1082	(FiFun) CF14__LT__LT_,
1083	0L,
1084	0L,
1085	0L,
1086	0L
1087	};
1088
1089
1090	static FiWord
1091	CF15__GT__GT_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1092	{
1093	return (FiWord) (fiWordToSFlo(P0_x) == fiWordToSFlo(P0_x) +
1094	fiWordToSFlo(P1_y));
1095	}
1096
1097	static struct _FiProg tmp15__GT__GT_ = {
1098	(FiFun) CF15__GT__GT_,
1099	0L,
1100	0L,
1101	0L,
1102	0L
1103	};
1104
1105
1106	static FiWord
1107	CF16__PLUS_(FiEnv e1, FiWord P0_x)
1108	{
1109	return P0_x;
1110	}
1111
1112	static struct _FiProg tmp16__PLUS_ = {
1113	(FiFun) CF16__PLUS_,
1114	0L,
1115	0L,
1116	0L,
1117	0L
1118	};
1119
1120
1121	static FiWord
1122	CF17__MINUS_(FiEnv e1, FiWord P0_x)
1123	{
1124	return fiSFloToWord(-fiWordToSFlo(P0_x));
1125	}
1126
1127	static struct _FiProg tmp17__MINUS_ = {
1128	(FiFun) CF17__MINUS_,
1129	0L,
1130	0L,
1131	0L,
1132	0L
1133	};
1134
1135
1136	static FiWord
1137	CF18__PLUS_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1138	{
1139	return fiSFloToWord(fiWordToSFlo(P0_x) + fiWordToSFlo(P1_y));
1140	}
1141
1142	static struct _FiProg tmp18__PLUS_ = {
1143	(FiFun) CF18__PLUS_,
1144	0L,
1145	0L,
1146	0L,
1147	0L
1148	};
1149
1150
1151	static FiWord
1152	CF19__MINUS_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1153	{
1154	return fiSFloToWord(fiWordToSFlo(P0_x) - fiWordToSFlo(P1_y));
1155	}
1156
1157	static struct _FiProg tmp19__MINUS_ = {
1158	(FiFun) CF19__MINUS_,
1159	0L,
1160	0L,
1161	0L,
1162	0L
1163	};
1164
1165
1166	static FiWord
1167	CF20__STAR_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1168	{
1169	return fiSFloToWord(fiWordToSFlo(P0_x) * fiWordToSFlo(P1_y));
1170	}
1171
1172	static struct _FiProg tmp20__STAR_ = {
1173	(FiFun) CF20__STAR_,
1174	0L,
1175	0L,
1176	0L,
1177	0L
1178	};
1179
1180
1181	static FiWord
1182	CF21__BSLSH_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1183	{
1184	return fiSFloToWord(fiWordToSFlo(P1_y) / fiWordToSFlo(P0_x));
1185	}
1186
1187	static struct _FiProg tmp21__BSLSH_ = {
1188	(FiFun) CF21__BSLSH_,
1189	0L,
1190	0L,
1191	0L,
1192	0L
1193	};
1194
1195
1196	static FiWord
1197	CF22__SLASH_(FiEnv e1, FiWord P0_x, FiWord P1_y)
1198	{
1199	return fiSFloToWord(fiWordToSFlo(P0_x) / fiWordToSFlo(P1_y));
1200	}
1201
1202	static struct _FiProg tmp22__SLASH_ = {
1203	(FiFun) CF22__SLASH_,
1204	0L,
1205	0L,
1206	0L,
1207	0L
1208	};
1209
1210
1211	static FiWord
1212	CF23__HAT_(FiEnv e1, FiWord P0_x, FiWord P1_n)
1213	{
1214	fputs((FiWord) "^: (SingleFloat, Integer) -> SingleFloat not implemented",
1215	stdoutFile());
1216	fputc((FiWord) 10L, stdoutFile());
1217	fiHalt((FiSInt) 0L);
1218	return (FiWord) 0L;
1219	}
1220
1221	static struct _FiProg tmp23__HAT_ = {
1222	(FiFun) CF23__HAT_,
1223	0L,
1224	0L,
1225	0L,
1226	0L
1227	};
1228
1229
1230	static FiWord
1231	CF24_inv(FiEnv e1, FiWord P0_x)
1232	{
1233	return fiSFloToWord(1.0000000000000000 / fiWordToSFlo(P0_x));
1234	}
1235
1236	static struct _FiProg tmp24_inv = {
1237	(FiFun) CF24_inv,
1238	0L,
1239	0L,
1240	0L,
1241	0L
1242	};
1243
1244
1245	static FiWord
1246	CF25_gcd(FiEnv e1, FiWord P0_x, FiWord P1_y)
1247	{
1248	return fiSFloToWord(1.0000000000000000);
1249	}
1250
1251	static struct _FiProg tmp25_gcd = {
1252	(FiFun) CF25_gcd,
1253	0L,
1254	0L,
1255	0L,
1256	0L
1257	};
1258
1259
1260	static FiWord
1261	CF26_quo(FiEnv e1, FiWord P0_x, FiWord P1_y)
1262	{
1263	return fiSFloToWord(fiWordToSFlo(P0_x) / fiWordToSFlo(P1_y));
1264	}
1265
1266	static struct _FiProg tmp26_quo = {
1267	(FiFun) CF26_quo,
1268	0L,
1269	0L,
1270	0L,
1271	0L
1272	};
1273
1274
1275	static FiWord
1276	CF27_rem(FiEnv e1, FiWord P0_x, FiWord P1_y)
1277	{
1278	return fiSFloToWord(0.0000000000000000);
1279	}
1280
1281	static struct _FiProg tmp27_rem = {
1282	(FiFun) CF27_rem,
1283	0L,
1284	0L,
1285	0L,
1286	0L
1287	};
1288
1289
1290	static void
1291	CF28_divide(FiEnv e1, FiWord P0_x, FiWord P1_y, FiWord* R0, FiWord* R1)
1292	{
1293	FiWord T0;
1294	fiWORD_FR_SFLO(T0, fiWordToSFlo(P0_x) / fiWordToSFlo(P1_y)){ FiSFlo fi_tmp = (fiWordToSFlo(P0_x) / fiWordToSFlo(P1_y)); ( T0) = (FiWord )(&fi_tmp); };
1295	*R0 = T0;
1296	*R1 = fiSFloToWord(0.0000000000000000);
1297	return ;
1298	}
1299
1300	static struct _FiProg tmp28_divide = {
1301	(FiFun) CF28_divide,
1302	0L,
1303	0L,
1304	0L,
1305	0L
1306	};
1307
1308
1309	static FiWord
1310	CF29__LT__LT_(FiEnv e1, FiWord P0_w, FiWord P1_x)
1311	{
1312	FiWord T3;
1313	FiClos T0, T1, T2;
1314	T3 = formatSFlo(fiWordToSFlo(P1_x));
1315	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_w)->prog->fun)
1316	FiClos) P0_w)((( FiClos) P0_w)->prog->fun))(((FiClos) P0_w)->env, &T0, &T1, &T2);
1317	fiCCall3(FiWord, T1, T3, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,T3,(FiWord ) 1L,(FiWord) 0L));
1318	return P0_w;
1319	}
1320
1321	static struct _FiProg tmp29__LT__LT_ = {
1322	(FiFun) CF29__LT__LT_,
1323	0L,
1324	0L,
1325	0L,
1326	0L
1327	};
1328
1329
1330	static FiClos
1331	CF30_step(FiEnv e1, FiWord P0_n)
1332	{
1333	PFmt11 l0;
1334	FiEnv e3, e2, e0;
1335	PFmt13 l1;
1336	PFmt15 l3;
1337	l0 = fi0New(struct Fmt11 , CENSUS_EnvLevel)((struct Fmt11 *) fi0Alloc(sizeof(struct Fmt11), (19)));
1338	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1339	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
1340	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1341	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1342	l3 = (PFmt15) fiEnvLevel(e3)((FiEnv) (e3)->level);
1343	l0->X0_n = P0_n;
1344	return fiClosMake(e0, C31_step)fiClosMakeFun(e0, (FiProg) (C31_step));
1345	}
1346
1347	static struct _FiProg tmp30_step = {
1348	(FiFun) CF30_step,
1349	0L,
1350	0L,
1351	0L,
1352	0L
1353	};
1354
1355
1356	static FiClos
1357	CF31_step(FiEnv e1, FiWord P0_aa, FiWord P1_b)
1358	{
1359	PFmt10 l0;
1360	FiEnv e4, e3, e2, e0;
1361	PFmt11 l1;
1362	PFmt13 l2;
1363	PFmt15 l4;
1364	l0 = fi0New(struct Fmt10 , CENSUS_EnvLevel)((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)));
1365	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1366	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
1367	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1368	l2 = (PFmt13) fiEnvLevel(e2)((FiEnv) (e2)->level);
1369	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1370	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1371	l4 = (PFmt15) fiEnvLevel(e4)((FiEnv) (e4)->level);
1372	l0->X0_aa = P0_aa;
1373	l0->X1_b = P1_b;
1374	l0->X5 = 0L;
1375	return fiClosMake(e0, C32_generBaseFn)fiClosMakeFun(e0, (FiProg) (C32_generBaseFn));
1376	}
1377
1378	static struct _FiProg tmp31_step = {
1379	(FiFun) CF31_step,
1380	0L,
1381	0L,
1382	0L,
1383	0L
1384	};
1385
1386
1387	static void
1388	CF32_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
1389	R3)
1390	{
1391	FiEnv e5, e4, e3, e2, e0;
1392	PFmt10 l1;
1393	PFmt11 l2;
1394	PFmt13 l3;
1395	PFmt15 l5;
1396	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
1397	l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
	Value stored to 'l1' is never read
1398	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1399	l2 = (PFmt11) fiEnvLevel(e2)((FiEnv) (e2)->level);
1400	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1401	l3 = (PFmt13) fiEnvLevel(e3)((FiEnv) (e3)->level);
1402	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1403	e5 = fiEnvNext(e4)((FiEnv) (e4)->next);
1404	l5 = (PFmt15) fiEnvLevel(e5)((FiEnv) (e5)->level);
1405	*R0 = fiClosMake(e0, C34_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C34_generDone_QMARK_));
1406	*R1 = fiClosMake(e0, C33_generStepper)fiClosMakeFun(e0, (FiProg) (C33_generStepper));
1407	*R2 = fiClosMake(e0, C35_generValue)fiClosMakeFun(e0, (FiProg) (C35_generValue));
1408	*R3 = fiClosMake(e0, C36_generBound)fiClosMakeFun(e0, (FiProg) (C36_generBound));
1409	return ;
1410	}
1411
1412	static struct _FiProg tmp32_generBaseFn = {
1413	(FiFun) CF32_generBaseFn,
1414	0L,
1415	0L,
1416	0L,
1417	0L
1418	};
1419
1420
1421	static void
1422	CF33_generStepper(FiEnv e1)
1423	{
1424	PFmt18 T9, T12, T13;
1425	FiWord T0, T10, T11;
1426	FiSInt T1, T8;
1427	FiSFlo T2, T3, T4, T5, T6, T7;
1428	PFmt10 l2;
1429	FiEnv e6, e5, e4, e3, e2;
1430	PFmt11 l3;
1431	PFmt13 l4;
1432	PFmt15 l6;
1433	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1434	l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
1435	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
1436	l3 = (PFmt11) fiEnvLevel(e3)((FiEnv) (e3)->level);
1437	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
1438	l4 = (PFmt13) fiEnvLevel(e4)((FiEnv) (e4)->level);
1439	e5 = fiEnvNext(e4)((FiEnv) (e4)->next);
1440	e6 = fiEnvNext(e5)((FiEnv) (e5)->next);
1441	l6 = (PFmt15) fiEnvLevel(e6)((FiEnv) (e6)->level);
1442	switch (l2->X5) {
1443	case 0L: goto L0;
1444	case 1L: goto L3;
1445	}
1446	L0: l2->X4 = 0L;
1447	l2->X3_a = l2->X0_aa;
1448	T1 = (FiSInt) l3->X0_n;
1449	fiSFLO_FR_WORD(T6, l2->X1_b){ FiWord fi_tmp = (l2->X1_b); (T6) = (FiSFlo )(&fi_tmp );};
1450	fiSFLO_FR_WORD(T7, l2->X3_a){ FiWord fi_tmp = (l2->X3_a); (T7) = (FiSFlo )(&fi_tmp );};
1451	T4 = T6 - T7;
1452	fiEnvEnsure(l4->X19_coerce->env)fiEnvEnsureFun(l4->X19_coerce->env);
1453	T8 = T1 - 1L;
1454	fiSINT_TO_SFLO(T5, FiSFlo, T8)((T5) = (FiSFlo) ((FiSFlo)(T8)));
1455	fiWORD_FR_SFLO(l2->X2_del, T4 / T5){ FiSFlo fi_tmp = (T4 / T5); (l2->X2_del) = (FiWord )(& fi_tmp); };
1456	fiEnvEnsure(l6->X10_generator->env)fiEnvEnsureFun(l6->X10_generator->env);
1457	l2->X8_12 = fiEnvPush(fi0New(struct Fmt17 , CENSUS_EnvLevel),fiEnvPushFun((FiPtr) (((struct Fmt17 *) fi0Alloc(sizeof(struct Fmt17), (19)))), l6->X10_generator->env)
1458	l6->X10_generator->env)fiEnvPushFun((FiPtr) (((struct Fmt17 *) fi0Alloc(sizeof(struct Fmt17), (19)))), l6->X10_generator->env);
1459	T10 = l3->X0_n;
1460	T9 = fi0RecNew(struct Fmt18 , CENSUS_Rec)((struct Fmt18 *) fi0RecAlloc(sizeof(struct Fmt18), ( 5)));
1461	T9->X0_open_QMARK_ = (FiWord) 0L;
1462	T9->X1_low = (FiWord) 1L;
1463	T9->X2_high = T10;
1464	T9->X3_step = (FiWord) 1L;
1465	((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X0_s = (FiWord) T9;
1466	((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X4 = 0L;
1467	fiEnvEnsure(l2->X8_12)fiEnvEnsureFun(l2->X8_12);
1468	L1: switch (((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X4) {
1469	case 0L: goto L4;
1470	case 1L: goto L6;
1471	}
1472	L4: ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X3 = 0L;
1473	T13 = (PFmt18) ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X0_s;
1474	((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X2_a = T13->X1_low;
1475	T12 = (PFmt18) ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X0_s;
1476	((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X1_b = T12->X2_high;
1477	L5: if ((FiSInt) ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X2_a <= (FiSInt) ((
1478	PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X1_b) goto L7;
1479	((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X3 = 1L;
1480	L8: if ((FiBool) ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X3) goto L2;
1481	l2->X7_i = ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X5;
1482	l2->X5 = 1L;
1483	T0 = l2->X3_a;
1484	l2->X6 = T0;
1485	return ;
1486	L2: l2->X4 = 1L;
1487	return ;
1488	L7: ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X4 = 1L;
1489	T11 = ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X2_a;
1490	((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X5 = T11;
1491	goto L8;
1492	L6: ((PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X2_a = (FiWord) ((FiSInt) ((
1493	PFmt17) fiEnvLevel0(l2->X8_12)(((FiEnv)(l2->X8_12))->level))->X2_a + 1L);
1494	goto L5;
1495	L3: fiSFLO_FR_WORD(T2, l2->X3_a){ FiWord fi_tmp = (l2->X3_a); (T2) = (FiSFlo )(&fi_tmp );};
1496	fiSFLO_FR_WORD(T3, l2->X2_del){ FiWord fi_tmp = (l2->X2_del); (T3) = (FiSFlo )(&fi_tmp );};
1497	fiWORD_FR_SFLO(l2->X3_a, T2 + T3){ FiSFlo fi_tmp = (T2 + T3); (l2->X3_a) = (FiWord )(& fi_tmp); };
1498	goto L1;
1499	}
1500
1501	static struct _FiProg tmp33_generStepper = {
1502	(FiFun) CF33_generStepper,
1503	0L,
1504	0L,
1505	0L,
1506	0L
1507	};
1508
1509
1510	static FiBool
1511	CF34_generDone_QMARK_(FiEnv e1)
1512	{
1513	PFmt10 l2;
1514	FiEnv e2;
1515	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1516	l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
1517	return l2->X4;
1518	}
1519
1520	static struct _FiProg tmp34_generDone_QMARK_ = {
1521	(FiFun) CF34_generDone_QMARK_,
1522	0L,
1523	0L,
1524	0L,
1525	0L
1526	};
1527
1528
1529	static FiWord
1530	CF35_generValue(FiEnv e1)
1531	{
1532	PFmt10 l2;
1533	FiEnv e2;
1534	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1535	l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
1536	return l2->X6;
1537	}
1538
1539	static struct _FiProg tmp35_generValue = {
1540	(FiFun) CF35_generValue,
1541	0L,
1542	0L,
1543	0L,
1544	0L
1545	};
1546
1547
1548	static FiSInt
1549	CF36_generBound(FiEnv e1)
1550	{
1551	return -1L;
1552	}
1553
1554	static struct _FiProg tmp36_generBound = {
1555	(FiFun) CF36_generBound,
1556	0L,
1557	0L,
1558	0L,
1559	0L
1560	};
1561
1562
1563	static FiWord
1564	CF37_coerce(FiEnv e1, FiWord P0_n)
1565	{
1566	FiSFlo T0;
1567	fiBINT_TO_SFLO(T0, FiSFlo, (FiBInt) P0_n)((T0) = (FiSFlo) fiBIntToSFlo((FiBInt) P0_n));
1568	return fiSFloToWord(T0);
1569	}
1570
1571	static struct _FiProg tmp37_coerce = {
1572	(FiFun) CF37_coerce,
1573	0L,
1574	0L,
1575	0L,
1576	0L
1577	};
1578
1579
1580	static FiWord
1581	CF38_coerce(FiEnv e1, FiWord P0_n)
1582	{
1583	return fiSFloToWord((FiSFlo) (FiSInt) P0_n);
1584	}
1585
1586	static struct _FiProg tmp38_coerce = {
1587	(FiFun) CF38_coerce,
1588	0L,
1589	0L,
1590	0L,
1591	0L
1592	};
1593
1594
1595	static FiWord
1596	CF39_coerce(FiEnv e1, FiSFlo P0_x)
1597	{
1598	return fiSFloToWord(P0_x);
1599	}
1600
1601	static struct _FiProg tmp39_coerce = {
1602	(FiFun) CF39_coerce,
1603	0L,
1604	0L,
1605	0L,
1606	0L
1607	};
1608
1609
1610	static FiSFlo
1611	CF40_coerce(FiEnv e1, FiWord P0_x)
1612	{
1613	return fiWordToSFlo(P0_x);
1614	}
1615
1616	static struct _FiProg tmp40_coerce = {
1617	(FiFun) CF40_coerce,
1618	0L,
1619	0L,
1620	0L,
1621	0L
1622	};
1623
1624
1625	static FiWord
1626	CF41_mantissa(FiEnv e1, FiWord P0_x)
1627	{
1628	FiBInt T0;
1629	T0 = fiSFloMantissa(fiWordToSFlo(P0_x));
1630	return (FiWord) T0;
1631	}
1632
1633	static struct _FiProg tmp41_mantissa = {
1634	(FiFun) CF41_mantissa,
1635	0L,
1636	0L,
1637	0L,
1638	0L
1639	};
1640
1641
1642	static FiWord
1643	CF42_exponent(FiEnv e1, FiWord P0_x)
1644	{
1645	FiBInt T0;
1646	T0 = fiSFloExponent(fiWordToSFlo(P0_x));
1647	return (FiWord) T0;
1648	}
1649
1650	static struct _FiProg tmp42_exponent = {
1651	(FiFun) CF42_exponent,
1652	0L,
1653	0L,
1654	0L,
1655	0L
1656	};
1657
1658
1659	static FiWord
1660	CF43_fraction(FiEnv e1, FiWord P0_x)
1661	{
1662	FiSFlo T0;
1663	fiSFLO_FR_WORD(T0, P0_x){ FiWord fi_tmp = (P0_x); (T0) = (FiSFlo )(&fi_tmp);};
1664	return fiSFloToWord(fiSFloFraction((FiSFlo) T0));
1665	}
1666
1667	static struct _FiProg tmp43_fraction = {
1668	(FiFun) CF43_fraction,
1669	0L,
1670	0L,
1671	0L,
1672	0L
1673	};
1674
1675
1676	static FiWord
1677	CF44_integer(FiEnv e1, FiWord P0_x)
1678	{
1679	FiSFlo T0;
1680	fiSFLO_FR_WORD(T0, P0_x){ FiWord fi_tmp = (P0_x); (T0) = (FiSFlo )(&fi_tmp);};
1681	return (FiWord) fiSFloTruncate((FiSFlo) T0);
1682	}
1683
1684	static struct _FiProg tmp44_integer = {
1685	(FiFun) CF44_integer,
1686	0L,
1687	0L,
1688	0L,
1689	0L
1690	};
1691
1692
1693	static FiWord
1694	CF45_round(FiEnv e1, FiWord P0_x, FiWord P1_mode)
1695	{
1696	FiSFlo T0;
1697	fiSFLO_FR_WORD(T0, P0_x){ FiWord fi_tmp = (P0_x); (T0) = (FiSFlo )(&fi_tmp);};
1698	return (FiWord) fiSFloRound((FiSFlo) T0, (FiSInt) P1_mode);
1699	}
1700
1701	static struct _FiProg tmp45_round = {
1702	(FiFun) CF45_round,
1703	0L,
1704	0L,
1705	0L,
1706	0L
1707	};
1708
1709
1710	static FiWord
1711	CF46_prev(FiEnv e1, FiWord P0_x)
1712	{
1713	FiSFlo T0, T1;
1714	fiSFLO_FR_WORD(T0, P0_x){ FiWord fi_tmp = (P0_x); (T0) = (FiSFlo )(&fi_tmp);};
1715	fiSFLO_PREV(T1, FiSFlo, T0)((T1) = (FiSFlo) fiSFloPrev(T0));
1716	return fiSFloToWord(T1);
1717	}
1718
1719	static struct _FiProg tmp46_prev = {
1720	(FiFun) CF46_prev,
1721	0L,
1722	0L,
1723	0L,
1724	0L
1725	};
1726
1727
1728	static FiWord
1729	CF47_next(FiEnv e1, FiWord P0_x)
1730	{
1731	FiSFlo T0, T1;
1732	fiSFLO_FR_WORD(T0, P0_x){ FiWord fi_tmp = (P0_x); (T0) = (FiSFlo )(&fi_tmp);};
1733	fiSFLO_NEXT(T1, FiSFlo, T0)((T1) = (FiSFlo) fiSFloNext(T0));
1734	return fiSFloToWord(T1);
1735	}
1736
1737	static struct _FiProg tmp47_next = {
1738	(FiFun) CF47_next,
1739	0L,
1740	0L,
1741	0L,
1742	0L
1743	};
1744
1745
1746	static FiWord
1747	CF48_round_PLUS_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_mode)
1748	{
1749	FiSFlo T0, T1, T2;
1750	fiSFLO_FR_WORD(T0, P0_a){ FiWord fi_tmp = (P0_a); (T0) = (FiSFlo )(&fi_tmp);};
1751	fiSFLO_FR_WORD(T1, P1_b){ FiWord fi_tmp = (P1_b); (T1) = (FiSFlo )(&fi_tmp);};
1752	fiSFLO_R_PLUS(T2, FiSFlo, T0, T1, (FiSInt) P2_mode)((T2) = (FiSFlo) fiSFloRPlus(T0,T1,(FiSInt) P2_mode));
1753	return fiSFloToWord(T2);
1754	}
1755
1756	static struct _FiProg tmp48_round_PLUS_ = {
1757	(FiFun) CF48_round_PLUS_,
1758	0L,
1759	0L,
1760	0L,
1761	0L
1762	};
1763
1764
1765	static FiWord
1766	CF49_round_MINUS_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_mode)
1767	{
1768	FiSFlo T0, T1, T2;
1769	fiSFLO_FR_WORD(T0, P0_a){ FiWord fi_tmp = (P0_a); (T0) = (FiSFlo )(&fi_tmp);};
1770	fiSFLO_FR_WORD(T1, P1_b){ FiWord fi_tmp = (P1_b); (T1) = (FiSFlo )(&fi_tmp);};
1771	fiSFLO_R_MINUS(T2, FiSFlo, T0, T1, (FiSInt) P2_mode)((T2) = (FiSFlo) fiSFloRMinus(T0,T1,(FiSInt) P2_mode));
1772	return fiSFloToWord(T2);
1773	}
1774
1775	static struct _FiProg tmp49_round_MINUS_ = {
1776	(FiFun) CF49_round_MINUS_,
1777	0L,
1778	0L,
1779	0L,
1780	0L
1781	};
1782
1783
1784	static FiWord
1785	CF50_round_STAR_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_mode)
1786	{
1787	FiSFlo T0, T1, T2;
1788	fiSFLO_FR_WORD(T0, P0_a){ FiWord fi_tmp = (P0_a); (T0) = (FiSFlo )(&fi_tmp);};
1789	fiSFLO_FR_WORD(T1, P1_b){ FiWord fi_tmp = (P1_b); (T1) = (FiSFlo )(&fi_tmp);};
1790	fiSFLO_R_TIMES(T2, FiSFlo, T0, T1, (FiSInt) P2_mode)((T2) = (FiSFlo) fiSFloRTimes(T0,T1,(FiSInt) P2_mode));
1791	return fiSFloToWord(T2);
1792	}
1793
1794	static struct _FiProg tmp50_round_STAR_ = {
1795	(FiFun) CF50_round_STAR_,
1796	0L,
1797	0L,
1798	0L,
1799	0L
1800	};
1801
1802
1803	static FiWord
1804	CF51_round_STAR__PLUS_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_c,
1805	FiWord P3_mode)
1806	{
1807	FiSFlo T0, T1, T2, T3;
1808	fiSFLO_FR_WORD(T0, P0_a){ FiWord fi_tmp = (P0_a); (T0) = (FiSFlo )(&fi_tmp);};
1809	fiSFLO_FR_WORD(T1, P1_b){ FiWord fi_tmp = (P1_b); (T1) = (FiSFlo )(&fi_tmp);};
1810	fiSFLO_FR_WORD(T2, P2_c){ FiWord fi_tmp = (P2_c); (T2) = (FiSFlo )(&fi_tmp);};
1811	fiSFLO_R_TIMES_PLUS(T3, FiSFlo, T0, T1, T2, (FiSInt) P3_mode)((T3) = (FiSFlo) fiSFloRTimesPlus(T0,T1,T2,(FiSInt) P3_mode));
1812	return fiSFloToWord(T3);
1813	}
1814
1815	static struct _FiProg tmp51_round_STAR__PLUS_ = {
1816	(FiFun) CF51_round_STAR__PLUS_,
1817	0L,
1818	0L,
1819	0L,
1820	0L
1821	};
1822
1823
1824	static FiWord
1825	CF52_round_SLASH_(FiEnv e1, FiWord P0_a, FiWord P1_b, FiWord P2_mode)
1826	{
1827	FiSFlo T0, T1, T2;
1828	fiSFLO_FR_WORD(T0, P0_a){ FiWord fi_tmp = (P0_a); (T0) = (FiSFlo )(&fi_tmp);};
1829	fiSFLO_FR_WORD(T1, P1_b){ FiWord fi_tmp = (P1_b); (T1) = (FiSFlo )(&fi_tmp);};
1830	fiSFLO_R_DIVIDE(T2, FiSFlo, T0, T1, (FiSInt) P2_mode)((T2) = (FiSFlo) fiSFloRDivide(T0,T1,(FiSInt) P2_mode));
1831	return fiSFloToWord(T2);
1832	}
1833
1834	static struct _FiProg tmp52_round_SLASH_ = {
1835	(FiFun) CF52_round_SLASH_,
1836	0L,
1837	0L,
1838	0L,
1839	0L
1840	};
1841
1842
1843	static FiWord
1844	CF53_floor(FiEnv e1, FiWord P0_x)
1845	{
1846	FiSFlo T1, T3;
1847	FiSInt T2;
1848	FiBInt T0;
1849	fiSFLO_FR_WORD(T1, P0_x){ FiWord fi_tmp = (P0_x); (T1) = (FiSFlo )(&fi_tmp);};
1850	FI_ROUND_DOWN(T2, FiSInt)((T2) = (FiSInt) 3);
1851	T0 = fiSFloRound((FiSFlo) T1, (FiSInt) T2);
1852	fiBINT_TO_SFLO(T3, FiSFlo, T0)((T3) = (FiSFlo) fiBIntToSFlo(T0));
1853	return fiSFloToWord(T3);
1854	}
1855
1856	static struct _FiProg tmp53_floor = {
1857	(FiFun) CF53_floor,
1858	0L,
1859	0L,
1860	0L,
1861	0L
1862	};
1863
1864
1865	static FiWord
1866	CF54_ceiling(FiEnv e1, FiWord P0_x)
1867	{
1868	FiSFlo T1, T3;
1869	FiSInt T2;
1870	FiBInt T0;
1871	fiSFLO_FR_WORD(T1, P0_x){ FiWord fi_tmp = (P0_x); (T1) = (FiSFlo )(&fi_tmp);};
1872	FI_ROUND_UP(T2, FiSInt)((T2) = (FiSInt) 2);
1873	T0 = fiSFloRound((FiSFlo) T1, (FiSInt) T2);
1874	fiBINT_TO_SFLO(T3, FiSFlo, T0)((T3) = (FiSFlo) fiBIntToSFlo(T0));
1875	return fiSFloToWord(T3);
1876	}
1877
1878	static struct _FiProg tmp54_ceiling = {
1879	(FiFun) CF54_ceiling,
1880	0L,
1881	0L,
1882	0L,
1883	0L
1884	};
1885
1886
1887	static FiClos
1888	CF55__LT__LT_(FiEnv e1, FiWord P0_x)
1889	{
1890	PFmt12 l0;
1891	FiEnv e0;
1892	l0 = fi0New(struct Fmt12 , CENSUS_EnvLevel)((struct Fmt12 *) fi0Alloc(sizeof(struct Fmt12), (19)));
1893	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1894	l0->X0_x = P0_x;
1895	return fiClosMake(e0, C56__LT__LT_)fiClosMakeFun(e0, (FiProg) (C56__LT__LT_));
1896	}
1897
1898	static struct _FiProg tmp55__LT__LT_ = {
1899	(FiFun) CF55__LT__LT_,
1900	0L,
1901	0L,
1902	0L,
1903	0L
1904	};
1905
1906
1907	static FiWord
1908	CF56__LT__LT_(FiEnv e1, FiWord P0_p)
1909	{
1910	FiSFlo T4;
1911	FiWord T3;
1912	FiClos T0, T1, T2;
1913	PFmt12 l1;
1914	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
1915	fiSFLO_FR_WORD(T4, l1->X0_x){ FiWord fi_tmp = (l1->X0_x); (T4) = (FiSFlo )(&fi_tmp );};
1916	T3 = formatSFlo(T4);
1917	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1918	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);
1919	fiCCall3(FiWord, T1, T3, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,T3,(FiWord ) 1L,(FiWord) 0L));
1920	return P0_p;
1921	}
1922
1923	static struct _FiProg tmp56__LT__LT_ = {
1924	(FiFun) CF56__LT__LT_,
1925	0L,
1926	0L,
1927	0L,
1928	0L
1929	};
1930
1931
1932	static FiWord
1933	CF57_hash(FiEnv e1, FiWord P0_x)
1934	{
1935	return (FiWord) 0L;
1936	}
1937
1938	static struct _FiProg tmp57_hash = {
1939	(FiFun) CF57_hash,
1940	0L,
1941	0L,
1942	0L,
1943	0L
1944	};
1945
1946
1947	static FiWord
1948	CF58_case(FiEnv e1, FiWord P0_x, FiWord P1_y)
1949	{
1950	return (FiWord) (fiWordToSFlo(P0_x) == fiWordToSFlo(P1_y));
1951	}
1952
1953	static struct _FiProg tmp58_case = {
1954	(FiFun) CF58_case,
1955	0L,
1956	0L,
1957	0L,
1958	0L
1959	};
1960
1961
1962	static FiWord
1963	CF59_abs(FiEnv e1, FiWord P0_x)
1964	{
1965	FiWord T0;
1966	if (fiWordToSFlo(P0_x) > 0.0) goto L0;
1967	fiWORD_FR_SFLO(T0, -fiWordToSFlo(P0_x)){ FiSFlo fi_tmp = (-fiWordToSFlo(P0_x)); (T0) = (FiWord )(& fi_tmp); };
1968	L1: return T0;
1969	L0: T0 = P0_x;
1970	goto L1;
1971	}
1972
1973	static struct _FiProg tmp59_abs = {
1974	(FiFun) CF59_abs,
1975	0L,
1976	0L,
1977	0L,
1978	0L
1979	};
1980
1981
1982	static FiWord
1983	CF60_sign(FiEnv e1, FiWord P0_x)
1984	{
1985	FiWord T0, T1;
1986	if (fiWordToSFlo(P0_x) > 0.0) goto L0;
1987	if (fiWordToSFlo(P0_x) < 0.0) goto L2;
1988	fiWORD_FR_SFLO(T1, 0.0000000000000000){ FiSFlo fi_tmp = (0.0000000000000000); (T1) = (FiWord )(& fi_tmp); };
1989	L3: T0 = T1;
1990	L1: return T0;
1991	L2: fiWORD_FR_SFLO(T1, -1.0000000000000000){ FiSFlo fi_tmp = (-1.0000000000000000); (T1) = (FiWord )(& fi_tmp); };
1992	goto L3;
1993	L0: fiWORD_FR_SFLO(T0, 1.0000000000000000){ FiSFlo fi_tmp = (1.0000000000000000); (T0) = (FiWord )(& fi_tmp); };
1994	goto L1;
1995	}
1996
1997	static struct _FiProg tmp60_sign = {
1998	(FiFun) CF60_sign,
1999	0L,
2000	0L,
2001	0L,
2002	0L
2003	};
2004
2005
2006	static FiWord
2007	CF61_max(FiEnv e1, FiWord P0_x, FiWord P1_y)
2008	{
2009	FiWord T0;
2010	if (fiWordToSFlo(P1_y) < fiWordToSFlo(P0_x)) goto L0;
2011	T0 = P1_y;
2012	L1: return T0;
2013	L0: T0 = P0_x;
2014	goto L1;
2015	}
2016
2017	static struct _FiProg tmp61_max = {
2018	(FiFun) CF61_max,
2019	0L,
2020	0L,
2021	0L,
2022	0L
2023	};
2024
2025
2026	static FiWord
2027	CF62_min(FiEnv e1, FiWord P0_x, FiWord P1_y)
2028	{
2029	FiWord T0;
2030	if (fiWordToSFlo(P0_x) < fiWordToSFlo(P1_y)) goto L0;
2031	T0 = P1_y;
2032	L1: return T0;
2033	L0: T0 = P0_x;
2034	goto L1;
2035	}
2036
2037	static struct _FiProg tmp62_min = {
2038	(FiFun) CF62_min,
2039	0L,
2040	0L,
2041	0L,
2042	0L
2043	};
2044
2045
2046	static void
2047	CF63_lazyGetter2(FiEnv e1)
2048	{
2049	FiClos T0;
2050	PFmt14 l1;
2051	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
2052	if (l1->X1_flag) goto L0;
2053	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
2054	l1->X1_flag = 1L;
2055	l1->X2_self->env = T0->env;
2056	l1->X2_self->prog = T0->prog;
2057	fiEnvInfo(e1)(((FiEnv) (e1))->info) = (FiWord) fiNil((Ptr) 0);
2058	L0: return ;
2059	}
2060
2061	static struct _FiProg tmp63_lazyGetter2 = {
2062	(FiFun) CF63_lazyGetter2,
2063	0L,
2064	0L,
2065	0L,
2066	0L
2067	};
2068
2069
2070	static FiClos
2071	CF64_lazyFnGetter(FiEnv e1, FiWord P0_init)
2072	{
2073	PFmt14 l0;
2074	FiEnv e0;
2075	l0 = fi0New(struct Fmt14 , CENSUS_EnvLevel)((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)));
2076	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
2077	l0->X0_getter = (FiClos) P0_init;
2078	l0->X1_flag = 0L;
2079	l0->X2_self = fiClosMake(e0, C65_lazyGetter)fiClosMakeFun(e0, (FiProg) (C65_lazyGetter));
2080	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C63_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C63_lazyGetter2));
2081	return l0->X2_self;
2082	}
2083
2084	static struct _FiProg tmp64_lazyFnGetter = {
2085	(FiFun) CF64_lazyFnGetter,
2086	0L,
2087	0L,
2088	0L,
2089	0L
2090	};
2091
2092
2093	static FiClos
2094	CF65_lazyGetter(FiEnv e1, FiWord P0_a)
2095	{
2096	FiClos T0;
2097	PFmt14 l1;
2098	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
2099	if (l1->X1_flag) goto L0;
2100	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
2101	l1->X2_self->env = T0->env;
2102	l1->X2_self->prog = T0->prog;
2103	l1->X1_flag = 1L;
2104	L0: return fiCCall1(FiClos, l1->X2_self, P0_a)((((FiClos ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a));
2105	}
2106
2107	static struct _FiProg tmp65_lazyGetter = {
2108	(FiFun) CF65_lazyGetter,
2109	0L,
2110	0L,
2111	0L,
2112	0L
2113	};
2114
2115
2116	static FiWord
2117	CF66_machine_MINUS_init(FiEnv e1, FiSInt P0_idx)
2118	{
2119	PFmt15 l1;
2120	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
2121	if (l1->X12) goto L0;
2122	l1->X12 = 1L;
2123	fiCCall0(void, (pG_JNB1W_machine))((((void ()())((pG_JNB1W_machine))->prog->fun))(((*pG_JNB1W_machine ))->env));
2124	L0: return (FiWord) (*pG_1B0E6_machine__Machine__915);
2125	}
2126
2127	static struct _FiProg tmp66_machine_MINUS_init = {
2128	(FiFun) CF66_machine_MINUS_init,
2129	0L,
2130	0L,
2131	0L,
2132	0L
2133	};
2134
2135
2136	static FiWord
2137	CF67_segment_MINUS_init(FiEnv e1, FiSInt P0_idx)
2138	{
2139	PFmt15 l1;
2140	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
2141	if (l1->X13) goto L0;
2142	l1->X13 = 1L;
2143	fiCCall0(void, (pG_WVJG4_segment))((((void ()())((pG_WVJG4_segment))->prog->fun))(((*pG_WVJG4_segment ))->env));
2144	L0: if (P0_idx != 1L) goto L1;
2145	return (FiWord) (*pG_H8G3S_segment__ClosedSegmen);
2146	L1: return (FiWord) (*pG_RPY7R_segment__Segment__100);
2147	}
2148
2149	static struct _FiProg tmp67_segment_MINUS_init = {
2150	(FiFun) CF67_segment_MINUS_init,
2151	0L,
2152	0L,
2153	0L,
2154	0L
2155	};
2156
2157
2158	static FiWord
2159	CF68_sinteger_MINUS_init(FiEnv e1, FiSInt P0_idx)
2160	{
2161	PFmt15 l1;
2162	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
2163	if (l1->X14) goto L0;
2164	l1->X14 = 1L;
2165	fiCCall0(void, (pG_HAQ5R_sinteger))((((void ()())((pG_HAQ5R_sinteger))->prog->fun))(((* pG_HAQ5R_sinteger))->env));
2166	L0: return (FiWord) (*pG_M8YLI_sinteger__MachineInte);
2167	}
2168
2169	static struct _FiProg tmp68_sinteger_MINUS_init = {
2170	(FiFun) CF68_sinteger_MINUS_init,
2171	0L,
2172	0L,
2173	0L,
2174	0L
2175	};
2176
2177
2178	static FiWord
2179	CF69_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx)
2180	{
2181	PFmt15 l1;
2182	l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
2183	if (l1->X15) goto L0;
2184	l1->X15 = 1L;
2185	fiCCall0(void, (pG_H8TZ5_foamcat))((((void ()())((pG_H8TZ5_foamcat))->prog->fun))(((*pG_H8TZ5_foamcat ))->env));
2186	L0: if (P0_idx != 1L) goto L1;
2187	return (FiWord) (*pG_Y35UI_foamcat__FloatingPoin);
2188	L1: return (FiWord) (*pG_JWK7S_foamcat__OrderedFinit);
2189	}
2190
2191	static struct _FiProg tmp69_foamcat_MINUS_init = {
2192	(FiFun) CF69_foamcat_MINUS_init,
2193	0L,
2194	0L,
2195	0L,
2196	0L
2197	};
2198
2199	extern int
2200	INIT__0_sfloat()
2201	{
2202
2203	extern int INIT__0_rtexns();
2204	extern int INIT__0_foamcat();
2205	extern int INIT__0_sinteger();
2206	extern int INIT__0_segment();
2207	extern int INIT__0_machine();
2208	extern int INIT__0_runtime();
2209	static int initialized = 0;
2210	if (initialized)
2211	return 0L;
2212	else
2213	initialized = 1;
2214	C1_addLevel0 = &tmp1_addLevel0;
2215	C2_addLevel1 = &tmp2_addLevel1;
2216	C3_sfloat = &tmp3_sfloat;
2217	C4_float = &tmp4_float;
2218	C5_zero_QMARK_ = &tmp5_zero_QMARK_;
2219	C6_negative_QMARK_ = &tmp6_negative_QMARK_;
2220	C7_positive_QMARK_ = &tmp7_positive_QMARK_;
2221	C8__EQ_ = &tmp8__EQ_;
2222	C9__TILDE__EQ_ = &tmp9__TILDE__EQ_;
2223	C10__LT_ = &tmp10__LT_;
2224	C11__GT_ = &tmp11__GT_;
2225	C12__LT__EQ_ = &tmp12__LT__EQ_;
2226	C13__GT__EQ_ = &tmp13__GT__EQ_;
2227	C14__LT__LT_ = &tmp14__LT__LT_;
2228	C15__GT__GT_ = &tmp15__GT__GT_;
2229	C16__PLUS_ = &tmp16__PLUS_;
2230	C17__MINUS_ = &tmp17__MINUS_;
2231	C18__PLUS_ = &tmp18__PLUS_;
2232	C19__MINUS_ = &tmp19__MINUS_;
2233	C20__STAR_ = &tmp20__STAR_;
2234	C21__BSLSH_ = &tmp21__BSLSH_;
2235	C22__SLASH_ = &tmp22__SLASH_;
2236	C23__HAT_ = &tmp23__HAT_;
2237	C24_inv = &tmp24_inv;
2238	C25_gcd = &tmp25_gcd;
2239	C26_quo = &tmp26_quo;
2240	C27_rem = &tmp27_rem;
2241	C28_divide = &tmp28_divide;
2242	C29__LT__LT_ = &tmp29__LT__LT_;
2243	C30_step = &tmp30_step;
2244	C31_step = &tmp31_step;
2245	C32_generBaseFn = &tmp32_generBaseFn;
2246	C33_generStepper = &tmp33_generStepper;
2247	C34_generDone_QMARK_ = &tmp34_generDone_QMARK_;
2248	C35_generValue = &tmp35_generValue;
2249	C36_generBound = &tmp36_generBound;
2250	C37_coerce = &tmp37_coerce;
2251	C38_coerce = &tmp38_coerce;
2252	C39_coerce = &tmp39_coerce;
2253	C40_coerce = &tmp40_coerce;
2254	C41_mantissa = &tmp41_mantissa;
2255	C42_exponent = &tmp42_exponent;
2256	C43_fraction = &tmp43_fraction;
2257	C44_integer = &tmp44_integer;
2258	C45_round = &tmp45_round;
2259	C46_prev = &tmp46_prev;
2260	C47_next = &tmp47_next;
2261	C48_round_PLUS_ = &tmp48_round_PLUS_;
2262	C49_round_MINUS_ = &tmp49_round_MINUS_;
2263	C50_round_STAR_ = &tmp50_round_STAR_;
2264	C51_round_STAR__PLUS_ = &tmp51_round_STAR__PLUS_;
2265	C52_round_SLASH_ = &tmp52_round_SLASH_;
2266	C53_floor = &tmp53_floor;
2267	C54_ceiling = &tmp54_ceiling;
2268	C55__LT__LT_ = &tmp55__LT__LT_;
2269	C56__LT__LT_ = &tmp56__LT__LT_;
2270	C57_hash = &tmp57_hash;
2271	C58_case = &tmp58_case;
2272	C59_abs = &tmp59_abs;
2273	C60_sign = &tmp60_sign;
2274	C61_max = &tmp61_max;
2275	C62_min = &tmp62_min;
2276	C63_lazyGetter2 = &tmp63_lazyGetter2;
2277	C64_lazyFnGetter = &tmp64_lazyFnGetter;
2278	C65_lazyGetter = &tmp65_lazyGetter;
2279	C66_machine_MINUS_init = &tmp66_machine_MINUS_init;
2280	C67_segment_MINUS_init = &tmp67_segment_MINUS_init;
2281	C68_sinteger_MINUS_init = &tmp68_sinteger_MINUS_init;
2282	C69_foamcat_MINUS_init = &tmp69_foamcat_MINUS_init;
2283	C0_sfloat = &tmp0_sfloat;
2284	fiExportGlobal("G_T13QO_sfloat", G_T13QO_sfloat)fiExportGlobalFun("G_T13QO_sfloat", (Ptr) &G_T13QO_sfloat , sizeof(G_T13QO_sfloat));
2285	fiExportGlobal("G_5Z1U3_sfloat__SingleFloat__6",fiExportGlobalFun("G_5Z1U3_sfloat__SingleFloat__6", (Ptr) & G_5Z1U3_sfloat__SingleFloat__6, sizeof(G_5Z1U3_sfloat__SingleFloat__6 ))
2286	G_5Z1U3_sfloat__SingleFloat__6)fiExportGlobalFun("G_5Z1U3_sfloat__SingleFloat__6", (Ptr) & G_5Z1U3_sfloat__SingleFloat__6, sizeof(G_5Z1U3_sfloat__SingleFloat__6 ));
2287	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
2288	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
2289	fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn );
2290	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
2291	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
2292	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
2293	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
2294	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
2295	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
2296	fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch)
2297	pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch);
2298	fiImportGlobal("G_JP87X_rtConstSIntFn", pG_JP87X_rtConstSIntFn)fiImportGlobalFun("G_JP87X_rtConstSIntFn", (Ptr *) &pG_JP87X_rtConstSIntFn );
2299	fiImportGlobal("G_WXLY5_categoryAddExports",fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports)
2300	pG_WXLY5_categoryAddExports)fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports);
2301	fiImportGlobal("G_JWK7S_foamcat__OrderedFinite",fiImportGlobalFun("G_JWK7S_foamcat__OrderedFinite", (Ptr *) & pG_JWK7S_foamcat__OrderedFinit)
2302	pG_JWK7S_foamcat__OrderedFinit)fiImportGlobalFun("G_JWK7S_foamcat__OrderedFinite", (Ptr *) & pG_JWK7S_foamcat__OrderedFinit);
2303	fiImportGlobal("G_NOX7X_rtLazyCatFrInit", pG_NOX7X_rtLazyCatFrInit)fiImportGlobalFun("G_NOX7X_rtLazyCatFrInit", (Ptr *) &pG_NOX7X_rtLazyCatFrInit );
2304	fiImportGlobal("G_Y35UI_foamcat__FloatingPoint",fiImportGlobalFun("G_Y35UI_foamcat__FloatingPoint", (Ptr *) & pG_Y35UI_foamcat__FloatingPoin)
2305	pG_Y35UI_foamcat__FloatingPoin)fiImportGlobalFun("G_Y35UI_foamcat__FloatingPoint", (Ptr *) & pG_Y35UI_foamcat__FloatingPoin);
2306	fiImportGlobal("G_YXGL3_categoryAddParents",fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents)
2307	pG_YXGL3_categoryAddParents)fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents);
2308	fiImportGlobal("G_GOVLL_categoryMake", pG_GOVLL_categoryMake)fiImportGlobalFun("G_GOVLL_categoryMake", (Ptr *) &pG_GOVLL_categoryMake );
2309	fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults)
2310	pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults);
2311	fiImportGlobal("G_BEY7_domainMakeDummy", pG_BEY7_domainMakeDummy)fiImportGlobalFun("G_BEY7_domainMakeDummy", (Ptr *) &pG_BEY7_domainMakeDummy );
2312	fiImportGlobal("G_AK1EB_domainFill_BANG_", pG_AK1EB_domainFill_BANG_)fiImportGlobalFun("G_AK1EB_domainFill_BANG_", (Ptr *) &pG_AK1EB_domainFill_BANG_ );
2313	fiImportGlobal("G_1B0E6_machine__Machine__9157",fiImportGlobalFun("G_1B0E6_machine__Machine__9157", (Ptr *) & pG_1B0E6_machine__Machine__915)
2314	pG_1B0E6_machine__Machine__915)fiImportGlobalFun("G_1B0E6_machine__Machine__9157", (Ptr *) & pG_1B0E6_machine__Machine__915);
2315	fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit );
2316	fiImportGlobal("G_1X2RM_domainGetExport_BANG_",fiImportGlobalFun("G_1X2RM_domainGetExport_BANG_", (Ptr *) & pG_1X2RM_domainGetExport_BANG_)
2317	pG_1X2RM_domainGetExport_BANG_)fiImportGlobalFun("G_1X2RM_domainGetExport_BANG_", (Ptr *) & pG_1X2RM_domainGetExport_BANG_);
2318	fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport)
2319	pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport);
2320	fiImportGlobal("G_ZZZKG_stdGetWordRetWord0",fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) & pG_ZZZKG_stdGetWordRetWord0)
2321	pG_ZZZKG_stdGetWordRetWord0)fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) & pG_ZZZKG_stdGetWordRetWord0);
2322	fiImportGlobal("G_RSHLY_rtDelayedInit_BANG_",fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) & pG_RSHLY_rtDelayedInit_BANG_)
2323	pG_RSHLY_rtDelayedInit_BANG_)fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) & pG_RSHLY_rtDelayedInit_BANG_);
2324	fiImportGlobal("G_M8YLI_sinteger__MachineInteg",fiImportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr *) & pG_M8YLI_sinteger__MachineInte)
2325	pG_M8YLI_sinteger__MachineInte)fiImportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr *) & pG_M8YLI_sinteger__MachineInte);
2326	fiImportGlobal("G_4NZQI_lazyGetExport_BANG_",fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) & pG_4NZQI_lazyGetExport_BANG_)
2327	pG_4NZQI_lazyGetExport_BANG_)fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) & pG_4NZQI_lazyGetExport_BANG_);
2328	fiImportGlobal("G_R3D1K_lazyForceImport", pG_R3D1K_lazyForceImport)fiImportGlobalFun("G_R3D1K_lazyForceImport", (Ptr *) &pG_R3D1K_lazyForceImport );
2329	fiImportGlobal("G_RPY7R_segment__Segment__1001",fiImportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr *) & pG_RPY7R_segment__Segment__100)
2330	pG_RPY7R_segment__Segment__100)fiImportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr *) & pG_RPY7R_segment__Segment__100);
2331	fiImportGlobal("G_H8G3S_segment__ClosedSegment",fiImportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr *) & pG_H8G3S_segment__ClosedSegmen)
2332	pG_H8G3S_segment__ClosedSegmen)fiImportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr *) & pG_H8G3S_segment__ClosedSegmen);
2333	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
2334	fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings );
2335	fiImportGlobal("G_JNB1W_machine", pG_JNB1W_machine)fiImportGlobalFun("G_JNB1W_machine", (Ptr *) &pG_JNB1W_machine );
2336	fiImportGlobal("G_WVJG4_segment", pG_WVJG4_segment)fiImportGlobalFun("G_WVJG4_segment", (Ptr *) &pG_WVJG4_segment );
2337	fiImportGlobal("G_HAQ5R_sinteger", pG_HAQ5R_sinteger)fiImportGlobalFun("G_HAQ5R_sinteger", (Ptr *) &pG_HAQ5R_sinteger );
2338	fiImportGlobal("G_H8TZ5_foamcat", pG_H8TZ5_foamcat)fiImportGlobalFun("G_H8TZ5_foamcat", (Ptr *) &pG_H8TZ5_foamcat );
2339	if (fiFileInitializer) {
2340	fiFileInitializer("rtexns");
2341	fiFileInitializer("foamcat");
2342	fiFileInitializer("sinteger");
2343	fiFileInitializer("segment");
2344	fiFileInitializer("machine");
2345	fiFileInitializer("runtime");
2346	}
2347	else {
2348	INIT__0_rtexns();
2349	INIT__0_foamcat();
2350	INIT__0_sinteger();
2351	INIT__0_segment();
2352	INIT__0_machine();
2353	INIT__0_runtime();
2354	}
2355	/* "---------------------------" */
2356	return 0L;
2357	}
2358
2359	FiWord G_5Z1U3_sfloat__SingleFloat__6;
2360
2361	static struct _FiClos tmpClos0_sfloat = {
2362	0L,
2363	(FiProg) &tmp0_sfloat
2364	};
2365	FiClos G_T13QO_sfloat = &tmpClos0_sfloat;