al/sinteger.c

Bug Summary

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

1	/*
2	* C code generated by Aldor from file "sinteger.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	struct Fmt5 {
21	FiSInt X0_size;
22	FiSInt X1_nsize;
23	FiWord X2_values;
24	};
25	struct Fmt6 {
26	FiPtr X0_empty;
27	};
28	struct Fmt7 {
29	FiWord X0;
30	FiWord X1;
31	};
32	struct Fmt8 {
33	FiPtr X0_empty;
34	};
35	struct Fmt9 {
36	FiPtr X0_empty;
37	};
38	struct Fmt10 {
39	FiWord X0_x;
40	};
41	struct Fmt11 {
42	FiClos X0_sign;
43	FiClos X1_abs;
44	FiClos X2_case;
45	FiClos X3_hash;
46	FiClos X4__LT__LT_;
47	FiClos X5__LT__LT_;
48	FiClos X6_stepsBetween;
49	FiClos X7_stepsBetween;
50	FiClos X8_divide;
51	FiClos X9_mod_HAT_;
52	FiClos X10_mod_SLASH_;
53	FiClos X11_mod_STAR_;
54	FiClos X12_mod_MINUS_;
55	FiClos X13_mod_PLUS_;
56	FiClos X14_mod;
57	FiClos X15_xor;
58	FiClos X16__BSLSH__SLASH_;
59	FiClos X17__SLASH__BSLSH_;
60	FiClos X18__TILDE_;
61	FiClos X19_bit;
62	FiClos X20_shift;
63	FiClos X21_length;
64	FiClos X22_gcd;
65	FiClos X23_rem;
66	FiClos X24_quo;
67	FiClos X25__HAT_;
68	FiClos X26__HAT_;
69	FiClos X27_retract;
70	FiClos X28_coerce;
71	FiClos X29_coerce;
72	FiClos X30_coerce;
73	FiClos X31_coerce;
74	FiClos X32__STAR_;
75	FiClos X33_next;
76	FiClos X34_prev;
77	FiClos X35__GT__EQ_;
78	FiClos X36__LT__EQ_;
79	FiClos X37__GT_;
80	FiClos X38__LT_;
81	FiClos X39__TILDE__EQ_;
82	FiClos X40__EQ_;
83	FiClos X41_single_QMARK_;
84	FiClos X42_odd_QMARK_;
85	FiClos X43_even_QMARK_;
86	FiClos X44_positive_QMARK_;
87	FiClos X45_negative_QMARK_;
88	FiClos X46_zero_QMARK_;
89	FiClos X47_integer;
90	FiClos X48_fromJava;
91	FiClos X49_toJava;
92	FiClos X50__MINUS_;
93	FiClos X51__MINUS_;
94	FiClos X52__PLUS_;
95	FiClos X53__PLUS_;
96	FiWord X54__SHARP_;
97	FiWord X55_max;
98	FiClos X56_max;
99	FiWord X57_min;
100	FiClos X58_min;
101	FiWord X59_Rep;
102	FiSInt X60;
103	};
104	struct Fmt12 {
105	FiPtr X0_empty;
106	};
107	struct Fmt13 {
108	FiWord X0_MachineInteger;
109	FiWord X1_Machine;
110	FiWord X2_IntegerNumberSystem;
111	FiWord X3_OrderedFinite;
112	FiWord X4_Logic;
113	FiWord X5_Steppable;
114	FiWord X6_SInt;
115	FiWord X7_max;
116	FiWord X8_min;
117	FiWord X9_dom;
118	FiBool X10;
119	FiBool X11;
120	FiBool X12;
121	FiBool X13;
122	};
123	struct Fmt14 {
124	FiWord X0;
125	FiWord X1;
126	};
127	struct Fmt15 {
128	FiWord X0;
129	FiWord X1;
130	FiWord X2;
131	};
132	struct Fmt16 {
133	FiSInt X0;
134	FiSInt X1;
135	};
136	struct Fmt17 {
137	FiClos X0;
138	FiClos X1;
139	FiClos X2;
140	};
141	static FiProg C0_sinteger;
142	static void CF0_sinteger(FiEnv e1);
143	static FiProg C1_addLevel0;
144	static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
145	static FiProg C2_addLevel1;
146	static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
147	static FiProg C3_sinteger;
148	static void CF3_sinteger(FiEnv e1, FiWord P0_self, FiWord P1_dom);
149	static FiProg C4_toJava;
150	static FiSInt CF4_toJava(FiEnv e1, FiWord P0_i);
151	static FiProg C5_fromJava;
152	static FiWord CF5_fromJava(FiEnv e1, FiSInt P0_i);
153	static FiProg C6_integer;
154	static FiWord CF6_integer(FiEnv e1, FiWord P0_l);
155	static FiProg C7_zero_QMARK_;
156	static FiWord CF7_zero_QMARK_(FiEnv e1, FiWord P0_i);
157	static FiProg C8_negative_QMARK_;
158	static FiWord CF8_negative_QMARK_(FiEnv e1, FiWord P0_i);
159	static FiProg C9_positive_QMARK_;
160	static FiWord CF9_positive_QMARK_(FiEnv e1, FiWord P0_i);
161	static FiProg C10_even_QMARK_;
162	static FiWord CF10_even_QMARK_(FiEnv e1, FiWord P0_i);
163	static FiProg C11_odd_QMARK_;
164	static FiWord CF11_odd_QMARK_(FiEnv e1, FiWord P0_i);
165	static FiProg C12_single_QMARK_;
166	static FiWord CF12_single_QMARK_(FiEnv e1, FiWord P0_i);
167	static FiProg C13__EQ_;
168	static FiWord CF13__EQ_(FiEnv e1, FiWord P0_i, FiWord P1_j);
169	static FiProg C14__TILDE__EQ_;
170	static FiWord CF14__TILDE__EQ_(FiEnv e1, FiWord P0_i, FiWord P1_j);
171	static FiProg C15__LT_;
172	static FiWord CF15__LT_(FiEnv e1, FiWord P0_i, FiWord P1_j);
173	static FiProg C16__GT_;
174	static FiWord CF16__GT_(FiEnv e1, FiWord P0_i, FiWord P1_j);
175	static FiProg C17__LT__EQ_;
176	static FiWord CF17__LT__EQ_(FiEnv e1, FiWord P0_i, FiWord P1_j);
177	static FiProg C18__GT__EQ_;
178	static FiWord CF18__GT__EQ_(FiEnv e1, FiWord P0_i, FiWord P1_j);
179	static FiProg C19_prev;
180	static FiWord CF19_prev(FiEnv e1, FiWord P0_i);
181	static FiProg C20_next;
182	static FiWord CF20_next(FiEnv e1, FiWord P0_i);
183	static FiProg C21__PLUS_;
184	static FiWord CF21__PLUS_(FiEnv e1, FiWord P0_i);
185	static FiProg C22__MINUS_;
186	static FiWord CF22__MINUS_(FiEnv e1, FiWord P0_i);
187	static FiProg C23__PLUS_;
188	static FiWord CF23__PLUS_(FiEnv e1, FiWord P0_i, FiWord P1_j);
189	static FiProg C24__MINUS_;
190	static FiWord CF24__MINUS_(FiEnv e1, FiWord P0_i, FiWord P1_j);
191	static FiProg C25__STAR_;
192	static FiWord CF25__STAR_(FiEnv e1, FiWord P0_i, FiWord P1_j);
193	static FiProg C26_coerce;
194	static FiWord CF26_coerce(FiEnv e1, FiWord P0_i);
195	static FiProg C27_retract;
196	static FiWord CF27_retract(FiEnv e1, FiWord P0_i);
197	static FiProg C28__HAT_;
198	static FiWord CF28__HAT_(FiEnv e1, FiWord P0_x, FiWord P1_n);
199	static FiProg C29_coerce;
200	static FiWord CF29_coerce(FiEnv e1, FiWord P0_i);
201	static FiProg C30_coerce;
202	static FiWord CF30_coerce(FiEnv e1, FiSInt P0_i);
203	static FiProg C31_quo;
204	static FiWord CF31_quo(FiEnv e1, FiWord P0_i, FiWord P1_j);
205	static FiProg C32_rem;
206	static FiWord CF32_rem(FiEnv e1, FiWord P0_i, FiWord P1_j);
207	static FiProg C33_gcd;
208	static FiWord CF33_gcd(FiEnv e1, FiWord P0_i, FiWord P1_j);
209	static FiProg C34_length;
210	static FiWord CF34_length(FiEnv e1, FiWord P0_i);
211	static FiProg C35_shift;
212	static FiWord CF35_shift(FiEnv e1, FiWord P0_i, FiWord P1_n);
213	static FiProg C36_bit;
214	static FiWord CF36_bit(FiEnv e1, FiWord P0_i, FiWord P1_n);
215	static FiProg C37__TILDE_;
216	static FiWord CF37__TILDE_(FiEnv e1, FiWord P0_i);
217	static FiProg C38__SLASH__BSLSH_;
218	static FiWord CF38__SLASH__BSLSH_(FiEnv e1, FiWord P0_i, FiWord P1_j);
219	static FiProg C39__BSLSH__SLASH_;
220	static FiWord CF39__BSLSH__SLASH_(FiEnv e1, FiWord P0_i, FiWord P1_j);
221	static FiProg C40_xor;
222	static FiWord CF40_xor(FiEnv e1, FiWord P0_i, FiWord P1_j);
223	static FiProg C41_mod;
224	static FiWord CF41_mod(FiEnv e1, FiWord P0_i, FiWord P1_n);
225	static FiProg C42_mod_PLUS_;
226	static FiWord CF42_mod_PLUS_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n);
227	static FiProg C43_mod_MINUS_;
228	static FiWord CF43_mod_MINUS_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n);
229	static FiProg C44_mod_STAR_;
230	static FiWord CF44_mod_STAR_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n);
231	static FiProg C45_mod_SLASH_;
232	static FiWord CF45_mod_SLASH_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n);
233	static FiProg C46_mod_HAT_;
234	static FiWord CF46_mod_HAT_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n);
235	static FiProg C47_divide;
236	static void CF47_divide(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord* R0, FiWord* R1);
237	static FiProg C48__HAT_;
238	static FiWord CF48__HAT_(FiEnv e1, FiWord P0_x, FiWord P1_n);
239	static FiProg C49_stepsBetween;
240	static FiWord CF49_stepsBetween(FiEnv e1, FiWord P0_x, FiWord P1_y, FiWord P2_step);
241	static FiProg C50__LT__LT_;
242	static FiWord CF50__LT__LT_(FiEnv e1, FiWord P0_w, FiWord P1_i);
243	static FiProg C51_max;
244	static FiWord CF51_max(FiEnv e1, FiWord P0_x, FiWord P1_y);
245	static FiProg C52_min;
246	static FiWord CF52_min(FiEnv e1, FiWord P0_x, FiWord P1_y);
247	static FiProg C53_hash;
248	static FiWord CF53_hash(FiEnv e1, FiWord P0_x);
249	static FiProg C54_coerce;
250	static FiWord CF54_coerce(FiEnv e1, FiWord P0_x);
251	static FiProg C55__LT__LT_;
252	static FiClos CF55__LT__LT_(FiEnv e1, FiWord P0_x);
253	static FiProg C56__LT__LT_;
254	static FiWord CF56__LT__LT_(FiEnv e1, FiWord P0_p);
255	static FiProg C57_case;
256	static FiWord CF57_case(FiEnv e1, FiWord P0_x, FiWord P1_y);
257	static FiProg C58_abs;
258	static FiWord CF58_abs(FiEnv e1, FiWord P0_x);
259	static FiProg C59_sign;
260	static FiWord CF59_sign(FiEnv e1, FiWord P0_x);
261	static FiProg C60_stepsBetween;
262	static FiWord CF60_stepsBetween(FiEnv e1, FiWord P0_x, FiWord P1_y);
263	static FiProg C61_extend0;
264	static FiClos CF61_extend0(FiEnv e1, FiWord P0_domain);
265	static FiProg C62_machine_MINUS_init;
266	static FiWord CF62_machine_MINUS_init(FiEnv e1, FiSInt P0_idx);
267	static FiProg C63_basic_MINUS_init;
268	static FiWord CF63_basic_MINUS_init(FiEnv e1, FiSInt P0_idx);
269	static FiProg C64_segment_MINUS_init;
270	static FiWord CF64_segment_MINUS_init(FiEnv e1, FiSInt P0_idx);
271	static FiProg C65_foamcat_MINUS_init;
272	static FiWord CF65_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx);
273	extern FiClos G_HAQ5R_sinteger;
274	static FiClos *pG_NQYQM_noOperation;
275	extern FiWord G_IZ7UK_sinteger__MachineInteg;
276	extern FiWord G_M8YLI_sinteger__MachineInteg;
277	static FiClos *pG_XIPRL_runtime;
278	static FiClos *pG_Z2868_rtConstNameFn;
279	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
280	static FiClos *pG_XS55O_domainAddHash_BANG_;
281	extern FiWord formatSInt();
282	static FiClos *pG_PA5R2_domainAddExports;
283	static FiClos *pG_IJHFC_domainMakeDispatch;
284	static FiClos *pG_JP87X_rtConstSIntFn;
285	static FiClos *pG_WXLY5_categoryAddExports;
286	static FiWord *pG_OZCWT_foamcat__Logic__68840;
287	static FiClos *pG_NOX7X_rtLazyCatFrInit;
288	static FiWord *pG_JWK7S_foamcat__OrderedFinit;
289	static FiWord *pG_2AW24_foamcat__IntegerNumbe;
290	static FiWord *pG_YTG7I_segment__Steppable__0;
291	static FiClos *pG_YXGL3_categoryAddParents;
292	static FiWord *pG_1B0E6_machine__Machine__915;
293	static FiClos *pG_KK8CX_rtLazyDomFrInit;
294	static FiClos *pG_1X2RM_domainGetExport_BANG_;
295	static FiWord *pG_AEIW8_basic__String__641272;
296	static FiClos *pG_GOVLL_categoryMake;
297	static FiClos *pG_V9SO_domainAddDefaults;
298	static FiClos *pG_BEY7_domainMakeDummy;
299	static FiClos *pG_AK1EB_domainFill_BANG_;
300	static FiClos *pG_4NZQI_lazyGetExport_BANG_;
301	static FiClos *pG_R3D1K_lazyForceImport;
302	static FiWord *pG_U7T4R_basic__Integer__11769;
303	static FiClos *pG_110A7_basic__error__0116679;
304	static FiWord *pG_SH2SP_basic__TextWriter__36;
305	static FiClos *pG_6L1ZC_domainMake;
306	static FiWord *pG_8QOPO_basic__MachineInteger;
307	static FiClos *pG_G3BWN_extendFill_BANG_;
308	static FiClos *pG_FZLG1_extendMake;
309	static FiClos *pG_822GM_rtAddStrings;
310	static FiClos *pG_JNB1W_machine;
311	static FiClos *pG_NO017_basic;
312	static FiClos *pG_WVJG4_segment;
313	static FiClos *pG_H8TZ5_foamcat;
314	extern int fputs(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [3]*/
315	extern FiWord stdoutFile();
316	extern int fputc(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [1]*/
317
318
319
320	static void
321	CF0_sinteger(FiEnv e1)
322	{
323	PFmt5 T6, T7;
324	FiWord T4, T5;
325	FiClos T0, T1, T2, T3;
326	PFmt13 l0;
327	FiEnv e0;
328	l0 = fi0New(struct Fmt13 , CENSUS_EnvLevel)((struct Fmt13 *) fi0Alloc(sizeof(struct Fmt13), (19)));
329	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
330	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
331	G_HAQ5R_sinteger = (FiClos) (*pG_NQYQM_noOperation);
332	T0 = fiClosMake(e0, C65_foamcat_MINUS_init)fiClosMakeFun(e0, (FiProg) (C65_foamcat_MINUS_init));
333	T1 = fiClosMake(e0, C64_segment_MINUS_init)fiClosMakeFun(e0, (FiProg) (C64_segment_MINUS_init));
334	T2 = fiClosMake(e0, C62_machine_MINUS_init)fiClosMakeFun(e0, (FiProg) (C62_machine_MINUS_init));
335	T3 = fiClosMake(e0, C63_basic_MINUS_init)fiClosMakeFun(e0, (FiProg) (C63_basic_MINUS_init));
336	G_IZ7UK_sinteger__MachineInteg = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))))
337	pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))));
338	G_M8YLI_sinteger__MachineInteg = fiCCall1(FiWord, (((((FiWord ()())(( pG_FZLG1_extendMake))->prog->fun) )(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg ) (C61_extend0))))
339	pG_FZLG1_extendMake), fiClosMake(e0, C61_extend0))((((FiWord ()())((* pG_FZLG1_extendMake))->prog->fun) )(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg ) (C61_extend0))));
340	l0->X10 = 0L;
341	l0->X11 = 0L;
342	l0->X12 = 0L;
343	l0->X13 = 0L;
344	fiARRNEW_Word(T4, FiWord, 53L)((T4) = (FiWord) fiArrNew_Word(53L));
345	fiARRNEW_Word(T5, FiWord, 53L)((T5) = (FiWord) fiArrNew_Word(53L));
346	T4[0L] = (FiWord) 61935445L;
347	T5[0L] = (FiWord) "sign";
348	T4[1L] = (FiWord) 315051633L;
349	T5[1L] = (FiWord) "abs";
350	T4[2L] = (FiWord) 200135L;
351	T5[2L] = (FiWord) "^";
352	T4[3L] = (FiWord) 699481107L;
353	T5[3L] = (FiWord) "mod/";
354	T4[4L] = (FiWord) 200083L;
355	T5[4L] = (FiWord) "*";
356	T4[5L] = (FiWord) 255806968L;
357	T5[5L] = (FiWord) "sample";
358	T4[6L] = (FiWord) 484454270L;
359	T5[6L] = (FiWord) "fromJava";
360	T4[7L] = (FiWord) 782953315L;
361	T5[7L] = (FiWord) "next";
362	T4[8L] = (FiWord) 375083307L;
363	T5[8L] = (FiWord) "shift";
364	T4[9L] = (FiWord) 200084L;
365	T5[9L] = (FiWord) "+";
366	T4[10L] = (FiWord) 386811348L;
367	T5[10L] = (FiWord) "retract";
368	T4[11L] = (FiWord) 362464416L;
369	T5[11L] = (FiWord) "single\?";
370	T4[12L] = (FiWord) 315119482L;
371	T5[12L] = (FiWord) "bit";
372	T4[13L] = (FiWord) 51487581L;
373	T5[13L] = (FiWord) "/\\";
374	T4[14L] = (FiWord) 200086L;
375	T5[14L] = (FiWord) "-";
376	T4[15L] = (FiWord) 498514682L;
377	T5[15L] = (FiWord) "even\?";
378	T4[16L] = (FiWord) 424301635L;
379	T5[16L] = (FiWord) "negative\?";
380	T4[17L] = (FiWord) 770345191L;
381	T5[17L] = (FiWord) "coerce";
382	T4[18L] = (FiWord) 200101L;
383	T5[18L] = (FiWord) "<";
384	T4[19L] = (FiWord) 318266239L;
385	T5[19L] = (FiWord) "rem";
386	T4[20L] = (FiWord) 200076L;
387	T5[20L] = (FiWord) "#";
388	T4[21L] = (FiWord) 318461825L;
389	T5[21L] = (FiWord) "max";
390	T4[22L] = (FiWord) 200089L;
391	T5[22L] = (FiWord) "0";
392	T4[23L] = (FiWord) 51500637L;
393	T5[23L] = (FiWord) "\\/";
394	T4[24L] = (FiWord) 51492941L;
395	T5[24L] = (FiWord) ">=";
396	T4[25L] = (FiWord) 200167L;
397	T5[25L] = (FiWord) "~";
398	T4[26L] = (FiWord) 200102L;
399	T5[26L] = (FiWord) "=";
400	T4[27L] = (FiWord) 200090L;
401	T5[27L] = (FiWord) "1";
402	T4[28L] = (FiWord) 318204816L;
403	T5[28L] = (FiWord) "quo";
404	T4[29L] = (FiWord) 200103L;
405	T5[29L] = (FiWord) ">";
406	T4[30L] = (FiWord) 613807201L;
407	T5[30L] = (FiWord) "prev";
408	T4[31L] = (FiWord) 417900517L;
409	T5[31L] = (FiWord) "stepsBetween";
410	T4[32L] = (FiWord) 746853960L;
411	T5[32L] = (FiWord) "hash";
412	T4[33L] = (FiWord) 699481154L;
413	T5[33L] = (FiWord) "mod^";
414	T4[34L] = (FiWord) 699481102L;
415	T5[34L] = (FiWord) "mod*";
416	T4[35L] = (FiWord) 318461307L;
417	T5[35L] = (FiWord) "mod";
418	T4[36L] = (FiWord) 445790171L;
419	T5[36L] = (FiWord) "toJava";
420	T4[37L] = (FiWord) 864625472L;
421	T5[37L] = (FiWord) "case";
422	T4[38L] = (FiWord) 699481103L;
423	T5[38L] = (FiWord) "mod+";
424	T4[39L] = (FiWord) 437828088L;
425	T5[39L] = (FiWord) "length";
426	T4[40L] = (FiWord) 477900237L;
427	T5[40L] = (FiWord) "integer";
428	T4[41L] = (FiWord) 51509389L;
429	T5[41L] = (FiWord) "~=";
430	T4[42L] = (FiWord) 318459775L;
431	T5[42L] = (FiWord) "min";
432	T4[43L] = (FiWord) 316169058L;
433	T5[43L] = (FiWord) "Rep";
434	T4[44L] = (FiWord) 733146723L;
435	T5[44L] = (FiWord) "positive\?";
436	T4[45L] = (FiWord) 317608340L;
437	T5[45L] = (FiWord) "xor";
438	T4[46L] = (FiWord) 51492426L;
439	T5[46L] = (FiWord) "<<";
440	T4[47L] = (FiWord) 699481105L;
441	T5[47L] = (FiWord) "mod-";
442	T4[48L] = (FiWord) 665072666L;
443	T5[48L] = (FiWord) "odd\?";
444	T4[49L] = (FiWord) 206475020L;
445	T5[49L] = (FiWord) "zero\?";
446	T4[50L] = (FiWord) 42114539L;
447	T5[50L] = (FiWord) "divide";
448	T4[51L] = (FiWord) 318604649L;
449	T5[51L] = (FiWord) "gcd";
450	T4[52L] = (FiWord) 51492427L;
451	T5[52L] = (FiWord) "<=";
452	T6 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
453	T6->X0_size = 53L;
454	T6->X1_nsize = 53L;
455	T6->X2_values = (FiWord) T4;
456	T7 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
457	T7->X0_size = 53L;
458	T7->X1_nsize = 53L;
459	T7->X2_values = (FiWord) T5;
460	fiCCall2(void, (pG_822GM_rtAddStrings), (FiWord) T6, (FiWord) T7)((((void ()())((pG_822GM_rtAddStrings))->prog->fun)) (((*pG_822GM_rtAddStrings))->env,(FiWord) T6,(FiWord) T7));
461	l0->X4_Logic = fiCCall2(FiWord, (pG_NOX7X_rtLazyCatFrInit), T0,((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((*pG_NOX7X_rtLazyCatFrInit))->env,T0,0L))
462	0L)((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((pG_NOX7X_rtLazyCatFrInit))->env,T0,0L));
463	l0->X3_OrderedFinite = fiCCall2(FiWord, (((((FiWord ()())(( pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,1L))
464	pG_NOX7X_rtLazyCatFrInit), T0, 1L)((((FiWord ()())((* pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,1L));
465	l0->X2_IntegerNumberSystem = fiCCall2(FiWord, (((((FiWord ()())(( pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,2L))
466	pG_NOX7X_rtLazyCatFrInit), T0, 2L)((((FiWord ()())((* pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,2L));
467	l0->X5_Steppable = fiCCall2(FiWord, (pG_NOX7X_rtLazyCatFrInit),((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((*pG_NOX7X_rtLazyCatFrInit))->env,T1,0L))
468	T1, 0L)((((FiWord ()())((pG_NOX7X_rtLazyCatFrInit))->prog-> fun))(((pG_NOX7X_rtLazyCatFrInit))->env,T1,0L));
469	l0->X1_Machine = fiCCall2(FiWord, (pG_KK8CX_rtLazyDomFrInit),((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T2,0L))
470	T2, 0L)((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((pG_KK8CX_rtLazyDomFrInit))->env,T2,0L));
471	l0->X9_dom = l0->X1_Machine;
472	l0->X6_SInt = fiCCall3(FiWord, (pG_1X2RM_domainGetExport_BANG_),((((FiWord ()())((pG_1X2RM_domainGetExport_BANG_))->prog ->fun))(((*pG_1X2RM_domainGetExport_BANG_))->env,l0-> X9_dom,594651170L,547382598L))
473	l0->X9_dom, 594651170L, 547382598L)((((FiWord ()())((pG_1X2RM_domainGetExport_BANG_))->prog ->fun))(((pG_1X2RM_domainGetExport_BANG_))->env,l0-> X9_dom,594651170L,547382598L));
474	l0->X8_min = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X9_dom ,318459775L,594651170L))
475	l0->X9_dom, 318459775L, 594651170L)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X9_dom ,318459775L,594651170L));
476	l0->X7_max = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X9_dom ,318461825L,594651170L))
477	l0->X9_dom, 318461825L, 594651170L)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X9_dom ,318461825L,594651170L));
478	l0->X0_MachineInteger = fiCCall2(FiWord, (((((FiWord ()())(( pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T3,4L))
479	pG_KK8CX_rtLazyDomFrInit), T3, 4L)((((FiWord ()())((* pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T3,4L));
480	return ;
481	}
482
483	static struct _FiProg tmp0_sinteger = {
484	(FiFun) CF0_sinteger,
485	0L,
486	0L,
487	0L,
488	0L
489	};
490
491
492	static FiClos
493	CF1_addLevel0(FiEnv e1, FiWord P0_domain)
494	{
495	FiWord T0;
496	FiEnv e0;
497	PFmt13 l1;
498	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
499	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
500	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "MachineInteger")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"MachineInteger"));
501	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
502	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,33717313L ))
503	33717313L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,33717313L ));
504	return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
505	}
506
507	static struct _FiProg tmp1_addLevel0 = {
508	(FiFun) CF1_addLevel0,
509	0L,
510	0L,
511	0L,
512	0L
513	};
514
515
516	static FiWord
517	CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
518	{
519	FiWord T0, T1, *T2, T6, T7, T27;
520	FiClos T26;
521	FiSInt T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T23, T24, T25;
522	PFmt5 T3, T4, T5;
523	PFmt11 l0;
524	FiEnv e2, e0;
525	PFmt13 l2;
526	l0 = fi0New(struct Fmt11 , CENSUS_EnvLevel)((struct Fmt11 *) fi0Alloc(sizeof(struct Fmt11), (19)));
527	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
528	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
529	l2 = (PFmt13) fiEnvLevel(e2)((FiEnv) (e2)->level);
530	fiARRNEW_Word(T0, FiWord, 63L)((T0) = (FiWord) fiArrNew_Word(63L));
531	fiARRNEW_Word(T1, FiWord, 63L)((T1) = (FiWord) fiArrNew_Word(63L));
532	fiARRNEW_Word(T2, FiWord, 63L)((T2) = (FiWord) fiArrNew_Word(63L));
533	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
534	l0->X60 = (FiSInt) P1_hashcode;
535	l0->X49_toJava = fiClosMake(e0, C4_toJava)fiClosMakeFun(e0, (FiProg) (C4_toJava));
536	l0->X48_fromJava = fiClosMake(e0, C5_fromJava)fiClosMakeFun(e0, (FiProg) (C5_fromJava));
537	l0->X47_integer = fiClosMake(e0, C6_integer)fiClosMakeFun(e0, (FiProg) (C6_integer));
538	l0->X46_zero_QMARK_ = fiClosMake(e0, C7_zero_QMARK_)fiClosMakeFun(e0, (FiProg) (C7_zero_QMARK_));
539	l0->X45_negative_QMARK_ = fiClosMake(e0, C8_negative_QMARK_)fiClosMakeFun(e0, (FiProg) (C8_negative_QMARK_));
540	l0->X44_positive_QMARK_ = fiClosMake(e0, C9_positive_QMARK_)fiClosMakeFun(e0, (FiProg) (C9_positive_QMARK_));
541	l0->X43_even_QMARK_ = fiClosMake(e0, C10_even_QMARK_)fiClosMakeFun(e0, (FiProg) (C10_even_QMARK_));
542	l0->X42_odd_QMARK_ = fiClosMake(e0, C11_odd_QMARK_)fiClosMakeFun(e0, (FiProg) (C11_odd_QMARK_));
543	l0->X41_single_QMARK_ = fiClosMake(e0, C12_single_QMARK_)fiClosMakeFun(e0, (FiProg) (C12_single_QMARK_));
544	l0->X40__EQ_ = fiClosMake(e0, C13__EQ_)fiClosMakeFun(e0, (FiProg) (C13__EQ_));
545	l0->X39__TILDE__EQ_ = fiClosMake(e0, C14__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C14__TILDE__EQ_));
546	l0->X38__LT_ = fiClosMake(e0, C15__LT_)fiClosMakeFun(e0, (FiProg) (C15__LT_));
547	l0->X37__GT_ = fiClosMake(e0, C16__GT_)fiClosMakeFun(e0, (FiProg) (C16__GT_));
548	l0->X36__LT__EQ_ = fiClosMake(e0, C17__LT__EQ_)fiClosMakeFun(e0, (FiProg) (C17__LT__EQ_));
549	l0->X35__GT__EQ_ = fiClosMake(e0, C18__GT__EQ_)fiClosMakeFun(e0, (FiProg) (C18__GT__EQ_));
550	l0->X34_prev = fiClosMake(e0, C19_prev)fiClosMakeFun(e0, (FiProg) (C19_prev));
551	l0->X33_next = fiClosMake(e0, C20_next)fiClosMakeFun(e0, (FiProg) (C20_next));
552	l0->X52__PLUS_ = fiClosMake(e0, C21__PLUS_)fiClosMakeFun(e0, (FiProg) (C21__PLUS_));
553	l0->X50__MINUS_ = fiClosMake(e0, C22__MINUS_)fiClosMakeFun(e0, (FiProg) (C22__MINUS_));
554	l0->X53__PLUS_ = fiClosMake(e0, C23__PLUS_)fiClosMakeFun(e0, (FiProg) (C23__PLUS_));
555	l0->X51__MINUS_ = fiClosMake(e0, C24__MINUS_)fiClosMakeFun(e0, (FiProg) (C24__MINUS_));
556	l0->X32__STAR_ = fiClosMake(e0, C25__STAR_)fiClosMakeFun(e0, (FiProg) (C25__STAR_));
557	l0->X28_coerce = fiClosMake(e0, C26_coerce)fiClosMakeFun(e0, (FiProg) (C26_coerce));
558	l0->X27_retract = fiClosMake(e0, C27_retract)fiClosMakeFun(e0, (FiProg) (C27_retract));
559	l0->X25__HAT_ = fiClosMake(e0, C28__HAT_)fiClosMakeFun(e0, (FiProg) (C28__HAT_));
560	l0->X29_coerce = fiClosMake(e0, C29_coerce)fiClosMakeFun(e0, (FiProg) (C29_coerce));
561	l0->X30_coerce = fiClosMake(e0, C30_coerce)fiClosMakeFun(e0, (FiProg) (C30_coerce));
562	l0->X24_quo = fiClosMake(e0, C31_quo)fiClosMakeFun(e0, (FiProg) (C31_quo));
563	l0->X23_rem = fiClosMake(e0, C32_rem)fiClosMakeFun(e0, (FiProg) (C32_rem));
564	l0->X22_gcd = fiClosMake(e0, C33_gcd)fiClosMakeFun(e0, (FiProg) (C33_gcd));
565	l0->X21_length = fiClosMake(e0, C34_length)fiClosMakeFun(e0, (FiProg) (C34_length));
566	l0->X20_shift = fiClosMake(e0, C35_shift)fiClosMakeFun(e0, (FiProg) (C35_shift));
567	l0->X19_bit = fiClosMake(e0, C36_bit)fiClosMakeFun(e0, (FiProg) (C36_bit));
568	l0->X18__TILDE_ = fiClosMake(e0, C37__TILDE_)fiClosMakeFun(e0, (FiProg) (C37__TILDE_));
569	l0->X17__SLASH__BSLSH_ = fiClosMake(e0, C38__SLASH__BSLSH_)fiClosMakeFun(e0, (FiProg) (C38__SLASH__BSLSH_));
570	l0->X16__BSLSH__SLASH_ = fiClosMake(e0, C39__BSLSH__SLASH_)fiClosMakeFun(e0, (FiProg) (C39__BSLSH__SLASH_));
571	l0->X15_xor = fiClosMake(e0, C40_xor)fiClosMakeFun(e0, (FiProg) (C40_xor));
572	l0->X14_mod = fiClosMake(e0, C41_mod)fiClosMakeFun(e0, (FiProg) (C41_mod));
573	l0->X13_mod_PLUS_ = fiClosMake(e0, C42_mod_PLUS_)fiClosMakeFun(e0, (FiProg) (C42_mod_PLUS_));
574	l0->X12_mod_MINUS_ = fiClosMake(e0, C43_mod_MINUS_)fiClosMakeFun(e0, (FiProg) (C43_mod_MINUS_));
575	l0->X11_mod_STAR_ = fiClosMake(e0, C44_mod_STAR_)fiClosMakeFun(e0, (FiProg) (C44_mod_STAR_));
576	l0->X10_mod_SLASH_ = fiClosMake(e0, C45_mod_SLASH_)fiClosMakeFun(e0, (FiProg) (C45_mod_SLASH_));
577	l0->X9_mod_HAT_ = fiClosMake(e0, C46_mod_HAT_)fiClosMakeFun(e0, (FiProg) (C46_mod_HAT_));
578	l0->X8_divide = fiClosMake(e0, C47_divide)fiClosMakeFun(e0, (FiProg) (C47_divide));
579	l0->X26__HAT_ = fiClosMake(e0, C48__HAT_)fiClosMakeFun(e0, (FiProg) (C48__HAT_));
580	l0->X6_stepsBetween = fiClosMake(e0, C49_stepsBetween)fiClosMakeFun(e0, (FiProg) (C49_stepsBetween));
581	l0->X4__LT__LT_ = fiClosMake(e0, C50__LT__LT_)fiClosMakeFun(e0, (FiProg) (C50__LT__LT_));
582	l0->X56_max = fiClosMake(e0, C51_max)fiClosMakeFun(e0, (FiProg) (C51_max));
583	l0->X58_min = fiClosMake(e0, C52_min)fiClosMakeFun(e0, (FiProg) (C52_min));
584	l0->X3_hash = fiClosMake(e0, C53_hash)fiClosMakeFun(e0, (FiProg) (C53_hash));
585	l0->X31_coerce = fiClosMake(e0, C54_coerce)fiClosMakeFun(e0, (FiProg) (C54_coerce));
586	l0->X5__LT__LT_ = fiClosMake(e0, C55__LT__LT_)fiClosMakeFun(e0, (FiProg) (C55__LT__LT_));
587	l0->X2_case = fiClosMake(e0, C57_case)fiClosMakeFun(e0, (FiProg) (C57_case));
588	l0->X1_abs = fiClosMake(e0, C58_abs)fiClosMakeFun(e0, (FiProg) (C58_abs));
589	l0->X0_sign = fiClosMake(e0, C59_sign)fiClosMakeFun(e0, (FiProg) (C59_sign));
590	l0->X7_stepsBetween = fiClosMake(e0, C60_stepsBetween)fiClosMakeFun(e0, (FiProg) (C60_stepsBetween));
591	fiSINT_HASHCOMBINE(T8, FiSInt, l0->X60, 711292475L)((T8) = (FiSInt) fiSIntHashCombine(l0->X60, 711292475L));
592	fiSINT_HASHCOMBINE(T20, FiSInt, l0->X60, 51489085L)((T20) = (FiSInt) fiSIntHashCombine(l0->X60, 51489085L));
593	fiSINT_HASHCOMBINE(T21, FiSInt, 32236L, T20)((T21) = (FiSInt) fiSIntHashCombine(32236L, T20));
594	fiSINT_HASHCOMBINE(T9, FiSInt, 740244383L, T21)((T9) = (FiSInt) fiSIntHashCombine(740244383L, T21));
595	fiSINT_HASHCOMBINE(T22, FiSInt, l0->X60, T20)((T22) = (FiSInt) fiSIntHashCombine(l0->X60, T20));
596	fiSINT_HASHCOMBINE(T23, FiSInt, 32236L, T22)((T23) = (FiSInt) fiSIntHashCombine(32236L, T22));
597	fiSINT_HASHCOMBINE(T10, FiSInt, 740244383L, T23)((T10) = (FiSInt) fiSIntHashCombine(740244383L, T23));
598	fiSINT_HASHCOMBINE(T11, FiSInt, l0->X60, T21)((T11) = (FiSInt) fiSIntHashCombine(l0->X60, T21));
599	fiSINT_HASHCOMBINE(T24, FiSInt, l0->X60, T23)((T24) = (FiSInt) fiSIntHashCombine(l0->X60, T23));
600	fiSINT_HASHCOMBINE(T12, FiSInt, l0->X60, fiSIntHashCombine((FiSInt)((T12) = (FiSInt) fiSIntHashCombine(l0->X60, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 484208045L , ( FiSInt) T20))))
601	32236L, (FiSInt) fiSIntHashCombine((FiSInt) 484208045L, (((T12) = (FiSInt) fiSIntHashCombine(l0->X60, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 484208045L , ( FiSInt) T20))))
602	FiSInt) T20)))((T12) = (FiSInt) fiSIntHashCombine(l0->X60, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) 484208045L , ( FiSInt) T20))));
603	fiSINT_HASHCOMBINE(T13, FiSInt, l0->X60, 366858836L)((T13) = (FiSInt) fiSIntHashCombine(l0->X60, 366858836L));
604	fiSINT_HASHCOMBINE(T14, FiSInt, l0->X60, fiSIntHashCombine((FiSInt)((T14) = (FiSInt) fiSIntHashCombine(l0->X60, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) T22))))
605	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X60, (((T14) = (FiSInt) fiSIntHashCombine(l0->X60, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) T22))))
606	FiSInt) T22)))((T14) = (FiSInt) fiSIntHashCombine(l0->X60, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) T22))));
607	fiSINT_HASHCOMBINE(T15, FiSInt, l0->X60, T24)((T15) = (FiSInt) fiSIntHashCombine(l0->X60, T24));
608	fiSINT_HASHCOMBINE(T16, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T16) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) 102896482L))))
609	32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X60, (((T16) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) 102896482L))))
610	FiSInt) 102896482L)))((T16) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine ((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) 102896482L))));
611	fiSINT_HASHCOMBINE(T17, FiSInt, 585242861L, T21)((T17) = (FiSInt) fiSIntHashCombine(585242861L, T21));
612	fiSINT_HASHCOMBINE(T18, FiSInt, 755420535L, T21)((T18) = (FiSInt) fiSIntHashCombine(755420535L, T21));
613	T19 = l0->X60;
614	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
615	T3->X0_size = 63L;
616	T3->X1_nsize = 63L;
617	T3->X2_values = (FiWord) T0;
618	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
619	T4->X0_size = 63L;
620	T4->X1_nsize = 63L;
621	T4->X2_values = (FiWord) T1;
622	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
623	T5->X0_size = 63L;
624	T5->X1_nsize = 63L;
625	T5->X2_values = (FiWord) T2;
626	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) );
627	T26 = fiCCall1(FiClos, (pG_JP87X_rtConstSIntFn), 33717313L)((((FiClos ()())((pG_JP87X_rtConstSIntFn))->prog->fun ))(((*pG_JP87X_rtConstSIntFn))->env,33717313L));
628	T27 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "MachineInteger")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"MachineInteger"));
629	T27 = fiCCall3(FiWord, (pG_GOVLL_categoryMake), fiClosMake(e0,((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((*pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_sinteger)),T26,T27))
630	C3_sinteger), T26, T27)((((FiWord ()())((pG_GOVLL_categoryMake))->prog->fun ))(((pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg ) (C3_sinteger)),T26,T27));
631	fiCCall3(FiWord, (pG_V9SO_domainAddDefaults), P0_domain, T27, T6)((((FiWord ()())((pG_V9SO_domainAddDefaults))->prog-> fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,T27,T6 ));
632	l0->X59_Rep = fiCCall0(FiWord, (pG_BEY7_domainMakeDummy))((((FiWord ()())((pG_BEY7_domainMakeDummy))->prog->fun ))(((*pG_BEY7_domainMakeDummy))->env));
633	T7 = l0->X59_Rep;
634	l0->X59_Rep = l2->X6_SInt;
635	fiCCall2(void, (pG_AK1EB_domainFill_BANG_), T7, l0->X59_Rep)((((void ()())((pG_AK1EB_domainFill_BANG_))->prog->fun ))(((*pG_AK1EB_domainFill_BANG_))->env,T7,l0->X59_Rep));
636	l0->X59_Rep = T7;
637	T0[0L] = (FiWord) 316169058L;
638	T1[0L] = (FiWord) 547382598L;
639	T2[0L] = l0->X59_Rep;
640	T0[1L] = (FiWord) 445790171L;
641	fiSINT_HASHCOMBINE(T1[1L], FiWord, 594651170L, fiSIntHashCombine((((T1[1L]) = (FiWord) fiSIntHashCombine(594651170L, fiSIntHashCombine (( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) 51489085L))))
642	FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X60, (((T1[1L]) = (FiWord) fiSIntHashCombine(594651170L, fiSIntHashCombine (( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) 51489085L))))
643	FiSInt) 51489085L)))((T1[1L]) = (FiWord) fiSIntHashCombine(594651170L, fiSIntHashCombine (( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0-> X60, ( FiSInt) 51489085L))));
644	T2[1L] = (FiWord) l0->X49_toJava;
645	T0[2L] = (FiWord) 484454270L;
646	fiSINT_HASHCOMBINE(T25, FiSInt, l0->X60, 1005564120L)((T25) = (FiSInt) fiSIntHashCombine(l0->X60, 1005564120L));
647	T1[2L] = (FiWord) T25;
648	T2[2L] = (FiWord) l0->X48_fromJava;
649	T0[3L] = (FiWord) 477900237L;
650	T1[3L] = (FiWord) T8;
651	T2[3L] = (FiWord) l0->X47_integer;
652	T0[4L] = (FiWord) 206475020L;
653	T1[4L] = (FiWord) T9;
654	T2[4L] = (FiWord) l0->X46_zero_QMARK_;
655	T0[5L] = (FiWord) 424301635L;
656	T1[5L] = (FiWord) T9;
657	T2[5L] = (FiWord) l0->X45_negative_QMARK_;
658	T0[6L] = (FiWord) 733146723L;
659	T1[6L] = (FiWord) T9;
660	T2[6L] = (FiWord) l0->X44_positive_QMARK_;
661	T0[7L] = (FiWord) 498514682L;
662	T1[7L] = (FiWord) T9;
663	T2[7L] = (FiWord) l0->X43_even_QMARK_;
664	T0[8L] = (FiWord) 665072666L;
665	T1[8L] = (FiWord) T9;
666	T2[8L] = (FiWord) l0->X42_odd_QMARK_;
667	T0[9L] = (FiWord) 362464416L;
668	T1[9L] = (FiWord) T9;
669	T2[9L] = (FiWord) l0->X41_single_QMARK_;
670	T0[10L] = (FiWord) 200102L;
671	T1[10L] = (FiWord) T10;
672	T2[10L] = (FiWord) l0->X40__EQ_;
673	T0[11L] = (FiWord) 51509389L;
674	T1[11L] = (FiWord) T10;
675	T2[11L] = (FiWord) l0->X39__TILDE__EQ_;
676	T0[12L] = (FiWord) 200101L;
677	T1[12L] = (FiWord) T10;
678	T2[12L] = (FiWord) l0->X38__LT_;
679	T0[13L] = (FiWord) 200103L;
680	T1[13L] = (FiWord) T10;
681	T2[13L] = (FiWord) l0->X37__GT_;
682	T0[14L] = (FiWord) 51492427L;
683	T1[14L] = (FiWord) T10;
684	T2[14L] = (FiWord) l0->X36__LT__EQ_;
685	T0[15L] = (FiWord) 51492941L;
686	T1[15L] = (FiWord) T10;
687	T2[15L] = (FiWord) l0->X35__GT__EQ_;
688	T0[16L] = (FiWord) 613807201L;
689	T1[16L] = (FiWord) T11;
690	T2[16L] = (FiWord) l0->X34_prev;
691	T0[17L] = (FiWord) 782953315L;
692	T1[17L] = (FiWord) T11;
693	T2[17L] = (FiWord) l0->X33_next;
694	T0[18L] = (FiWord) 200084L;
695	T1[18L] = (FiWord) T11;
696	T2[18L] = (FiWord) l0->X52__PLUS_;
697	T0[19L] = (FiWord) 200086L;
698	T1[19L] = (FiWord) T11;
699	T2[19L] = (FiWord) l0->X50__MINUS_;
700	T0[20L] = (FiWord) 200084L;
701	T1[20L] = (FiWord) T24;
702	T2[20L] = (FiWord) l0->X53__PLUS_;
703	T0[21L] = (FiWord) 200086L;
704	T1[21L] = (FiWord) T24;
705	T2[21L] = (FiWord) l0->X51__MINUS_;
706	T0[22L] = (FiWord) 200083L;
707	T1[22L] = (FiWord) T24;
708	T2[22L] = (FiWord) l0->X32__STAR_;
709	T0[23L] = (FiWord) 770345191L;
710	T1[23L] = (FiWord) T11;
711	T2[23L] = (FiWord) l0->X28_coerce;
712	T0[24L] = (FiWord) 386811348L;
713	T1[24L] = (FiWord) T11;
714	T2[24L] = (FiWord) l0->X27_retract;
715	T0[25L] = (FiWord) 200135L;
716	T1[25L] = (FiWord) T12;
717	T2[25L] = (FiWord) l0->X25__HAT_;
718	T0[26L] = (FiWord) 770345191L;
719	T1[26L] = (FiWord) T13;
720	T2[26L] = (FiWord) l0->X29_coerce;
721	T0[27L] = (FiWord) 770345191L;
722	T1[27L] = (FiWord) T25;
723	T2[27L] = (FiWord) l0->X30_coerce;
724	T0[28L] = (FiWord) 318204816L;
725	T1[28L] = (FiWord) T24;
726	T2[28L] = (FiWord) l0->X24_quo;
727	T0[29L] = (FiWord) 318266239L;
728	T1[29L] = (FiWord) T24;
729	T2[29L] = (FiWord) l0->X23_rem;
730	T0[30L] = (FiWord) 318604649L;
731	T1[30L] = (FiWord) T24;
732	T2[30L] = (FiWord) l0->X22_gcd;
733	T0[31L] = (FiWord) 437828088L;
734	T1[31L] = (FiWord) T11;
735	T2[31L] = (FiWord) l0->X21_length;
736	T0[32L] = (FiWord) 375083307L;
737	T1[32L] = (FiWord) T24;
738	T2[32L] = (FiWord) l0->X20_shift;
739	T0[33L] = (FiWord) 315119482L;
740	T1[33L] = (FiWord) T10;
741	T2[33L] = (FiWord) l0->X19_bit;
742	T0[34L] = (FiWord) 200167L;
743	T1[34L] = (FiWord) T11;
744	T2[34L] = (FiWord) l0->X18__TILDE_;
745	T0[35L] = (FiWord) 51487581L;
746	T1[35L] = (FiWord) T24;
747	T2[35L] = (FiWord) l0->X17__SLASH__BSLSH_;
748	T0[36L] = (FiWord) 51500637L;
749	T1[36L] = (FiWord) T24;
750	T2[36L] = (FiWord) l0->X16__BSLSH__SLASH_;
751	T0[37L] = (FiWord) 317608340L;
752	T1[37L] = (FiWord) T24;
753	T2[37L] = (FiWord) l0->X15_xor;
754	T0[38L] = (FiWord) 318461307L;
755	T1[38L] = (FiWord) T24;
756	T2[38L] = (FiWord) l0->X14_mod;
757	T0[39L] = (FiWord) 699481103L;
758	T1[39L] = (FiWord) T14;
759	T2[39L] = (FiWord) l0->X13_mod_PLUS_;
760	T0[40L] = (FiWord) 699481105L;
761	T1[40L] = (FiWord) T14;
762	T2[40L] = (FiWord) l0->X12_mod_MINUS_;
763	T0[41L] = (FiWord) 699481102L;
764	T1[41L] = (FiWord) T14;
765	T2[41L] = (FiWord) l0->X11_mod_STAR_;
766	T0[42L] = (FiWord) 699481107L;
767	T1[42L] = (FiWord) T14;
768	T2[42L] = (FiWord) l0->X10_mod_SLASH_;
769	T0[43L] = (FiWord) 699481154L;
770	T1[43L] = (FiWord) T14;
771	T2[43L] = (FiWord) l0->X9_mod_HAT_;
772	T0[44L] = (FiWord) 42114539L;
773	T1[44L] = (FiWord) T15;
774	T2[44L] = (FiWord) l0->X8_divide;
775	T0[45L] = (FiWord) 200135L;
776	T1[45L] = (FiWord) T24;
777	T2[45L] = (FiWord) l0->X26__HAT_;
778	T0[46L] = (FiWord) 417900517L;
779	T1[46L] = (FiWord) T14;
780	T2[46L] = (FiWord) l0->X6_stepsBetween;
781	T0[47L] = (FiWord) 51492426L;
782	T1[47L] = (FiWord) T16;
783	T2[47L] = (FiWord) l0->X4__LT__LT_;
784	T0[48L] = (FiWord) 318461825L;
785	T1[48L] = (FiWord) T24;
786	T2[48L] = (FiWord) l0->X56_max;
787	T0[49L] = (FiWord) 318459775L;
788	T1[49L] = (FiWord) T24;
789	T2[49L] = (FiWord) l0->X58_min;
790	T0[50L] = (FiWord) 746853960L;
791	T1[50L] = (FiWord) T11;
792	T2[50L] = (FiWord) l0->X3_hash;
793	T0[51L] = (FiWord) 770345191L;
794	T1[51L] = (FiWord) T17;
795	T2[51L] = (FiWord) l0->X31_coerce;
796	T0[52L] = (FiWord) 51492426L;
797	T1[52L] = (FiWord) T18;
798	T2[52L] = (FiWord) l0->X5__LT__LT_;
799	T0[53L] = (FiWord) 864625472L;
800	T1[53L] = (FiWord) T10;
801	T2[53L] = (FiWord) l0->X2_case;
802	T0[54L] = (FiWord) 315051633L;
803	T1[54L] = (FiWord) T11;
804	T2[54L] = (FiWord) l0->X1_abs;
805	T0[55L] = (FiWord) 61935445L;
806	T1[55L] = (FiWord) T11;
807	T2[55L] = (FiWord) l0->X0_sign;
808	T0[56L] = (FiWord) 417900517L;
809	T1[56L] = (FiWord) T24;
810	T2[56L] = (FiWord) l0->X7_stepsBetween;
811	T0[57L] = (FiWord) 200089L;
812	T1[57L] = (FiWord) T19;
813	T2[57L] = (FiWord) 0L;
814	T0[58L] = (FiWord) 200090L;
815	T1[58L] = (FiWord) T19;
816	T2[58L] = (FiWord) 1L;
817	l0->X57_min = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l2->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X8_min))
818	X8_min)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2-> X8_min));
819	T0[59L] = (FiWord) 318459775L;
820	T1[59L] = (FiWord) T19;
821	T2[59L] = l0->X57_min;
822	l0->X55_max = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l2->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X7_max))
823	X7_max)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2-> X7_max));
824	T0[60L] = (FiWord) 318461825L;
825	T1[60L] = (FiWord) T19;
826	T2[60L] = l0->X55_max;
827	fiBINT_PLUS1(l0->X54__SHARP_, FiWord, fiBIntMinus((FiBInt)((l0->X54__SHARP_) = (FiWord) fiBIntPlus(fiBIntMinus((FiBInt ) fiSIntToBInt((FiSInt) l0->X55_max), (FiBInt) fiSIntToBInt (( FiSInt) l0->X57_min)),fiBInt1()))
828	fiSIntToBInt((FiSInt) l0->X55_max), (FiBInt) fiSIntToBInt((((l0->X54__SHARP_) = (FiWord) fiBIntPlus(fiBIntMinus((FiBInt ) fiSIntToBInt((FiSInt) l0->X55_max), (FiBInt) fiSIntToBInt (( FiSInt) l0->X57_min)),fiBInt1()))
829	FiSInt) l0->X57_min)))((l0->X54__SHARP_) = (FiWord) fiBIntPlus(fiBIntMinus((FiBInt ) fiSIntToBInt((FiSInt) l0->X55_max), (FiBInt) fiSIntToBInt (( FiSInt) l0->X57_min)),fiBInt1()));
830	T0[61L] = (FiWord) 200076L;
831	T1[61L] = (FiWord) 484208045L;
832	T2[61L] = l0->X54__SHARP_;
833	T0[62L] = (FiWord) 255806968L;
834	T1[62L] = (FiWord) T19;
835	T2[62L] = (FiWord) 0L;
836	return P0_domain;
837	}
838
839	static struct _FiProg tmp2_addLevel1 = {
840	(FiFun) CF2_addLevel1,
841	0L,
842	0L,
843	0L,
844	0L
845	};
846
847
848	static void
849	CF3_sinteger(FiEnv e1, FiWord P0_self, FiWord P1_dom)
850	{
851	PFmt5 T3, T4, T5, T7;
852	FiWord T0, T1, T2, T6;
853	FiEnv e3, e2;
854	PFmt13 l3;
855	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
856	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
857	l3 = (PFmt13) fiEnvLevel(e3)((FiEnv) (e3)->level);
858	fiARRNEW_Word(T0, FiWord, 0L)((T0) = (FiWord) fiArrNew_Word(0L));
859	fiARRNEW_Word(T1, FiWord, 0L)((T1) = (FiWord) fiArrNew_Word(0L));
860	fiARRNEW_Word(T2, FiWord, 0L)((T2) = (FiWord) fiArrNew_Word(0L));
861	fiARRNEW_Word(T6, FiWord, 4L)((T6) = (FiWord) fiArrNew_Word(4L));
862	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
863	T3->X0_size = 0L;
864	T3->X1_nsize = 0L;
865	T3->X2_values = (FiWord) T0;
866	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
867	T4->X0_size = 0L;
868	T4->X1_nsize = 0L;
869	T4->X2_values = (FiWord) T1;
870	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
871	T5->X0_size = 0L;
872	T5->X1_nsize = 0L;
873	T5->X2_values = (FiWord) T2;
874	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));
875	T6[0L] = l3->X4_Logic;
876	T6[1L] = l3->X3_OrderedFinite;
877	T6[2L] = l3->X2_IntegerNumberSystem;
878	T6[3L] = l3->X5_Steppable;
879	T7 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
880	T7->X0_size = 4L;
881	T7->X1_nsize = 4L;
882	T7->X2_values = (FiWord) T6;
883	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 ));
884	return ;
885	}
886
887	static struct _FiProg tmp3_sinteger = {
888	(FiFun) CF3_sinteger,
889	0L,
890	0L,
891	0L,
892	0L
893	};
894
895
896	static FiSInt
897	CF4_toJava(FiEnv e1, FiWord P0_i)
898	{
899	return (FiSInt) P0_i;
900	}
901
902	static struct _FiProg tmp4_toJava = {
903	(FiFun) CF4_toJava,
904	0L,
905	0L,
906	0L,
907	0L
908	};
909
910
911	static FiWord
912	CF5_fromJava(FiEnv e1, FiSInt P0_i)
913	{
914	return (FiWord) P0_i;
915	}
916
917	static struct _FiProg tmp5_fromJava = {
918	(FiFun) CF5_fromJava,
919	0L,
920	0L,
921	0L,
922	0L
923	};
924
925
926	static FiWord
927	CF6_integer(FiEnv e1, FiWord P0_l)
928	{
929	FiSInt T0;
930	fiARR_TO_SINT(T0, FiSInt, (FiPtr) P0_l)((T0) = (FiSInt) fiArrToSInt((FiArr)(FiPtr) P0_l));
931	return (FiWord) T0;
932	}
933
934	static struct _FiProg tmp6_integer = {
935	(FiFun) CF6_integer,
936	0L,
937	0L,
938	0L,
939	0L
940	};
941
942
943	static FiWord
944	CF7_zero_QMARK_(FiEnv e1, FiWord P0_i)
945	{
946	return (FiWord) ((FiSInt) P0_i == 0);
947	}
948
949	static struct _FiProg tmp7_zero_QMARK_ = {
950	(FiFun) CF7_zero_QMARK_,
951	0L,
952	0L,
953	0L,
954	0L
955	};
956
957
958	static FiWord
959	CF8_negative_QMARK_(FiEnv e1, FiWord P0_i)
960	{
961	return (FiWord) ((FiSInt) P0_i < 0);
962	}
963
964	static struct _FiProg tmp8_negative_QMARK_ = {
965	(FiFun) CF8_negative_QMARK_,
966	0L,
967	0L,
968	0L,
969	0L
970	};
971
972
973	static FiWord
974	CF9_positive_QMARK_(FiEnv e1, FiWord P0_i)
975	{
976	return (FiWord) ((FiSInt) P0_i > 0);
977	}
978
979	static struct _FiProg tmp9_positive_QMARK_ = {
980	(FiFun) CF9_positive_QMARK_,
981	0L,
982	0L,
983	0L,
984	0L
985	};
986
987
988	static FiWord
989	CF10_even_QMARK_(FiEnv e1, FiWord P0_i)
990	{
991	return (FiWord) ((FiSInt) P0_i % 2L == 0L);
992	}
993
994	static struct _FiProg tmp10_even_QMARK_ = {
995	(FiFun) CF10_even_QMARK_,
996	0L,
997	0L,
998	0L,
999	0L
1000	};
1001
1002
1003	static FiWord
1004	CF11_odd_QMARK_(FiEnv e1, FiWord P0_i)
1005	{
1006	return (FiWord) ((FiSInt) P0_i % 2L != 0L);
1007	}
1008
1009	static struct _FiProg tmp11_odd_QMARK_ = {
1010	(FiFun) CF11_odd_QMARK_,
1011	0L,
1012	0L,
1013	0L,
1014	0L
1015	};
1016
1017
1018	static FiWord
1019	CF12_single_QMARK_(FiEnv e1, FiWord P0_i)
1020	{
1021	return (FiWord) 1L;
1022	}
1023
1024	static struct _FiProg tmp12_single_QMARK_ = {
1025	(FiFun) CF12_single_QMARK_,
1026	0L,
1027	0L,
1028	0L,
1029	0L
1030	};
1031
1032
1033	static FiWord
1034	CF13__EQ_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1035	{
1036	return (FiWord) ((FiSInt) P0_i == (FiSInt) P1_j);
1037	}
1038
1039	static struct _FiProg tmp13__EQ_ = {
1040	(FiFun) CF13__EQ_,
1041	0L,
1042	0L,
1043	0L,
1044	0L
1045	};
1046
1047
1048	static FiWord
1049	CF14__TILDE__EQ_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1050	{
1051	return (FiWord) ((FiSInt) P0_i != (FiSInt) P1_j);
1052	}
1053
1054	static struct _FiProg tmp14__TILDE__EQ_ = {
1055	(FiFun) CF14__TILDE__EQ_,
1056	0L,
1057	0L,
1058	0L,
1059	0L
1060	};
1061
1062
1063	static FiWord
1064	CF15__LT_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1065	{
1066	return (FiWord) ((FiSInt) P0_i < (FiSInt) P1_j);
1067	}
1068
1069	static struct _FiProg tmp15__LT_ = {
1070	(FiFun) CF15__LT_,
1071	0L,
1072	0L,
1073	0L,
1074	0L
1075	};
1076
1077
1078	static FiWord
1079	CF16__GT_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1080	{
1081	return (FiWord) ((FiSInt) P1_j < (FiSInt) P0_i);
1082	}
1083
1084	static struct _FiProg tmp16__GT_ = {
1085	(FiFun) CF16__GT_,
1086	0L,
1087	0L,
1088	0L,
1089	0L
1090	};
1091
1092
1093	static FiWord
1094	CF17__LT__EQ_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1095	{
1096	return (FiWord) ((FiSInt) P0_i <= (FiSInt) P1_j);
1097	}
1098
1099	static struct _FiProg tmp17__LT__EQ_ = {
1100	(FiFun) CF17__LT__EQ_,
1101	0L,
1102	0L,
1103	0L,
1104	0L
1105	};
1106
1107
1108	static FiWord
1109	CF18__GT__EQ_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1110	{
1111	return (FiWord) ((FiSInt) P1_j <= (FiSInt) P0_i);
1112	}
1113
1114	static struct _FiProg tmp18__GT__EQ_ = {
1115	(FiFun) CF18__GT__EQ_,
1116	0L,
1117	0L,
1118	0L,
1119	0L
1120	};
1121
1122
1123	static FiWord
1124	CF19_prev(FiEnv e1, FiWord P0_i)
1125	{
1126	return (FiWord) ((FiSInt) P0_i - 1L);
1127	}
1128
1129	static struct _FiProg tmp19_prev = {
1130	(FiFun) CF19_prev,
1131	0L,
1132	0L,
1133	0L,
1134	0L
1135	};
1136
1137
1138	static FiWord
1139	CF20_next(FiEnv e1, FiWord P0_i)
1140	{
1141	return (FiWord) ((FiSInt) P0_i + 1L);
1142	}
1143
1144	static struct _FiProg tmp20_next = {
1145	(FiFun) CF20_next,
1146	0L,
1147	0L,
1148	0L,
1149	0L
1150	};
1151
1152
1153	static FiWord
1154	CF21__PLUS_(FiEnv e1, FiWord P0_i)
1155	{
1156	return P0_i;
1157	}
1158
1159	static struct _FiProg tmp21__PLUS_ = {
1160	(FiFun) CF21__PLUS_,
1161	0L,
1162	0L,
1163	0L,
1164	0L
1165	};
1166
1167
1168	static FiWord
1169	CF22__MINUS_(FiEnv e1, FiWord P0_i)
1170	{
1171	return (FiWord) -(FiSInt) P0_i;
1172	}
1173
1174	static struct _FiProg tmp22__MINUS_ = {
1175	(FiFun) CF22__MINUS_,
1176	0L,
1177	0L,
1178	0L,
1179	0L
1180	};
1181
1182
1183	static FiWord
1184	CF23__PLUS_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1185	{
1186	return (FiWord) ((FiSInt) P0_i + (FiSInt) P1_j);
1187	}
1188
1189	static struct _FiProg tmp23__PLUS_ = {
1190	(FiFun) CF23__PLUS_,
1191	0L,
1192	0L,
1193	0L,
1194	0L
1195	};
1196
1197
1198	static FiWord
1199	CF24__MINUS_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1200	{
1201	return (FiWord) ((FiSInt) P0_i - (FiSInt) P1_j);
1202	}
1203
1204	static struct _FiProg tmp24__MINUS_ = {
1205	(FiFun) CF24__MINUS_,
1206	0L,
1207	0L,
1208	0L,
1209	0L
1210	};
1211
1212
1213	static FiWord
1214	CF25__STAR_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1215	{
1216	return (FiWord) ((FiSInt) P0_i * (FiSInt) P1_j);
1217	}
1218
1219	static struct _FiProg tmp25__STAR_ = {
1220	(FiFun) CF25__STAR_,
1221	0L,
1222	0L,
1223	0L,
1224	0L
1225	};
1226
1227
1228	static FiWord
1229	CF26_coerce(FiEnv e1, FiWord P0_i)
1230	{
1231	return P0_i;
1232	}
1233
1234	static struct _FiProg tmp26_coerce = {
1235	(FiFun) CF26_coerce,
1236	0L,
1237	0L,
1238	0L,
1239	0L
1240	};
1241
1242
1243	static FiWord
1244	CF27_retract(FiEnv e1, FiWord P0_i)
1245	{
1246	return P0_i;
1247	}
1248
1249	static struct _FiProg tmp27_retract = {
1250	(FiFun) CF27_retract,
1251	0L,
1252	0L,
1253	0L,
1254	0L
1255	};
1256
1257
1258	static FiWord
1259	CF28__HAT_(FiEnv e1, FiWord P0_x, FiWord P1_n)
1260	{
1261	FiBool T8;
1262	FiSInt T0, T1, T2, T6, T7;
1263	FiWord T3, T4, T5;
1264	T6 = (FiSInt) P0_x;
1265	fiBINT_TO_SINT(T7, FiSInt, (FiBInt) P1_n)((T7) = (FiSInt) fiBIntToSInt((FiBInt) P1_n));
1266	if (T7 == 0) goto L0;
1267	if (T7 == 1L) goto L2;
1268	if (T7 == 2L) goto L4;
1269	T2 = 1L;
1270	T1 = 0L;
1271	fiSINT_LENGTH(T0, FiSInt, T7)((T0) = (FiSInt) fiSIntLength(T7));
1272	L6: if (T1 < T0) goto L14;
1273	T5 = (FiWord) T2;
1274	L5: T4 = T5;
1275	L3: T3 = T4;
1276	L1: return T3;
1277	L14: fiSINT_BIT(T8, FiBool, T7, T1)((T8) = (FiBool) (!!((T7) & (1L << (T1)))));
1278	if (T8) goto L8;
1279	L9: T6 = T6 * T6;
1280	T1 = T1 + 1L;
1281	goto L6;
1282	L8: T2 = T2 * T6;
1283	goto L9;
1284	L4: T5 = (FiWord) ((FiSInt) P0_x * (FiSInt) P0_x);
1285	goto L5;
1286	L2: T4 = P0_x;
1287	goto L3;
1288	L0: T3 = (FiWord) 1L;
1289	goto L1;
1290	}
1291
1292	static struct _FiProg tmp28__HAT_ = {
1293	(FiFun) CF28__HAT_,
1294	0L,
1295	0L,
1296	0L,
1297	0L
1298	};
1299
1300
1301	static FiWord
1302	CF29_coerce(FiEnv e1, FiWord P0_i)
1303	{
1304	FiSInt T0;
1305	fiBINT_TO_SINT(T0, FiSInt, (FiBInt) P0_i)((T0) = (FiSInt) fiBIntToSInt((FiBInt) P0_i));
1306	return (FiWord) T0;
1307	}
1308
1309	static struct _FiProg tmp29_coerce = {
1310	(FiFun) CF29_coerce,
1311	0L,
1312	0L,
1313	0L,
1314	0L
1315	};
1316
1317
1318	static FiWord
1319	CF30_coerce(FiEnv e1, FiSInt P0_i)
1320	{
1321	return (FiWord) P0_i;
1322	}
1323
1324	static struct _FiProg tmp30_coerce = {
1325	(FiFun) CF30_coerce,
1326	0L,
1327	0L,
1328	0L,
1329	0L
1330	};
1331
1332
1333	static FiWord
1334	CF31_quo(FiEnv e1, FiWord P0_i, FiWord P1_j)
1335	{
1336	FiSInt T0;
1337	fiSINT_QUO(T0, FiSInt, (FiSInt) P0_i, (FiSInt) P1_j)((T0) = (FiSInt) (((FiSInt) P0_i)/((FiSInt) P1_j)));
1338	return (FiWord) T0;
1339	}
1340
1341	static struct _FiProg tmp31_quo = {
1342	(FiFun) CF31_quo,
1343	0L,
1344	0L,
1345	0L,
1346	0L
1347	};
1348
1349
1350	static FiWord
1351	CF32_rem(FiEnv e1, FiWord P0_i, FiWord P1_j)
1352	{
1353	FiSInt T0;
1354	fiSINT_REM(T0, FiSInt, (FiSInt) P0_i, (FiSInt) P1_j)((T0) = (FiSInt) (((FiSInt) P0_i)%((FiSInt) P1_j)));
1355	return (FiWord) T0;
1356	}
1357
1358	static struct _FiProg tmp32_rem = {
1359	(FiFun) CF32_rem,
1360	0L,
1361	0L,
1362	0L,
1363	0L
1364	};
1365
1366
1367	static FiWord
1368	CF33_gcd(FiEnv e1, FiWord P0_i, FiWord P1_j)
1369	{
1370	FiSInt T0;
1371	fiSINT_GCD(T0, FiSInt, (FiSInt) P0_i, (FiSInt) P1_j)((T0) = (FiSInt) fiSIntGcd((FiSInt) P0_i,(FiSInt) P1_j));
1372	return (FiWord) T0;
1373	}
1374
1375	static struct _FiProg tmp33_gcd = {
1376	(FiFun) CF33_gcd,
1377	0L,
1378	0L,
1379	0L,
1380	0L
1381	};
1382
1383
1384	static FiWord
1385	CF34_length(FiEnv e1, FiWord P0_i)
1386	{
1387	FiSInt T0;
1388	fiSINT_LENGTH(T0, FiSInt, (FiSInt) P0_i)((T0) = (FiSInt) fiSIntLength((FiSInt) P0_i));
1389	return (FiWord) T0;
1390	}
1391
1392	static struct _FiProg tmp34_length = {
1393	(FiFun) CF34_length,
1394	0L,
1395	0L,
1396	0L,
1397	0L
1398	};
1399
1400
1401	static FiWord
1402	CF35_shift(FiEnv e1, FiWord P0_i, FiWord P1_n)
1403	{
1404	FiWord T0, T1;
1405	if ((FiSInt) P1_n > 0) goto L0;
1406	if ((FiSInt) P1_n < 0L) goto L2;
1407	T1 = P0_i;
1408	L3: T0 = T1;
1409	L1: return T0;
1410	L2: T1 = (FiWord) ((FiSInt) P0_i >> -(FiSInt) P1_n);
1411	goto L3;
1412	L0: T0 = (FiWord) ((FiSInt) P0_i << (FiSInt) P1_n);
1413	goto L1;
1414	}
1415
1416	static struct _FiProg tmp35_shift = {
1417	(FiFun) CF35_shift,
1418	0L,
1419	0L,
1420	0L,
1421	0L
1422	};
1423
1424
1425	static FiWord
1426	CF36_bit(FiEnv e1, FiWord P0_i, FiWord P1_n)
1427	{
1428	FiBool T0;
1429	fiSINT_BIT(T0, FiBool, (FiSInt) P0_i, (FiSInt) P1_n)((T0) = (FiBool) (!!(((FiSInt) P0_i) & (1L << ((FiSInt ) P1_n)))));
1430	return (FiWord) T0;
1431	}
1432
1433	static struct _FiProg tmp36_bit = {
1434	(FiFun) CF36_bit,
1435	0L,
1436	0L,
1437	0L,
1438	0L
1439	};
1440
1441
1442	static FiWord
1443	CF37__TILDE_(FiEnv e1, FiWord P0_i)
1444	{
1445	return (FiWord) ~(FiSInt) P0_i;
1446	}
1447
1448	static struct _FiProg tmp37__TILDE_ = {
1449	(FiFun) CF37__TILDE_,
1450	0L,
1451	0L,
1452	0L,
1453	0L
1454	};
1455
1456
1457	static FiWord
1458	CF38__SLASH__BSLSH_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1459	{
1460	return (FiWord) ((FiSInt) P0_i & (FiSInt) P1_j);
1461	}
1462
1463	static struct _FiProg tmp38__SLASH__BSLSH_ = {
1464	(FiFun) CF38__SLASH__BSLSH_,
1465	0L,
1466	0L,
1467	0L,
1468	0L
1469	};
1470
1471
1472	static FiWord
1473	CF39__BSLSH__SLASH_(FiEnv e1, FiWord P0_i, FiWord P1_j)
1474	{
1475	return (FiWord) ((FiSInt) P0_i \| (FiSInt) P1_j);
1476	}
1477
1478	static struct _FiProg tmp39__BSLSH__SLASH_ = {
1479	(FiFun) CF39__BSLSH__SLASH_,
1480	0L,
1481	0L,
1482	0L,
1483	0L
1484	};
1485
1486
1487	static FiWord
1488	CF40_xor(FiEnv e1, FiWord P0_i, FiWord P1_j)
1489	{
1490	return (FiWord) ((FiSInt) P0_i ^ (FiSInt) P1_j);
1491	}
1492
1493	static struct _FiProg tmp40_xor = {
1494	(FiFun) CF40_xor,
1495	0L,
1496	0L,
1497	0L,
1498	0L
1499	};
1500
1501
1502	static FiWord
1503	CF41_mod(FiEnv e1, FiWord P0_i, FiWord P1_n)
1504	{
1505	FiSInt T0_k;
1506	fiSINT_REM(T0_k, FiSInt, (FiSInt) P0_i, (FiSInt) P1_n)((T0_k) = (FiSInt) (((FiSInt) P0_i)%((FiSInt) P1_n)));
1507	if (T0_k < 0L) goto L0;
1508	L1: return (FiWord) T0_k;
1509	L0: T0_k = T0_k + (FiSInt) P1_n;
1510	goto L1;
1511	}
1512
1513	static struct _FiProg tmp41_mod = {
1514	(FiFun) CF41_mod,
1515	0L,
1516	0L,
1517	0L,
1518	0L
1519	};
1520
1521
1522	static FiWord
1523	CF42_mod_PLUS_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n)
1524	{
1525	FiSInt T0_k;
1526	P0_i = (FiWord) ((FiSInt) P0_i - (FiSInt) P2_n);
1527	T0_k = (FiSInt) P0_i + (FiSInt) P1_j;
1528	if (T0_k < 0L) goto L0;
1529	L1: return (FiWord) T0_k;
1530	L0: T0_k = T0_k + (FiSInt) P2_n;
1531	goto L1;
1532	}
1533
1534	static struct _FiProg tmp42_mod_PLUS_ = {
1535	(FiFun) CF42_mod_PLUS_,
1536	0L,
1537	0L,
1538	0L,
1539	0L
1540	};
1541
1542
1543	static FiWord
1544	CF43_mod_MINUS_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n)
1545	{
1546	FiSInt T0_k;
1547	T0_k = (FiSInt) P0_i - (FiSInt) P1_j;
1548	if (T0_k < 0L) goto L0;
1549	L1: return (FiWord) T0_k;
1550	L0: T0_k = T0_k + (FiSInt) P2_n;
1551	goto L1;
1552	}
1553
1554	static struct _FiProg tmp43_mod_MINUS_ = {
1555	(FiFun) CF43_mod_MINUS_,
1556	0L,
1557	0L,
1558	0L,
1559	0L
1560	};
1561
1562
1563	static FiWord
1564	CF44_mod_STAR_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n)
1565	{
1566	FiSInt T8;
1567	FiWord T0, T1, T2, T3, T4, T5, T6, T7;
1568	if ((FiSInt) P0_i == 1L) goto L0;
1569	if ((FiSInt) P1_j == 1L) goto L2;
1570	if ((FiSInt) P2_n < 32767L) goto L5;
1571	if ((FiSInt) P0_i < 32767L) goto L8;
1572	L9: fiWordTimesDouble((FiWord) P0_i, (FiWord) P1_j, &T3, &T4);
1573	fiWordDivideDouble((FiWord) T3, (FiWord) T4, (FiWord) P2_n, &T5, &T6, &
1574	T7);
1575	T2 = T7;
1576	L4: T1 = T2;
1577	L3: T0 = T1;
1578	L1: return T0;
1579	L8: if ((FiSInt) P1_j < 32767L) goto L5;
1580	goto L9;
1581	L5: fiSINT_REM(T8, FiSInt, (FiSInt) P0_i * (FiSInt) P1_j, (FiSInt) P2_n)((T8) = (FiSInt) (((FiSInt) P0_i * (FiSInt) P1_j)%((FiSInt) P2_n )));
1582	if (T8 < 0L) goto L6;
1583	L7: T2 = (FiWord) T8;
1584	goto L4;
1585	L6: T8 = T8 + (FiSInt) P2_n;
1586	goto L7;
1587	L2: T1 = P0_i;
1588	goto L3;
1589	L0: T0 = P1_j;
1590	goto L1;
1591	}
1592
1593	static struct _FiProg tmp44_mod_STAR_ = {
1594	(FiFun) CF44_mod_STAR_,
1595	0L,
1596	0L,
1597	0L,
1598	0L
1599	};
1600
1601
1602	static FiWord
1603	CF45_mod_SLASH_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n)
1604	{
1605	FiSInt T0_q, T1_d1, T2_c1, T3_d0, T4_c0, T5, T6, T7, T8, T17;
1606	FiWord T9, T10, T11, T12, T13, T14, T15, T16;
1607	T4_c0 = (FiSInt) P1_j;
1608	T3_d0 = (FiSInt) P2_n;
1609	T2_c1 = 1L;
1610	T1_d1 = 0L;
1611	L0: if (T3_d0 == 0) goto L1;
1612	fiSINT_QUO(T0_q, FiSInt, T4_c0, T3_d0)((T0_q) = (FiSInt) ((T4_c0)/(T3_d0)));
1613	T8 = T0_q * T3_d0;
1614	T5 = T4_c0 - T8;
1615	T4_c0 = T3_d0;
1616	T3_d0 = T5;
1617	T7 = T0_q * T1_d1;
1618	T6 = T2_c1 - T7;
1619	T2_c1 = T1_d1;
1620	T1_d1 = T6;
1621	goto L0;
1622	L1: if (T4_c0 != 1L) goto L2;
1623	if (T2_c1 < 0L) goto L3;
1624	L4: if ((FiSInt) P0_i == 1L) goto L5;
1625	if (T2_c1 == 1L) goto L7;
1626	if ((FiSInt) P2_n < 32767L) goto L10;
1627	if ((FiSInt) P0_i < 32767L) goto L13;
1628	L14: fiWordTimesDouble((FiWord) P0_i, (FiWord) T2_c1, &T12, &T13);
1629	fiWordDivideDouble((FiWord) T12, (FiWord) T13, (FiWord) P2_n, &T14, &
1630	T15, &T16);
1631	T11 = T16;
1632	L9: T10 = T11;
1633	L8: T9 = T10;
1634	L6: return T9;
1635	L13: if (T2_c1 < 32767L) goto L10;
1636	goto L14;
1637	L10: fiSINT_REM(T17, FiSInt, (FiSInt) P0_i * T2_c1, (FiSInt) P2_n)((T17) = (FiSInt) (((FiSInt) P0_i * T2_c1)%((FiSInt) P2_n)));
1638	if (T17 < 0L) goto L11;
1639	L12: T11 = (FiWord) T17;
1640	goto L9;
1641	L11: T17 = T17 + (FiSInt) P2_n;
1642	goto L12;
1643	L7: T10 = P0_i;
1644	goto L8;
1645	L5: T9 = (FiWord) T2_c1;
1646	goto L6;
1647	L3: T2_c1 = T2_c1 + (FiSInt) P2_n;
1648	goto L4;
1649	L2: fputs((FiWord) "inverse does not exist", stdoutFile());
1650	fputc((FiWord) 10L, stdoutFile());
1651	fiHalt((FiSInt) 0L);
1652	return (FiWord) 0L;
1653	}
1654
1655	static struct _FiProg tmp45_mod_SLASH_ = {
1656	(FiFun) CF45_mod_SLASH_,
1657	0L,
1658	0L,
1659	0L,
1660	0L
1661	};
1662
1663
1664	static FiWord
1665	CF46_mod_HAT_(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord P2_n)
1666	{
1667	FiSInt T11, T12, T20, T21, T22, T23, T24, T25, T26, T27, T28, T29, T33;
1668	FiBool T30, T31, T32;
1669	FiWord T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T13, T14, T15, T16, T17, T18, T19;
1670	PFmt11 l1;
1671	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
	Value stored to 'l1' is never read
1672	if ((FiSInt) P1_j < 0L) goto L0;
1673	if ((FiSInt) P1_j == 0) goto L2;
1674	if ((FiSInt) P1_j % 2L != 0L) goto L4;
1675	T30 = (FiSInt) P0_i == 1L;
1676	if (T30) goto L14;
1677	if ((FiSInt) P2_n < 32767L) goto L17;
1678	T31 = (FiSInt) P0_i < 32767L;
1679	T32 = !T31;
1680	if (T32) goto L18;
1681	L17: fiSINT_REM(T20, FiSInt, (FiSInt) P0_i * (FiSInt) P0_i, (FiSInt) P2_n)((T20) = (FiSInt) (((FiSInt) P0_i * (FiSInt) P0_i)%((FiSInt) P2_n )));
1682	if (T20 < 0L) goto L19;
1683	L20: T14 = (FiWord) T20;
1684	L16: T13 = T14;
1685	L15: fiSINT_QUO(T33, FiSInt, (FiSInt) P1_j, 2L)((T33) = (FiSInt) (((FiSInt) P1_j)/(2L)));
1686	T2 = CF46_mod_HAT_(e1, (FiWord) T13, (FiWord) T33, (FiWord) P2_n);
1687	L5: T1 = T2;
1688	L3: T0 = T1;
1689	L1: return T0;
1690	L19: T20 = T20 + (FiSInt) P2_n;
1691	goto L20;
1692	L18: fiWordTimesDouble((FiWord) P0_i, (FiWord) P0_i, &T15, &T16);
1693	fiWordDivideDouble((FiWord) T15, (FiWord) T16, (FiWord) P2_n, &T17, &
1694	T18, &T19);
1695	T14 = T19;
1696	goto L16;
1697	L14: T13 = P0_i;
1698	goto L15;
1699	L4: T12 = (FiSInt) CF46_mod_HAT_(e1, (FiWord) P0_i, (FiWord) ((FiSInt)
1700	P1_j - 1L), (FiWord) P2_n);
1701	if ((FiSInt) P0_i == 1L) goto L6;
1702	if (T12 == 1L) goto L8;
1703	if ((FiSInt) P2_n < 32767L) goto L11;
1704	if ((FiSInt) P0_i < 32767L) goto L26;
1705	L27: fiWordTimesDouble((FiWord) P0_i, (FiWord) T12, &T6, &T7);
1706	fiWordDivideDouble((FiWord) T6, (FiWord) T7, (FiWord) P2_n, &T8, &T9, &
1707	T10);
1708	T5 = T10;
1709	L10: T4 = T5;
1710	L9: T3 = T4;
1711	L7: T2 = T3;
1712	goto L5;
1713	L26: if (T12 < 32767L) goto L11;
1714	goto L27;
1715	L11: fiSINT_REM(T11, FiSInt, (FiSInt) P0_i * T12, (FiSInt) P2_n)((T11) = (FiSInt) (((FiSInt) P0_i * T12)%((FiSInt) P2_n)));
1716	if (T11 < 0L) goto L12;
1717	L13: T5 = (FiWord) T11;
1718	goto L10;
1719	L12: T11 = T11 + (FiSInt) P2_n;
1720	goto L13;
1721	L8: T4 = P0_i;
1722	goto L9;
1723	L6: T3 = (FiWord) T12;
1724	goto L7;
1725	L2: T1 = (FiWord) 1L;
1726	goto L3;
1727	L0: T25 = (FiSInt) P0_i;
1728	T24 = (FiSInt) P2_n;
1729	T23 = 1L;
1730	T22 = 0L;
1731	L21: if (T24 == 0) goto L22;
1732	fiSINT_QUO(T21, FiSInt, T25, T24)((T21) = (FiSInt) ((T25)/(T24)));
1733	T29 = T21 * T24;
1734	T26 = T25 - T29;
1735	T25 = T24;
1736	T24 = T26;
1737	T28 = T21 * T22;
1738	T27 = T23 - T28;
1739	T23 = T22;
1740	T22 = T27;
1741	goto L21;
1742	L22: if (T25 != 1L) goto L23;
1743	if (T23 < 0L) goto L24;
1744	L25: T0 = CF46_mod_HAT_(e1, (FiWord) T23, (FiWord) -(FiSInt) P1_j, (
1745	FiWord) P2_n);
1746	goto L1;
1747	L24: T23 = T23 + (FiSInt) P2_n;
1748	goto L25;
1749	L23: fputs((FiWord) "inverse does not exist", stdoutFile());
1750	fputc((FiWord) 10L, stdoutFile());
1751	fiHalt((FiSInt) 0L);
1752	return (FiWord) 0L;
1753	}
1754
1755	static struct _FiProg tmp46_mod_HAT_ = {
1756	(FiFun) CF46_mod_HAT_,
1757	0L,
1758	0L,
1759	0L,
1760	0L
1761	};
1762
1763
1764	static void
1765	CF47_divide(FiEnv e1, FiWord P0_i, FiWord P1_j, FiWord* R0, FiWord* R1)
1766	{
1767	FiSInt T0, T1;
1768	fiSIntDivide((FiSInt) P0_i, (FiSInt) P1_j, &T0, &T1);
1769	*R0 = (FiWord) T0;
1770	*R1 = (FiWord) T1;
1771	return ;
1772	}
1773
1774	static struct _FiProg tmp47_divide = {
1775	(FiFun) CF47_divide,
1776	0L,
1777	0L,
1778	0L,
1779	0L
1780	};
1781
1782
1783	static FiWord
1784	CF48__HAT_(FiEnv e1, FiWord P0_x, FiWord P1_n)
1785	{
1786	FiBool T6;
1787	FiWord T3, T4, T5;
1788	FiSInt T0_l, T1_i, T2_y;
1789	if ((FiSInt) P1_n == 0) goto L0;
1790	if ((FiSInt) P1_n == 1L) goto L2;
1791	if ((FiSInt) P1_n == 2L) goto L4;
1792	T2_y = 1L;
1793	T1_i = 0L;
1794	fiSINT_LENGTH(T0_l, FiSInt, (FiSInt) P1_n)((T0_l) = (FiSInt) fiSIntLength((FiSInt) P1_n));
1795	L6: if (T1_i < T0_l) goto L14;
1796	T5 = (FiWord) T2_y;
1797	L5: T4 = T5;
1798	L3: T3 = T4;
1799	L1: return T3;
1800	L14: fiSINT_BIT(T6, FiBool, (FiSInt) P1_n, T1_i)((T6) = (FiBool) (!!(((FiSInt) P1_n) & (1L << (T1_i )))));
1801	if (T6) goto L8;
1802	L9: P0_x = (FiWord) ((FiSInt) P0_x * (FiSInt) P0_x);
1803	T1_i = T1_i + 1L;
1804	goto L6;
1805	L8: T2_y = T2_y * (FiSInt) P0_x;
1806	goto L9;
1807	L4: T5 = (FiWord) ((FiSInt) P0_x * (FiSInt) P0_x);
1808	goto L5;
1809	L2: T4 = P0_x;
1810	goto L3;
1811	L0: T3 = (FiWord) 1L;
1812	goto L1;
1813	}
1814
1815	static struct _FiProg tmp48__HAT_ = {
1816	(FiFun) CF48__HAT_,
1817	0L,
1818	0L,
1819	0L,
1820	0L
1821	};
1822
1823
1824	static FiWord
1825	CF49_stepsBetween(FiEnv e1, FiWord P0_x, FiWord P1_y, FiWord P2_step)
1826	{
1827	FiSInt T0;
1828	fiSINT_QUO(T0, FiSInt, (FiSInt) P1_y - (FiSInt) P0_x, (FiSInt)((T0) = (FiSInt) (((FiSInt) P1_y - (FiSInt) P0_x)/((FiSInt) P2_step )))
1829	P2_step)((T0) = (FiSInt) (((FiSInt) P1_y - (FiSInt) P0_x)/((FiSInt) P2_step )));
1830	return (FiWord) (T0 + 1L);
1831	}
1832
1833	static struct _FiProg tmp49_stepsBetween = {
1834	(FiFun) CF49_stepsBetween,
1835	0L,
1836	0L,
1837	0L,
1838	0L
1839	};
1840
1841
1842	static FiWord
1843	CF50__LT__LT_(FiEnv e1, FiWord P0_w, FiWord P1_i)
1844	{
1845	FiWord T3;
1846	FiClos T0, T1, T2;
1847	T3 = formatSInt((FiSInt) P1_i);
1848	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_w)->prog->fun)
1849	FiClos) P0_w)((( FiClos) P0_w)->prog->fun))(((FiClos) P0_w)->env, &T0, &T1, &T2);
1850	fiCCall3(FiWord, T1, T3, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,T3,(FiWord ) 1L,(FiWord) 0L));
1851	return P0_w;
1852	}
1853
1854	static struct _FiProg tmp50__LT__LT_ = {
1855	(FiFun) CF50__LT__LT_,
1856	0L,
1857	0L,
1858	0L,
1859	0L
1860	};
1861
1862
1863	static FiWord
1864	CF51_max(FiEnv e1, FiWord P0_x, FiWord P1_y)
1865	{
1866	FiWord T0;
1867	if ((FiSInt) P1_y < (FiSInt) P0_x) goto L0;
1868	T0 = P1_y;
1869	L1: return T0;
1870	L0: T0 = P0_x;
1871	goto L1;
1872	}
1873
1874	static struct _FiProg tmp51_max = {
1875	(FiFun) CF51_max,
1876	0L,
1877	0L,
1878	0L,
1879	0L
1880	};
1881
1882
1883	static FiWord
1884	CF52_min(FiEnv e1, FiWord P0_x, FiWord P1_y)
1885	{
1886	FiWord T0;
1887	if ((FiSInt) P0_x < (FiSInt) P1_y) goto L0;
1888	T0 = P1_y;
1889	L1: return T0;
1890	L0: T0 = P0_x;
1891	goto L1;
1892	}
1893
1894	static struct _FiProg tmp52_min = {
1895	(FiFun) CF52_min,
1896	0L,
1897	0L,
1898	0L,
1899	0L
1900	};
1901
1902
1903	static FiWord
1904	CF53_hash(FiEnv e1, FiWord P0_x)
1905	{
1906	return P0_x;
1907	}
1908
1909	static struct _FiProg tmp53_hash = {
1910	(FiFun) CF53_hash,
1911	0L,
1912	0L,
1913	0L,
1914	0L
1915	};
1916
1917
1918	static FiWord
1919	CF54_coerce(FiEnv e1, FiWord P0_x)
1920	{
1921	return formatSInt((FiSInt) P0_x);
1922	}
1923
1924	static struct _FiProg tmp54_coerce = {
1925	(FiFun) CF54_coerce,
1926	0L,
1927	0L,
1928	0L,
1929	0L
1930	};
1931
1932
1933	static FiClos
1934	CF55__LT__LT_(FiEnv e1, FiWord P0_x)
1935	{
1936	PFmt10 l0;
1937	FiEnv e0;
1938	l0 = fi0New(struct Fmt10 , CENSUS_EnvLevel)((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)));
1939	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
1940	l0->X0_x = P0_x;
1941	return fiClosMake(e0, C56__LT__LT_)fiClosMakeFun(e0, (FiProg) (C56__LT__LT_));
1942	}
1943
1944	static struct _FiProg tmp55__LT__LT_ = {
1945	(FiFun) CF55__LT__LT_,
1946	0L,
1947	0L,
1948	0L,
1949	0L
1950	};
1951
1952
1953	static FiWord
1954	CF56__LT__LT_(FiEnv e1, FiWord P0_p)
1955	{
1956	FiSInt T4;
1957	FiWord T3;
1958	FiClos T0, T1, T2;
1959	PFmt10 l1;
1960	l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
1961	T4 = (FiSInt) l1->X0_x;
1962	T3 = formatSInt(T4);
1963	((void()(FiEnv , FiClos , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
1964	FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);
1965	fiCCall3(FiWord, T1, T3, (FiWord) 1L, (FiWord) 0L)((((FiWord ()())(T1)->prog->fun))((T1)->env,T3,(FiWord ) 1L,(FiWord) 0L));
1966	return P0_p;
1967	}
1968
1969	static struct _FiProg tmp56__LT__LT_ = {
1970	(FiFun) CF56__LT__LT_,
1971	0L,
1972	0L,
1973	0L,
1974	0L
1975	};
1976
1977
1978	static FiWord
1979	CF57_case(FiEnv e1, FiWord P0_x, FiWord P1_y)
1980	{
1981	return (FiWord) ((FiSInt) P0_x == (FiSInt) P1_y);
1982	}
1983
1984	static struct _FiProg tmp57_case = {
1985	(FiFun) CF57_case,
1986	0L,
1987	0L,
1988	0L,
1989	0L
1990	};
1991
1992
1993	static FiWord
1994	CF58_abs(FiEnv e1, FiWord P0_x)
1995	{
1996	FiWord T0;
1997	if ((FiSInt) P0_x > 0) goto L0;
1998	T0 = (FiWord) -(FiSInt) P0_x;
1999	L1: return T0;
2000	L0: T0 = P0_x;
2001	goto L1;
2002	}
2003
2004	static struct _FiProg tmp58_abs = {
2005	(FiFun) CF58_abs,
2006	0L,
2007	0L,
2008	0L,
2009	0L
2010	};
2011
2012
2013	static FiWord
2014	CF59_sign(FiEnv e1, FiWord P0_x)
2015	{
2016	FiWord T0, T1;
2017	if ((FiSInt) P0_x > 0) goto L0;
2018	if ((FiSInt) P0_x < 0L) goto L2;
2019	T1 = (FiWord) 0L;
2020	L3: T0 = T1;
2021	L1: return T0;
2022	L2: T1 = (FiWord) -1L;
2023	goto L3;
2024	L0: T0 = (FiWord) 1L;
2025	goto L1;
2026	}
2027
2028	static struct _FiProg tmp59_sign = {
2029	(FiFun) CF59_sign,
2030	0L,
2031	0L,
2032	0L,
2033	0L
2034	};
2035
2036
2037	static FiWord
2038	CF60_stepsBetween(FiEnv e1, FiWord P0_x, FiWord P1_y)
2039	{
2040	FiSInt T0;
2041	fiSINT_QUO(T0, FiSInt, (FiSInt) P1_y - (FiSInt) P0_x, 1L)((T0) = (FiSInt) (((FiSInt) P1_y - (FiSInt) P0_x)/(1L)));
2042	return (FiWord) (T0 + 1L);
2043	}
2044
2045	static struct _FiProg tmp60_stepsBetween = {
2046	(FiFun) CF60_stepsBetween,
2047	0L,
2048	0L,
2049	0L,
2050	0L
2051	};
2052
2053
2054	static FiClos
2055	CF61_extend0(FiEnv e1, FiWord P0_domain)
2056	{
2057	PFmt5 T1;
2058	FiWord *T0;
2059	PFmt13 l1;
2060	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
2061	fiARRNEW_Word(T0, FiWord, 2L)((T0) = (FiWord) fiArrNew_Word(2L));
2062	T0[1L] = l1->X0_MachineInteger;
2063	T0[0L] = (FiWord) G_IZ7UK_sinteger__MachineInteg;
2064	T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
2065	T1->X0_size = 2L;
2066	T1->X1_nsize = 2L;
2067	T1->X2_values = (FiWord) T0;
2068	fiCCall2(FiWord, (pG_G3BWN_extendFill_BANG_), P0_domain, T1)((((FiWord ()())((pG_G3BWN_extendFill_BANG_))->prog-> fun))(((*pG_G3BWN_extendFill_BANG_))->env,P0_domain,T1));
2069	return (FiClos) fiNil((Ptr) 0);
2070	}
2071
2072	static struct _FiProg tmp61_extend0 = {
2073	(FiFun) CF61_extend0,
2074	0L,
2075	0L,
2076	0L,
2077	0L
2078	};
2079
2080
2081	static FiWord
2082	CF62_machine_MINUS_init(FiEnv e1, FiSInt P0_idx)
2083	{
2084	PFmt13 l1;
2085	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
2086	if (l1->X10) goto L0;
2087	l1->X10 = 1L;
2088	fiCCall0(void, (pG_JNB1W_machine))((((void ()())((pG_JNB1W_machine))->prog->fun))(((*pG_JNB1W_machine ))->env));
2089	L0: return (FiWord) (*pG_1B0E6_machine__Machine__915);
2090	}
2091
2092	static struct _FiProg tmp62_machine_MINUS_init = {
2093	(FiFun) CF62_machine_MINUS_init,
2094	0L,
2095	0L,
2096	0L,
2097	0L
2098	};
2099
2100
2101	static FiWord
2102	CF63_basic_MINUS_init(FiEnv e1, FiSInt P0_idx)
2103	{
2104	PFmt13 l1;
2105	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
2106	if (l1->X11) goto L0;
2107	l1->X11 = 1L;
2108	fiCCall0(void, (pG_NO017_basic))((((void ()())((pG_NO017_basic))->prog->fun))(((*pG_NO017_basic ))->env));
2109	L0: if (P0_idx != 4L) goto L1;
2110	return (FiWord) (*pG_8QOPO_basic__MachineInteger);
2111	L1: if (P0_idx != 3L) goto L2;
2112	return (FiWord) (*pG_SH2SP_basic__TextWriter__36);
2113	L2: if (P0_idx != 2L) goto L3;
2114	return (FiWord) (*pG_110A7_basic__error__0116679);
2115	L3: if (P0_idx != 1L) goto L4;
2116	return (FiWord) (*pG_U7T4R_basic__Integer__11769);
2117	L4: return (FiWord) (*pG_AEIW8_basic__String__641272);
2118	}
2119
2120	static struct _FiProg tmp63_basic_MINUS_init = {
2121	(FiFun) CF63_basic_MINUS_init,
2122	0L,
2123	0L,
2124	0L,
2125	0L
2126	};
2127
2128
2129	static FiWord
2130	CF64_segment_MINUS_init(FiEnv e1, FiSInt P0_idx)
2131	{
2132	PFmt13 l1;
2133	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
2134	if (l1->X12) goto L0;
2135	l1->X12 = 1L;
2136	fiCCall0(void, (pG_WVJG4_segment))((((void ()())((pG_WVJG4_segment))->prog->fun))(((*pG_WVJG4_segment ))->env));
2137	L0: return (FiWord) (*pG_YTG7I_segment__Steppable__0);
2138	}
2139
2140	static struct _FiProg tmp64_segment_MINUS_init = {
2141	(FiFun) CF64_segment_MINUS_init,
2142	0L,
2143	0L,
2144	0L,
2145	0L
2146	};
2147
2148
2149	static FiWord
2150	CF65_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx)
2151	{
2152	PFmt13 l1;
2153	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
2154	if (l1->X13) goto L0;
2155	l1->X13 = 1L;
2156	fiCCall0(void, (pG_H8TZ5_foamcat))((((void ()())((pG_H8TZ5_foamcat))->prog->fun))(((*pG_H8TZ5_foamcat ))->env));
2157	L0: if (P0_idx != 2L) goto L1;
2158	return (FiWord) (*pG_2AW24_foamcat__IntegerNumbe);
2159	L1: if (P0_idx != 1L) goto L2;
2160	return (FiWord) (*pG_JWK7S_foamcat__OrderedFinit);
2161	L2: return (FiWord) (*pG_OZCWT_foamcat__Logic__68840);
2162	}
2163
2164	static struct _FiProg tmp65_foamcat_MINUS_init = {
2165	(FiFun) CF65_foamcat_MINUS_init,
2166	0L,
2167	0L,
2168	0L,
2169	0L
2170	};
2171
2172	extern int
2173	INIT__0_sinteger()
2174	{
2175
2176	extern int INIT__0_rtexns();
2177	extern int INIT__0_foamcat();
2178	extern int INIT__0_segment();
2179	extern int INIT__0_basic();
2180	extern int INIT__0_machine();
2181	extern int INIT__0_runtime();
2182	static int initialized = 0;
2183	if (initialized)
2184	return 0L;
2185	else
2186	initialized = 1;
2187	C1_addLevel0 = &tmp1_addLevel0;
2188	C2_addLevel1 = &tmp2_addLevel1;
2189	C3_sinteger = &tmp3_sinteger;
2190	C4_toJava = &tmp4_toJava;
2191	C5_fromJava = &tmp5_fromJava;
2192	C6_integer = &tmp6_integer;
2193	C7_zero_QMARK_ = &tmp7_zero_QMARK_;
2194	C8_negative_QMARK_ = &tmp8_negative_QMARK_;
2195	C9_positive_QMARK_ = &tmp9_positive_QMARK_;
2196	C10_even_QMARK_ = &tmp10_even_QMARK_;
2197	C11_odd_QMARK_ = &tmp11_odd_QMARK_;
2198	C12_single_QMARK_ = &tmp12_single_QMARK_;
2199	C13__EQ_ = &tmp13__EQ_;
2200	C14__TILDE__EQ_ = &tmp14__TILDE__EQ_;
2201	C15__LT_ = &tmp15__LT_;
2202	C16__GT_ = &tmp16__GT_;
2203	C17__LT__EQ_ = &tmp17__LT__EQ_;
2204	C18__GT__EQ_ = &tmp18__GT__EQ_;
2205	C19_prev = &tmp19_prev;
2206	C20_next = &tmp20_next;
2207	C21__PLUS_ = &tmp21__PLUS_;
2208	C22__MINUS_ = &tmp22__MINUS_;
2209	C23__PLUS_ = &tmp23__PLUS_;
2210	C24__MINUS_ = &tmp24__MINUS_;
2211	C25__STAR_ = &tmp25__STAR_;
2212	C26_coerce = &tmp26_coerce;
2213	C27_retract = &tmp27_retract;
2214	C28__HAT_ = &tmp28__HAT_;
2215	C29_coerce = &tmp29_coerce;
2216	C30_coerce = &tmp30_coerce;
2217	C31_quo = &tmp31_quo;
2218	C32_rem = &tmp32_rem;
2219	C33_gcd = &tmp33_gcd;
2220	C34_length = &tmp34_length;
2221	C35_shift = &tmp35_shift;
2222	C36_bit = &tmp36_bit;
2223	C37__TILDE_ = &tmp37__TILDE_;
2224	C38__SLASH__BSLSH_ = &tmp38__SLASH__BSLSH_;
2225	C39__BSLSH__SLASH_ = &tmp39__BSLSH__SLASH_;
2226	C40_xor = &tmp40_xor;
2227	C41_mod = &tmp41_mod;
2228	C42_mod_PLUS_ = &tmp42_mod_PLUS_;
2229	C43_mod_MINUS_ = &tmp43_mod_MINUS_;
2230	C44_mod_STAR_ = &tmp44_mod_STAR_;
2231	C45_mod_SLASH_ = &tmp45_mod_SLASH_;
2232	C46_mod_HAT_ = &tmp46_mod_HAT_;
2233	C47_divide = &tmp47_divide;
2234	C48__HAT_ = &tmp48__HAT_;
2235	C49_stepsBetween = &tmp49_stepsBetween;
2236	C50__LT__LT_ = &tmp50__LT__LT_;
2237	C51_max = &tmp51_max;
2238	C52_min = &tmp52_min;
2239	C53_hash = &tmp53_hash;
2240	C54_coerce = &tmp54_coerce;
2241	C55__LT__LT_ = &tmp55__LT__LT_;
2242	C56__LT__LT_ = &tmp56__LT__LT_;
2243	C57_case = &tmp57_case;
2244	C58_abs = &tmp58_abs;
2245	C59_sign = &tmp59_sign;
2246	C60_stepsBetween = &tmp60_stepsBetween;
2247	C61_extend0 = &tmp61_extend0;
2248	C62_machine_MINUS_init = &tmp62_machine_MINUS_init;
2249	C63_basic_MINUS_init = &tmp63_basic_MINUS_init;
2250	C64_segment_MINUS_init = &tmp64_segment_MINUS_init;
2251	C65_foamcat_MINUS_init = &tmp65_foamcat_MINUS_init;
2252	C0_sinteger = &tmp0_sinteger;
2253	fiExportGlobal("G_HAQ5R_sinteger", G_HAQ5R_sinteger)fiExportGlobalFun("G_HAQ5R_sinteger", (Ptr) &G_HAQ5R_sinteger , sizeof(G_HAQ5R_sinteger));
2254	fiExportGlobal("G_IZ7UK_sinteger__MachineInteg",fiExportGlobalFun("G_IZ7UK_sinteger__MachineInteg", (Ptr) & G_IZ7UK_sinteger__MachineInteg, sizeof(G_IZ7UK_sinteger__MachineInteg ))
2255	G_IZ7UK_sinteger__MachineInteg)fiExportGlobalFun("G_IZ7UK_sinteger__MachineInteg", (Ptr) & G_IZ7UK_sinteger__MachineInteg, sizeof(G_IZ7UK_sinteger__MachineInteg ));
2256	fiExportGlobal("G_M8YLI_sinteger__MachineInteg",fiExportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr) & G_M8YLI_sinteger__MachineInteg, sizeof(G_M8YLI_sinteger__MachineInteg ))
2257	G_M8YLI_sinteger__MachineInteg)fiExportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr) & G_M8YLI_sinteger__MachineInteg, sizeof(G_M8YLI_sinteger__MachineInteg ));
2258	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
2259	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
2260	fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn );
2261	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
2262	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
2263	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
2264	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
2265	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
2266	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
2267	fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch)
2268	pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch);
2269	fiImportGlobal("G_JP87X_rtConstSIntFn", pG_JP87X_rtConstSIntFn)fiImportGlobalFun("G_JP87X_rtConstSIntFn", (Ptr *) &pG_JP87X_rtConstSIntFn );
2270	fiImportGlobal("G_WXLY5_categoryAddExports",fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports)
2271	pG_WXLY5_categoryAddExports)fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) & pG_WXLY5_categoryAddExports);
2272	fiImportGlobal("G_OZCWT_foamcat__Logic__688403",fiImportGlobalFun("G_OZCWT_foamcat__Logic__688403", (Ptr *) & pG_OZCWT_foamcat__Logic__68840)
2273	pG_OZCWT_foamcat__Logic__68840)fiImportGlobalFun("G_OZCWT_foamcat__Logic__688403", (Ptr *) & pG_OZCWT_foamcat__Logic__68840);
2274	fiImportGlobal("G_NOX7X_rtLazyCatFrInit", pG_NOX7X_rtLazyCatFrInit)fiImportGlobalFun("G_NOX7X_rtLazyCatFrInit", (Ptr *) &pG_NOX7X_rtLazyCatFrInit );
2275	fiImportGlobal("G_JWK7S_foamcat__OrderedFinite",fiImportGlobalFun("G_JWK7S_foamcat__OrderedFinite", (Ptr *) & pG_JWK7S_foamcat__OrderedFinit)
2276	pG_JWK7S_foamcat__OrderedFinit)fiImportGlobalFun("G_JWK7S_foamcat__OrderedFinite", (Ptr *) & pG_JWK7S_foamcat__OrderedFinit);
2277	fiImportGlobal("G_2AW24_foamcat__IntegerNumber",fiImportGlobalFun("G_2AW24_foamcat__IntegerNumber", (Ptr *) & pG_2AW24_foamcat__IntegerNumbe)
2278	pG_2AW24_foamcat__IntegerNumbe)fiImportGlobalFun("G_2AW24_foamcat__IntegerNumber", (Ptr *) & pG_2AW24_foamcat__IntegerNumbe);
2279	fiImportGlobal("G_YTG7I_segment__Steppable__06",fiImportGlobalFun("G_YTG7I_segment__Steppable__06", (Ptr *) & pG_YTG7I_segment__Steppable__0)
2280	pG_YTG7I_segment__Steppable__0)fiImportGlobalFun("G_YTG7I_segment__Steppable__06", (Ptr *) & pG_YTG7I_segment__Steppable__0);
2281	fiImportGlobal("G_YXGL3_categoryAddParents",fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents)
2282	pG_YXGL3_categoryAddParents)fiImportGlobalFun("G_YXGL3_categoryAddParents", (Ptr *) & pG_YXGL3_categoryAddParents);
2283	fiImportGlobal("G_1B0E6_machine__Machine__9157",fiImportGlobalFun("G_1B0E6_machine__Machine__9157", (Ptr *) & pG_1B0E6_machine__Machine__915)
2284	pG_1B0E6_machine__Machine__915)fiImportGlobalFun("G_1B0E6_machine__Machine__9157", (Ptr *) & pG_1B0E6_machine__Machine__915);
2285	fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit );
2286	fiImportGlobal("G_1X2RM_domainGetExport_BANG_",fiImportGlobalFun("G_1X2RM_domainGetExport_BANG_", (Ptr *) & pG_1X2RM_domainGetExport_BANG_)
2287	pG_1X2RM_domainGetExport_BANG_)fiImportGlobalFun("G_1X2RM_domainGetExport_BANG_", (Ptr *) & pG_1X2RM_domainGetExport_BANG_);
2288	fiImportGlobal("G_AEIW8_basic__String__6412721",fiImportGlobalFun("G_AEIW8_basic__String__6412721", (Ptr *) & pG_AEIW8_basic__String__641272)
2289	pG_AEIW8_basic__String__641272)fiImportGlobalFun("G_AEIW8_basic__String__6412721", (Ptr *) & pG_AEIW8_basic__String__641272);
2290	fiImportGlobal("G_GOVLL_categoryMake", pG_GOVLL_categoryMake)fiImportGlobalFun("G_GOVLL_categoryMake", (Ptr *) &pG_GOVLL_categoryMake );
2291	fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults)
2292	pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) & pG_V9SO_domainAddDefaults);
2293	fiImportGlobal("G_BEY7_domainMakeDummy", pG_BEY7_domainMakeDummy)fiImportGlobalFun("G_BEY7_domainMakeDummy", (Ptr *) &pG_BEY7_domainMakeDummy );
2294	fiImportGlobal("G_AK1EB_domainFill_BANG_", pG_AK1EB_domainFill_BANG_)fiImportGlobalFun("G_AK1EB_domainFill_BANG_", (Ptr *) &pG_AK1EB_domainFill_BANG_ );
2295	fiImportGlobal("G_4NZQI_lazyGetExport_BANG_",fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) & pG_4NZQI_lazyGetExport_BANG_)
2296	pG_4NZQI_lazyGetExport_BANG_)fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) & pG_4NZQI_lazyGetExport_BANG_);
2297	fiImportGlobal("G_R3D1K_lazyForceImport", pG_R3D1K_lazyForceImport)fiImportGlobalFun("G_R3D1K_lazyForceImport", (Ptr *) &pG_R3D1K_lazyForceImport );
2298	fiImportGlobal("G_U7T4R_basic__Integer__117694",fiImportGlobalFun("G_U7T4R_basic__Integer__117694", (Ptr *) & pG_U7T4R_basic__Integer__11769)
2299	pG_U7T4R_basic__Integer__11769)fiImportGlobalFun("G_U7T4R_basic__Integer__117694", (Ptr *) & pG_U7T4R_basic__Integer__11769);
2300	fiImportGlobal("G_110A7_basic__error__01166795",fiImportGlobalFun("G_110A7_basic__error__01166795", (Ptr *) & pG_110A7_basic__error__0116679)
2301	pG_110A7_basic__error__0116679)fiImportGlobalFun("G_110A7_basic__error__01166795", (Ptr *) & pG_110A7_basic__error__0116679);
2302	fiImportGlobal("G_SH2SP_basic__TextWriter__360",fiImportGlobalFun("G_SH2SP_basic__TextWriter__360", (Ptr *) & pG_SH2SP_basic__TextWriter__36)
2303	pG_SH2SP_basic__TextWriter__36)fiImportGlobalFun("G_SH2SP_basic__TextWriter__360", (Ptr *) & pG_SH2SP_basic__TextWriter__36);
2304	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
2305	fiImportGlobal("G_8QOPO_basic__MachineInteger",fiImportGlobalFun("G_8QOPO_basic__MachineInteger", (Ptr *) & pG_8QOPO_basic__MachineInteger)
2306	pG_8QOPO_basic__MachineInteger)fiImportGlobalFun("G_8QOPO_basic__MachineInteger", (Ptr *) & pG_8QOPO_basic__MachineInteger);
2307	fiImportGlobal("G_G3BWN_extendFill_BANG_", pG_G3BWN_extendFill_BANG_)fiImportGlobalFun("G_G3BWN_extendFill_BANG_", (Ptr *) &pG_G3BWN_extendFill_BANG_ );
2308	fiImportGlobal("G_FZLG1_extendMake", pG_FZLG1_extendMake)fiImportGlobalFun("G_FZLG1_extendMake", (Ptr *) &pG_FZLG1_extendMake );
2309	fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings );
2310	fiImportGlobal("G_JNB1W_machine", pG_JNB1W_machine)fiImportGlobalFun("G_JNB1W_machine", (Ptr *) &pG_JNB1W_machine );
2311	fiImportGlobal("G_NO017_basic", pG_NO017_basic)fiImportGlobalFun("G_NO017_basic", (Ptr *) &pG_NO017_basic );
2312	fiImportGlobal("G_WVJG4_segment", pG_WVJG4_segment)fiImportGlobalFun("G_WVJG4_segment", (Ptr *) &pG_WVJG4_segment );
2313	fiImportGlobal("G_H8TZ5_foamcat", pG_H8TZ5_foamcat)fiImportGlobalFun("G_H8TZ5_foamcat", (Ptr *) &pG_H8TZ5_foamcat );
2314	if (fiFileInitializer) {
2315	fiFileInitializer("rtexns");
2316	fiFileInitializer("foamcat");
2317	fiFileInitializer("segment");
2318	fiFileInitializer("basic");
2319	fiFileInitializer("machine");
2320	fiFileInitializer("runtime");
2321	}
2322	else {
2323	INIT__0_rtexns();
2324	INIT__0_foamcat();
2325	INIT__0_segment();
2326	INIT__0_basic();
2327	INIT__0_machine();
2328	INIT__0_runtime();
2329	}
2330	/* "---------------------------" */
2331	return 0L;
2332	}
2333
2334	FiWord G_M8YLI_sinteger__MachineInteg;
2335	FiWord G_IZ7UK_sinteger__MachineInteg;
2336
2337	static struct _FiClos tmpClos0_sinteger = {
2338	0L,
2339	(FiProg) &tmp0_sinteger
2340	};
2341	FiClos G_HAQ5R_sinteger = &tmpClos0_sinteger;