al/textwrit.c

Bug Summary

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

1	/*
2	* C code generated by Aldor from file "textwrit.ao".
3	*/
4
5	#include "foam_c.h"
6
7	typedef struct Fmt5 *PFmt5;
8	typedef struct Fmt6 *PFmt6;
9	typedef struct Fmt7 *PFmt7;
10	typedef struct Fmt8 *PFmt8;
11	typedef struct Fmt9 *PFmt9;
12	typedef struct Fmt10 *PFmt10;
13	typedef struct Fmt11 *PFmt11;
14	typedef struct Fmt12 *PFmt12;
15	typedef struct Fmt13 *PFmt13;
16	typedef struct Fmt14 *PFmt14;
17	typedef struct Fmt15 *PFmt15;
18	typedef struct Fmt16 *PFmt16;
19	typedef struct Fmt17 *PFmt17;
20	typedef struct Fmt20 *PFmt20;
21	struct Fmt5 {
22	FiSInt X0_size;
23	FiSInt X1_nsize;
24	FiWord X2_values;
25	};
26	struct Fmt6 {
27	FiPtr X0_empty;
28	};
29	struct Fmt7 {
30	FiWord X0_oarr;
31	};
32	struct Fmt8 {
33	FiWord X0_oarr;
34	};
35	struct Fmt9 {
36	FiWord X0_ofile;
37	};
38	struct Fmt10 {
39	FiWord X0_ofile;
40	};
41	struct Fmt11 {
42	FiWord X0_error;
43	FiWord X1_stdout;
44	FiClos X2_sink;
45	FiClos X3_writer;
46	FiClos X4_writer;
47	FiClos X5_writer;
48	FiClos X6_writer;
49	FiSInt X7;
50	};
51	struct Fmt12 {
52	FiClos X0_getter;
53	FiBool X1_flag;
54	FiClos X2_self;
55	};
56	struct Fmt13 {
57	FiWord X0_TextWriter;
58	FiWord X1_StandardIO;
59	FiWord X2_stdout;
60	FiWord X3_stderr;
61	FiWord X4_stdsink;
62	FiWord X5_dom;
63	FiBool X6;
64	FiBool X7;
65	};
66	struct Fmt14 {
67	FiClos X0_pc;
68	FiClos X1_ps;
69	FiClos X2_fn;
70	FiClos X3_fs;
71	FiClos X4_fc;
72	FiSInt X5_n;
73	};
74	struct Fmt15 {
75	FiPtr X0_empty;
76	};
77	struct Fmt16 {
78	FiClos X0;
79	FiClos X1;
80	FiClos X2;
81	};
82	struct Fmt17 {
83	FiWord X0_size;
84	FiWord X1_nvalues;
85	FiWord X2_values;
86	};
87	struct Fmt20 {
88	FiWord X0_dir;
89	FiWord X1_name;
90	FiWord X2_type;
91	FiWord X3_native;
92	};
93	static FiProg C0_textwrit;
94	static void CF0_textwrit(FiEnv e1);
95	static FiProg C1_addLevel0;
96	static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
97	static FiProg C2_addLevel1;
98	static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
99	static FiProg C3_aPutc;
100	static FiClos CF3_aPutc(FiEnv e1, FiWord P0_oarr);
101	static FiProg C4_aPutc;
102	static void CF4_aPutc(FiEnv e1, FiWord P0_c);
103	static FiProg C5_aPuts;
104	static FiClos CF5_aPuts(FiEnv e1, FiWord P0_oarr);
105	static FiProg C6_aPuts;
106	static FiWord CF6_aPuts(FiEnv e1, FiWord P0_s, FiWord P1_start, FiWord P2_limit);
107	static FiProg C7_fPutc;
108	static FiClos CF7_fPutc(FiEnv e1, FiWord P0_ofile);
109	static FiProg C8_fPutc;
110	static void CF8_fPutc(FiEnv e1, FiWord P0_c);
111	static FiProg C9_fPuts;
112	static FiClos CF9_fPuts(FiEnv e1, FiWord P0_ofile);
113	static FiProg C10_fPuts;
114	static FiWord CF10_fPuts(FiEnv e1, FiWord P0_s, FiWord P1_start, FiWord P2_limit);
115	static FiProg C11_writer;
116	static FiWord CF11_writer(FiEnv e1, FiWord P0_fname);
117	static FiProg C12_writer;
118	static FiWord CF12_writer(FiEnv e1, FiWord P0_ofile);
119	static FiProg C13_writer;
120	static FiWord CF13_writer(FiEnv e1, FiWord P0_oarr);
121	static FiProg C14_sink;
122	static FiWord CF14_sink(FiEnv e1);
123	static FiProg C15_extend0;
124	static FiClos CF15_extend0(FiEnv e1, FiWord P0_domain);
125	static FiProg C16_lazyFnGetter;
126	static FiClos CF16_lazyFnGetter(FiEnv e1, FiWord P0_init);
127	static FiProg C17_lazyGetter;
128	static FiWord CF17_lazyGetter(FiEnv e1, FiClos P0_a, FiClos P1_b);
129	static FiProg C18_lazyGetter2;
130	static void CF18_lazyGetter2(FiEnv e1);
131	static FiProg C19_basic_MINUS_init;
132	static FiWord CF19_basic_MINUS_init(FiEnv e1, FiSInt P0_idx);
133	static FiProg C20_opsys_MINUS_init;
134	static FiWord CF20_opsys_MINUS_init(FiEnv e1, FiSInt P0_idx);
135	static FiProg C21_fc;
136	static void CF21_fc(FiEnv e1, FiWord P0_c);
137	static FiProg C22_fs;
138	static FiWord CF22_fs(FiEnv e1, FiWord P0_s, FiWord P1_start, FiWord P2_limit);
139	static FiProg C23_fn;
140	static FiWord CF23_fn(FiEnv e1);
141	static FiProg C24_writer;
142	static void CF24_writer(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2);
143	extern FiClos G_EC2QI_textwrit;
144	static FiClos *pG_NQYQM_noOperation;
145	extern FiWord G_LGMWO_textwrit__TextWriter__;
146	extern FiWord G_IKKSS_textwrit__TextWriter__;
147	static FiClos *pG_XIPRL_runtime;
148	static FiClos *pG_Z2868_rtConstNameFn;
149	static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
150	static FiClos *pG_XS55O_domainAddHash_BANG_;
151	static FiClos *pG_PA5R2_domainAddExports;
152	static FiClos *pG_IJHFC_domainMakeDispatch;
153	static FiClos *pG_KK8CX_rtLazyDomFrInit;
154	static FiClos *pG_QRAZA_rtDelayedGetExport;
155	static FiClos *pG_4NZQI_lazyGetExport_BANG_;
156	static FiClos *pG_R3D1K_lazyForceImport;
157	static FiWord *pG_FKWV6_opsys__StandardIO__24;
158	static FiClos *pG_6L1ZC_domainMake;
159	static FiWord *pG_SH2SP_basic__TextWriter__36;
160	static FiClos *pG_G3BWN_extendFill_BANG_;
161	static FiClos *pG_FZLG1_extendMake;
162	static FiClos *pG_822GM_rtAddStrings;
163	static FiClos *pG_NO017_basic;
164	static FiClos *pG_LAL6Q_opsys;
165	extern int fputc(FiWord P0, FiWord P1); /* Signature patched in ccode.c:ccoPr [2] */
166	extern FiWord fputss(FiWord P0, FiWord P1, FiWord P2, FiWord P3);
167	extern FiWord fopen(FiWord P0, FiWord P1);
168
169
170
171	static void
172	CF0_textwrit(FiEnv e1)
173	{
174	PFmt5 T4, T5;
175	FiWord T2, T3;
176	FiClos T0, T1;
177	PFmt13 l0;
178	FiEnv e0;
179	l0 = fi0New(struct Fmt13 , CENSUS_EnvLevel)((struct Fmt13 *) fi0Alloc(sizeof(struct Fmt13), (19)));
180	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
181	fiCCall0(void, (pG_XIPRL_runtime))((((void ()())((pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime ))->env));
182	G_EC2QI_textwrit = (FiClos) (*pG_NQYQM_noOperation);
183	T0 = fiClosMake(e0, C20_opsys_MINUS_init)fiClosMakeFun(e0, (FiProg) (C20_opsys_MINUS_init));
184	G_LGMWO_textwrit__TextWriter__ = fiCCall1(FiWord, (((((FiWord ()())(( pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))))
185	pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((((FiWord ()())((* pG_6L1ZC_domainMake))->prog->fun) )(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg ) (C1_addLevel0))));
186	T1 = fiClosMake(e0, C19_basic_MINUS_init)fiClosMakeFun(e0, (FiProg) (C19_basic_MINUS_init));
187	G_IKKSS_textwrit__TextWriter__ = fiCCall1(FiWord, (((((FiWord ()())(( pG_FZLG1_extendMake))->prog->fun) )(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg ) (C15_extend0))))
188	pG_FZLG1_extendMake), fiClosMake(e0, C15_extend0))((((FiWord ()())((* pG_FZLG1_extendMake))->prog->fun) )(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg ) (C15_extend0))));
189	l0->X6 = 0L;
190	l0->X7 = 0L;
191	fiARRNEW_Word(T2, FiWord, 4L)((T2) = (FiWord) fiArrNew_Word(4L));
192	fiARRNEW_Word(T3, FiWord, 4L)((T3) = (FiWord) fiArrNew_Word(4L));
193	T2[0L] = (FiWord) 599195411L;
194	T3[0L] = (FiWord) "writer";
195	T2[1L] = (FiWord) 61999193L;
196	T3[1L] = (FiWord) "sink";
197	T2[2L] = (FiWord) 425417271L;
198	T3[2L] = (FiWord) "error";
199	T2[3L] = (FiWord) 113466905L;
200	T3[3L] = (FiWord) "stdout";
201	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
202	T4->X0_size = 4L;
203	T4->X1_nsize = 4L;
204	T4->X2_values = (FiWord) T2;
205	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
206	T5->X0_size = 4L;
207	T5->X1_nsize = 4L;
208	T5->X2_values = (FiWord) T3;
209	fiCCall2(void, (pG_822GM_rtAddStrings), (FiWord) T4, (FiWord) T5)((((void ()())((pG_822GM_rtAddStrings))->prog->fun)) (((*pG_822GM_rtAddStrings))->env,(FiWord) T4,(FiWord) T5));
210	l0->X1_StandardIO = fiCCall2(FiWord, (pG_KK8CX_rtLazyDomFrInit),((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T0,0L))
211	T0, 0L)((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((pG_KK8CX_rtLazyDomFrInit))->env,T0,0L));
212	l0->X5_dom = l0->X1_StandardIO;
213	l0->X4_stdsink = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X5_dom ,428893919L,842010775L))
214	l0->X5_dom, 428893919L, 842010775L)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X5_dom ,428893919L,842010775L));
215	l0->X2_stdout = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X5_dom ,113466905L,842010775L))
216	l0->X5_dom, 113466905L, 842010775L)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X5_dom ,113466905L,842010775L));
217	l0->X3_stderr = fiCCall3(FiWord, (pG_4NZQI_lazyGetExport_BANG_),((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X5_dom ,114383626L,842010775L))
218	l0->X5_dom, 114383626L, 842010775L)((((FiWord ()())((pG_4NZQI_lazyGetExport_BANG_))->prog-> fun))(((pG_4NZQI_lazyGetExport_BANG_))->env,l0->X5_dom ,114383626L,842010775L));
219	l0->X0_TextWriter = fiCCall2(FiWord, (pG_KK8CX_rtLazyDomFrInit),((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T1,0L))
220	T1, 0L)((((FiWord ()())((pG_KK8CX_rtLazyDomFrInit))->prog-> fun))(((pG_KK8CX_rtLazyDomFrInit))->env,T1,0L));
221	return ;
222	}
223
224	static struct _FiProg tmp0_textwrit = {
225	(FiFun) CF0_textwrit,
226	0L,
227	0L,
228	0L,
229	0L
230	};
231
232
233	static FiClos
234	CF1_addLevel0(FiEnv e1, FiWord P0_domain)
235	{
236	FiWord T0;
237	FiEnv e0;
238	PFmt13 l1;
239	e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
240	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
241	T0 = fiCCall1(FiWord, (pG_Z2868_rtConstNameFn), "TextWriter")((((FiWord ()())((pG_Z2868_rtConstNameFn))->prog->fun ))(((*pG_Z2868_rtConstNameFn))->env,"TextWriter"));
242	fiCCall2(FiWord, (pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((((FiWord ()())((pG_CSVBL_domainAddNameFn_BANG_))->prog ->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain ,T0));
243	fiCCall2(FiWord, (pG_XS55O_domainAddHash_BANG_), P0_domain,((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,182752316L ))
244	182752316L)((((FiWord ()())((pG_XS55O_domainAddHash_BANG_))->prog-> fun))(((pG_XS55O_domainAddHash_BANG_))->env,P0_domain,182752316L ));
245	return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
246	}
247
248	static struct _FiProg tmp1_addLevel0 = {
249	(FiFun) CF1_addLevel0,
250	0L,
251	0L,
252	0L,
253	0L
254	};
255
256
257	static FiWord
258	CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
259	{
260	FiWord T0, T1, *T2, T6, T14, T17, T19, T21, T23;
261	FiEnv e2, e0, T13, T15, T16, T18, T20, T22;
262	FiSInt T7, T8, T9, T10, T11, T12;
263	PFmt5 T3, T4, T5;
264	PFmt11 l0;
265	PFmt13 l2;
266	l0 = fi0New(struct Fmt11 , CENSUS_EnvLevel)((struct Fmt11 *) fi0Alloc(sizeof(struct Fmt11), (19)));
267	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
268	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
269	l2 = (PFmt13) fiEnvLevel(e2)((FiEnv) (e2)->level);
270	fiARRNEW_Word(T0, FiWord, 6L)((T0) = (FiWord) fiArrNew_Word(6L));
271	fiARRNEW_Word(T1, FiWord, 6L)((T1) = (FiWord) fiArrNew_Word(6L));
272	fiARRNEW_Word(T2, FiWord, 6L)((T2) = (FiWord) fiArrNew_Word(6L));
273	T6 = fiCCall1(FiWord, (pG_IJHFC_domainMakeDispatch), P0_domain)((((FiWord ()())((pG_IJHFC_domainMakeDispatch))->prog-> fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
274	l0->X7 = (FiSInt) P1_hashcode;
275	l0->X3_writer = fiClosMake(e0, C11_writer)fiClosMakeFun(e0, (FiProg) (C11_writer));
276	l0->X4_writer = fiClosMake(e0, C12_writer)fiClosMakeFun(e0, (FiProg) (C12_writer));
277	l0->X5_writer = fiClosMake(e0, C13_writer)fiClosMakeFun(e0, (FiProg) (C13_writer));
278	l0->X2_sink = fiClosMake(e0, C14_sink)fiClosMakeFun(e0, (FiProg) (C14_sink));
279	fiSINT_HASHCOMBINE(T7, FiSInt, l0->X7, 317087076L)((T7) = (FiSInt) fiSIntHashCombine(l0->X7, 317087076L));
280	fiSINT_HASHCOMBINE(T8, FiSInt, l0->X7, 880999400L)((T8) = (FiSInt) fiSIntHashCombine(l0->X7, 880999400L));
281	fiSINT_HASHCOMBINE(T9, FiSInt, l0->X7, 1011959566L)((T9) = (FiSInt) fiSIntHashCombine(l0->X7, 1011959566L));
282	fiSINT_HASHCOMBINE(T10, FiSInt, l0->X7, 275363373L)((T10) = (FiSInt) fiSIntHashCombine(l0->X7, 275363373L));
283	fiSINT_HASHCOMBINE(T11, FiSInt, l0->X7, 125072290L)((T11) = (FiSInt) fiSIntHashCombine(l0->X7, 125072290L));
284	T12 = l0->X7;
285	T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
286	T3->X0_size = 6L;
287	T3->X1_nsize = 6L;
288	T3->X2_values = (FiWord) T0;
289	T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
290	T4->X0_size = 6L;
291	T4->X1_nsize = 6L;
292	T4->X2_values = (FiWord) T1;
293	T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
294	T5->X0_size = 6L;
295	T5->X1_nsize = 6L;
296	T5->X2_values = (FiWord) T2;
297	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) );
298	T0[0L] = (FiWord) 599195411L;
299	T1[0L] = (FiWord) T7;
300	T2[0L] = (FiWord) l0->X3_writer;
301	T0[1L] = (FiWord) 599195411L;
302	T1[1L] = (FiWord) T8;
303	T2[1L] = (FiWord) l0->X4_writer;
304	T0[2L] = (FiWord) 599195411L;
305	T1[2L] = (FiWord) T9;
306	T2[2L] = (FiWord) l0->X5_writer;
307	T0[3L] = (FiWord) 61999193L;
308	T1[3L] = (FiWord) T10;
309	T2[3L] = (FiWord) l0->X2_sink;
310	l0->X6_writer = CF16_lazyFnGetter(e2, (FiWord) fiCCall3(FiWord, (((((FiWord ()())(( pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((* pG_QRAZA_rtDelayedGetExport))->env,T6,599195411L ,T11))
311	pG_QRAZA_rtDelayedGetExport), T6, 599195411L, T11)((((FiWord ()())((* pG_QRAZA_rtDelayedGetExport))->prog-> fun))(((* pG_QRAZA_rtDelayedGetExport))->env,T6,599195411L ,T11)));
312	T15 = fiEnvPush(fi0New(struct Fmt14 , CENSUS_EnvLevel), l0->fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l0-> X6_writer->env)
313	X6_writer->env)fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l0-> X6_writer->env);
314	T22 = fiEnvPush(fi0New(struct Fmt9 , CENSUS_EnvLevel), e0)fiEnvPushFun((FiPtr) (((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)))), e0);
315	T23 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l2->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X2_stdout ))
316	X2_stdout)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2-> X2_stdout ));
317	((PFmt9) fiEnvLevel0(T22)(((FiEnv)(T22))->level))->X0_ofile = T23;
318	((PFmt14) fiEnvLevel0(T15)(((FiEnv)(T15))->level))->X0_pc = (FiClos) fiClosMake(T22,fiClosMakeFun(T22, (FiProg) (C8_fPutc))
319	C8_fPutc)fiClosMakeFun(T22, (FiProg) (C8_fPutc));
320	T16 = fiEnvPush(fi0New(struct Fmt10 , CENSUS_EnvLevel), e0)fiEnvPushFun((FiPtr) (((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)))), e0);
321	T17 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l2->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X2_stdout ))
322	X2_stdout)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2-> X2_stdout ));
323	((PFmt10) fiEnvLevel0(T16)(((FiEnv)(T16))->level))->X0_ofile = T17;
324	((PFmt14) fiEnvLevel0(T15)(((FiEnv)(T15))->level))->X1_ps = (FiClos) fiClosMake(T16,fiClosMakeFun(T16, (FiProg) (C10_fPuts))
325	C10_fPuts)fiClosMakeFun(T16, (FiProg) (C10_fPuts));
326	((PFmt14) fiEnvLevel0(T15)(((FiEnv)(T15))->level))->X4_fc = fiClosMake(T15, C21_fc)fiClosMakeFun(T15, (FiProg) (C21_fc));
327	((PFmt14) fiEnvLevel0(T15)(((FiEnv)(T15))->level))->X3_fs = fiClosMake(T15, C22_fs)fiClosMakeFun(T15, (FiProg) (C22_fs));
328	((PFmt14) fiEnvLevel0(T15)(((FiEnv)(T15))->level))->X2_fn = fiClosMake(T15, C23_fn)fiClosMakeFun(T15, (FiProg) (C23_fn));
329	((PFmt14) fiEnvLevel0(T15)(((FiEnv)(T15))->level))->X5_n = 0L;
330	l0->X1_stdout = (FiWord) fiClosMake(T15, C24_writer)fiClosMakeFun(T15, (FiProg) (C24_writer));
331	T0[4L] = (FiWord) 113466905L;
332	T1[4L] = (FiWord) T12;
333	T2[4L] = l0->X1_stdout;
334	T13 = fiEnvPush(fi0New(struct Fmt14 , CENSUS_EnvLevel), l0->fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l0-> X6_writer->env)
335	X6_writer->env)fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l0-> X6_writer->env);
336	T20 = fiEnvPush(fi0New(struct Fmt9 , CENSUS_EnvLevel), e0)fiEnvPushFun((FiPtr) (((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)))), e0);
337	T21 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l2->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X3_stderr ))
338	X3_stderr)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2-> X3_stderr ));
339	((PFmt9) fiEnvLevel0(T20)(((FiEnv)(T20))->level))->X0_ofile = T21;
340	((PFmt14) fiEnvLevel0(T13)(((FiEnv)(T13))->level))->X0_pc = (FiClos) fiClosMake(T20,fiClosMakeFun(T20, (FiProg) (C8_fPutc))
341	C8_fPutc)fiClosMakeFun(T20, (FiProg) (C8_fPutc));
342	T18 = fiEnvPush(fi0New(struct Fmt10 , CENSUS_EnvLevel), e0)fiEnvPushFun((FiPtr) (((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)))), e0);
343	T19 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l2->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X3_stderr ))
344	X3_stderr)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l2-> X3_stderr ));
345	((PFmt10) fiEnvLevel0(T18)(((FiEnv)(T18))->level))->X0_ofile = T19;
346	((PFmt14) fiEnvLevel0(T13)(((FiEnv)(T13))->level))->X1_ps = (FiClos) fiClosMake(T18,fiClosMakeFun(T18, (FiProg) (C10_fPuts))
347	C10_fPuts)fiClosMakeFun(T18, (FiProg) (C10_fPuts));
348	((PFmt14) fiEnvLevel0(T13)(((FiEnv)(T13))->level))->X4_fc = fiClosMake(T13, C21_fc)fiClosMakeFun(T13, (FiProg) (C21_fc));
349	((PFmt14) fiEnvLevel0(T13)(((FiEnv)(T13))->level))->X3_fs = fiClosMake(T13, C22_fs)fiClosMakeFun(T13, (FiProg) (C22_fs));
350	((PFmt14) fiEnvLevel0(T13)(((FiEnv)(T13))->level))->X2_fn = fiClosMake(T13, C23_fn)fiClosMakeFun(T13, (FiProg) (C23_fn));
351	((PFmt14) fiEnvLevel0(T13)(((FiEnv)(T13))->level))->X5_n = 0L;
352	T14 = (FiWord) fiClosMake(T13, C24_writer)fiClosMakeFun(T13, (FiProg) (C24_writer));
353	l0->X0_error = T14;
354	T0[5L] = (FiWord) 425417271L;
355	T1[5L] = (FiWord) T12;
356	T2[5L] = l0->X0_error;
357	return P0_domain;
358	}
359
360	static struct _FiProg tmp2_addLevel1 = {
361	(FiFun) CF2_addLevel1,
362	0L,
363	0L,
364	0L,
365	0L
366	};
367
368
369	static FiClos
370	CF3_aPutc(FiEnv e1, FiWord P0_oarr)
371	{
372	PFmt7 l0;
373	FiEnv e3, e2, e0;
374	PFmt13 l3;
375	l0 = fi0New(struct Fmt7 , CENSUS_EnvLevel)((struct Fmt7 *) fi0Alloc(sizeof(struct Fmt7), (19)));
376	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
377	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
378	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
379	l3 = (PFmt13) fiEnvLevel(e3)((FiEnv) (e3)->level);
380	l0->X0_oarr = P0_oarr;
381	return fiClosMake(e0, C4_aPutc)fiClosMakeFun(e0, (FiProg) (C4_aPutc));
382	}
383
384	static struct _FiProg tmp3_aPutc = {
385	(FiFun) CF3_aPutc,
386	0L,
387	0L,
388	0L,
389	0L
390	};
391
392
393	static void
394	CF4_aPutc(FiEnv e1, FiWord P0_c)
395	{
396	FiWord T6, T11;
397	FiSInt T0, T1, T3, T4, T7, T8, T10;
398	FiPtr T2, T5, *T9;
399	PFmt7 l1;
400	FiEnv e4, e3, e2;
401	PFmt13 l4;
402	l1 = (PFmt7) fiEnvLevel(e1)((FiEnv) (e1)->level);
403	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
404	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
405	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
406	l4 = (PFmt13) fiEnvLevel(e4)((FiEnv) (e4)->level);
407	T11 = l1->X0_oarr;
408	if ((FiSInt) ((PFmt17) T11)->X1_nvalues == (FiSInt) ((PFmt17)
409	T11)->X0_size) goto L0;
410	L1: ((PFmt17) T11)->X1_nvalues = (FiWord) ((FiSInt) ((PFmt17) T11)->
411	X1_nvalues + 1L);
412	T2 = (FiPtr*) ((PFmt17) T11)->X2_values;
413	T1 = (FiSInt) ((PFmt17) T11)->X1_nvalues - 1L;
414	((FiWord*) T2)[T1] = P0_c;
415	return ;
416	L0: fiSINT_QUO(T0, FiSInt, (FiSInt) ((PFmt17) T11)->X0_size, 2L)((T0) = (FiSInt) (((FiSInt) ((PFmt17) T11)->X0_size)/(2L)) );
417	T4 = (FiSInt) ((PFmt17) T11)->X0_size + T0;
418	if (T4 < 4L) goto L2;
419	T3 = T4;
420	L3: T9 = (FiPtr*) ((PFmt17) T11)->X2_values;
421	T10 = (FiSInt) ((PFmt17) T11)->X0_size;
422	if (T3 <= T10) goto L4;
423	T5 = (FiPtr*) (FiPtr) fiArrNew_Word(T3);
424	T7 = 1L;
425	L6: if (T7 <= T10) goto L7;
426	fiFree((FiPtr) T9);
427	T6 = (FiWord) T5;
428	L5: ((PFmt17) T11)->X2_values = T6;
429	((PFmt17) T11)->X0_size = (FiWord) T3;
430	goto L1;
431	L7: T8 = T7 - 1L;
432	((FiWord) T5)[T8] = ((FiWord) T9)[T8];
433	T7 = T7 + 1L;
434	goto L6;
435	L4: T6 = (FiWord) T9;
436	goto L5;
437	L2: T3 = 4L;
438	goto L3;
439	}
440
441	static struct _FiProg tmp4_aPutc = {
442	(FiFun) CF4_aPutc,
443	0L,
444	0L,
445	0L,
446	0L
447	};
448
449
450	static FiClos
451	CF5_aPuts(FiEnv e1, FiWord P0_oarr)
452	{
453	PFmt8 l0;
454	FiEnv e3, e2, e0;
455	PFmt13 l3;
456	l0 = fi0New(struct Fmt8 , CENSUS_EnvLevel)((struct Fmt8 *) fi0Alloc(sizeof(struct Fmt8), (19)));
457	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
458	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
459	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
460	l3 = (PFmt13) fiEnvLevel(e3)((FiEnv) (e3)->level);
461	l0->X0_oarr = P0_oarr;
462	return fiClosMake(e0, C6_aPuts)fiClosMakeFun(e0, (FiProg) (C6_aPuts));
463	}
464
465	static struct _FiProg tmp5_aPuts = {
466	(FiFun) CF5_aPuts,
467	0L,
468	0L,
469	0L,
470	0L
471	};
472
473
474	static FiWord
475	CF6_aPuts(FiEnv e1, FiWord P0_s, FiWord P1_start, FiWord P2_limit)
476	{
477	FiSInt T0_i, T2, T3, T5, T6, T9, T10, T12, T14;
478	FiWord T1, T8, T13;
479	FiPtr T4, T7, *T11;
480	PFmt8 l1;
481	FiEnv e4, e3, e2;
482	PFmt13 l4;
483	l1 = (PFmt8) fiEnvLevel(e1)((FiEnv) (e1)->level);
484	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
485	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
486	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
487	l4 = (PFmt13) fiEnvLevel(e4)((FiEnv) (e4)->level);
488	if ((FiSInt) P1_start < (FiSInt) P2_limit) goto L1;
489	if ((FiSInt) P2_limit == 0) goto L1;
490	T1 = (FiWord) 0L;
491	L0: return T1;
492	L1: T0_i = (FiSInt) P1_start;
493	L2: if ((FiSInt) P2_limit == T0_i) goto L3;
494	T14 = T0_i - 1L;
495	if (((FiChar*) P0_s)[T14] == 0L) goto L3;
496	T13 = l1->X0_oarr;
497	if ((FiSInt) ((PFmt17) T13)->X1_nvalues == (FiSInt) ((PFmt17)
498	T13)->X0_size) goto L4;
499	L5: ((PFmt17) T13)->X1_nvalues = (FiWord) ((FiSInt) ((PFmt17) T13)->
500	X1_nvalues + 1L);
501	T4 = (FiPtr*) ((PFmt17) T13)->X2_values;
502	T3 = (FiSInt) ((PFmt17) T13)->X1_nvalues - 1L;
503	((FiWord) T4)[T3] = (FiWord) ((FiChar) P0_s)[T14];
504	T0_i = T0_i + 1L;
505	goto L2;
506	L4: fiSINT_QUO(T2, FiSInt, (FiSInt) ((PFmt17) T13)->X0_size, 2L)((T2) = (FiSInt) (((FiSInt) ((PFmt17) T13)->X0_size)/(2L)) );
507	T6 = (FiSInt) ((PFmt17) T13)->X0_size + T2;
508	if (T6 < 4L) goto L6;
509	T5 = T6;
510	L7: T11 = (FiPtr*) ((PFmt17) T13)->X2_values;
511	T12 = (FiSInt) ((PFmt17) T13)->X0_size;
512	if (T5 <= T12) goto L8;
513	T7 = (FiPtr*) (FiPtr) fiArrNew_Word(T5);
514	T9 = 1L;
515	L10: if (T9 <= T12) goto L11;
516	fiFree((FiPtr) T11);
517	T8 = (FiWord) T7;
518	L9: ((PFmt17) T13)->X2_values = T8;
519	((PFmt17) T13)->X0_size = (FiWord) T5;
520	goto L5;
521	L11: T10 = T9 - 1L;
522	((FiWord) T7)[T10] = ((FiWord) T11)[T10];
523	T9 = T9 + 1L;
524	goto L10;
525	L8: T8 = (FiWord) T11;
526	goto L9;
527	L6: T5 = 4L;
528	goto L7;
529	L3: T1 = (FiWord) (T0_i - (FiSInt) P1_start);
530	goto L0;
531	}
532
533	static struct _FiProg tmp6_aPuts = {
534	(FiFun) CF6_aPuts,
535	0L,
536	0L,
537	0L,
538	0L
539	};
540
541
542	static FiClos
543	CF7_fPutc(FiEnv e1, FiWord P0_ofile)
544	{
545	PFmt9 l0;
546	FiEnv e3, e2, e0;
547	PFmt13 l3;
548	l0 = fi0New(struct Fmt9 , CENSUS_EnvLevel)((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)));
549	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
550	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
551	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
552	l3 = (PFmt13) fiEnvLevel(e3)((FiEnv) (e3)->level);
553	l0->X0_ofile = P0_ofile;
554	return fiClosMake(e0, C8_fPutc)fiClosMakeFun(e0, (FiProg) (C8_fPutc));
555	}
556
557	static struct _FiProg tmp7_fPutc = {
558	(FiFun) CF7_fPutc,
559	0L,
560	0L,
561	0L,
562	0L
563	};
564
565
566	static void
567	CF8_fPutc(FiEnv e1, FiWord P0_c)
568	{
569	FiBool T1;
570	FiWord T0;
571	PFmt9 l1;
572	FiEnv e4, e3, e2;
573	PFmt13 l4;
574	l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
575	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
576	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
577	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
578	l4 = (PFmt13) fiEnvLevel(e4)((FiEnv) (e4)->level);
	Value stored to 'l4' is never read
579	T0 = l1->X0_ofile;
580	fiPTR_IS_NIL(T1, FiBool, (FiPtr) T0)((T1) = (FiBool)((FiPtr) ((FiPtr) T0) == (FiPtr) 0));
581	if (T1) goto L0;
582	fputc((FiWord) (FiSInt) (FiChar) P0_c, T0);
583	L0: return ;
584	}
585
586	static struct _FiProg tmp8_fPutc = {
587	(FiFun) CF8_fPutc,
588	0L,
589	0L,
590	0L,
591	0L
592	};
593
594
595	static FiClos
596	CF9_fPuts(FiEnv e1, FiWord P0_ofile)
597	{
598	PFmt10 l0;
599	FiEnv e3, e2, e0;
600	PFmt13 l3;
601	l0 = fi0New(struct Fmt10 , CENSUS_EnvLevel)((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)));
602	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
603	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
604	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
605	l3 = (PFmt13) fiEnvLevel(e3)((FiEnv) (e3)->level);
606	l0->X0_ofile = P0_ofile;
607	return fiClosMake(e0, C10_fPuts)fiClosMakeFun(e0, (FiProg) (C10_fPuts));
608	}
609
610	static struct _FiProg tmp9_fPuts = {
611	(FiFun) CF9_fPuts,
612	0L,
613	0L,
614	0L,
615	0L
616	};
617
618
619	static FiWord
620	CF10_fPuts(FiEnv e1, FiWord P0_s, FiWord P1_start, FiWord P2_limit)
621	{
622	FiBool T5;
623	FiWord T0, T1, T4;
624	FiSInt T2, T3;
625	PFmt10 l1;
626	FiEnv e4, e3, e2;
627	PFmt13 l4;
628	l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
629	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
630	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
631	e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
632	l4 = (PFmt13) fiEnvLevel(e4)((FiEnv) (e4)->level);
633	T4 = l1->X0_ofile;
634	fiPTR_IS_NIL(T5, FiBool, (FiPtr) T4)((T5) = (FiBool)((FiPtr) ((FiPtr) T4) == (FiPtr) 0));
635	if (T5) goto L5;
636	T0 = fputss(P0_s, (FiWord) ((FiSInt) P1_start - 1L), (FiWord) ((
637	FiSInt) P2_limit - 1L), T4);
638	L0: return T0;
639	L5: if ((FiSInt) P2_limit == 0) goto L1;
640	T1 = (FiWord) ((FiSInt) P2_limit - (FiSInt) P1_start);
641	L2: T0 = T1;
642	goto L0;
643	L1: T2 = 1L;
644	L3: T3 = T2 - 1L;
645	if (((FiChar*) P0_s)[T3] == 0L) goto L4;
646	T2 = T2 + 1L;
647	goto L3;
648	L4: T1 = (FiWord) (T3 + 1L - (FiSInt) P1_start);
649	goto L2;
650	}
651
652	static struct _FiProg tmp10_fPuts = {
653	(FiFun) CF10_fPuts,
654	0L,
655	0L,
656	0L,
657	0L
658	};
659
660
661	static FiWord
662	CF11_writer(FiEnv e1, FiWord P0_fname)
663	{
664	FiWord T4;
665	FiEnv T0, T1, T2, T3;
666	PFmt11 l1;
667	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
668	T0 = l1->X4_writer->env;
669	T4 = fopen(((PFmt20) P0_fname)->X3_native, (FiWord) "w");
670	T1 = fiEnvPush(fi0New(struct Fmt14 , CENSUS_EnvLevel), l1->fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X6_writer->env)
671	X6_writer->env)fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X6_writer->env);
672	T2 = fiEnvPush(fi0New(struct Fmt9 , CENSUS_EnvLevel), T0)fiEnvPushFun((FiPtr) (((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)))), T0);
673	((PFmt9) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X0_ofile = T4;
674	((PFmt14) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X0_pc = (FiClos) fiClosMake(T2,fiClosMakeFun(T2, (FiProg) (C8_fPutc))
675	C8_fPutc)fiClosMakeFun(T2, (FiProg) (C8_fPutc));
676	T3 = fiEnvPush(fi0New(struct Fmt10 , CENSUS_EnvLevel), T0)fiEnvPushFun((FiPtr) (((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)))), T0);
677	((PFmt10) fiEnvLevel0(T3)(((FiEnv)(T3))->level))->X0_ofile = T4;
678	((PFmt14) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X1_ps = (FiClos) fiClosMake(T3,fiClosMakeFun(T3, (FiProg) (C10_fPuts))
679	C10_fPuts)fiClosMakeFun(T3, (FiProg) (C10_fPuts));
680	((PFmt14) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X4_fc = fiClosMake(T1, C21_fc)fiClosMakeFun(T1, (FiProg) (C21_fc));
681	((PFmt14) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X3_fs = fiClosMake(T1, C22_fs)fiClosMakeFun(T1, (FiProg) (C22_fs));
682	((PFmt14) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X2_fn = fiClosMake(T1, C23_fn)fiClosMakeFun(T1, (FiProg) (C23_fn));
683	((PFmt14) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X5_n = 0L;
684	return (FiWord) fiClosMake(T1, C24_writer)fiClosMakeFun(T1, (FiProg) (C24_writer));
685	}
686
687	static struct _FiProg tmp11_writer = {
688	(FiFun) CF11_writer,
689	0L,
690	0L,
691	0L,
692	0L
693	};
694
695
696	static FiWord
697	CF12_writer(FiEnv e1, FiWord P0_ofile)
698	{
699	FiEnv T0, T1, T2;
700	PFmt11 l1;
701	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
702	T0 = fiEnvPush(fi0New(struct Fmt14 , CENSUS_EnvLevel), l1->fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X6_writer->env)
703	X6_writer->env)fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X6_writer->env);
704	T1 = fiEnvPush(fi0New(struct Fmt9 , CENSUS_EnvLevel), e1)fiEnvPushFun((FiPtr) (((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)))), e1);
705	((PFmt9) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X0_ofile = P0_ofile;
706	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X0_pc = (FiClos) fiClosMake(T1,fiClosMakeFun(T1, (FiProg) (C8_fPutc))
707	C8_fPutc)fiClosMakeFun(T1, (FiProg) (C8_fPutc));
708	T2 = fiEnvPush(fi0New(struct Fmt10 , CENSUS_EnvLevel), e1)fiEnvPushFun((FiPtr) (((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)))), e1);
709	((PFmt10) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X0_ofile = P0_ofile;
710	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X1_ps = (FiClos) fiClosMake(T2,fiClosMakeFun(T2, (FiProg) (C10_fPuts))
711	C10_fPuts)fiClosMakeFun(T2, (FiProg) (C10_fPuts));
712	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X4_fc = fiClosMake(T0, C21_fc)fiClosMakeFun(T0, (FiProg) (C21_fc));
713	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X3_fs = fiClosMake(T0, C22_fs)fiClosMakeFun(T0, (FiProg) (C22_fs));
714	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X2_fn = fiClosMake(T0, C23_fn)fiClosMakeFun(T0, (FiProg) (C23_fn));
715	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X5_n = 0L;
716	return (FiWord) fiClosMake(T0, C24_writer)fiClosMakeFun(T0, (FiProg) (C24_writer));
717	}
718
719	static struct _FiProg tmp12_writer = {
720	(FiFun) CF12_writer,
721	0L,
722	0L,
723	0L,
724	0L
725	};
726
727
728	static FiWord
729	CF13_writer(FiEnv e1, FiWord P0_oarr)
730	{
731	FiEnv T0, T1, T2;
732	PFmt11 l1;
733	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
734	T0 = fiEnvPush(fi0New(struct Fmt8 , CENSUS_EnvLevel), e1)fiEnvPushFun((FiPtr) (((struct Fmt8 *) fi0Alloc(sizeof(struct Fmt8), (19)))), e1);
735	((PFmt8) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X0_oarr = P0_oarr;
736	T1 = fiEnvPush(fi0New(struct Fmt7 , CENSUS_EnvLevel), e1)fiEnvPushFun((FiPtr) (((struct Fmt7 *) fi0Alloc(sizeof(struct Fmt7), (19)))), e1);
737	((PFmt7) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X0_oarr = P0_oarr;
738	T2 = fiEnvPush(fi0New(struct Fmt14 , CENSUS_EnvLevel), l1->fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X6_writer->env)
739	X6_writer->env)fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X6_writer->env);
740	((PFmt14) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X0_pc = (FiClos) fiClosMake(T1,fiClosMakeFun(T1, (FiProg) (C4_aPutc))
741	C4_aPutc)fiClosMakeFun(T1, (FiProg) (C4_aPutc));
742	((PFmt14) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X1_ps = (FiClos) fiClosMake(T0,fiClosMakeFun(T0, (FiProg) (C6_aPuts))
743	C6_aPuts)fiClosMakeFun(T0, (FiProg) (C6_aPuts));
744	((PFmt14) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X4_fc = fiClosMake(T2, C21_fc)fiClosMakeFun(T2, (FiProg) (C21_fc));
745	((PFmt14) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X3_fs = fiClosMake(T2, C22_fs)fiClosMakeFun(T2, (FiProg) (C22_fs));
746	((PFmt14) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X2_fn = fiClosMake(T2, C23_fn)fiClosMakeFun(T2, (FiProg) (C23_fn));
747	((PFmt14) fiEnvLevel0(T2)(((FiEnv)(T2))->level))->X5_n = 0L;
748	return (FiWord) fiClosMake(T2, C24_writer)fiClosMakeFun(T2, (FiProg) (C24_writer));
749	}
750
751	static struct _FiProg tmp13_writer = {
752	(FiFun) CF13_writer,
753	0L,
754	0L,
755	0L,
756	0L
757	};
758
759
760	static FiWord
761	CF14_sink(FiEnv e1)
762	{
763	FiWord T2, T4;
764	FiEnv e3, e2, T0, T1, T3;
765	PFmt11 l1;
766	PFmt13 l3;
767	l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
768	e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
769	e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
770	l3 = (PFmt13) fiEnvLevel(e3)((FiEnv) (e3)->level);
771	T0 = fiEnvPush(fi0New(struct Fmt14 , CENSUS_EnvLevel), l1->fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X6_writer->env)
772	X6_writer->env)fiEnvPushFun((FiPtr) (((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)))), l1-> X6_writer->env);
773	T1 = fiEnvPush(fi0New(struct Fmt9 , CENSUS_EnvLevel), e1)fiEnvPushFun((FiPtr) (((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)))), e1);
774	T2 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l3->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l3-> X4_stdsink ))
775	X4_stdsink)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l3-> X4_stdsink ));
776	((PFmt9) fiEnvLevel0(T1)(((FiEnv)(T1))->level))->X0_ofile = T2;
777	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X0_pc = (FiClos) fiClosMake(T1,fiClosMakeFun(T1, (FiProg) (C8_fPutc))
778	C8_fPutc)fiClosMakeFun(T1, (FiProg) (C8_fPutc));
779	T3 = fiEnvPush(fi0New(struct Fmt10 , CENSUS_EnvLevel), e1)fiEnvPushFun((FiPtr) (((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)))), e1);
780	T4 = fiCCall1(FiWord, (pG_R3D1K_lazyForceImport), l3->((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((*pG_R3D1K_lazyForceImport))->env,l3-> X4_stdsink ))
781	X4_stdsink)((((FiWord ()())((pG_R3D1K_lazyForceImport))->prog-> fun))(((pG_R3D1K_lazyForceImport))->env,l3-> X4_stdsink ));
782	((PFmt10) fiEnvLevel0(T3)(((FiEnv)(T3))->level))->X0_ofile = T4;
783	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X1_ps = (FiClos) fiClosMake(T3,fiClosMakeFun(T3, (FiProg) (C10_fPuts))
784	C10_fPuts)fiClosMakeFun(T3, (FiProg) (C10_fPuts));
785	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X4_fc = fiClosMake(T0, C21_fc)fiClosMakeFun(T0, (FiProg) (C21_fc));
786	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X3_fs = fiClosMake(T0, C22_fs)fiClosMakeFun(T0, (FiProg) (C22_fs));
787	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X2_fn = fiClosMake(T0, C23_fn)fiClosMakeFun(T0, (FiProg) (C23_fn));
788	((PFmt14) fiEnvLevel0(T0)(((FiEnv)(T0))->level))->X5_n = 0L;
789	return (FiWord) fiClosMake(T0, C24_writer)fiClosMakeFun(T0, (FiProg) (C24_writer));
790	}
791
792	static struct _FiProg tmp14_sink = {
793	(FiFun) CF14_sink,
794	0L,
795	0L,
796	0L,
797	0L
798	};
799
800
801	static FiClos
802	CF15_extend0(FiEnv e1, FiWord P0_domain)
803	{
804	PFmt5 T1;
805	FiWord *T0;
806	PFmt13 l1;
807	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
808	fiARRNEW_Word(T0, FiWord, 2L)((T0) = (FiWord) fiArrNew_Word(2L));
809	T0[1L] = l1->X0_TextWriter;
810	T0[0L] = (FiWord) G_LGMWO_textwrit__TextWriter__;
811	T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
812	T1->X0_size = 2L;
813	T1->X1_nsize = 2L;
814	T1->X2_values = (FiWord) T0;
815	fiCCall2(FiWord, (pG_G3BWN_extendFill_BANG_), P0_domain, T1)((((FiWord ()())((pG_G3BWN_extendFill_BANG_))->prog-> fun))(((*pG_G3BWN_extendFill_BANG_))->env,P0_domain,T1));
816	return (FiClos) fiNil((Ptr) 0);
817	}
818
819	static struct _FiProg tmp15_extend0 = {
820	(FiFun) CF15_extend0,
821	0L,
822	0L,
823	0L,
824	0L
825	};
826
827
828	static FiClos
829	CF16_lazyFnGetter(FiEnv e1, FiWord P0_init)
830	{
831	PFmt12 l0;
832	FiEnv e0;
833	l0 = fi0New(struct Fmt12 , CENSUS_EnvLevel)((struct Fmt12 *) fi0Alloc(sizeof(struct Fmt12), (19)));
834	e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
835	l0->X0_getter = (FiClos) P0_init;
836	l0->X1_flag = 0L;
837	l0->X2_self = fiClosMake(e0, C17_lazyGetter)fiClosMakeFun(e0, (FiProg) (C17_lazyGetter));
838	fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C18_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C18_lazyGetter2));
839	return l0->X2_self;
840	}
841
842	static struct _FiProg tmp16_lazyFnGetter = {
843	(FiFun) CF16_lazyFnGetter,
844	0L,
845	0L,
846	0L,
847	0L
848	};
849
850
851	static FiWord
852	CF17_lazyGetter(FiEnv e1, FiClos P0_a, FiClos P1_b)
853	{
854	FiClos T0;
855	PFmt12 l1;
856	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
857	if (l1->X1_flag) goto L0;
858	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
859	l1->X2_self->env = T0->env;
860	l1->X2_self->prog = T0->prog;
861	l1->X1_flag = 1L;
862	L0: return fiCCall2(FiWord, l1->X2_self, P0_a, P1_b)((((FiWord ()())(l1->X2_self)->prog->fun))((l1-> X2_self)->env,P0_a,P1_b));
863	}
864
865	static struct _FiProg tmp17_lazyGetter = {
866	(FiFun) CF17_lazyGetter,
867	0L,
868	0L,
869	0L,
870	0L
871	};
872
873
874	static void
875	CF18_lazyGetter2(FiEnv e1)
876	{
877	FiClos T0;
878	PFmt12 l1;
879	l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
880	if (l1->X1_flag) goto L0;
881	T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((((FiWord ()())(l1->X0_getter)->prog->fun))((l1-> X0_getter)->env));
882	l1->X1_flag = 1L;
883	l1->X2_self->env = T0->env;
884	l1->X2_self->prog = T0->prog;
885	fiEnvInfo(e1)(((FiEnv) (e1))->info) = (FiWord) fiNil((Ptr) 0);
886	L0: return ;
887	}
888
889	static struct _FiProg tmp18_lazyGetter2 = {
890	(FiFun) CF18_lazyGetter2,
891	0L,
892	0L,
893	0L,
894	0L
895	};
896
897
898	static FiWord
899	CF19_basic_MINUS_init(FiEnv e1, FiSInt P0_idx)
900	{
901	PFmt13 l1;
902	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
903	if (l1->X6) goto L0;
904	l1->X6 = 1L;
905	fiCCall0(void, (pG_NO017_basic))((((void ()())((pG_NO017_basic))->prog->fun))(((*pG_NO017_basic ))->env));
906	L0: return (FiWord) (*pG_SH2SP_basic__TextWriter__36);
907	}
908
909	static struct _FiProg tmp19_basic_MINUS_init = {
910	(FiFun) CF19_basic_MINUS_init,
911	0L,
912	0L,
913	0L,
914	0L
915	};
916
917
918	static FiWord
919	CF20_opsys_MINUS_init(FiEnv e1, FiSInt P0_idx)
920	{
921	PFmt13 l1;
922	l1 = (PFmt13) fiEnvLevel(e1)((FiEnv) (e1)->level);
923	if (l1->X7) goto L0;
924	l1->X7 = 1L;
925	fiCCall0(void, (pG_LAL6Q_opsys))((((void ()())((pG_LAL6Q_opsys))->prog->fun))(((*pG_LAL6Q_opsys ))->env));
926	L0: return (FiWord) (*pG_FKWV6_opsys__StandardIO__24);
927	}
928
929	static struct _FiProg tmp20_opsys_MINUS_init = {
930	(FiFun) CF20_opsys_MINUS_init,
931	0L,
932	0L,
933	0L,
934	0L
935	};
936
937
938	static void
939	CF21_fc(FiEnv e1, FiWord P0_c)
940	{
941	FiSInt T0;
942	PFmt14 l1;
943	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
944	fiCCall1(void, l1->X0_pc, P0_c)((((void ()())(l1->X0_pc)->prog->fun))((l1->X0_pc )->env,P0_c));
945	T0 = l1->X5_n;
946	l1->X5_n = T0 + 1L;
947	return ;
948	}
949
950	static struct _FiProg tmp21_fc = {
951	(FiFun) CF21_fc,
952	0L,
953	0L,
954	0L,
955	0L
956	};
957
958
959	static FiWord
960	CF22_fs(FiEnv e1, FiWord P0_s, FiWord P1_start, FiWord P2_limit)
961	{
962	FiSInt T0, T1;
963	PFmt14 l1;
964	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
965	T1 = (FiSInt) fiCCall3(FiWord, l1->X1_ps, P0_s, P1_start,((((FiWord ()())(l1->X1_ps)->prog->fun))((l1->X1_ps )->env,P0_s,P1_start,P2_limit))
966	P2_limit)((((FiWord ()())(l1->X1_ps)->prog->fun))((l1->X1_ps )->env,P0_s,P1_start,P2_limit));
967	T0 = l1->X5_n;
968	l1->X5_n = T0 + T1;
969	return (FiWord) T1;
970	}
971
972	static struct _FiProg tmp22_fs = {
973	(FiFun) CF22_fs,
974	0L,
975	0L,
976	0L,
977	0L
978	};
979
980
981	static FiWord
982	CF23_fn(FiEnv e1)
983	{
984	FiSInt T0;
985	PFmt14 l1;
986	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
987	T0 = l1->X5_n;
988	return (FiWord) T0;
989	}
990
991	static struct _FiProg tmp23_fn = {
992	(FiFun) CF23_fn,
993	0L,
994	0L,
995	0L,
996	0L
997	};
998
999
1000	static void
1001	CF24_writer(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2)
1002	{
1003	FiClos T0, T1, T2;
1004	PFmt14 l1;
1005	l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
1006	T0 = l1->X4_fc;
1007	T1 = l1->X3_fs;
1008	T2 = l1->X2_fn;
1009	*R0 = T0;
1010	*R1 = T1;
1011	*R2 = T2;
1012	return ;
1013	}
1014
1015	static struct _FiProg tmp24_writer = {
1016	(FiFun) CF24_writer,
1017	0L,
1018	0L,
1019	0L,
1020	0L
1021	};
1022
1023	extern int
1024	INIT__0_textwrit()
1025	{
1026
1027	extern int INIT__0_rtexns();
1028	extern int INIT__0_opsys();
1029	extern int INIT__0_basic();
1030	extern int INIT__0_runtime();
1031	static int initialized = 0;
1032	if (initialized)
1033	return 0L;
1034	else
1035	initialized = 1;
1036	C1_addLevel0 = &tmp1_addLevel0;
1037	C2_addLevel1 = &tmp2_addLevel1;
1038	C3_aPutc = &tmp3_aPutc;
1039	C4_aPutc = &tmp4_aPutc;
1040	C5_aPuts = &tmp5_aPuts;
1041	C6_aPuts = &tmp6_aPuts;
1042	C7_fPutc = &tmp7_fPutc;
1043	C8_fPutc = &tmp8_fPutc;
1044	C9_fPuts = &tmp9_fPuts;
1045	C10_fPuts = &tmp10_fPuts;
1046	C11_writer = &tmp11_writer;
1047	C12_writer = &tmp12_writer;
1048	C13_writer = &tmp13_writer;
1049	C14_sink = &tmp14_sink;
1050	C15_extend0 = &tmp15_extend0;
1051	C16_lazyFnGetter = &tmp16_lazyFnGetter;
1052	C17_lazyGetter = &tmp17_lazyGetter;
1053	C18_lazyGetter2 = &tmp18_lazyGetter2;
1054	C19_basic_MINUS_init = &tmp19_basic_MINUS_init;
1055	C20_opsys_MINUS_init = &tmp20_opsys_MINUS_init;
1056	C21_fc = &tmp21_fc;
1057	C22_fs = &tmp22_fs;
1058	C23_fn = &tmp23_fn;
1059	C24_writer = &tmp24_writer;
1060	C0_textwrit = &tmp0_textwrit;
1061	fiExportGlobal("G_EC2QI_textwrit", G_EC2QI_textwrit)fiExportGlobalFun("G_EC2QI_textwrit", (Ptr) &G_EC2QI_textwrit , sizeof(G_EC2QI_textwrit));
1062	fiExportGlobal("G_LGMWO_textwrit__TextWriter__",fiExportGlobalFun("G_LGMWO_textwrit__TextWriter__", (Ptr) & G_LGMWO_textwrit__TextWriter__, sizeof(G_LGMWO_textwrit__TextWriter__ ))
1063	G_LGMWO_textwrit__TextWriter__)fiExportGlobalFun("G_LGMWO_textwrit__TextWriter__", (Ptr) & G_LGMWO_textwrit__TextWriter__, sizeof(G_LGMWO_textwrit__TextWriter__ ));
1064	fiExportGlobal("G_IKKSS_textwrit__TextWriter__",fiExportGlobalFun("G_IKKSS_textwrit__TextWriter__", (Ptr) & G_IKKSS_textwrit__TextWriter__, sizeof(G_IKKSS_textwrit__TextWriter__ ))
1065	G_IKKSS_textwrit__TextWriter__)fiExportGlobalFun("G_IKKSS_textwrit__TextWriter__", (Ptr) & G_IKKSS_textwrit__TextWriter__, sizeof(G_IKKSS_textwrit__TextWriter__ ));
1066	fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation );
1067	fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime );
1068	fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn );
1069	fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_)
1070	pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) & pG_CSVBL_domainAddNameFn_BANG_);
1071	fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_)
1072	pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) & pG_XS55O_domainAddHash_BANG_);
1073	fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports)
1074	pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) & pG_PA5R2_domainAddExports);
1075	fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch)
1076	pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) & pG_IJHFC_domainMakeDispatch);
1077	fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit );
1078	fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport)
1079	pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) & pG_QRAZA_rtDelayedGetExport);
1080	fiImportGlobal("G_4NZQI_lazyGetExport_BANG_",fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) & pG_4NZQI_lazyGetExport_BANG_)
1081	pG_4NZQI_lazyGetExport_BANG_)fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) & pG_4NZQI_lazyGetExport_BANG_);
1082	fiImportGlobal("G_R3D1K_lazyForceImport", pG_R3D1K_lazyForceImport)fiImportGlobalFun("G_R3D1K_lazyForceImport", (Ptr *) &pG_R3D1K_lazyForceImport );
1083	fiImportGlobal("G_FKWV6_opsys__StandardIO__247",fiImportGlobalFun("G_FKWV6_opsys__StandardIO__247", (Ptr *) & pG_FKWV6_opsys__StandardIO__24)
1084	pG_FKWV6_opsys__StandardIO__24)fiImportGlobalFun("G_FKWV6_opsys__StandardIO__247", (Ptr *) & pG_FKWV6_opsys__StandardIO__24);
1085	fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake );
1086	fiImportGlobal("G_SH2SP_basic__TextWriter__360",fiImportGlobalFun("G_SH2SP_basic__TextWriter__360", (Ptr *) & pG_SH2SP_basic__TextWriter__36)
1087	pG_SH2SP_basic__TextWriter__36)fiImportGlobalFun("G_SH2SP_basic__TextWriter__360", (Ptr *) & pG_SH2SP_basic__TextWriter__36);
1088	fiImportGlobal("G_G3BWN_extendFill_BANG_", pG_G3BWN_extendFill_BANG_)fiImportGlobalFun("G_G3BWN_extendFill_BANG_", (Ptr *) &pG_G3BWN_extendFill_BANG_ );
1089	fiImportGlobal("G_FZLG1_extendMake", pG_FZLG1_extendMake)fiImportGlobalFun("G_FZLG1_extendMake", (Ptr *) &pG_FZLG1_extendMake );
1090	fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings );
1091	fiImportGlobal("G_NO017_basic", pG_NO017_basic)fiImportGlobalFun("G_NO017_basic", (Ptr *) &pG_NO017_basic );
1092	fiImportGlobal("G_LAL6Q_opsys", pG_LAL6Q_opsys)fiImportGlobalFun("G_LAL6Q_opsys", (Ptr *) &pG_LAL6Q_opsys );
1093	if (fiFileInitializer) {
1094	fiFileInitializer("rtexns");
1095	fiFileInitializer("opsys");
1096	fiFileInitializer("basic");
1097	fiFileInitializer("runtime");
1098	}
1099	else {
1100	INIT__0_rtexns();
1101	INIT__0_opsys();
1102	INIT__0_basic();
1103	INIT__0_runtime();
1104	}
1105	/* "---------------------------" */
1106	return 0L;
1107	}
1108
1109	FiWord G_IKKSS_textwrit__TextWriter__;
1110	FiWord G_LGMWO_textwrit__TextWriter__;
1111
1112	static struct _FiClos tmpClos0_textwrit = {
1113	0L,
1114	(FiProg) &tmp0_textwrit
1115	};
1116	FiClos G_EC2QI_textwrit = &tmpClos0_textwrit;