/* Generated from c-backend.scm by the CHICKEN compiler
   http://www.call-cc.org
   Version 5.2.0 (rev 317468e4)
   linux-unix-gnu-x86-64 [ 64bit dload ptables ]
   command line: c-backend.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -no-lambda-info -no-trace -emit-import-library chicken.compiler.c-backend -output-file c-backend.c
   unit: c-backend
   uses: library eval expand data-structures extras c-platform compiler internal support
*/
#include "chicken.h"

static C_PTABLE_ENTRY *create_ptable(void);
C_noret_decl(C_library_toplevel)
C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_eval_toplevel)
C_externimport void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_expand_toplevel)
C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_data_2dstructures_toplevel)
C_externimport void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_extras_toplevel)
C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_c_2dplatform_toplevel)
C_externimport void C_ccall C_c_2dplatform_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_compiler_toplevel)
C_externimport void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_internal_toplevel)
C_externimport void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_support_toplevel)
C_externimport void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret;

static C_TLS C_word lf[883];
static double C_possibly_force_alignment;


#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend
C_regparm static C_word C_fcall stub2830(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
C_word lit=(C_word )(C_a0);
return(C_header_size(lit));
C_ret:
#undef return

return C_r;}

#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_ret; C_cblockend
C_regparm static C_word C_fcall stub2826(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
C_word lit=(C_word )(C_a0);

#ifdef C_SIXTY_FOUR
return((C_header_bits(lit) >> (24 + 32)) & 0xff);
#else
return((C_header_bits(lit) >> 24) & 0xff);
#endif

C_ret:
#undef return

return C_r;}

C_noret_decl(f14658)
static void C_ccall f14658(C_word c,C_word *av) C_noret;
C_noret_decl(f14663)
static void C_ccall f14663(C_word c,C_word *av) C_noret;
C_noret_decl(f14668)
static void C_ccall f14668(C_word c,C_word *av) C_noret;
C_noret_decl(f14676)
static void C_ccall f14676(C_word c,C_word *av) C_noret;
C_noret_decl(f14681)
static void C_ccall f14681(C_word c,C_word *av) C_noret;
C_noret_decl(f14686)
static void C_ccall f14686(C_word c,C_word *av) C_noret;
C_noret_decl(f14699)
static void C_ccall f14699(C_word c,C_word *av) C_noret;
C_noret_decl(f14703)
static void C_ccall f14703(C_word c,C_word *av) C_noret;
C_noret_decl(f14710)
static void C_ccall f14710(C_word c,C_word *av) C_noret;
C_noret_decl(f14715)
static void C_ccall f14715(C_word c,C_word *av) C_noret;
C_noret_decl(f14784)
static void C_ccall f14784(C_word c,C_word *av) C_noret;
C_noret_decl(f14791)
static void C_ccall f14791(C_word c,C_word *av) C_noret;
C_noret_decl(f14812)
static void C_ccall f14812(C_word c,C_word *av) C_noret;
C_noret_decl(f_10285)
static void C_ccall f_10285(C_word c,C_word *av) C_noret;
C_noret_decl(f_10288)
static void C_ccall f_10288(C_word c,C_word *av) C_noret;
C_noret_decl(f_10291)
static void C_ccall f_10291(C_word c,C_word *av) C_noret;
C_noret_decl(f_10294)
static void C_ccall f_10294(C_word c,C_word *av) C_noret;
C_noret_decl(f_10297)
static void C_ccall f_10297(C_word c,C_word *av) C_noret;
C_noret_decl(f_10300)
static void C_ccall f_10300(C_word c,C_word *av) C_noret;
C_noret_decl(f_10309)
static void C_ccall f_10309(C_word c,C_word *av) C_noret;
C_noret_decl(f_10312)
static void C_ccall f_10312(C_word c,C_word *av) C_noret;
C_noret_decl(f_10315)
static void C_ccall f_10315(C_word c,C_word *av) C_noret;
C_noret_decl(f_10318)
static void C_ccall f_10318(C_word c,C_word *av) C_noret;
C_noret_decl(f_10321)
static void C_ccall f_10321(C_word c,C_word *av) C_noret;
C_noret_decl(f_10324)
static void C_ccall f_10324(C_word c,C_word *av) C_noret;
C_noret_decl(f_10327)
static void C_ccall f_10327(C_word c,C_word *av) C_noret;
C_noret_decl(f_10346)
static void C_ccall f_10346(C_word c,C_word *av) C_noret;
C_noret_decl(f_10348)
static void C_fcall f_10348(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10358)
static void C_ccall f_10358(C_word c,C_word *av) C_noret;
C_noret_decl(f_10397)
static void C_ccall f_10397(C_word c,C_word *av) C_noret;
C_noret_decl(f_10399)
static void C_fcall f_10399(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_10421)
static void C_ccall f_10421(C_word c,C_word *av) C_noret;
C_noret_decl(f_10433)
static void C_fcall f_10433(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10443)
static void C_ccall f_10443(C_word c,C_word *av) C_noret;
C_noret_decl(f_10456)
static void C_fcall f_10456(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10460)
static void C_ccall f_10460(C_word c,C_word *av) C_noret;
C_noret_decl(f_10463)
static void C_ccall f_10463(C_word c,C_word *av) C_noret;
C_noret_decl(f_10466)
static void C_ccall f_10466(C_word c,C_word *av) C_noret;
C_noret_decl(f_10469)
static void C_ccall f_10469(C_word c,C_word *av) C_noret;
C_noret_decl(f_10475)
static void C_ccall f_10475(C_word c,C_word *av) C_noret;
C_noret_decl(f_10478)
static void C_ccall f_10478(C_word c,C_word *av) C_noret;
C_noret_decl(f_10481)
static void C_ccall f_10481(C_word c,C_word *av) C_noret;
C_noret_decl(f_10486)
static void C_fcall f_10486(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10496)
static void C_ccall f_10496(C_word c,C_word *av) C_noret;
C_noret_decl(f_10499)
static void C_ccall f_10499(C_word c,C_word *av) C_noret;
C_noret_decl(f_10518)
static void C_ccall f_10518(C_word c,C_word *av) C_noret;
C_noret_decl(f_10530)
static void C_ccall f_10530(C_word c,C_word *av) C_noret;
C_noret_decl(f_10532)
static void C_ccall f_10532(C_word c,C_word *av) C_noret;
C_noret_decl(f_10534)
static void C_fcall f_10534(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10539)
static void C_fcall f_10539(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10609)
static void C_fcall f_10609(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10726)
static void C_fcall f_10726(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10747)
static void C_fcall f_10747(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10879)
static void C_fcall f_10879(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10891)
static void C_fcall f_10891(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10906)
static void C_ccall f_10906(C_word c,C_word *av) C_noret;
C_noret_decl(f_10910)
static void C_fcall f_10910(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10954)
static void C_ccall f_10954(C_word c,C_word *av) C_noret;
C_noret_decl(f_10971)
static void C_ccall f_10971(C_word c,C_word *av) C_noret;
C_noret_decl(f_10984)
static void C_ccall f_10984(C_word c,C_word *av) C_noret;
C_noret_decl(f_10988)
static void C_ccall f_10988(C_word c,C_word *av) C_noret;
C_noret_decl(f_10992)
static void C_ccall f_10992(C_word c,C_word *av) C_noret;
C_noret_decl(f_11010)
static void C_ccall f_11010(C_word c,C_word *av) C_noret;
C_noret_decl(f_11012)
static void C_fcall f_11012(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11037)
static void C_ccall f_11037(C_word c,C_word *av) C_noret;
C_noret_decl(f_11061)
static void C_ccall f_11061(C_word c,C_word *av) C_noret;
C_noret_decl(f_11078)
static void C_ccall f_11078(C_word c,C_word *av) C_noret;
C_noret_decl(f_11095)
static void C_ccall f_11095(C_word c,C_word *av) C_noret;
C_noret_decl(f_11112)
static void C_ccall f_11112(C_word c,C_word *av) C_noret;
C_noret_decl(f_11129)
static void C_ccall f_11129(C_word c,C_word *av) C_noret;
C_noret_decl(f_11146)
static void C_ccall f_11146(C_word c,C_word *av) C_noret;
C_noret_decl(f_11175)
static void C_ccall f_11175(C_word c,C_word *av) C_noret;
C_noret_decl(f_11179)
static void C_ccall f_11179(C_word c,C_word *av) C_noret;
C_noret_decl(f_11200)
static void C_ccall f_11200(C_word c,C_word *av) C_noret;
C_noret_decl(f_11202)
static void C_fcall f_11202(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11212)
static void C_fcall f_11212(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11227)
static void C_ccall f_11227(C_word c,C_word *av) C_noret;
C_noret_decl(f_11626)
static void C_fcall f_11626(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11628)
static void C_fcall f_11628(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11656)
static void C_fcall f_11656(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11683)
static void C_fcall f_11683(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11908)
static void C_fcall f_11908(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11917)
static void C_fcall f_11917(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11926)
static void C_ccall f_11926(C_word c,C_word *av) C_noret;
C_noret_decl(f_12024)
static void C_ccall f_12024(C_word c,C_word *av) C_noret;
C_noret_decl(f_12291)
static void C_fcall f_12291(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12293)
static void C_fcall f_12293(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12360)
static void C_ccall f_12360(C_word c,C_word *av) C_noret;
C_noret_decl(f_12366)
static void C_ccall f_12366(C_word c,C_word *av) C_noret;
C_noret_decl(f_12369)
static void C_ccall f_12369(C_word c,C_word *av) C_noret;
C_noret_decl(f_12372)
static void C_ccall f_12372(C_word c,C_word *av) C_noret;
C_noret_decl(f_12384)
static void C_ccall f_12384(C_word c,C_word *av) C_noret;
C_noret_decl(f_12390)
static void C_ccall f_12390(C_word c,C_word *av) C_noret;
C_noret_decl(f_12393)
static void C_ccall f_12393(C_word c,C_word *av) C_noret;
C_noret_decl(f_12396)
static void C_ccall f_12396(C_word c,C_word *av) C_noret;
C_noret_decl(f_12408)
static void C_fcall f_12408(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12411)
static void C_ccall f_12411(C_word c,C_word *av) C_noret;
C_noret_decl(f_12417)
static void C_ccall f_12417(C_word c,C_word *av) C_noret;
C_noret_decl(f_12420)
static void C_ccall f_12420(C_word c,C_word *av) C_noret;
C_noret_decl(f_12423)
static void C_ccall f_12423(C_word c,C_word *av) C_noret;
C_noret_decl(f_12435)
static void C_ccall f_12435(C_word c,C_word *av) C_noret;
C_noret_decl(f_12441)
static void C_ccall f_12441(C_word c,C_word *av) C_noret;
C_noret_decl(f_12444)
static void C_ccall f_12444(C_word c,C_word *av) C_noret;
C_noret_decl(f_12447)
static void C_ccall f_12447(C_word c,C_word *av) C_noret;
C_noret_decl(f_12462)
static void C_ccall f_12462(C_word c,C_word *av) C_noret;
C_noret_decl(f_12468)
static void C_ccall f_12468(C_word c,C_word *av) C_noret;
C_noret_decl(f_12471)
static void C_ccall f_12471(C_word c,C_word *av) C_noret;
C_noret_decl(f_12474)
static void C_ccall f_12474(C_word c,C_word *av) C_noret;
C_noret_decl(f_12489)
static void C_ccall f_12489(C_word c,C_word *av) C_noret;
C_noret_decl(f_12495)
static void C_ccall f_12495(C_word c,C_word *av) C_noret;
C_noret_decl(f_12498)
static void C_ccall f_12498(C_word c,C_word *av) C_noret;
C_noret_decl(f_12501)
static void C_ccall f_12501(C_word c,C_word *av) C_noret;
C_noret_decl(f_12516)
static void C_ccall f_12516(C_word c,C_word *av) C_noret;
C_noret_decl(f_12522)
static void C_ccall f_12522(C_word c,C_word *av) C_noret;
C_noret_decl(f_12525)
static void C_ccall f_12525(C_word c,C_word *av) C_noret;
C_noret_decl(f_12528)
static void C_ccall f_12528(C_word c,C_word *av) C_noret;
C_noret_decl(f_12543)
static void C_ccall f_12543(C_word c,C_word *av) C_noret;
C_noret_decl(f_12549)
static void C_ccall f_12549(C_word c,C_word *av) C_noret;
C_noret_decl(f_12552)
static void C_ccall f_12552(C_word c,C_word *av) C_noret;
C_noret_decl(f_12555)
static void C_ccall f_12555(C_word c,C_word *av) C_noret;
C_noret_decl(f_12567)
static void C_ccall f_12567(C_word c,C_word *av) C_noret;
C_noret_decl(f_12573)
static void C_ccall f_12573(C_word c,C_word *av) C_noret;
C_noret_decl(f_12576)
static void C_ccall f_12576(C_word c,C_word *av) C_noret;
C_noret_decl(f_12579)
static void C_ccall f_12579(C_word c,C_word *av) C_noret;
C_noret_decl(f_12591)
static void C_ccall f_12591(C_word c,C_word *av) C_noret;
C_noret_decl(f_12597)
static void C_ccall f_12597(C_word c,C_word *av) C_noret;
C_noret_decl(f_12600)
static void C_ccall f_12600(C_word c,C_word *av) C_noret;
C_noret_decl(f_12603)
static void C_ccall f_12603(C_word c,C_word *av) C_noret;
C_noret_decl(f_12624)
static void C_ccall f_12624(C_word c,C_word *av) C_noret;
C_noret_decl(f_12628)
static void C_fcall f_12628(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12660)
static void C_ccall f_12660(C_word c,C_word *av) C_noret;
C_noret_decl(f_12666)
static void C_ccall f_12666(C_word c,C_word *av) C_noret;
C_noret_decl(f_12669)
static void C_ccall f_12669(C_word c,C_word *av) C_noret;
C_noret_decl(f_12672)
static void C_ccall f_12672(C_word c,C_word *av) C_noret;
C_noret_decl(f_12684)
static void C_ccall f_12684(C_word c,C_word *av) C_noret;
C_noret_decl(f_12690)
static void C_ccall f_12690(C_word c,C_word *av) C_noret;
C_noret_decl(f_12693)
static void C_ccall f_12693(C_word c,C_word *av) C_noret;
C_noret_decl(f_12696)
static void C_ccall f_12696(C_word c,C_word *av) C_noret;
C_noret_decl(f_12708)
static void C_ccall f_12708(C_word c,C_word *av) C_noret;
C_noret_decl(f_12714)
static void C_ccall f_12714(C_word c,C_word *av) C_noret;
C_noret_decl(f_12717)
static void C_ccall f_12717(C_word c,C_word *av) C_noret;
C_noret_decl(f_12720)
static void C_ccall f_12720(C_word c,C_word *av) C_noret;
C_noret_decl(f_12732)
static void C_ccall f_12732(C_word c,C_word *av) C_noret;
C_noret_decl(f_12738)
static void C_ccall f_12738(C_word c,C_word *av) C_noret;
C_noret_decl(f_12741)
static void C_ccall f_12741(C_word c,C_word *av) C_noret;
C_noret_decl(f_12744)
static void C_ccall f_12744(C_word c,C_word *av) C_noret;
C_noret_decl(f_12756)
static void C_ccall f_12756(C_word c,C_word *av) C_noret;
C_noret_decl(f_12762)
static void C_ccall f_12762(C_word c,C_word *av) C_noret;
C_noret_decl(f_12765)
static void C_ccall f_12765(C_word c,C_word *av) C_noret;
C_noret_decl(f_12768)
static void C_ccall f_12768(C_word c,C_word *av) C_noret;
C_noret_decl(f_12796)
static void C_ccall f_12796(C_word c,C_word *av) C_noret;
C_noret_decl(f_12802)
static void C_ccall f_12802(C_word c,C_word *av) C_noret;
C_noret_decl(f_12805)
static void C_ccall f_12805(C_word c,C_word *av) C_noret;
C_noret_decl(f_12808)
static void C_ccall f_12808(C_word c,C_word *av) C_noret;
C_noret_decl(f_12820)
static void C_ccall f_12820(C_word c,C_word *av) C_noret;
C_noret_decl(f_12826)
static void C_ccall f_12826(C_word c,C_word *av) C_noret;
C_noret_decl(f_12829)
static void C_ccall f_12829(C_word c,C_word *av) C_noret;
C_noret_decl(f_12832)
static void C_ccall f_12832(C_word c,C_word *av) C_noret;
C_noret_decl(f_12844)
static void C_ccall f_12844(C_word c,C_word *av) C_noret;
C_noret_decl(f_12850)
static void C_ccall f_12850(C_word c,C_word *av) C_noret;
C_noret_decl(f_12853)
static void C_ccall f_12853(C_word c,C_word *av) C_noret;
C_noret_decl(f_12856)
static void C_ccall f_12856(C_word c,C_word *av) C_noret;
C_noret_decl(f_13078)
static void C_fcall f_13078(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13087)
static void C_fcall f_13087(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13153)
static void C_ccall f_13153(C_word c,C_word *av) C_noret;
C_noret_decl(f_13175)
static void C_ccall f_13175(C_word c,C_word *av) C_noret;
C_noret_decl(f_13203)
static void C_fcall f_13203(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13262)
static void C_ccall f_13262(C_word c,C_word *av) C_noret;
C_noret_decl(f_13269)
static void C_ccall f_13269(C_word c,C_word *av) C_noret;
C_noret_decl(f_13289)
static void C_ccall f_13289(C_word c,C_word *av) C_noret;
C_noret_decl(f_13296)
static void C_ccall f_13296(C_word c,C_word *av) C_noret;
C_noret_decl(f_13309)
static void C_ccall f_13309(C_word c,C_word *av) C_noret;
C_noret_decl(f_13316)
static void C_ccall f_13316(C_word c,C_word *av) C_noret;
C_noret_decl(f_13339)
static void C_ccall f_13339(C_word c,C_word *av) C_noret;
C_noret_decl(f_13347)
static void C_ccall f_13347(C_word c,C_word *av) C_noret;
C_noret_decl(f_13369)
static void C_ccall f_13369(C_word c,C_word *av) C_noret;
C_noret_decl(f_13377)
static void C_ccall f_13377(C_word c,C_word *av) C_noret;
C_noret_decl(f_13381)
static void C_ccall f_13381(C_word c,C_word *av) C_noret;
C_noret_decl(f_13383)
static void C_ccall f_13383(C_word c,C_word *av) C_noret;
C_noret_decl(f_13412)
static void C_ccall f_13412(C_word c,C_word *av) C_noret;
C_noret_decl(f_3213)
static void C_ccall f_3213(C_word c,C_word *av) C_noret;
C_noret_decl(f_3216)
static void C_ccall f_3216(C_word c,C_word *av) C_noret;
C_noret_decl(f_3219)
static void C_ccall f_3219(C_word c,C_word *av) C_noret;
C_noret_decl(f_3222)
static void C_ccall f_3222(C_word c,C_word *av) C_noret;
C_noret_decl(f_3225)
static void C_ccall f_3225(C_word c,C_word *av) C_noret;
C_noret_decl(f_3228)
static void C_ccall f_3228(C_word c,C_word *av) C_noret;
C_noret_decl(f_3231)
static void C_ccall f_3231(C_word c,C_word *av) C_noret;
C_noret_decl(f_3234)
static void C_ccall f_3234(C_word c,C_word *av) C_noret;
C_noret_decl(f_3237)
static void C_ccall f_3237(C_word c,C_word *av) C_noret;
C_noret_decl(f_3678)
static void C_fcall f_3678(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_3692)
static void C_ccall f_3692(C_word c,C_word *av) C_noret;
C_noret_decl(f_4250)
static void C_fcall f_4250(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4256)
static void C_fcall f_4256(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4270)
static void C_ccall f_4270(C_word c,C_word *av) C_noret;
C_noret_decl(f_4274)
static void C_ccall f_4274(C_word c,C_word *av) C_noret;
C_noret_decl(f_4430)
static void C_ccall f_4430(C_word c,C_word *av) C_noret;
C_noret_decl(f_4442)
static void C_ccall f_4442(C_word c,C_word *av) C_noret;
C_noret_decl(f_4518)
static void C_ccall f_4518(C_word c,C_word *av) C_noret;
C_noret_decl(f_4538)
static void C_fcall f_4538(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4548)
static void C_ccall f_4548(C_word c,C_word *av) C_noret;
C_noret_decl(f_4561)
static void C_fcall f_4561(C_word t0,C_word t1) C_noret;
C_noret_decl(f_4570)
static void C_ccall f_4570(C_word c,C_word *av) C_noret;
C_noret_decl(f_4575)
static void C_fcall f_4575(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4585)
static void C_ccall f_4585(C_word c,C_word *av) C_noret;
C_noret_decl(f_4626)
static void C_ccall f_4626(C_word c,C_word *av) C_noret;
C_noret_decl(f_4632)
static void C_ccall f_4632(C_word c,C_word *av) C_noret;
C_noret_decl(f_4637)
static void C_ccall f_4637(C_word c,C_word *av) C_noret;
C_noret_decl(f_4645)
static void C_ccall f_4645(C_word c,C_word *av) C_noret;
C_noret_decl(f_4649)
static void C_ccall f_4649(C_word c,C_word *av) C_noret;
C_noret_decl(f_4659)
static void C_ccall f_4659(C_word c,C_word *av) C_noret;
C_noret_decl(f_4670)
static void C_ccall f_4670(C_word c,C_word *av) C_noret;
C_noret_decl(f_4674)
static void C_ccall f_4674(C_word c,C_word *av) C_noret;
C_noret_decl(f_4677)
static void C_ccall f_4677(C_word c,C_word *av) C_noret;
C_noret_decl(f_4679)
static void C_fcall f_4679(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4683)
static void C_ccall f_4683(C_word c,C_word *av) C_noret;
C_noret_decl(f_4691)
static void C_fcall f_4691(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_4694)
static void C_fcall f_4694(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_4698)
static void C_ccall f_4698(C_word c,C_word *av) C_noret;
C_noret_decl(f_4701)
static void C_ccall f_4701(C_word c,C_word *av) C_noret;
C_noret_decl(f_4704)
static void C_ccall f_4704(C_word c,C_word *av) C_noret;
C_noret_decl(f_4831)
static void C_ccall f_4831(C_word c,C_word *av) C_noret;
C_noret_decl(f_4845)
static void C_ccall f_4845(C_word c,C_word *av) C_noret;
C_noret_decl(f_4864)
static void C_ccall f_4864(C_word c,C_word *av) C_noret;
C_noret_decl(f_4867)
static void C_ccall f_4867(C_word c,C_word *av) C_noret;
C_noret_decl(f_4870)
static void C_ccall f_4870(C_word c,C_word *av) C_noret;
C_noret_decl(f_4873)
static void C_ccall f_4873(C_word c,C_word *av) C_noret;
C_noret_decl(f_4876)
static void C_ccall f_4876(C_word c,C_word *av) C_noret;
C_noret_decl(f_4879)
static void C_ccall f_4879(C_word c,C_word *av) C_noret;
C_noret_decl(f_4922)
static void C_fcall f_4922(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_4932)
static void C_ccall f_4932(C_word c,C_word *av) C_noret;
C_noret_decl(f_4935)
static void C_ccall f_4935(C_word c,C_word *av) C_noret;
C_noret_decl(f_4938)
static void C_ccall f_4938(C_word c,C_word *av) C_noret;
C_noret_decl(f_4970)
static void C_ccall f_4970(C_word c,C_word *av) C_noret;
C_noret_decl(f_4973)
static void C_ccall f_4973(C_word c,C_word *av) C_noret;
C_noret_decl(f_4976)
static void C_ccall f_4976(C_word c,C_word *av) C_noret;
C_noret_decl(f_5009)
static void C_ccall f_5009(C_word c,C_word *av) C_noret;
C_noret_decl(f_5012)
static void C_ccall f_5012(C_word c,C_word *av) C_noret;
C_noret_decl(f_5028)
static void C_ccall f_5028(C_word c,C_word *av) C_noret;
C_noret_decl(f_5031)
static void C_ccall f_5031(C_word c,C_word *av) C_noret;
C_noret_decl(f_5047)
static void C_ccall f_5047(C_word c,C_word *av) C_noret;
C_noret_decl(f_5050)
static void C_ccall f_5050(C_word c,C_word *av) C_noret;
C_noret_decl(f_5074)
static void C_ccall f_5074(C_word c,C_word *av) C_noret;
C_noret_decl(f_5080)
static void C_fcall f_5080(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5099)
static void C_ccall f_5099(C_word c,C_word *av) C_noret;
C_noret_decl(f_5102)
static void C_ccall f_5102(C_word c,C_word *av) C_noret;
C_noret_decl(f_5114)
static void C_ccall f_5114(C_word c,C_word *av) C_noret;
C_noret_decl(f_5120)
static void C_fcall f_5120(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5139)
static void C_ccall f_5139(C_word c,C_word *av) C_noret;
C_noret_decl(f_5142)
static void C_ccall f_5142(C_word c,C_word *av) C_noret;
C_noret_decl(f_5154)
static void C_ccall f_5154(C_word c,C_word *av) C_noret;
C_noret_decl(f_5160)
static void C_fcall f_5160(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5179)
static void C_ccall f_5179(C_word c,C_word *av) C_noret;
C_noret_decl(f_5182)
static void C_ccall f_5182(C_word c,C_word *av) C_noret;
C_noret_decl(f_5194)
static void C_ccall f_5194(C_word c,C_word *av) C_noret;
C_noret_decl(f_5197)
static void C_ccall f_5197(C_word c,C_word *av) C_noret;
C_noret_decl(f_5213)
static void C_ccall f_5213(C_word c,C_word *av) C_noret;
C_noret_decl(f_5216)
static void C_ccall f_5216(C_word c,C_word *av) C_noret;
C_noret_decl(f_5219)
static void C_ccall f_5219(C_word c,C_word *av) C_noret;
C_noret_decl(f_5222)
static void C_ccall f_5222(C_word c,C_word *av) C_noret;
C_noret_decl(f_5246)
static void C_ccall f_5246(C_word c,C_word *av) C_noret;
C_noret_decl(f_5249)
static void C_ccall f_5249(C_word c,C_word *av) C_noret;
C_noret_decl(f_5252)
static void C_ccall f_5252(C_word c,C_word *av) C_noret;
C_noret_decl(f_5255)
static void C_ccall f_5255(C_word c,C_word *av) C_noret;
C_noret_decl(f_5283)
static void C_ccall f_5283(C_word c,C_word *av) C_noret;
C_noret_decl(f_5286)
static void C_ccall f_5286(C_word c,C_word *av) C_noret;
C_noret_decl(f_5289)
static void C_ccall f_5289(C_word c,C_word *av) C_noret;
C_noret_decl(f_5292)
static void C_ccall f_5292(C_word c,C_word *av) C_noret;
C_noret_decl(f_5312)
static void C_ccall f_5312(C_word c,C_word *av) C_noret;
C_noret_decl(f_5315)
static void C_ccall f_5315(C_word c,C_word *av) C_noret;
C_noret_decl(f_5318)
static void C_ccall f_5318(C_word c,C_word *av) C_noret;
C_noret_decl(f_5321)
static void C_ccall f_5321(C_word c,C_word *av) C_noret;
C_noret_decl(f_5344)
static void C_ccall f_5344(C_word c,C_word *av) C_noret;
C_noret_decl(f_5345)
static void C_fcall f_5345(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5349)
static void C_ccall f_5349(C_word c,C_word *av) C_noret;
C_noret_decl(f_5352)
static void C_ccall f_5352(C_word c,C_word *av) C_noret;
C_noret_decl(f_5358)
static void C_ccall f_5358(C_word c,C_word *av) C_noret;
C_noret_decl(f_5367)
static void C_ccall f_5367(C_word c,C_word *av) C_noret;
C_noret_decl(f_5374)
static void C_fcall f_5374(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5384)
static void C_ccall f_5384(C_word c,C_word *av) C_noret;
C_noret_decl(f_5418)
static void C_ccall f_5418(C_word c,C_word *av) C_noret;
C_noret_decl(f_5421)
static void C_ccall f_5421(C_word c,C_word *av) C_noret;
C_noret_decl(f_5450)
static void C_ccall f_5450(C_word c,C_word *av) C_noret;
C_noret_decl(f_5492)
static void C_ccall f_5492(C_word c,C_word *av) C_noret;
C_noret_decl(f_5496)
static void C_ccall f_5496(C_word c,C_word *av) C_noret;
C_noret_decl(f_5527)
static void C_ccall f_5527(C_word c,C_word *av) C_noret;
C_noret_decl(f_5530)
static void C_ccall f_5530(C_word c,C_word *av) C_noret;
C_noret_decl(f_5533)
static void C_ccall f_5533(C_word c,C_word *av) C_noret;
C_noret_decl(f_5544)
static void C_ccall f_5544(C_word c,C_word *av) C_noret;
C_noret_decl(f_5548)
static void C_ccall f_5548(C_word c,C_word *av) C_noret;
C_noret_decl(f_5575)
static void C_ccall f_5575(C_word c,C_word *av) C_noret;
C_noret_decl(f_5578)
static void C_ccall f_5578(C_word c,C_word *av) C_noret;
C_noret_decl(f_5589)
static void C_ccall f_5589(C_word c,C_word *av) C_noret;
C_noret_decl(f_5593)
static void C_ccall f_5593(C_word c,C_word *av) C_noret;
C_noret_decl(f_5596)
static void C_ccall f_5596(C_word c,C_word *av) C_noret;
C_noret_decl(f_5599)
static void C_ccall f_5599(C_word c,C_word *av) C_noret;
C_noret_decl(f_5610)
static void C_ccall f_5610(C_word c,C_word *av) C_noret;
C_noret_decl(f_5614)
static void C_ccall f_5614(C_word c,C_word *av) C_noret;
C_noret_decl(f_5651)
static void C_ccall f_5651(C_word c,C_word *av) C_noret;
C_noret_decl(f_5654)
static void C_fcall f_5654(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5660)
static void C_fcall f_5660(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5664)
static void C_ccall f_5664(C_word c,C_word *av) C_noret;
C_noret_decl(f_5673)
static void C_ccall f_5673(C_word c,C_word *av) C_noret;
C_noret_decl(f_5676)
static void C_ccall f_5676(C_word c,C_word *av) C_noret;
C_noret_decl(f_5679)
static void C_ccall f_5679(C_word c,C_word *av) C_noret;
C_noret_decl(f_5695)
static void C_ccall f_5695(C_word c,C_word *av) C_noret;
C_noret_decl(f_5698)
static void C_ccall f_5698(C_word c,C_word *av) C_noret;
C_noret_decl(f_5701)
static void C_ccall f_5701(C_word c,C_word *av) C_noret;
C_noret_decl(f_5702)
static void C_fcall f_5702(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5706)
static void C_ccall f_5706(C_word c,C_word *av) C_noret;
C_noret_decl(f_5709)
static void C_ccall f_5709(C_word c,C_word *av) C_noret;
C_noret_decl(f_5718)
static void C_ccall f_5718(C_word c,C_word *av) C_noret;
C_noret_decl(f_5726)
static void C_ccall f_5726(C_word c,C_word *av) C_noret;
C_noret_decl(f_5732)
static void C_ccall f_5732(C_word c,C_word *av) C_noret;
C_noret_decl(f_5735)
static void C_ccall f_5735(C_word c,C_word *av) C_noret;
C_noret_decl(f_5743)
static void C_fcall f_5743(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5753)
static void C_ccall f_5753(C_word c,C_word *av) C_noret;
C_noret_decl(f_5780)
static void C_fcall f_5780(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5790)
static void C_ccall f_5790(C_word c,C_word *av) C_noret;
C_noret_decl(f_5817)
static void C_ccall f_5817(C_word c,C_word *av) C_noret;
C_noret_decl(f_5824)
static void C_ccall f_5824(C_word c,C_word *av) C_noret;
C_noret_decl(f_5830)
static void C_ccall f_5830(C_word c,C_word *av) C_noret;
C_noret_decl(f_5833)
static void C_ccall f_5833(C_word c,C_word *av) C_noret;
C_noret_decl(f_5836)
static void C_ccall f_5836(C_word c,C_word *av) C_noret;
C_noret_decl(f_5845)
static void C_ccall f_5845(C_word c,C_word *av) C_noret;
C_noret_decl(f_5848)
static void C_ccall f_5848(C_word c,C_word *av) C_noret;
C_noret_decl(f_5851)
static void C_ccall f_5851(C_word c,C_word *av) C_noret;
C_noret_decl(f_5854)
static void C_ccall f_5854(C_word c,C_word *av) C_noret;
C_noret_decl(f_5864)
static void C_ccall f_5864(C_word c,C_word *av) C_noret;
C_noret_decl(f_5875)
static void C_ccall f_5875(C_word c,C_word *av) C_noret;
C_noret_decl(f_5879)
static void C_ccall f_5879(C_word c,C_word *av) C_noret;
C_noret_decl(f_5882)
static void C_ccall f_5882(C_word c,C_word *av) C_noret;
C_noret_decl(f_5895)
static void C_ccall f_5895(C_word c,C_word *av) C_noret;
C_noret_decl(f_5901)
static void C_fcall f_5901(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5904)
static void C_ccall f_5904(C_word c,C_word *av) C_noret;
C_noret_decl(f_5916)
static void C_ccall f_5916(C_word c,C_word *av) C_noret;
C_noret_decl(f_5919)
static void C_ccall f_5919(C_word c,C_word *av) C_noret;
C_noret_decl(f_5922)
static void C_ccall f_5922(C_word c,C_word *av) C_noret;
C_noret_decl(f_5925)
static void C_ccall f_5925(C_word c,C_word *av) C_noret;
C_noret_decl(f_5932)
static void C_ccall f_5932(C_word c,C_word *av) C_noret;
C_noret_decl(f_5942)
static void C_ccall f_5942(C_word c,C_word *av) C_noret;
C_noret_decl(f_5950)
static void C_ccall f_5950(C_word c,C_word *av) C_noret;
C_noret_decl(f_5958)
static void C_ccall f_5958(C_word c,C_word *av) C_noret;
C_noret_decl(f_5971)
static void C_ccall f_5971(C_word c,C_word *av) C_noret;
C_noret_decl(f_5975)
static void C_ccall f_5975(C_word c,C_word *av) C_noret;
C_noret_decl(f_5983)
static void C_ccall f_5983(C_word c,C_word *av) C_noret;
C_noret_decl(f_5991)
static void C_ccall f_5991(C_word c,C_word *av) C_noret;
C_noret_decl(f_5998)
static void C_ccall f_5998(C_word c,C_word *av) C_noret;
C_noret_decl(f_6003)
static void C_ccall f_6003(C_word c,C_word *av) C_noret;
C_noret_decl(f_6010)
static void C_ccall f_6010(C_word c,C_word *av) C_noret;
C_noret_decl(f_6014)
static void C_ccall f_6014(C_word c,C_word *av) C_noret;
C_noret_decl(f_6017)
static void C_ccall f_6017(C_word c,C_word *av) C_noret;
C_noret_decl(f_6020)
static void C_ccall f_6020(C_word c,C_word *av) C_noret;
C_noret_decl(f_6023)
static void C_ccall f_6023(C_word c,C_word *av) C_noret;
C_noret_decl(f_6026)
static void C_ccall f_6026(C_word c,C_word *av) C_noret;
C_noret_decl(f_6029)
static void C_ccall f_6029(C_word c,C_word *av) C_noret;
C_noret_decl(f_6035)
static void C_fcall f_6035(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6048)
static void C_ccall f_6048(C_word c,C_word *av) C_noret;
C_noret_decl(f_6053)
static void C_ccall f_6053(C_word c,C_word *av) C_noret;
C_noret_decl(f_6076)
static void C_ccall f_6076(C_word c,C_word *av) C_noret;
C_noret_decl(f_6080)
static void C_ccall f_6080(C_word c,C_word *av) C_noret;
C_noret_decl(f_6083)
static void C_ccall f_6083(C_word c,C_word *av) C_noret;
C_noret_decl(f_6103)
static void C_ccall f_6103(C_word c,C_word *av) C_noret;
C_noret_decl(f_6110)
static void C_ccall f_6110(C_word c,C_word *av) C_noret;
C_noret_decl(f_6114)
static void C_ccall f_6114(C_word c,C_word *av) C_noret;
C_noret_decl(f_6118)
static void C_ccall f_6118(C_word c,C_word *av) C_noret;
C_noret_decl(f_6161)
static void C_ccall f_6161(C_word c,C_word *av) C_noret;
C_noret_decl(f_6167)
static void C_ccall f_6167(C_word c,C_word *av) C_noret;
C_noret_decl(f_6170)
static void C_ccall f_6170(C_word c,C_word *av) C_noret;
C_noret_decl(f_6171)
static void C_fcall f_6171(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6175)
static void C_ccall f_6175(C_word c,C_word *av) C_noret;
C_noret_decl(f_6178)
static void C_ccall f_6178(C_word c,C_word *av) C_noret;
C_noret_decl(f_6187)
static void C_ccall f_6187(C_word c,C_word *av) C_noret;
C_noret_decl(f_6195)
static void C_ccall f_6195(C_word c,C_word *av) C_noret;
C_noret_decl(f_6201)
static void C_ccall f_6201(C_word c,C_word *av) C_noret;
C_noret_decl(f_6206)
static void C_fcall f_6206(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6216)
static void C_ccall f_6216(C_word c,C_word *av) C_noret;
C_noret_decl(f_6243)
static void C_fcall f_6243(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6253)
static void C_ccall f_6253(C_word c,C_word *av) C_noret;
C_noret_decl(f_6280)
static void C_ccall f_6280(C_word c,C_word *av) C_noret;
C_noret_decl(f_6287)
static void C_ccall f_6287(C_word c,C_word *av) C_noret;
C_noret_decl(f_6290)
static void C_ccall f_6290(C_word c,C_word *av) C_noret;
C_noret_decl(f_6293)
static void C_ccall f_6293(C_word c,C_word *av) C_noret;
C_noret_decl(f_6321)
static void C_ccall f_6321(C_word c,C_word *av) C_noret;
C_noret_decl(f_6334)
static void C_ccall f_6334(C_word c,C_word *av) C_noret;
C_noret_decl(f_6338)
static void C_ccall f_6338(C_word c,C_word *av) C_noret;
C_noret_decl(f_6341)
static void C_ccall f_6341(C_word c,C_word *av) C_noret;
C_noret_decl(f_6344)
static void C_ccall f_6344(C_word c,C_word *av) C_noret;
C_noret_decl(f_6347)
static void C_ccall f_6347(C_word c,C_word *av) C_noret;
C_noret_decl(f_6350)
static void C_ccall f_6350(C_word c,C_word *av) C_noret;
C_noret_decl(f_6353)
static void C_ccall f_6353(C_word c,C_word *av) C_noret;
C_noret_decl(f_6356)
static void C_ccall f_6356(C_word c,C_word *av) C_noret;
C_noret_decl(f_6368)
static void C_ccall f_6368(C_word c,C_word *av) C_noret;
C_noret_decl(f_6380)
static void C_ccall f_6380(C_word c,C_word *av) C_noret;
C_noret_decl(f_6398)
static void C_ccall f_6398(C_word c,C_word *av) C_noret;
C_noret_decl(f_6418)
static void C_ccall f_6418(C_word c,C_word *av) C_noret;
C_noret_decl(f_6425)
static void C_ccall f_6425(C_word c,C_word *av) C_noret;
C_noret_decl(f_6429)
static void C_ccall f_6429(C_word c,C_word *av) C_noret;
C_noret_decl(f_6458)
static void C_ccall f_6458(C_word c,C_word *av) C_noret;
C_noret_decl(f_6461)
static void C_ccall f_6461(C_word c,C_word *av) C_noret;
C_noret_decl(f_6468)
static void C_ccall f_6468(C_word c,C_word *av) C_noret;
C_noret_decl(f_6481)
static void C_ccall f_6481(C_word c,C_word *av) C_noret;
C_noret_decl(f_6484)
static void C_ccall f_6484(C_word c,C_word *av) C_noret;
C_noret_decl(f_6500)
static void C_ccall f_6500(C_word c,C_word *av) C_noret;
C_noret_decl(f_6503)
static void C_ccall f_6503(C_word c,C_word *av) C_noret;
C_noret_decl(f_6536)
static void C_ccall f_6536(C_word c,C_word *av) C_noret;
C_noret_decl(f_6539)
static void C_ccall f_6539(C_word c,C_word *av) C_noret;
C_noret_decl(f_6548)
static void C_ccall f_6548(C_word c,C_word *av) C_noret;
C_noret_decl(f_6572)
static void C_ccall f_6572(C_word c,C_word *av) C_noret;
C_noret_decl(f_6592)
static void C_ccall f_6592(C_word c,C_word *av) C_noret;
C_noret_decl(f_6595)
static void C_ccall f_6595(C_word c,C_word *av) C_noret;
C_noret_decl(f_6610)
static void C_ccall f_6610(C_word c,C_word *av) C_noret;
C_noret_decl(f_6614)
static void C_ccall f_6614(C_word c,C_word *av) C_noret;
C_noret_decl(f_6626)
static void C_ccall f_6626(C_word c,C_word *av) C_noret;
C_noret_decl(f_6629)
static void C_ccall f_6629(C_word c,C_word *av) C_noret;
C_noret_decl(f_6640)
static void C_ccall f_6640(C_word c,C_word *av) C_noret;
C_noret_decl(f_6644)
static void C_ccall f_6644(C_word c,C_word *av) C_noret;
C_noret_decl(f_6656)
static void C_ccall f_6656(C_word c,C_word *av) C_noret;
C_noret_decl(f_6659)
static void C_ccall f_6659(C_word c,C_word *av) C_noret;
C_noret_decl(f_6662)
static void C_ccall f_6662(C_word c,C_word *av) C_noret;
C_noret_decl(f_6665)
static void C_ccall f_6665(C_word c,C_word *av) C_noret;
C_noret_decl(f_6676)
static void C_ccall f_6676(C_word c,C_word *av) C_noret;
C_noret_decl(f_6684)
static void C_ccall f_6684(C_word c,C_word *av) C_noret;
C_noret_decl(f_6693)
static void C_ccall f_6693(C_word c,C_word *av) C_noret;
C_noret_decl(f_6696)
static void C_ccall f_6696(C_word c,C_word *av) C_noret;
C_noret_decl(f_6699)
static void C_ccall f_6699(C_word c,C_word *av) C_noret;
C_noret_decl(f_6712)
static void C_fcall f_6712(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6720)
static void C_ccall f_6720(C_word c,C_word *av) C_noret;
C_noret_decl(f_6723)
static void C_ccall f_6723(C_word c,C_word *av) C_noret;
C_noret_decl(f_6733)
static void C_ccall f_6733(C_word c,C_word *av) C_noret;
C_noret_decl(f_6736)
static void C_ccall f_6736(C_word c,C_word *av) C_noret;
C_noret_decl(f_6739)
static void C_ccall f_6739(C_word c,C_word *av) C_noret;
C_noret_decl(f_6742)
static void C_ccall f_6742(C_word c,C_word *av) C_noret;
C_noret_decl(f_6772)
static void C_ccall f_6772(C_word c,C_word *av) C_noret;
C_noret_decl(f_6775)
static void C_ccall f_6775(C_word c,C_word *av) C_noret;
C_noret_decl(f_6778)
static void C_ccall f_6778(C_word c,C_word *av) C_noret;
C_noret_decl(f_6781)
static void C_ccall f_6781(C_word c,C_word *av) C_noret;
C_noret_decl(f_6784)
static void C_ccall f_6784(C_word c,C_word *av) C_noret;
C_noret_decl(f_6787)
static void C_ccall f_6787(C_word c,C_word *av) C_noret;
C_noret_decl(f_6809)
static void C_ccall f_6809(C_word c,C_word *av) C_noret;
C_noret_decl(f_6895)
static void C_fcall f_6895(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6901)
static void C_fcall f_6901(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6911)
static void C_ccall f_6911(C_word c,C_word *av) C_noret;
C_noret_decl(f_6914)
static void C_ccall f_6914(C_word c,C_word *av) C_noret;
C_noret_decl(f_6931)
static void C_fcall f_6931(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_6943)
static void C_fcall f_6943(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6946)
static void C_ccall f_6946(C_word c,C_word *av) C_noret;
C_noret_decl(f_6949)
static void C_ccall f_6949(C_word c,C_word *av) C_noret;
C_noret_decl(f_6952)
static void C_ccall f_6952(C_word c,C_word *av) C_noret;
C_noret_decl(f_6955)
static void C_ccall f_6955(C_word c,C_word *av) C_noret;
C_noret_decl(f_6964)
static void C_fcall f_6964(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6974)
static void C_ccall f_6974(C_word c,C_word *av) C_noret;
C_noret_decl(f_6977)
static void C_ccall f_6977(C_word c,C_word *av) C_noret;
C_noret_decl(f_6980)
static void C_ccall f_6980(C_word c,C_word *av) C_noret;
C_noret_decl(f_7000)
static void C_fcall f_7000(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7015)
static void C_ccall f_7015(C_word c,C_word *av) C_noret;
C_noret_decl(f_7018)
static void C_ccall f_7018(C_word c,C_word *av) C_noret;
C_noret_decl(f_7021)
static void C_ccall f_7021(C_word c,C_word *av) C_noret;
C_noret_decl(f_7024)
static void C_ccall f_7024(C_word c,C_word *av) C_noret;
C_noret_decl(f_7027)
static void C_ccall f_7027(C_word c,C_word *av) C_noret;
C_noret_decl(f_7043)
static void C_ccall f_7043(C_word c,C_word *av) C_noret;
C_noret_decl(f_7046)
static void C_ccall f_7046(C_word c,C_word *av) C_noret;
C_noret_decl(f_7054)
static void C_fcall f_7054(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7058)
static void C_ccall f_7058(C_word c,C_word *av) C_noret;
C_noret_decl(f_7061)
static void C_ccall f_7061(C_word c,C_word *av) C_noret;
C_noret_decl(f_7064)
static void C_ccall f_7064(C_word c,C_word *av) C_noret;
C_noret_decl(f_7067)
static void C_ccall f_7067(C_word c,C_word *av) C_noret;
C_noret_decl(f_7070)
static void C_ccall f_7070(C_word c,C_word *av) C_noret;
C_noret_decl(f_7073)
static void C_ccall f_7073(C_word c,C_word *av) C_noret;
C_noret_decl(f_7076)
static void C_ccall f_7076(C_word c,C_word *av) C_noret;
C_noret_decl(f_7079)
static void C_ccall f_7079(C_word c,C_word *av) C_noret;
C_noret_decl(f_7091)
static void C_ccall f_7091(C_word c,C_word *av) C_noret;
C_noret_decl(f_7101)
static void C_fcall f_7101(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7111)
static void C_ccall f_7111(C_word c,C_word *av) C_noret;
C_noret_decl(f_7131)
static void C_ccall f_7131(C_word c,C_word *av) C_noret;
C_noret_decl(f_7144)
static void C_ccall f_7144(C_word c,C_word *av) C_noret;
C_noret_decl(f_7156)
static void C_ccall f_7156(C_word c,C_word *av) C_noret;
C_noret_decl(f_7159)
static void C_ccall f_7159(C_word c,C_word *av) C_noret;
C_noret_decl(f_7161)
static void C_fcall f_7161(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7186)
static void C_ccall f_7186(C_word c,C_word *av) C_noret;
C_noret_decl(f_7197)
static void C_ccall f_7197(C_word c,C_word *av) C_noret;
C_noret_decl(f_7207)
static void C_ccall f_7207(C_word c,C_word *av) C_noret;
C_noret_decl(f_7211)
static void C_ccall f_7211(C_word c,C_word *av) C_noret;
C_noret_decl(f_7213)
static void C_fcall f_7213(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7220)
static void C_ccall f_7220(C_word c,C_word *av) C_noret;
C_noret_decl(f_7234)
static void C_ccall f_7234(C_word c,C_word *av) C_noret;
C_noret_decl(f_7240)
static void C_ccall f_7240(C_word c,C_word *av) C_noret;
C_noret_decl(f_7243)
static void C_ccall f_7243(C_word c,C_word *av) C_noret;
C_noret_decl(f_7246)
static void C_ccall f_7246(C_word c,C_word *av) C_noret;
C_noret_decl(f_7251)
static void C_fcall f_7251(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7261)
static void C_ccall f_7261(C_word c,C_word *av) C_noret;
C_noret_decl(f_7267)
static void C_ccall f_7267(C_word c,C_word *av) C_noret;
C_noret_decl(f_7270)
static void C_ccall f_7270(C_word c,C_word *av) C_noret;
C_noret_decl(f_7273)
static void C_ccall f_7273(C_word c,C_word *av) C_noret;
C_noret_decl(f_7276)
static void C_ccall f_7276(C_word c,C_word *av) C_noret;
C_noret_decl(f_7291)
static void C_fcall f_7291(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7299)
static void C_ccall f_7299(C_word c,C_word *av) C_noret;
C_noret_decl(f_7309)
static void C_fcall f_7309(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7319)
static void C_ccall f_7319(C_word c,C_word *av) C_noret;
C_noret_decl(f_7360)
static void C_fcall f_7360(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7370)
static void C_ccall f_7370(C_word c,C_word *av) C_noret;
C_noret_decl(f_7383)
static void C_fcall f_7383(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7408)
static void C_ccall f_7408(C_word c,C_word *av) C_noret;
C_noret_decl(f_7417)
static void C_fcall f_7417(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7421)
static void C_ccall f_7421(C_word c,C_word *av) C_noret;
C_noret_decl(f_7430)
static void C_ccall f_7430(C_word c,C_word *av) C_noret;
C_noret_decl(f_7433)
static void C_ccall f_7433(C_word c,C_word *av) C_noret;
C_noret_decl(f_7436)
static void C_fcall f_7436(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7439)
static void C_ccall f_7439(C_word c,C_word *av) C_noret;
C_noret_decl(f_7442)
static void C_ccall f_7442(C_word c,C_word *av) C_noret;
C_noret_decl(f_7445)
static void C_ccall f_7445(C_word c,C_word *av) C_noret;
C_noret_decl(f_7448)
static void C_ccall f_7448(C_word c,C_word *av) C_noret;
C_noret_decl(f_7451)
static void C_ccall f_7451(C_word c,C_word *av) C_noret;
C_noret_decl(f_7454)
static void C_ccall f_7454(C_word c,C_word *av) C_noret;
C_noret_decl(f_7457)
static void C_ccall f_7457(C_word c,C_word *av) C_noret;
C_noret_decl(f_7460)
static void C_ccall f_7460(C_word c,C_word *av) C_noret;
C_noret_decl(f_7463)
static void C_ccall f_7463(C_word c,C_word *av) C_noret;
C_noret_decl(f_7466)
static void C_ccall f_7466(C_word c,C_word *av) C_noret;
C_noret_decl(f_7469)
static void C_ccall f_7469(C_word c,C_word *av) C_noret;
C_noret_decl(f_7490)
static void C_ccall f_7490(C_word c,C_word *av) C_noret;
C_noret_decl(f_7513)
static void C_ccall f_7513(C_word c,C_word *av) C_noret;
C_noret_decl(f_7516)
static void C_ccall f_7516(C_word c,C_word *av) C_noret;
C_noret_decl(f_7519)
static void C_ccall f_7519(C_word c,C_word *av) C_noret;
C_noret_decl(f_7522)
static void C_ccall f_7522(C_word c,C_word *av) C_noret;
C_noret_decl(f_7538)
static void C_ccall f_7538(C_word c,C_word *av) C_noret;
C_noret_decl(f_7541)
static void C_ccall f_7541(C_word c,C_word *av) C_noret;
C_noret_decl(f_7544)
static void C_ccall f_7544(C_word c,C_word *av) C_noret;
C_noret_decl(f_7555)
static void C_ccall f_7555(C_word c,C_word *av) C_noret;
C_noret_decl(f_7564)
static void C_ccall f_7564(C_word c,C_word *av) C_noret;
C_noret_decl(f_7572)
static void C_fcall f_7572(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7582)
static void C_ccall f_7582(C_word c,C_word *av) C_noret;
C_noret_decl(f_7595)
static void C_fcall f_7595(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7606)
static void C_fcall f_7606(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7616)
static void C_ccall f_7616(C_word c,C_word *av) C_noret;
C_noret_decl(f_7632)
static void C_ccall f_7632(C_word c,C_word *av) C_noret;
C_noret_decl(f_7635)
static void C_ccall f_7635(C_word c,C_word *av) C_noret;
C_noret_decl(f_7638)
static void C_fcall f_7638(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7641)
static void C_fcall f_7641(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7650)
static void C_ccall f_7650(C_word c,C_word *av) C_noret;
C_noret_decl(f_7653)
static void C_ccall f_7653(C_word c,C_word *av) C_noret;
C_noret_decl(f_7656)
static void C_ccall f_7656(C_word c,C_word *av) C_noret;
C_noret_decl(f_7659)
static void C_ccall f_7659(C_word c,C_word *av) C_noret;
C_noret_decl(f_7662)
static void C_ccall f_7662(C_word c,C_word *av) C_noret;
C_noret_decl(f_7665)
static void C_ccall f_7665(C_word c,C_word *av) C_noret;
C_noret_decl(f_7672)
static void C_ccall f_7672(C_word c,C_word *av) C_noret;
C_noret_decl(f_7679)
static void C_ccall f_7679(C_word c,C_word *av) C_noret;
C_noret_decl(f_7685)
static void C_ccall f_7685(C_word c,C_word *av) C_noret;
C_noret_decl(f_7693)
static void C_fcall f_7693(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7703)
static void C_ccall f_7703(C_word c,C_word *av) C_noret;
C_noret_decl(f_7716)
static void C_fcall f_7716(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7722)
static void C_fcall f_7722(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7732)
static void C_ccall f_7732(C_word c,C_word *av) C_noret;
C_noret_decl(f_7747)
static void C_ccall f_7747(C_word c,C_word *av) C_noret;
C_noret_decl(f_7753)
static void C_ccall f_7753(C_word c,C_word *av) C_noret;
C_noret_decl(f_7756)
static void C_ccall f_7756(C_word c,C_word *av) C_noret;
C_noret_decl(f_7759)
static void C_ccall f_7759(C_word c,C_word *av) C_noret;
C_noret_decl(f_7762)
static void C_ccall f_7762(C_word c,C_word *av) C_noret;
C_noret_decl(f_7770)
static void C_fcall f_7770(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7777)
static void C_ccall f_7777(C_word c,C_word *av) C_noret;
C_noret_decl(f_7783)
static void C_ccall f_7783(C_word c,C_word *av) C_noret;
C_noret_decl(f_7813)
static void C_ccall f_7813(C_word c,C_word *av) C_noret;
C_noret_decl(f_7826)
static void C_ccall f_7826(C_word c,C_word *av) C_noret;
C_noret_decl(f_7830)
static void C_ccall f_7830(C_word c,C_word *av) C_noret;
C_noret_decl(f_7854)
static void C_ccall f_7854(C_word c,C_word *av) C_noret;
C_noret_decl(f_7857)
static void C_ccall f_7857(C_word c,C_word *av) C_noret;
C_noret_decl(f_7863)
static void C_ccall f_7863(C_word c,C_word *av) C_noret;
C_noret_decl(f_7865)
static void C_fcall f_7865(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7889)
static void C_fcall f_7889(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7914)
static void C_ccall f_7914(C_word c,C_word *av) C_noret;
C_noret_decl(f_7928)
static void C_ccall f_7928(C_word c,C_word *av) C_noret;
C_noret_decl(f_7946)
static void C_ccall f_7946(C_word c,C_word *av) C_noret;
C_noret_decl(f_7953)
static void C_ccall f_7953(C_word c,C_word *av) C_noret;
C_noret_decl(f_7974)
static void C_fcall f_7974(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7994)
static void C_ccall f_7994(C_word c,C_word *av) C_noret;
C_noret_decl(f_8015)
static void C_ccall f_8015(C_word c,C_word *av) C_noret;
C_noret_decl(f_8019)
static void C_ccall f_8019(C_word c,C_word *av) C_noret;
C_noret_decl(f_8040)
static void C_ccall f_8040(C_word c,C_word *av) C_noret;
C_noret_decl(f_8044)
static void C_ccall f_8044(C_word c,C_word *av) C_noret;
C_noret_decl(f_8053)
static void C_fcall f_8053(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8060)
static void C_fcall f_8060(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8066)
static void C_ccall f_8066(C_word c,C_word *av) C_noret;
C_noret_decl(f_8110)
static void C_ccall f_8110(C_word c,C_word *av) C_noret;
C_noret_decl(f_8119)
static void C_ccall f_8119(C_word c,C_word *av) C_noret;
C_noret_decl(f_8128)
static void C_ccall f_8128(C_word c,C_word *av) C_noret;
C_noret_decl(f_8134)
static void C_ccall f_8134(C_word c,C_word *av) C_noret;
C_noret_decl(f_8161)
static void C_ccall f_8161(C_word c,C_word *av) C_noret;
C_noret_decl(f_8164)
static void C_ccall f_8164(C_word c,C_word *av) C_noret;
C_noret_decl(f_8171)
static void C_ccall f_8171(C_word c,C_word *av) C_noret;
C_noret_decl(f_8205)
static void C_ccall f_8205(C_word c,C_word *av) C_noret;
C_noret_decl(f_8207)
static void C_fcall f_8207(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8221)
static void C_fcall f_8221(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8242)
static void C_ccall f_8242(C_word c,C_word *av) C_noret;
C_noret_decl(f_8246)
static void C_ccall f_8246(C_word c,C_word *av) C_noret;
C_noret_decl(f_8258)
static void C_ccall f_8258(C_word c,C_word *av) C_noret;
C_noret_decl(f_8271)
static void C_ccall f_8271(C_word c,C_word *av) C_noret;
C_noret_decl(f_8275)
static void C_ccall f_8275(C_word c,C_word *av) C_noret;
C_noret_decl(f_8281)
static void C_fcall f_8281(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8288)
static void C_ccall f_8288(C_word c,C_word *av) C_noret;
C_noret_decl(f_8291)
static void C_ccall f_8291(C_word c,C_word *av) C_noret;
C_noret_decl(f_8293)
static void C_fcall f_8293(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8295)
static void C_fcall f_8295(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8303)
static void C_ccall f_8303(C_word c,C_word *av) C_noret;
C_noret_decl(f_8306)
static void C_ccall f_8306(C_word c,C_word *av) C_noret;
C_noret_decl(f_8309)
static void C_ccall f_8309(C_word c,C_word *av) C_noret;
C_noret_decl(f_8312)
static void C_ccall f_8312(C_word c,C_word *av) C_noret;
C_noret_decl(f_8315)
static void C_ccall f_8315(C_word c,C_word *av) C_noret;
C_noret_decl(f_8318)
static void C_ccall f_8318(C_word c,C_word *av) C_noret;
C_noret_decl(f_8321)
static void C_fcall f_8321(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8327)
static void C_ccall f_8327(C_word c,C_word *av) C_noret;
C_noret_decl(f_8330)
static void C_ccall f_8330(C_word c,C_word *av) C_noret;
C_noret_decl(f_8333)
static void C_ccall f_8333(C_word c,C_word *av) C_noret;
C_noret_decl(f_8336)
static void C_ccall f_8336(C_word c,C_word *av) C_noret;
C_noret_decl(f_8339)
static void C_ccall f_8339(C_word c,C_word *av) C_noret;
C_noret_decl(f_8342)
static void C_ccall f_8342(C_word c,C_word *av) C_noret;
C_noret_decl(f_8345)
static void C_ccall f_8345(C_word c,C_word *av) C_noret;
C_noret_decl(f_8348)
static void C_ccall f_8348(C_word c,C_word *av) C_noret;
C_noret_decl(f_8351)
static void C_ccall f_8351(C_word c,C_word *av) C_noret;
C_noret_decl(f_8354)
static void C_ccall f_8354(C_word c,C_word *av) C_noret;
C_noret_decl(f_8357)
static void C_ccall f_8357(C_word c,C_word *av) C_noret;
C_noret_decl(f_8360)
static void C_ccall f_8360(C_word c,C_word *av) C_noret;
C_noret_decl(f_8363)
static void C_ccall f_8363(C_word c,C_word *av) C_noret;
C_noret_decl(f_8366)
static void C_ccall f_8366(C_word c,C_word *av) C_noret;
C_noret_decl(f_8369)
static void C_ccall f_8369(C_word c,C_word *av) C_noret;
C_noret_decl(f_8372)
static void C_ccall f_8372(C_word c,C_word *av) C_noret;
C_noret_decl(f_8375)
static void C_ccall f_8375(C_word c,C_word *av) C_noret;
C_noret_decl(f_8378)
static void C_ccall f_8378(C_word c,C_word *av) C_noret;
C_noret_decl(f_8381)
static void C_ccall f_8381(C_word c,C_word *av) C_noret;
C_noret_decl(f_8384)
static void C_ccall f_8384(C_word c,C_word *av) C_noret;
C_noret_decl(f_8387)
static void C_fcall f_8387(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8390)
static void C_ccall f_8390(C_word c,C_word *av) C_noret;
C_noret_decl(f_8393)
static void C_ccall f_8393(C_word c,C_word *av) C_noret;
C_noret_decl(f_8396)
static void C_ccall f_8396(C_word c,C_word *av) C_noret;
C_noret_decl(f_8399)
static void C_ccall f_8399(C_word c,C_word *av) C_noret;
C_noret_decl(f_8402)
static void C_ccall f_8402(C_word c,C_word *av) C_noret;
C_noret_decl(f_8406)
static void C_ccall f_8406(C_word c,C_word *av) C_noret;
C_noret_decl(f_8413)
static void C_ccall f_8413(C_word c,C_word *av) C_noret;
C_noret_decl(f_8424)
static void C_ccall f_8424(C_word c,C_word *av) C_noret;
C_noret_decl(f_8430)
static void C_ccall f_8430(C_word c,C_word *av) C_noret;
C_noret_decl(f_8433)
static void C_ccall f_8433(C_word c,C_word *av) C_noret;
C_noret_decl(f_8442)
static void C_fcall f_8442(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8450)
static void C_ccall f_8450(C_word c,C_word *av) C_noret;
C_noret_decl(f_8464)
static void C_ccall f_8464(C_word c,C_word *av) C_noret;
C_noret_decl(f_8479)
static void C_ccall f_8479(C_word c,C_word *av) C_noret;
C_noret_decl(f_8482)
static void C_ccall f_8482(C_word c,C_word *av) C_noret;
C_noret_decl(f_8499)
static void C_fcall f_8499(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8509)
static void C_ccall f_8509(C_word c,C_word *av) C_noret;
C_noret_decl(f_8539)
static void C_ccall f_8539(C_word c,C_word *av) C_noret;
C_noret_decl(f_8543)
static void C_ccall f_8543(C_word c,C_word *av) C_noret;
C_noret_decl(f_8546)
static void C_ccall f_8546(C_word c,C_word *av) C_noret;
C_noret_decl(f_8549)
static void C_ccall f_8549(C_word c,C_word *av) C_noret;
C_noret_decl(f_8552)
static void C_ccall f_8552(C_word c,C_word *av) C_noret;
C_noret_decl(f_8555)
static void C_ccall f_8555(C_word c,C_word *av) C_noret;
C_noret_decl(f_8558)
static void C_ccall f_8558(C_word c,C_word *av) C_noret;
C_noret_decl(f_8567)
static void C_ccall f_8567(C_word c,C_word *av) C_noret;
C_noret_decl(f_8570)
static void C_ccall f_8570(C_word c,C_word *av) C_noret;
C_noret_decl(f_8581)
static void C_ccall f_8581(C_word c,C_word *av) C_noret;
C_noret_decl(f_8602)
static void C_fcall f_8602(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8618)
static void C_fcall f_8618(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8626)
static void C_ccall f_8626(C_word c,C_word *av) C_noret;
C_noret_decl(f_8629)
static void C_ccall f_8629(C_word c,C_word *av) C_noret;
C_noret_decl(f_8639)
static void C_ccall f_8639(C_word c,C_word *av) C_noret;
C_noret_decl(f_8642)
static void C_ccall f_8642(C_word c,C_word *av) C_noret;
C_noret_decl(f_8645)
static void C_ccall f_8645(C_word c,C_word *av) C_noret;
C_noret_decl(f_8654)
static void C_fcall f_8654(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8678)
static void C_ccall f_8678(C_word c,C_word *av) C_noret;
C_noret_decl(f_8681)
static void C_ccall f_8681(C_word c,C_word *av) C_noret;
C_noret_decl(f_8684)
static void C_ccall f_8684(C_word c,C_word *av) C_noret;
C_noret_decl(f_8687)
static void C_ccall f_8687(C_word c,C_word *av) C_noret;
C_noret_decl(f_8696)
static void C_ccall f_8696(C_word c,C_word *av) C_noret;
C_noret_decl(f_8712)
static void C_fcall f_8712(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8772)
static void C_ccall f_8772(C_word c,C_word *av) C_noret;
C_noret_decl(f_8785)
static void C_fcall f_8785(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8795)
static void C_ccall f_8795(C_word c,C_word *av) C_noret;
C_noret_decl(f_8810)
static void C_fcall f_8810(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8812)
static void C_fcall f_8812(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8820)
static void C_ccall f_8820(C_word c,C_word *av) C_noret;
C_noret_decl(f_8840)
static void C_fcall f_8840(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8850)
static void C_ccall f_8850(C_word c,C_word *av) C_noret;
C_noret_decl(f_8874)
static void C_ccall f_8874(C_word c,C_word *av) C_noret;
C_noret_decl(f_8897)
static void C_ccall f_8897(C_word c,C_word *av) C_noret;
C_noret_decl(f_8900)
static void C_ccall f_8900(C_word c,C_word *av) C_noret;
C_noret_decl(f_8903)
static void C_ccall f_8903(C_word c,C_word *av) C_noret;
C_noret_decl(f_8919)
static void C_ccall f_8919(C_word c,C_word *av) C_noret;
C_noret_decl(f_8922)
static void C_ccall f_8922(C_word c,C_word *av) C_noret;
C_noret_decl(f_8936)
static void C_ccall f_8936(C_word c,C_word *av) C_noret;
C_noret_decl(f_8961)
static void C_ccall f_8961(C_word c,C_word *av) C_noret;
C_noret_decl(f_8965)
static void C_ccall f_8965(C_word c,C_word *av) C_noret;
C_noret_decl(f_8973)
static void C_fcall f_8973(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8983)
static void C_ccall f_8983(C_word c,C_word *av) C_noret;
C_noret_decl(f_8997)
static void C_ccall f_8997(C_word c,C_word *av) C_noret;
C_noret_decl(f_9001)
static void C_ccall f_9001(C_word c,C_word *av) C_noret;
C_noret_decl(f_9004)
static void C_ccall f_9004(C_word c,C_word *av) C_noret;
C_noret_decl(f_9007)
static void C_ccall f_9007(C_word c,C_word *av) C_noret;
C_noret_decl(f_9010)
static void C_ccall f_9010(C_word c,C_word *av) C_noret;
C_noret_decl(f_9013)
static void C_ccall f_9013(C_word c,C_word *av) C_noret;
C_noret_decl(f_9016)
static void C_ccall f_9016(C_word c,C_word *av) C_noret;
C_noret_decl(f_9019)
static void C_ccall f_9019(C_word c,C_word *av) C_noret;
C_noret_decl(f_9022)
static void C_ccall f_9022(C_word c,C_word *av) C_noret;
C_noret_decl(f_9025)
static void C_ccall f_9025(C_word c,C_word *av) C_noret;
C_noret_decl(f_9028)
static void C_ccall f_9028(C_word c,C_word *av) C_noret;
C_noret_decl(f_9043)
static void C_ccall f_9043(C_word c,C_word *av) C_noret;
C_noret_decl(f_9048)
static void C_ccall f_9048(C_word c,C_word *av) C_noret;
C_noret_decl(f_9066)
static void C_ccall f_9066(C_word c,C_word *av) C_noret;
C_noret_decl(f_9070)
static void C_ccall f_9070(C_word c,C_word *av) C_noret;
C_noret_decl(f_9079)
static void C_ccall f_9079(C_word c,C_word *av) C_noret;
C_noret_decl(f_9084)
static void C_fcall f_9084(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9094)
static void C_ccall f_9094(C_word c,C_word *av) C_noret;
C_noret_decl(f_9112)
static void C_ccall f_9112(C_word c,C_word *av) C_noret;
C_noret_decl(f_9118)
static void C_ccall f_9118(C_word c,C_word *av) C_noret;
C_noret_decl(f_9123)
static void C_fcall f_9123(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9133)
static void C_ccall f_9133(C_word c,C_word *av) C_noret;
C_noret_decl(f_9146)
static void C_ccall f_9146(C_word c,C_word *av) C_noret;
C_noret_decl(f_9164)
static void C_ccall f_9164(C_word c,C_word *av) C_noret;
C_noret_decl(f_9165)
static void C_fcall f_9165(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9173)
static void C_ccall f_9173(C_word c,C_word *av) C_noret;
C_noret_decl(f_9186)
static void C_ccall f_9186(C_word c,C_word *av) C_noret;
C_noret_decl(f_9193)
static void C_ccall f_9193(C_word c,C_word *av) C_noret;
C_noret_decl(f_9196)
static void C_ccall f_9196(C_word c,C_word *av) C_noret;
C_noret_decl(f_9199)
static void C_ccall f_9199(C_word c,C_word *av) C_noret;
C_noret_decl(f_9202)
static void C_ccall f_9202(C_word c,C_word *av) C_noret;
C_noret_decl(f_9205)
static void C_ccall f_9205(C_word c,C_word *av) C_noret;
C_noret_decl(f_9210)
static void C_fcall f_9210(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9220)
static void C_ccall f_9220(C_word c,C_word *av) C_noret;
C_noret_decl(f_9238)
static void C_ccall f_9238(C_word c,C_word *av) C_noret;
C_noret_decl(f_9252)
static void C_ccall f_9252(C_word c,C_word *av) C_noret;
C_noret_decl(f_9254)
static void C_fcall f_9254(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9263)
static void C_fcall f_9263(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9289)
static void C_fcall f_9289(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9299)
static void C_ccall f_9299(C_word c,C_word *av) C_noret;
C_noret_decl(f_9330)
static void C_fcall f_9330(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9336)
static void C_ccall f_9336(C_word c,C_word *av) C_noret;
C_noret_decl(f_9344)
static void C_ccall f_9344(C_word c,C_word *av) C_noret;
C_noret_decl(f_9347)
static void C_fcall f_9347(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9353)
static void C_ccall f_9353(C_word c,C_word *av) C_noret;
C_noret_decl(f_9361)
static void C_ccall f_9361(C_word c,C_word *av) C_noret;
C_noret_decl(f_9368)
static void C_ccall f_9368(C_word c,C_word *av) C_noret;
C_noret_decl(f_9390)
static void C_ccall f_9390(C_word c,C_word *av) C_noret;
C_noret_decl(f_9398)
static void C_fcall f_9398(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9408)
static void C_ccall f_9408(C_word c,C_word *av) C_noret;
C_noret_decl(f_9421)
static void C_fcall f_9421(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9427)
static void C_ccall f_9427(C_word c,C_word *av) C_noret;
C_noret_decl(f_9430)
static void C_ccall f_9430(C_word c,C_word *av) C_noret;
C_noret_decl(f_9441)
static void C_fcall f_9441(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9451)
static void C_ccall f_9451(C_word c,C_word *av) C_noret;
C_noret_decl(f_9466)
static void C_fcall f_9466(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9470)
static void C_ccall f_9470(C_word c,C_word *av) C_noret;
C_noret_decl(f_9473)
static void C_ccall f_9473(C_word c,C_word *av) C_noret;
C_noret_decl(f_9476)
static void C_ccall f_9476(C_word c,C_word *av) C_noret;
C_noret_decl(f_9482)
static void C_ccall f_9482(C_word c,C_word *av) C_noret;
C_noret_decl(f_9485)
static void C_ccall f_9485(C_word c,C_word *av) C_noret;
C_noret_decl(f_9488)
static void C_ccall f_9488(C_word c,C_word *av) C_noret;
C_noret_decl(f_9491)
static void C_ccall f_9491(C_word c,C_word *av) C_noret;
C_noret_decl(f_9494)
static void C_ccall f_9494(C_word c,C_word *av) C_noret;
C_noret_decl(f_9497)
static void C_ccall f_9497(C_word c,C_word *av) C_noret;
C_noret_decl(f_9500)
static void C_ccall f_9500(C_word c,C_word *av) C_noret;
C_noret_decl(f_9503)
static void C_ccall f_9503(C_word c,C_word *av) C_noret;
C_noret_decl(f_9506)
static void C_ccall f_9506(C_word c,C_word *av) C_noret;
C_noret_decl(f_9509)
static void C_ccall f_9509(C_word c,C_word *av) C_noret;
C_noret_decl(f_9512)
static void C_ccall f_9512(C_word c,C_word *av) C_noret;
C_noret_decl(f_9515)
static void C_ccall f_9515(C_word c,C_word *av) C_noret;
C_noret_decl(f_9518)
static void C_ccall f_9518(C_word c,C_word *av) C_noret;
C_noret_decl(f_9527)
static void C_ccall f_9527(C_word c,C_word *av) C_noret;
C_noret_decl(f_9531)
static void C_ccall f_9531(C_word c,C_word *av) C_noret;
C_noret_decl(f_9535)
static void C_ccall f_9535(C_word c,C_word *av) C_noret;
C_noret_decl(f_9539)
static void C_ccall f_9539(C_word c,C_word *av) C_noret;
C_noret_decl(f_9545)
static void C_ccall f_9545(C_word c,C_word *av) C_noret;
C_noret_decl(f_9551)
static void C_ccall f_9551(C_word c,C_word *av) C_noret;
C_noret_decl(f_9554)
static void C_ccall f_9554(C_word c,C_word *av) C_noret;
C_noret_decl(f_9560)
static void C_ccall f_9560(C_word c,C_word *av) C_noret;
C_noret_decl(f_9569)
static void C_ccall f_9569(C_word c,C_word *av) C_noret;
C_noret_decl(f_9572)
static void C_ccall f_9572(C_word c,C_word *av) C_noret;
C_noret_decl(f_9575)
static void C_ccall f_9575(C_word c,C_word *av) C_noret;
C_noret_decl(f_9581)
static void C_ccall f_9581(C_word c,C_word *av) C_noret;
C_noret_decl(f_9584)
static void C_ccall f_9584(C_word c,C_word *av) C_noret;
C_noret_decl(f_9602)
static void C_ccall f_9602(C_word c,C_word *av) C_noret;
C_noret_decl(f_9605)
static void C_ccall f_9605(C_word c,C_word *av) C_noret;
C_noret_decl(f_9608)
static void C_ccall f_9608(C_word c,C_word *av) C_noret;
C_noret_decl(f_9611)
static void C_ccall f_9611(C_word c,C_word *av) C_noret;
C_noret_decl(f_9614)
static void C_ccall f_9614(C_word c,C_word *av) C_noret;
C_noret_decl(f_9639)
static void C_ccall f_9639(C_word c,C_word *av) C_noret;
C_noret_decl(f_9643)
static void C_ccall f_9643(C_word c,C_word *av) C_noret;
C_noret_decl(f_9661)
static void C_fcall f_9661(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_9668)
static void C_fcall f_9668(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9671)
static void C_ccall f_9671(C_word c,C_word *av) C_noret;
C_noret_decl(f_9713)
static void C_ccall f_9713(C_word c,C_word *av) C_noret;
C_noret_decl(f_9718)
static void C_fcall f_9718(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9728)
static void C_ccall f_9728(C_word c,C_word *av) C_noret;
C_noret_decl(f_9740)
static void C_ccall f_9740(C_word c,C_word *av) C_noret;
C_noret_decl(f_9743)
static void C_ccall f_9743(C_word c,C_word *av) C_noret;
C_noret_decl(f_9750)
static void C_ccall f_9750(C_word c,C_word *av) C_noret;
C_noret_decl(f_9758)
static void C_ccall f_9758(C_word c,C_word *av) C_noret;
C_noret_decl(f_9768)
static void C_ccall f_9768(C_word c,C_word *av) C_noret;
C_noret_decl(f_9779)
static void C_fcall f_9779(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9789)
static void C_ccall f_9789(C_word c,C_word *av) C_noret;
C_noret_decl(f_9804)
static void C_fcall f_9804(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9808)
static void C_ccall f_9808(C_word c,C_word *av) C_noret;
C_noret_decl(f_9811)
static void C_ccall f_9811(C_word c,C_word *av) C_noret;
C_noret_decl(f_9814)
static void C_ccall f_9814(C_word c,C_word *av) C_noret;
C_noret_decl(f_9817)
static void C_ccall f_9817(C_word c,C_word *av) C_noret;
C_noret_decl(f_9823)
static void C_ccall f_9823(C_word c,C_word *av) C_noret;
C_noret_decl(f_9825)
static void C_fcall f_9825(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_9835)
static void C_fcall f_9835(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9844)
static void C_fcall f_9844(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9856)
static void C_fcall f_9856(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9868)
static void C_fcall f_9868(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9880)
static void C_fcall f_9880(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9892)
static void C_fcall f_9892(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9898)
static void C_ccall f_9898(C_word c,C_word *av) C_noret;
C_noret_decl(f_9902)
static void C_fcall f_9902(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9929)
static void C_fcall f_9929(C_word t0,C_word t1) C_noret;
C_noret_decl(C_c_2dbackend_toplevel)
C_externexport void C_ccall C_c_2dbackend_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(va15287)
static void C_fcall va15287(C_word t0,C_word t1) C_noret;
C_noret_decl(va15293)
static void C_fcall va15293(C_word t0,C_word t1) C_noret;
C_noret_decl(va15323)
static void C_fcall va15323(C_word t0,C_word t1) C_noret;
C_noret_decl(va15325)
static void C_fcall va15325(C_word t0,C_word t1) C_noret;
C_noret_decl(va15333)
static void C_fcall va15333(C_word t0,C_word t1) C_noret;
C_noret_decl(va15335)
static void C_fcall va15335(C_word t0,C_word t1) C_noret;

C_noret_decl(trf_10348)
static void C_ccall trf_10348(C_word c,C_word *av) C_noret;
static void C_ccall trf_10348(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_10348(t0,t1,t2,t3);}

C_noret_decl(trf_10399)
static void C_ccall trf_10399(C_word c,C_word *av) C_noret;
static void C_ccall trf_10399(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_10399(t0,t1,t2,t3,t4);}

C_noret_decl(trf_10433)
static void C_ccall trf_10433(C_word c,C_word *av) C_noret;
static void C_ccall trf_10433(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10433(t0,t1,t2);}

C_noret_decl(trf_10456)
static void C_ccall trf_10456(C_word c,C_word *av) C_noret;
static void C_ccall trf_10456(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10456(t0,t1,t2);}

C_noret_decl(trf_10486)
static void C_ccall trf_10486(C_word c,C_word *av) C_noret;
static void C_ccall trf_10486(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_10486(t0,t1,t2,t3);}

C_noret_decl(trf_10534)
static void C_ccall trf_10534(C_word c,C_word *av) C_noret;
static void C_ccall trf_10534(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10534(t0,t1);}

C_noret_decl(trf_10539)
static void C_ccall trf_10539(C_word c,C_word *av) C_noret;
static void C_ccall trf_10539(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10539(t0,t1,t2);}

C_noret_decl(trf_10609)
static void C_ccall trf_10609(C_word c,C_word *av) C_noret;
static void C_ccall trf_10609(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10609(t0,t1);}

C_noret_decl(trf_10726)
static void C_ccall trf_10726(C_word c,C_word *av) C_noret;
static void C_ccall trf_10726(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10726(t0,t1);}

C_noret_decl(trf_10747)
static void C_ccall trf_10747(C_word c,C_word *av) C_noret;
static void C_ccall trf_10747(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10747(t0,t1);}

C_noret_decl(trf_10879)
static void C_ccall trf_10879(C_word c,C_word *av) C_noret;
static void C_ccall trf_10879(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10879(t0,t1);}

C_noret_decl(trf_10891)
static void C_ccall trf_10891(C_word c,C_word *av) C_noret;
static void C_ccall trf_10891(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10891(t0,t1);}

C_noret_decl(trf_10910)
static void C_ccall trf_10910(C_word c,C_word *av) C_noret;
static void C_ccall trf_10910(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10910(t0,t1,t2);}

C_noret_decl(trf_11012)
static void C_ccall trf_11012(C_word c,C_word *av) C_noret;
static void C_ccall trf_11012(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11012(t0,t1,t2);}

C_noret_decl(trf_11202)
static void C_ccall trf_11202(C_word c,C_word *av) C_noret;
static void C_ccall trf_11202(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11202(t0,t1,t2);}

C_noret_decl(trf_11212)
static void C_ccall trf_11212(C_word c,C_word *av) C_noret;
static void C_ccall trf_11212(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11212(t0,t1);}

C_noret_decl(trf_11626)
static void C_ccall trf_11626(C_word c,C_word *av) C_noret;
static void C_ccall trf_11626(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11626(t0,t1);}

C_noret_decl(trf_11628)
static void C_ccall trf_11628(C_word c,C_word *av) C_noret;
static void C_ccall trf_11628(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11628(t0,t1);}

C_noret_decl(trf_11656)
static void C_ccall trf_11656(C_word c,C_word *av) C_noret;
static void C_ccall trf_11656(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11656(t0,t1);}

C_noret_decl(trf_11683)
static void C_ccall trf_11683(C_word c,C_word *av) C_noret;
static void C_ccall trf_11683(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11683(t0,t1);}

C_noret_decl(trf_11908)
static void C_ccall trf_11908(C_word c,C_word *av) C_noret;
static void C_ccall trf_11908(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11908(t0,t1);}

C_noret_decl(trf_11917)
static void C_ccall trf_11917(C_word c,C_word *av) C_noret;
static void C_ccall trf_11917(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11917(t0,t1);}

C_noret_decl(trf_12291)
static void C_ccall trf_12291(C_word c,C_word *av) C_noret;
static void C_ccall trf_12291(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12291(t0,t1,t2);}

C_noret_decl(trf_12293)
static void C_ccall trf_12293(C_word c,C_word *av) C_noret;
static void C_ccall trf_12293(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12293(t0,t1);}

C_noret_decl(trf_12408)
static void C_ccall trf_12408(C_word c,C_word *av) C_noret;
static void C_ccall trf_12408(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12408(t0,t1);}

C_noret_decl(trf_12628)
static void C_ccall trf_12628(C_word c,C_word *av) C_noret;
static void C_ccall trf_12628(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12628(t0,t1,t2);}

C_noret_decl(trf_13078)
static void C_ccall trf_13078(C_word c,C_word *av) C_noret;
static void C_ccall trf_13078(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13078(t0,t1);}

C_noret_decl(trf_13087)
static void C_ccall trf_13087(C_word c,C_word *av) C_noret;
static void C_ccall trf_13087(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13087(t0,t1);}

C_noret_decl(trf_13203)
static void C_ccall trf_13203(C_word c,C_word *av) C_noret;
static void C_ccall trf_13203(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_13203(t0,t1);}

C_noret_decl(trf_3678)
static void C_ccall trf_3678(C_word c,C_word *av) C_noret;
static void C_ccall trf_3678(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_3678(t0,t1,t2,t3);}

C_noret_decl(trf_4250)
static void C_ccall trf_4250(C_word c,C_word *av) C_noret;
static void C_ccall trf_4250(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_4250(t0,t1,t2);}

C_noret_decl(trf_4256)
static void C_ccall trf_4256(C_word c,C_word *av) C_noret;
static void C_ccall trf_4256(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_4256(t0,t1,t2);}

C_noret_decl(trf_4538)
static void C_ccall trf_4538(C_word c,C_word *av) C_noret;
static void C_ccall trf_4538(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_4538(t0,t1,t2);}

C_noret_decl(trf_4561)
static void C_ccall trf_4561(C_word c,C_word *av) C_noret;
static void C_ccall trf_4561(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_4561(t0,t1);}

C_noret_decl(trf_4575)
static void C_ccall trf_4575(C_word c,C_word *av) C_noret;
static void C_ccall trf_4575(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_4575(t0,t1,t2);}

C_noret_decl(trf_4679)
static void C_ccall trf_4679(C_word c,C_word *av) C_noret;
static void C_ccall trf_4679(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_4679(t0,t1,t2);}

C_noret_decl(trf_4691)
static void C_ccall trf_4691(C_word c,C_word *av) C_noret;
static void C_ccall trf_4691(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_4691(t0,t1,t2,t3,t4);}

C_noret_decl(trf_4694)
static void C_ccall trf_4694(C_word c,C_word *av) C_noret;
static void C_ccall trf_4694(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_4694(t0,t1,t2,t3);}

C_noret_decl(trf_4922)
static void C_ccall trf_4922(C_word c,C_word *av) C_noret;
static void C_ccall trf_4922(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_4922(t0,t1,t2,t3,t4);}

C_noret_decl(trf_5080)
static void C_ccall trf_5080(C_word c,C_word *av) C_noret;
static void C_ccall trf_5080(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_5080(t0,t1);}

C_noret_decl(trf_5120)
static void C_ccall trf_5120(C_word c,C_word *av) C_noret;
static void C_ccall trf_5120(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_5120(t0,t1);}

C_noret_decl(trf_5160)
static void C_ccall trf_5160(C_word c,C_word *av) C_noret;
static void C_ccall trf_5160(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_5160(t0,t1);}

C_noret_decl(trf_5345)
static void C_ccall trf_5345(C_word c,C_word *av) C_noret;
static void C_ccall trf_5345(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_5345(t0,t1,t2,t3);}

C_noret_decl(trf_5374)
static void C_ccall trf_5374(C_word c,C_word *av) C_noret;
static void C_ccall trf_5374(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_5374(t0,t1,t2,t3);}

C_noret_decl(trf_5654)
static void C_ccall trf_5654(C_word c,C_word *av) C_noret;
static void C_ccall trf_5654(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_5654(t0,t1);}

C_noret_decl(trf_5660)
static void C_ccall trf_5660(C_word c,C_word *av) C_noret;
static void C_ccall trf_5660(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_5660(t0,t1);}

C_noret_decl(trf_5702)
static void C_ccall trf_5702(C_word c,C_word *av) C_noret;
static void C_ccall trf_5702(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_5702(t0,t1,t2,t3);}

C_noret_decl(trf_5743)
static void C_ccall trf_5743(C_word c,C_word *av) C_noret;
static void C_ccall trf_5743(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_5743(t0,t1,t2,t3);}

C_noret_decl(trf_5780)
static void C_ccall trf_5780(C_word c,C_word *av) C_noret;
static void C_ccall trf_5780(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_5780(t0,t1,t2,t3);}

C_noret_decl(trf_5901)
static void C_ccall trf_5901(C_word c,C_word *av) C_noret;
static void C_ccall trf_5901(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_5901(t0,t1);}

C_noret_decl(trf_6035)
static void C_ccall trf_6035(C_word c,C_word *av) C_noret;
static void C_ccall trf_6035(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_6035(t0,t1);}

C_noret_decl(trf_6171)
static void C_ccall trf_6171(C_word c,C_word *av) C_noret;
static void C_ccall trf_6171(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_6171(t0,t1,t2,t3);}

C_noret_decl(trf_6206)
static void C_ccall trf_6206(C_word c,C_word *av) C_noret;
static void C_ccall trf_6206(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_6206(t0,t1,t2,t3);}

C_noret_decl(trf_6243)
static void C_ccall trf_6243(C_word c,C_word *av) C_noret;
static void C_ccall trf_6243(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_6243(t0,t1,t2,t3);}

C_noret_decl(trf_6712)
static void C_ccall trf_6712(C_word c,C_word *av) C_noret;
static void C_ccall trf_6712(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_6712(t0,t1,t2,t3);}

C_noret_decl(trf_6895)
static void C_ccall trf_6895(C_word c,C_word *av) C_noret;
static void C_ccall trf_6895(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_6895(t0,t1,t2,t3);}

C_noret_decl(trf_6901)
static void C_ccall trf_6901(C_word c,C_word *av) C_noret;
static void C_ccall trf_6901(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_6901(t0,t1,t2);}

C_noret_decl(trf_6931)
static void C_ccall trf_6931(C_word c,C_word *av) C_noret;
static void C_ccall trf_6931(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_6931(t0,t1,t2,t3,t4);}

C_noret_decl(trf_6943)
static void C_ccall trf_6943(C_word c,C_word *av) C_noret;
static void C_ccall trf_6943(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_6943(t0,t1);}

C_noret_decl(trf_6964)
static void C_ccall trf_6964(C_word c,C_word *av) C_noret;
static void C_ccall trf_6964(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_6964(t0,t1,t2,t3);}

C_noret_decl(trf_7000)
static void C_ccall trf_7000(C_word c,C_word *av) C_noret;
static void C_ccall trf_7000(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7000(t0,t1);}

C_noret_decl(trf_7054)
static void C_ccall trf_7054(C_word c,C_word *av) C_noret;
static void C_ccall trf_7054(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7054(t0,t1);}

C_noret_decl(trf_7101)
static void C_ccall trf_7101(C_word c,C_word *av) C_noret;
static void C_ccall trf_7101(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7101(t0,t1,t2);}

C_noret_decl(trf_7161)
static void C_ccall trf_7161(C_word c,C_word *av) C_noret;
static void C_ccall trf_7161(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7161(t0,t1,t2);}

C_noret_decl(trf_7213)
static void C_ccall trf_7213(C_word c,C_word *av) C_noret;
static void C_ccall trf_7213(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7213(t0,t1);}

C_noret_decl(trf_7251)
static void C_ccall trf_7251(C_word c,C_word *av) C_noret;
static void C_ccall trf_7251(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7251(t0,t1,t2,t3);}

C_noret_decl(trf_7291)
static void C_ccall trf_7291(C_word c,C_word *av) C_noret;
static void C_ccall trf_7291(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7291(t0,t1,t2);}

C_noret_decl(trf_7309)
static void C_ccall trf_7309(C_word c,C_word *av) C_noret;
static void C_ccall trf_7309(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7309(t0,t1,t2);}

C_noret_decl(trf_7360)
static void C_ccall trf_7360(C_word c,C_word *av) C_noret;
static void C_ccall trf_7360(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7360(t0,t1,t2);}

C_noret_decl(trf_7383)
static void C_ccall trf_7383(C_word c,C_word *av) C_noret;
static void C_ccall trf_7383(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7383(t0,t1,t2);}

C_noret_decl(trf_7417)
static void C_ccall trf_7417(C_word c,C_word *av) C_noret;
static void C_ccall trf_7417(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7417(t0,t1);}

C_noret_decl(trf_7436)
static void C_ccall trf_7436(C_word c,C_word *av) C_noret;
static void C_ccall trf_7436(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7436(t0,t1);}

C_noret_decl(trf_7572)
static void C_ccall trf_7572(C_word c,C_word *av) C_noret;
static void C_ccall trf_7572(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7572(t0,t1,t2);}

C_noret_decl(trf_7595)
static void C_ccall trf_7595(C_word c,C_word *av) C_noret;
static void C_ccall trf_7595(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7595(t0,t1);}

C_noret_decl(trf_7606)
static void C_ccall trf_7606(C_word c,C_word *av) C_noret;
static void C_ccall trf_7606(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7606(t0,t1,t2,t3);}

C_noret_decl(trf_7638)
static void C_ccall trf_7638(C_word c,C_word *av) C_noret;
static void C_ccall trf_7638(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7638(t0,t1);}

C_noret_decl(trf_7641)
static void C_ccall trf_7641(C_word c,C_word *av) C_noret;
static void C_ccall trf_7641(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7641(t0,t1);}

C_noret_decl(trf_7693)
static void C_ccall trf_7693(C_word c,C_word *av) C_noret;
static void C_ccall trf_7693(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7693(t0,t1,t2);}

C_noret_decl(trf_7716)
static void C_ccall trf_7716(C_word c,C_word *av) C_noret;
static void C_ccall trf_7716(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7716(t0,t1);}

C_noret_decl(trf_7722)
static void C_ccall trf_7722(C_word c,C_word *av) C_noret;
static void C_ccall trf_7722(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7722(t0,t1,t2,t3);}

C_noret_decl(trf_7770)
static void C_ccall trf_7770(C_word c,C_word *av) C_noret;
static void C_ccall trf_7770(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7770(t0,t1,t2);}

C_noret_decl(trf_7865)
static void C_ccall trf_7865(C_word c,C_word *av) C_noret;
static void C_ccall trf_7865(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7865(t0,t1,t2,t3);}

C_noret_decl(trf_7889)
static void C_ccall trf_7889(C_word c,C_word *av) C_noret;
static void C_ccall trf_7889(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7889(t0,t1,t2);}

C_noret_decl(trf_7974)
static void C_ccall trf_7974(C_word c,C_word *av) C_noret;
static void C_ccall trf_7974(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7974(t0,t1,t2,t3);}

C_noret_decl(trf_8053)
static void C_ccall trf_8053(C_word c,C_word *av) C_noret;
static void C_ccall trf_8053(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8053(t0,t1,t2,t3);}

C_noret_decl(trf_8060)
static void C_ccall trf_8060(C_word c,C_word *av) C_noret;
static void C_ccall trf_8060(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8060(t0,t1);}

C_noret_decl(trf_8207)
static void C_ccall trf_8207(C_word c,C_word *av) C_noret;
static void C_ccall trf_8207(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8207(t0,t1,t2);}

C_noret_decl(trf_8221)
static void C_ccall trf_8221(C_word c,C_word *av) C_noret;
static void C_ccall trf_8221(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8221(t0,t1,t2,t3);}

C_noret_decl(trf_8281)
static void C_ccall trf_8281(C_word c,C_word *av) C_noret;
static void C_ccall trf_8281(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8281(t0,t1,t2,t3);}

C_noret_decl(trf_8293)
static void C_ccall trf_8293(C_word c,C_word *av) C_noret;
static void C_ccall trf_8293(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8293(t0,t1);}

C_noret_decl(trf_8295)
static void C_ccall trf_8295(C_word c,C_word *av) C_noret;
static void C_ccall trf_8295(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8295(t0,t1,t2);}

C_noret_decl(trf_8321)
static void C_ccall trf_8321(C_word c,C_word *av) C_noret;
static void C_ccall trf_8321(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8321(t0,t1);}

C_noret_decl(trf_8387)
static void C_ccall trf_8387(C_word c,C_word *av) C_noret;
static void C_ccall trf_8387(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8387(t0,t1);}

C_noret_decl(trf_8442)
static void C_ccall trf_8442(C_word c,C_word *av) C_noret;
static void C_ccall trf_8442(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8442(t0,t1,t2,t3);}

C_noret_decl(trf_8499)
static void C_ccall trf_8499(C_word c,C_word *av) C_noret;
static void C_ccall trf_8499(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8499(t0,t1,t2);}

C_noret_decl(trf_8602)
static void C_ccall trf_8602(C_word c,C_word *av) C_noret;
static void C_ccall trf_8602(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8602(t0,t1,t2,t3);}

C_noret_decl(trf_8618)
static void C_ccall trf_8618(C_word c,C_word *av) C_noret;
static void C_ccall trf_8618(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8618(t0,t1,t2,t3);}

C_noret_decl(trf_8654)
static void C_ccall trf_8654(C_word c,C_word *av) C_noret;
static void C_ccall trf_8654(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8654(t0,t1);}

C_noret_decl(trf_8712)
static void C_ccall trf_8712(C_word c,C_word *av) C_noret;
static void C_ccall trf_8712(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8712(t0,t1);}

C_noret_decl(trf_8785)
static void C_ccall trf_8785(C_word c,C_word *av) C_noret;
static void C_ccall trf_8785(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8785(t0,t1,t2);}

C_noret_decl(trf_8810)
static void C_ccall trf_8810(C_word c,C_word *av) C_noret;
static void C_ccall trf_8810(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8810(t0,t1);}

C_noret_decl(trf_8812)
static void C_ccall trf_8812(C_word c,C_word *av) C_noret;
static void C_ccall trf_8812(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8812(t0,t1,t2,t3);}

C_noret_decl(trf_8840)
static void C_ccall trf_8840(C_word c,C_word *av) C_noret;
static void C_ccall trf_8840(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8840(t0,t1,t2);}

C_noret_decl(trf_8973)
static void C_ccall trf_8973(C_word c,C_word *av) C_noret;
static void C_ccall trf_8973(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8973(t0,t1,t2);}

C_noret_decl(trf_9084)
static void C_ccall trf_9084(C_word c,C_word *av) C_noret;
static void C_ccall trf_9084(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9084(t0,t1,t2);}

C_noret_decl(trf_9123)
static void C_ccall trf_9123(C_word c,C_word *av) C_noret;
static void C_ccall trf_9123(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9123(t0,t1,t2);}

C_noret_decl(trf_9165)
static void C_ccall trf_9165(C_word c,C_word *av) C_noret;
static void C_ccall trf_9165(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9165(t0,t1,t2);}

C_noret_decl(trf_9210)
static void C_ccall trf_9210(C_word c,C_word *av) C_noret;
static void C_ccall trf_9210(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9210(t0,t1,t2);}

C_noret_decl(trf_9254)
static void C_ccall trf_9254(C_word c,C_word *av) C_noret;
static void C_ccall trf_9254(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9254(t0,t1);}

C_noret_decl(trf_9263)
static void C_ccall trf_9263(C_word c,C_word *av) C_noret;
static void C_ccall trf_9263(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9263(t0,t1,t2);}

C_noret_decl(trf_9289)
static void C_ccall trf_9289(C_word c,C_word *av) C_noret;
static void C_ccall trf_9289(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9289(t0,t1);}

C_noret_decl(trf_9330)
static void C_ccall trf_9330(C_word c,C_word *av) C_noret;
static void C_ccall trf_9330(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9330(t0,t1,t2);}

C_noret_decl(trf_9347)
static void C_ccall trf_9347(C_word c,C_word *av) C_noret;
static void C_ccall trf_9347(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9347(t0,t1,t2);}

C_noret_decl(trf_9398)
static void C_ccall trf_9398(C_word c,C_word *av) C_noret;
static void C_ccall trf_9398(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9398(t0,t1,t2);}

C_noret_decl(trf_9421)
static void C_ccall trf_9421(C_word c,C_word *av) C_noret;
static void C_ccall trf_9421(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9421(t0,t1);}

C_noret_decl(trf_9441)
static void C_ccall trf_9441(C_word c,C_word *av) C_noret;
static void C_ccall trf_9441(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9441(t0,t1,t2);}

C_noret_decl(trf_9466)
static void C_ccall trf_9466(C_word c,C_word *av) C_noret;
static void C_ccall trf_9466(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9466(t0,t1,t2);}

C_noret_decl(trf_9661)
static void C_ccall trf_9661(C_word c,C_word *av) C_noret;
static void C_ccall trf_9661(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_9661(t0,t1,t2,t3,t4);}

C_noret_decl(trf_9668)
static void C_ccall trf_9668(C_word c,C_word *av) C_noret;
static void C_ccall trf_9668(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9668(t0,t1);}

C_noret_decl(trf_9718)
static void C_ccall trf_9718(C_word c,C_word *av) C_noret;
static void C_ccall trf_9718(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9718(t0,t1,t2);}

C_noret_decl(trf_9779)
static void C_ccall trf_9779(C_word c,C_word *av) C_noret;
static void C_ccall trf_9779(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9779(t0,t1,t2);}

C_noret_decl(trf_9804)
static void C_ccall trf_9804(C_word c,C_word *av) C_noret;
static void C_ccall trf_9804(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9804(t0,t1,t2);}

C_noret_decl(trf_9825)
static void C_ccall trf_9825(C_word c,C_word *av) C_noret;
static void C_ccall trf_9825(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_9825(t0,t1,t2,t3,t4);}

C_noret_decl(trf_9835)
static void C_ccall trf_9835(C_word c,C_word *av) C_noret;
static void C_ccall trf_9835(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9835(t0,t1);}

C_noret_decl(trf_9844)
static void C_ccall trf_9844(C_word c,C_word *av) C_noret;
static void C_ccall trf_9844(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9844(t0,t1);}

C_noret_decl(trf_9856)
static void C_ccall trf_9856(C_word c,C_word *av) C_noret;
static void C_ccall trf_9856(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9856(t0,t1);}

C_noret_decl(trf_9868)
static void C_ccall trf_9868(C_word c,C_word *av) C_noret;
static void C_ccall trf_9868(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9868(t0,t1);}

C_noret_decl(trf_9880)
static void C_ccall trf_9880(C_word c,C_word *av) C_noret;
static void C_ccall trf_9880(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9880(t0,t1);}

C_noret_decl(trf_9892)
static void C_ccall trf_9892(C_word c,C_word *av) C_noret;
static void C_ccall trf_9892(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9892(t0,t1);}

C_noret_decl(trf_9902)
static void C_ccall trf_9902(C_word c,C_word *av) C_noret;
static void C_ccall trf_9902(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9902(t0,t1,t2);}

C_noret_decl(trf_9929)
static void C_ccall trf_9929(C_word c,C_word *av) C_noret;
static void C_ccall trf_9929(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9929(t0,t1);}

C_noret_decl(trva15287)
static void C_ccall trva15287(C_word c,C_word *av) C_noret;
static void C_ccall trva15287(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
va15287(t0,t1);}

C_noret_decl(trva15293)
static void C_ccall trva15293(C_word c,C_word *av) C_noret;
static void C_ccall trva15293(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
va15293(t0,t1);}

C_noret_decl(trva15323)
static void C_ccall trva15323(C_word c,C_word *av) C_noret;
static void C_ccall trva15323(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
va15323(t0,t1);}

C_noret_decl(trva15325)
static void C_ccall trva15325(C_word c,C_word *av) C_noret;
static void C_ccall trva15325(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
va15325(t0,t1);}

C_noret_decl(trva15333)
static void C_ccall trva15333(C_word c,C_word *av) C_noret;
static void C_ccall trva15333(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
va15333(t0,t1);}

C_noret_decl(trva15335)
static void C_ccall trva15335(C_word c,C_word *av) C_noret;
static void C_ccall trva15335(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
va15335(t0,t1);}

/* f14658 in k5546 in k5525 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f14658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14658,c,av);}
/* c-backend.scm:75: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[117];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14663 in k5591 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f14663(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14663,c,av);}
/* c-backend.scm:75: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[117];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14668 in k5612 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f14668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14668,c,av);}
/* c-backend.scm:75: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[117];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14676 in k5828 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f14676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f14676,c,av);}
/* c-backend.scm:358: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[140];
f_4518(3,av2);}}

/* f14681 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f14681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14681,c,av);}
/* c-backend.scm:74: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[194];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14686 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f14686(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14686,c,av);}
/* c-backend.scm:75: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[117];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14699 in k6285 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f14699(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f14699,c,av);}
/* c-backend.scm:432: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* f14703 in k6348 in k6345 in k6342 in k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f14703(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14703,c,av);}
/* c-backend.scm:464: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(41);
f_4518(4,av2);}}

/* f14710 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f14710(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14710,c,av);}
/* c-backend.scm:74: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[194];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14715 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f14715(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14715,c,av);}
/* c-backend.scm:75: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[117];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14784 in k7209 in k9026 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f14784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14784,c,av);}
/* c-backend.scm:75: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[117];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14791 in k9068 in for-each-loop1752 in k9046 in for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f14791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f14791,c,av);}
/* c-backend.scm:74: chicken.string#string-translate* */
t2=C_fast_retrieve(lf[116]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[194];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f14812 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f14812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f14812,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_10285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_10285,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10288,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* c-backend.scm:1197: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
f_4518(3,av2);}}

/* k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_10288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_10288,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10291,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[10])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10397,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1199: cleanup */
f_9254(t3,((C_word*)t0)[10]);}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_10291(2,av2);}}}

/* k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_10291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_10291,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10294,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
/* c-backend.scm:1200: generate-foreign-callback-header */
f_10456(t2,lf[603],((C_word*)t0)[9]);}

/* k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_10294(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,7)))){
C_save_and_reclaim((void *)f_10294,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10297,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_string_equal_p(lf[597],((C_word*)t0)[8]))){
/* c-backend.scm:1201: gen */
t3=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(123);
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[598];
av2[5]=((C_word*)t0)[8];
av2[6]=lf[599];
av2[7]=lf[600];
f_4518(8,av2);}}
else{
/* c-backend.scm:1201: gen */
t3=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(123);
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[598];
av2[5]=((C_word*)t0)[8];
av2[6]=lf[599];
av2[7]=lf[601];
f_4518(8,av2);}}}

/* k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_ccall f_10297(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_10297,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:1203: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[596];
f_4518(4,av2);}}

/* k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in ... */
static void C_ccall f_10300(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_10300,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10312,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:1208: scheme#reverse */
t3=*((C_word*)lf[595]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10307 in for-each-loop2178 in k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in ... */
static void C_ccall f_10309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10309,c,av);}
/* c-backend.scm:1206: gen */
t2=lf[4];{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[591];
av2[4]=t1;
av2[5]=((C_word*)t0)[3];
av2[6]=lf[592];
av2[7]=C_SCHEME_TRUE;
av2[8]=lf[593];
f_4518(9,av2);}}

/* k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in ... */
static void C_ccall f_10312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_10312,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10315,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:1209: scheme#reverse */
t3=*((C_word*)lf[595]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in ... */
static void C_ccall f_10315(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_10315,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10348,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_10348(t6,t2,((C_word*)t0)[6],t1);}

/* k10316 in k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_ccall f_10318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_10318,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=C_eqp(lf[580],((C_word*)t0)[3]);
if(C_truep(t3)){
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_10321(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10346,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1211: foreign-argument-conversion */
f_11626(t4,((C_word*)t0)[3]);}}

/* k10319 in k10316 in k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in ... */
static void C_ccall f_10321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_10321,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10324,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1212: gen */
t3=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[589];
av2[3]=((C_word*)t0)[4];
av2[4]=C_make_character(44);
av2[5]=((C_word*)t0)[5];
av2[6]=C_make_character(41);
f_4518(7,av2);}}

/* k10322 in k10319 in k10316 in k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in ... */
static void C_ccall f_10324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10324,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10327,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_eqp(lf[580],((C_word*)t0)[3]);
if(C_truep(t3)){
/* c-backend.scm:1214: gen */
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[588];
f_4518(3,av2);}}
else{
/* c-backend.scm:1213: gen */
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=C_make_character(41);
f_4518(3,av2);}}}

/* k10325 in k10322 in k10319 in k10316 in k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in ... */
static void C_ccall f_10327(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10327,c,av);}
/* c-backend.scm:1214: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[588];
f_4518(3,av2);}}

/* k10344 in k10316 in k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in ... */
static void C_ccall f_10346(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10346,c,av);}
/* c-backend.scm:1211: gen */
t2=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[590];
av2[4]=t1;
f_4518(5,av2);}}

/* for-each-loop2178 in k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_fcall f_10348(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_10348,4,t0,t1,t2,t3);}
a=C_alloc(10);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10358,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t7=C_slot(t2,C_fix(0));
t8=C_slot(t3,C_fix(0));
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10309,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1206: foreign-result-conversion */
f_12291(t9,t8,lf[594]);}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k10356 in for-each-loop2178 in k10313 in k10310 in k10298 in k10295 in k10292 in k10289 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in ... */
static void C_ccall f_10358(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10358,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10348(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10395 in k10286 in k10283 in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_10397(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10397,c,av);}
/* c-backend.scm:1199: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[604];
av2[4]=t1;
av2[5]=lf[605];
f_4518(6,av2);}}

/* loop in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_fcall f_10399(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_10399,5,t0,t1,t2,t3,t4);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_cdr(t2);
t6=C_i_cdr(t3);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10421,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1196: compute-size */
t8=((C_word*)((C_word*)t0)[3])[1];
f_9825(t8,t7,C_u_i_car(t2),C_u_i_car(t3),t4);}}

/* k10419 in loop in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_10421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10421,c,av);}
/* c-backend.scm:1195: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_10399(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* for-each-loop2001 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10433(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_10433,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10443,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1153: g2002 */
t4=((C_word*)t0)[3];
f_9804(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k10441 in for-each-loop2001 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10443(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10443,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10433(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10456(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_10456,3,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10460,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1218: chicken.compiler.support#foreign-callback-stub-name */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[676]);
C_word av2[3];
av2[0]=*((C_word*)lf[676]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}

/* k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10460(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_10460,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10463,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1219: chicken.compiler.support#foreign-callback-stub-qualifiers */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[675]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[675]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10463(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_10463,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10466,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:1220: chicken.compiler.support#foreign-callback-stub-return-type */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[609]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[609]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10466(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_10466,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10469,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:1221: chicken.compiler.support#foreign-callback-stub-argument-types */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[608]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[608]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10469(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_10469,c,av);}
a=C_alloc(8);
t2=C_i_length(t1);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10475,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:1223: make-argument-list */
f_9347(t3,t2,lf[674]);}

/* k10473 in k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10475(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_10475,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10478,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10530,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1224: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=lf[673];
tp(4,av2);}}

/* k10476 in k10473 in k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10478(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_10478,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10481,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10486,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_10486(t6,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k10479 in k10476 in k10473 in k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10481(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10481,c,av);}
/* c-backend.scm:1230: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* loop in k10476 in k10473 in k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10486(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_10486,4,t0,t1,t2,t3);}
a=C_alloc(9);
if(C_truep(C_i_nullp(t2))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10496,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10518,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1227: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t5;
av2[2]=C_i_car(t3);
av2[3]=C_i_car(t2);
tp(4,av2);}}}

/* k10494 in loop in k10476 in k10473 in k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10496(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10496,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10499,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[4])))){
/* c-backend.scm:1228: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(44);
f_4518(3,av2);}}
else{
/* c-backend.scm:1229: loop */
t3=((C_word*)((C_word*)t0)[2])[1];
f_10486(t3,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}}

/* k10497 in k10494 in loop in k10476 in k10473 in k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10499(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10499,c,av);}
/* c-backend.scm:1229: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_10486(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}

/* k10516 in loop in k10476 in k10473 in k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10518,c,av);}
/* c-backend.scm:1227: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
f_4518(3,av2);}}

/* k10528 in k10473 in k10467 in k10464 in k10461 in k10458 in chicken.compiler.c-backend#generate-foreign-callback-header in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10530(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_10530,c,av);}
/* c-backend.scm:1224: gen */
t2=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[3];
av2[4]=C_make_character(32);
av2[5]=t1;
av2[6]=((C_word*)t0)[4];
av2[7]=C_make_character(32);
av2[8]=((C_word*)t0)[5];
av2[9]=C_make_character(40);
f_4518(10,av2);}}

/* chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10532(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_10532,c,av);}
a=C_alloc(13);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10534,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10539,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t6=C_eqp(t2,lf[582]);
if(C_truep(t6)){
/* c-backend.scm:1239: str */
t7=t5;
f_10539(t7,t1,lf[680]);}
else{
t7=C_eqp(t2,lf[17]);
t8=(C_truep(t7)?t7:C_eqp(t2,lf[586]));
if(C_truep(t8)){
/* c-backend.scm:1240: str */
t9=t5;
f_10539(t9,t1,lf[681]);}
else{
t9=C_eqp(t2,lf[583]);
t10=(C_truep(t9)?t9:C_eqp(t2,lf[587]));
if(C_truep(t10)){
/* c-backend.scm:1241: str */
t11=t5;
f_10539(t11,t1,lf[682]);}
else{
t11=C_eqp(t2,lf[584]);
t12=(C_truep(t11)?t11:C_eqp(t2,lf[535]));
if(C_truep(t12)){
/* c-backend.scm:1242: str */
t13=t5;
f_10539(t13,t1,lf[683]);}
else{
t13=C_eqp(t2,lf[585]);
t14=(C_truep(t13)?t13:C_eqp(t2,lf[568]));
if(C_truep(t14)){
/* c-backend.scm:1243: str */
t15=t5;
f_10539(t15,t1,lf[684]);}
else{
t15=C_eqp(t2,lf[577]);
t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10609,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t15)){
t17=t16;
f_10609(t17,t15);}
else{
t17=C_eqp(t2,lf[570]);
t18=t16;
f_10609(t18,(C_truep(t17)?t17:C_eqp(t2,lf[14])));}}}}}}}

/* err in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10534(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_10534,2,t0,t1);}
/* c-backend.scm:1236: chicken.compiler.support#quit-compiling */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[677]);
C_word av2[4];
av2[0]=*((C_word*)lf[677]+1);
av2[1]=t1;
av2[2]=lf[678];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* str in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10539(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_10539,3,t0,t1,t2);}
/* c-backend.scm:1237: scheme#string-append */
t3=*((C_word*)lf[152]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
av2[3]=lf[679];
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10609(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_10609,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1244: str */
t2=((C_word*)t0)[2];
f_10539(t2,((C_word*)t0)[3],lf[685]);}
else{
t2=C_eqp(((C_word*)t0)[4],lf[566]);
if(C_truep(t2)){
/* c-backend.scm:1245: str */
t3=((C_word*)t0)[2];
f_10539(t3,((C_word*)t0)[3],lf[686]);}
else{
t3=C_eqp(((C_word*)t0)[4],lf[567]);
if(C_truep(t3)){
/* c-backend.scm:1246: str */
t4=((C_word*)t0)[2];
f_10539(t4,((C_word*)t0)[3],lf[687]);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[578]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[571]));
if(C_truep(t5)){
/* c-backend.scm:1247: str */
t6=((C_word*)t0)[2];
f_10539(t6,((C_word*)t0)[3],lf[688]);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[565]);
if(C_truep(t6)){
/* c-backend.scm:1248: str */
t7=((C_word*)t0)[2];
f_10539(t7,((C_word*)t0)[3],lf[689]);}
else{
t7=C_eqp(((C_word*)t0)[4],lf[537]);
if(C_truep(t7)){
/* c-backend.scm:1249: str */
t8=((C_word*)t0)[2];
f_10539(t8,((C_word*)t0)[3],lf[690]);}
else{
t8=C_eqp(((C_word*)t0)[4],lf[579]);
if(C_truep(t8)){
/* c-backend.scm:1250: str */
t9=((C_word*)t0)[2];
f_10539(t9,((C_word*)t0)[3],lf[691]);}
else{
t9=C_eqp(((C_word*)t0)[4],lf[569]);
if(C_truep(t9)){
/* c-backend.scm:1251: str */
t10=((C_word*)t0)[2];
f_10539(t10,((C_word*)t0)[3],lf[692]);}
else{
t10=C_eqp(((C_word*)t0)[4],lf[581]);
if(C_truep(t10)){
/* c-backend.scm:1252: str */
t11=((C_word*)t0)[2];
f_10539(t11,((C_word*)t0)[3],lf[693]);}
else{
t11=C_eqp(((C_word*)t0)[4],lf[572]);
if(C_truep(t11)){
/* c-backend.scm:1253: str */
t12=((C_word*)t0)[2];
f_10539(t12,((C_word*)t0)[3],lf[694]);}
else{
t12=C_eqp(((C_word*)t0)[4],lf[533]);
if(C_truep(t12)){
/* c-backend.scm:1254: str */
t13=((C_word*)t0)[2];
f_10539(t13,((C_word*)t0)[3],lf[695]);}
else{
t13=C_eqp(((C_word*)t0)[4],lf[574]);
t14=(C_truep(t13)?t13:C_eqp(((C_word*)t0)[4],lf[573]));
if(C_truep(t14)){
/* c-backend.scm:1255: str */
t15=((C_word*)t0)[2];
f_10539(t15,((C_word*)t0)[3],lf[696]);}
else{
t15=C_eqp(((C_word*)t0)[4],lf[550]);
t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t15)){
t17=t16;
f_10726(t17,t15);}
else{
t17=C_eqp(((C_word*)t0)[4],lf[552]);
if(C_truep(t17)){
t18=t16;
f_10726(t18,t17);}
else{
t18=C_eqp(((C_word*)t0)[4],lf[768]);
t19=t16;
f_10726(t19,(C_truep(t18)?t18:C_eqp(((C_word*)t0)[4],lf[769])));}}}}}}}}}}}}}}}

/* k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10726(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_10726,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1256: str */
t2=((C_word*)t0)[2];
f_10539(t2,((C_word*)t0)[3],lf[697]);}
else{
t2=C_eqp(((C_word*)t0)[4],lf[575]);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[576]));
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[698];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eqp(((C_word*)t0)[4],lf[699]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10747,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t4)){
t6=t5;
f_10747(t6,t4);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[765]);
if(C_truep(t6)){
t7=t5;
f_10747(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[4],lf[766]);
t8=t5;
f_10747(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[767])));}}}}}

/* k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10747(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_10747,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1258: str */
t2=((C_word*)t0)[2];
f_10539(t2,((C_word*)t0)[3],lf[700]);}
else{
t2=C_eqp(((C_word*)t0)[4],lf[701]);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[702]));
if(C_truep(t3)){
/* c-backend.scm:1259: str */
t4=((C_word*)t0)[2];
f_10539(t4,((C_word*)t0)[3],lf[703]);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[704]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[4],lf[705]));
if(C_truep(t5)){
/* c-backend.scm:1260: str */
t6=((C_word*)t0)[2];
f_10539(t6,((C_word*)t0)[3],lf[706]);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[707]);
t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[708]));
if(C_truep(t7)){
/* c-backend.scm:1261: str */
t8=((C_word*)t0)[2];
f_10539(t8,((C_word*)t0)[3],lf[709]);}
else{
t8=C_eqp(((C_word*)t0)[4],lf[710]);
t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[4],lf[711]));
if(C_truep(t9)){
/* c-backend.scm:1262: str */
t10=((C_word*)t0)[2];
f_10539(t10,((C_word*)t0)[3],lf[712]);}
else{
t10=C_eqp(((C_word*)t0)[4],lf[713]);
t11=(C_truep(t10)?t10:C_eqp(((C_word*)t0)[4],lf[714]));
if(C_truep(t11)){
/* c-backend.scm:1263: str */
t12=((C_word*)t0)[2];
f_10539(t12,((C_word*)t0)[3],lf[715]);}
else{
t12=C_eqp(((C_word*)t0)[4],lf[716]);
t13=(C_truep(t12)?t12:C_eqp(((C_word*)t0)[4],lf[717]));
if(C_truep(t13)){
/* c-backend.scm:1264: str */
t14=((C_word*)t0)[2];
f_10539(t14,((C_word*)t0)[3],lf[718]);}
else{
t14=C_eqp(((C_word*)t0)[4],lf[719]);
t15=(C_truep(t14)?t14:C_eqp(((C_word*)t0)[4],lf[720]));
if(C_truep(t15)){
/* c-backend.scm:1265: str */
t16=((C_word*)t0)[2];
f_10539(t16,((C_word*)t0)[3],lf[721]);}
else{
t16=C_eqp(((C_word*)t0)[4],lf[722]);
t17=(C_truep(t16)?t16:C_eqp(((C_word*)t0)[4],lf[723]));
if(C_truep(t17)){
/* c-backend.scm:1266: str */
t18=((C_word*)t0)[2];
f_10539(t18,((C_word*)t0)[3],lf[724]);}
else{
t18=C_eqp(((C_word*)t0)[4],lf[725]);
t19=(C_truep(t18)?t18:C_eqp(((C_word*)t0)[4],lf[726]));
if(C_truep(t19)){
/* c-backend.scm:1267: str */
t20=((C_word*)t0)[2];
f_10539(t20,((C_word*)t0)[3],lf[727]);}
else{
t20=C_eqp(((C_word*)t0)[4],lf[728]);
t21=(C_truep(t20)?t20:C_eqp(((C_word*)t0)[4],lf[729]));
if(C_truep(t21)){
/* c-backend.scm:1268: str */
t22=((C_word*)t0)[2];
f_10539(t22,((C_word*)t0)[3],lf[730]);}
else{
t22=C_eqp(((C_word*)t0)[4],lf[543]);
t23=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10879,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t22)){
t24=t23;
f_10879(t24,t22);}
else{
t24=C_eqp(((C_word*)t0)[4],lf[539]);
if(C_truep(t24)){
t25=t23;
f_10879(t25,t24);}
else{
t25=C_eqp(((C_word*)t0)[4],lf[558]);
if(C_truep(t25)){
t26=t23;
f_10879(t26,t25);}
else{
t26=C_eqp(((C_word*)t0)[4],lf[562]);
t27=t23;
f_10879(t27,(C_truep(t26)?t26:C_eqp(((C_word*)t0)[4],lf[561])));}}}}}}}}}}}}}}}

/* k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10879(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_10879,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1270: str */
t2=((C_word*)t0)[2];
f_10539(t2,((C_word*)t0)[3],lf[731]);}
else{
t2=C_eqp(((C_word*)t0)[4],lf[559]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_10891(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[560]);
if(C_truep(t4)){
t5=t3;
f_10891(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[563]);
t6=t3;
f_10891(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[564])));}}}}

/* k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10891(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_10891,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1272: str */
t2=((C_word*)t0)[2];
f_10539(t2,((C_word*)t0)[3],lf[732]);}
else{
t2=C_eqp(((C_word*)t0)[4],lf[580]);
if(C_truep(t2)){
/* c-backend.scm:1273: str */
t3=((C_word*)t0)[2];
f_10539(t3,((C_word*)t0)[3],lf[733]);}
else{
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10906,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){
/* c-backend.scm:1275: chicken.compiler.support#lookup-foreign-type */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[557]);
C_word av2[3];
av2[0]=*((C_word*)lf[557]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_10906(2,av2);}}}}}

/* k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10906(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_10906,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10910,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1275: g2347 */
t3=t2;
f_10910(t3,((C_word*)t0)[3],t1);}
else{
if(C_truep(C_i_stringp(((C_word*)t0)[4]))){
/* c-backend.scm:1278: str */
t2=((C_word*)t0)[5];
f_10539(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
if(C_truep(C_i_listp(((C_word*)t0)[4]))){
t2=C_u_i_length(((C_word*)t0)[4]);
t3=C_eqp(C_fix(2),t2);
t4=(C_truep(t3)?C_u_i_memq(C_i_car(((C_word*)t0)[4]),lf[734]):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_i_cadr(((C_word*)t0)[4]);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10954,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1286: scheme#string-append */
t7=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[735];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t5=C_eqp(C_fix(2),t2);
t6=(C_truep(t5)?C_eqp(lf[546],C_i_car(((C_word*)t0)[4])):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=C_i_cadr(((C_word*)t0)[4]);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10971,a[2]=((C_word*)t0)[3],a[3]=t7,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1289: scheme#string-append */
t9=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[736];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
else{
t7=C_fixnum_greaterp(t2,C_fix(2));
t8=(C_truep(t7)?C_eqp(lf[737],C_i_car(((C_word*)t0)[4])):C_SCHEME_FALSE);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10984,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10988,a[2]=t9,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1294: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t10;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
av2[3]=lf[742];
tp(4,av2);}}
else{
t9=C_eqp(t2,C_fix(2));
t10=(C_truep(t9)?C_eqp(lf[548],C_i_car(((C_word*)t0)[4])):C_SCHEME_FALSE);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11061,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1301: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t11;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}
else{
t11=C_eqp(t2,C_fix(2));
t12=(C_truep(t11)?C_eqp(lf[744],C_i_car(((C_word*)t0)[4])):C_SCHEME_FALSE);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11078,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1303: chicken.string#->string */
t14=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t14;
av2[1]=t13;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}
else{
t13=C_eqp(t2,C_fix(2));
t14=(C_truep(t13)?C_eqp(lf[747],C_i_car(((C_word*)t0)[4])):C_SCHEME_FALSE);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11095,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1305: chicken.string#->string */
t16=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t16;
av2[1]=t15;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}
else{
t15=C_eqp(t2,C_fix(2));
t16=(C_truep(t15)?C_eqp(lf[750],C_i_car(((C_word*)t0)[4])):C_SCHEME_FALSE);
if(C_truep(t16)){
t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11112,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1307: chicken.string#->string */
t18=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t18;
av2[1]=t17;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t18+1)))(3,av2);}}
else{
t17=C_eqp(t2,C_fix(3));
t18=(C_truep(t17)?C_u_i_memq(C_i_car(((C_word*)t0)[4]),lf[753]):C_SCHEME_FALSE);
if(C_truep(t18)){
t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11129,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1309: chicken.string#->string */
t20=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t20;
av2[1]=t19;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}}
else{
t19=C_eqp(t2,C_fix(3));
t20=(C_truep(t19)?C_eqp(lf[556],C_i_car(((C_word*)t0)[4])):C_SCHEME_FALSE);
if(C_truep(t20)){
t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11146,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1311: chicken.string#->string */
t22=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t22;
av2[1]=t21;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}}
else{
t21=C_fixnum_greater_or_equal_p(t2,C_fix(3));
t22=(C_truep(t21)?C_eqp(lf[553],C_i_car(((C_word*)t0)[4])):C_SCHEME_FALSE);
if(C_truep(t22)){
t23=C_i_cadr(((C_word*)t0)[4]);
t24=C_i_caddr(((C_word*)t0)[4]);
t25=C_u_i_cdr(((C_word*)t0)[4]);
t26=C_u_i_cdr(t25);
t27=C_u_i_cdr(t26);
t28=C_i_nullp(t27);
t29=(C_truep(t28)?lf[756]:C_i_car(t27));
t30=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11175,a[2]=((C_word*)t0)[3],a[3]=t29,a[4]=((C_word*)t0)[2],a[5]=t24,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1317: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t30;
av2[2]=t23;
av2[3]=lf[764];
tp(4,av2);}}
else{
/* c-backend.scm:1328: err */
t23=((C_word*)t0)[6];
f_10534(t23,((C_word*)t0)[3]);}}}}}}}}}}}
else{
/* c-backend.scm:1329: err */
t2=((C_word*)t0)[6];
f_10534(t2,((C_word*)t0)[3]);}}}}

/* g2347 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_10910(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_10910,3,t0,t1,t2);}
/* c-backend.scm:1277: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t1;
av2[2]=C_i_vector_ref(t2,C_fix(0));
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* k10952 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10954(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10954,c,av);}
/* c-backend.scm:1286: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k10969 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10971,c,av);}
/* c-backend.scm:1289: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k10982 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10984(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10984,c,av);}
/* c-backend.scm:1292: str */
t2=((C_word*)t0)[2];
f_10539(t2,((C_word*)t0)[3],t1);}

/* k10986 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10988(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_10988,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10992,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_cddr(((C_word*)t0)[3]);
t8=C_i_check_list_2(t7,lf[308]);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11010,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11012,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t13=((C_word*)t11)[1];
f_11012(t13,t9,t7);}

/* k10990 in k10986 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_10992(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10992,c,av);}
/* c-backend.scm:1293: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[738];
av2[4]=t1;
av2[5]=lf[739];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k11008 in k10986 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11010(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11010,c,av);}
/* c-backend.scm:1296: chicken.string#string-intersperse */
t2=C_fast_retrieve(lf[301]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[740];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop2360 in k10986 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11012(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_11012,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11037,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
t5=*((C_word*)lf[243]+1);
/* c-backend.scm:1297: g2383 */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[741];
tp(4,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11035 in map-loop2360 in k10986 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11037(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11037,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11012(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11059 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11061,c,av);}
/* c-backend.scm:1301: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[743];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k11076 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_11078,c,av);}
/* c-backend.scm:1303: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[745];
av2[3]=t1;
av2[4]=lf[746];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k11093 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11095(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_11095,c,av);}
/* c-backend.scm:1305: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[748];
av2[3]=t1;
av2[4]=lf[749];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k11110 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11112(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_11112,c,av);}
/* c-backend.scm:1307: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[751];
av2[3]=t1;
av2[4]=lf[752];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k11127 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11129,c,av);}
/* c-backend.scm:1309: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[754];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k11144 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11146(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11146,c,av);}
/* c-backend.scm:1311: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[755];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k11173 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_11175,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11179,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(((C_word*)t0)[5],lf[308]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11200,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11202,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_11202(t12,t8,((C_word*)t0)[5]);}

/* k11177 in k11173 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11179(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_11179,c,av);}
/* c-backend.scm:1316: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[757];
av2[5]=((C_word*)t0)[5];
av2[6]=lf[758];
av2[7]=t1;
av2[8]=lf[759];
((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}}

/* k11198 in k11173 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11200(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11200,c,av);}
/* c-backend.scm:1320: chicken.string#string-intersperse */
t2=C_fast_retrieve(lf[301]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[760];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop2408 in k11173 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11202(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_11202,3,t0,t1,t2);}
a=C_alloc(12);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11212,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11227,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=C_slot(t2,C_fix(0));
t6=C_eqp(lf[761],t5);
if(C_truep(t6)){
t7=t3;
f_11212(t7,C_a_i_cons(&a,2,lf[762],C_SCHEME_END_OF_LIST));}
else{
/* c-backend.scm:1324: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t4;
av2[2]=t5;
av2[3]=lf[763];
tp(4,av2);}}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11210 in map-loop2408 in k11173 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11212(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
C_save_and_reclaim_args((void *)trf_11212,2,t0,t1);}
t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t4=((C_word*)((C_word*)t0)[3])[1];
f_11202(t4,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11225 in map-loop2408 in k11173 in k10904 in k10889 in k10877 in k10745 in k10724 in k10607 in chicken.compiler.c-backend#foreign-type-declaration in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11227(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_11227,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
f_11212(t2,C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST));}

/* chicken.compiler.c-backend#foreign-argument-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11626(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_11626,2,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11628,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=C_eqp(t2,lf[582]);
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[771];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(t2,lf[17]);
t6=(C_truep(t5)?t5:C_eqp(t2,lf[583]));
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=lf[772];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(t2,lf[586]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11656,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t7)){
t9=t8;
f_11656(t9,t7);}
else{
t9=C_eqp(t2,lf[577]);
if(C_truep(t9)){
t10=t8;
f_11656(t10,t9);}
else{
t10=C_eqp(t2,lf[578]);
if(C_truep(t10)){
t11=t8;
f_11656(t11,t10);}
else{
t11=C_eqp(t2,lf[584]);
if(C_truep(t11)){
t12=t8;
f_11656(t12,t11);}
else{
t12=C_eqp(t2,lf[585]);
t13=t8;
f_11656(t13,(C_truep(t12)?t12:C_eqp(t2,lf[587])));}}}}}}}

/* err in chicken.compiler.c-backend#foreign-argument-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11628(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_11628,2,t0,t1);}
/* c-backend.scm:1336: chicken.compiler.support#quit-compiling */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[677]);
C_word av2[4];
av2[0]=*((C_word*)lf[677]+1);
av2[1]=t1;
av2[2]=lf[770];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* k11654 in chicken.compiler.c-backend#foreign-argument-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11656(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_11656,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=lf[773];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[3],lf[579]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[774];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t0)[3],lf[581]);
if(C_truep(t3)){
t4=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[775];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eqp(((C_word*)t0)[3],lf[572]);
if(C_truep(t4)){
t5=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[776];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t0)[3],lf[574]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t5)){
t7=t6;
f_11683(t7,t5);}
else{
t7=C_eqp(((C_word*)t0)[3],lf[573]);
t8=t6;
f_11683(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[533])));}}}}}}

/* k11681 in k11654 in chicken.compiler.c-backend#foreign-argument-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11683(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_11683,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=lf[777];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[3],lf[570]);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[571]));
if(C_truep(t3)){
t4=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[778];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_eqp(((C_word*)t0)[3],lf[565]);
if(C_truep(t4)){
t5=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[779];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t0)[3],lf[566]);
if(C_truep(t5)){
t6=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t6;
av2[1]=lf[780];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_eqp(((C_word*)t0)[3],lf[567]);
if(C_truep(t6)){
t7=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t7;
av2[1]=lf[781];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t0)[3],lf[537]);
if(C_truep(t7)){
t8=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[782];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(((C_word*)t0)[3],lf[569]);
if(C_truep(t8)){
t9=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[783];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(((C_word*)t0)[3],lf[535]);
t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[3],lf[568]));
if(C_truep(t10)){
t11=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t11;
av2[1]=lf[784];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(((C_word*)t0)[3],lf[768]);
if(C_truep(t11)){
t12=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t12;
av2[1]=lf[785];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(((C_word*)t0)[3],lf[769]);
if(C_truep(t12)){
t13=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t13;
av2[1]=lf[786];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t13=C_eqp(((C_word*)t0)[3],lf[550]);
if(C_truep(t13)){
t14=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t14;
av2[1]=lf[787];
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t14=C_eqp(((C_word*)t0)[3],lf[552]);
if(C_truep(t14)){
t15=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t15;
av2[1]=lf[788];
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t15=C_eqp(((C_word*)t0)[3],lf[699]);
if(C_truep(t15)){
t16=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t16;
av2[1]=lf[789];
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}
else{
t16=C_eqp(((C_word*)t0)[3],lf[765]);
if(C_truep(t16)){
t17=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t17;
av2[1]=lf[790];
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
t17=C_eqp(((C_word*)t0)[3],lf[766]);
if(C_truep(t17)){
t18=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t18;
av2[1]=lf[791];
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
else{
t18=C_eqp(((C_word*)t0)[3],lf[767]);
if(C_truep(t18)){
t19=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t19;
av2[1]=lf[792];
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t19=C_eqp(((C_word*)t0)[3],lf[701]);
if(C_truep(t19)){
t20=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t20;
av2[1]=lf[793];
((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}
else{
t20=C_eqp(((C_word*)t0)[3],lf[702]);
if(C_truep(t20)){
t21=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t21;
av2[1]=lf[794];
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}
else{
t21=C_eqp(((C_word*)t0)[3],lf[707]);
if(C_truep(t21)){
t22=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t22;
av2[1]=lf[795];
((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}
else{
t22=C_eqp(((C_word*)t0)[3],lf[708]);
if(C_truep(t22)){
t23=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t23;
av2[1]=lf[796];
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}
else{
t23=C_eqp(((C_word*)t0)[3],lf[710]);
if(C_truep(t23)){
t24=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t24;
av2[1]=lf[797];
((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}}
else{
t24=C_eqp(((C_word*)t0)[3],lf[711]);
if(C_truep(t24)){
t25=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t25;
av2[1]=lf[798];
((C_proc)(void*)(*((C_word*)t25+1)))(2,av2);}}
else{
t25=C_eqp(((C_word*)t0)[3],lf[704]);
if(C_truep(t25)){
t26=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t26;
av2[1]=lf[799];
((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}}
else{
t26=C_eqp(((C_word*)t0)[3],lf[705]);
if(C_truep(t26)){
t27=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t27;
av2[1]=lf[800];
((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}}
else{
t27=C_eqp(((C_word*)t0)[3],lf[713]);
if(C_truep(t27)){
t28=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t28;
av2[1]=lf[801];
((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}}
else{
t28=C_eqp(((C_word*)t0)[3],lf[714]);
if(C_truep(t28)){
t29=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t29;
av2[1]=lf[802];
((C_proc)(void*)(*((C_word*)t29+1)))(2,av2);}}
else{
t29=C_eqp(((C_word*)t0)[3],lf[716]);
if(C_truep(t29)){
t30=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t30;
av2[1]=lf[803];
((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}}
else{
t30=C_eqp(((C_word*)t0)[3],lf[717]);
if(C_truep(t30)){
t31=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t31;
av2[1]=lf[804];
((C_proc)(void*)(*((C_word*)t31+1)))(2,av2);}}
else{
t31=C_eqp(((C_word*)t0)[3],lf[719]);
if(C_truep(t31)){
t32=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t32;
av2[1]=lf[805];
((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}}
else{
t32=C_eqp(((C_word*)t0)[3],lf[720]);
if(C_truep(t32)){
t33=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t33;
av2[1]=lf[806];
((C_proc)(void*)(*((C_word*)t33+1)))(2,av2);}}
else{
t33=C_eqp(((C_word*)t0)[3],lf[722]);
if(C_truep(t33)){
t34=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t34;
av2[1]=lf[807];
((C_proc)(void*)(*((C_word*)t34+1)))(2,av2);}}
else{
t34=C_eqp(((C_word*)t0)[3],lf[723]);
if(C_truep(t34)){
t35=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t35;
av2[1]=lf[808];
((C_proc)(void*)(*((C_word*)t35+1)))(2,av2);}}
else{
t35=C_eqp(((C_word*)t0)[3],lf[725]);
if(C_truep(t35)){
t36=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t36;
av2[1]=lf[809];
((C_proc)(void*)(*((C_word*)t36+1)))(2,av2);}}
else{
t36=C_eqp(((C_word*)t0)[3],lf[726]);
if(C_truep(t36)){
t37=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t37;
av2[1]=lf[810];
((C_proc)(void*)(*((C_word*)t37+1)))(2,av2);}}
else{
t37=C_eqp(((C_word*)t0)[3],lf[728]);
if(C_truep(t37)){
t38=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t38;
av2[1]=lf[811];
((C_proc)(void*)(*((C_word*)t38+1)))(2,av2);}}
else{
t38=C_eqp(((C_word*)t0)[3],lf[729]);
if(C_truep(t38)){
t39=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t39;
av2[1]=lf[812];
((C_proc)(void*)(*((C_word*)t39+1)))(2,av2);}}
else{
t39=C_eqp(((C_word*)t0)[3],lf[539]);
t40=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11908,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t39)){
t41=t40;
f_11908(t41,t39);}
else{
t41=C_eqp(((C_word*)t0)[3],lf[562]);
if(C_truep(t41)){
t42=t40;
f_11908(t42,t41);}
else{
t42=C_eqp(((C_word*)t0)[3],lf[563]);
t43=t40;
f_11908(t43,(C_truep(t42)?t42:C_eqp(((C_word*)t0)[3],lf[564])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k11906 in k11681 in k11654 in chicken.compiler.c-backend#foreign-argument-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11908(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_11908,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=lf[813];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[3],lf[543]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11917,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t2)){
t4=t3;
f_11917(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[3],lf[558]);
if(C_truep(t4)){
t5=t3;
f_11917(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[3],lf[559]);
if(C_truep(t5)){
t6=t3;
f_11917(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[3],lf[560]);
t7=t3;
f_11917(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[3],lf[561])));}}}}}

/* k11915 in k11906 in k11681 in k11654 in chicken.compiler.c-backend#foreign-argument-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_11917(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_11917,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=lf[814];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[3],lf[14]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[815];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
/* c-backend.scm:1385: chicken.compiler.support#lookup-foreign-type */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[557]);
C_word av2[3];
av2[0]=*((C_word*)lf[557]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_11926(2,av2);}}}}}

/* k11924 in k11915 in k11906 in k11681 in k11654 in chicken.compiler.c-backend#foreign-argument-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_11926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11926,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
/* c-backend.scm:1387: foreign-argument-conversion */
f_11626(((C_word*)t0)[2],C_i_vector_ref(t1,C_fix(0)));}
else{
t2=C_i_listp(((C_word*)t0)[3]);
t3=(C_truep(t2)?C_fixnum_greater_or_equal_p(C_u_i_length(((C_word*)t0)[3]),C_fix(2)):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[3]);
t5=C_eqp(t4,lf[550]);
if(C_truep(t5)){
t6=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=lf[816];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_eqp(t4,lf[552]);
if(C_truep(t6)){
t7=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[817];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(t4,lf[554]);
if(C_truep(t7)){
t8=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t8;
av2[1]=lf[818];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(t4,lf[555]);
if(C_truep(t8)){
t9=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t9;
av2[1]=lf[819];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(t4,lf[768]);
if(C_truep(t9)){
t10=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t10;
av2[1]=lf[820];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=C_eqp(t4,lf[769]);
if(C_truep(t10)){
t11=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t11;
av2[1]=lf[821];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(t4,lf[553]);
if(C_truep(t11)){
t12=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t12;
av2[1]=lf[822];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(t4,lf[548]);
if(C_truep(t12)){
/* c-backend.scm:1397: foreign-argument-conversion */
f_11626(((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[3]));}
else{
t13=C_eqp(t4,lf[750]);
if(C_truep(t13)){
t14=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t14;
av2[1]=lf[823];
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t14=C_eqp(t4,lf[546]);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12024,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1400: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t15;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
av2[3]=lf[826];
tp(4,av2);}}
else{
t15=C_eqp(t4,lf[556]);
if(C_truep(t15)){
/* c-backend.scm:1403: scheme#string-append */
t16=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t16;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[827];
av2[3]=C_i_cadr(((C_word*)t0)[3]);
av2[4]=lf[828];
((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}}
else{
/* c-backend.scm:1404: err */
t16=((C_word*)t0)[4];
f_11628(t16,((C_word*)t0)[2]);}}}}}}}}}}}}
else{
/* c-backend.scm:1405: err */
t4=((C_word*)t0)[4];
f_11628(t4,((C_word*)t0)[2]);}}}

/* k12022 in k11924 in k11915 in k11906 in k11681 in k11654 in chicken.compiler.c-backend#foreign-argument-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12024(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12024,c,av);}
/* c-backend.scm:1400: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[824];
av2[3]=t1;
av2[4]=lf[825];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_12291(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_12291,3,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12293,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=C_eqp(t2,lf[17]);
t6=(C_truep(t5)?t5:C_eqp(t2,lf[583]));
if(C_truep(t6)){
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=lf[830];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(t2,lf[577]);
t8=(C_truep(t7)?t7:C_eqp(t2,lf[578]));
if(C_truep(t8)){
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[831];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(t2,lf[584]);
t10=(C_truep(t9)?t9:C_eqp(t2,lf[585]));
if(C_truep(t10)){
t11=t1;{
C_word av2[2];
av2[0]=t11;
av2[1]=lf[832];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(t2,lf[579]);
if(C_truep(t11)){
t12=t1;{
C_word av2[2];
av2[0]=t12;
av2[1]=lf[833];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(t2,lf[581]);
if(C_truep(t12)){
t13=t1;{
C_word av2[2];
av2[0]=t13;
av2[1]=lf[834];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t13=C_eqp(t2,lf[586]);
if(C_truep(t13)){
t14=t1;{
C_word av2[2];
av2[0]=t14;
av2[1]=lf[835];
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t14=C_eqp(t2,lf[587]);
if(C_truep(t14)){
t15=t1;{
C_word av2[2];
av2[0]=t15;
av2[1]=lf[836];
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t15=C_eqp(t2,lf[533]);
t16=(C_truep(t15)?t15:C_eqp(t2,lf[574]));
if(C_truep(t16)){
t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12360,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1421: chicken.base#open-output-string */
t18=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t18;
av2[1]=t17;
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
else{
t17=C_eqp(t2,lf[573]);
if(C_truep(t17)){
t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12384,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1422: chicken.base#open-output-string */
t19=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t19;
av2[1]=t18;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t18=C_eqp(t2,lf[543]);
t19=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12408,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t18)){
t20=t19;
f_12408(t20,t18);}
else{
t20=C_eqp(t2,lf[539]);
if(C_truep(t20)){
t21=t19;
f_12408(t21,t20);}
else{
t21=C_eqp(t2,lf[552]);
if(C_truep(t21)){
t22=t19;
f_12408(t22,t21);}
else{
t22=C_eqp(t2,lf[562]);
if(C_truep(t22)){
t23=t19;
f_12408(t23,t22);}
else{
t23=C_eqp(t2,lf[558]);
if(C_truep(t23)){
t24=t19;
f_12408(t24,t23);}
else{
t24=C_eqp(t2,lf[563]);
if(C_truep(t24)){
t25=t19;
f_12408(t25,t24);}
else{
t25=C_eqp(t2,lf[564]);
if(C_truep(t25)){
t26=t19;
f_12408(t26,t25);}
else{
t26=C_eqp(t2,lf[559]);
if(C_truep(t26)){
t27=t19;
f_12408(t27,t26);}
else{
t27=C_eqp(t2,lf[560]);
if(C_truep(t27)){
t28=t19;
f_12408(t28,t27);}
else{
t28=C_eqp(t2,lf[561]);
if(C_truep(t28)){
t29=t19;
f_12408(t29,t28);}
else{
t29=C_eqp(t2,lf[575]);
t30=t19;
f_12408(t30,(C_truep(t29)?t29:C_eqp(t2,lf[576])));}}}}}}}}}}}}}}}}}}}}

/* err in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_12293(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_12293,2,t0,t1);}
/* c-backend.scm:1412: chicken.compiler.support#quit-compiling */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[677]);
C_word av2[4];
av2[0]=*((C_word*)lf[677]+1);
av2[1]=t1;
av2[2]=lf[829];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* k12358 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12360,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12366,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1421: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[837];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12364 in k12358 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12366(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12366,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1421: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12367 in k12364 in k12358 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12369,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1421: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12370 in k12367 in k12364 in k12358 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12372(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12372,c,av);}
/* c-backend.scm:1421: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12382 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12384,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12390,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1422: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[838];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12388 in k12382 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12390,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1422: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12391 in k12388 in k12382 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12393(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12393,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12396,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1422: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12394 in k12391 in k12388 in k12382 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12396(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12396,c,av);}
/* c-backend.scm:1422: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_12408(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_12408,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1426: chicken.base#open-output-string */
t3=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[550]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12435,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1427: chicken.base#open-output-string */
t4=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t0)[4],lf[570]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[4],lf[571]));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1428: chicken.base#open-output-string */
t6=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t0)[4],lf[565]);
t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[567]));
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12489,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1429: chicken.base#open-output-string */
t8=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t0)[4],lf[537]);
t8=(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[566]));
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12516,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1430: chicken.base#open-output-string */
t10=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t9=C_eqp(((C_word*)t0)[4],lf[535]);
t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[4],lf[568]));
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1431: chicken.base#open-output-string */
t12=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t12;
av2[1]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t11=C_eqp(((C_word*)t0)[4],lf[569]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12567,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1432: chicken.base#open-output-string */
t13=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t13;
av2[1]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t12=C_eqp(((C_word*)t0)[4],lf[572]);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12591,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1433: chicken.base#open-output-string */
t14=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t14;
av2[1]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t13=C_eqp(((C_word*)t0)[4],lf[14]);
if(C_truep(t13)){
t14=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t14;
av2[1]=lf[849];
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t14=C_eqp(((C_word*)t0)[4],lf[580]);
t15=(C_truep(t14)?t14:C_eqp(((C_word*)t0)[4],lf[582]));
if(C_truep(t15)){
t16=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t16;
av2[1]=lf[850];
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}
else{
t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12624,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){
/* c-backend.scm:1437: chicken.compiler.support#lookup-foreign-type */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[557]);
C_word av2[3];
av2[0]=*((C_word*)lf[557]+1);
av2[1]=t16;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t17=t16;{
C_word av2[2];
av2[0]=t17;
av2[1]=C_SCHEME_FALSE;
f_12624(2,av2);}}}}}}}}}}}}}

/* k12409 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12411(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12411,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12417,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1426: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[840];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12415 in k12409 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12417(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12417,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1426: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12418 in k12415 in k12409 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12420(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12420,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1426: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[839];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12421 in k12418 in k12415 in k12409 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12423(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12423,c,av);}
/* c-backend.scm:1426: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12433 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12435(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12435,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12441,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1427: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[842];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12439 in k12433 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12441(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12441,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12444,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1427: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12442 in k12439 in k12433 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12444(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12444,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1427: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[841];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12445 in k12442 in k12439 in k12433 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12447,c,av);}
/* c-backend.scm:1427: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12460 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12462(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12462,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12468,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1428: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[843];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12466 in k12460 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12468(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12468,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12471,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1428: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12469 in k12466 in k12460 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12471,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12474,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1428: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12472 in k12469 in k12466 in k12460 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12474(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12474,c,av);}
/* c-backend.scm:1428: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12487 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12489(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12489,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12495,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1429: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[844];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12493 in k12487 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12495(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12495,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12498,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1429: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12496 in k12493 in k12487 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12498(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12498,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1429: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12499 in k12496 in k12493 in k12487 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12501(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12501,c,av);}
/* c-backend.scm:1429: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12514 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12516(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12516,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12522,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1430: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[845];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12520 in k12514 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12522,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1430: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12523 in k12520 in k12514 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12525(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12525,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12528,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1430: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12526 in k12523 in k12520 in k12514 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12528(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12528,c,av);}
/* c-backend.scm:1430: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12541 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12543,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12549,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1431: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[846];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12547 in k12541 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12549,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1431: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12550 in k12547 in k12541 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12552(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12552,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1431: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12553 in k12550 in k12547 in k12541 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12555,c,av);}
/* c-backend.scm:1431: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12565 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12567,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12573,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1432: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[847];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12571 in k12565 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12573(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12573,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12576,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1432: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12574 in k12571 in k12565 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12576(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12576,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12579,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1432: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12577 in k12574 in k12571 in k12565 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12579(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12579,c,av);}
/* c-backend.scm:1432: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12589 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12591(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12591,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12597,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1433: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[848];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12595 in k12589 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12597(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12597,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12600,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1433: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12598 in k12595 in k12589 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12600(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12600,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12603,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1433: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12601 in k12598 in k12595 in k12589 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12603(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12603,c,av);}
/* c-backend.scm:1433: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12624,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12628,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1437: g2707 */
t3=t2;
f_12628(t3,((C_word*)t0)[3],t1);}
else{
t2=C_i_listp(((C_word*)t0)[4]);
t3=(C_truep(t2)?C_fixnum_greater_or_equal_p(C_u_i_length(((C_word*)t0)[4]),C_fix(2)):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[4]);
t5=C_eqp(t4,lf[551]);
t6=(C_truep(t5)?t5:C_eqp(t4,lf[552]));
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12660,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1443: chicken.base#open-output-string */
t8=C_fast_retrieve(lf[358]);{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=C_eqp(t4,lf[546]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12684,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1445: chicken.base#open-output-string */
t9=C_fast_retrieve(lf[358]);{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=C_eqp(t4,lf[554]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12708,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1447: chicken.base#open-output-string */
t10=C_fast_retrieve(lf[358]);{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t9=C_eqp(t4,lf[555]);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12732,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1449: chicken.base#open-output-string */
t11=C_fast_retrieve(lf[358]);{
C_word *av2=av;
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t10=C_eqp(t4,lf[556]);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12756,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1451: chicken.base#open-output-string */
t12=C_fast_retrieve(lf[358]);{
C_word *av2=av;
av2[0]=t12;
av2[1]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t11=C_eqp(t4,lf[548]);
if(C_truep(t11)){
/* c-backend.scm:1452: foreign-result-conversion */
f_12291(((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[2]);}
else{
t12=C_eqp(t4,lf[549]);
t13=(C_truep(t12)?t12:C_eqp(t4,lf[550]));
if(C_truep(t13)){
t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12796,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1454: chicken.base#open-output-string */
t15=C_fast_retrieve(lf[358]);{
C_word *av2=av;
av2[0]=t15;
av2[1]=t14;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t14=C_eqp(t4,lf[553]);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12820,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1455: chicken.base#open-output-string */
t16=C_fast_retrieve(lf[358]);{
C_word *av2=av;
av2[0]=t16;
av2[1]=t15;
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}
else{
t15=C_eqp(t4,lf[750]);
if(C_truep(t15)){
t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12844,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1456: chicken.base#open-output-string */
t17=C_fast_retrieve(lf[358]);{
C_word *av2=av;
av2[0]=t17;
av2[1]=t16;
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
/* c-backend.scm:1457: err */
t16=((C_word*)t0)[5];
f_12293(t16,((C_word*)t0)[3]);}}}}}}}}}}
else{
/* c-backend.scm:1458: err */
t4=((C_word*)t0)[5];
f_12293(t4,((C_word*)t0)[3]);}}}

/* g2707 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_12628(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_12628,3,t0,t1,t2);}
/* c-backend.scm:1439: foreign-result-conversion */
f_12291(t1,C_i_vector_ref(t2,C_fix(0)),((C_word*)t0)[2]);}

/* k12658 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12660(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12660,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12666,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1443: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[852];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12664 in k12658 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12666(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12666,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12669,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1443: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12667 in k12664 in k12658 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12669(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12669,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12672,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1443: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[851];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12670 in k12667 in k12664 in k12658 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12672,c,av);}
/* c-backend.scm:1443: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12682 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12684,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12690,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1445: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[854];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12688 in k12682 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12690,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1445: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12691 in k12688 in k12682 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12693,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1445: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[853];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12694 in k12691 in k12688 in k12682 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12696,c,av);}
/* c-backend.scm:1445: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12706 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12708,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12714,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1447: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[856];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12712 in k12706 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12714,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12717,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1447: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12715 in k12712 in k12706 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12717,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1447: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[855];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12718 in k12715 in k12712 in k12706 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12720,c,av);}
/* c-backend.scm:1447: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12730 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12732,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12738,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1449: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[858];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12736 in k12730 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12738,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12741,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1449: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12739 in k12736 in k12730 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12741(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12741,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1449: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[857];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12742 in k12739 in k12736 in k12730 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12744,c,av);}
/* c-backend.scm:1449: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12754 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12756,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12762,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1451: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[860];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12760 in k12754 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12762,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12765,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1451: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12763 in k12760 in k12754 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12765(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12765,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1451: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[859];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12766 in k12763 in k12760 in k12754 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12768(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12768,c,av);}
/* c-backend.scm:1451: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12794 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12796(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12796,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12802,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1454: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[862];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12800 in k12794 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12802(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12802,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12805,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1454: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12803 in k12800 in k12794 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12805(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12805,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1454: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[861];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12806 in k12803 in k12800 in k12794 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12808,c,av);}
/* c-backend.scm:1454: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12818 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12820(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12820,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12826,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1455: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[864];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12824 in k12818 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12826,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12829,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1455: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12827 in k12824 in k12818 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12829(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12829,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1455: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[863];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12830 in k12827 in k12824 in k12818 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12832,c,av);}
/* c-backend.scm:1455: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12842 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12844(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12844,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12850,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1456: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[865];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12848 in k12842 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12850,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12853,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1456: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12851 in k12848 in k12842 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_12853,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1456: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12854 in k12851 in k12848 in k12842 in k12622 in k12406 in chicken.compiler.c-backend#foreign-result-conversion in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_12856(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12856,c,av);}
/* c-backend.scm:1456: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_13078(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_13078,2,t1,t2);}
a=C_alloc(13);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13087,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13153,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=C_eqp(C_SCHEME_TRUE,t2);
if(C_truep(t5)){
t6=C_a_i_string(&a,1,C_make_character(254));
/* c-backend.scm:1490: scheme#string-append */
t7=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t1;
av2[2]=t6;
av2[3]=lf[867];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t6=C_eqp(C_SCHEME_FALSE,t2);
if(C_truep(t6)){
t7=C_a_i_string(&a,1,C_make_character(254));
/* c-backend.scm:1490: scheme#string-append */
t8=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t1;
av2[2]=t7;
av2[3]=lf[868];
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
if(C_truep(C_charp(t2))){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13175,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1494: encode-size */
f_13087(t7,C_fix(C_character_code(t2)));}
else{
if(C_truep(C_i_nullp(t2))){
t7=C_a_i_string(&a,1,C_make_character(254));
/* c-backend.scm:1490: scheme#string-append */
t8=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t1;
av2[2]=t7;
av2[3]=lf[870];
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
if(C_truep(C_eofp(t2))){
t7=C_a_i_string(&a,1,C_make_character(254));
/* c-backend.scm:1490: scheme#string-append */
t8=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t1;
av2[2]=t7;
av2[3]=lf[871];
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
t7=*((C_word*)lf[371]+1);
t8=C_eqp(*((C_word*)lf[371]+1),t2);
if(C_truep(t8)){
t9=C_a_i_string(&a,1,C_make_character(254));
/* c-backend.scm:1490: scheme#string-append */
t10=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t10;
av2[1]=t1;
av2[2]=t9;
av2[3]=lf[872];
((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}
else{
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13203,a[2]=t2,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fixnump(t2))){
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13412,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1499: chicken.compiler.support#big-fixnum? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]);
C_word av2[3];
av2[0]=*((C_word*)lf[367]+1);
av2[1]=t10;
av2[2]=t2;
tp(3,av2);}}
else{
t10=t9;
f_13203(t10,C_SCHEME_FALSE);}}}}}}}}

/* encode-size in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_13087(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){
C_save_and_reclaim_args((void *)trf_13087,2,t1,t2);}
a=C_alloc(29);
t3=C_i_fixnum_length(t2);
if(C_truep(C_fixnum_greaterp(t3,C_fix(24)))){
/* c-backend.scm:1483: chicken.compiler.support#quit-compiling */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[677]);
C_word av2[4];
av2[0]=*((C_word*)lf[677]+1);
av2[1]=t1;
av2[2]=lf[866];
av2[3]=t2;
tp(4,av2);}}
else{
t4=C_s_a_i_arithmetic_shift(&a,2,t2,C_fix(-16));
t5=C_s_a_i_bitwise_and(&a,2,C_fix(255),t4);
t6=C_make_character(C_unfix(t5));
t7=C_s_a_i_arithmetic_shift(&a,2,t2,C_fix(-8));
t8=C_s_a_i_bitwise_and(&a,2,C_fix(255),t7);
t9=C_make_character(C_unfix(t8));
t10=C_s_a_i_bitwise_and(&a,2,C_fix(255),t2);
t11=C_make_character(C_unfix(t10));
t12=t1;{
C_word av2[2];
av2[0]=t12;
av2[1]=C_a_i_string(&a,3,t6,t9,t11);
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}

/* k13151 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13153(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
C_save_and_reclaim((void *)f_13153,c,av);}
a=C_alloc(2);
t2=C_a_i_string(&a,1,C_make_character(254));
/* c-backend.scm:1490: scheme#string-append */
t3=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k13173 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13175,c,av);}
/* c-backend.scm:1494: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[869];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_13203(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(40,0,3)))){
C_save_and_reclaim_args((void *)trf_13203,2,t0,t1);}
a=C_alloc(40);
if(C_truep(t1)){
t2=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],C_fix(-24));
t3=C_s_a_i_bitwise_and(&a,2,C_fix(255),t2);
t4=C_make_character(C_unfix(t3));
t5=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],C_fix(-16));
t6=C_s_a_i_bitwise_and(&a,2,C_fix(255),t5);
t7=C_make_character(C_unfix(t6));
t8=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],C_fix(-8));
t9=C_s_a_i_bitwise_and(&a,2,C_fix(255),t8);
t10=C_make_character(C_unfix(t9));
t11=C_s_a_i_bitwise_and(&a,2,C_fix(255),((C_word*)t0)[2]);
t12=C_make_character(C_unfix(t11));
t13=C_a_i_string(&a,4,t4,t7,t10,t12);
/* ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[142]);
C_word av2[4];
av2[0]=*((C_word*)lf[142]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[873];
av2[3]=t13;
tp(4,av2);}}
else{
if(C_truep(C_i_exact_integerp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13262,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word av2[4];
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=C_fix(16);
tp(4,av2);}}
else{
if(C_truep(C_i_flonump(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13289,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* ##sys#flonum->string */
t3=C_fast_retrieve(lf[877]);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=C_fix(10);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13296,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1517: chicken.keyword#keyword? */
t3=C_fast_retrieve(lf[366]);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}}

/* k13260 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13262(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13262,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13269,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1514: encode-size */
f_13087(t2,C_block_size(t1));}

/* k13267 in k13260 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13269,c,av);}
/* c-backend.scm:1514: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[874];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13287 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13289(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13289,c,av);}
/* c-backend.scm:1516: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[875];
av2[3]=t1;
av2[4]=lf[876];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13296(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_13296,c,av);}
a=C_alloc(11);
t2=(C_truep(t1)?t1:C_i_symbolp(((C_word*)t0)[2]));
if(C_truep(t2)){
t3=C_slot(((C_word*)t0)[2],C_fix(1));
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13309,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1521: encode-size */
f_13087(t4,C_i_string_length(t3));}
else{
if(C_truep(C_immp(((C_word*)t0)[2]))){
/* c-backend.scm:1525: chicken.compiler.support#bomb */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[881];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}
else{
if(C_truep(C_byteblockp(((C_word*)t0)[2]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13339,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t4=stub2826(C_SCHEME_UNDEFINED,((C_word*)t0)[2]);
t5=C_make_character(C_unfix(t4));
t6=C_a_i_string(&a,1,t5);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13347,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1530: encode-size */
f_13087(t7,stub2830(C_SCHEME_UNDEFINED,((C_word*)t0)[2]));}
else{
t3=stub2830(C_SCHEME_UNDEFINED,((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13369,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t5=stub2826(C_SCHEME_UNDEFINED,((C_word*)t0)[2]);
t6=C_make_character(C_unfix(t5));
t7=C_a_i_string(&a,1,t6);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13377,a[2]=t4,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1537: encode-size */
f_13087(t8,t3);}}}}

/* k13307 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_13309,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13316,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1522: chicken.keyword#keyword? */
t3=C_fast_retrieve(lf[366]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13314 in k13307 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13316(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_13316,c,av);}
if(C_truep(t1)){
/* c-backend.scm:1519: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[878];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[879];
av2[5]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
/* c-backend.scm:1519: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[878];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[880];
av2[5]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}

/* k13337 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13339,c,av);}
/* c-backend.scm:1527: ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[142]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[142]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13345 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13347(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13347,c,av);}
/* c-backend.scm:1528: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k13367 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13369,c,av);}
/* c-backend.scm:1534: chicken.string#string-intersperse */
t2=C_fast_retrieve(lf[301]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[882];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k13375 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13377(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_13377,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13381,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13383,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1538: list-tabulate */
f_4250(t2,((C_word*)t0)[5],t3);}

/* k13379 in k13375 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_13381,c,av);}
a=C_alloc(11);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3678,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_3678(t6,((C_word*)t0)[3],((C_word*)t0)[4],t2);}

/* a13382 in k13375 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13383(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13383,c,av);}
/* c-backend.scm:1538: encode-literal */
f_13078(t1,C_slot(((C_word*)t0)[2],t2));}

/* k13410 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_13412(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13412,c,av);}
t2=((C_word*)t0)[2];
f_13203(t2,C_i_not(t1));}

/* k3211 */
static void C_ccall f_3213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_3213,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3216,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_eval_toplevel(2,av2);}}

/* k3214 in k3211 */
static void C_ccall f_3216(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_3216,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3219,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_expand_toplevel(2,av2);}}

/* k3217 in k3214 in k3211 */
static void C_ccall f_3219(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_3219,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3222,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_data_2dstructures_toplevel(2,av2);}}

/* k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_3222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_3222,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3225,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_extras_toplevel(2,av2);}}

/* k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_3225(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_3225,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3228,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_c_2dplatform_toplevel(2,av2);}}

/* k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_3228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_3228,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3231,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_compiler_toplevel(2,av2);}}

/* k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_3231(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_3231,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3234,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_internal_toplevel(2,av2);}}

/* k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_3234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_3234,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3237,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_support_toplevel(2,av2);}}

/* k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_3237(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(44,c,11)))){
C_save_and_reclaim((void *)f_3237,c,av);}
a=C_alloc(44);
t2=C_a_i_provide(&a,1,lf[0]);
t3=C_a_i_provide(&a,1,lf[1]);
t4=C_mutate(&lf[2] /* (set! chicken.compiler.c-backend#list-tabulate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4250,tmp=(C_word)a,a+=2,tmp));
t5=lf[3] /* chicken.compiler.c-backend#output */ =C_SCHEME_FALSE;;
t6=C_mutate(&lf[4] /* (set! chicken.compiler.c-backend#gen ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4518,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[7] /* (set! chicken.compiler.c-backend#gen-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4561,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[9]+1 /* (set! chicken.compiler.c-backend#generate-code ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4670,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[222] /* (set! chicken.compiler.c-backend#toplevel ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9238,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[489] /* (set! chicken.compiler.c-backend#cleanup ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9254,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[339] /* (set! chicken.compiler.c-backend#make-variable-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9330,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[342] /* (set! chicken.compiler.c-backend#make-argument-list ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9347,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[286] /* (set! chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9421,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate(&lf[602] /* (set! chicken.compiler.c-backend#generate-foreign-callback-header ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10456,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate((C_word*)lf[243]+1 /* (set! chicken.compiler.c-backend#foreign-type-declaration ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10532,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate(&lf[242] /* (set! chicken.compiler.c-backend#foreign-argument-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11626,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate(&lf[237] /* (set! chicken.compiler.c-backend#foreign-result-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12291,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate(&lf[385] /* (set! chicken.compiler.c-backend#encode-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13078,tmp=(C_word)a,a+=2,tmp));
t19=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t19;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}

/* loop in k13379 in k13375 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_3678(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_3678,4,t0,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3692,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:95: loop */
t6=t4;
t7=C_i_car(t3);
t8=C_u_i_cdr(t3);
t1=t6;
t2=t7;
t3=t8;
goto loop;}}

/* k3690 in loop in k13379 in k13375 in k13294 in k13201 in chicken.compiler.c-backend#encode-literal in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_3692(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_3692,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.c-backend#list-tabulate in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4250(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_4250,3,t1,t2,t3);}
a=C_alloc(7);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4256,a[2]=t2,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_4256(t7,t1,C_fix(0));}

/* loop in chicken.compiler.c-backend#list-tabulate in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4256(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_4256,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4270,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:190: proc */
t4=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}}

/* k4268 in loop in chicken.compiler.c-backend#list-tabulate in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4270(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_4270,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4274,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:190: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4256(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k4272 in k4268 in loop in chicken.compiler.c-backend#list-tabulate in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4274(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_4274,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a4429 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in ... */
static void C_ccall f_4430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_4430,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a4441 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_4442(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_4442,c,av);}
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.c-backend#gen in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_4518,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+5);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
C_word t5;
C_word t6;
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4538,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_4538(t6,t1,t2);}

/* for-each-loop628 in chicken.compiler.c-backend#gen in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4538(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_4538,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4548,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_eqp(C_SCHEME_TRUE,t4);
if(C_truep(t5)){
/* c-backend.scm:64: scheme#newline */
t6=*((C_word*)lf[5]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t3;
av2[2]=lf[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
/* c-backend.scm:65: scheme#display */
t6=*((C_word*)lf[6]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[3];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k4546 in for-each-loop628 in chicken.compiler.c-backend#gen in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4548(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_4548,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_4538(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.c-backend#gen-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4561(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_4561,2,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4570,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:71: chicken.base#intersperse */
t4=C_fast_retrieve(lf[8]);{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
av2[3]=C_make_character(32);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k4568 in chicken.compiler.c-backend#gen-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_4570,c,av);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4575,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_4575(t5,((C_word*)t0)[2],t1);}

/* for-each-loop648 in k4568 in chicken.compiler.c-backend#gen-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4575(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_4575,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4585,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:70: scheme#display */
t4=*((C_word*)lf[6]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
av2[3]=lf[3];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k4583 in for-each-loop648 in k4568 in chicken.compiler.c-backend#gen-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4585(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_4585,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_4575(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k4624 in chicken.compiler.c-backend#toplevel in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_4626,c,av);}
/* c-backend.scm:76: chicken.internal#string->c-identifier */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[510]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[510]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k4630 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4632(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){
C_save_and_reclaim((void *)f_4632,c,av);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4637,tmp=(C_word)a,a+=2,tmp);
/* c-backend.scm:87: chicken.sort#sort! */
t3=C_fast_retrieve(lf[666]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a4636 in k4630 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4637(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_4637,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4645,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:87: scheme#symbol->string */
t5=*((C_word*)lf[631]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k4643 in a4636 in k4630 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_4645,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4649,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:88: scheme#symbol->string */
t3=*((C_word*)lf[631]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k4647 in k4643 in a4636 in k4630 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_4649,c,av);}
/* c-backend.scm:87: scheme#string<? */
t2=*((C_word*)lf[665]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a4658 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_4659,c,av);}
a=C_alloc(6);
t4=C_a_i_cons(&a,2,t2,t3);
t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[2])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4670(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5=av[5];
C_word t6=av[6];
C_word t7=av[7];
C_word t8=av[8];
C_word t9=av[9];
C_word t10=av[10];
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
if(c!=11) C_bad_argc_2(c,11,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){
C_save_and_reclaim((void *)f_4670,c,av);}
a=C_alloc(20);
t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4674,a[2]=t4,a[3]=t7,a[4]=t6,a[5]=t2,a[6]=t3,a[7]=t9,a[8]=t5,a[9]=t1,a[10]=t10,tmp=(C_word)a,a+=11,tmp);
t12=C_SCHEME_END_OF_LIST;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4632,a[2]=t11,a[3]=t13,tmp=(C_word)a,a+=4,tmp);
t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4659,a[2]=t13,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:81: chicken.internal#hash-table-for-each */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[667]);
C_word *av2=av;
av2[0]=*((C_word*)lf[667]+1);
av2[1]=t14;
av2[2]=t15;
av2[3]=t4;
tp(4,av2);}}

/* k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){
C_save_and_reclaim((void *)f_4674,c,av);}
a=C_alloc(20);
t2=C_SCHEME_FALSE;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4677,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t1,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp);
t5=C_fast_retrieve(lf[663]);
t6=C_a_i_fixnum_plus(&a,2,C_fast_retrieve(lf[663]),C_fix(1));
/* c-backend.scm:98: chicken.flonum#flonum-print-precision */
t7=C_fast_retrieve(lf[664]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t4;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4677(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(82,c,5)))){
C_save_and_reclaim((void *)f_4677,c,av);}
a=C_alloc(82);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_UNDEFINED;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_SCHEME_UNDEFINED;
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4679,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp));
t27=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4691,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t28=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7054,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
t29=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7213,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp));
t30=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7417,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp));
t31=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7595,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp));
t32=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7716,a[2]=t19,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp));
t33=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7770,a[2]=t17,tmp=(C_word)a,a+=3,tmp));
t34=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8053,a[2]=t21,tmp=(C_word)a,a+=3,tmp));
t35=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8207,a[2]=t23,tmp=(C_word)a,a+=3,tmp));
t36=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8281,tmp=(C_word)a,a+=2,tmp));
t37=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8293,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=t15,a[6]=t17,a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp));
t38=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8997,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[8],a[6]=t25,a[7]=((C_word*)t0)[12],a[8]=t13,a[9]=((C_word*)t0)[9],a[10]=t11,a[11]=t9,a[12]=t7,tmp=(C_word)a,a+=13,tmp);
/* c-backend.scm:963: chicken.compiler.support#debugging */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[490]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[490]+1);
av2[1]=t38;
av2[2]=lf[661];
av2[3]=lf[662];
tp(4,av2);}}

/* find-lambda in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4679(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_4679,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4683,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:103: chicken.internal#hash-table-ref */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[12]);
C_word av2[4];
av2[0]=*((C_word*)lf[12]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
tp(4,av2);}}

/* k4681 in find-lambda in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4683(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_4683,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* c-backend.scm:104: chicken.compiler.support#bomb */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[11];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}}

/* expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4691(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,5)))){
C_save_and_reclaim_args((void *)trf_4691,5,t0,t1,t2,t3,t4);}
a=C_alloc(21);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4694,a[2]=t6,a[3]=t4,a[4]=t10,a[5]=t8,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp));
t12=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6895,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t13=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6931,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
/* c-backend.scm:589: expr */
t14=((C_word*)t6)[1];
f_4694(t14,t1,t2,t3);}

/* expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4694(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_4694,4,t0,t1,t2,t3);}
a=C_alloc(11);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4698,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=t2,tmp=(C_word)a,a+=11,tmp);
/* c-backend.scm:110: chicken.compiler.support#node-subexpressions */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[266]);
C_word av2[3];
av2[0]=*((C_word*)lf[266]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4698(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_4698,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* c-backend.scm:111: chicken.compiler.support#node-parameters */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[10];
tp(3,av2);}}

/* k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4701(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_4701,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4704,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* c-backend.scm:112: chicken.compiler.support#node-class */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[184]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[184]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[11];
tp(3,av2);}}

/* k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4704(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,6)))){
C_save_and_reclaim((void *)f_4704,c,av);}
a=C_alloc(24);
t2=C_eqp(t1,lf[13]);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[2]);
t4=C_eqp(t3,lf[14]);
if(C_truep(t4)){
if(C_truep(C_i_cadr(((C_word*)t0)[2]))){
/* c-backend.scm:116: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[15];
f_4518(3,av2);}}
else{
/* c-backend.scm:116: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[16];
f_4518(3,av2);}}}
else{
t5=C_eqp(t3,lf[17]);
if(C_truep(t5)){
t6=C_i_cadr(((C_word*)t0)[2]);
/* c-backend.scm:117: gen */
t7=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[18];
av2[3]=C_fix(C_character_code(t6));
av2[4]=C_make_character(41);
f_4518(5,av2);}}
else{
t6=C_eqp(t3,lf[19]);
if(C_truep(t6)){
/* c-backend.scm:118: gen */
t7=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[20];
f_4518(3,av2);}}
else{
t7=C_eqp(t3,lf[21]);
if(C_truep(t7)){
/* c-backend.scm:119: gen */
t8=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[22];
av2[3]=C_i_cadr(((C_word*)t0)[2]);
av2[4]=C_make_character(41);
f_4518(5,av2);}}
else{
t8=C_eqp(t3,lf[23]);
if(C_truep(t8)){
/* c-backend.scm:120: gen */
t9=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[24];
f_4518(3,av2);}}
else{
/* c-backend.scm:121: chicken.compiler.support#bomb */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[25];
tp(3,av2);}}}}}}}
else{
t3=C_eqp(t1,lf[26]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[2]);
if(C_truep(C_i_vectorp(t4))){
/* c-backend.scm:126: gen */
t5=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[27];
av2[3]=C_i_vector_ref(t4,C_fix(0));
av2[4]=lf[28];
f_4518(5,av2);}}
else{
/* c-backend.scm:127: gen */
t5=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[29];
av2[3]=C_i_car(((C_word*)t0)[2]);
av2[4]=C_make_character(93);
f_4518(5,av2);}}}
else{
t4=C_eqp(t1,lf[30]);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4831,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:131: gen */
t7=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[33];
f_4518(3,av2);}}
else{
t5=C_eqp(t1,lf[34]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4864,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:139: gen */
t7=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[37];
f_4518(4,av2);}}
else{
t6=C_eqp(t1,lf[38]);
if(C_truep(t6)){
/* c-backend.scm:148: gen */
t7=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[39];
av2[3]=C_i_car(((C_word*)t0)[2]);
f_4518(4,av2);}}
else{
t7=C_eqp(t1,lf[40]);
if(C_truep(t7)){
t8=C_i_car(((C_word*)t0)[2]);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4922,a[2]=t10,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp));
t12=((C_word*)t10)[1];
f_4922(t12,((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],t8);}
else{
t8=C_eqp(t1,lf[41]);
if(C_truep(t8)){
t9=C_i_car(((C_word*)t0)[2]);
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4970,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:161: gen */
t11=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t11;
av2[1]=t10;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(102);
av2[4]=t9;
av2[5]=C_make_character(61);
f_4518(6,av2);}}
else{
t9=C_eqp(t1,lf[42]);
if(C_truep(t9)){
/* c-backend.scm:167: gen */
t10=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t10;
av2[1]=((C_word*)t0)[3];
av2[2]=C_make_character(102);
av2[3]=C_i_car(((C_word*)t0)[2]);
f_4518(4,av2);}}
else{
t10=C_eqp(t1,lf[43]);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5009,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:170: gen */
t12=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t12;
av2[1]=t11;
av2[2]=lf[45];
f_4518(3,av2);}}
else{
t11=C_eqp(t1,lf[46]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5028,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:175: gen */
t13=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t13;
av2[1]=t12;
av2[2]=lf[48];
f_4518(3,av2);}}
else{
t12=C_eqp(t1,lf[49]);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5047,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:180: gen */
t14=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t14;
av2[1]=t13;
av2[2]=lf[51];
f_4518(3,av2);}}
else{
t13=C_eqp(t1,lf[52]);
if(C_truep(t13)){
t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5074,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:185: chicken.compiler.core#lambda-literal-argument-count */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t14;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t14=C_eqp(t1,lf[62]);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:194: chicken.compiler.core#lambda-literal-argument-count */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t15;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t15=C_eqp(t1,lf[68]);
if(C_truep(t15)){
t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5154,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:203: chicken.compiler.core#lambda-literal-argument-count */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t16;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t16=C_eqp(t1,lf[73]);
if(C_truep(t16)){
t17=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5194,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:212: gen */
t18=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t18;
av2[1]=t17;
av2[2]=lf[75];
f_4518(3,av2);}}
else{
t17=C_eqp(t1,lf[76]);
if(C_truep(t17)){
t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5213,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:217: gen */
t19=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t19;
av2[1]=t18;
av2[2]=lf[77];
f_4518(3,av2);}}
else{
t18=C_eqp(t1,lf[78]);
if(C_truep(t18)){
t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5246,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:224: gen */
t20=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t20;
av2[1]=t19;
av2[2]=lf[81];
f_4518(3,av2);}}
else{
t19=C_eqp(t1,lf[82]);
if(C_truep(t19)){
t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5283,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:231: gen */
t21=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t21;
av2[1]=t20;
av2[2]=lf[84];
f_4518(3,av2);}}
else{
t20=C_eqp(t1,lf[85]);
if(C_truep(t20)){
t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5312,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:238: gen */
t22=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t22;
av2[1]=t21;
av2[2]=lf[87];
f_4518(3,av2);}}
else{
t21=C_eqp(t1,lf[88]);
if(C_truep(t21)){
t22=C_i_car(((C_word*)t0)[2]);
t23=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5344,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],a[5]=t22,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:246: gen */
t24=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t24;
av2[1]=t23;
av2[2]=lf[95];
av2[3]=t22;
av2[4]=C_make_character(44);
f_4518(5,av2);}}
else{
t22=C_eqp(t1,lf[96]);
if(C_truep(t22)){
t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5418,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:256: gen */
t24=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t24;
av2[1]=t23;
av2[2]=lf[98];
f_4518(3,av2);}}
else{
t23=C_eqp(t1,lf[99]);
if(C_truep(t23)){
/* c-backend.scm:260: gen */
t24=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t24;
av2[1]=((C_word*)t0)[3];
av2[2]=C_make_character(116);
av2[3]=C_i_car(((C_word*)t0)[2]);
f_4518(4,av2);}}
else{
t24=C_eqp(t1,lf[100]);
if(C_truep(t24)){
t25=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5450,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:263: gen */
t26=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t26;
av2[1]=t25;
av2[2]=C_make_character(116);
av2[3]=C_i_car(((C_word*)t0)[2]);
av2[4]=C_make_character(61);
f_4518(5,av2);}}
else{
t25=C_eqp(t1,lf[101]);
if(C_truep(t25)){
t26=C_i_car(((C_word*)t0)[2]);
t27=C_i_cadr(((C_word*)t0)[2]);
if(C_truep(C_i_caddr(((C_word*)t0)[2]))){
if(C_truep(t27)){
/* c-backend.scm:272: gen */
t28=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t28;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[102];
av2[3]=t26;
av2[4]=lf[103];
f_4518(5,av2);}}
else{
t28=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5492,a[2]=((C_word*)t0)[3],a[3]=t26,tmp=(C_word)a,a+=4,tmp);
t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5496,a[2]=t28,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:274: ##sys#symbol->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[108]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[108]+1);
av2[1]=t29;
av2[2]=C_i_cadddr(((C_word*)t0)[2]);
tp(3,av2);}}}
else{
if(C_truep(t27)){
/* c-backend.scm:276: gen */
t28=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t28;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[109];
av2[3]=t26;
av2[4]=lf[110];
f_4518(5,av2);}}
else{
/* c-backend.scm:277: gen */
t28=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t28;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[111];
av2[3]=t26;
av2[4]=lf[112];
f_4518(5,av2);}}}}
else{
t26=C_eqp(t1,lf[113]);
if(C_truep(t26)){
t27=C_i_car(((C_word*)t0)[2]);
t28=C_i_cadr(((C_word*)t0)[2]);
t29=C_i_caddr(((C_word*)t0)[2]);
t30=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5527,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t29,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t28)){
/* c-backend.scm:284: gen */
t31=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t31;
av2[1]=t30;
av2[2]=lf[119];
av2[3]=t27;
av2[4]=lf[120];
f_4518(5,av2);}}
else{
/* c-backend.scm:285: gen */
t31=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t31;
av2[1]=t30;
av2[2]=lf[121];
av2[3]=t27;
av2[4]=lf[122];
f_4518(5,av2);}}}
else{
t27=C_eqp(t1,lf[123]);
if(C_truep(t27)){
t28=C_i_car(((C_word*)t0)[2]);
t29=C_i_cadr(((C_word*)t0)[2]);
t30=C_i_caddr(((C_word*)t0)[2]);
if(C_truep(t29)){
t31=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5575,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
t32=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5589,a[2]=t31,a[3]=t28,tmp=(C_word)a,a+=4,tmp);
t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5593,a[2]=t32,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:296: ##sys#symbol->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[108]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[108]+1);
av2[1]=t33;
av2[2]=t30;
tp(3,av2);}}
else{
t31=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5596,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
t32=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5610,a[2]=t31,a[3]=t28,tmp=(C_word)a,a+=4,tmp);
t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5614,a[2]=t32,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:301: ##sys#symbol->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[108]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[108]+1);
av2[1]=t33;
av2[2]=t30;
tp(3,av2);}}}
else{
t28=C_eqp(t1,lf[130]);
if(C_truep(t28)){
/* c-backend.scm:305: gen */
t29=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t29;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[131];
f_4518(3,av2);}}
else{
t29=C_eqp(t1,lf[132]);
if(C_truep(t29)){
t30=C_i_cdr(((C_word*)t0)[5]);
t31=C_i_length(t30);
t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1));
t33=C_i_car(((C_word*)t0)[2]);
t34=C_i_cadr(((C_word*)t0)[2]);
t35=C_i_cddr(((C_word*)t0)[2]);
t36=C_i_pairp(t35);
t37=(C_truep(t36)?C_i_caddr(((C_word*)t0)[2]):C_SCHEME_FALSE);
t38=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=t32,a[6]=((C_word*)t0)[8],a[7]=t30,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[4],a[10]=t31,a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[9],a[13]=t34,a[14]=t37,a[15]=t33,a[16]=((C_word*)t0)[10],a[17]=((C_word*)t0)[11],a[18]=t36,tmp=(C_word)a,a+=19,tmp);
/* c-backend.scm:316: chicken.compiler.support#source-info->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[198]+1);
av2[1]=t38;
av2[2]=t37;
tp(3,av2);}}
else{
t30=C_eqp(t1,lf[199]);
if(C_truep(t30)){
t31=C_i_length(((C_word*)t0)[5]);
t32=C_a_i_fixnum_plus(&a,2,t31,C_fix(1));
t33=C_i_car(((C_word*)t0)[2]);
t34=C_i_cadr(((C_word*)t0)[2]);
t35=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6161,a[2]=t33,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=t31,a[7]=((C_word*)t0)[5],a[8]=t32,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[9],a[11]=t34,tmp=(C_word)a,a+=12,tmp);
/* c-backend.scm:414: chicken.compiler.core#lambda-literal-closure-size */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[197]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[197]+1);
av2[1]=t35;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t31=C_eqp(t1,lf[203]);
if(C_truep(t31)){
t32=C_i_cdr(((C_word*)t0)[5]);
t33=C_i_length(t32);
t34=C_a_i_fixnum_plus(&a,2,t33,C_fix(1));
t35=C_i_car(((C_word*)t0)[2]);
t36=C_i_caddr(((C_word*)t0)[2]);
t37=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=t32,a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[4],a[9]=t36,a[10]=t35,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* c-backend.scm:441: chicken.compiler.support#source-info->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[198]+1);
av2[1]=t37;
av2[2]=t36;
tp(3,av2);}}
else{
t32=C_eqp(t1,lf[215]);
if(C_truep(t32)){
/* c-backend.scm:467: gen */
t33=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t33;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[216];
av2[3]=C_i_car(((C_word*)t0)[2]);
av2[4]=lf[217];
f_4518(5,av2);}}
else{
t33=C_eqp(t1,lf[218]);
if(C_truep(t33)){
t34=C_i_length(((C_word*)t0)[5]);
t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(1));
t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6458,a[2]=((C_word*)t0)[3],a[3]=t35,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:474: gen */
t37=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t37;
av2[1]=t36;
av2[2]=C_make_character(123);
f_4518(3,av2);}}
else{
t34=C_eqp(t1,lf[224]);
if(C_truep(t34)){
t35=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6481,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:479: gen */
t36=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t36;
av2[1]=t35;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[226];
f_4518(4,av2);}}
else{
t35=C_eqp(t1,lf[227]);
if(C_truep(t35)){
t36=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6500,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:484: gen */
t37=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t37;
av2[1]=t36;
av2[2]=C_i_car(((C_word*)t0)[2]);
av2[3]=C_make_character(40);
f_4518(4,av2);}}
else{
t36=C_eqp(t1,lf[228]);
if(C_truep(t36)){
t37=C_i_car(((C_word*)t0)[2]);
if(C_truep(((C_word*)((C_word*)t0)[10])[1])){
/* c-backend.scm:489: gen */
t38=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t38;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[229];
av2[3]=t37;
av2[4]=lf[230];
av2[5]=lf[231];
av2[6]=lf[232];
f_4518(7,av2);}}
else{
/* c-backend.scm:489: gen */
t38=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t38;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[229];
av2[3]=t37;
av2[4]=lf[230];
av2[5]=lf[233];
av2[6]=lf[232];
f_4518(7,av2);}}}
else{
t37=C_eqp(t1,lf[234]);
if(C_truep(t37)){
t38=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6536,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:493: gen */
t39=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t39;
av2[1]=t38;
av2[2]=C_i_car(((C_word*)t0)[2]);
av2[3]=lf[235];
av2[4]=C_i_length(((C_word*)t0)[5]);
f_4518(5,av2);}}
else{
t38=C_eqp(t1,lf[236]);
if(C_truep(t38)){
t39=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6572,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:501: foreign-result-conversion */
f_12291(t39,C_i_cadr(((C_word*)t0)[2]),lf[238]);}
else{
t39=C_eqp(t1,lf[239]);
if(C_truep(t39)){
t40=C_i_cadr(((C_word*)t0)[2]);
t41=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6592,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
t42=C_i_car(((C_word*)t0)[2]);
t43=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6610,a[2]=t41,a[3]=t42,a[4]=t40,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:505: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t43;
av2[2]=t40;
av2[3]=lf[244];
tp(4,av2);}}
else{
t40=C_eqp(t1,lf[245]);
if(C_truep(t40)){
t41=C_i_car(((C_word*)t0)[2]);
t42=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6626,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
t43=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6640,a[2]=t42,a[3]=t41,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:511: foreign-result-conversion */
f_12291(t43,t41,lf[250]);}
else{
t41=C_eqp(t1,lf[251]);
if(C_truep(t41)){
t42=C_i_car(((C_word*)t0)[2]);
t43=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6656,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t42,tmp=(C_word)a,a+=7,tmp);
t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6684,a[2]=t43,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:517: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t44;
av2[2]=t42;
av2[3]=lf[256];
tp(4,av2);}}
else{
t42=C_eqp(t1,lf[257]);
if(C_truep(t42)){
t43=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:524: gen */
t44=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t44;
av2[1]=t43;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[261];
f_4518(4,av2);}}
else{
t43=C_eqp(t1,lf[262]);
if(C_truep(t43)){
t44=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6772,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:539: gen */
t45=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t45;
av2[1]=t44;
av2[2]=lf[264];
f_4518(3,av2);}}
else{
t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6809,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:547: chicken.compiler.support#node-class */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[184]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[184]+1);
av2[1]=t44;
av2[2]=((C_word*)t0)[12];
tp(3,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k4829 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4831(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_4831,c,av);}
a=C_alloc(3);
if(C_truep(C_i_nanp(((C_word*)t0)[2]))){
/* c-backend.scm:132: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[31];
f_4518(3,av2);}}
else{
if(C_truep(C_i_infinitep(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4845,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_negativep(((C_word*)t0)[2]))){
/* c-backend.scm:134: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(45);
f_4518(3,av2);}}
else{
/* c-backend.scm:135: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[32];
f_4518(3,av2);}}}
else{
/* c-backend.scm:136: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[2];
f_4518(3,av2);}}}}

/* k4843 in k4829 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_4845,c,av);}
/* c-backend.scm:135: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[32];
f_4518(3,av2);}}

/* k4862 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4864(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_4864,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:140: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k4865 in k4862 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4867(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_4867,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4870,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:141: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[36];
f_4518(3,av2);}}

/* k4868 in k4865 in k4862 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4870(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_4870,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4873,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:142: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k4871 in k4868 in k4865 in k4862 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4873(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_4873,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4876,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:143: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(125);
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[35];
f_4518(5,av2);}}

/* k4874 in k4871 in k4868 in k4865 in k4862 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_4876(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_4876,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4879,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:144: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_caddr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k4877 in k4874 in k4871 in k4868 in k4865 in k4862 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_4879(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_4879,c,av);}
/* c-backend.scm:145: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(125);
f_4518(3,av2);}}

/* loop in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_4922(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_4922,5,t0,t1,t2,t3,t4);}
a=C_alloc(8);
if(C_truep(C_i_greaterp(t4,C_fix(0)))){
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4932,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t1,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:153: gen */
t6=lf[4];{
C_word av2[6];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=t3;
av2[5]=C_make_character(61);
f_4518(6,av2);}}
else{
/* c-backend.scm:157: expr */
t5=((C_word*)((C_word*)t0)[3])[1];
f_4694(t5,t1,C_i_car(t2),t3);}}

/* k4930 in loop in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4932(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_4932,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4935,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:154: expr */
t3=((C_word*)((C_word*)t0)[7])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[2]),((C_word*)t0)[3]);}

/* k4933 in k4930 in loop in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4935(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_4935,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:155: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* k4936 in k4933 in k4930 in loop in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4938(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(58,c,4)))){
C_save_and_reclaim((void *)f_4938,c,av);}
a=C_alloc(58);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1));
t4=C_s_a_i_minus(&a,2,((C_word*)t0)[4],C_fix(1));
/* c-backend.scm:156: loop */
t5=((C_word*)((C_word*)t0)[5])[1];
f_4922(t5,((C_word*)t0)[6],t2,t3,t4);}

/* k4968 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4970(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_4970,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:162: expr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k4971 in k4968 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4973(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_4973,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:163: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* k4974 in k4971 in k4968 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_4976(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_4976,c,av);}
/* c-backend.scm:164: expr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_4694(t2,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5007 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5009(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5009,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5012,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:171: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5010 in k5007 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5012(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5012,c,av);}
/* c-backend.scm:172: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[44];
f_4518(3,av2);}}

/* k5026 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5028(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5028,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5031,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:176: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5029 in k5026 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5031(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5031,c,av);}
/* c-backend.scm:177: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[47];
f_4518(3,av2);}}

/* k5045 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5047(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_5047,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5050,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:181: expr */
t3=((C_word*)((C_word*)t0)[4])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6]);}

/* k5048 in k5045 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5050(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_5050,c,av);}
a=C_alloc(29);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_s_a_i_plus(&a,2,t2,C_fix(1));
/* c-backend.scm:182: gen */
t4=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[50];
av2[3]=t3;
av2[4]=C_make_character(93);
f_4518(5,av2);}}

/* k5072 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5074(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_5074,c,av);}
a=C_alloc(9);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5080,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5099,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:187: chicken.compiler.core#lambda-literal-customizable */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[60]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[60]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5078 in k5072 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_5080(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,6)))){
C_save_and_reclaim_args((void *)trf_5080,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* c-backend.scm:190: gen */
t3=lf[4];{
C_word av2[7];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[53];
av2[3]=t2;
av2[4]=lf[54];
av2[5]=((C_word*)t0)[3];
av2[6]=lf[55];
f_4518(7,av2);}}
else{
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
/* c-backend.scm:191: gen */
t3=lf[4];{
C_word av2[7];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[56];
av2[3]=t2;
av2[4]=lf[57];
av2[5]=((C_word*)t0)[2];
av2[6]=lf[58];
f_4518(7,av2);}}}

/* k5097 in k5072 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5099(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5099,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5102,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];
f_5080(t3,C_i_not(t1));}
else{
/* c-backend.scm:188: chicken.compiler.core#lambda-literal-direct */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[59]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[59]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k5100 in k5097 in k5072 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5102(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_5102,c,av);}
t2=((C_word*)t0)[2];
f_5080(t2,C_i_not(t1));}

/* k5112 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_5114,c,av);}
a=C_alloc(9);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5120,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5139,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:196: chicken.compiler.core#lambda-literal-customizable */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[60]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[60]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5118 in k5112 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_5120(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,6)))){
C_save_and_reclaim_args((void *)trf_5120,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* c-backend.scm:199: gen */
t3=lf[4];{
C_word av2[5];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[63];
av2[3]=t2;
av2[4]=lf[64];
f_4518(5,av2);}}
else{
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
/* c-backend.scm:200: gen */
t3=lf[4];{
C_word av2[7];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[65];
av2[3]=t2;
av2[4]=lf[66];
av2[5]=((C_word*)t0)[2];
av2[6]=lf[67];
f_4518(7,av2);}}}

/* k5137 in k5112 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5139,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5142,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];
f_5120(t3,C_i_not(t1));}
else{
/* c-backend.scm:197: chicken.compiler.core#lambda-literal-direct */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[59]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[59]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k5140 in k5137 in k5112 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5142(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_5142,c,av);}
t2=((C_word*)t0)[2];
f_5120(t2,C_i_not(t1));}

/* k5152 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_5154,c,av);}
a=C_alloc(9);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5160,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5179,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:205: chicken.compiler.core#lambda-literal-customizable */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[60]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[60]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5158 in k5152 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_5160(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){
C_save_and_reclaim_args((void *)trf_5160,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* c-backend.scm:208: gen */
t3=lf[4];{
C_word av2[5];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[69];
av2[3]=t2;
av2[4]=lf[70];
f_4518(5,av2);}}
else{
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
/* c-backend.scm:209: gen */
t3=lf[4];{
C_word av2[5];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[71];
av2[3]=t2;
av2[4]=lf[72];
f_4518(5,av2);}}}

/* k5177 in k5152 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5179(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5179,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5182,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];
f_5160(t3,C_i_not(t1));}
else{
/* c-backend.scm:206: chicken.compiler.core#lambda-literal-direct */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[59]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[59]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k5180 in k5177 in k5152 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5182(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_5182,c,av);}
t2=((C_word*)t0)[2];
f_5160(t2,C_i_not(t1));}

/* k5192 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5194(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5194,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5197,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:213: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5195 in k5192 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5197(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5197,c,av);}
/* c-backend.scm:214: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[74];
f_4518(3,av2);}}

/* k5211 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_5213,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5216,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:218: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5214 in k5211 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5216(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_5216,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5219,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:219: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=C_i_car(((C_word*)t0)[6]);
av2[4]=C_make_character(44);
f_4518(5,av2);}}

/* k5217 in k5214 in k5211 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5219(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5219,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5222,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:220: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5220 in k5217 in k5214 in k5211 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5222,c,av);}
/* c-backend.scm:221: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k5244 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5246(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_5246,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5249,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:225: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5247 in k5244 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5249(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){
C_save_and_reclaim((void *)f_5249,c,av);}
a=C_alloc(35);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5252,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=C_i_car(((C_word*)t0)[6]);
t4=C_s_a_i_plus(&a,2,t3,C_fix(1));
/* c-backend.scm:226: gen */
t5=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=lf[79];
av2[3]=t4;
av2[4]=lf[80];
f_4518(5,av2);}}

/* k5250 in k5247 in k5244 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5252(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5252,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5255,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:227: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5253 in k5250 in k5247 in k5244 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5255(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5255,c,av);}
/* c-backend.scm:228: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k5281 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5283(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_5283,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5286,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:232: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5284 in k5281 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5286(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_5286,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5289,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:233: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[83];
f_4518(3,av2);}}

/* k5287 in k5284 in k5281 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5289(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5289,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5292,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:234: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5290 in k5287 in k5284 in k5281 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5292(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5292,c,av);}
/* c-backend.scm:235: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k5310 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_5312,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5315,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:239: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5313 in k5310 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5315(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_5315,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:240: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[86];
f_4518(3,av2);}}

/* k5316 in k5313 in k5310 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5318,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5321,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:241: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5319 in k5316 in k5313 in k5310 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5321,c,av);}
/* c-backend.scm:242: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k5342 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5344(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_5344,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5345,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5358,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:252: list-tabulate */
f_4250(t3,((C_word*)t0)[5],*((C_word*)lf[94]+1));}

/* g806 in k5342 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_5345(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_5345,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5349,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:249: gen */
t5=lf[4];{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[89];
av2[3]=t3;
av2[4]=lf[90];
f_4518(5,av2);}}

/* k5347 in g806 in k5342 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5349(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5349,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5352,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:250: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k5350 in k5347 in g806 in k5342 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5352(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5352,c,av);}
/* c-backend.scm:251: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(44);
f_4518(3,av2);}}

/* k5356 in k5342 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5358(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_5358,c,av);}
a=C_alloc(10);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[91]);
t3=C_i_check_list_2(t1,lf[91]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5367,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5374,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_5374(t8,t4,((C_word*)t0)[2],t1);}

/* k5365 in k5356 in k5342 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_5367,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
/* c-backend.scm:253: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[92];
av2[3]=t2;
av2[4]=lf[93];
f_4518(5,av2);}}

/* for-each-loop805 in k5356 in k5342 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_5374(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_5374,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5384,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:247: g806 */
t7=((C_word*)t0)[3];
f_5345(t7,t6,C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)));}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k5382 in for-each-loop805 in k5356 in k5342 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5384,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_5374(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k5416 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5418(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5418,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5421,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:257: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5419 in k5416 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5421,c,av);}
/* c-backend.scm:258: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[97];
f_4518(3,av2);}}

/* k5448 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5450(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5450,c,av);}
/* c-backend.scm:264: expr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_4694(t2,((C_word*)t0)[3],C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5490 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5492(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_5492,c,av);}
/* c-backend.scm:273: gen */
t2=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[104];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[105];
av2[5]=t1;
av2[6]=lf[106];
f_4518(7,av2);}}

/* k5494 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5496(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5496,c,av);}
/* c-backend.scm:274: chicken.compiler.support#c-ify-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[107]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[107]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k5525 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_5527,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5530,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5544,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5548,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:286: ##sys#symbol->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[108]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[108]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k5528 in k5525 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5530(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5530,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5533,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:287: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5531 in k5528 in k5525 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5533(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5533,c,av);}
/* c-backend.scm:288: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k5542 in k5525 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5544,c,av);}
/* c-backend.scm:286: gen */
t2=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[114];
av2[3]=t1;
av2[4]=lf[115];
f_4518(5,av2);}}

/* k5546 in k5525 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5548(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5548,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14658,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:75: chicken.string#->string */
t3=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k5573 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5575(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5575,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5578,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:297: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5576 in k5573 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5578(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5578,c,av);}
/* c-backend.scm:298: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* k5587 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_5589,c,av);}
/* c-backend.scm:295: gen */
t2=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[124];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[125];
av2[5]=t1;
av2[6]=lf[126];
f_4518(7,av2);}}

/* k5591 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5593(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5593,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14663,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:75: chicken.string#->string */
t3=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k5594 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5596(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5596,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5599,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:302: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5597 in k5594 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5599(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5599,c,av);}
/* c-backend.scm:303: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k5608 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_5610,c,av);}
/* c-backend.scm:300: gen */
t2=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[127];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[128];
av2[5]=t1;
av2[6]=lf[129];
f_4518(7,av2);}}

/* k5612 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5614,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14668,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:75: chicken.string#->string */
t3=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5651(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_5651,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5654,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=t1,a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
if(C_truep(((C_word*)t0)[18])){
t3=C_i_cdddr(((C_word*)t0)[2]);
t4=C_i_pairp(t3);
t5=t2;
f_5654(t5,(C_truep(t4)?C_i_cadddr(((C_word*)t0)[2]):C_SCHEME_FALSE));}
else{
t3=t2;
f_5654(t3,C_SCHEME_FALSE);}}

/* k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_5654(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,0,2)))){
C_save_and_reclaim_args((void *)trf_5654,2,t0,t1);}
a=C_alloc(25);
t2=(C_truep(t1)?C_i_car(C_i_cddddr(((C_word*)t0)[2])):C_SCHEME_FALSE);
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5660,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t1,a[9]=((C_word*)t0)[9],a[10]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
if(C_truep(t2)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6114,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6118,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:319: find-lambda */
t6=((C_word*)((C_word*)t0)[18])[1];
f_4679(t6,t5,t1);}
else{
t4=t3;
f_5660(t4,C_SCHEME_FALSE);}}

/* k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_5660(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,0,2)))){
C_save_and_reclaim_args((void *)trf_5660,2,t0,t1);}
a=C_alloc(27);
t2=C_u_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_5664,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t1,a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
if(C_truep(((C_word*)t0)[15])){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6083,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[17],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fast_retrieve(lf[191]))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6103,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14681,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:74: chicken.string#->string */
t7=C_fast_retrieve(lf[118]);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[18];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6110,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14686,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:75: chicken.string#->string */
t7=C_fast_retrieve(lf[118]);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[18];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_5664(2,av2);}}}

/* k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_5664(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_5664,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6080,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp);
/* c-backend.scm:328: chicken.compiler.support#node-class */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[184]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[184]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5671 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_5673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_5673,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:330: push-args */
t3=((C_word*)((C_word*)t0)[5])[1];
f_6931(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],lf[135]);}

/* k5674 in k5671 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_5676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_5676,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:331: chicken.compiler.support#node-parameters */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5677 in k5674 in k5671 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_5679(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_5679,c,av);}
/* c-backend.scm:332: gen */
t2=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=C_i_car(t1);
av2[4]=C_make_character(40);
av2[5]=((C_word*)t0)[3];
av2[6]=lf[133];
f_4518(7,av2);}}

/* k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_5695(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){
C_save_and_reclaim((void *)f_5695,c,av);}
a=C_alloc(17);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
/* c-backend.scm:336: chicken.compiler.core#lambda-literal-temporaries */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[139]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[139]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5824,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)t0)[11])){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_5824(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5879,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:351: gen */
t4=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=((C_word*)t0)[3];
av2[5]=C_make_character(61);
f_4518(6,av2);}}}}

/* k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_5698(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_5698,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5817,a[2]=t1,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:337: list-tabulate */
f_4250(t2,((C_word*)t0)[7],t3);}

/* k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_5701(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_5701,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5702,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_i_check_list_2(t1,lf[91]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5718,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5780,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_5780(t8,t4,((C_word*)t0)[8],t1);}

/* g894 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_fcall f_5702(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_5702,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5706,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:340: gen */
t5=lf[4];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=t3;
av2[5]=C_make_character(61);
f_4518(6,av2);}}

/* k5704 in g894 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_5706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5706,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5709,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:341: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k5707 in k5704 in g894 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_5709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5709,c,av);}
/* c-backend.scm:342: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* k5716 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5718(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_5718,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:346: list-tabulate */
f_4250(t2,((C_word*)t0)[6],*((C_word*)lf[94]+1));}

/* k5724 in k5716 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_5726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_5726,c,av);}
a=C_alloc(10);
t2=C_i_check_list_2(t1,lf[91]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5732,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5743,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_5743(t7,t3,((C_word*)t0)[5],t1);}

/* k5730 in k5724 in k5716 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_5732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_5732,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5735,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[3])){
/* c-backend.scm:348: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[136];
f_4518(4,av2);}}
else{
/* c-backend.scm:347: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[137];
av2[4]=((C_word*)t0)[4];
av2[5]=C_make_character(59);
f_4518(6,av2);}}}

/* k5733 in k5730 in k5724 in k5716 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_ccall f_5735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5735,c,av);}
/* c-backend.scm:348: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[136];
f_4518(4,av2);}}

/* for-each-loop904 in k5724 in k5716 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_fcall f_5743(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,7)))){
C_save_and_reclaim_args((void *)trf_5743,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5753,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:345: gen */
t7=lf[4];{
C_word av2[8];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=C_slot(t3,C_fix(0));
av2[5]=lf[138];
av2[6]=C_slot(t2,C_fix(0));
av2[7]=C_make_character(59);
f_4518(8,av2);}}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k5751 in for-each-loop904 in k5724 in k5716 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_ccall f_5753(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5753,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_5743(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* for-each-loop893 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_fcall f_5780(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_5780,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5790,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:338: g894 */
t7=((C_word*)t0)[3];
f_5702(t7,t6,C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)));}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k5788 in for-each-loop893 in k5699 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_5790(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5790,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_5780(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a5816 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_5817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_5817,c,av);}
a=C_alloc(33);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15287,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=t3;
va15287(t4,C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]));}

/* k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_5824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_5824,c,av);}
a=C_alloc(10);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5830,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:355: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[8];
av2[4]=C_make_character(40);
f_4518(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5845,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* c-backend.scm:360: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(123);
f_4518(3,av2);}}}

/* k5828 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_5830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_5830,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[6])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14676,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:357: expr-args */
t4=((C_word*)((C_word*)t0)[3])[1];
f_6895(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
/* c-backend.scm:356: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(116);
av2[3]=((C_word*)t0)[5];
av2[4]=C_make_character(44);
f_4518(5,av2);}}}

/* k5831 in k5828 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5833,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5836,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:357: expr-args */
t3=((C_word*)((C_word*)t0)[3])[1];
f_6895(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k5834 in k5831 in k5828 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_5836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5836,c,av);}
/* c-backend.scm:358: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[140];
f_4518(3,av2);}}

/* k5843 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_5845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_5845,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5848,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5864,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_not(((C_word*)t0)[9]))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5875,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
av2[3]=C_fix(10);
tp(4,av2);}}
else{
/* c-backend.scm:361: push-args */
t4=((C_word*)((C_word*)t0)[6])[1];
f_6931(t4,t2,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}}

/* k5846 in k5843 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5848(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_5848,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:362: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[5];
av2[4]=C_make_character(40);
f_4518(5,av2);}}

/* k5849 in k5846 in k5843 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_5851(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5851,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5854,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[3])){
/* c-backend.scm:364: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[141];
f_4518(3,av2);}}
else{
/* c-backend.scm:363: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_make_character(44);
f_4518(4,av2);}}}

/* k5852 in k5849 in k5846 in k5843 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_5854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5854,c,av);}
/* c-backend.scm:364: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[141];
f_4518(3,av2);}}

/* k5862 in k5843 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5864(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5864,c,av);}
/* c-backend.scm:361: push-args */
t2=((C_word*)((C_word*)t0)[2])[1];
f_6931(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k5873 in k5843 in k5822 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5875,c,av);}
/* ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[142]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[142]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[143];
av2[3]=t1;
tp(4,av2);}}

/* k5877 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_5879(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_5879,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5882,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:352: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k5880 in k5877 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_5882(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5882,c,av);}
/* c-backend.scm:353: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* k5893 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_5895(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5895,c,av);}
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(t2)){
/* c-backend.scm:335: chicken.compiler.core#lambda-literal-looping */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[145]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[145]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_5695(2,av2);}}}

/* k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_fcall f_5901(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){
C_save_and_reclaim_args((void *)trf_5901,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5904,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:369: chicken.compiler.support#node-parameters */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[134]);
C_word av2[3];
av2[0]=*((C_word*)lf[134]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* c-backend.scm:399: gen */
t3=lf[4];{
C_word av2[6];
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=((C_word*)t0)[6];
av2[5]=C_make_character(61);
f_4518(6,av2);}}}

/* k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_5904(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_5904,c,av);}
a=C_alloc(14);
t2=C_i_car(t1);
t3=C_i_cadr(t1);
t4=C_i_caddr(t1);
t5=C_SCHEME_FALSE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t6,a[8]=t4,a[9]=t2,a[10]=t3,a[11]=t1,tmp=(C_word)a,a+=12,tmp);
/* c-backend.scm:374: gen */
t8=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[172];
f_4518(4,av2);}}

/* k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_5916(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_5916,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5919,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_fast_retrieve(lf[149]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5932,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[8])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5942,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=C_fix(10);
tp(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5950,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=C_fix(10);
tp(4,av2);}}}
else{
if(C_truep(((C_word*)t0)[8])){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5958,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[10],a[4]=t2,a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5983,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=C_fix(10);
tp(4,av2);}}
else{
if(C_truep(((C_word*)t0)[10])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5991,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5998,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=C_fix(10);
tp(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6003,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6010,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=C_fix(10);
tp(4,av2);}}}}}

/* k5917 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5919(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_5919,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5922,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:395: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* k5920 in k5917 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_5922(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_5922,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5925,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:396: push-args */
t3=((C_word*)((C_word*)t0)[4])[1];
f_6931(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)((C_word*)t0)[7])[1]);}

/* k5923 in k5920 in k5917 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_5925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_5925,c,av);}
/* c-backend.scm:397: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[147];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[148];
f_4518(6,av2);}}

/* k5930 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5932(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5932,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
/* c-backend.scm:380: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[150];
av2[3]=((C_word*)((C_word*)t0)[2])[1];
av2[4]=lf[151];
f_4518(5,av2);}}

/* k5940 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5942(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5942,c,av);}
/* c-backend.scm:378: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[153];
av2[3]=t1;
av2[4]=lf[154];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k5948 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5950,c,av);}
/* c-backend.scm:379: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[155];
av2[3]=t1;
av2[4]=lf[156];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k5956 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5958(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_5958,c,av);}
a=C_alloc(7);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
if(C_truep(((C_word*)t0)[3])){
/* c-backend.scm:384: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[157];
av2[3]=((C_word*)((C_word*)t0)[2])[1];
av2[4]=lf[158];
f_4518(5,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5971,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5975,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:386: ##sys#symbol->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[108]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[108]+1);
av2[1]=t4;
av2[2]=C_i_cadddr(((C_word*)t0)[5]);
tp(3,av2);}}}

/* k5969 in k5956 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_5971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_5971,c,av);}
/* c-backend.scm:385: gen */
t2=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[159];
av2[3]=((C_word*)((C_word*)t0)[3])[1];
av2[4]=lf[160];
av2[5]=t1;
av2[6]=lf[161];
f_4518(7,av2);}}

/* k5973 in k5956 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_5975(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_5975,c,av);}
/* c-backend.scm:386: chicken.compiler.support#c-ify-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[107]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[107]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k5981 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5983(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5983,c,av);}
/* c-backend.scm:382: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[162];
av2[3]=t1;
av2[4]=lf[163];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k5989 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5991(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5991,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
/* c-backend.scm:390: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[164];
av2[3]=((C_word*)((C_word*)t0)[2])[1];
av2[4]=lf[165];
f_4518(5,av2);}}

/* k5996 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_5998(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_5998,c,av);}
/* c-backend.scm:389: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[166];
av2[3]=t1;
av2[4]=lf[167];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k6001 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_6003(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6003,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
/* c-backend.scm:394: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[168];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[169];
f_4518(5,av2);}}

/* k6008 in k5914 in k5902 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_6010(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6010,c,av);}
/* c-backend.scm:393: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[170];
av2[3]=t1;
av2[4]=lf[171];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_6014(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_6014,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6017,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:400: expr */
t3=((C_word*)((C_word*)t0)[8])[1];
f_4694(t3,t2,((C_word*)t0)[9],((C_word*)t0)[4]);}

/* k6015 in k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_6017(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_6017,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6020,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:401: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[183];
f_4518(3,av2);}}

/* k6018 in k6015 in k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_6020(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_6020,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6023,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6048,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6053,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
av2[3]=C_fix(10);
tp(4,av2);}}

/* k6021 in k6018 in k6015 in k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_6023(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_6023,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6026,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:403: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[181];
f_4518(4,av2);}}

/* k6024 in k6021 in k6018 in k6015 in k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_6026(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_6026,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6029,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_fast_retrieve(lf[175]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6035,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_fast_retrieve(lf[175]))){
t5=t4;
f_6035(t5,C_fast_retrieve(lf[175]));}
else{
t5=C_fast_retrieve(lf[180]);
if(C_truep(C_fast_retrieve(lf[180]))){
t6=C_fast_retrieve(lf[180]);
t7=t4;
f_6035(t7,C_fast_retrieve(lf[180]));}
else{
t6=t4;
f_6035(t6,((C_word*)t0)[5]);}}}

/* k6027 in k6024 in k6021 in k6018 in k6015 in k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_ccall f_6029(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6029,c,av);}
/* c-backend.scm:407: gen */
t2=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[173];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[174];
f_4518(5,av2);}}

/* k6033 in k6024 in k6021 in k6018 in k6015 in k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_fcall f_6035(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_6035,2,t0,t1);}
if(C_truep(t1)){
/* c-backend.scm:405: gen */
t2=lf[4];{
C_word av2[5];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[176];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[177];
f_4518(5,av2);}}
else{
/* c-backend.scm:406: gen */
t2=lf[4];{
C_word av2[5];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[178];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[179];
f_4518(5,av2);}}}

/* k6046 in k6018 in k6015 in k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_6048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6048,c,av);}
/* c-backend.scm:402: push-args */
t2=((C_word*)((C_word*)t0)[2])[1];
f_6931(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k6051 in k6018 in k6015 in k6012 in k5899 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_6053(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6053,c,av);}
/* ##sys#string-append */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[142]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[142]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[182];
av2[3]=t1;
tp(4,av2);}}

/* k6074 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6076,c,av);}
t2=C_eqp(lf[101],t1);
if(C_truep(t2)){
if(C_truep(C_i_not(C_fast_retrieve(lf[175])))){
t3=C_i_not(C_fast_retrieve(lf[180]));
t4=((C_word*)t0)[2];
f_5901(t4,(C_truep(t3)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));}
else{
t3=((C_word*)t0)[2];
f_5901(t3,C_SCHEME_FALSE);}}
else{
t3=((C_word*)t0)[2];
f_5901(t3,C_SCHEME_FALSE);}}

/* k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6080(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){
C_save_and_reclaim((void *)f_6080,c,av);}
a=C_alloc(20);
t2=C_eqp(lf[38],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:329: gen */
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(123);
f_4518(3,av2);}}
else{
if(C_truep(((C_word*)t0)[8])){
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_5695,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[5],a[14]=((C_word*)t0)[4],tmp=(C_word)a,a+=15,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5895,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:334: chicken.compiler.core#lambda-literal-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[12];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[15],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6076,a[2]=t3,a[3]=((C_word*)t0)[15],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:365: chicken.compiler.support#node-class */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[184]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[184]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}}

/* k6081 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6083(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_6083,c,av);}
t2=(C_truep(C_fast_retrieve(lf[185]))?((C_word*)t0)[2]:C_SCHEME_FALSE);
if(C_truep(t2)){
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* c-backend.scm:326: gen */
t3=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[186];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[187];
av2[6]=lf[188];
av2[7]=lf[189];
f_4518(8,av2);}}
else{
/* c-backend.scm:326: gen */
t3=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[186];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[187];
av2[6]=lf[190];
av2[7]=lf[189];
f_4518(8,av2);}}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_5664(2,av2);}}}

/* k6101 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6103(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_6103,c,av);}
/* c-backend.scm:323: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[192];
av2[4]=t1;
av2[5]=lf[193];
f_4518(6,av2);}}

/* k6108 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_6110,c,av);}
/* c-backend.scm:324: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[195];
av2[4]=t1;
av2[5]=lf[196];
f_4518(6,av2);}}

/* k6112 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_6114,c,av);}
t2=((C_word*)t0)[2];
f_5660(t2,C_i_zerop(t1));}

/* k6116 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6118(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6118,c,av);}
/* c-backend.scm:319: chicken.compiler.core#lambda-literal-closure-size */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[197]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[197]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6161(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_6161,c,av);}
a=C_alloc(8);
t2=C_i_zerop(t1);
if(C_truep(((C_word*)t0)[2])){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6167,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:416: chicken.compiler.core#lambda-literal-temporaries */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[139]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[139]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6287,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:429: gen */
t4=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[11];
av2[3]=C_make_character(40);
f_4518(4,av2);}}}

/* k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6167(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_6167,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6170,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6280,a[2]=t1,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:417: list-tabulate */
f_4250(t2,((C_word*)t0)[5],t3);}

/* k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_6170,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6171,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_i_check_list_2(t1,lf[91]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6187,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6243,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_6243(t8,t4,((C_word*)t0)[6],t1);}

/* g1011 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_6171(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_6171,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6175,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:420: gen */
t5=lf[4];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=t3;
av2[5]=C_make_character(61);
f_4518(6,av2);}}

/* k6173 in g1011 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6175,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6178,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:421: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6176 in k6173 in g1011 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6178(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6178,c,av);}
/* c-backend.scm:422: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* k6185 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6187(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_6187,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6195,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:426: list-tabulate */
f_4250(t2,((C_word*)t0)[4],*((C_word*)lf[94]+1));}

/* k6193 in k6185 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_6195,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[91]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6201,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6206,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_6206(t7,t3,((C_word*)t0)[3],t1);}

/* k6199 in k6193 in k6185 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6201,c,av);}
/* c-backend.scm:427: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[200];
f_4518(4,av2);}}

/* for-each-loop1021 in k6193 in k6185 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_fcall f_6206(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,7)))){
C_save_and_reclaim_args((void *)trf_6206,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6216,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:425: gen */
t7=lf[4];{
C_word av2[8];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=C_slot(t3,C_fix(0));
av2[5]=lf[201];
av2[6]=C_slot(t2,C_fix(0));
av2[7]=C_make_character(59);
f_4518(8,av2);}}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k6214 in for-each-loop1021 in k6193 in k6185 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_6216(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6216,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6206(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* for-each-loop1010 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_6243(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_6243,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6253,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:418: g1011 */
t7=((C_word*)t0)[3];
f_6171(t7,t6,C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)));}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k6251 in for-each-loop1010 in k6168 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6253(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6253,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6243(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a6279 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_6280,c,av);}
a=C_alloc(33);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15293,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=t3;
va15293(t4,C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]));}

/* k6285 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6287(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_6287,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[6])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14699,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:431: expr-args */
t4=((C_word*)((C_word*)t0)[3])[1];
f_6895(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
/* c-backend.scm:430: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[202];
f_4518(3,av2);}}}

/* k6288 in k6285 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6290(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6290,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6293,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:431: expr-args */
t3=((C_word*)((C_word*)t0)[3])[1];
f_6895(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6291 in k6288 in k6285 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6293,c,av);}
/* c-backend.scm:432: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_6321,c,av);}
a=C_alloc(18);
t2=C_i_cadddr(((C_word*)t0)[2]);
t3=C_i_cddddr(((C_word*)t0)[2]);
t4=C_i_car(t3);
t5=C_i_not(C_i_zerop(t4));
t6=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6334,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t5,a[9]=t4,a[10]=t2,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=t1,tmp=(C_word)a,a+=15,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6429,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:445: find-lambda */
t8=((C_word*)((C_word*)t0)[12])[1];
f_4679(t8,t7,t2);}

/* k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6334(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_6334,c,av);}
a=C_alloc(16);
t2=C_i_zerop(t1);
t3=C_u_i_car(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6338,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
/* c-backend.scm:447: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_make_character(40);
f_4518(3,av2);}}

/* k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6338(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_6338,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6341,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t0)[12])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6398,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[14],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_fast_retrieve(lf[191]))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6418,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14710,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:74: chicken.string#->string */
t6=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[15];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6425,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14715,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:75: chicken.string#->string */
t6=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[15];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_6341(2,av2);}}}

/* k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_6341,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6344,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
/* c-backend.scm:455: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[205];
av2[4]=((C_word*)t0)[11];
av2[5]=C_make_character(40);
f_4518(6,av2);}}

/* k6342 in k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6344(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_6344,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t0)[9])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6380,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:457: gen */
t4=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[204];
av2[3]=((C_word*)t0)[10];
av2[4]=C_make_character(41);
f_4518(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_6347(2,av2);}}}

/* k6345 in k6342 in k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6347(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_6347,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6350,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[6])){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_6350(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6368,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:460: expr */
t4=((C_word*)((C_word*)t0)[7])[1];
f_4694(t4,t3,((C_word*)t0)[8],((C_word*)t0)[5]);}}

/* k6348 in k6345 in k6342 in k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_6350(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_6350,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6353,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
/* c-backend.scm:462: expr-args */
t3=((C_word*)((C_word*)t0)[4])[1];
f_6895(t3,t2,((C_word*)t0)[3],((C_word*)t0)[5]);}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14703,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:463: gen */
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(41);
f_4518(3,av2);}}}

/* k6351 in k6348 in k6345 in k6342 in k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_6353(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6353,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6356,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:463: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k6354 in k6351 in k6348 in k6345 in k6342 in k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_6356(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6356,c,av);}
/* c-backend.scm:464: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(41);
f_4518(4,av2);}}

/* k6366 in k6345 in k6342 in k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_6368(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6368,c,av);}
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
/* c-backend.scm:461: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_make_character(44);
f_4518(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_6350(2,av2);}}}

/* k6378 in k6342 in k6339 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6380(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6380,c,av);}
t2=C_i_not(((C_word*)t0)[2]);
if(C_truep(t2)){
if(C_truep(t2)){
/* c-backend.scm:458: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=C_make_character(44);
f_4518(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_6347(2,av2);}}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
/* c-backend.scm:458: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=C_make_character(44);
f_4518(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_6347(2,av2);}}}}

/* k6396 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_6398,c,av);}
t2=(C_truep(C_fast_retrieve(lf[185]))?((C_word*)t0)[2]:C_SCHEME_FALSE);
if(C_truep(t2)){
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* c-backend.scm:453: gen */
t3=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[206];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[207];
av2[6]=lf[208];
av2[7]=lf[209];
f_4518(8,av2);}}
else{
/* c-backend.scm:453: gen */
t3=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[206];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[207];
av2[6]=lf[210];
av2[7]=lf[209];
f_4518(8,av2);}}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_6341(2,av2);}}}

/* k6416 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6418(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_6418,c,av);}
/* c-backend.scm:450: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[211];
av2[4]=t1;
av2[5]=lf[212];
f_4518(6,av2);}}

/* k6423 in k6336 in k6332 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_6425,c,av);}
/* c-backend.scm:451: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[213];
av2[4]=t1;
av2[5]=lf[214];
f_4518(6,av2);}}

/* k6427 in k6319 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6429(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6429,c,av);}
/* c-backend.scm:445: chicken.compiler.core#lambda-literal-closure-size */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[197]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[197]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k6456 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6458(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_6458,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6461,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:475: push-args */
t3=((C_word*)((C_word*)t0)[5])[1];
f_6931(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],lf[223]);}

/* k6459 in k6456 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6461(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_6461,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:476: toplevel */
t3=lf[222];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[4]);
f_9238(3,av2);}}

/* k6466 in k6459 in k6456 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6468(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_6468,c,av);}
/* c-backend.scm:476: gen */
t2=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[219];
av2[4]=t1;
av2[5]=lf[220];
av2[6]=((C_word*)t0)[3];
av2[7]=lf[221];
f_4518(8,av2);}}

/* k6479 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6481(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6481,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6484,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:480: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6482 in k6479 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6484(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6484,c,av);}
/* c-backend.scm:481: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[225];
f_4518(3,av2);}}

/* k6498 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6500(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6500,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6503,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:485: expr-args */
t3=((C_word*)((C_word*)t0)[3])[1];
f_6895(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6501 in k6498 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6503,c,av);}
/* c-backend.scm:486: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k6534 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6536(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_6536,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6539,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6548,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:496: gen */
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(44);
f_4518(3,av2);}}
else{
/* c-backend.scm:498: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}}

/* k6537 in k6534 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6539,c,av);}
/* c-backend.scm:498: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k6546 in k6534 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6548(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6548,c,av);}
/* c-backend.scm:497: expr-args */
t2=((C_word*)((C_word*)t0)[2])[1];
f_6895(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6570 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6572,c,av);}
/* c-backend.scm:501: gen */
t2=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_i_car(((C_word*)t0)[3]);
av2[4]=C_make_character(41);
f_4518(5,av2);}}

/* k6590 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6592(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6592,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6595,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:506: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6593 in k6590 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6595(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6595,c,av);}
/* c-backend.scm:507: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[240];
f_4518(3,av2);}}

/* k6608 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_6610,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:505: foreign-argument-conversion */
f_11626(t2,((C_word*)t0)[4]);}

/* k6612 in k6608 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_6614,c,av);}
/* c-backend.scm:505: gen */
t2=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
av2[4]=lf[241];
av2[5]=((C_word*)t0)[4];
av2[6]=C_make_character(41);
av2[7]=t1;
f_4518(8,av2);}}

/* k6624 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6626,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6629,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:512: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6627 in k6624 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6629,c,av);}
/* c-backend.scm:513: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[246];
f_4518(3,av2);}}

/* k6638 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6640(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_6640,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6644,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:511: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[249];
tp(4,av2);}}

/* k6642 in k6638 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6644(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_6644,c,av);}
/* c-backend.scm:511: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[247];
av2[4]=t1;
av2[5]=lf[248];
f_4518(6,av2);}}

/* k6654 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6656(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_6656,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:518: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6657 in k6654 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_6659,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6662,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6676,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:519: foreign-argument-conversion */
f_11626(t3,((C_word*)t0)[6]);}

/* k6660 in k6657 in k6654 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6662,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6665,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:520: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6663 in k6660 in k6657 in k6654 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6665(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6665,c,av);}
/* c-backend.scm:521: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[252];
f_4518(3,av2);}}

/* k6674 in k6657 in k6654 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6676,c,av);}
/* c-backend.scm:519: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[253];
av2[3]=t1;
f_4518(4,av2);}}

/* k6682 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_6684,c,av);}
/* c-backend.scm:517: gen */
t2=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[254];
av2[3]=t1;
av2[4]=lf[255];
f_4518(5,av2);}}

/* k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_6693,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:525: expr */
t3=((C_word*)((C_word*)t0)[4])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[3]),((C_word*)t0)[5]);}

/* k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_6696,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:526: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[260];
f_4518(3,av2);}}

/* k6697 in k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6699(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_6699,c,av);}
a=C_alloc(7);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_cdr(((C_word*)t0)[3]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6712,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_6712(t7,((C_word*)t0)[6],t2,t3);}

/* doloop1110 in k6697 in k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_6712(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_6712,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_zerop(t2))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6720,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:530: gen */
t5=lf[4];{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[258];
f_4518(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6733,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:533: gen */
t5=lf[4];{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[259];
f_4518(4,av2);}}}

/* k6718 in doloop1110 in k6697 in k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6720,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6723,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:531: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6721 in k6718 in doloop1110 in k6697 in k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6723,c,av);}
/* c-backend.scm:532: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(125);
f_4518(3,av2);}}

/* k6731 in doloop1110 in k6697 in k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_6733,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:534: expr */
t3=((C_word*)((C_word*)t0)[6])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[5]),((C_word*)t0)[7]);}

/* k6734 in k6731 in doloop1110 in k6697 in k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_6736,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6739,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:535: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(58);
f_4518(3,av2);}}

/* k6737 in k6734 in k6731 in doloop1110 in k6697 in k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_6739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_6739,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6742,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:536: expr */
t3=((C_word*)((C_word*)t0)[6])[1];
f_4694(t3,t2,C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[7]);}

/* k6740 in k6737 in k6734 in k6731 in doloop1110 in k6697 in k6694 in k6691 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_6742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_6742,c,av);}
a=C_alloc(29);
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_6712(t3,((C_word*)t0)[4],t2,C_i_cddr(((C_word*)t0)[5]));}

/* k6770 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6772(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_6772,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:540: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6773 in k6770 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6775(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_6775,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6778,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:541: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[263];
f_4518(3,av2);}}

/* k6776 in k6773 in k6770 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6778(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_6778,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:542: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6779 in k6776 in k6773 in k6770 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6781(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_6781,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6784,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:543: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(58);
f_4518(3,av2);}}

/* k6782 in k6779 in k6776 in k6773 in k6770 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_6784,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6787,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:544: expr */
t3=((C_word*)((C_word*)t0)[3])[1];
f_4694(t3,t2,C_i_caddr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6785 in k6782 in k6779 in k6776 in k6773 in k6770 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6787(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6787,c,av);}
/* c-backend.scm:545: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k6807 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6809,c,av);}
/* c-backend.scm:547: chicken.compiler.support#bomb */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[265];
av2[3]=t1;
tp(4,av2);}}

/* expr-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_6895(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_6895,4,t0,t1,t2,t3);}
a=C_alloc(8);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6901,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_6901(t7,t1,t2);}

/* loop in expr-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_6901(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_6901,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t2))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6911,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
t4=C_eqp(t2,((C_word*)t0)[5]);
if(C_truep(t4)){
t5=t3;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_6911(2,av2);}}
else{
/* c-backend.scm:552: gen */
t5=lf[4];{
C_word av2[3];
av2[0]=t5;
av2[1]=t3;
av2[2]=C_make_character(44);
f_4518(3,av2);}}}}

/* k6909 in loop in expr-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6911(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_6911,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6914,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:553: expr */
t3=((C_word*)((C_word*)t0)[5])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[6]);}

/* k6912 in k6909 in loop in expr-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6914(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6914,c,av);}
/* c-backend.scm:554: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_6901(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_6931(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
C_save_and_reclaim_args((void *)trf_6931,5,t0,t1,t2,t3,t4);}
a=C_alloc(18);
t5=C_i_length(t2);
t6=(C_truep(t4)?C_fix(1):C_fix(0));
t7=C_a_i_fixnum_plus(&a,2,t5,t6);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6943,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t1,a[6]=t2,a[7]=t7,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7043,a[2]=t8,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:559: chicken.compiler.core#lambda-literal-customizable */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[60]);
C_word av2[3];
av2[0]=*((C_word*)lf[60]+1);
av2[1]=t9;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_6943(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_6943,2,t0,t1);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6946,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* c-backend.scm:561: chicken.compiler.core#lambda-literal-argument-count */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word av2[3];
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_6946,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6949,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,tmp=(C_word)a,a+=10,tmp);
/* c-backend.scm:562: chicken.compiler.core#lambda-literal-rest-argument-mode */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[284]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[284]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}

/* k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6949(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_6949,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=C_i_not(((C_word*)t0)[7]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7000,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t3)){
t5=t4;
f_7000(t5,t3);}
else{
t5=C_i_lessp(((C_word*)t0)[9],((C_word*)t0)[8]);
t6=t4;
f_7000(t6,(C_truep(t5)?C_eqp(t1,lf[283]):C_SCHEME_FALSE));}}

/* k6950 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6952(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_6952,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6955,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t0)[2])){
/* c-backend.scm:581: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[270];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[271];
f_4518(6,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_6955(2,av2);}}}

/* k6953 in k6950 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6955(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_6955,c,av);}
a=C_alloc(7);
t2=(C_truep(((C_word*)t0)[2])?C_fix(1):C_fix(0));
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6964,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_6964(t6,((C_word*)t0)[5],t2,((C_word*)t0)[6]);}

/* doloop1152 in k6953 in k6950 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_6964(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_6964,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t3))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6974,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:585: gen */
t5=lf[4];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[268];
av2[4]=t2;
av2[5]=lf[269];
f_4518(6,av2);}}}

/* k6972 in doloop1152 in k6953 in k6950 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_6974(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_6974,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:586: expr */
t3=((C_word*)((C_word*)t0)[6])[1];
f_4694(t3,t2,C_i_car(((C_word*)t0)[5]),((C_word*)t0)[7]);}

/* k6975 in k6972 in doloop1152 in k6953 in k6950 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_6977(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_6977,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6980,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:587: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[267];
f_4518(3,av2);}}

/* k6978 in k6975 in k6972 in doloop1152 in k6953 in k6950 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_6980(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_6980,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_6964(t3,((C_word*)t0)[4],t2,C_u_i_cdr(((C_word*)t0)[5]));}

/* k6998 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7000(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){
C_save_and_reclaim_args((void *)trf_7000,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
/* c-backend.scm:571: gen */
t2=lf[4];{
C_word av2[6];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[272];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[273];
f_4518(6,av2);}}
else{
if(C_truep(C_i_greater_or_equalp(((C_word*)t0)[4],((C_word*)t0)[3]))){
/* c-backend.scm:573: gen */
t2=lf[4];{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[274];
f_4518(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7015,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:575: gen */
t3=lf[4];{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[282];
f_4518(4,av2);}}}}

/* k7013 in k6998 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_7015,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7018,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:576: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[280];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[281];
f_4518(6,av2);}}

/* k7016 in k7013 in k6998 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7018(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_7018,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:577: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[279];
f_4518(4,av2);}}

/* k7019 in k7016 in k7013 in k6998 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7021(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_7021,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:578: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[278];
f_4518(4,av2);}}

/* k7022 in k7019 in k7016 in k7013 in k6998 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_7024(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_7024,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7027,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:579: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[276];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[277];
f_4518(6,av2);}}

/* k7025 in k7022 in k7019 in k7016 in k7013 in k6998 in k6947 in k6944 in k6941 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7027(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7027,c,av);}
/* c-backend.scm:580: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[275];
f_4518(4,av2);}}

/* k7041 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7043,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7046,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];
f_6943(t3,C_i_not(t1));}
else{
/* c-backend.scm:560: chicken.compiler.core#lambda-literal-direct */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[59]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[59]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k7044 in k7041 in push-args in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7046(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7046,c,av);}
t2=((C_word*)t0)[2];
f_6943(t2,C_i_not(t1));}

/* header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7054(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,2)))){
C_save_and_reclaim_args((void *)trf_7054,2,t0,t1);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7058,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7144,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t6)[1];
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7156,a[2]=t3,a[3]=t6,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7197,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:596: chicken.platform#chicken-version */
t10=C_fast_retrieve(lf[307]);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}

/* k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7058(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7058,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7061,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:599: gen-list */
f_4561(t2,((C_word*)t0)[3]);}

/* k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_7061,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7064,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_not(C_fast_retrieve(lf[295])))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7064(2,av2);}}
else{
/* c-backend.scm:601: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[296];
av2[4]=C_fast_retrieve(lf[295]);
f_4518(5,av2);}}}

/* k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7064(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7064,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7067,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_nullp(C_fast_retrieve(lf[293])))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7067(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7131,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:603: gen */
t4=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[294];
f_4518(4,av2);}}}

/* k7065 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7067(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7067,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7070,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:605: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[292];
f_4518(4,av2);}}

/* k7068 in k7065 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_7070,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7073,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:606: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[289];
av2[4]=C_fast_retrieve(lf[290]);
av2[5]=lf[291];
f_4518(6,av2);}}

/* k7071 in k7068 in k7065 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7073,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7076,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[285]))){
/* c-backend.scm:608: generate-foreign-callback-stub-prototypes */
f_9421(t2,C_fast_retrieve(lf[287]));}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7076(2,av2);}}}

/* k7074 in k7071 in k7068 in k7065 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7076,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7079,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(C_fast_retrieve(lf[288])))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7091,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:610: gen */
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
f_4518(3,av2);}}
else{
if(C_truep(C_fast_retrieve(lf[285]))){
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* c-backend.scm:613: generate-foreign-callback-stub-prototypes */
f_9421(((C_word*)t0)[2],C_fast_retrieve(lf[287]));}}}

/* k7077 in k7074 in k7071 in k7068 in k7065 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7079,c,av);}
if(C_truep(C_fast_retrieve(lf[285]))){
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* c-backend.scm:613: generate-foreign-callback-stub-prototypes */
f_9421(((C_word*)t0)[2],C_fast_retrieve(lf[287]));}}

/* k7089 in k7074 in k7071 in k7068 in k7065 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7091(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_7091,c,av);}
a=C_alloc(5);
t2=C_fast_retrieve(lf[288]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7101,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7101(t6,((C_word*)t0)[2],C_fast_retrieve(lf[288]));}

/* for-each-loop1211 in k7089 in k7074 in k7071 in k7068 in k7065 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_fcall f_7101(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7101,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7111,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:611: gen */
t4=lf[4];{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_slot(t2,C_fix(0));
f_4518(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7109 in for-each-loop1211 in k7089 in k7074 in k7071 in k7068 in k7065 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7111,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7101(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k7129 in k7062 in k7059 in k7056 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7131,c,av);}
/* c-backend.scm:604: gen-list */
f_4561(((C_word*)t0)[2],C_fast_retrieve(lf[293]));}

/* k7142 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7144(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_7144,c,av);}
/* c-backend.scm:592: gen */
t2=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[297];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[298];
av2[5]=C_SCHEME_TRUE;
av2[6]=lf[299];
av2[7]=C_SCHEME_TRUE;
av2[8]=t1;
av2[9]=lf[300];
f_4518(10,av2);}}

/* k7154 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_7156,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7159,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7161,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_7161(t6,t2,t1);}

/* k7157 in k7154 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7159,c,av);}
/* c-backend.scm:594: chicken.string#string-intersperse */
t2=C_fast_retrieve(lf[301]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[302];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop1176 in k7154 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7161(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_7161,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7186,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:595: g1199 */
t4=*((C_word*)lf[152]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[303];
av2[3]=C_slot(t2,C_fix(0));
av2[4]=lf[304];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k7184 in map-loop1176 in k7154 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7186(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7186,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_7161(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k7195 in header in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7197(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7197,c,av);}
/* c-backend.scm:596: chicken.string#string-split */
t2=C_fast_retrieve(lf[305]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[306];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k7205 in k9026 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_7207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){
C_save_and_reclaim((void *)f_7207,c,av);}
/* c-backend.scm:616: gen */
t2=lf[4];{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[501];
av2[5]=C_SCHEME_TRUE;
av2[6]=t1;
av2[7]=lf[502];
av2[8]=C_SCHEME_TRUE;
av2[9]=lf[503];
av2[10]=C_SCHEME_TRUE;
f_4518(11,av2);}}

/* k7209 in k9026 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_7211(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7211,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14784,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:75: chicken.string#->string */
t3=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7213(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_7213,2,t0,t1);}
a=C_alloc(5);
t2=C_i_length(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7220,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:625: gen */
t4=lf[4];{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[321];
f_4518(5,av2);}}

/* k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_7220,c,av);}
a=C_alloc(17);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=lf[222];
t7=C_fast_retrieve(lf[293]);
t8=C_i_check_list_2(C_fast_retrieve(lf[293]),lf[308]);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7383,a[2]=t4,a[3]=t11,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t13=((C_word*)t11)[1];
f_7383(t13,t9,C_fast_retrieve(lf[293]));}

/* k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_7234,c,av);}
a=C_alloc(10);
t2=C_i_check_list_2(t1,lf[91]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7240,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7360,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7360(t7,t3,t1);}

/* k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7240(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_7240,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_eqp(((C_word*)t0)[4],C_fix(0));
if(C_truep(t3)){
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_7243(2,av2);}}
else{
/* c-backend.scm:632: gen */
t4=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[315];
av2[5]=((C_word*)t0)[4];
av2[6]=lf[316];
f_4518(7,av2);}}}

/* k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7243(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_7243,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7246,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:633: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[314];
f_4518(4,av2);}}

/* k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7246(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_7246,c,av);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7251,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_7251(t5,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3]);}

/* doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7251(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_7251,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t3))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7261,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:637: ##sys#lambda-info->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[313]);
C_word av2[3];
av2[0]=*((C_word*)lf[313]+1);
av2[1]=t4;
av2[2]=C_i_car(t3);
tp(3,av2);}}}

/* k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,11)))){
C_save_and_reclaim((void *)f_7261,c,av);}
a=C_alloc(23);
t2=C_i_string_length(t1);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7267,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=t1,tmp=(C_word)a,a+=8,tmp);
t4=C_s_a_i_arithmetic_shift(&a,2,t2,C_fix(-16));
t5=C_s_a_i_arithmetic_shift(&a,2,t2,C_fix(-8));
t6=C_s_a_i_bitwise_and(&a,2,C_fix(255),t5);
/* c-backend.scm:639: gen */
t7=lf[4];{
C_word *av2;
if(c >= 12) {
  av2=av;
} else {
  av2=C_alloc(12);
}
av2[0]=t7;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[311];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[312];
av2[6]=t4;
av2[7]=C_make_character(44);
av2[8]=t6;
av2[9]=C_make_character(44);
av2[10]=C_u_fixnum_and(C_fix(255),t2);
av2[11]=C_make_character(41);
f_4518(12,av2);}}

/* k7265 in k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_7267,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7270,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7309,a[2]=((C_word*)t0)[6],a[3]=t4,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_7309(t6,t2,C_fix(0));}

/* k7268 in k7265 in k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_7270(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_7270,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7273,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[6],C_fix(7));
t4=C_s_a_i_bitwise_and(&a,2,C_fix(16777208),t3);
t5=C_s_a_u_i_integer_minus(&a,2,t4,((C_word*)t0)[6]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7291,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_7291(t9,t2,t5);}

/* k7271 in k7268 in k7265 in k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7273,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:650: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[309];
f_4518(3,av2);}}

/* k7274 in k7271 in k7268 in k7265 in k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_7276(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_7276,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7251(t3,((C_word*)t0)[4],t2,C_u_i_cdr(((C_word*)t0)[5]));}

/* doloop1288 in k7268 in k7265 in k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_fcall f_7291(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7291,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_zerop(t2))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7299,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:649: gen */
t4=lf[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[310];
f_4518(3,av2);}}}

/* k7297 in doloop1288 in k7268 in k7265 in k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_7299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_7299,c,av);}
a=C_alloc(29);
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7291(t3,((C_word*)t0)[4],t2);}

/* doloop1287 in k7265 in k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_fcall f_7309(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7309,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7319,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=C_i_string_ref(((C_word*)t0)[4],t2);
/* c-backend.scm:646: gen */
t5=lf[4];{
C_word av2[4];
av2[0]=t5;
av2[1]=t3;
av2[2]=C_make_character(44);
av2[3]=C_fix(C_character_code(t4));
f_4518(4,av2);}}}

/* k7317 in doloop1287 in k7265 in k7259 in doloop1247 in k7244 in k7241 in k7238 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7319(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_7319,c,av);}
a=C_alloc(5);
t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7309(t3,((C_word*)t0)[4],t2);}

/* for-each-loop1239 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7360(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,9)))){
C_save_and_reclaim_args((void *)trf_7360,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7370,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
/* c-backend.scm:628: gen */
t5=lf[4];{
C_word av2[10];
av2[0]=t5;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[317];
av2[4]=t4;
av2[5]=lf[318];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[319];
av2[8]=t4;
av2[9]=lf[320];
f_4518(10,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7368 in for-each-loop1239 in k7232 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7370(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7370,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7360(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* map-loop1253 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7383(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_7383,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7408,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:630: g1259 */
t4=lf[222];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_9238(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k7406 in map-loop1253 in k7218 in declarations in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7408(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7408,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_7383(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7417(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_7417,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7421,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:653: gen */
t3=lf[4];{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
f_4518(3,av2);}}

/* k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_7421,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[91]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7572,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7572(t6,((C_word*)t0)[3],((C_word*)t0)[2]);}

/* k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7430,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:659: chicken.compiler.core#lambda-literal-customizable */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[60]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[60]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_7433,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7436,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7564,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:660: chicken.compiler.core#lambda-literal-closure-size */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[197]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[197]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=t2;
f_7436(t3,C_SCHEME_FALSE);}}

/* k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7436(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(38,0,3)))){
C_save_and_reclaim_args((void *)trf_7436,2,t0,t1);}
a=C_alloc(38);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7439,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7555,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t4=C_s_a_i_minus(&a,2,((C_word*)t0)[6],C_fix(1));
/* c-backend.scm:661: make-variable-list */
f_9330(t3,t4,lf[340]);}
else{
/* c-backend.scm:661: make-variable-list */
f_9330(t3,((C_word*)t0)[6],lf[340]);}}

/* k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_7439,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7442,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:662: chicken.compiler.core#lambda-literal-direct */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[59]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[59]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7442(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_7442,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7445,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:663: chicken.compiler.core#lambda-literal-allocated */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[338]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[338]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7445(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_7445,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7448,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:664: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
f_4518(3,av2);}}

/* k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_7448(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
C_save_and_reclaim((void *)f_7448,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7451,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=C_eqp(lf[326],((C_word*)t0)[7]);
if(C_truep(C_i_not(t3))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7513,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:666: gen */
t5=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[332];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[333];
av2[5]=C_SCHEME_TRUE;
f_4518(6,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7538,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:674: toplevel */
t5=lf[222];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_fast_retrieve(lf[295]);
f_9238(3,av2);}}}

/* k7449 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7451(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_7451,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:678: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(40);
f_4518(3,av2);}}

/* k7452 in k7449 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_7454(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_7454,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7457,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)t0)[4])){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7457(2,av2);}}
else{
/* c-backend.scm:679: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[325];
f_4518(3,av2);}}}

/* k7455 in k7452 in k7449 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_7457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_7457,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7460,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(C_truep(((C_word*)t0)[3])?C_i_not(C_i_zerop(((C_word*)t0)[6])):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7490,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:681: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[324];
f_4518(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_7460(2,av2);}}}

/* k7458 in k7455 in k7452 in k7449 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_7460(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_7460,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7463,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[4])){
if(C_truep(((C_word*)t0)[4])){{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=lf[4];
av2[3]=((C_word*)t0)[5];
C_apply(4,av2);}}
else{
/* c-backend.scm:685: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[323];
f_4518(3,av2);}}}
else{
if(C_truep(((C_word*)t0)[3])){{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=lf[4];
av2[3]=((C_word*)t0)[5];
C_apply(4,av2);}}
else{
/* c-backend.scm:685: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[323];
f_4518(3,av2);}}}}

/* k7461 in k7458 in k7455 in k7452 in k7449 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_7463(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7463,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7466,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:686: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(41);
f_4518(3,av2);}}

/* k7464 in k7461 in k7458 in k7455 in k7452 in k7449 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_7466(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7466,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7469,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[3])){
/* c-backend.scm:688: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(59);
f_4518(3,av2);}}
else{
/* c-backend.scm:687: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[322];
f_4518(3,av2);}}}

/* k7467 in k7464 in k7461 in k7458 in k7455 in k7452 in k7449 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_ccall f_7469(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7469,c,av);}
/* c-backend.scm:688: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* k7488 in k7455 in k7452 in k7449 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_7490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7490,c,av);}
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
/* c-backend.scm:682: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_make_character(44);
f_4518(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_7460(2,av2);}}}

/* k7511 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7513(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7513,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7516,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:667: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[331];
f_4518(3,av2);}}

/* k7514 in k7511 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_7516(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_7516,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7519,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[5])){
/* c-backend.scm:668: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[329];
f_4518(3,av2);}}
else{
/* c-backend.scm:668: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[330];
f_4518(3,av2);}}}

/* k7517 in k7514 in k7511 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_7519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7519,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7522,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[4])){
/* c-backend.scm:670: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[327];
f_4518(3,av2);}}
else{
/* c-backend.scm:671: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[328];
f_4518(3,av2);}}}

/* k7520 in k7517 in k7514 in k7511 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_7522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7522,c,av);}
/* c-backend.scm:672: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
f_4518(3,av2);}}

/* k7536 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7538(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_7538,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7541,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:675: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[336];
av2[3]=t1;
av2[4]=lf[337];
av2[5]=C_SCHEME_TRUE;
f_4518(6,av2);}}

/* k7539 in k7536 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_7541(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7541,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7544,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:676: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[335];
f_4518(3,av2);}}

/* k7542 in k7539 in k7536 in k7446 in k7443 in k7440 in k7437 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_7544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7544,c,av);}
/* c-backend.scm:677: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[334];
av2[3]=((C_word*)t0)[3];
f_4518(4,av2);}}

/* k7553 in k7434 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7555,c,av);}
/* c-backend.scm:661: chicken.base#intersperse */
t2=C_fast_retrieve(lf[8]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k7562 in k7431 in k7428 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7564,c,av);}
t2=((C_word*)t0)[2];
f_7436(t2,C_i_zerop(t1));}

/* for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7572(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_7572,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7582,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_i_car(t4);
t6=C_u_i_cdr(t4);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7430,a[2]=t3,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:658: chicken.compiler.core#lambda-literal-argument-count */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word av2[3];
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t7;
av2[2]=t6;
tp(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7580 in for-each-loop1308 in k7419 in prototypes in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7582(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7582,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7572(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7595(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7595,2,t0,t1);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[91]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7693,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7693(t6,t1,((C_word*)t0)[2]);}

/* doloop1373 in k7651 in k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_fcall f_7606(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,7)))){
C_save_and_reclaim_args((void *)trf_7606,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7616,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:700: gen */
t5=lf[4];{
C_word av2[8];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[344];
av2[4]=t2;
av2[5]=lf[345];
av2[6]=t3;
av2[7]=lf[346];
f_4518(8,av2);}}}

/* k7614 in doloop1373 in k7651 in k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7616(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){
C_save_and_reclaim((void *)f_7616,c,av);}
a=C_alloc(58);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
t4=((C_word*)((C_word*)t0)[4])[1];
f_7606(t4,((C_word*)t0)[5],t2,t3);}

/* k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7632(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_7632,c,av);}
a=C_alloc(11);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7635,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* c-backend.scm:707: chicken.compiler.core#lambda-literal-customizable */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[60]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[60]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}

/* k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7635(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_7635,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7638,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7685,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:708: chicken.compiler.core#lambda-literal-closure-size */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[197]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[197]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}
else{
t3=t2;
f_7638(t3,C_SCHEME_FALSE);}}

/* k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7638(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(39,0,2)))){
C_save_and_reclaim_args((void *)trf_7638,2,t0,t1);}
a=C_alloc(39);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t1)){
t3=((C_word*)((C_word*)t0)[4])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,C_s_a_i_minus(&a,2,t3,C_fix(1)));
t5=t2;
f_7641(t5,t4);}
else{
t3=t2;
f_7641(t3,C_SCHEME_UNDEFINED);}}

/* k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7641(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_7641,2,t0,t1);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
/* c-backend.scm:710: chicken.compiler.core#lambda-literal-direct */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[59]);
C_word av2[3];
av2[0]=*((C_word*)lf[59]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}

/* k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_7650,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7653,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:713: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[347];
av2[4]=((C_word*)t0)[4];
av2[5]=lf[348];
f_4518(6,av2);}}

/* k7651 in k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(40,c,4)))){
C_save_and_reclaim((void *)f_7653,c,av);}
a=C_alloc(40);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=((C_word*)((C_word*)t0)[3])[1];
t4=C_s_a_i_minus(&a,2,t3,C_fix(1));
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7606,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_7606(t8,t2,C_fix(0),t4);}

/* k7654 in k7651 in k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_7656(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_7656,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:715: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=C_make_character(40);
f_4518(5,av2);}}

/* k7657 in k7654 in k7651 in k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_7659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7659,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7662,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:716: make-argument-list */
f_9347(t2,((C_word*)((C_word*)t0)[3])[1],lf[343]);}

/* k7660 in k7657 in k7654 in k7651 in k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_7662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7662,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7665,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7672,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:717: chicken.base#intersperse */
t4=C_fast_retrieve(lf[8]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t1;
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k7663 in k7660 in k7657 in k7654 in k7651 in k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_7665(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7665,c,av);}
/* c-backend.scm:718: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[341];
f_4518(3,av2);}}

/* k7670 in k7660 in k7657 in k7654 in k7651 in k7648 in k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_7672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7672,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[4];
av2[3]=t1;
C_apply(4,av2);}}

/* k7677 in k7639 in k7636 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7679(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){
C_save_and_reclaim((void *)f_7679,c,av);}
a=C_alloc(5);
t2=C_i_not(t1);
t3=(C_truep(t2)?((C_word*)t0)[2]:C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7650,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:711: gen */
t5=lf[4];{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[349];
av2[5]=((C_word*)t0)[5];
av2[6]=lf[350];
av2[7]=C_SCHEME_TRUE;
av2[8]=lf[351];
av2[9]=((C_word*)t0)[5];
av2[10]=lf[352];
f_4518(11,av2);}}
else{
t4=((C_word*)((C_word*)t0)[6])[1];
f_7693(t4,((C_word*)t0)[7],C_slot(((C_word*)t0)[8],C_fix(1)));}}

/* k7683 in k7633 in k7630 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7685(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7685,c,av);}
t2=((C_word*)t0)[2];
f_7638(t2,C_i_zerop(t1));}

/* for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7693(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
C_save_and_reclaim_args((void *)trf_7693,3,t0,t1,t2);}
a=C_alloc(13);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7703,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_i_car(t4);
t6=C_u_i_cdr(t4);
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7632,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,a[7]=t6,tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:706: chicken.compiler.core#lambda-literal-argument-count */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word av2[3];
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t7;
av2[2]=t6;
tp(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7701 in for-each-loop1363 in trampolines in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7703(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7703,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7693(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* literal-frame in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7716(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_7716,2,t0,t1);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7722,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_7722(t5,t1,C_fix(0),((C_word*)t0)[3]);}

/* doloop1402 in literal-frame in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7722(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_7722,4,t0,t1,t2,t3);}
a=C_alloc(12);
if(C_truep(C_i_nullp(t3))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7732,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t5=C_i_car(t3);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7747,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t5,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:725: chicken.base#open-output-string */
t7=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k7730 in doloop1402 in literal-frame in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_7732,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7722(t3,((C_word*)t0)[4],t2,C_u_i_cdr(((C_word*)t0)[5]));}

/* k7745 in doloop1402 in literal-frame in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7747(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_7747,c,av);}
a=C_alloc(7);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7753,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:725: ##sys#print */
t4=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[357];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k7751 in k7745 in doloop1402 in literal-frame in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7753(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_7753,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7756,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:725: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k7754 in k7751 in k7745 in doloop1402 in literal-frame in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7756,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7759,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:725: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t2;
av2[2]=C_make_character(93);
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}

/* k7757 in k7754 in k7751 in k7745 in doloop1402 in literal-frame in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_7759,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:725: chicken.base#get-output-string */
t3=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k7760 in k7757 in k7754 in k7751 in k7745 in doloop1402 in literal-frame in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7762,c,av);}
/* c-backend.scm:725: gen-lit */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8053(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7770(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7770,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7777,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:731: chicken.compiler.support#immediate? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[368]);
C_word av2[3];
av2[0]=*((C_word*)lf[368]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7777(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_7777,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7783,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:732: chicken.compiler.support#big-fixnum? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[367]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7783(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_7783,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(2);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_stringp(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_bignump(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(2);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(((C_word*)t0)[3]))){
t2=C_fast_retrieve(lf[359]);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fast_retrieve(lf[359]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(7);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:737: chicken.keyword#keyword? */
t3=C_fast_retrieve(lf[366]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}}}}

/* k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7813(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_7813,c,av);}
a=C_alloc(12);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(7);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:738: literal-size */
t3=((C_word*)((C_word*)t0)[4])[1];
f_7770(t3,t2,C_u_i_car(((C_word*)t0)[3]));}
else{
if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){
t2=C_block_size(((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7854,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t6,tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:741: scheme#vector->list */
t8=*((C_word*)lf[361]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7928,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:742: chicken.compiler.support#block-variable-literal? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[365]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[365]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}}}

/* k7824 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7826,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7830,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:738: literal-size */
t3=((C_word*)((C_word*)t0)[3])[1];
f_7770(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k7828 in k7824 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7830(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_7830,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15323,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=t2;
va15323(t3,C_s_a_i_plus(&a,2,C_fix(3),((C_word*)t0)[3]));}

/* k7852 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_7854,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7857,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7889,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_7889(t6,t2,t1);}

/* k7855 in k7852 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7857(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_7857,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[360]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7863,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7865,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7865(t7,t3,t1,C_fix(0));}

/* k7861 in k7855 in k7852 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7863(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_7863,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15325,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=t2;
va15325(t3,C_s_a_i_plus(&a,2,C_fix(1),((C_word*)t0)[3]));}

/* foldl1431 in k7855 in k7852 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7865(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){
C_save_and_reclaim_args((void *)trf_7865,4,t0,t1,t2,t3);}
a=C_alloc(29);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=C_slot(t2,C_fix(0));
t6=C_s_a_i_plus(&a,2,t3,t5);
t8=t1;
t9=t4;
t10=t6;
t1=t8;
t2=t9;
t3=t10;
goto loop;}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* map-loop1437 in k7852 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7889(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_7889,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7914,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:741: g1443 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_7770(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k7912 in map-loop1437 in k7852 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7914(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7914,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_7889(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7928(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_7928,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_immp(((C_word*)t0)[3]))){
/* c-backend.scm:728: chicken.compiler.support#bomb */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[362];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
if(C_truep(C_lambdainfop(((C_word*)t0)[3]))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7946,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:745: ##sys#bytevector? */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[364]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[364]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}}}

/* k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_7946,c,av);}
a=C_alloc(13);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7953,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:745: chicken.compiler.support#bytes->words */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[363]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[363]+1);
av2[1]=t2;
av2[2]=C_block_size(((C_word*)t0)[3]);
tp(3,av2);}}
else{
if(C_truep(C_structurep(((C_word*)t0)[3]))){
t2=C_block_size(((C_word*)t0)[3]);
t3=C_a_i_fixnum_plus(&a,2,C_fix(2),t2);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7974,a[2]=t2,a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_7974(t7,((C_word*)t0)[2],C_fix(0),t3);}
else{
if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){
t2=C_block_size(((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8015,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:754: literal-size */
t4=((C_word*)((C_word*)t0)[4])[1];
f_7770(t4,t3,C_u_i_ratnum_num(((C_word*)t0)[3]));}
else{
if(C_truep(C_i_cplxnump(((C_word*)t0)[3]))){
t2=C_block_size(((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8040,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:757: literal-size */
t4=((C_word*)((C_word*)t0)[4])[1];
f_7770(t4,t3,C_u_i_cplxnum_real(((C_word*)t0)[3]));}
else{
/* c-backend.scm:728: chicken.compiler.support#bomb */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[362];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}}}}}

/* k7951 in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7953(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_7953,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_s_a_i_plus(&a,2,C_fix(2),t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* loop in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_7974(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,0,2)))){
C_save_and_reclaim_args((void *)trf_7974,4,t0,t1,t2,t3);}
a=C_alloc(35);
if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_s_a_i_plus(&a,2,t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7994,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:751: literal-size */
t6=((C_word*)((C_word*)t0)[4])[1];
f_7770(t6,t5,C_slot(((C_word*)t0)[5],t2));}}

/* k7992 in loop in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_7994(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_7994,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
/* c-backend.scm:751: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_7974(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k8013 in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_8015,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:755: literal-size */
t3=((C_word*)((C_word*)t0)[4])[1];
f_7770(t3,t2,C_u_i_ratnum_denom(((C_word*)t0)[5]));}

/* k8017 in k8013 in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8019(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_8019,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15333,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=t2;
va15333(t3,C_s_a_i_plus(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));}

/* k8038 in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8040(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_8040,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8044,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:758: literal-size */
t3=((C_word*)((C_word*)t0)[4])[1];
f_7770(t3,t2,C_u_i_cplxnum_imag(((C_word*)t0)[5]));}

/* k8042 in k8038 in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8044(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_8044,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va15335,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=t2;
va15335(t3,C_s_a_i_plus(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));}

/* gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8053(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_8053,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8060,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_fixnump(t2))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8205,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:763: chicken.compiler.support#big-fixnum? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[367]);
C_word av2[3];
av2[0]=*((C_word*)lf[367]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}
else{
t5=t4;
f_8060(t5,C_SCHEME_FALSE);}}

/* k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8060(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,6)))){
C_save_and_reclaim_args((void *)trf_8060,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
/* c-backend.scm:764: gen */
t2=lf[4];{
C_word av2[7];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[3];
av2[4]=lf[369];
av2[5]=((C_word*)t0)[4];
av2[6]=lf[370];
f_4518(7,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8066,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:765: chicken.compiler.support#block-variable-literal? */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[365]);
C_word av2[3];
av2[0]=*((C_word*)lf[365]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k8064 in k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8066(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
C_save_and_reclaim((void *)f_8066,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=*((C_word*)lf[371]+1);
t3=C_eqp(((C_word*)t0)[3],*((C_word*)lf[371]+1));
if(C_truep(t3)){
/* c-backend.scm:767: gen */
t4=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=lf[372];
f_4518(5,av2);}}
else{
if(C_truep(C_booleanp(((C_word*)t0)[3]))){
if(C_truep(((C_word*)t0)[3])){
/* c-backend.scm:769: gen */
t4=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=C_make_character(61);
av2[5]=lf[373];
av2[6]=C_make_character(59);
f_4518(7,av2);}}
else{
/* c-backend.scm:769: gen */
t4=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=C_make_character(61);
av2[5]=lf[374];
av2[6]=C_make_character(59);
f_4518(7,av2);}}}
else{
if(C_truep(C_charp(((C_word*)t0)[3]))){
/* c-backend.scm:771: gen */
t4=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=lf[375];
av2[5]=C_fix(C_character_code(((C_word*)t0)[3]));
av2[6]=lf[376];
f_4518(7,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8110,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:772: chicken.keyword#keyword? */
t5=C_fast_retrieve(lf[366]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}}}

/* k8108 in k8064 in k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_8110,c,av);}
a=C_alloc(6);
t2=(C_truep(t1)?t1:C_i_symbolp(((C_word*)t0)[2]));
if(C_truep(t2)){
t3=C_slot(((C_word*)t0)[2],C_fix(1));
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8119,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:774: chicken.compiler.support#c-ify-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[107]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[107]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}
else{
if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
/* c-backend.scm:782: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=lf[383];
f_4518(5,av2);}}
else{
t3=C_immp(((C_word*)t0)[2]);
t4=C_i_not(t3);
t5=(C_truep(t4)?C_lambdainfop(((C_word*)t0)[2]):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t6=C_fixnump(((C_word*)t0)[2]);
t7=(C_truep(t6)?t6:C_i_not(C_immp(((C_word*)t0)[2])));
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8161,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:786: gen */
t9=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=lf[386];
f_4518(5,av2);}}
else{
/* c-backend.scm:728: chicken.compiler.support#bomb */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[10]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[10]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[362];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}}}}}

/* k8117 in k8108 in k8064 in k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_8119,c,av);}
a=C_alloc(6);
t2=C_block_size(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8134,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:776: chicken.keyword#keyword? */
t4=C_fast_retrieve(lf[366]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8126 in k8132 in k8117 in k8108 in k8064 in k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8128(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_8128,c,av);}
/* c-backend.scm:780: gen */
t2=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[379];
av2[4]=((C_word*)t0)[4];
av2[5]=C_make_character(44);
av2[6]=((C_word*)t0)[5];
av2[7]=lf[380];
av2[8]=((C_word*)t0)[6];
av2[9]=lf[381];
f_4518(10,av2);}}

/* k8132 in k8117 in k8108 in k8064 in k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8134(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_8134,c,av);}
a=C_alloc(7);
t2=(C_truep(t1)?lf[377]:lf[378]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8128,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:779: gen */
t4=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[3];
av2[4]=lf[382];
f_4518(5,av2);}}

/* k8159 in k8108 in k8064 in k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8161(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_8161,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8164,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8171,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:787: encode-literal */
f_13078(t3,((C_word*)t0)[4]);}

/* k8162 in k8159 in k8108 in k8064 in k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8164,c,av);}
/* c-backend.scm:788: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[384];
f_4518(3,av2);}}

/* k8169 in k8159 in k8108 in k8064 in k8058 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8171(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8171,c,av);}
/* c-backend.scm:787: gen-string-constant */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8207(t2,((C_word*)t0)[3],t1);}

/* k8203 in gen-lit in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8205(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8205,c,av);}
t2=((C_word*)t0)[2];
f_8060(t2,C_i_not(t1));}

/* gen-string-constant in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8207(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_8207,3,t0,t1,t2);}
a=C_alloc(9);
t3=C_block_size(t2);
t4=C_fixnum_divide(t3,C_fix(80));
t5=C_fixnum_modulo(t3,C_fix(80));
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8221,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t7,tmp=(C_word)a,a+=7,tmp));
t9=((C_word*)t7)[1];
f_8221(t9,t1,t4,C_fix(0));}

/* doloop1502 in gen-string-constant in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8221(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(41,0,4)))){
C_save_and_reclaim_args((void *)trf_8221,4,t0,t1,t2,t3);}
a=C_alloc(41);
if(C_truep(C_i_zerop(t2))){
t4=C_eqp(((C_word*)t0)[2],C_fix(0));
t5=(C_truep(t4)?t4:C_i_not(C_eqp(((C_word*)t0)[3],C_fix(0))));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8242,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8246,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:799: string-like-substring */
f_8281(t7,((C_word*)t0)[5],t3,((C_word*)t0)[2]);}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8258,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[6],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8271,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8275,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=C_s_a_i_plus(&a,2,t3,C_fix(80));
/* c-backend.scm:800: string-like-substring */
f_8281(t6,((C_word*)t0)[5],t3,t7);}}

/* k8240 in doloop1502 in gen-string-constant in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8242,c,av);}
/* c-backend.scm:799: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
f_4518(3,av2);}}

/* k8244 in doloop1502 in gen-string-constant in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8246(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8246,c,av);}
/* c-backend.scm:799: chicken.compiler.support#c-ify-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[107]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[107]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k8256 in doloop1502 in gen-string-constant in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8258(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){
C_save_and_reclaim((void *)f_8258,c,av);}
a=C_alloc(58);
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(80));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8221(t4,((C_word*)t0)[5],t2,t3);}

/* k8269 in doloop1502 in gen-string-constant in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8271,c,av);}
/* c-backend.scm:800: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_TRUE;
f_4518(4,av2);}}

/* k8273 in doloop1502 in gen-string-constant in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8275,c,av);}
/* c-backend.scm:800: chicken.compiler.support#c-ify-string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[107]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[107]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* string-like-substring in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8281(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,0,2)))){
C_save_and_reclaim_args((void *)trf_8281,4,t1,t2,t3,t4);}
a=C_alloc(35);
t5=C_s_a_i_minus(&a,2,t4,t3);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8288,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:804: scheme#make-string */
t7=*((C_word*)lf[388]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k8286 in string-like-substring in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_8288,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8291,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:805: ##sys#copy-bytes */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[387]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[387]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
av2[5]=C_fix(0);
av2[6]=((C_word*)t0)[5];
tp(7,av2);}}

/* k8289 in k8286 in string-like-substring in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8291,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8293(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_8293,2,t0,t1);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8295,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
t3=C_i_check_list_2(((C_word*)t0)[8],lf[91]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8973,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_8973(t7,t1,((C_word*)t0)[8]);}

/* g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8295(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_8295,3,t0,t1,t2);}
a=C_alloc(11);
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8303,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp);
/* c-backend.scm:813: chicken.compiler.core#lambda-literal-argument-count */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[61]);
C_word av2[3];
av2[0]=*((C_word*)lf[61]+1);
av2[1]=t5;
av2[2]=t4;
tp(3,av2);}}

/* k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8303(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_8303,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8306,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* c-backend.scm:814: chicken.compiler.support#real-name */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[500]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[500]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[10];
tp(4,av2);}}

/* k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8306(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_8306,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8309,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,tmp=(C_word)a,a+=12,tmp);
/* c-backend.scm:815: chicken.compiler.core#lambda-literal-allocated */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[338]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[338]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_8309,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8312,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8965,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:816: chicken.compiler.core#lambda-literal-callee-signatures */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[499]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[499]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_8312,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8315,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* c-backend.scm:817: chicken.compiler.core#lambda-literal-rest-argument */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[497]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[497]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8315(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_8315,c,av);}
a=C_alloc(17);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
/* c-backend.scm:818: chicken.compiler.core#lambda-literal-customizable */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[60]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[60]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_8318,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8961,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:819: chicken.compiler.core#lambda-literal-closure-size */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[197]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[197]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t3=t2;
f_8321(t3,C_SCHEME_FALSE);}}

/* k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8321(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(47,0,3)))){
C_save_and_reclaim_args((void *)trf_8321,2,t0,t1);}
a=C_alloc(47);
t2=(C_truep(t1)?C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)):C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(0)));
t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8327,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t2,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=t1,a[17]=((C_word*)t0)[15],tmp=(C_word)a,a+=18,tmp);
/* c-backend.scm:821: make-variable-list */
f_9330(t3,((C_word*)t0)[2],lf[496]);}

/* k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_8327(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_8327,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8330,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t1,tmp=(C_word)a,a+=19,tmp);
/* c-backend.scm:822: make-argument-list */
f_9347(t2,((C_word*)t0)[6],lf[495]);}

/* k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_8330(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_8330,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8333,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t1,tmp=(C_word)a,a+=19,tmp);
if(C_truep(((C_word*)t0)[16])){
/* c-backend.scm:823: chicken.base#intersperse */
t3=C_fast_retrieve(lf[8]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cdr(((C_word*)t0)[18]);
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
/* c-backend.scm:823: chicken.base#intersperse */
t3=C_fast_retrieve(lf[8]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[18];
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_8333(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_8333,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8336,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=t1,a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
if(C_truep(((C_word*)t0)[16])){
/* c-backend.scm:824: chicken.base#intersperse */
t3=C_fast_retrieve(lf[8]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cdr(((C_word*)t0)[18]);
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
/* c-backend.scm:824: chicken.base#intersperse */
t3=C_fast_retrieve(lf[8]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[18];
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_8336(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){
C_save_and_reclaim((void *)f_8336,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_8339,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],tmp=(C_word)a,a+=20,tmp);
/* c-backend.scm:825: chicken.compiler.core#lambda-literal-external */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[494]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[494]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_8339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_8339,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_8342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=t1,a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp);
/* c-backend.scm:826: chicken.compiler.core#lambda-literal-looping */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[145]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[145]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_8342(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){
C_save_and_reclaim((void *)f_8342,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8345,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t1,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp);
/* c-backend.scm:827: chicken.compiler.core#lambda-literal-direct */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[59]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[59]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_8345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_8345,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_8348,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],tmp=(C_word)a,a+=23,tmp);
/* c-backend.scm:828: chicken.compiler.core#lambda-literal-rest-argument-mode */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[284]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[284]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_ccall f_8348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){
C_save_and_reclaim((void *)f_8348,c,av);}
a=C_alloc(24);
t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_8351,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=t1,a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],tmp=(C_word)a,a+=24,tmp);
/* c-backend.scm:829: chicken.compiler.core#lambda-literal-temporaries */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[139]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[139]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in ... */
static void C_ccall f_8351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){
C_save_and_reclaim((void *)f_8351,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8354,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],tmp=(C_word)a,a+=25,tmp);
/* c-backend.scm:830: chicken.compiler.core#lambda-literal-float-temporaries */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[493]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[493]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in ... */
static void C_ccall f_8354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){
C_save_and_reclaim((void *)f_8354,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8357,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=t1,a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],tmp=(C_word)a,a+=26,tmp);
/* c-backend.scm:831: toplevel */
t3=lf[222];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_fast_retrieve(lf[295]);
f_9238(3,av2);}}

/* k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in ... */
static void C_ccall f_8357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
C_save_and_reclaim((void *)f_8357,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_8360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=t1,a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],tmp=(C_word)a,a+=27,tmp);
if(C_truep(((C_word*)t0)[20])){
/* c-backend.scm:832: chicken.compiler.support#debugging */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[490]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[490]+1);
av2[1]=t2;
av2[2]=lf[491];
av2[3]=lf[492];
av2[4]=((C_word*)t0)[9];
tp(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8360(2,av2);}}}

/* k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in ... */
static void C_ccall f_8360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){
C_save_and_reclaim((void *)f_8360,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_8363,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],tmp=(C_word)a,a+=27,tmp);
/* c-backend.scm:833: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
f_4518(4,av2);}}

/* k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in ... */
static void C_ccall f_8363(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_8363,c,av);}
a=C_alloc(29);
t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8936,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:834: cleanup */
f_9254(t3,((C_word*)t0)[26]);}

/* k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in ... */
static void C_ccall f_8366(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){
C_save_and_reclaim((void *)f_8366,c,av);}
a=C_alloc(32);
t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8369,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp);
t3=C_eqp(lf[326],((C_word*)t0)[9]);
if(C_truep(C_i_not(t3))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8897,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:836: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[483];
f_4518(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8919,a[2]=t2,a[3]=((C_word*)t0)[19],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:843: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[486];
f_4518(3,av2);}}}

/* k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in ... */
static void C_ccall f_8369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){
C_save_and_reclaim((void *)f_8369,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp);
/* c-backend.scm:847: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(40);
f_4518(3,av2);}}

/* k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in ... */
static void C_ccall f_8372(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){
C_save_and_reclaim((void *)f_8372,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp);
if(C_truep(((C_word*)t0)[3])){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8375(2,av2);}}
else{
/* c-backend.scm:848: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[478];
f_4518(3,av2);}}}

/* k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in ... */
static void C_ccall f_8375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,2)))){
C_save_and_reclaim((void *)f_8375,c,av);}
a=C_alloc(30);
t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8378,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],tmp=(C_word)a,a+=26,tmp);
t3=(C_truep(((C_word*)t0)[10])?C_i_not(C_i_zerop(((C_word*)t0)[12])):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8874,a[2]=((C_word*)t0)[25],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:850: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[477];
f_4518(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_8378(2,av2);}}}

/* k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in ... */
static void C_ccall f_8378(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){
C_save_and_reclaim((void *)f_8378,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8381,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp);
if(C_truep(((C_word*)t0)[3])){
if(C_truep(((C_word*)t0)[3])){{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=lf[4];
av2[3]=((C_word*)t0)[25];
C_apply(4,av2);}}
else{
/* c-backend.scm:854: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[476];
f_4518(3,av2);}}}
else{
if(C_truep(((C_word*)t0)[10])){{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=lf[4];
av2[3]=((C_word*)t0)[25];
C_apply(4,av2);}}
else{
/* c-backend.scm:854: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[476];
f_4518(3,av2);}}}}

/* k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in ... */
static void C_ccall f_8381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){
C_save_and_reclaim((void *)f_8381,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8384,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp);
/* c-backend.scm:855: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[475];
f_4518(3,av2);}}

/* k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in ... */
static void C_ccall f_8384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){
C_save_and_reclaim((void *)f_8384,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8387,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp);
t3=C_eqp(((C_word*)t0)[22],lf[283]);
if(C_truep(t3)){
t4=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_FALSE);
t5=t2;
f_8387(t5,t4);}
else{
t4=t2;
f_8387(t4,C_SCHEME_UNDEFINED);}}

/* k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in ... */
static void C_fcall f_8387(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,0,3)))){
C_save_and_reclaim_args((void *)trf_8387,2,t0,t1);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8390,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp);
/* c-backend.scm:857: gen */
t3=lf[4];{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[474];
f_4518(4,av2);}}

/* k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in ... */
static void C_ccall f_8390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){
C_save_and_reclaim((void *)f_8390,c,av);}
a=C_alloc(31);
t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],tmp=(C_word)a,a+=25,tmp);
t3=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:((C_word*)t0)[10]);
if(C_truep(t3)){
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_8393(2,av2);}}
else{
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8840,a[2]=((C_word*)t0)[6],a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_8840(t7,t2,C_fix(0));}}

/* k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in ... */
static void C_ccall f_8393(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(90,c,5)))){
C_save_and_reclaim((void *)f_8393,c,av);}
a=C_alloc(90);
t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_8396,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],tmp=(C_word)a,a+=24,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
/* c-backend.scm:863: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[468];
av2[4]=((C_word*)t0)[6];
av2[5]=C_make_character(59);
f_4518(6,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8772,a[2]=((C_word*)t0)[24],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8810,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[15])){
t5=C_s_a_i_minus(&a,2,((C_word*)t0)[6],C_fix(1));
t6=t4;
f_8810(t6,C_s_a_i_plus(&a,2,((C_word*)t0)[11],t5));}
else{
t5=t4;
f_8810(t5,C_s_a_i_plus(&a,2,((C_word*)t0)[11],C_fix(0)));}}}

/* k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in ... */
static void C_ccall f_8396(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){
C_save_and_reclaim((void *)f_8396,c,av);}
a=C_alloc(30);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp);
t3=C_eqp(lf[326],((C_word*)t0)[9]);
if(C_truep(t3)){
t4=C_i_check_list_2(((C_word*)t0)[16],lf[360]);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8539,a[2]=((C_word*)t0)[16],a[3]=t2,a[4]=((C_word*)t0)[17],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[18],a[7]=((C_word*)t0)[19],tmp=(C_word)a,a+=8,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8602,a[2]=((C_word*)t0)[20],a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_8602(t9,t5,((C_word*)t0)[16],C_fix(0));}
else{
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8639,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[18],a[6]=((C_word*)t0)[21],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:904: gen */
t5=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[453];
f_4518(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8678,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[18],a[7]=((C_word*)t0)[22],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[23],a[10]=((C_word*)t0)[15],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)t0)[10])){
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_8678(2,av2);}}
else{
/* c-backend.scm:910: gen */
t5=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[467];
f_4518(4,av2);}}}}}

/* k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in ... */
static void C_ccall f_8399(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_8399,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8402,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t3=C_eqp(lf[326],((C_word*)t0)[9]);
t4=C_i_not(t3);
t5=(C_truep(t4)?C_i_not(((C_word*)t0)[10]):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8424,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[14],tmp=(C_word)a,a+=11,tmp);
t7=(C_truep(((C_word*)t0)[15])?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8499,a[2]=((C_word*)t0)[6],a[3]=t9,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_8499(t11,t6,C_fix(0));}
else{
t8=t6;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_8424(2,av2);}}}
else{
/* c-backend.scm:952: gen */
t6=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t2;
av2[2]=C_make_character(125);
f_4518(3,av2);}}}

/* k8400 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_ccall f_8402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_8402,c,av);}
a=C_alloc(10);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8406,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8413,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t3,a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:955: chicken.compiler.core#lambda-literal-body */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[389]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[389]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8404 in k8400 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8406,c,av);}
/* c-backend.scm:960: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(125);
f_4518(3,av2);}}

/* k8411 in k8400 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8413(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_8413,c,av);}
a=C_alloc(29);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1));
/* c-backend.scm:954: expression */
t3=((C_word*)((C_word*)t0)[4])[1];
f_4691(t3,((C_word*)t0)[5],t1,t2,((C_word*)t0)[6]);}
else{
/* c-backend.scm:954: expression */
t2=((C_word*)((C_word*)t0)[4])[1];
f_4691(t2,((C_word*)t0)[5],t1,((C_word*)t0)[3],((C_word*)t0)[6]);}}

/* k8422 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_ccall f_8424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,11)))){
C_save_and_reclaim((void *)f_8424,c,av);}
a=C_alloc(8);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8430,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:936: gen */
t3=lf[4];{
C_word *av2;
if(c >= 12) {
  av2=av;
} else {
  av2=C_alloc(12);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[394];
av2[4]=((C_word*)t0)[6];
av2[5]=lf[395];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[396];
av2[8]=((C_word*)t0)[3];
av2[9]=lf[397];
av2[10]=((C_word*)t0)[7];
av2[11]=lf[398];
f_4518(12,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8464,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t3=(C_truep(((C_word*)t0)[8])?C_i_greaterp(((C_word*)t0)[9],C_fix(0)):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8479,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:945: gen */
t5=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[402];
av2[4]=((C_word*)t0)[6];
av2[5]=C_make_character(44);
av2[6]=((C_word*)t0)[9];
av2[7]=C_make_character(44);
f_4518(8,av2);}}
else{
/* c-backend.scm:949: gen */
t4=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[403];
av2[4]=((C_word*)t0)[6];
av2[5]=lf[404];
f_4518(6,av2);}}}}

/* k8428 in k8422 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,7)))){
C_save_and_reclaim((void *)f_8430,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:938: gen */
t3=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[391];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[392];
av2[6]=((C_word*)t0)[2];
av2[7]=lf[393];
f_4518(8,av2);}}

/* k8431 in k8428 in k8422 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in ... */
static void C_ccall f_8433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,4)))){
C_save_and_reclaim((void *)f_8433,c,av);}
a=C_alloc(34);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8442,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_8442(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);}

/* doloop1669 in k8431 in k8428 in k8422 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in ... */
static void C_fcall f_8442(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_8442,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_zerop(t3))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8450,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:942: gen */
t5=lf[4];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[390];
av2[4]=t2;
av2[5]=C_make_character(59);
f_4518(6,av2);}}}

/* k8448 in doloop1669 in k8431 in k8428 in k8422 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in ... */
static void C_ccall f_8450(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){
C_save_and_reclaim((void *)f_8450,c,av);}
a=C_alloc(58);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8442(t4,((C_word*)t0)[5],t2,t3);}

/* k8462 in k8422 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_8464,c,av);}
if(C_truep(C_i_greaterp(((C_word*)t0)[2],C_fix(0)))){
/* c-backend.scm:951: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[399];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[400];
f_4518(6,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_8402(2,av2);}}}

/* k8477 in k8422 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8479(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_8479,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8482,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t2;
av2[2]=lf[4];
av2[3]=((C_word*)t0)[3];
C_apply(4,av2);}}

/* k8480 in k8477 in k8422 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in ... */
static void C_ccall f_8482(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8482,c,av);}
/* c-backend.scm:947: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[401];
f_4518(3,av2);}}

/* doloop1661 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_fcall f_8499(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,7)))){
C_save_and_reclaim_args((void *)trf_8499,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8509,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:934: gen */
t4=lf[4];{
C_word av2[8];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[405];
av2[4]=t2;
av2[5]=lf[406];
av2[6]=t2;
av2[7]=lf[407];
f_4518(8,av2);}}}

/* k8507 in doloop1661 in k8397 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_8509,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_8499(t3,((C_word*)t0)[4],t2);}

/* k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in ... */
static void C_ccall f_8539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,9)))){
C_save_and_reclaim((void *)f_8539,c,av);}
a=C_alloc(9);
t2=C_u_i_length(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8543,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
t4=C_fast_retrieve(lf[295]);
if(C_truep(C_fast_retrieve(lf[295]))){
t5=C_fast_retrieve(lf[295]);
t6=C_fast_retrieve(lf[295]);
/* c-backend.scm:876: gen */
t7=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t7;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[439];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[440];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[441];
av2[8]=C_fast_retrieve(lf[295]);
av2[9]=lf[442];
f_4518(10,av2);}}
else{
/* c-backend.scm:876: gen */
t5=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[439];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[440];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[441];
av2[8]=((C_word*)t0)[7];
av2[9]=lf[442];
f_4518(10,av2);}}}

/* k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_ccall f_8543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_8543,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8546,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_fast_retrieve(lf[185]))){
/* c-backend.scm:880: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[438];
f_4518(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8546(2,av2);}}}

/* k8544 in k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8546(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_8546,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_fast_retrieve(lf[436]))){
/* c-backend.scm:882: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[437];
f_4518(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8549(2,av2);}}}

/* k8547 in k8544 in k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in ... */
static void C_ccall f_8549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){
C_save_and_reclaim((void *)f_8549,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8552,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_fast_retrieve(lf[295]))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8552(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8581,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[432]))){
/* c-backend.scm:885: gen */
t4=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[433];
av2[4]=C_fast_retrieve(lf[432]);
av2[5]=lf[434];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[435];
f_4518(8,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_8581(2,av2);}}}}

/* k8550 in k8547 in k8544 in k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in ... */
static void C_ccall f_8552(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,35)))){
C_save_and_reclaim((void *)f_8552,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8555,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:889: gen */
t3=lf[4];{
C_word *av2;
if(c >= 36) {
  av2=av;
} else {
  av2=C_alloc(36);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[412];
av2[4]=((C_word*)t0)[5];
av2[5]=lf[413];
av2[6]=((C_word*)t0)[6];
av2[7]=lf[414];
av2[8]=C_SCHEME_TRUE;
av2[9]=lf[415];
av2[10]=((C_word*)t0)[5];
av2[11]=lf[416];
av2[12]=((C_word*)t0)[6];
av2[13]=lf[417];
av2[14]=C_SCHEME_TRUE;
av2[15]=lf[418];
av2[16]=((C_word*)t0)[7];
av2[17]=lf[419];
av2[18]=C_SCHEME_TRUE;
av2[19]=lf[420];
av2[20]=C_SCHEME_TRUE;
av2[21]=lf[421];
av2[22]=((C_word*)t0)[8];
av2[23]=lf[422];
av2[24]=C_SCHEME_TRUE;
av2[25]=lf[423];
av2[26]=C_SCHEME_TRUE;
av2[27]=lf[424];
av2[28]=((C_word*)t0)[8];
av2[29]=lf[425];
av2[30]=C_SCHEME_TRUE;
av2[31]=lf[426];
av2[32]=C_SCHEME_TRUE;
av2[33]=lf[427];
av2[34]=((C_word*)t0)[5];
av2[35]=lf[428];
f_4518(36,av2);}}

/* k8553 in k8550 in k8547 in k8544 in k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in ... */
static void C_ccall f_8555(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_8555,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8558,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_eqp(((C_word*)t0)[3],C_fix(0));
if(C_truep(C_i_not(t3))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8567,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:899: gen */
t5=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[410];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[411];
f_4518(6,av2);}}
else{
/* c-backend.scm:902: gen */
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(123);
f_4518(3,av2);}}}

/* k8556 in k8553 in k8550 in k8547 in k8544 in k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in ... */
static void C_ccall f_8558(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8558,c,av);}
/* c-backend.scm:902: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(123);
f_4518(3,av2);}}

/* k8565 in k8553 in k8550 in k8547 in k8544 in k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in ... */
static void C_ccall f_8567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8567,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8570,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:900: literal-frame */
t3=((C_word*)((C_word*)t0)[4])[1];
f_7716(t3,t2);}

/* k8568 in k8565 in k8553 in k8550 in k8547 in k8544 in k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in ... */
static void C_ccall f_8570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_8570,c,av);}
/* c-backend.scm:901: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[408];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[409];
f_4518(6,av2);}}

/* k8579 in k8547 in k8544 in k8541 in k8537 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in ... */
static void C_ccall f_8581(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_8581,c,av);}
if(C_truep(C_fast_retrieve(lf[429]))){
/* c-backend.scm:888: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[430];
av2[4]=C_fast_retrieve(lf[429]);
av2[5]=lf[431];
f_4518(6,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_8552(2,av2);}}}

/* foldl1614 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in ... */
static void C_fcall f_8602(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_8602,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8618,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8629,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:874: g1621 */
t7=t5;
f_8618(t7,t6,t3,C_slot(t2,C_fix(0)));}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* g1621 in foldl1614 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_fcall f_8618(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_8618,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8626,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:874: literal-size */
t5=((C_word*)((C_word*)t0)[2])[1];
f_7770(t5,t4,t3);}

/* k8624 in g1621 in foldl1614 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_8626,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_s_a_i_plus(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8627 in foldl1614 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_ccall f_8629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8629,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8602(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k8637 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in ... */
static void C_ccall f_8639(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_8639,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8642,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8654,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_not(C_fast_retrieve(lf[175])))){
if(C_truep(C_i_not(C_fast_retrieve(lf[452])))){
t4=C_i_greaterp(((C_word*)t0)[3],C_fix(2));
t5=t3;
f_8654(t5,(C_truep(t4)?C_i_not(((C_word*)t0)[6]):C_SCHEME_FALSE));}
else{
t4=t3;
f_8654(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_8654(t4,C_SCHEME_FALSE);}}

/* k8640 in k8637 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_ccall f_8642(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,9)))){
C_save_and_reclaim((void *)f_8642,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_fast_retrieve(lf[447]))){
/* c-backend.scm:907: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[448];
f_4518(4,av2);}}
else{
/* c-backend.scm:908: gen */
t3=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[443];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[444];
av2[6]=((C_word*)t0)[4];
av2[7]=lf[445];
av2[8]=((C_word*)t0)[5];
av2[9]=lf[446];
f_4518(10,av2);}}}

/* k8643 in k8640 in k8637 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){
C_save_and_reclaim((void *)f_8645,c,av);}
/* c-backend.scm:908: gen */
t2=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[443];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[444];
av2[6]=((C_word*)t0)[4];
av2[7]=lf[445];
av2[8]=((C_word*)t0)[5];
av2[9]=lf[446];
f_4518(10,av2);}}

/* k8652 in k8637 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_fcall f_8654(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){
C_save_and_reclaim_args((void *)trf_8654,2,t0,t1);}
if(C_truep(t1)){
/* c-backend.scm:906: gen */
t2=lf[4];{
C_word av2[8];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[449];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[450];
av2[6]=((C_word*)t0)[3];
av2[7]=lf[451];
f_4518(8,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_8642(2,av2);}}}

/* k8676 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in ... */
static void C_ccall f_8678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_8678,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8681,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)t0)[2])){
if(C_truep(C_i_not(C_fast_retrieve(lf[175])))){
if(C_truep(C_i_not(C_fast_retrieve(lf[436])))){
/* c-backend.scm:912: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[466];
f_4518(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8681(2,av2);}}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8681(2,av2);}}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8681(2,av2);}}}

/* k8679 in k8676 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_ccall f_8681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_8681,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[10])){
/* c-backend.scm:913: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[465];
f_4518(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8684(2,av2);}}}

/* k8682 in k8679 in k8676 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in ... */
static void C_ccall f_8684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_8684,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8712,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[9])){
if(C_truep(C_i_not(C_fast_retrieve(lf[175])))){
t4=C_i_not(C_fast_retrieve(lf[452]));
t5=t3;
f_8712(t5,(C_truep(t4)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));}
else{
t4=t3;
f_8712(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_8712(t4,C_SCHEME_FALSE);}}

/* k8685 in k8682 in k8679 in k8676 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in ... */
static void C_ccall f_8687(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8687,c,av);}
a=C_alloc(6);
if(C_truep(C_i_not(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8696,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_fast_retrieve(lf[447]))){
/* c-backend.scm:922: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[458];
f_4518(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8696(2,av2);}}}
else{
/* c-backend.scm:928: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
av2[2]=C_make_character(123);
f_4518(3,av2);}}}

/* k8694 in k8685 in k8682 in k8679 in k8676 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in ... */
static void C_ccall f_8696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_8696,c,av);}
if(C_truep(((C_word*)t0)[2])){
/* c-backend.scm:923: gen */
t2=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[454];
av2[4]=((C_word*)t0)[4];
av2[5]=lf[455];
av2[6]=((C_word*)t0)[5];
av2[7]=lf[456];
f_4518(8,av2);}}
else{
/* c-backend.scm:923: gen */
t2=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[454];
av2[4]=((C_word*)t0)[4];
av2[5]=lf[457];
av2[6]=((C_word*)t0)[5];
av2[7]=lf[456];
f_4518(8,av2);}}}

/* k8710 in k8682 in k8679 in k8676 in k8394 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in ... */
static void C_fcall f_8712(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,7)))){
C_save_and_reclaim_args((void *)trf_8712,2,t0,t1);}
if(C_truep(t1)){
t2=C_eqp(((C_word*)t0)[2],lf[283]);
if(C_truep(t2)){
if(C_truep(C_i_greaterp(((C_word*)t0)[3],C_fix(2)))){
/* c-backend.scm:917: gen */
t3=lf[4];{
C_word av2[8];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[459];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[460];
av2[6]=((C_word*)t0)[3];
av2[7]=lf[461];
f_4518(8,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8687(2,av2);}}}
else{
/* c-backend.scm:918: gen */
t3=lf[4];{
C_word av2[8];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[462];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[463];
av2[6]=((C_word*)t0)[3];
av2[7]=lf[464];
f_4518(8,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_8687(2,av2);}}}

/* k8770 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in ... */
static void C_ccall f_8772(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_8772,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[91]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8785,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_8785(t6,((C_word*)t0)[3],((C_word*)t0)[2]);}

/* for-each-loop1590 in k8770 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in ... */
static void C_fcall f_8785(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
C_save_and_reclaim_args((void *)trf_8785,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8795,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:871: gen */
t4=lf[4];{
C_word av2[6];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[469];
av2[4]=C_slot(t2,C_fix(0));
av2[5]=C_make_character(59);
f_4518(6,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k8793 in for-each-loop1590 in k8770 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_ccall f_8795(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8795,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8785(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k8808 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in ... */
static void C_fcall f_8810(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_8810,2,t0,t1);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8812,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_8812(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* doloop1582 in k8808 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in ... */
static void C_fcall f_8812(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_8812,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_zerop(t3))){
t4=C_SCHEME_UNDEFINED;
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8820,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:868: gen */
t5=lf[4];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[470];
av2[4]=t2;
av2[5]=C_make_character(59);
f_4518(6,av2);}}}

/* k8818 in doloop1582 in k8808 in k8391 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in ... */
static void C_ccall f_8820(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(58,c,3)))){
C_save_and_reclaim((void *)f_8820,c,av);}
a=C_alloc(58);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8812(t4,((C_word*)t0)[5],t2,t3);}

/* doloop1577 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in ... */
static void C_fcall f_8840(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,7)))){
C_save_and_reclaim_args((void *)trf_8840,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8850,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:861: gen */
t4=lf[4];{
C_word av2[8];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[471];
av2[4]=t2;
av2[5]=lf[472];
av2[6]=t2;
av2[7]=lf[473];
f_4518(8,av2);}}}

/* k8848 in doloop1577 in k8388 in k8385 in k8382 in k8379 in k8376 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in ... */
static void C_ccall f_8850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_8850,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_8840(t3,((C_word*)t0)[4],t2);}

/* k8872 in k8373 in k8370 in k8367 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in ... */
static void C_ccall f_8874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8874,c,av);}
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
/* c-backend.scm:851: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_make_character(44);
f_4518(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_8378(2,av2);}}}

/* k8895 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in ... */
static void C_ccall f_8897(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_8897,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8900,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[5])){
/* c-backend.scm:837: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[481];
f_4518(3,av2);}}
else{
/* c-backend.scm:837: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[482];
f_4518(3,av2);}}}

/* k8898 in k8895 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in ... */
static void C_ccall f_8900(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8900,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8903,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[4])){
/* c-backend.scm:839: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[479];
f_4518(3,av2);}}
else{
/* c-backend.scm:840: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[480];
f_4518(3,av2);}}}

/* k8901 in k8898 in k8895 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in ... */
static void C_ccall f_8903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8903,c,av);}
/* c-backend.scm:841: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
f_4518(3,av2);}}

/* k8917 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in ... */
static void C_ccall f_8919(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_8919,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8922,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_fast_retrieve(lf[295]))){
/* c-backend.scm:846: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[484];
av2[5]=((C_word*)t0)[3];
f_4518(6,av2);}}
else{
/* c-backend.scm:845: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[485];
f_4518(4,av2);}}}

/* k8920 in k8917 in k8364 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in ... */
static void C_ccall f_8922(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_8922,c,av);}
/* c-backend.scm:846: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[484];
av2[5]=((C_word*)t0)[3];
f_4518(6,av2);}}

/* k8934 in k8361 in k8358 in k8355 in k8352 in k8349 in k8346 in k8343 in k8340 in k8337 in k8334 in k8331 in k8328 in k8325 in k8319 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in ... */
static void C_ccall f_8936(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_8936,c,av);}
/* c-backend.scm:834: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[487];
av2[3]=t1;
av2[4]=lf[488];
av2[5]=C_SCHEME_TRUE;
f_4518(6,av2);}}

/* k8959 in k8316 in k8313 in k8310 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8961,c,av);}
t2=((C_word*)t0)[2];
f_8321(t2,C_i_zerop(t1));}

/* k8963 in k8307 in k8304 in k8301 in g1520 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8965(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8965,c,av);}{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[498]+1);
av2[3]=C_fix(0);
av2[4]=t1;
C_apply(5,av2);}}

/* for-each-loop1519 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_8973(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_8973,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8983,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:809: g1520 */
t4=((C_word*)t0)[3];
f_8295(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k8981 in for-each-loop1519 in procedures in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8983(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8983,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8973(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_8997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_8997,c,av);}
a=C_alloc(11);
t2=C_mutate(&lf[3] /* (set! chicken.compiler.c-backend#output ...) */,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9001,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
/* c-backend.scm:965: header */
t4=((C_word*)((C_word*)t0)[12])[1];
f_7054(t4,t3);}

/* k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_9001,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9004,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
/* c-backend.scm:966: declarations */
t3=((C_word*)((C_word*)t0)[10])[1];
f_7213(t3,t2);}

/* k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9004(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_9004,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t3=C_fast_retrieve(lf[658]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9368,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1065: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
f_4518(3,av2);}}

/* k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9007(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_9007,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t3=C_fast_retrieve(lf[612]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9466,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
t5=C_fast_retrieve(lf[612]);
t6=C_i_check_list_2(C_fast_retrieve(lf[612]),lf[91]);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9779,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_9779(t10,t2,C_fast_retrieve(lf[612]));}

/* k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9010(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_9010,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9013,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
/* c-backend.scm:969: prototypes */
t3=((C_word*)((C_word*)t0)[9])[1];
f_7417(t3,t2);}

/* k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_9013,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9016,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
t3=C_fast_retrieve(lf[287]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9804,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
t5=C_fast_retrieve(lf[287]);
t6=C_i_check_list_2(C_fast_retrieve(lf[287]),lf[91]);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10433,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_10433(t10,t2,C_fast_retrieve(lf[287]));}

/* k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9016(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_9016,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:971: trampolines */
t3=((C_word*)((C_word*)t0)[7])[1];
f_7595(t3,t2);}

/* k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9019(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_9019,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9022,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_fast_retrieve(lf[185]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9043,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:982: gen */
t4=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[532];
f_4518(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_9022(2,av2);}}}

/* k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9022(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9022,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9025,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:974: procedures */
t3=((C_word*)((C_word*)t0)[5])[1];
f_8293(t3,t2);}

/* k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_9025(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,8)))){
C_save_and_reclaim((void *)f_9025,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9028,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9164,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_i_length(((C_word*)t0)[4]);
t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1));
/* c-backend.scm:1000: gen */
t6=lf[4];{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[521];
av2[5]=C_SCHEME_TRUE;
av2[6]=lf[522];
av2[7]=t5;
av2[8]=lf[523];
f_4518(9,av2);}}

/* k9026 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_9028(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_9028,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7207,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7211,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:618: chicken.base#get-output-string */
t4=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fast_retrieve(lf[504]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_9043,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9112,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9146,tmp=(C_word)a,a+=2,tmp);
/* c-backend.scm:993: chicken.sort#sort */
t4=C_fast_retrieve(lf[531]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k9046 in for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_9048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_9048,c,av);}
a=C_alloc(8);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_i_check_list_2(t2,lf[91]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9079,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9084,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=((C_word*)t6)[1];
f_9084(t8,t4,t2);}

/* k9064 in for-each-loop1752 in k9046 in for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_9066(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9066,c,av);}
/* c-backend.scm:990: gen */
t2=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[527];
av2[3]=t1;
av2[4]=lf[528];
f_4518(5,av2);}}

/* k9068 in for-each-loop1752 in k9046 in for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_9070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9070,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f14791,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:74: chicken.string#->string */
t3=C_fast_retrieve(lf[118]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k9077 in k9046 in for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_9079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9079,c,av);}
/* c-backend.scm:992: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[525];
f_4518(3,av2);}}

/* for-each-loop1752 in k9046 in for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_fcall f_9084(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_9084,3,t0,t1,t2);}
a=C_alloc(11);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9094,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
if(C_truep(C_i_not(t4))){
/* c-backend.scm:989: gen */
t5=lf[4];{
C_word av2[3];
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[526];
f_4518(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9066,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9070,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:990: chicken.string#->string */
t7=C_fast_retrieve(lf[118]);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k9092 in for-each-loop1752 in k9046 in for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_9094(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9094,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9084(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_9112(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_9112,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[91]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9118,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9123,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_9123(t7,t3,t1);}

/* k9116 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_9118(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9118,c,av);}
/* c-backend.scm:994: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[524];
f_4518(4,av2);}}

/* for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_fcall f_9123(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_9123,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9133,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9048,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:985: gen */
t6=lf[4];{
C_word av2[6];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[529];
av2[4]=C_i_cadr(t4);
av2[5]=lf[530];
f_4518(6,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k9131 in for-each-loop1739 in k9110 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_9133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9133,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9123(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a9145 in k9041 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_9146(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9146,c,av);}
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_lessp(C_i_car(t2),C_i_car(t3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_9164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_9164,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9165,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9196,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9210,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_9210(t7,t3,((C_word*)t0)[4]);}

/* g1785 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_fcall f_9165(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_9165,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9173,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9193,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1006: chicken.internal#string->c-identifier */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[510]);
C_word av2[3];
av2[0]=*((C_word*)lf[510]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k9171 in g1785 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_9173(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9173,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[326],((C_word*)t0)[2]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9186,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1008: toplevel */
t4=lf[222];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fast_retrieve(lf[295]);
f_9238(3,av2);}}
else{
/* c-backend.scm:1009: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[2];
av2[3]=lf[507];
f_4518(4,av2);}}}

/* k9184 in k9171 in g1785 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_9186(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9186,c,av);}
/* c-backend.scm:1008: gen */
t2=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[505];
av2[3]=t1;
av2[4]=lf[506];
f_4518(5,av2);}}

/* k9191 in g1785 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_9193(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_9193,c,av);}
/* c-backend.scm:1006: gen */
t2=lf[4];{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[508];
av2[4]=((C_word*)t0)[3];
av2[5]=C_make_character(58);
av2[6]=t1;
av2[7]=lf[509];
f_4518(8,av2);}}

/* k9194 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_9196(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9196,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9199,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1011: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[520];
f_4518(4,av2);}}

/* k9197 in k9194 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_9199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9199,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9202,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1012: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[519];
f_4518(4,av2);}}

/* k9200 in k9197 in k9194 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_9202(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_9202,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9205,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1013: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[518];
f_4518(5,av2);}}

/* k9203 in k9200 in k9197 in k9194 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_9205(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,14)))){
C_save_and_reclaim((void *)f_9205,c,av);}
/* c-backend.scm:1014: gen */
t2=lf[4];{
C_word *av2;
if(c >= 15) {
  av2=av;
} else {
  av2=C_alloc(15);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[511];
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[512];
av2[5]=C_SCHEME_TRUE;
av2[6]=lf[513];
av2[7]=C_SCHEME_TRUE;
av2[8]=lf[514];
av2[9]=C_SCHEME_TRUE;
av2[10]=lf[515];
av2[11]=C_SCHEME_TRUE;
av2[12]=lf[516];
av2[13]=C_SCHEME_TRUE;
av2[14]=lf[517];
f_4518(15,av2);}}

/* for-each-loop1784 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_fcall f_9210(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_9210,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9220,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1002: g1785 */
t4=((C_word*)t0)[3];
f_9165(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k9218 in for-each-loop1784 in k9162 in k9023 in k9020 in k9017 in k9014 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_9220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9220,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9210(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.c-backend#toplevel in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9238(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_9238,c,av);}
a=C_alloc(6);
if(C_truep(C_i_not(t2))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[668];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9252,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4626,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:76: chicken.string#->string */
t5=C_fast_retrieve(lf[118]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k9250 in chicken.compiler.c-backend#toplevel in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9252(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9252,c,av);}
/* c-backend.scm:1027: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[669];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.c-backend#cleanup in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9254(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_9254,2,t1,t2);}
a=C_alloc(10);
t3=C_SCHEME_FALSE;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_i_string_length(t2);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9263,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t7,tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_9263(t9,t1,C_fix(0));}

/* loop in chicken.compiler.c-backend#cleanup in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9263(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
C_save_and_reclaim_args((void *)trf_9263,3,t0,t1,t2);}
a=C_alloc(18);
if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){
t3=((C_word*)((C_word*)t0)[3])[1];
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=(C_truep(t3)?t3:((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=C_i_string_ref(((C_word*)t0)[4],t2);
t4=C_u_i_char_lessp(t3,C_make_character(32));
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9289,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=t3,tmp=(C_word)a,a+=8,tmp);
if(C_truep(t4)){
t6=t5;
f_9289(t6,t4);}
else{
t6=C_u_i_char_greaterp(t3,C_make_character(126));
if(C_truep(t6)){
t7=t5;
f_9289(t7,t6);}
else{
if(C_truep(C_u_i_char_equalp(t3,C_make_character(42)))){
t7=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1));
if(C_truep(C_i_integer_lessp(t2,t7))){
t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1));
t9=t5;
f_9289(t9,C_u_i_char_equalp(C_make_character(47),C_i_string_ref(((C_word*)t0)[4],t8)));}
else{
t8=t5;
f_9289(t8,C_SCHEME_FALSE);}}
else{
t7=t5;
f_9289(t7,C_SCHEME_FALSE);}}}}}

/* k9287 in loop in chicken.compiler.c-backend#cleanup in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9289(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9289,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=C_i_string_set(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],C_make_character(126));
t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
/* c-backend.scm:1046: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_9263(t4,((C_word*)t0)[5],t3);}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9299,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1043: scheme#string-copy */
t3=C_fast_retrieve(lf[670]);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}
else{
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=C_i_string_set(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)t0)[7]);
t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
/* c-backend.scm:1046: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_9263(t4,((C_word*)t0)[5],t3);}
else{
t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
/* c-backend.scm:1046: loop */
t3=((C_word*)((C_word*)t0)[4])[1];
f_9263(t3,((C_word*)t0)[5],t2);}}}

/* k9297 in k9287 in loop in chicken.compiler.c-backend#cleanup in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9299,c,av);}
a=C_alloc(5);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=C_i_string_set(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],C_make_character(126));
t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
/* c-backend.scm:1046: loop */
t5=((C_word*)((C_word*)t0)[4])[1];
f_9263(t5,((C_word*)t0)[5],t4);}

/* chicken.compiler.c-backend#make-variable-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9330(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_9330,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9336,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1052: list-tabulate */
f_4250(t1,t2,t4);}

/* a9335 in chicken.compiler.c-backend#make-variable-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9336(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_9336,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9344,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=C_fix(10);
tp(4,av2);}}

/* k9342 in a9335 in chicken.compiler.c-backend#make-variable-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9344(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9344,c,av);}
/* c-backend.scm:1054: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[671];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.c-backend#make-argument-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9347(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_9347,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9353,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1057: list-tabulate */
f_4250(t1,t2,t4);}

/* a9352 in chicken.compiler.c-backend#make-argument-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9353(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_9353,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9361,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* ##sys#number->string */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[144]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[144]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=C_fix(10);
tp(4,av2);}}

/* k9359 in a9352 in chicken.compiler.c-backend#make-argument-list in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9361(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9361,c,av);}
/* c-backend.scm:1059: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k9366 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9368(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9368,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[91]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9398,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_9398(t6,((C_word*)t0)[3],((C_word*)t0)[2]);}

/* k9388 in for-each-loop1843 in k9366 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_9390,c,av);}
/* c-backend.scm:1071: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
av2[5]=C_make_character(59);
f_4518(6,av2);}}

/* for-each-loop1843 in k9366 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9398(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_9398,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9408,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_i_vector_ref(t4,C_fix(0));
t6=C_i_vector_ref(t4,C_fix(1));
t7=C_i_vector_ref(t4,C_fix(2));
t8=(C_truep(t7)?lf[659]:lf[660]);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9390,a[2]=t3,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1071: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t9;
av2[2]=t6;
av2[3]=t5;
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k9406 in for-each-loop1843 in k9366 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9408(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9408,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9398(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9421(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_9421,2,t1,t2);}
a=C_alloc(5);
t3=C_i_check_list_2(t2,lf[91]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9441,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_9441(t7,t1,t2);}

/* k9425 in for-each-loop1867 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9427(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9427,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9430,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1081: generate-foreign-callback-header */
f_10456(t2,lf[672],((C_word*)t0)[3]);}

/* k9428 in k9425 in for-each-loop1867 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9430,c,av);}
/* c-backend.scm:1082: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(59);
f_4518(3,av2);}}

/* for-each-loop1867 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9441(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_9441,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9451,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9427,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1080: gen */
t6=lf[4];{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_SCHEME_TRUE;
f_4518(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k9449 in for-each-loop1867 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9451(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9451,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9441(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9466(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_9466,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9470,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1088: chicken.compiler.core#foreign-stub-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[657]);
C_word av2[3];
av2[0]=*((C_word*)lf[657]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9470(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9470,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9473,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1089: chicken.compiler.support#real-name2 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[610]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[610]+1);
av2[1]=t2;
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_9473,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9476,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1090: chicken.compiler.core#foreign-stub-argument-types */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[656]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[656]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_9476,c,av);}
a=C_alloc(8);
t2=C_i_length(t1);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9482,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* c-backend.scm:1092: chicken.compiler.core#foreign-stub-return-type */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[655]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[655]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9482(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_9482,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9485,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* c-backend.scm:1093: chicken.compiler.core#foreign-stub-name */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[654]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[654]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}

/* k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_9485(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_9485,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9488,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* c-backend.scm:1094: chicken.compiler.core#foreign-stub-body */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[653]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[653]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_9488(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_9488,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9491,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* c-backend.scm:1095: chicken.compiler.core#foreign-stub-argument-names */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[652]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[652]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}

/* k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_9491(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_9491,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9494,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(t1)){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_9494(2,av2);}}
else{
t3=C_a_i_list(&a,1,C_SCHEME_FALSE);
if(C_truep(C_i_nullp(t3))){
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f14812,tmp=(C_word)a,a+=2,tmp);
/* mini-srfi-1.scm:228: list-tabulate */
f_4250(t2,((C_word*)t0)[5],t4);}
else{
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4442,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:228: list-tabulate */
f_4250(t2,((C_word*)t0)[5],t5);}}}

/* k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_ccall f_9494(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_9494,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9497,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* c-backend.scm:1096: foreign-result-conversion */
f_12291(t2,((C_word*)t0)[4],lf[651]);}

/* k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_ccall f_9497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_9497,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9500,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* c-backend.scm:1097: chicken.compiler.core#foreign-stub-cps */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[650]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[650]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[11];
tp(3,av2);}}

/* k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_ccall f_9500(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_9500,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* c-backend.scm:1098: chicken.compiler.core#foreign-stub-callback */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[649]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[649]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[12];
tp(3,av2);}}

/* k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_ccall f_9503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_9503,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9506,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* c-backend.scm:1099: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
f_4518(3,av2);}}

/* k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_ccall f_9506(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_9506,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)t0)[13])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9768,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1101: cleanup */
f_9254(t3,((C_word*)t0)[13]);}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_9509(2,av2);}}}

/* k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in ... */
static void C_ccall f_9509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
C_save_and_reclaim((void *)f_9509,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)t0)[4])){
/* c-backend.scm:1103: gen */
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[645];
av2[4]=((C_word*)t0)[10];
av2[5]=lf[646];
f_4518(6,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_9512(2,av2);}}}

/* k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in ... */
static void C_ccall f_9512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,11)))){
C_save_and_reclaim((void *)f_9512,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9515,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t0)[6])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9713,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1106: gen */
t4=lf[4];{
C_word *av2;
if(c >= 12) {
  av2=av;
} else {
  av2=C_alloc(12);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[636];
av2[4]=((C_word*)t0)[12];
av2[5]=lf[637];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[638];
av2[8]=((C_word*)t0)[12];
av2[9]=lf[639];
av2[10]=C_SCHEME_TRUE;
av2[11]=lf[640];
f_4518(12,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9740,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1113: gen */
t4=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[644];
av2[4]=((C_word*)t0)[12];
av2[5]=C_make_character(40);
f_4518(6,av2);}}}

/* k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in ... */
static void C_ccall f_9515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_9515,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9518,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
/* c-backend.scm:1116: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[632];
f_4518(4,av2);}}

/* k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_ccall f_9518(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_9518,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9560,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4430,tmp=(C_word)a,a+=2,tmp);
/* mini-srfi-1.scm:225: list-tabulate */
f_4250(t2,((C_word*)t0)[8],t3);}

/* k9525 in k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in ... */
static void C_ccall f_9527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9527,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9531,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1123: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[630];
tp(4,av2);}}

/* k9529 in k9525 in k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in ... */
static void C_ccall f_9531(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_9531,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1124: foreign-argument-conversion */
f_11626(t2,((C_word*)t0)[5]);}

/* k9533 in k9529 in k9525 in k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in ... */
static void C_ccall f_9535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){
C_save_and_reclaim((void *)f_9535,c,av);}
/* c-backend.scm:1119: gen */
t2=lf[4];{
C_word *av2;
if(c >= 11) {
  av2=av;
} else {
  av2=C_alloc(11);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[3];
av2[4]=lf[627];
av2[5]=((C_word*)t0)[4];
av2[6]=C_make_character(41);
av2[7]=t1;
av2[8]=lf[628];
av2[9]=((C_word*)t0)[5];
av2[10]=lf[629];
f_4518(11,av2);}}

/* k9537 in k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in ... */
static void C_ccall f_9539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9539,c,av);}
/* c-backend.scm:1120: foreign-type-declaration */
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[243]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[243]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k9543 in k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in ... */
static void C_ccall f_9545(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9545,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[353]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9551,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1122: ##sys#write-char-0 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[355]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[355]+1);
av2[1]=t3;
av2[2]=C_make_character(116);
av2[3]=t1;
tp(4,av2);}}

/* k9549 in k9543 in k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in ... */
static void C_ccall f_9551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_9551,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9554,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1122: ##sys#print */
t3=*((C_word*)lf[356]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9552 in k9549 in k9543 in k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in ... */
static void C_ccall f_9554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9554,c,av);}
/* c-backend.scm:1122: chicken.base#get-output-string */
t2=C_fast_retrieve(lf[354]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in ... */
static void C_ccall f_9560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){
C_save_and_reclaim((void *)f_9560,c,av);}
a=C_alloc(15);
t2=C_i_check_list_2(t1,lf[91]);
t3=C_i_check_list_2(((C_word*)t0)[2],lf[91]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9569,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9661,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=((C_word*)t6)[1];
f_9661(t8,t4,((C_word*)t0)[11],t1,((C_word*)t0)[2]);}

/* k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in ... */
static void C_ccall f_9569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_9569,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9572,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[4])){
/* c-backend.scm:1126: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[626];
f_4518(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_9572(2,av2);}}}

/* k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in ... */
static void C_ccall f_9572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_9572,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9575,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[3])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9581,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1128: gen */
t4=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[3];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[618];
f_4518(6,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9602,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
t4=C_eqp(((C_word*)t0)[6],lf[580]);
if(C_truep(C_i_not(t4))){
/* c-backend.scm:1138: gen */
t5=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[625];
av2[4]=((C_word*)t0)[9];
f_4518(5,av2);}}
else{
/* c-backend.scm:1139: gen */
t5=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
f_4518(3,av2);}}}}

/* k9573 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in ... */
static void C_ccall f_9575(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9575,c,av);}
/* c-backend.scm:1149: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_make_character(125);
f_4518(3,av2);}}

/* k9579 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in ... */
static void C_ccall f_9581(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_9581,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1130: gen */
t3=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[617];
av2[4]=C_SCHEME_TRUE;
f_4518(5,av2);}}

/* k9582 in k9579 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in ... */
static void C_ccall f_9584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_9584,c,av);}
if(C_truep(((C_word*)t0)[2])){
/* c-backend.scm:1132: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[613];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[614];
f_4518(6,av2);}}
else{
if(C_truep(((C_word*)t0)[4])){
/* c-backend.scm:1134: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[615];
f_4518(4,av2);}}
else{
/* c-backend.scm:1135: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[616];
f_4518(4,av2);}}}}

/* k9600 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in ... */
static void C_ccall f_9602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_9602,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9605,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:1140: gen */
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=C_make_character(40);
f_4518(4,av2);}}

/* k9603 in k9600 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in ... */
static void C_ccall f_9605(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_9605,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9639,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9643,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1141: make-argument-list */
f_9347(t4,((C_word*)t0)[6],lf[624]);}

/* k9606 in k9603 in k9600 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in ... */
static void C_ccall f_9608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9608,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9611,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=C_eqp(((C_word*)t0)[5],lf[580]);
if(C_truep(t3)){
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_9611(2,av2);}}
else{
/* c-backend.scm:1142: gen */
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=C_make_character(41);
f_4518(3,av2);}}}

/* k9609 in k9606 in k9603 in k9600 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in ... */
static void C_ccall f_9611(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9611,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9614,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1143: gen */
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[623];
f_4518(3,av2);}}

/* k9612 in k9609 in k9606 in k9603 in k9600 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in ... */
static void C_ccall f_9614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_9614,c,av);}
if(C_truep(((C_word*)t0)[2])){
/* c-backend.scm:1145: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[619];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[620];
f_4518(6,av2);}}
else{
if(C_truep(((C_word*)t0)[4])){
/* c-backend.scm:1147: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[621];
f_4518(3,av2);}}
else{
/* c-backend.scm:1148: gen */
t2=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[622];
f_4518(4,av2);}}}}

/* k9637 in k9603 in k9600 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in ... */
static void C_ccall f_9639(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9639,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[4];
av2[3]=t1;
C_apply(4,av2);}}

/* k9641 in k9603 in k9600 in k9570 in k9567 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in ... */
static void C_ccall f_9643(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9643,c,av);}
/* c-backend.scm:1141: chicken.base#intersperse */
t2=C_fast_retrieve(lf[8]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in ... */
static void C_fcall f_9661(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_9661,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9668,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_pairp(t2))){
t6=C_i_pairp(t3);
t7=t5;
f_9668(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));}
else{
t6=t5;
f_9668(t6,C_SCHEME_FALSE);}}

/* k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in ... */
static void C_fcall f_9668(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){
C_save_and_reclaim_args((void *)trf_9668,2,t0,t1);}
a=C_alloc(20);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9671,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t3=C_slot(((C_word*)t0)[4],C_fix(0));
t4=C_slot(((C_word*)t0)[5],C_fix(0));
t5=C_slot(((C_word*)t0)[6],C_fix(0));
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9527,a[2]=t2,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9539,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t5)){
/* c-backend.scm:1122: scheme#symbol->string */
t8=*((C_word*)lf[631]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9545,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* c-backend.scm:1122: chicken.base#open-output-string */
t9=C_fast_retrieve(lf[358]);{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9669 in k9666 in for-each-loop1920 in k9558 in k9516 in k9513 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in ... */
static void C_ccall f_9671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9671,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9661(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k9711 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in ... */
static void C_ccall f_9713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9713,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9718,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_9718(t5,((C_word*)t0)[3],C_fix(0));}

/* doloop1933 in k9711 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_fcall f_9718(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,0,7)))){
C_save_and_reclaim_args((void *)trf_9718,3,t0,t1,t2);}
a=C_alloc(34);
if(C_truep(C_i_greater_or_equalp(t2,((C_word*)t0)[2]))){
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9728,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=C_s_a_i_plus(&a,2,t2,C_fix(3));
/* c-backend.scm:1111: gen */
t5=lf[4];{
C_word av2[8];
av2[0]=t5;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[633];
av2[4]=t2;
av2[5]=lf[634];
av2[6]=t4;
av2[7]=lf[635];
f_4518(8,av2);}}}

/* k9726 in doloop1933 in k9711 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in ... */
static void C_ccall f_9728(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_9728,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
t3=((C_word*)((C_word*)t0)[3])[1];
f_9718(t3,((C_word*)t0)[4],t2);}

/* k9738 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in ... */
static void C_ccall f_9740(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9740,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9743,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9750,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9758,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* c-backend.scm:1114: make-variable-list */
f_9330(t4,((C_word*)t0)[3],lf[643]);}

/* k9741 in k9738 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_ccall f_9743(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9743,c,av);}
/* c-backend.scm:1115: gen */
t2=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[641];
f_4518(3,av2);}}

/* k9748 in k9738 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_ccall f_9750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9750,c,av);}{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[4];
av2[3]=t1;
C_apply(4,av2);}}

/* k9756 in k9738 in k9510 in k9507 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_ccall f_9758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9758,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[642],t1);
/* c-backend.scm:1114: chicken.base#intersperse */
t3=C_fast_retrieve(lf[8]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k9766 in k9504 in k9501 in k9498 in k9495 in k9492 in k9489 in k9486 in k9483 in k9480 in k9474 in k9471 in k9468 in g1891 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in ... */
static void C_ccall f_9768(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_9768,c,av);}
/* c-backend.scm:1101: gen */
t2=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[647];
av2[4]=t1;
av2[5]=lf[648];
f_4518(6,av2);}}

/* for-each-loop1890 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9779(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_9779,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9789,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1086: g1891 */
t4=((C_word*)t0)[3];
f_9466(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k9787 in for-each-loop1890 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9789(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9789,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9779(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall f_9804(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_9804,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9808,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1155: chicken.compiler.support#foreign-callback-stub-id */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[611]);
C_word av2[3];
av2[0]=*((C_word*)lf[611]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_9808,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9811,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1156: chicken.compiler.support#real-name2 */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[610]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[610]+1);
av2[1]=t2;
av2[2]=t1;
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_ccall f_9811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_9811,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9814,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* c-backend.scm:1157: chicken.compiler.support#foreign-callback-stub-return-type */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[609]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[609]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 in ... */
static void C_ccall f_9814(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_9814,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9817,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* c-backend.scm:1158: chicken.compiler.support#foreign-callback-stub-argument-types */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[608]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[608]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in ... */
static void C_ccall f_9817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9817,c,av);}
a=C_alloc(9);
t2=C_i_length(t1);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9823,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
/* c-backend.scm:1160: make-argument-list */
f_9347(t3,t2,lf[607]);}

/* k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in ... */
static void C_ccall f_9823(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,5)))){
C_save_and_reclaim((void *)f_9823,c,av);}
a=C_alloc(21);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9825,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10285,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10399,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_10399(t9,t5,((C_word*)t0)[6],t1,lf[606]);}

/* compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in ... */
static void C_fcall f_9825(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_9825,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_eqp(t2,lf[17]);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9835,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t5)){
t7=t6;
f_9835(t7,t5);}
else{
t7=C_eqp(t2,lf[577]);
if(C_truep(t7)){
t8=t6;
f_9835(t8,t7);}
else{
t8=C_eqp(t2,lf[578]);
if(C_truep(t8)){
t9=t6;
f_9835(t9,t8);}
else{
t9=C_eqp(t2,lf[579]);
if(C_truep(t9)){
t10=t6;
f_9835(t10,t9);}
else{
t10=C_eqp(t2,lf[14]);
if(C_truep(t10)){
t11=t6;
f_9835(t11,t10);}
else{
t11=C_eqp(t2,lf[580]);
if(C_truep(t11)){
t12=t6;
f_9835(t12,t11);}
else{
t12=C_eqp(t2,lf[581]);
if(C_truep(t12)){
t13=t6;
f_9835(t13,t12);}
else{
t13=C_eqp(t2,lf[582]);
if(C_truep(t13)){
t14=t6;
f_9835(t14,t13);}
else{
t14=C_eqp(t2,lf[583]);
if(C_truep(t14)){
t15=t6;
f_9835(t15,t14);}
else{
t15=C_eqp(t2,lf[584]);
if(C_truep(t15)){
t16=t6;
f_9835(t16,t15);}
else{
t16=C_eqp(t2,lf[585]);
if(C_truep(t16)){
t17=t6;
f_9835(t17,t16);}
else{
t17=C_eqp(t2,lf[586]);
t18=t6;
f_9835(t18,(C_truep(t17)?t17:C_eqp(t2,lf[587])));}}}}}}}}}}}}

/* k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_fcall f_9835(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_9835,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[533]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9844,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_9844(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[574]);
if(C_truep(t4)){
t5=t3;
f_9844(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[550]);
if(C_truep(t5)){
t6=t3;
f_9844(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[552]);
if(C_truep(t6)){
t7=t3;
f_9844(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[4],lf[575]);
t8=t3;
f_9844(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[576])));}}}}}}

/* k9842 in k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in ... */
static void C_fcall f_9844(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_9844,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1169: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[534];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[535]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_9856(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[568]);
if(C_truep(t4)){
t5=t3;
f_9856(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[569]);
if(C_truep(t5)){
t6=t3;
f_9856(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[570]);
if(C_truep(t6)){
t7=t3;
f_9856(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[4],lf[571]);
if(C_truep(t7)){
t8=t3;
f_9856(t8,t7);}
else{
t8=C_eqp(((C_word*)t0)[4],lf[572]);
t9=t3;
f_9856(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t0)[4],lf[573])));}}}}}}}

/* k9854 in k9842 in k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in ... */
static void C_fcall f_9856(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_9856,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1172: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[536];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[537]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9868,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_9868(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[565]);
if(C_truep(t4)){
t5=t3;
f_9868(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[566]);
t6=t3;
f_9868(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[4],lf[567])));}}}}

/* k9866 in k9854 in k9842 in k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in ... */
static void C_fcall f_9868(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_9868,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1175: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[538];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[539]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9880,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_9880(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[4],lf[562]);
if(C_truep(t4)){
t5=t3;
f_9880(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[563]);
if(C_truep(t5)){
t6=t3;
f_9880(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[563]);
t7=t3;
f_9880(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[564])));}}}}}

/* k9878 in k9866 in k9854 in k9842 in k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in ... */
static void C_fcall f_9880(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,7)))){
C_save_and_reclaim_args((void *)trf_9880,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1177: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word av2[8];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[540];
av2[4]=((C_word*)t0)[4];
av2[5]=lf[541];
av2[6]=((C_word*)t0)[4];
av2[7]=lf[542];
((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}
else{
t2=C_eqp(((C_word*)t0)[5],lf[543]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9892,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_9892(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[5],lf[558]);
if(C_truep(t4)){
t5=t3;
f_9892(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[5],lf[559]);
if(C_truep(t5)){
t6=t3;
f_9892(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[5],lf[560]);
t7=t3;
f_9892(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[5],lf[561])));}}}}}

/* k9890 in k9878 in k9866 in k9854 in k9842 in k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in chicken.compiler.c-backend#generate-code in ... */
static void C_fcall f_9892(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){
C_save_and_reclaim_args((void *)trf_9892,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
/* c-backend.scm:1179: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word av2[6];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[544];
av2[4]=((C_word*)t0)[4];
av2[5]=lf[545];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9898,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[6]))){
/* c-backend.scm:1181: chicken.compiler.support#lookup-foreign-type */
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[557]);
C_word av2[3];
av2[0]=*((C_word*)lf[557]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_9898(2,av2);}}}}

/* k9896 in k9890 in k9878 in k9866 in k9854 in k9842 in k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in k4672 in ... */
static void C_ccall f_9898(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_9898,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9902,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* c-backend.scm:1181: g2137 */
t3=t2;
f_9902(t3,((C_word*)t0)[5],t1);}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[6]))){
t2=C_u_i_car(((C_word*)t0)[6]);
t3=C_eqp(t2,lf[546]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9929,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t3)){
t5=t4;
f_9929(t5,t3);}
else{
t5=C_eqp(t2,lf[549]);
if(C_truep(t5)){
t6=t4;
f_9929(t6,t5);}
else{
t6=C_eqp(t2,lf[550]);
if(C_truep(t6)){
t7=t4;
f_9929(t7,t6);}
else{
t7=C_eqp(t2,lf[551]);
if(C_truep(t7)){
t8=t4;
f_9929(t8,t7);}
else{
t8=C_eqp(t2,lf[552]);
if(C_truep(t8)){
t9=t4;
f_9929(t9,t8);}
else{
t9=C_eqp(t2,lf[553]);
if(C_truep(t9)){
t10=t4;
f_9929(t10,t9);}
else{
t10=C_eqp(t2,lf[554]);
if(C_truep(t10)){
t11=t4;
f_9929(t11,t10);}
else{
t11=C_eqp(t2,lf[555]);
t12=t4;
f_9929(t12,(C_truep(t11)?t11:C_eqp(t2,lf[556])));}}}}}}}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* g2137 in k9896 in k9890 in k9878 in k9866 in k9854 in k9842 in k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_fcall f_9902(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_9902,3,t0,t1,t2);}
/* c-backend.scm:1182: compute-size */
t3=((C_word*)((C_word*)t0)[2])[1];
f_9825(t3,t1,C_i_vector_ref(t2,C_fix(0)),((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k9927 in k9896 in k9890 in k9878 in k9866 in k9854 in k9842 in k9833 in compute-size in k9821 in k9815 in k9812 in k9809 in k9806 in g2002 in k9011 in k9008 in k9005 in k9002 in k8999 in k8995 in k4675 in ... */
static void C_fcall f_9929(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_9929,2,t0,t1);}
if(C_truep(t1)){
/* c-backend.scm:1187: scheme#string-append */
t2=*((C_word*)lf[152]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[547];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[548]);
if(C_truep(t2)){
/* c-backend.scm:1188: compute-size */
t3=((C_word*)((C_word*)t0)[5])[1];
f_9825(t3,((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[6]),((C_word*)t0)[7],((C_word*)t0)[3]);}
else{
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* toplevel */
static C_TLS int toplevel_initialized=0;

void C_ccall C_c_2dbackend_toplevel(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
else C_toplevel_entry(C_text("c-backend"));
C_check_nursery_minimum(C_calculate_demand(3,c,2));
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void*)C_c_2dbackend_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(1730))){
C_save(t1);
C_rereclaim2(1730*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,883);
lf[0]=C_h_intern(&lf[0],9, C_text("c-backend"));
lf[1]=C_h_intern(&lf[1],27, C_text("chicken.compiler.c-backend#"));
lf[5]=C_h_intern(&lf[5],14, C_text("scheme#newline"));
lf[6]=C_h_intern(&lf[6],14, C_text("scheme#display"));
lf[8]=C_h_intern(&lf[8],24, C_text("chicken.base#intersperse"));
lf[9]=C_h_intern(&lf[9],40, C_text("chicken.compiler.c-backend#generate-code"));
lf[10]=C_h_intern(&lf[10],29, C_text("chicken.compiler.support#bomb"));
lf[11]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021can\047t find lambda"));
lf[12]=C_h_intern(&lf[12],31, C_text("chicken.internal#hash-table-ref"));
lf[13]=C_h_intern(&lf[13],16, C_text("##core#immediate"));
lf[14]=C_h_intern(&lf[14],4, C_text("bool"));
lf[15]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_SCHEME_TRUE"));
lf[16]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_SCHEME_FALSE"));
lf[17]=C_h_intern(&lf[17],4, C_text("char"));
lf[18]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_make_character("));
lf[19]=C_h_intern(&lf[19],3, C_text("nil"));
lf[20]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_SCHEME_END_OF_LIST"));
lf[21]=C_h_intern(&lf[21],3, C_text("fix"));
lf[22]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_fix("));
lf[23]=C_h_intern(&lf[23],3, C_text("eof"));
lf[24]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_SCHEME_END_OF_FILE"));
lf[25]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015bad immediate"));
lf[26]=C_h_intern(&lf[26],14, C_text("##core#literal"));
lf[27]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013((C_word)li"));
lf[28]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[29]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf["));
lf[30]=C_h_intern(&lf[30],12, C_text("##core#float"));
lf[31]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003NAN"));
lf[32]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010INFINITY"));
lf[33]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(double)"));
lf[34]=C_h_intern(&lf[34],2, C_text("if"));
lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005else{"));
lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003)){"));
lf[37]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013if(C_truep("));
lf[38]=C_h_intern(&lf[38],11, C_text("##core#proc"));
lf[39]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010(C_word)"));
lf[40]=C_h_intern(&lf[40],11, C_text("##core#bind"));
lf[41]=C_h_intern(&lf[41],16, C_text("##core#let_float"));
lf[42]=C_h_intern(&lf[42],21, C_text("##core#float-variable"));
lf[43]=C_h_intern(&lf[43],18, C_text("##core#unbox_float"));
lf[44]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[45]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_flonum_magnitude("));
lf[46]=C_h_intern(&lf[46],16, C_text("##core#box_float"));
lf[47]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[48]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_flonum(&a,"));
lf[49]=C_h_intern(&lf[49],10, C_text("##core#ref"));
lf[50]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)["));
lf[51]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012((C_word\052)"));
lf[52]=C_h_intern(&lf[52],15, C_text("##core#rest-car"));
lf[53]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_get_rest_arg(c,"));
lf[54]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004,av,"));
lf[55]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004,t0)"));
lf[56]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_u_i_list_ref(t"));
lf[57]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,"));
lf[58]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[59]=C_h_intern(&lf[59],43, C_text("chicken.compiler.core#lambda-literal-direct"));
lf[60]=C_h_intern(&lf[60],49, C_text("chicken.compiler.core#lambda-literal-customizable"));
lf[61]=C_h_intern(&lf[61],51, C_text("chicken.compiler.core#lambda-literal-argument-count"));
lf[62]=C_h_intern(&lf[62],17, C_text("##core#rest-null\077"));
lf[63]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_rest_nullp(c,"));
lf[64]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[65]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036C_mk_bool(C_unfix(C_i_length(t"));
lf[66]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006)) >= "));
lf[67]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[68]=C_h_intern(&lf[68],18, C_text("##core#rest-length"));
lf[69]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_fix(c - "));
lf[70]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[71]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_u_i_length(t"));
lf[72]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[73]=C_h_intern(&lf[73],12, C_text("##core#unbox"));
lf[74]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004)[1]"));
lf[75]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012((C_word\052)"));
lf[76]=C_h_intern(&lf[76],15, C_text("##core#update_i"));
lf[77]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_set_block_item("));
lf[78]=C_h_intern(&lf[78],13, C_text("##core#update"));
lf[79]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)+"));
lf[80]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,"));
lf[81]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_mutate(((C_word \052)"));
lf[82]=C_h_intern(&lf[82],18, C_text("##core#updatebox_i"));
lf[83]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,0,"));
lf[84]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_set_block_item("));
lf[85]=C_h_intern(&lf[85],16, C_text("##core#updatebox"));
lf[86]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004)+1,"));
lf[87]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_mutate(((C_word \052)"));
lf[88]=C_h_intern(&lf[88],14, C_text("##core#closure"));
lf[89]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002a["));
lf[90]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002]="));
lf[91]=C_h_intern(&lf[91],8, C_text("for-each"));
lf[92]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021tmp=(C_word)a,a+="));
lf[93]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,tmp)"));
lf[94]=C_h_intern(&lf[94],17, C_text("chicken.base#add1"));
lf[95]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023(\052a=C_CLOSURE_TYPE|"));
lf[96]=C_h_intern(&lf[96],10, C_text("##core#box"));
lf[97]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030,tmp=(C_word)a,a+=2,tmp)"));
lf[98]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031(\052a=C_VECTOR_TYPE|1,a[1]="));
lf[99]=C_h_intern(&lf[99],12, C_text("##core#local"));
lf[100]=C_h_intern(&lf[100],15, C_text("##core#setlocal"));
lf[101]=C_h_intern(&lf[101],13, C_text("##core#global"));
lf[102]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf["));
lf[103]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]"));
lf[104]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_retrieve2(lf["));
lf[105]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011],C_text("));
lf[106]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002))"));
lf[107]=C_h_intern(&lf[107],37, C_text("chicken.compiler.support#c-ify-string"));
lf[108]=C_h_intern(&lf[108],20, C_text("##sys#symbol->string"));
lf[109]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\052((C_word\052)lf["));
lf[110]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004]+1)"));
lf[111]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_fast_retrieve(lf["));
lf[112]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002])"));
lf[113]=C_h_intern(&lf[113],16, C_text("##core#setglobal"));
lf[114]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012 /\052 (set! "));
lf[115]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011 ...) \052/,"));
lf[116]=C_h_intern(&lf[116],32, C_text("chicken.string#string-translate\052"));
lf[117]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\002\052/\376B\000\000\003\052_/\376\377\016"));
lf[118]=C_h_intern(&lf[118],23, C_text("chicken.string#->string"));
lf[119]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_mutate(&lf["));
lf[120]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]"));
lf[121]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_mutate((C_word\052)lf["));
lf[122]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]+1"));
lf[123]=C_h_intern(&lf[123],18, C_text("##core#setglobal_i"));
lf[124]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf["));
lf[125]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005] /\052 "));
lf[126]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005 \052/ ="));
lf[127]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_set_block_item(lf["));
lf[128]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005] /\052 "));
lf[129]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006 \052/,0,"));
lf[130]=C_h_intern(&lf[130],16, C_text("##core#undefined"));
lf[131]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_SCHEME_UNDEFINED"));
lf[132]=C_h_intern(&lf[132],11, C_text("##core#call"));
lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007,av2);}"));
lf[134]=C_h_intern(&lf[134],40, C_text("chicken.compiler.support#node-parameters"));
lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010"));
lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012goto loop;"));
lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002c="));
lf[138]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002=t"));
lf[139]=C_h_intern(&lf[139],48, C_text("chicken.compiler.core#lambda-literal-temporaries"));
lf[140]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[141]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006av2);}"));
lf[142]=C_h_intern(&lf[142],19, C_text("##sys#string-append"));
lf[143]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[144]=C_h_intern(&lf[144],20, C_text("##sys#number->string"));
lf[145]=C_h_intern(&lf[145],44, C_text("chicken.compiler.core#lambda-literal-looping"));
lf[146]=C_h_intern(&lf[146],39, C_text("chicken.compiler.core#lambda-literal-id"));
lf[147]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003tp("));
lf[148]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007,av2);}"));
lf[149]=C_h_intern(&lf[149],48, C_text("chicken.compiler.core#no-global-procedure-checks"));
lf[150]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024(void\052)(\052((C_word\052)("));
lf[151]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005)+1))"));
lf[152]=C_h_intern(&lf[152],20, C_text("scheme#string-append"));
lf[153]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf["));
lf[154]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]"));
lf[155]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\052((C_word\052)lf["));
lf[156]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004]+1)"));
lf[157]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_fast_retrieve_proc("));
lf[158]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[159]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_retrieve2_symbol_proc("));
lf[160]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,C_text("));
lf[161]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002))"));
lf[162]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf["));
lf[163]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001]"));
lf[164]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_fast_retrieve_proc("));
lf[165]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[166]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\052((C_word\052)lf["));
lf[167]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004]+1)"));
lf[168]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037C_fast_retrieve_symbol_proc(lf["));
lf[169]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002])"));
lf[170]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\052((C_word\052)lf["));
lf[171]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004]+1)"));
lf[172]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023{C_proc tp=(C_proc)"));
lf[173]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)("));
lf[174]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007,av2);}"));
lf[175]=C_h_intern(&lf[175],31, C_text("chicken.compiler.support#unsafe"));
lf[176]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024(void\052)(\052((C_word\052)t"));
lf[177]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004+1))"));
lf[178]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_fast_retrieve_proc(t"));
lf[179]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[180]=C_h_intern(&lf[180],41, C_text("chicken.compiler.core#no-procedure-checks"));
lf[181]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011((C_proc)"));
lf[182]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[183]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002;{"));
lf[184]=C_h_intern(&lf[184],35, C_text("chicken.compiler.support#node-class"));
lf[185]=C_h_intern(&lf[185],37, C_text("chicken.compiler.core#emit-debug-info"));
lf[186]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_debugger(&(C_debug_info["));
lf[187]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]),"));
lf[188]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0060,NULL"));
lf[189]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[190]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004c,av"));
lf[191]=C_h_intern(&lf[191],37, C_text("chicken.compiler.core#emit-trace-info"));
lf[192]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_trace(C_text(\042"));
lf[193]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\042));"));
lf[194]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376B\000\000\001\134\376B\000\000\002\134\134\376\377\016"));
lf[195]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003/\052 "));
lf[196]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/"));
lf[197]=C_h_intern(&lf[197],49, C_text("chicken.compiler.core#lambda-literal-closure-size"));
lf[198]=C_h_intern(&lf[198],44, C_text("chicken.compiler.support#source-info->string"));
lf[199]=C_h_intern(&lf[199],14, C_text("##core#recurse"));
lf[200]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012goto loop;"));
lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002=t"));
lf[202]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003t0,"));
lf[203]=C_h_intern(&lf[203],18, C_text("##core#direct_call"));
lf[204]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_a_i(&a,"));
lf[205]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002  "));
lf[206]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_debugger(&(C_debug_info["));
lf[207]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]),"));
lf[208]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0060,NULL"));
lf[209]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002),"));
lf[210]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004c,av"));
lf[211]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_trace(\042"));
lf[212]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\042),"));
lf[213]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003/\052 "));
lf[214]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/"));
lf[215]=C_h_intern(&lf[215],14, C_text("##core#provide"));
lf[216]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_a_i_provide(&a,1,lf["));
lf[217]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002])"));
lf[218]=C_h_intern(&lf[218],15, C_text("##core#callunit"));
lf[219]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002C_"));
lf[220]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001("));
lf[221]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007,av2);}"));
lf[223]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_SCHEME_UNDEFINED"));
lf[224]=C_h_intern(&lf[224],13, C_text("##core#return"));
lf[225]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[226]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007return("));
lf[227]=C_h_intern(&lf[227],13, C_text("##core#inline"));
lf[228]=C_h_intern(&lf[228],18, C_text("##core#debug-event"));
lf[229]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_debugger(&(C_debug_info["));
lf[230]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]),"));
lf[231]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0060,NULL"));
lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004c,av"));
lf[234]=C_h_intern(&lf[234],22, C_text("##core#inline_allocate"));
lf[235]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004(&a,"));
lf[236]=C_h_intern(&lf[236],17, C_text("##core#inline_ref"));
lf[238]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a"));
lf[239]=C_h_intern(&lf[239],20, C_text("##core#inline_update"));
lf[240]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025),C_SCHEME_UNDEFINED)"));
lf[241]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002=("));
lf[243]=C_h_intern(&lf[243],51, C_text("chicken.compiler.c-backend#foreign-type-declaration"));
lf[244]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[245]=C_h_intern(&lf[245],21, C_text("##core#inline_loc_ref"));
lf[246]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003)))"));
lf[247]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\052(("));
lf[248]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\052)C_data_pointer("));
lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[250]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a"));
lf[251]=C_h_intern(&lf[251],24, C_text("##core#inline_loc_update"));
lf[252]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025),C_SCHEME_UNDEFINED)"));
lf[253]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003))="));
lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004((\052("));
lf[255]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\052)C_data_pointer("));
lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[257]=C_h_intern(&lf[257],13, C_text("##core#switch"));
lf[258]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010default:"));
lf[259]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005case "));
lf[260]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002){"));
lf[261]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007switch("));
lf[262]=C_h_intern(&lf[262],11, C_text("##core#cond"));
lf[263]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)\077"));
lf[264]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011(C_truep("));
lf[265]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010bad form"));
lf[266]=C_h_intern(&lf[266],44, C_text("chicken.compiler.support#node-subexpressions"));
lf[267]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001;"));
lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004av2["));
lf[269]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002]="));
lf[270]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007av2[0]="));
lf[271]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001;"));
lf[272]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_word av2["));
lf[273]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];"));
lf[274]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_word \052av2=av;"));
lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001}"));
lf[276]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016  av2=C_alloc("));
lf[277]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[278]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010} else {"));
lf[279]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011  av2=av;"));
lf[280]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010if(c >= "));
lf[281]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003) {"));
lf[282]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_word \052av2;"));
lf[283]=C_h_intern(&lf[283],4, C_text("none"));
lf[284]=C_h_intern(&lf[284],55, C_text("chicken.compiler.core#lambda-literal-rest-argument-mode"));
lf[285]=C_h_intern(&lf[285],43, C_text("chicken.compiler.core#external-protos-first"));
lf[287]=C_h_intern(&lf[287],47, C_text("chicken.compiler.support#foreign-callback-stubs"));
lf[288]=C_h_intern(&lf[288],42, C_text("chicken.compiler.core#foreign-declarations"));
lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012#include \042"));
lf[290]=C_h_intern(&lf[290],47, C_text("chicken.compiler.c-platform#target-include-file"));
lf[291]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\042"));
lf[292]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\052/"));
lf[293]=C_h_intern(&lf[293],32, C_text("chicken.compiler.core#used-units"));
lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011   uses: "));
lf[295]=C_h_intern(&lf[295],31, C_text("chicken.compiler.core#unit-name"));
lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011   unit: "));
lf[297]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022/\052 Generated from "));
lf[298]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030 by the CHICKEN compiler"));
lf[299]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031   http://www.call-cc.org"));
lf[300]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021   command line: "));
lf[301]=C_h_intern(&lf[301],33, C_text("chicken.string#string-intersperse"));
lf[302]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[303]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003   "));
lf[304]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[305]=C_h_intern(&lf[305],27, C_text("chicken.string#string-split"));
lf[306]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[307]=C_h_intern(&lf[307],32, C_text("chicken.platform#chicken-version"));
lf[308]=C_h_intern(&lf[308],3, C_text("map"));
lf[309]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002};"));
lf[310]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002,0"));
lf[311]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026static C_char C_TLS li"));
lf[312]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026[] C_aligned={C_lihdr("));
lf[313]=C_h_intern(&lf[313],25, C_text("##sys#lambda-info->string"));
lf[314]=C_decode_literal(C_heaptop,C_text("\376B\000\000)static double C_possibly_force_alignment;"));
lf[315]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027static C_TLS C_word lf["));
lf[316]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];"));
lf[317]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_noret_decl(C_"));
lf[318]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[319]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036C_externimport void C_ccall C_"));
lf[320]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036(C_word c,C_word \052av) C_noret;"));
lf[321]=C_decode_literal(C_heaptop,C_text("\376B\000\000+static C_PTABLE_ENTRY \052create_ptable(void);"));
lf[322]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010 C_noret"));
lf[323]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052av"));
lf[324]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_word \052a"));
lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_word c,"));
lf[326]=C_h_intern(&lf[326],8, C_text("toplevel"));
lf[327]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_fcall "));
lf[328]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_ccall "));
lf[329]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_word "));
lf[330]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005void "));
lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007static "));
lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_noret_decl("));
lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002C_"));
lf[335]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034C_externexport void C_ccall "));
lf[336]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_noret_decl(C_"));
lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[338]=C_h_intern(&lf[338],46, C_text("chicken.compiler.core#lambda-literal-allocated"));
lf[340]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[341]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003);}"));
lf[343]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t"));
lf[345]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004=av["));
lf[346]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];"));
lf[347]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026static void C_ccall tr"));
lf[348]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026(C_word c,C_word \052av){"));
lf[349]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_noret_decl(tr"));
lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[351]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026static void C_ccall tr"));
lf[352]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036(C_word c,C_word \052av) C_noret;"));
lf[353]=C_h_intern(&lf[353],6, C_text("format"));
lf[354]=C_h_intern(&lf[354],30, C_text("chicken.base#get-output-string"));
lf[355]=C_h_intern(&lf[355],18, C_text("##sys#write-char-0"));
lf[356]=C_h_intern(&lf[356],11, C_text("##sys#print"));
lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003lf["));
lf[358]=C_h_intern(&lf[358],31, C_text("chicken.base#open-output-string"));
lf[359]=C_h_intern(&lf[359],44, C_text("chicken.compiler.c-platform#words-per-flonum"));
lf[360]=C_h_intern(&lf[360],5, C_text("foldl"));
lf[361]=C_h_intern(&lf[361],19, C_text("scheme#vector->list"));
lf[362]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035type of literal not supported"));
lf[363]=C_h_intern(&lf[363],37, C_text("chicken.compiler.support#bytes->words"));
lf[364]=C_h_intern(&lf[364],17, C_text("##sys#bytevector\077"));
lf[365]=C_h_intern(&lf[365],48, C_text("chicken.compiler.support#block-variable-literal\077"));
lf[366]=C_h_intern(&lf[366],24, C_text("chicken.keyword#keyword\077"));
lf[367]=C_h_intern(&lf[367],36, C_text("chicken.compiler.support#big-fixnum\077"));
lf[368]=C_h_intern(&lf[368],35, C_text("chicken.compiler.support#immediate\077"));
lf[369]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007=C_fix("));
lf[370]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[371]=C_h_intern(&lf[371],21, C_text("##sys#undefined-value"));
lf[372]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024=C_SCHEME_UNDEFINED;"));
lf[373]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_SCHEME_TRUE"));
lf[374]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_SCHEME_FALSE"));
lf[375]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022=C_make_character("));
lf[376]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[377]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_h_intern_kw"));
lf[378]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_h_intern"));
lf[379]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002(&"));
lf[380]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011, C_text("));
lf[381]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003));"));
lf[382]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001="));
lf[383]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026=C_SCHEME_END_OF_LIST;"));
lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003));"));
lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000#=C_decode_literal(C_heaptop,C_text("));
lf[387]=C_h_intern(&lf[387],16, C_text("##sys#copy-bytes"));
lf[388]=C_h_intern(&lf[388],18, C_text("scheme#make-string"));
lf[389]=C_h_intern(&lf[389],41, C_text("chicken.compiler.core#lambda-literal-body"));
lf[390]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t"));
lf[391]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[392]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023=C_build_rest(&a,c,"));
lf[393]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,av);"));
lf[394]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_save_and_reclaim((void\052)"));
lf[395]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,c,av);}"));
lf[396]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015a=C_alloc((c-"));
lf[397]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020)\052C_SIZEOF_PAIR+"));
lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012a=C_alloc("));
lf[400]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[401]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003);}"));
lf[402]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042C_save_and_reclaim_args((void \052)tr"));
lf[403]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_save_and_reclaim((void \052)"));
lf[404]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,c,av);}"));
lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003av["));
lf[406]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003]=t"));
lf[407]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001;"));
lf[408]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_register_lf2(lf,"));
lf[409]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022,create_ptable());"));
lf[410]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_initialize_lf(lf,"));
lf[411]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[412]=C_decode_literal(C_heaptop,C_text("\376B\000\000+C_check_nursery_minimum(C_calculate_demand("));
lf[413]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,c,"));
lf[414]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003));"));
lf[415]=C_decode_literal(C_heaptop,C_text("\376B\000\000+if(C_unlikely(!C_demand(C_calculate_demand("));
lf[416]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,c,"));
lf[417]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005)))){"));
lf[418]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034C_save_and_reclaim((void\052)C_"));
lf[419]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,c,av);}"));
lf[420]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027toplevel_initialized=1;"));
lf[421]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032if(C_unlikely(!C_demand_2("));
lf[422]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004))){"));
lf[423]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_save(t1);"));
lf[424]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_rereclaim2("));
lf[425]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023\052sizeof(C_word),1);"));
lf[426]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016t1=C_restore;}"));
lf[427]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012a=C_alloc("));
lf[428]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[429]=C_h_intern(&lf[429],39, C_text("chicken.compiler.core#target-stack-size"));
lf[430]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_resize_stack("));
lf[431]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[432]=C_h_intern(&lf[432],38, C_text("chicken.compiler.core#target-heap-size"));
lf[433]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032C_set_or_change_heap_size("));
lf[434]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004,1);"));
lf[435]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_heap_size_is_fixed=1;"));
lf[436]=C_h_intern(&lf[436],53, C_text("chicken.compiler.core#disable-stack-overflow-checking"));
lf[437]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_disable_overflow_check=1;"));
lf[438]=C_decode_literal(C_heaptop,C_text("\376B\000\000$C_register_debug_info(C_debug_info);"));
lf[439]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052a;"));
lf[440]=C_decode_literal(C_heaptop,C_text("\376B\000\000=if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}"));
lf[441]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036else C_toplevel_entry(C_text(\042"));
lf[442]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004\042));"));
lf[443]=C_decode_literal(C_heaptop,C_text("\376B\000\000.if(C_unlikely(!C_demand(C_calculate_demand((c-"));
lf[444]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021)\052C_SIZEOF_PAIR +"));
lf[445]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,c,"));
lf[446]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005)))){"));
lf[447]=C_h_intern(&lf[447],41, C_text("chicken.compiler.core#insert-timer-checks"));
lf[448]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_check_for_interrupt;"));
lf[449]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005if(c<"));
lf[450]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025) C_bad_min_argc_2(c,"));
lf[451]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,t0);"));
lf[452]=C_h_intern(&lf[452],36, C_text("chicken.compiler.core#no-argc-checks"));
lf[453]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052a;"));
lf[454]=C_decode_literal(C_heaptop,C_text("\376B\000\000+if(C_unlikely(!C_demand(C_calculate_demand("));
lf[455]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,0,"));
lf[456]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005)))){"));
lf[457]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,c,"));
lf[458]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_check_for_interrupt;"));
lf[459]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005if(c<"));
lf[460]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025) C_bad_min_argc_2(c,"));
lf[461]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,t0);"));
lf[462]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006if(c!="));
lf[463]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021) C_bad_argc_2(c,"));
lf[464]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005,t0);"));
lf[465]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005loop:"));
lf[466]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_stack_overflow_check;"));
lf[467]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052a;"));
lf[468]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t"));
lf[469]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010double f"));
lf[470]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t"));
lf[471]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_word t"));
lf[472]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004=av["));
lf[473]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];"));
lf[474]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_word tmp;"));
lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002){"));
lf[476]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word \052av"));
lf[477]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_word \052a"));
lf[478]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_word c,"));
lf[479]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_fcall "));
lf[480]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_ccall "));
lf[481]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_word "));
lf[482]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005void "));
lf[483]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007static "));
lf[484]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017void C_ccall C_"));
lf[485]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022C_main_entry_point"));
lf[486]=C_decode_literal(C_heaptop,C_text("\376B\000\000(static C_TLS int toplevel_initialized=0;"));
lf[487]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003/\052 "));
lf[488]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/"));
lf[490]=C_h_intern(&lf[490],34, C_text("chicken.compiler.support#debugging"));
lf[491]=C_h_intern(&lf[491],1, C_text("o"));
lf[492]=C_decode_literal(C_heaptop,C_text("\376B\000\000 dropping unused closure argument"));
lf[493]=C_h_intern(&lf[493],54, C_text("chicken.compiler.core#lambda-literal-float-temporaries"));
lf[494]=C_h_intern(&lf[494],45, C_text("chicken.compiler.core#lambda-literal-external"));
lf[495]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[496]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[497]=C_h_intern(&lf[497],50, C_text("chicken.compiler.core#lambda-literal-rest-argument"));
lf[498]=C_h_intern(&lf[498],10, C_text("scheme#max"));
lf[499]=C_h_intern(&lf[499],54, C_text("chicken.compiler.core#lambda-literal-callee-signatures"));
lf[500]=C_h_intern(&lf[500],34, C_text("chicken.compiler.support#real-name"));
lf[501]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002/\052"));
lf[502]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\052/"));
lf[503]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021/\052 end of file \052/"));
lf[504]=C_h_intern(&lf[504],51, C_text("chicken.compiler.support#collected-debugging-output"));
lf[505]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002C_"));
lf[506]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002},"));
lf[507]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002},"));
lf[508]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011{C_text(\042"));
lf[509]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012\042),(void\052)"));
lf[510]=C_h_intern(&lf[510],37, C_text("chicken.internal#string->c-identifier"));
lf[511]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001{"));
lf[512]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027#ifdef C_ENABLE_PTABLES"));
lf[513]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016return ptable;"));
lf[514]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005#else"));
lf[515]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014return NULL;"));
lf[516]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006#endif"));
lf[517]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001}"));
lf[518]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052static C_PTABLE_ENTRY \052create_ptable(void)"));
lf[519]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006#endif"));
lf[520]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015{NULL,NULL}};"));
lf[521]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027#ifdef C_ENABLE_PTABLES"));
lf[522]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035static C_PTABLE_ENTRY ptable["));
lf[523]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005] = {"));
lf[524]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022{0,0,NULL,NULL}};\012"));
lf[525]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002},"));
lf[526]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005NULL,"));
lf[527]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_text(\042"));
lf[528]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\042),"));
lf[529]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001{"));
lf[530]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003,0,"));
lf[531]=C_h_intern(&lf[531],17, C_text("chicken.sort#sort"));
lf[532]=C_decode_literal(C_heaptop,C_text("\376B\000\000$static C_DEBUG_INFO C_debug_info[]={"));
lf[533]=C_h_intern(&lf[533],5, C_text("float"));
lf[534]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002+3"));
lf[535]=C_h_intern(&lf[535],16, C_text("unsigned-integer"));
lf[536]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024+C_SIZEOF_FIX_BIGNUM"));
lf[537]=C_h_intern(&lf[537],18, C_text("unsigned-integer64"));
lf[538]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023+C_SIZEOF_BIGNUM(2)"));
lf[539]=C_h_intern(&lf[539],8, C_text("c-string"));
lf[540]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004+2+("));
lf[541]=C_decode_literal(C_heaptop,C_text("\376B\000\000!==NULL\0771:C_bytestowords(C_strlen("));
lf[542]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003)))"));
lf[543]=C_h_intern(&lf[543],16, C_text("nonnull-c-string"));
lf[544]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033+2+C_bytestowords(C_strlen("));
lf[545]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002))"));
lf[546]=C_h_intern(&lf[546],3, C_text("ref"));
lf[547]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002+3"));
lf[548]=C_h_intern(&lf[548],5, C_text("const"));
lf[549]=C_h_intern(&lf[549],7, C_text("pointer"));
lf[550]=C_h_intern(&lf[550],9, C_text("c-pointer"));
lf[551]=C_h_intern(&lf[551],15, C_text("nonnull-pointer"));
lf[552]=C_h_intern(&lf[552],17, C_text("nonnull-c-pointer"));
lf[553]=C_h_intern(&lf[553],8, C_text("function"));
lf[554]=C_h_intern(&lf[554],8, C_text("instance"));
lf[555]=C_h_intern(&lf[555],16, C_text("nonnull-instance"));
lf[556]=C_h_intern(&lf[556],12, C_text("instance-ref"));
lf[557]=C_h_intern(&lf[557],44, C_text("chicken.compiler.support#lookup-foreign-type"));
lf[558]=C_h_intern(&lf[558],17, C_text("nonnull-c-string\052"));
lf[559]=C_h_intern(&lf[559],25, C_text("nonnull-unsigned-c-string"));
lf[560]=C_h_intern(&lf[560],26, C_text("nonnull-unsigned-c-string\052"));
lf[561]=C_h_intern(&lf[561],6, C_text("symbol"));
lf[562]=C_h_intern(&lf[562],9, C_text("c-string\052"));
lf[563]=C_h_intern(&lf[563],17, C_text("unsigned-c-string"));
lf[564]=C_h_intern(&lf[564],18, C_text("unsigned-c-string\052"));
lf[565]=C_h_intern(&lf[565],9, C_text("integer64"));
lf[566]=C_h_intern(&lf[566],6, C_text("size_t"));
lf[567]=C_h_intern(&lf[567],7, C_text("ssize_t"));
lf[568]=C_h_intern(&lf[568],18, C_text("unsigned-integer32"));
lf[569]=C_h_intern(&lf[569],4, C_text("long"));
lf[570]=C_h_intern(&lf[570],7, C_text("integer"));
lf[571]=C_h_intern(&lf[571],9, C_text("integer32"));
lf[572]=C_h_intern(&lf[572],13, C_text("unsigned-long"));
lf[573]=C_h_intern(&lf[573],6, C_text("number"));
lf[574]=C_h_intern(&lf[574],6, C_text("double"));
lf[575]=C_h_intern(&lf[575],13, C_text("c-string-list"));
lf[576]=C_h_intern(&lf[576],14, C_text("c-string-list\052"));
lf[577]=C_h_intern(&lf[577],3, C_text("int"));
lf[578]=C_h_intern(&lf[578],5, C_text("int32"));
lf[579]=C_h_intern(&lf[579],5, C_text("short"));
lf[580]=C_h_intern(&lf[580],4, C_text("void"));
lf[581]=C_h_intern(&lf[581],14, C_text("unsigned-short"));
lf[582]=C_h_intern(&lf[582],13, C_text("scheme-object"));
lf[583]=C_h_intern(&lf[583],13, C_text("unsigned-char"));
lf[584]=C_h_intern(&lf[584],12, C_text("unsigned-int"));
lf[585]=C_h_intern(&lf[585],14, C_text("unsigned-int32"));
lf[586]=C_h_intern(&lf[586],4, C_text("byte"));
lf[587]=C_h_intern(&lf[587],13, C_text("unsigned-byte"));
lf[588]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002;}"));
lf[589]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_callback_wrapper((void \052)"));
lf[590]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007return "));
lf[591]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002x="));
lf[592]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[593]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_save(x);"));
lf[594]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001a"));
lf[595]=C_h_intern(&lf[595],14, C_text("scheme#reverse"));
lf[596]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035C_callback_adjust_stack(a,s);"));
lf[597]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010"));
lf[598]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_word x,s="));
lf[599]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004,\052a="));
lf[600]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_stack_pointer;"));
lf[601]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_alloc(s);"));
lf[603]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[604]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010/\052 from "));
lf[605]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/"));
lf[606]=C_decode_literal(C_heaptop,C_text("\376B\000\000\0010"));
lf[607]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[608]=C_h_intern(&lf[608],61, C_text("chicken.compiler.support#foreign-callback-stub-argument-types"));
lf[609]=C_h_intern(&lf[609],58, C_text("chicken.compiler.support#foreign-callback-stub-return-type"));
lf[610]=C_h_intern(&lf[610],35, C_text("chicken.compiler.support#real-name2"));
lf[611]=C_h_intern(&lf[611],49, C_text("chicken.compiler.support#foreign-callback-stub-id"));
lf[612]=C_h_intern(&lf[612],42, C_text("chicken.compiler.core#foreign-lambda-stubs"));
lf[613]=C_decode_literal(C_heaptop,C_text("\376B\000\000.C_k=C_restore_callback_continuation2(C_level);"));
lf[614]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_kontinue(C_k,C_r);"));
lf[615]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_kontinue(C_k,C_r);"));
lf[616]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013return C_r;"));
lf[617]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015#undef return"));
lf[618]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_ret:"));
lf[619]=C_decode_literal(C_heaptop,C_text("\376B\000\000.C_k=C_restore_callback_continuation2(C_level);"));
lf[620]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_kontinue(C_k,C_r);"));
lf[621]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_kontinue(C_k,C_r);"));
lf[622]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013return C_r;"));
lf[623]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[624]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[625]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004C_r="));
lf[626]=C_decode_literal(C_heaptop,C_text("\376B\000\0003int C_level=C_save_callback_continuation(&C_a,C_k);"));
lf[627]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002=("));
lf[628]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003C_a"));
lf[629]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002);"));
lf[630]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[631]=C_h_intern(&lf[631],21, C_text("scheme#symbol->string"));
lf[632]=C_decode_literal(C_heaptop,C_text("\376B\000\0002C_word C_r=C_SCHEME_UNDEFINED,\052C_a=(C_word\052)C_buf;"));
lf[633]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_word C_a"));
lf[634]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006=C_av["));
lf[635]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002];"));
lf[636]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_noret_decl("));
lf[637]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[638]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024static void C_ccall "));
lf[639]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032(C_word C_c,C_word \052C_av){"));
lf[640]=C_decode_literal(C_heaptop,C_text("\376B\000\000!C_word C_k=C_av[1],C_buf=C_av[2];"));
lf[641]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002){"));
lf[642]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_word C_buf"));
lf[643]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003C_a"));
lf[644]=C_decode_literal(C_heaptop,C_text("\376B\000\000 C_regparm static C_word C_fcall "));
lf[645]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042#define return(x) C_cblock C_r = ("));
lf[646]=C_decode_literal(C_heaptop,C_text("\376B\000\000\036(x))); goto C_ret; C_cblockend"));
lf[647]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010/\052 from "));
lf[648]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 \052/"));
lf[649]=C_h_intern(&lf[649],43, C_text("chicken.compiler.core#foreign-stub-callback"));
lf[650]=C_h_intern(&lf[650],38, C_text("chicken.compiler.core#foreign-stub-cps"));
lf[651]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003C_a"));
lf[652]=C_h_intern(&lf[652],49, C_text("chicken.compiler.core#foreign-stub-argument-names"));
lf[653]=C_h_intern(&lf[653],39, C_text("chicken.compiler.core#foreign-stub-body"));
lf[654]=C_h_intern(&lf[654],39, C_text("chicken.compiler.core#foreign-stub-name"));
lf[655]=C_h_intern(&lf[655],46, C_text("chicken.compiler.core#foreign-stub-return-type"));
lf[656]=C_h_intern(&lf[656],49, C_text("chicken.compiler.core#foreign-stub-argument-types"));
lf[657]=C_h_intern(&lf[657],37, C_text("chicken.compiler.core#foreign-stub-id"));
lf[658]=C_h_intern(&lf[658],40, C_text("chicken.compiler.core#external-variables"));
lf[659]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[660]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007static "));
lf[661]=C_h_intern(&lf[661],1, C_text("p"));
lf[662]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030code generation phase..."));
lf[663]=C_h_intern(&lf[663],46, C_text("chicken.flonum#flonum-maximum-decimal-exponent"));
lf[664]=C_h_intern(&lf[664],37, C_text("chicken.flonum#flonum-print-precision"));
lf[665]=C_h_intern(&lf[665],15, C_text("scheme#string<\077"));
lf[666]=C_h_intern(&lf[666],18, C_text("chicken.sort#sort!"));
lf[667]=C_h_intern(&lf[667],36, C_text("chicken.internal#hash-table-for-each"));
lf[668]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010toplevel"));
lf[669]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011_toplevel"));
lf[670]=C_h_intern(&lf[670],18, C_text("scheme#string-copy"));
lf[671]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_word "));
lf[672]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_externexport "));
lf[673]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[674]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001t"));
lf[675]=C_h_intern(&lf[675],57, C_text("chicken.compiler.support#foreign-callback-stub-qualifiers"));
lf[676]=C_h_intern(&lf[676],51, C_text("chicken.compiler.support#foreign-callback-stub-name"));
lf[677]=C_h_intern(&lf[677],39, C_text("chicken.compiler.support#quit-compiling"));
lf[678]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031illegal foreign type `~A\047"));
lf[679]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 "));
lf[680]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_word"));
lf[681]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006C_char"));
lf[682]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017unsigned C_char"));
lf[683]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014unsigned int"));
lf[684]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_u32"));
lf[685]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003int"));
lf[686]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006size_t"));
lf[687]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007ssize_t"));
lf[688]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_s32"));
lf[689]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_s64"));
lf[690]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005C_u64"));
lf[691]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005short"));
lf[692]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004long"));
lf[693]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unsigned short"));
lf[694]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015unsigned long"));
lf[695]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005float"));
lf[696]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006double"));
lf[697]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006void \052"));
lf[698]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011C_char \052\052"));
lf[699]=C_h_intern(&lf[699],4, C_text("blob"));
lf[700]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017unsigned char \052"));
lf[701]=C_h_intern(&lf[701],9, C_text("u16vector"));
lf[702]=C_h_intern(&lf[702],17, C_text("nonnull-u16vector"));
lf[703]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020unsigned short \052"));
lf[704]=C_h_intern(&lf[704],8, C_text("s8vector"));
lf[705]=C_h_intern(&lf[705],16, C_text("nonnull-s8vector"));
lf[706]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015signed char \052"));
lf[707]=C_h_intern(&lf[707],9, C_text("u32vector"));
lf[708]=C_h_intern(&lf[708],17, C_text("nonnull-u32vector"));
lf[709]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016unsigned int \052"));
lf[710]=C_h_intern(&lf[710],9, C_text("u64vector"));
lf[711]=C_h_intern(&lf[711],17, C_text("nonnull-u64vector"));
lf[712]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_u64 \052"));
lf[713]=C_h_intern(&lf[713],9, C_text("s16vector"));
lf[714]=C_h_intern(&lf[714],17, C_text("nonnull-s16vector"));
lf[715]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007short \052"));
lf[716]=C_h_intern(&lf[716],9, C_text("s32vector"));
lf[717]=C_h_intern(&lf[717],17, C_text("nonnull-s32vector"));
lf[718]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005int \052"));
lf[719]=C_h_intern(&lf[719],9, C_text("s64vector"));
lf[720]=C_h_intern(&lf[720],17, C_text("nonnull-s64vector"));
lf[721]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_s64 \052"));
lf[722]=C_h_intern(&lf[722],9, C_text("f32vector"));
lf[723]=C_h_intern(&lf[723],17, C_text("nonnull-f32vector"));
lf[724]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007float \052"));
lf[725]=C_h_intern(&lf[725],9, C_text("f64vector"));
lf[726]=C_h_intern(&lf[726],17, C_text("nonnull-f64vector"));
lf[727]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010double \052"));
lf[728]=C_h_intern(&lf[728],14, C_text("pointer-vector"));
lf[729]=C_h_intern(&lf[729],22, C_text("nonnull-pointer-vector"));
lf[730]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007void \052\052"));
lf[731]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006char \052"));
lf[732]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017unsigned char \052"));
lf[733]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004void"));
lf[734]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001pointer\376\003\000\000\002\376\001\000\000\017\001nonnull-pointer\376\003\000\000\002\376\001\000\000\011\001c-pointer\376\003\000\000\002\376\001\000\000\016\001schem"
"e-pointer\376\003\000\000\002\376\001\000\000\026\001nonnull-scheme-pointer\376\003\000\000\002\376\001\000\000\021\001nonnull-c-pointer\376\377\016"));
lf[735]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052"));
lf[736]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001&"));
lf[737]=C_h_intern(&lf[737],8, C_text("template"));
lf[738]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001<"));
lf[739]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002> "));
lf[740]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,"));
lf[741]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[742]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[743]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006const "));
lf[744]=C_h_intern(&lf[744],6, C_text("struct"));
lf[745]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007struct "));
lf[746]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 "));
lf[747]=C_h_intern(&lf[747],5, C_text("union"));
lf[748]=C_decode_literal(C_heaptop,C_text("\376B\000\000\006union "));
lf[749]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 "));
lf[750]=C_h_intern(&lf[750],4, C_text("enum"));
lf[751]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005enum "));
lf[752]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001 "));
lf[753]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001instance\376\003\000\000\002\376\001\000\000\020\001nonnull-instance\376\377\016"));
lf[754]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052"));
lf[755]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001&"));
lf[756]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[757]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003 (\052"));
lf[758]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002)("));
lf[759]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001)"));
lf[760]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001,"));
lf[761]=C_h_intern(&lf[761],3, C_text("..."));
lf[762]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003..."));
lf[763]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[764]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[765]=C_h_intern(&lf[765],12, C_text("nonnull-blob"));
lf[766]=C_h_intern(&lf[766],8, C_text("u8vector"));
lf[767]=C_h_intern(&lf[767],16, C_text("nonnull-u8vector"));
lf[768]=C_h_intern(&lf[768],14, C_text("scheme-pointer"));
lf[769]=C_h_intern(&lf[769],22, C_text("nonnull-scheme-pointer"));
lf[770]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042illegal foreign argument type `~A\047"));
lf[771]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001("));
lf[772]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031C_character_code((C_word)"));
lf[773]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_unfix("));
lf[774]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_unfix("));
lf[775]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030(unsigned short)C_unfix("));
lf[776]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_num_to_unsigned_long("));
lf[777]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_c_double("));
lf[778]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_num_to_int("));
lf[779]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_num_to_int64("));
lf[780]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030(size_t)C_num_to_uint64("));
lf[781]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030(ssize_t)C_num_to_int64("));
lf[782]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_num_to_uint64("));
lf[783]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_num_to_long("));
lf[784]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_num_to_unsigned_int("));
lf[785]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_data_pointer_or_null("));
lf[786]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_data_pointer("));
lf[787]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_c_pointer_or_null("));
lf[788]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_c_pointer_nn("));
lf[789]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_c_bytevector_or_null("));
lf[790]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_c_bytevector("));
lf[791]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_c_u8vector_or_null("));
lf[792]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_c_u8vector("));
lf[793]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_u16vector_or_null("));
lf[794]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_u16vector("));
lf[795]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_u32vector_or_null("));
lf[796]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_u32vector("));
lf[797]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_u64vector_or_null("));
lf[798]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_u64vector("));
lf[799]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_c_s8vector_or_null("));
lf[800]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_c_s8vector("));
lf[801]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_s16vector_or_null("));
lf[802]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_s16vector("));
lf[803]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_s32vector_or_null("));
lf[804]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_s32vector("));
lf[805]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_s64vector_or_null("));
lf[806]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_s64vector("));
lf[807]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_f32vector_or_null("));
lf[808]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_f32vector("));
lf[809]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_c_f64vector_or_null("));
lf[810]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_c_f64vector("));
lf[811]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033C_c_pointer_vector_or_null("));
lf[812]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_c_pointer_vector("));
lf[813]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_string_or_null("));
lf[814]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013C_c_string("));
lf[815]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010C_truep("));
lf[816]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_c_pointer_or_null("));
lf[817]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_c_pointer_nn("));
lf[818]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_c_pointer_or_null("));
lf[819]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_c_pointer_nn("));
lf[820]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_data_pointer_or_null("));
lf[821]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_data_pointer("));
lf[822]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024C_c_pointer_or_null("));
lf[823]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_num_to_int("));
lf[824]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\052("));
lf[825]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020)C_c_pointer_nn("));
lf[826]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052"));
lf[827]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\052("));
lf[828]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021\052)C_c_pointer_nn("));
lf[829]=C_decode_literal(C_heaptop,C_text("\376B\000\000 illegal foreign return type `~A\047"));
lf[830]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031C_make_character((C_word)"));
lf[831]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_fix((C_word)"));
lf[832]=C_decode_literal(C_heaptop,C_text("\376B\000\000%C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)"));
lf[833]=C_decode_literal(C_heaptop,C_text("\376B\000\000\015C_fix((short)"));
lf[834]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_fix(0xffff&(C_word)"));
lf[835]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_fix((char)"));
lf[836]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023C_fix(0xff&(C_word)"));
lf[837]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_flonum(&"));
lf[838]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_number(&"));
lf[839]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)"));
lf[840]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&"));
lf[841]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)"));
lf[842]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_mpointer_or_false(&"));
lf[843]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_int_to_num(&"));
lf[844]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_int64_to_num(&"));
lf[845]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021C_uint64_to_num(&"));
lf[846]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027C_unsigned_int_to_num(&"));
lf[847]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017C_long_to_num(&"));
lf[848]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030C_unsigned_long_to_num(&"));
lf[849]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_mk_bool("));
lf[850]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011((C_word)"));
lf[851]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)"));
lf[852]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&"));
lf[853]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011,(void\052)&"));
lf[854]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&"));
lf[855]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)"));
lf[856]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_mpointer_or_false(&"));
lf[857]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)"));
lf[858]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&"));
lf[859]=C_decode_literal(C_heaptop,C_text("\376B\000\000\011,(void\052)&"));
lf[860]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&"));
lf[861]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)"));
lf[862]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025C_mpointer_or_false(&"));
lf[863]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010,(void\052)"));
lf[864]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_mpointer(&"));
lf[865]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016C_int_to_num(&"));
lf[866]=C_decode_literal(C_heaptop,C_text("\376B\000\000=Encoded literal size of ~S is too large (must fit in 24 bits)"));
lf[867]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\377\006\001"));
lf[868]=C_decode_literal(C_heaptop,C_text("\376B\000\000\003\377\006\000"));
lf[869]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377\012"));
lf[870]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377\016"));
lf[871]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377>"));
lf[872]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377\036"));
lf[873]=C_decode_literal(C_heaptop,C_text("\376B\000\000\002\377\001"));
lf[874]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\302"));
lf[875]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001U"));
lf[876]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\000"));
lf[877]=C_h_intern(&lf[877],20, C_text("##sys#flonum->string"));
lf[878]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\001"));
lf[879]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\002"));
lf[880]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\001"));
lf[881]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037invalid literal - cannot encode"));
lf[882]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
C_register_lf2(lf,883,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3213,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_library_toplevel(2,av2);}}

/* va15287 in a5816 in k5696 in k5693 in k6078 in k5662 in k5658 in k5652 in k5649 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in ... */
static void C_fcall va15287(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){
C_save_and_reclaim_args((void *)trva15287,2,t0,t1);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* va15293 in a6279 in k6165 in k6159 in k4702 in k4699 in k4696 in expr in expression in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall va15293(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){
C_save_and_reclaim_args((void *)trva15293,2,t0,t1);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* va15323 in k7828 in k7824 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall va15323(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){
C_save_and_reclaim_args((void *)trva15323,2,t0,t1);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* va15325 in k7861 in k7855 in k7852 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall va15325(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){
C_save_and_reclaim_args((void *)trva15325,2,t0,t1);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* va15333 in k8017 in k8013 in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall va15333(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){
C_save_and_reclaim_args((void *)trva15333,2,t0,t1);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* va15335 in k8042 in k8038 in k7944 in k7926 in k7811 in k7781 in k7775 in literal-size in k4675 in k4672 in chicken.compiler.c-backend#generate-code in k3235 in k3232 in k3229 in k3226 in k3223 in k3220 in k3217 in k3214 in k3211 */
static void C_fcall va15335(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){
C_save_and_reclaim_args((void *)trva15335,2,t0,t1);}
a=C_alloc(29);
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_s_a_i_plus(&a,2,t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[817] = {
{C_text("f14658:c_2dbackend_2escm"),(void*)f14658},
{C_text("f14663:c_2dbackend_2escm"),(void*)f14663},
{C_text("f14668:c_2dbackend_2escm"),(void*)f14668},
{C_text("f14676:c_2dbackend_2escm"),(void*)f14676},
{C_text("f14681:c_2dbackend_2escm"),(void*)f14681},
{C_text("f14686:c_2dbackend_2escm"),(void*)f14686},
{C_text("f14699:c_2dbackend_2escm"),(void*)f14699},
{C_text("f14703:c_2dbackend_2escm"),(void*)f14703},
{C_text("f14710:c_2dbackend_2escm"),(void*)f14710},
{C_text("f14715:c_2dbackend_2escm"),(void*)f14715},
{C_text("f14784:c_2dbackend_2escm"),(void*)f14784},
{C_text("f14791:c_2dbackend_2escm"),(void*)f14791},
{C_text("f14812:c_2dbackend_2escm"),(void*)f14812},
{C_text("f_10285:c_2dbackend_2escm"),(void*)f_10285},
{C_text("f_10288:c_2dbackend_2escm"),(void*)f_10288},
{C_text("f_10291:c_2dbackend_2escm"),(void*)f_10291},
{C_text("f_10294:c_2dbackend_2escm"),(void*)f_10294},
{C_text("f_10297:c_2dbackend_2escm"),(void*)f_10297},
{C_text("f_10300:c_2dbackend_2escm"),(void*)f_10300},
{C_text("f_10309:c_2dbackend_2escm"),(void*)f_10309},
{C_text("f_10312:c_2dbackend_2escm"),(void*)f_10312},
{C_text("f_10315:c_2dbackend_2escm"),(void*)f_10315},
{C_text("f_10318:c_2dbackend_2escm"),(void*)f_10318},
{C_text("f_10321:c_2dbackend_2escm"),(void*)f_10321},
{C_text("f_10324:c_2dbackend_2escm"),(void*)f_10324},
{C_text("f_10327:c_2dbackend_2escm"),(void*)f_10327},
{C_text("f_10346:c_2dbackend_2escm"),(void*)f_10346},
{C_text("f_10348:c_2dbackend_2escm"),(void*)f_10348},
{C_text("f_10358:c_2dbackend_2escm"),(void*)f_10358},
{C_text("f_10397:c_2dbackend_2escm"),(void*)f_10397},
{C_text("f_10399:c_2dbackend_2escm"),(void*)f_10399},
{C_text("f_10421:c_2dbackend_2escm"),(void*)f_10421},
{C_text("f_10433:c_2dbackend_2escm"),(void*)f_10433},
{C_text("f_10443:c_2dbackend_2escm"),(void*)f_10443},
{C_text("f_10456:c_2dbackend_2escm"),(void*)f_10456},
{C_text("f_10460:c_2dbackend_2escm"),(void*)f_10460},
{C_text("f_10463:c_2dbackend_2escm"),(void*)f_10463},
{C_text("f_10466:c_2dbackend_2escm"),(void*)f_10466},
{C_text("f_10469:c_2dbackend_2escm"),(void*)f_10469},
{C_text("f_10475:c_2dbackend_2escm"),(void*)f_10475},
{C_text("f_10478:c_2dbackend_2escm"),(void*)f_10478},
{C_text("f_10481:c_2dbackend_2escm"),(void*)f_10481},
{C_text("f_10486:c_2dbackend_2escm"),(void*)f_10486},
{C_text("f_10496:c_2dbackend_2escm"),(void*)f_10496},
{C_text("f_10499:c_2dbackend_2escm"),(void*)f_10499},
{C_text("f_10518:c_2dbackend_2escm"),(void*)f_10518},
{C_text("f_10530:c_2dbackend_2escm"),(void*)f_10530},
{C_text("f_10532:c_2dbackend_2escm"),(void*)f_10532},
{C_text("f_10534:c_2dbackend_2escm"),(void*)f_10534},
{C_text("f_10539:c_2dbackend_2escm"),(void*)f_10539},
{C_text("f_10609:c_2dbackend_2escm"),(void*)f_10609},
{C_text("f_10726:c_2dbackend_2escm"),(void*)f_10726},
{C_text("f_10747:c_2dbackend_2escm"),(void*)f_10747},
{C_text("f_10879:c_2dbackend_2escm"),(void*)f_10879},
{C_text("f_10891:c_2dbackend_2escm"),(void*)f_10891},
{C_text("f_10906:c_2dbackend_2escm"),(void*)f_10906},
{C_text("f_10910:c_2dbackend_2escm"),(void*)f_10910},
{C_text("f_10954:c_2dbackend_2escm"),(void*)f_10954},
{C_text("f_10971:c_2dbackend_2escm"),(void*)f_10971},
{C_text("f_10984:c_2dbackend_2escm"),(void*)f_10984},
{C_text("f_10988:c_2dbackend_2escm"),(void*)f_10988},
{C_text("f_10992:c_2dbackend_2escm"),(void*)f_10992},
{C_text("f_11010:c_2dbackend_2escm"),(void*)f_11010},
{C_text("f_11012:c_2dbackend_2escm"),(void*)f_11012},
{C_text("f_11037:c_2dbackend_2escm"),(void*)f_11037},
{C_text("f_11061:c_2dbackend_2escm"),(void*)f_11061},
{C_text("f_11078:c_2dbackend_2escm"),(void*)f_11078},
{C_text("f_11095:c_2dbackend_2escm"),(void*)f_11095},
{C_text("f_11112:c_2dbackend_2escm"),(void*)f_11112},
{C_text("f_11129:c_2dbackend_2escm"),(void*)f_11129},
{C_text("f_11146:c_2dbackend_2escm"),(void*)f_11146},
{C_text("f_11175:c_2dbackend_2escm"),(void*)f_11175},
{C_text("f_11179:c_2dbackend_2escm"),(void*)f_11179},
{C_text("f_11200:c_2dbackend_2escm"),(void*)f_11200},
{C_text("f_11202:c_2dbackend_2escm"),(void*)f_11202},
{C_text("f_11212:c_2dbackend_2escm"),(void*)f_11212},
{C_text("f_11227:c_2dbackend_2escm"),(void*)f_11227},
{C_text("f_11626:c_2dbackend_2escm"),(void*)f_11626},
{C_text("f_11628:c_2dbackend_2escm"),(void*)f_11628},
{C_text("f_11656:c_2dbackend_2escm"),(void*)f_11656},
{C_text("f_11683:c_2dbackend_2escm"),(void*)f_11683},
{C_text("f_11908:c_2dbackend_2escm"),(void*)f_11908},
{C_text("f_11917:c_2dbackend_2escm"),(void*)f_11917},
{C_text("f_11926:c_2dbackend_2escm"),(void*)f_11926},
{C_text("f_12024:c_2dbackend_2escm"),(void*)f_12024},
{C_text("f_12291:c_2dbackend_2escm"),(void*)f_12291},
{C_text("f_12293:c_2dbackend_2escm"),(void*)f_12293},
{C_text("f_12360:c_2dbackend_2escm"),(void*)f_12360},
{C_text("f_12366:c_2dbackend_2escm"),(void*)f_12366},
{C_text("f_12369:c_2dbackend_2escm"),(void*)f_12369},
{C_text("f_12372:c_2dbackend_2escm"),(void*)f_12372},
{C_text("f_12384:c_2dbackend_2escm"),(void*)f_12384},
{C_text("f_12390:c_2dbackend_2escm"),(void*)f_12390},
{C_text("f_12393:c_2dbackend_2escm"),(void*)f_12393},
{C_text("f_12396:c_2dbackend_2escm"),(void*)f_12396},
{C_text("f_12408:c_2dbackend_2escm"),(void*)f_12408},
{C_text("f_12411:c_2dbackend_2escm"),(void*)f_12411},
{C_text("f_12417:c_2dbackend_2escm"),(void*)f_12417},
{C_text("f_12420:c_2dbackend_2escm"),(void*)f_12420},
{C_text("f_12423:c_2dbackend_2escm"),(void*)f_12423},
{C_text("f_12435:c_2dbackend_2escm"),(void*)f_12435},
{C_text("f_12441:c_2dbackend_2escm"),(void*)f_12441},
{C_text("f_12444:c_2dbackend_2escm"),(void*)f_12444},
{C_text("f_12447:c_2dbackend_2escm"),(void*)f_12447},
{C_text("f_12462:c_2dbackend_2escm"),(void*)f_12462},
{C_text("f_12468:c_2dbackend_2escm"),(void*)f_12468},
{C_text("f_12471:c_2dbackend_2escm"),(void*)f_12471},
{C_text("f_12474:c_2dbackend_2escm"),(void*)f_12474},
{C_text("f_12489:c_2dbackend_2escm"),(void*)f_12489},
{C_text("f_12495:c_2dbackend_2escm"),(void*)f_12495},
{C_text("f_12498:c_2dbackend_2escm"),(void*)f_12498},
{C_text("f_12501:c_2dbackend_2escm"),(void*)f_12501},
{C_text("f_12516:c_2dbackend_2escm"),(void*)f_12516},
{C_text("f_12522:c_2dbackend_2escm"),(void*)f_12522},
{C_text("f_12525:c_2dbackend_2escm"),(void*)f_12525},
{C_text("f_12528:c_2dbackend_2escm"),(void*)f_12528},
{C_text("f_12543:c_2dbackend_2escm"),(void*)f_12543},
{C_text("f_12549:c_2dbackend_2escm"),(void*)f_12549},
{C_text("f_12552:c_2dbackend_2escm"),(void*)f_12552},
{C_text("f_12555:c_2dbackend_2escm"),(void*)f_12555},
{C_text("f_12567:c_2dbackend_2escm"),(void*)f_12567},
{C_text("f_12573:c_2dbackend_2escm"),(void*)f_12573},
{C_text("f_12576:c_2dbackend_2escm"),(void*)f_12576},
{C_text("f_12579:c_2dbackend_2escm"),(void*)f_12579},
{C_text("f_12591:c_2dbackend_2escm"),(void*)f_12591},
{C_text("f_12597:c_2dbackend_2escm"),(void*)f_12597},
{C_text("f_12600:c_2dbackend_2escm"),(void*)f_12600},
{C_text("f_12603:c_2dbackend_2escm"),(void*)f_12603},
{C_text("f_12624:c_2dbackend_2escm"),(void*)f_12624},
{C_text("f_12628:c_2dbackend_2escm"),(void*)f_12628},
{C_text("f_12660:c_2dbackend_2escm"),(void*)f_12660},
{C_text("f_12666:c_2dbackend_2escm"),(void*)f_12666},
{C_text("f_12669:c_2dbackend_2escm"),(void*)f_12669},
{C_text("f_12672:c_2dbackend_2escm"),(void*)f_12672},
{C_text("f_12684:c_2dbackend_2escm"),(void*)f_12684},
{C_text("f_12690:c_2dbackend_2escm"),(void*)f_12690},
{C_text("f_12693:c_2dbackend_2escm"),(void*)f_12693},
{C_text("f_12696:c_2dbackend_2escm"),(void*)f_12696},
{C_text("f_12708:c_2dbackend_2escm"),(void*)f_12708},
{C_text("f_12714:c_2dbackend_2escm"),(void*)f_12714},
{C_text("f_12717:c_2dbackend_2escm"),(void*)f_12717},
{C_text("f_12720:c_2dbackend_2escm"),(void*)f_12720},
{C_text("f_12732:c_2dbackend_2escm"),(void*)f_12732},
{C_text("f_12738:c_2dbackend_2escm"),(void*)f_12738},
{C_text("f_12741:c_2dbackend_2escm"),(void*)f_12741},
{C_text("f_12744:c_2dbackend_2escm"),(void*)f_12744},
{C_text("f_12756:c_2dbackend_2escm"),(void*)f_12756},
{C_text("f_12762:c_2dbackend_2escm"),(void*)f_12762},
{C_text("f_12765:c_2dbackend_2escm"),(void*)f_12765},
{C_text("f_12768:c_2dbackend_2escm"),(void*)f_12768},
{C_text("f_12796:c_2dbackend_2escm"),(void*)f_12796},
{C_text("f_12802:c_2dbackend_2escm"),(void*)f_12802},
{C_text("f_12805:c_2dbackend_2escm"),(void*)f_12805},
{C_text("f_12808:c_2dbackend_2escm"),(void*)f_12808},
{C_text("f_12820:c_2dbackend_2escm"),(void*)f_12820},
{C_text("f_12826:c_2dbackend_2escm"),(void*)f_12826},
{C_text("f_12829:c_2dbackend_2escm"),(void*)f_12829},
{C_text("f_12832:c_2dbackend_2escm"),(void*)f_12832},
{C_text("f_12844:c_2dbackend_2escm"),(void*)f_12844},
{C_text("f_12850:c_2dbackend_2escm"),(void*)f_12850},
{C_text("f_12853:c_2dbackend_2escm"),(void*)f_12853},
{C_text("f_12856:c_2dbackend_2escm"),(void*)f_12856},
{C_text("f_13078:c_2dbackend_2escm"),(void*)f_13078},
{C_text("f_13087:c_2dbackend_2escm"),(void*)f_13087},
{C_text("f_13153:c_2dbackend_2escm"),(void*)f_13153},
{C_text("f_13175:c_2dbackend_2escm"),(void*)f_13175},
{C_text("f_13203:c_2dbackend_2escm"),(void*)f_13203},
{C_text("f_13262:c_2dbackend_2escm"),(void*)f_13262},
{C_text("f_13269:c_2dbackend_2escm"),(void*)f_13269},
{C_text("f_13289:c_2dbackend_2escm"),(void*)f_13289},
{C_text("f_13296:c_2dbackend_2escm"),(void*)f_13296},
{C_text("f_13309:c_2dbackend_2escm"),(void*)f_13309},
{C_text("f_13316:c_2dbackend_2escm"),(void*)f_13316},
{C_text("f_13339:c_2dbackend_2escm"),(void*)f_13339},
{C_text("f_13347:c_2dbackend_2escm"),(void*)f_13347},
{C_text("f_13369:c_2dbackend_2escm"),(void*)f_13369},
{C_text("f_13377:c_2dbackend_2escm"),(void*)f_13377},
{C_text("f_13381:c_2dbackend_2escm"),(void*)f_13381},
{C_text("f_13383:c_2dbackend_2escm"),(void*)f_13383},
{C_text("f_13412:c_2dbackend_2escm"),(void*)f_13412},
{C_text("f_3213:c_2dbackend_2escm"),(void*)f_3213},
{C_text("f_3216:c_2dbackend_2escm"),(void*)f_3216},
{C_text("f_3219:c_2dbackend_2escm"),(void*)f_3219},
{C_text("f_3222:c_2dbackend_2escm"),(void*)f_3222},
{C_text("f_3225:c_2dbackend_2escm"),(void*)f_3225},
{C_text("f_3228:c_2dbackend_2escm"),(void*)f_3228},
{C_text("f_3231:c_2dbackend_2escm"),(void*)f_3231},
{C_text("f_3234:c_2dbackend_2escm"),(void*)f_3234},
{C_text("f_3237:c_2dbackend_2escm"),(void*)f_3237},
{C_text("f_3678:c_2dbackend_2escm"),(void*)f_3678},
{C_text("f_3692:c_2dbackend_2escm"),(void*)f_3692},
{C_text("f_4250:c_2dbackend_2escm"),(void*)f_4250},
{C_text("f_4256:c_2dbackend_2escm"),(void*)f_4256},
{C_text("f_4270:c_2dbackend_2escm"),(void*)f_4270},
{C_text("f_4274:c_2dbackend_2escm"),(void*)f_4274},
{C_text("f_4430:c_2dbackend_2escm"),(void*)f_4430},
{C_text("f_4442:c_2dbackend_2escm"),(void*)f_4442},
{C_text("f_4518:c_2dbackend_2escm"),(void*)f_4518},
{C_text("f_4538:c_2dbackend_2escm"),(void*)f_4538},
{C_text("f_4548:c_2dbackend_2escm"),(void*)f_4548},
{C_text("f_4561:c_2dbackend_2escm"),(void*)f_4561},
{C_text("f_4570:c_2dbackend_2escm"),(void*)f_4570},
{C_text("f_4575:c_2dbackend_2escm"),(void*)f_4575},
{C_text("f_4585:c_2dbackend_2escm"),(void*)f_4585},
{C_text("f_4626:c_2dbackend_2escm"),(void*)f_4626},
{C_text("f_4632:c_2dbackend_2escm"),(void*)f_4632},
{C_text("f_4637:c_2dbackend_2escm"),(void*)f_4637},
{C_text("f_4645:c_2dbackend_2escm"),(void*)f_4645},
{C_text("f_4649:c_2dbackend_2escm"),(void*)f_4649},
{C_text("f_4659:c_2dbackend_2escm"),(void*)f_4659},
{C_text("f_4670:c_2dbackend_2escm"),(void*)f_4670},
{C_text("f_4674:c_2dbackend_2escm"),(void*)f_4674},
{C_text("f_4677:c_2dbackend_2escm"),(void*)f_4677},
{C_text("f_4679:c_2dbackend_2escm"),(void*)f_4679},
{C_text("f_4683:c_2dbackend_2escm"),(void*)f_4683},
{C_text("f_4691:c_2dbackend_2escm"),(void*)f_4691},
{C_text("f_4694:c_2dbackend_2escm"),(void*)f_4694},
{C_text("f_4698:c_2dbackend_2escm"),(void*)f_4698},
{C_text("f_4701:c_2dbackend_2escm"),(void*)f_4701},
{C_text("f_4704:c_2dbackend_2escm"),(void*)f_4704},
{C_text("f_4831:c_2dbackend_2escm"),(void*)f_4831},
{C_text("f_4845:c_2dbackend_2escm"),(void*)f_4845},
{C_text("f_4864:c_2dbackend_2escm"),(void*)f_4864},
{C_text("f_4867:c_2dbackend_2escm"),(void*)f_4867},
{C_text("f_4870:c_2dbackend_2escm"),(void*)f_4870},
{C_text("f_4873:c_2dbackend_2escm"),(void*)f_4873},
{C_text("f_4876:c_2dbackend_2escm"),(void*)f_4876},
{C_text("f_4879:c_2dbackend_2escm"),(void*)f_4879},
{C_text("f_4922:c_2dbackend_2escm"),(void*)f_4922},
{C_text("f_4932:c_2dbackend_2escm"),(void*)f_4932},
{C_text("f_4935:c_2dbackend_2escm"),(void*)f_4935},
{C_text("f_4938:c_2dbackend_2escm"),(void*)f_4938},
{C_text("f_4970:c_2dbackend_2escm"),(void*)f_4970},
{C_text("f_4973:c_2dbackend_2escm"),(void*)f_4973},
{C_text("f_4976:c_2dbackend_2escm"),(void*)f_4976},
{C_text("f_5009:c_2dbackend_2escm"),(void*)f_5009},
{C_text("f_5012:c_2dbackend_2escm"),(void*)f_5012},
{C_text("f_5028:c_2dbackend_2escm"),(void*)f_5028},
{C_text("f_5031:c_2dbackend_2escm"),(void*)f_5031},
{C_text("f_5047:c_2dbackend_2escm"),(void*)f_5047},
{C_text("f_5050:c_2dbackend_2escm"),(void*)f_5050},
{C_text("f_5074:c_2dbackend_2escm"),(void*)f_5074},
{C_text("f_5080:c_2dbackend_2escm"),(void*)f_5080},
{C_text("f_5099:c_2dbackend_2escm"),(void*)f_5099},
{C_text("f_5102:c_2dbackend_2escm"),(void*)f_5102},
{C_text("f_5114:c_2dbackend_2escm"),(void*)f_5114},
{C_text("f_5120:c_2dbackend_2escm"),(void*)f_5120},
{C_text("f_5139:c_2dbackend_2escm"),(void*)f_5139},
{C_text("f_5142:c_2dbackend_2escm"),(void*)f_5142},
{C_text("f_5154:c_2dbackend_2escm"),(void*)f_5154},
{C_text("f_5160:c_2dbackend_2escm"),(void*)f_5160},
{C_text("f_5179:c_2dbackend_2escm"),(void*)f_5179},
{C_text("f_5182:c_2dbackend_2escm"),(void*)f_5182},
{C_text("f_5194:c_2dbackend_2escm"),(void*)f_5194},
{C_text("f_5197:c_2dbackend_2escm"),(void*)f_5197},
{C_text("f_5213:c_2dbackend_2escm"),(void*)f_5213},
{C_text("f_5216:c_2dbackend_2escm"),(void*)f_5216},
{C_text("f_5219:c_2dbackend_2escm"),(void*)f_5219},
{C_text("f_5222:c_2dbackend_2escm"),(void*)f_5222},
{C_text("f_5246:c_2dbackend_2escm"),(void*)f_5246},
{C_text("f_5249:c_2dbackend_2escm"),(void*)f_5249},
{C_text("f_5252:c_2dbackend_2escm"),(void*)f_5252},
{C_text("f_5255:c_2dbackend_2escm"),(void*)f_5255},
{C_text("f_5283:c_2dbackend_2escm"),(void*)f_5283},
{C_text("f_5286:c_2dbackend_2escm"),(void*)f_5286},
{C_text("f_5289:c_2dbackend_2escm"),(void*)f_5289},
{C_text("f_5292:c_2dbackend_2escm"),(void*)f_5292},
{C_text("f_5312:c_2dbackend_2escm"),(void*)f_5312},
{C_text("f_5315:c_2dbackend_2escm"),(void*)f_5315},
{C_text("f_5318:c_2dbackend_2escm"),(void*)f_5318},
{C_text("f_5321:c_2dbackend_2escm"),(void*)f_5321},
{C_text("f_5344:c_2dbackend_2escm"),(void*)f_5344},
{C_text("f_5345:c_2dbackend_2escm"),(void*)f_5345},
{C_text("f_5349:c_2dbackend_2escm"),(void*)f_5349},
{C_text("f_5352:c_2dbackend_2escm"),(void*)f_5352},
{C_text("f_5358:c_2dbackend_2escm"),(void*)f_5358},
{C_text("f_5367:c_2dbackend_2escm"),(void*)f_5367},
{C_text("f_5374:c_2dbackend_2escm"),(void*)f_5374},
{C_text("f_5384:c_2dbackend_2escm"),(void*)f_5384},
{C_text("f_5418:c_2dbackend_2escm"),(void*)f_5418},
{C_text("f_5421:c_2dbackend_2escm"),(void*)f_5421},
{C_text("f_5450:c_2dbackend_2escm"),(void*)f_5450},
{C_text("f_5492:c_2dbackend_2escm"),(void*)f_5492},
{C_text("f_5496:c_2dbackend_2escm"),(void*)f_5496},
{C_text("f_5527:c_2dbackend_2escm"),(void*)f_5527},
{C_text("f_5530:c_2dbackend_2escm"),(void*)f_5530},
{C_text("f_5533:c_2dbackend_2escm"),(void*)f_5533},
{C_text("f_5544:c_2dbackend_2escm"),(void*)f_5544},
{C_text("f_5548:c_2dbackend_2escm"),(void*)f_5548},
{C_text("f_5575:c_2dbackend_2escm"),(void*)f_5575},
{C_text("f_5578:c_2dbackend_2escm"),(void*)f_5578},
{C_text("f_5589:c_2dbackend_2escm"),(void*)f_5589},
{C_text("f_5593:c_2dbackend_2escm"),(void*)f_5593},
{C_text("f_5596:c_2dbackend_2escm"),(void*)f_5596},
{C_text("f_5599:c_2dbackend_2escm"),(void*)f_5599},
{C_text("f_5610:c_2dbackend_2escm"),(void*)f_5610},
{C_text("f_5614:c_2dbackend_2escm"),(void*)f_5614},
{C_text("f_5651:c_2dbackend_2escm"),(void*)f_5651},
{C_text("f_5654:c_2dbackend_2escm"),(void*)f_5654},
{C_text("f_5660:c_2dbackend_2escm"),(void*)f_5660},
{C_text("f_5664:c_2dbackend_2escm"),(void*)f_5664},
{C_text("f_5673:c_2dbackend_2escm"),(void*)f_5673},
{C_text("f_5676:c_2dbackend_2escm"),(void*)f_5676},
{C_text("f_5679:c_2dbackend_2escm"),(void*)f_5679},
{C_text("f_5695:c_2dbackend_2escm"),(void*)f_5695},
{C_text("f_5698:c_2dbackend_2escm"),(void*)f_5698},
{C_text("f_5701:c_2dbackend_2escm"),(void*)f_5701},
{C_text("f_5702:c_2dbackend_2escm"),(void*)f_5702},
{C_text("f_5706:c_2dbackend_2escm"),(void*)f_5706},
{C_text("f_5709:c_2dbackend_2escm"),(void*)f_5709},
{C_text("f_5718:c_2dbackend_2escm"),(void*)f_5718},
{C_text("f_5726:c_2dbackend_2escm"),(void*)f_5726},
{C_text("f_5732:c_2dbackend_2escm"),(void*)f_5732},
{C_text("f_5735:c_2dbackend_2escm"),(void*)f_5735},
{C_text("f_5743:c_2dbackend_2escm"),(void*)f_5743},
{C_text("f_5753:c_2dbackend_2escm"),(void*)f_5753},
{C_text("f_5780:c_2dbackend_2escm"),(void*)f_5780},
{C_text("f_5790:c_2dbackend_2escm"),(void*)f_5790},
{C_text("f_5817:c_2dbackend_2escm"),(void*)f_5817},
{C_text("f_5824:c_2dbackend_2escm"),(void*)f_5824},
{C_text("f_5830:c_2dbackend_2escm"),(void*)f_5830},
{C_text("f_5833:c_2dbackend_2escm"),(void*)f_5833},
{C_text("f_5836:c_2dbackend_2escm"),(void*)f_5836},
{C_text("f_5845:c_2dbackend_2escm"),(void*)f_5845},
{C_text("f_5848:c_2dbackend_2escm"),(void*)f_5848},
{C_text("f_5851:c_2dbackend_2escm"),(void*)f_5851},
{C_text("f_5854:c_2dbackend_2escm"),(void*)f_5854},
{C_text("f_5864:c_2dbackend_2escm"),(void*)f_5864},
{C_text("f_5875:c_2dbackend_2escm"),(void*)f_5875},
{C_text("f_5879:c_2dbackend_2escm"),(void*)f_5879},
{C_text("f_5882:c_2dbackend_2escm"),(void*)f_5882},
{C_text("f_5895:c_2dbackend_2escm"),(void*)f_5895},
{C_text("f_5901:c_2dbackend_2escm"),(void*)f_5901},
{C_text("f_5904:c_2dbackend_2escm"),(void*)f_5904},
{C_text("f_5916:c_2dbackend_2escm"),(void*)f_5916},
{C_text("f_5919:c_2dbackend_2escm"),(void*)f_5919},
{C_text("f_5922:c_2dbackend_2escm"),(void*)f_5922},
{C_text("f_5925:c_2dbackend_2escm"),(void*)f_5925},
{C_text("f_5932:c_2dbackend_2escm"),(void*)f_5932},
{C_text("f_5942:c_2dbackend_2escm"),(void*)f_5942},
{C_text("f_5950:c_2dbackend_2escm"),(void*)f_5950},
{C_text("f_5958:c_2dbackend_2escm"),(void*)f_5958},
{C_text("f_5971:c_2dbackend_2escm"),(void*)f_5971},
{C_text("f_5975:c_2dbackend_2escm"),(void*)f_5975},
{C_text("f_5983:c_2dbackend_2escm"),(void*)f_5983},
{C_text("f_5991:c_2dbackend_2escm"),(void*)f_5991},
{C_text("f_5998:c_2dbackend_2escm"),(void*)f_5998},
{C_text("f_6003:c_2dbackend_2escm"),(void*)f_6003},
{C_text("f_6010:c_2dbackend_2escm"),(void*)f_6010},
{C_text("f_6014:c_2dbackend_2escm"),(void*)f_6014},
{C_text("f_6017:c_2dbackend_2escm"),(void*)f_6017},
{C_text("f_6020:c_2dbackend_2escm"),(void*)f_6020},
{C_text("f_6023:c_2dbackend_2escm"),(void*)f_6023},
{C_text("f_6026:c_2dbackend_2escm"),(void*)f_6026},
{C_text("f_6029:c_2dbackend_2escm"),(void*)f_6029},
{C_text("f_6035:c_2dbackend_2escm"),(void*)f_6035},
{C_text("f_6048:c_2dbackend_2escm"),(void*)f_6048},
{C_text("f_6053:c_2dbackend_2escm"),(void*)f_6053},
{C_text("f_6076:c_2dbackend_2escm"),(void*)f_6076},
{C_text("f_6080:c_2dbackend_2escm"),(void*)f_6080},
{C_text("f_6083:c_2dbackend_2escm"),(void*)f_6083},
{C_text("f_6103:c_2dbackend_2escm"),(void*)f_6103},
{C_text("f_6110:c_2dbackend_2escm"),(void*)f_6110},
{C_text("f_6114:c_2dbackend_2escm"),(void*)f_6114},
{C_text("f_6118:c_2dbackend_2escm"),(void*)f_6118},
{C_text("f_6161:c_2dbackend_2escm"),(void*)f_6161},
{C_text("f_6167:c_2dbackend_2escm"),(void*)f_6167},
{C_text("f_6170:c_2dbackend_2escm"),(void*)f_6170},
{C_text("f_6171:c_2dbackend_2escm"),(void*)f_6171},
{C_text("f_6175:c_2dbackend_2escm"),(void*)f_6175},
{C_text("f_6178:c_2dbackend_2escm"),(void*)f_6178},
{C_text("f_6187:c_2dbackend_2escm"),(void*)f_6187},
{C_text("f_6195:c_2dbackend_2escm"),(void*)f_6195},
{C_text("f_6201:c_2dbackend_2escm"),(void*)f_6201},
{C_text("f_6206:c_2dbackend_2escm"),(void*)f_6206},
{C_text("f_6216:c_2dbackend_2escm"),(void*)f_6216},
{C_text("f_6243:c_2dbackend_2escm"),(void*)f_6243},
{C_text("f_6253:c_2dbackend_2escm"),(void*)f_6253},
{C_text("f_6280:c_2dbackend_2escm"),(void*)f_6280},
{C_text("f_6287:c_2dbackend_2escm"),(void*)f_6287},
{C_text("f_6290:c_2dbackend_2escm"),(void*)f_6290},
{C_text("f_6293:c_2dbackend_2escm"),(void*)f_6293},
{C_text("f_6321:c_2dbackend_2escm"),(void*)f_6321},
{C_text("f_6334:c_2dbackend_2escm"),(void*)f_6334},
{C_text("f_6338:c_2dbackend_2escm"),(void*)f_6338},
{C_text("f_6341:c_2dbackend_2escm"),(void*)f_6341},
{C_text("f_6344:c_2dbackend_2escm"),(void*)f_6344},
{C_text("f_6347:c_2dbackend_2escm"),(void*)f_6347},
{C_text("f_6350:c_2dbackend_2escm"),(void*)f_6350},
{C_text("f_6353:c_2dbackend_2escm"),(void*)f_6353},
{C_text("f_6356:c_2dbackend_2escm"),(void*)f_6356},
{C_text("f_6368:c_2dbackend_2escm"),(void*)f_6368},
{C_text("f_6380:c_2dbackend_2escm"),(void*)f_6380},
{C_text("f_6398:c_2dbackend_2escm"),(void*)f_6398},
{C_text("f_6418:c_2dbackend_2escm"),(void*)f_6418},
{C_text("f_6425:c_2dbackend_2escm"),(void*)f_6425},
{C_text("f_6429:c_2dbackend_2escm"),(void*)f_6429},
{C_text("f_6458:c_2dbackend_2escm"),(void*)f_6458},
{C_text("f_6461:c_2dbackend_2escm"),(void*)f_6461},
{C_text("f_6468:c_2dbackend_2escm"),(void*)f_6468},
{C_text("f_6481:c_2dbackend_2escm"),(void*)f_6481},
{C_text("f_6484:c_2dbackend_2escm"),(void*)f_6484},
{C_text("f_6500:c_2dbackend_2escm"),(void*)f_6500},
{C_text("f_6503:c_2dbackend_2escm"),(void*)f_6503},
{C_text("f_6536:c_2dbackend_2escm"),(void*)f_6536},
{C_text("f_6539:c_2dbackend_2escm"),(void*)f_6539},
{C_text("f_6548:c_2dbackend_2escm"),(void*)f_6548},
{C_text("f_6572:c_2dbackend_2escm"),(void*)f_6572},
{C_text("f_6592:c_2dbackend_2escm"),(void*)f_6592},
{C_text("f_6595:c_2dbackend_2escm"),(void*)f_6595},
{C_text("f_6610:c_2dbackend_2escm"),(void*)f_6610},
{C_text("f_6614:c_2dbackend_2escm"),(void*)f_6614},
{C_text("f_6626:c_2dbackend_2escm"),(void*)f_6626},
{C_text("f_6629:c_2dbackend_2escm"),(void*)f_6629},
{C_text("f_6640:c_2dbackend_2escm"),(void*)f_6640},
{C_text("f_6644:c_2dbackend_2escm"),(void*)f_6644},
{C_text("f_6656:c_2dbackend_2escm"),(void*)f_6656},
{C_text("f_6659:c_2dbackend_2escm"),(void*)f_6659},
{C_text("f_6662:c_2dbackend_2escm"),(void*)f_6662},
{C_text("f_6665:c_2dbackend_2escm"),(void*)f_6665},
{C_text("f_6676:c_2dbackend_2escm"),(void*)f_6676},
{C_text("f_6684:c_2dbackend_2escm"),(void*)f_6684},
{C_text("f_6693:c_2dbackend_2escm"),(void*)f_6693},
{C_text("f_6696:c_2dbackend_2escm"),(void*)f_6696},
{C_text("f_6699:c_2dbackend_2escm"),(void*)f_6699},
{C_text("f_6712:c_2dbackend_2escm"),(void*)f_6712},
{C_text("f_6720:c_2dbackend_2escm"),(void*)f_6720},
{C_text("f_6723:c_2dbackend_2escm"),(void*)f_6723},
{C_text("f_6733:c_2dbackend_2escm"),(void*)f_6733},
{C_text("f_6736:c_2dbackend_2escm"),(void*)f_6736},
{C_text("f_6739:c_2dbackend_2escm"),(void*)f_6739},
{C_text("f_6742:c_2dbackend_2escm"),(void*)f_6742},
{C_text("f_6772:c_2dbackend_2escm"),(void*)f_6772},
{C_text("f_6775:c_2dbackend_2escm"),(void*)f_6775},
{C_text("f_6778:c_2dbackend_2escm"),(void*)f_6778},
{C_text("f_6781:c_2dbackend_2escm"),(void*)f_6781},
{C_text("f_6784:c_2dbackend_2escm"),(void*)f_6784},
{C_text("f_6787:c_2dbackend_2escm"),(void*)f_6787},
{C_text("f_6809:c_2dbackend_2escm"),(void*)f_6809},
{C_text("f_6895:c_2dbackend_2escm"),(void*)f_6895},
{C_text("f_6901:c_2dbackend_2escm"),(void*)f_6901},
{C_text("f_6911:c_2dbackend_2escm"),(void*)f_6911},
{C_text("f_6914:c_2dbackend_2escm"),(void*)f_6914},
{C_text("f_6931:c_2dbackend_2escm"),(void*)f_6931},
{C_text("f_6943:c_2dbackend_2escm"),(void*)f_6943},
{C_text("f_6946:c_2dbackend_2escm"),(void*)f_6946},
{C_text("f_6949:c_2dbackend_2escm"),(void*)f_6949},
{C_text("f_6952:c_2dbackend_2escm"),(void*)f_6952},
{C_text("f_6955:c_2dbackend_2escm"),(void*)f_6955},
{C_text("f_6964:c_2dbackend_2escm"),(void*)f_6964},
{C_text("f_6974:c_2dbackend_2escm"),(void*)f_6974},
{C_text("f_6977:c_2dbackend_2escm"),(void*)f_6977},
{C_text("f_6980:c_2dbackend_2escm"),(void*)f_6980},
{C_text("f_7000:c_2dbackend_2escm"),(void*)f_7000},
{C_text("f_7015:c_2dbackend_2escm"),(void*)f_7015},
{C_text("f_7018:c_2dbackend_2escm"),(void*)f_7018},
{C_text("f_7021:c_2dbackend_2escm"),(void*)f_7021},
{C_text("f_7024:c_2dbackend_2escm"),(void*)f_7024},
{C_text("f_7027:c_2dbackend_2escm"),(void*)f_7027},
{C_text("f_7043:c_2dbackend_2escm"),(void*)f_7043},
{C_text("f_7046:c_2dbackend_2escm"),(void*)f_7046},
{C_text("f_7054:c_2dbackend_2escm"),(void*)f_7054},
{C_text("f_7058:c_2dbackend_2escm"),(void*)f_7058},
{C_text("f_7061:c_2dbackend_2escm"),(void*)f_7061},
{C_text("f_7064:c_2dbackend_2escm"),(void*)f_7064},
{C_text("f_7067:c_2dbackend_2escm"),(void*)f_7067},
{C_text("f_7070:c_2dbackend_2escm"),(void*)f_7070},
{C_text("f_7073:c_2dbackend_2escm"),(void*)f_7073},
{C_text("f_7076:c_2dbackend_2escm"),(void*)f_7076},
{C_text("f_7079:c_2dbackend_2escm"),(void*)f_7079},
{C_text("f_7091:c_2dbackend_2escm"),(void*)f_7091},
{C_text("f_7101:c_2dbackend_2escm"),(void*)f_7101},
{C_text("f_7111:c_2dbackend_2escm"),(void*)f_7111},
{C_text("f_7131:c_2dbackend_2escm"),(void*)f_7131},
{C_text("f_7144:c_2dbackend_2escm"),(void*)f_7144},
{C_text("f_7156:c_2dbackend_2escm"),(void*)f_7156},
{C_text("f_7159:c_2dbackend_2escm"),(void*)f_7159},
{C_text("f_7161:c_2dbackend_2escm"),(void*)f_7161},
{C_text("f_7186:c_2dbackend_2escm"),(void*)f_7186},
{C_text("f_7197:c_2dbackend_2escm"),(void*)f_7197},
{C_text("f_7207:c_2dbackend_2escm"),(void*)f_7207},
{C_text("f_7211:c_2dbackend_2escm"),(void*)f_7211},
{C_text("f_7213:c_2dbackend_2escm"),(void*)f_7213},
{C_text("f_7220:c_2dbackend_2escm"),(void*)f_7220},
{C_text("f_7234:c_2dbackend_2escm"),(void*)f_7234},
{C_text("f_7240:c_2dbackend_2escm"),(void*)f_7240},
{C_text("f_7243:c_2dbackend_2escm"),(void*)f_7243},
{C_text("f_7246:c_2dbackend_2escm"),(void*)f_7246},
{C_text("f_7251:c_2dbackend_2escm"),(void*)f_7251},
{C_text("f_7261:c_2dbackend_2escm"),(void*)f_7261},
{C_text("f_7267:c_2dbackend_2escm"),(void*)f_7267},
{C_text("f_7270:c_2dbackend_2escm"),(void*)f_7270},
{C_text("f_7273:c_2dbackend_2escm"),(void*)f_7273},
{C_text("f_7276:c_2dbackend_2escm"),(void*)f_7276},
{C_text("f_7291:c_2dbackend_2escm"),(void*)f_7291},
{C_text("f_7299:c_2dbackend_2escm"),(void*)f_7299},
{C_text("f_7309:c_2dbackend_2escm"),(void*)f_7309},
{C_text("f_7319:c_2dbackend_2escm"),(void*)f_7319},
{C_text("f_7360:c_2dbackend_2escm"),(void*)f_7360},
{C_text("f_7370:c_2dbackend_2escm"),(void*)f_7370},
{C_text("f_7383:c_2dbackend_2escm"),(void*)f_7383},
{C_text("f_7408:c_2dbackend_2escm"),(void*)f_7408},
{C_text("f_7417:c_2dbackend_2escm"),(void*)f_7417},
{C_text("f_7421:c_2dbackend_2escm"),(void*)f_7421},
{C_text("f_7430:c_2dbackend_2escm"),(void*)f_7430},
{C_text("f_7433:c_2dbackend_2escm"),(void*)f_7433},
{C_text("f_7436:c_2dbackend_2escm"),(void*)f_7436},
{C_text("f_7439:c_2dbackend_2escm"),(void*)f_7439},
{C_text("f_7442:c_2dbackend_2escm"),(void*)f_7442},
{C_text("f_7445:c_2dbackend_2escm"),(void*)f_7445},
{C_text("f_7448:c_2dbackend_2escm"),(void*)f_7448},
{C_text("f_7451:c_2dbackend_2escm"),(void*)f_7451},
{C_text("f_7454:c_2dbackend_2escm"),(void*)f_7454},
{C_text("f_7457:c_2dbackend_2escm"),(void*)f_7457},
{C_text("f_7460:c_2dbackend_2escm"),(void*)f_7460},
{C_text("f_7463:c_2dbackend_2escm"),(void*)f_7463},
{C_text("f_7466:c_2dbackend_2escm"),(void*)f_7466},
{C_text("f_7469:c_2dbackend_2escm"),(void*)f_7469},
{C_text("f_7490:c_2dbackend_2escm"),(void*)f_7490},
{C_text("f_7513:c_2dbackend_2escm"),(void*)f_7513},
{C_text("f_7516:c_2dbackend_2escm"),(void*)f_7516},
{C_text("f_7519:c_2dbackend_2escm"),(void*)f_7519},
{C_text("f_7522:c_2dbackend_2escm"),(void*)f_7522},
{C_text("f_7538:c_2dbackend_2escm"),(void*)f_7538},
{C_text("f_7541:c_2dbackend_2escm"),(void*)f_7541},
{C_text("f_7544:c_2dbackend_2escm"),(void*)f_7544},
{C_text("f_7555:c_2dbackend_2escm"),(void*)f_7555},
{C_text("f_7564:c_2dbackend_2escm"),(void*)f_7564},
{C_text("f_7572:c_2dbackend_2escm"),(void*)f_7572},
{C_text("f_7582:c_2dbackend_2escm"),(void*)f_7582},
{C_text("f_7595:c_2dbackend_2escm"),(void*)f_7595},
{C_text("f_7606:c_2dbackend_2escm"),(void*)f_7606},
{C_text("f_7616:c_2dbackend_2escm"),(void*)f_7616},
{C_text("f_7632:c_2dbackend_2escm"),(void*)f_7632},
{C_text("f_7635:c_2dbackend_2escm"),(void*)f_7635},
{C_text("f_7638:c_2dbackend_2escm"),(void*)f_7638},
{C_text("f_7641:c_2dbackend_2escm"),(void*)f_7641},
{C_text("f_7650:c_2dbackend_2escm"),(void*)f_7650},
{C_text("f_7653:c_2dbackend_2escm"),(void*)f_7653},
{C_text("f_7656:c_2dbackend_2escm"),(void*)f_7656},
{C_text("f_7659:c_2dbackend_2escm"),(void*)f_7659},
{C_text("f_7662:c_2dbackend_2escm"),(void*)f_7662},
{C_text("f_7665:c_2dbackend_2escm"),(void*)f_7665},
{C_text("f_7672:c_2dbackend_2escm"),(void*)f_7672},
{C_text("f_7679:c_2dbackend_2escm"),(void*)f_7679},
{C_text("f_7685:c_2dbackend_2escm"),(void*)f_7685},
{C_text("f_7693:c_2dbackend_2escm"),(void*)f_7693},
{C_text("f_7703:c_2dbackend_2escm"),(void*)f_7703},
{C_text("f_7716:c_2dbackend_2escm"),(void*)f_7716},
{C_text("f_7722:c_2dbackend_2escm"),(void*)f_7722},
{C_text("f_7732:c_2dbackend_2escm"),(void*)f_7732},
{C_text("f_7747:c_2dbackend_2escm"),(void*)f_7747},
{C_text("f_7753:c_2dbackend_2escm"),(void*)f_7753},
{C_text("f_7756:c_2dbackend_2escm"),(void*)f_7756},
{C_text("f_7759:c_2dbackend_2escm"),(void*)f_7759},
{C_text("f_7762:c_2dbackend_2escm"),(void*)f_7762},
{C_text("f_7770:c_2dbackend_2escm"),(void*)f_7770},
{C_text("f_7777:c_2dbackend_2escm"),(void*)f_7777},
{C_text("f_7783:c_2dbackend_2escm"),(void*)f_7783},
{C_text("f_7813:c_2dbackend_2escm"),(void*)f_7813},
{C_text("f_7826:c_2dbackend_2escm"),(void*)f_7826},
{C_text("f_7830:c_2dbackend_2escm"),(void*)f_7830},
{C_text("f_7854:c_2dbackend_2escm"),(void*)f_7854},
{C_text("f_7857:c_2dbackend_2escm"),(void*)f_7857},
{C_text("f_7863:c_2dbackend_2escm"),(void*)f_7863},
{C_text("f_7865:c_2dbackend_2escm"),(void*)f_7865},
{C_text("f_7889:c_2dbackend_2escm"),(void*)f_7889},
{C_text("f_7914:c_2dbackend_2escm"),(void*)f_7914},
{C_text("f_7928:c_2dbackend_2escm"),(void*)f_7928},
{C_text("f_7946:c_2dbackend_2escm"),(void*)f_7946},
{C_text("f_7953:c_2dbackend_2escm"),(void*)f_7953},
{C_text("f_7974:c_2dbackend_2escm"),(void*)f_7974},
{C_text("f_7994:c_2dbackend_2escm"),(void*)f_7994},
{C_text("f_8015:c_2dbackend_2escm"),(void*)f_8015},
{C_text("f_8019:c_2dbackend_2escm"),(void*)f_8019},
{C_text("f_8040:c_2dbackend_2escm"),(void*)f_8040},
{C_text("f_8044:c_2dbackend_2escm"),(void*)f_8044},
{C_text("f_8053:c_2dbackend_2escm"),(void*)f_8053},
{C_text("f_8060:c_2dbackend_2escm"),(void*)f_8060},
{C_text("f_8066:c_2dbackend_2escm"),(void*)f_8066},
{C_text("f_8110:c_2dbackend_2escm"),(void*)f_8110},
{C_text("f_8119:c_2dbackend_2escm"),(void*)f_8119},
{C_text("f_8128:c_2dbackend_2escm"),(void*)f_8128},
{C_text("f_8134:c_2dbackend_2escm"),(void*)f_8134},
{C_text("f_8161:c_2dbackend_2escm"),(void*)f_8161},
{C_text("f_8164:c_2dbackend_2escm"),(void*)f_8164},
{C_text("f_8171:c_2dbackend_2escm"),(void*)f_8171},
{C_text("f_8205:c_2dbackend_2escm"),(void*)f_8205},
{C_text("f_8207:c_2dbackend_2escm"),(void*)f_8207},
{C_text("f_8221:c_2dbackend_2escm"),(void*)f_8221},
{C_text("f_8242:c_2dbackend_2escm"),(void*)f_8242},
{C_text("f_8246:c_2dbackend_2escm"),(void*)f_8246},
{C_text("f_8258:c_2dbackend_2escm"),(void*)f_8258},
{C_text("f_8271:c_2dbackend_2escm"),(void*)f_8271},
{C_text("f_8275:c_2dbackend_2escm"),(void*)f_8275},
{C_text("f_8281:c_2dbackend_2escm"),(void*)f_8281},
{C_text("f_8288:c_2dbackend_2escm"),(void*)f_8288},
{C_text("f_8291:c_2dbackend_2escm"),(void*)f_8291},
{C_text("f_8293:c_2dbackend_2escm"),(void*)f_8293},
{C_text("f_8295:c_2dbackend_2escm"),(void*)f_8295},
{C_text("f_8303:c_2dbackend_2escm"),(void*)f_8303},
{C_text("f_8306:c_2dbackend_2escm"),(void*)f_8306},
{C_text("f_8309:c_2dbackend_2escm"),(void*)f_8309},
{C_text("f_8312:c_2dbackend_2escm"),(void*)f_8312},
{C_text("f_8315:c_2dbackend_2escm"),(void*)f_8315},
{C_text("f_8318:c_2dbackend_2escm"),(void*)f_8318},
{C_text("f_8321:c_2dbackend_2escm"),(void*)f_8321},
{C_text("f_8327:c_2dbackend_2escm"),(void*)f_8327},
{C_text("f_8330:c_2dbackend_2escm"),(void*)f_8330},
{C_text("f_8333:c_2dbackend_2escm"),(void*)f_8333},
{C_text("f_8336:c_2dbackend_2escm"),(void*)f_8336},
{C_text("f_8339:c_2dbackend_2escm"),(void*)f_8339},
{C_text("f_8342:c_2dbackend_2escm"),(void*)f_8342},
{C_text("f_8345:c_2dbackend_2escm"),(void*)f_8345},
{C_text("f_8348:c_2dbackend_2escm"),(void*)f_8348},
{C_text("f_8351:c_2dbackend_2escm"),(void*)f_8351},
{C_text("f_8354:c_2dbackend_2escm"),(void*)f_8354},
{C_text("f_8357:c_2dbackend_2escm"),(void*)f_8357},
{C_text("f_8360:c_2dbackend_2escm"),(void*)f_8360},
{C_text("f_8363:c_2dbackend_2escm"),(void*)f_8363},
{C_text("f_8366:c_2dbackend_2escm"),(void*)f_8366},
{C_text("f_8369:c_2dbackend_2escm"),(void*)f_8369},
{C_text("f_8372:c_2dbackend_2escm"),(void*)f_8372},
{C_text("f_8375:c_2dbackend_2escm"),(void*)f_8375},
{C_text("f_8378:c_2dbackend_2escm"),(void*)f_8378},
{C_text("f_8381:c_2dbackend_2escm"),(void*)f_8381},
{C_text("f_8384:c_2dbackend_2escm"),(void*)f_8384},
{C_text("f_8387:c_2dbackend_2escm"),(void*)f_8387},
{C_text("f_8390:c_2dbackend_2escm"),(void*)f_8390},
{C_text("f_8393:c_2dbackend_2escm"),(void*)f_8393},
{C_text("f_8396:c_2dbackend_2escm"),(void*)f_8396},
{C_text("f_8399:c_2dbackend_2escm"),(void*)f_8399},
{C_text("f_8402:c_2dbackend_2escm"),(void*)f_8402},
{C_text("f_8406:c_2dbackend_2escm"),(void*)f_8406},
{C_text("f_8413:c_2dbackend_2escm"),(void*)f_8413},
{C_text("f_8424:c_2dbackend_2escm"),(void*)f_8424},
{C_text("f_8430:c_2dbackend_2escm"),(void*)f_8430},
{C_text("f_8433:c_2dbackend_2escm"),(void*)f_8433},
{C_text("f_8442:c_2dbackend_2escm"),(void*)f_8442},
{C_text("f_8450:c_2dbackend_2escm"),(void*)f_8450},
{C_text("f_8464:c_2dbackend_2escm"),(void*)f_8464},
{C_text("f_8479:c_2dbackend_2escm"),(void*)f_8479},
{C_text("f_8482:c_2dbackend_2escm"),(void*)f_8482},
{C_text("f_8499:c_2dbackend_2escm"),(void*)f_8499},
{C_text("f_8509:c_2dbackend_2escm"),(void*)f_8509},
{C_text("f_8539:c_2dbackend_2escm"),(void*)f_8539},
{C_text("f_8543:c_2dbackend_2escm"),(void*)f_8543},
{C_text("f_8546:c_2dbackend_2escm"),(void*)f_8546},
{C_text("f_8549:c_2dbackend_2escm"),(void*)f_8549},
{C_text("f_8552:c_2dbackend_2escm"),(void*)f_8552},
{C_text("f_8555:c_2dbackend_2escm"),(void*)f_8555},
{C_text("f_8558:c_2dbackend_2escm"),(void*)f_8558},
{C_text("f_8567:c_2dbackend_2escm"),(void*)f_8567},
{C_text("f_8570:c_2dbackend_2escm"),(void*)f_8570},
{C_text("f_8581:c_2dbackend_2escm"),(void*)f_8581},
{C_text("f_8602:c_2dbackend_2escm"),(void*)f_8602},
{C_text("f_8618:c_2dbackend_2escm"),(void*)f_8618},
{C_text("f_8626:c_2dbackend_2escm"),(void*)f_8626},
{C_text("f_8629:c_2dbackend_2escm"),(void*)f_8629},
{C_text("f_8639:c_2dbackend_2escm"),(void*)f_8639},
{C_text("f_8642:c_2dbackend_2escm"),(void*)f_8642},
{C_text("f_8645:c_2dbackend_2escm"),(void*)f_8645},
{C_text("f_8654:c_2dbackend_2escm"),(void*)f_8654},
{C_text("f_8678:c_2dbackend_2escm"),(void*)f_8678},
{C_text("f_8681:c_2dbackend_2escm"),(void*)f_8681},
{C_text("f_8684:c_2dbackend_2escm"),(void*)f_8684},
{C_text("f_8687:c_2dbackend_2escm"),(void*)f_8687},
{C_text("f_8696:c_2dbackend_2escm"),(void*)f_8696},
{C_text("f_8712:c_2dbackend_2escm"),(void*)f_8712},
{C_text("f_8772:c_2dbackend_2escm"),(void*)f_8772},
{C_text("f_8785:c_2dbackend_2escm"),(void*)f_8785},
{C_text("f_8795:c_2dbackend_2escm"),(void*)f_8795},
{C_text("f_8810:c_2dbackend_2escm"),(void*)f_8810},
{C_text("f_8812:c_2dbackend_2escm"),(void*)f_8812},
{C_text("f_8820:c_2dbackend_2escm"),(void*)f_8820},
{C_text("f_8840:c_2dbackend_2escm"),(void*)f_8840},
{C_text("f_8850:c_2dbackend_2escm"),(void*)f_8850},
{C_text("f_8874:c_2dbackend_2escm"),(void*)f_8874},
{C_text("f_8897:c_2dbackend_2escm"),(void*)f_8897},
{C_text("f_8900:c_2dbackend_2escm"),(void*)f_8900},
{C_text("f_8903:c_2dbackend_2escm"),(void*)f_8903},
{C_text("f_8919:c_2dbackend_2escm"),(void*)f_8919},
{C_text("f_8922:c_2dbackend_2escm"),(void*)f_8922},
{C_text("f_8936:c_2dbackend_2escm"),(void*)f_8936},
{C_text("f_8961:c_2dbackend_2escm"),(void*)f_8961},
{C_text("f_8965:c_2dbackend_2escm"),(void*)f_8965},
{C_text("f_8973:c_2dbackend_2escm"),(void*)f_8973},
{C_text("f_8983:c_2dbackend_2escm"),(void*)f_8983},
{C_text("f_8997:c_2dbackend_2escm"),(void*)f_8997},
{C_text("f_9001:c_2dbackend_2escm"),(void*)f_9001},
{C_text("f_9004:c_2dbackend_2escm"),(void*)f_9004},
{C_text("f_9007:c_2dbackend_2escm"),(void*)f_9007},
{C_text("f_9010:c_2dbackend_2escm"),(void*)f_9010},
{C_text("f_9013:c_2dbackend_2escm"),(void*)f_9013},
{C_text("f_9016:c_2dbackend_2escm"),(void*)f_9016},
{C_text("f_9019:c_2dbackend_2escm"),(void*)f_9019},
{C_text("f_9022:c_2dbackend_2escm"),(void*)f_9022},
{C_text("f_9025:c_2dbackend_2escm"),(void*)f_9025},
{C_text("f_9028:c_2dbackend_2escm"),(void*)f_9028},
{C_text("f_9043:c_2dbackend_2escm"),(void*)f_9043},
{C_text("f_9048:c_2dbackend_2escm"),(void*)f_9048},
{C_text("f_9066:c_2dbackend_2escm"),(void*)f_9066},
{C_text("f_9070:c_2dbackend_2escm"),(void*)f_9070},
{C_text("f_9079:c_2dbackend_2escm"),(void*)f_9079},
{C_text("f_9084:c_2dbackend_2escm"),(void*)f_9084},
{C_text("f_9094:c_2dbackend_2escm"),(void*)f_9094},
{C_text("f_9112:c_2dbackend_2escm"),(void*)f_9112},
{C_text("f_9118:c_2dbackend_2escm"),(void*)f_9118},
{C_text("f_9123:c_2dbackend_2escm"),(void*)f_9123},
{C_text("f_9133:c_2dbackend_2escm"),(void*)f_9133},
{C_text("f_9146:c_2dbackend_2escm"),(void*)f_9146},
{C_text("f_9164:c_2dbackend_2escm"),(void*)f_9164},
{C_text("f_9165:c_2dbackend_2escm"),(void*)f_9165},
{C_text("f_9173:c_2dbackend_2escm"),(void*)f_9173},
{C_text("f_9186:c_2dbackend_2escm"),(void*)f_9186},
{C_text("f_9193:c_2dbackend_2escm"),(void*)f_9193},
{C_text("f_9196:c_2dbackend_2escm"),(void*)f_9196},
{C_text("f_9199:c_2dbackend_2escm"),(void*)f_9199},
{C_text("f_9202:c_2dbackend_2escm"),(void*)f_9202},
{C_text("f_9205:c_2dbackend_2escm"),(void*)f_9205},
{C_text("f_9210:c_2dbackend_2escm"),(void*)f_9210},
{C_text("f_9220:c_2dbackend_2escm"),(void*)f_9220},
{C_text("f_9238:c_2dbackend_2escm"),(void*)f_9238},
{C_text("f_9252:c_2dbackend_2escm"),(void*)f_9252},
{C_text("f_9254:c_2dbackend_2escm"),(void*)f_9254},
{C_text("f_9263:c_2dbackend_2escm"),(void*)f_9263},
{C_text("f_9289:c_2dbackend_2escm"),(void*)f_9289},
{C_text("f_9299:c_2dbackend_2escm"),(void*)f_9299},
{C_text("f_9330:c_2dbackend_2escm"),(void*)f_9330},
{C_text("f_9336:c_2dbackend_2escm"),(void*)f_9336},
{C_text("f_9344:c_2dbackend_2escm"),(void*)f_9344},
{C_text("f_9347:c_2dbackend_2escm"),(void*)f_9347},
{C_text("f_9353:c_2dbackend_2escm"),(void*)f_9353},
{C_text("f_9361:c_2dbackend_2escm"),(void*)f_9361},
{C_text("f_9368:c_2dbackend_2escm"),(void*)f_9368},
{C_text("f_9390:c_2dbackend_2escm"),(void*)f_9390},
{C_text("f_9398:c_2dbackend_2escm"),(void*)f_9398},
{C_text("f_9408:c_2dbackend_2escm"),(void*)f_9408},
{C_text("f_9421:c_2dbackend_2escm"),(void*)f_9421},
{C_text("f_9427:c_2dbackend_2escm"),(void*)f_9427},
{C_text("f_9430:c_2dbackend_2escm"),(void*)f_9430},
{C_text("f_9441:c_2dbackend_2escm"),(void*)f_9441},
{C_text("f_9451:c_2dbackend_2escm"),(void*)f_9451},
{C_text("f_9466:c_2dbackend_2escm"),(void*)f_9466},
{C_text("f_9470:c_2dbackend_2escm"),(void*)f_9470},
{C_text("f_9473:c_2dbackend_2escm"),(void*)f_9473},
{C_text("f_9476:c_2dbackend_2escm"),(void*)f_9476},
{C_text("f_9482:c_2dbackend_2escm"),(void*)f_9482},
{C_text("f_9485:c_2dbackend_2escm"),(void*)f_9485},
{C_text("f_9488:c_2dbackend_2escm"),(void*)f_9488},
{C_text("f_9491:c_2dbackend_2escm"),(void*)f_9491},
{C_text("f_9494:c_2dbackend_2escm"),(void*)f_9494},
{C_text("f_9497:c_2dbackend_2escm"),(void*)f_9497},
{C_text("f_9500:c_2dbackend_2escm"),(void*)f_9500},
{C_text("f_9503:c_2dbackend_2escm"),(void*)f_9503},
{C_text("f_9506:c_2dbackend_2escm"),(void*)f_9506},
{C_text("f_9509:c_2dbackend_2escm"),(void*)f_9509},
{C_text("f_9512:c_2dbackend_2escm"),(void*)f_9512},
{C_text("f_9515:c_2dbackend_2escm"),(void*)f_9515},
{C_text("f_9518:c_2dbackend_2escm"),(void*)f_9518},
{C_text("f_9527:c_2dbackend_2escm"),(void*)f_9527},
{C_text("f_9531:c_2dbackend_2escm"),(void*)f_9531},
{C_text("f_9535:c_2dbackend_2escm"),(void*)f_9535},
{C_text("f_9539:c_2dbackend_2escm"),(void*)f_9539},
{C_text("f_9545:c_2dbackend_2escm"),(void*)f_9545},
{C_text("f_9551:c_2dbackend_2escm"),(void*)f_9551},
{C_text("f_9554:c_2dbackend_2escm"),(void*)f_9554},
{C_text("f_9560:c_2dbackend_2escm"),(void*)f_9560},
{C_text("f_9569:c_2dbackend_2escm"),(void*)f_9569},
{C_text("f_9572:c_2dbackend_2escm"),(void*)f_9572},
{C_text("f_9575:c_2dbackend_2escm"),(void*)f_9575},
{C_text("f_9581:c_2dbackend_2escm"),(void*)f_9581},
{C_text("f_9584:c_2dbackend_2escm"),(void*)f_9584},
{C_text("f_9602:c_2dbackend_2escm"),(void*)f_9602},
{C_text("f_9605:c_2dbackend_2escm"),(void*)f_9605},
{C_text("f_9608:c_2dbackend_2escm"),(void*)f_9608},
{C_text("f_9611:c_2dbackend_2escm"),(void*)f_9611},
{C_text("f_9614:c_2dbackend_2escm"),(void*)f_9614},
{C_text("f_9639:c_2dbackend_2escm"),(void*)f_9639},
{C_text("f_9643:c_2dbackend_2escm"),(void*)f_9643},
{C_text("f_9661:c_2dbackend_2escm"),(void*)f_9661},
{C_text("f_9668:c_2dbackend_2escm"),(void*)f_9668},
{C_text("f_9671:c_2dbackend_2escm"),(void*)f_9671},
{C_text("f_9713:c_2dbackend_2escm"),(void*)f_9713},
{C_text("f_9718:c_2dbackend_2escm"),(void*)f_9718},
{C_text("f_9728:c_2dbackend_2escm"),(void*)f_9728},
{C_text("f_9740:c_2dbackend_2escm"),(void*)f_9740},
{C_text("f_9743:c_2dbackend_2escm"),(void*)f_9743},
{C_text("f_9750:c_2dbackend_2escm"),(void*)f_9750},
{C_text("f_9758:c_2dbackend_2escm"),(void*)f_9758},
{C_text("f_9768:c_2dbackend_2escm"),(void*)f_9768},
{C_text("f_9779:c_2dbackend_2escm"),(void*)f_9779},
{C_text("f_9789:c_2dbackend_2escm"),(void*)f_9789},
{C_text("f_9804:c_2dbackend_2escm"),(void*)f_9804},
{C_text("f_9808:c_2dbackend_2escm"),(void*)f_9808},
{C_text("f_9811:c_2dbackend_2escm"),(void*)f_9811},
{C_text("f_9814:c_2dbackend_2escm"),(void*)f_9814},
{C_text("f_9817:c_2dbackend_2escm"),(void*)f_9817},
{C_text("f_9823:c_2dbackend_2escm"),(void*)f_9823},
{C_text("f_9825:c_2dbackend_2escm"),(void*)f_9825},
{C_text("f_9835:c_2dbackend_2escm"),(void*)f_9835},
{C_text("f_9844:c_2dbackend_2escm"),(void*)f_9844},
{C_text("f_9856:c_2dbackend_2escm"),(void*)f_9856},
{C_text("f_9868:c_2dbackend_2escm"),(void*)f_9868},
{C_text("f_9880:c_2dbackend_2escm"),(void*)f_9880},
{C_text("f_9892:c_2dbackend_2escm"),(void*)f_9892},
{C_text("f_9898:c_2dbackend_2escm"),(void*)f_9898},
{C_text("f_9902:c_2dbackend_2escm"),(void*)f_9902},
{C_text("f_9929:c_2dbackend_2escm"),(void*)f_9929},
{C_text("toplevel:c_2dbackend_2escm"),(void*)C_c_2dbackend_toplevel},
{C_text("va15287:c_2dbackend_2escm"),(void*)va15287},
{C_text("va15293:c_2dbackend_2escm"),(void*)va15293},
{C_text("va15323:c_2dbackend_2escm"),(void*)va15323},
{C_text("va15325:c_2dbackend_2escm"),(void*)va15325},
{C_text("va15333:c_2dbackend_2escm"),(void*)va15333},
{C_text("va15335:c_2dbackend_2escm"),(void*)va15335},
{NULL,NULL}};
#endif

static C_PTABLE_ENTRY *create_ptable(void){
#ifdef C_ENABLE_PTABLES
return ptable;
#else
return NULL;
#endif
}

/*
o|hiding unexported module binding: chicken.compiler.c-backend#partition 
o|hiding unexported module binding: chicken.compiler.c-backend#span 
o|hiding unexported module binding: chicken.compiler.c-backend#take 
o|hiding unexported module binding: chicken.compiler.c-backend#drop 
o|hiding unexported module binding: chicken.compiler.c-backend#split-at 
o|hiding unexported module binding: chicken.compiler.c-backend#append-map 
o|hiding unexported module binding: chicken.compiler.c-backend#every 
o|hiding unexported module binding: chicken.compiler.c-backend#any 
o|hiding unexported module binding: chicken.compiler.c-backend#cons* 
o|hiding unexported module binding: chicken.compiler.c-backend#concatenate 
o|hiding unexported module binding: chicken.compiler.c-backend#delete 
o|hiding unexported module binding: chicken.compiler.c-backend#first 
o|hiding unexported module binding: chicken.compiler.c-backend#second 
o|hiding unexported module binding: chicken.compiler.c-backend#third 
o|hiding unexported module binding: chicken.compiler.c-backend#fourth 
o|hiding unexported module binding: chicken.compiler.c-backend#fifth 
o|hiding unexported module binding: chicken.compiler.c-backend#delete-duplicates 
o|hiding unexported module binding: chicken.compiler.c-backend#alist-cons 
o|hiding unexported module binding: chicken.compiler.c-backend#filter 
o|hiding unexported module binding: chicken.compiler.c-backend#filter-map 
o|hiding unexported module binding: chicken.compiler.c-backend#remove 
o|hiding unexported module binding: chicken.compiler.c-backend#unzip1 
o|hiding unexported module binding: chicken.compiler.c-backend#last 
o|hiding unexported module binding: chicken.compiler.c-backend#list-index 
o|hiding unexported module binding: chicken.compiler.c-backend#lset-adjoin/eq? 
o|hiding unexported module binding: chicken.compiler.c-backend#lset-difference/eq? 
o|hiding unexported module binding: chicken.compiler.c-backend#lset-union/eq? 
o|hiding unexported module binding: chicken.compiler.c-backend#lset-intersection/eq? 
o|hiding unexported module binding: chicken.compiler.c-backend#list-tabulate 
o|hiding unexported module binding: chicken.compiler.c-backend#lset<=/eq? 
o|hiding unexported module binding: chicken.compiler.c-backend#lset=/eq? 
o|hiding unexported module binding: chicken.compiler.c-backend#length+ 
o|hiding unexported module binding: chicken.compiler.c-backend#find 
o|hiding unexported module binding: chicken.compiler.c-backend#find-tail 
o|hiding unexported module binding: chicken.compiler.c-backend#iota 
o|hiding unexported module binding: chicken.compiler.c-backend#make-list 
o|hiding unexported module binding: chicken.compiler.c-backend#posq 
o|hiding unexported module binding: chicken.compiler.c-backend#posv 
o|hiding unexported module binding: chicken.compiler.c-backend#output 
o|hiding unexported module binding: chicken.compiler.c-backend#gen 
o|hiding unexported module binding: chicken.compiler.c-backend#gen-list 
o|hiding unexported module binding: chicken.compiler.c-backend#backslashify 
o|hiding unexported module binding: chicken.compiler.c-backend#uncommentify 
o|hiding unexported module binding: chicken.compiler.c-backend#c-identifier 
o|hiding unexported module binding: chicken.compiler.c-backend#table->sorted-alist 
o|hiding unexported module binding: chicken.compiler.c-backend#emit-debug-table 
o|hiding unexported module binding: chicken.compiler.c-backend#emit-procedure-table 
o|hiding unexported module binding: chicken.compiler.c-backend#toplevel 
o|hiding unexported module binding: chicken.compiler.c-backend#cleanup 
o|hiding unexported module binding: chicken.compiler.c-backend#make-variable-list 
o|hiding unexported module binding: chicken.compiler.c-backend#make-argument-list 
o|hiding unexported module binding: chicken.compiler.c-backend#generate-external-variables 
o|hiding unexported module binding: chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes 
o|hiding unexported module binding: chicken.compiler.c-backend#generate-foreign-stubs 
o|hiding unexported module binding: chicken.compiler.c-backend#generate-foreign-callback-stubs 
o|hiding unexported module binding: chicken.compiler.c-backend#generate-foreign-callback-header 
o|hiding unexported module binding: chicken.compiler.c-backend#foreign-argument-conversion 
o|hiding unexported module binding: chicken.compiler.c-backend#foreign-result-conversion 
o|hiding unexported module binding: chicken.compiler.c-backend#encode-literal 
S|applied compiler syntax:
S|  chicken.format#sprintf		20
S|  scheme#for-each		22
S|  chicken.base#foldl		5
S|  scheme#map		8
S|  chicken.base#foldr		3
o|eliminated procedure checks: 160 
o|specializations:
o|  1 (scheme#number->string float)
o|  1 (scheme#string-length string)
o|  1 (scheme#number->string * *)
o|  1 (chicken.base#exact-integer? *)
o|  1 (scheme#cdddr (pair * (pair * pair)))
o|  3 (scheme#>= fixnum fixnum)
o|  1 (scheme#> fixnum fixnum)
o|  2 (scheme#memq * list)
o|  8 (scheme#= fixnum fixnum)
o|  1 (scheme#< integer integer)
o|  1 (chicken.base#sub1 fixnum)
o|  2 (scheme#char=? char char)
o|  1 (scheme#char>? char char)
o|  1 (scheme#char<? char char)
o|  4 (scheme#length list)
o|  1 (scheme#modulo fixnum fixnum)
o|  1 (scheme#imag-part cplxnum)
o|  1 (scheme#real-part cplxnum)
o|  1 (scheme#denominator ratnum)
o|  1 (scheme#numerator ratnum)
o|  1 (scheme#vector-length vector)
o|  20 (##sys#check-output-port * * *)
o|  1 (scheme#- integer integer)
o|  1 (chicken.bitwise#bitwise-and fixnum fixnum)
o|  4 (scheme#zero? integer)
o|  3 (scheme#string-append string string)
o|  9 (scheme#number->string *)
o|  14 (scheme#zero? *)
o|  7 (chicken.base#add1 fixnum)
o|  13 (chicken.base#sub1 *)
o|  12 (chicken.base#add1 *)
o|  1 (scheme#negative? *)
o|  1 (chicken.base#infinite? *)
o|  1 (chicken.base#nan? *)
o|  285 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
o|  5 (scheme#+ fixnum fixnum)
o|  1 (scheme#eqv? * *)
o|  16 (##sys#check-list (or pair list) *)
o|  35 (scheme#cdr pair)
o|  13 (scheme#car pair)
(o e)|safe calls: 1575 
o|safe globals: (chicken.compiler.c-backend#encode-literal chicken.compiler.c-backend#foreign-result-conversion chicken.compiler.c-backend#foreign-argument-conversion chicken.compiler.c-backend#foreign-type-declaration chicken.compiler.c-backend#generate-foreign-callback-header chicken.compiler.c-backend#generate-foreign-callback-stubs chicken.compiler.c-backend#generate-foreign-stubs chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes chicken.compiler.c-backend#generate-external-variables chicken.compiler.c-backend#make-argument-list chicken.compiler.c-backend#make-variable-list chicken.compiler.c-backend#cleanup chicken.compiler.c-backend#toplevel chicken.compiler.c-backend#emit-procedure-table chicken.compiler.c-backend#emit-debug-table chicken.compiler.c-backend#generate-code chicken.compiler.c-backend#table->sorted-alist chicken.compiler.c-backend#c-identifier chicken.compiler.c-backend#uncommentify chicken.compiler.c-backend#backslashify chicken.compiler.c-backend#gen-list chicken.compiler.c-backend#gen chicken.compiler.c-backend#output chicken.compiler.c-backend#posv chicken.compiler.c-backend#posq chicken.compiler.c-backend#make-list chicken.compiler.c-backend#iota chicken.compiler.c-backend#find-tail chicken.compiler.c-backend#find chicken.compiler.c-backend#length+ chicken.compiler.c-backend#lset=/eq? chicken.compiler.c-backend#lset<=/eq? chicken.compiler.c-backend#list-tabulate chicken.compiler.c-backend#lset-intersection/eq? chicken.compiler.c-backend#lset-union/eq? chicken.compiler.c-backend#lset-difference/eq? chicken.compiler.c-backend#lset-adjoin/eq? chicken.compiler.c-backend#list-index chicken.compiler.c-backend#last chicken.compiler.c-backend#unzip1 chicken.compiler.c-backend#remove chicken.compiler.c-backend#filter-map chicken.compiler.c-backend#filter chicken.compiler.c-backend#alist-cons chicken.compiler.c-backend#delete-duplicates chicken.compiler.c-backend#fifth chicken.compiler.c-backend#fourth chicken.compiler.c-backend#third chicken.compiler.c-backend#second chicken.compiler.c-backend#first chicken.compiler.c-backend#delete chicken.compiler.c-backend#concatenate chicken.compiler.c-backend#cons* chicken.compiler.c-backend#any chicken.compiler.c-backend#every chicken.compiler.c-backend#append-map chicken.compiler.c-backend#split-at chicken.compiler.c-backend#drop chicken.compiler.c-backend#take chicken.compiler.c-backend#span chicken.compiler.c-backend#partition) 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#partition 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#span 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#drop 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#split-at 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#append-map 
o|inlining procedure: k3619 
o|inlining procedure: k3619 
o|inlining procedure: k3650 
o|inlining procedure: k3650 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#concatenate 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#delete-duplicates 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#alist-cons 
o|inlining procedure: k3867 
o|inlining procedure: k3867 
o|inlining procedure: k3859 
o|inlining procedure: k3859 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#filter-map 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#remove 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#unzip1 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#last 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#list-index 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset-adjoin/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset-difference/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset-union/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset-intersection/eq? 
o|inlining procedure: k4258 
o|inlining procedure: k4258 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset<=/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#lset=/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#length+ 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#find 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#find-tail 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#posq 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#posv 
o|inlining procedure: k4540 
o|contracted procedure: "(c-backend.scm:61) g629636" 
o|inlining procedure: k4522 
o|inlining procedure: k4522 
o|inlining procedure: k4540 
o|inlining procedure: k4577 
o|contracted procedure: "(c-backend.scm:69) g649656" 
o|inlining procedure: k4577 
o|inlining procedure: k4684 
o|inlining procedure: k4684 
o|inlining procedure: k4705 
o|inlining procedure: k4724 
o|inlining procedure: k4724 
o|inlining procedure: "(c-backend.scm:116) chicken.compiler.c-backend#second" 
o|inlining procedure: k4730 
o|inlining procedure: "(c-backend.scm:117) chicken.compiler.c-backend#second" 
o|inlining procedure: k4730 
o|inlining procedure: k4756 
o|inlining procedure: "(c-backend.scm:119) chicken.compiler.c-backend#second" 
o|inlining procedure: k4756 
o|substituted constant variable: a4782 
o|substituted constant variable: a4784 
o|substituted constant variable: a4786 
o|substituted constant variable: a4788 
o|substituted constant variable: a4790 
o|inlining procedure: "(c-backend.scm:115) chicken.compiler.c-backend#first" 
o|inlining procedure: k4705 
o|inlining procedure: k4800 
o|inlining procedure: k4800 
o|inlining procedure: "(c-backend.scm:127) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:124) chicken.compiler.c-backend#first" 
o|inlining procedure: k4820 
o|inlining procedure: k4839 
o|inlining procedure: k4839 
o|inlining procedure: "(c-backend.scm:130) chicken.compiler.c-backend#first" 
o|inlining procedure: k4820 
o|inlining procedure: k4895 
o|inlining procedure: "(c-backend.scm:148) chicken.compiler.c-backend#first" 
o|inlining procedure: k4895 
o|inlining procedure: k4924 
o|inlining procedure: k4924 
o|inlining procedure: "(c-backend.scm:151) chicken.compiler.c-backend#first" 
o|inlining procedure: k4959 
o|inlining procedure: "(c-backend.scm:164) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:162) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:160) chicken.compiler.c-backend#first" 
o|inlining procedure: k4959 
o|inlining procedure: "(c-backend.scm:167) chicken.compiler.c-backend#first" 
o|inlining procedure: k5001 
o|inlining procedure: "(c-backend.scm:171) chicken.compiler.c-backend#first" 
o|inlining procedure: k5001 
o|inlining procedure: "(c-backend.scm:176) chicken.compiler.c-backend#first" 
o|inlining procedure: k5039 
o|inlining procedure: "(c-backend.scm:182) chicken.compiler.c-backend#first" 
o|inlining procedure: k5039 
o|inlining procedure: k5081 
o|inlining procedure: k5081 
o|inlining procedure: k5100 
o|inlining procedure: k5100 
o|inlining procedure: "(c-backend.scm:186) chicken.compiler.c-backend#second" 
o|inlining procedure: k5106 
o|inlining procedure: k5140 
o|inlining procedure: k5140 
o|inlining procedure: "(c-backend.scm:195) chicken.compiler.c-backend#second" 
o|inlining procedure: k5106 
o|inlining procedure: k5161 
o|inlining procedure: k5161 
o|inlining procedure: k5180 
o|inlining procedure: k5180 
o|inlining procedure: "(c-backend.scm:204) chicken.compiler.c-backend#second" 
o|inlining procedure: k5186 
o|inlining procedure: k5186 
o|inlining procedure: "(c-backend.scm:219) chicken.compiler.c-backend#first" 
o|inlining procedure: k5238 
o|inlining procedure: "(c-backend.scm:226) chicken.compiler.c-backend#first" 
o|inlining procedure: k5238 
o|inlining procedure: k5304 
o|inlining procedure: k5304 
o|inlining procedure: k5376 
o|inlining procedure: k5376 
o|inlining procedure: "(c-backend.scm:245) chicken.compiler.c-backend#first" 
o|inlining procedure: k5410 
o|inlining procedure: k5410 
o|inlining procedure: "(c-backend.scm:260) chicken.compiler.c-backend#first" 
o|inlining procedure: k5442 
o|inlining procedure: "(c-backend.scm:263) chicken.compiler.c-backend#first" 
o|inlining procedure: k5442 
o|inlining procedure: k5477 
o|inlining procedure: "(c-backend.scm:275) chicken.compiler.c-backend#fourth" 
o|inlining procedure: k5477 
o|inlining procedure: "(c-backend.scm:269) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:268) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:267) chicken.compiler.c-backend#first" 
o|inlining procedure: k5510 
o|inlining procedure: "(c-backend.scm:282) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:281) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:280) chicken.compiler.c-backend#first" 
o|inlining procedure: k5510 
o|inlining procedure: k5570 
o|inlining procedure: k5570 
o|inlining procedure: "(c-backend.scm:293) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:292) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:291) chicken.compiler.c-backend#first" 
o|inlining procedure: k5615 
o|inlining procedure: k5615 
o|inlining procedure: k5665 
o|inlining procedure: "(c-backend.scm:332) chicken.compiler.c-backend#first" 
o|inlining procedure: k5665 
o|inlining procedure: k5690 
o|inlining procedure: k5745 
o|contracted procedure: "(c-backend.scm:344) g905928" 
o|inlining procedure: k5745 
o|inlining procedure: k5782 
o|inlining procedure: k5782 
o|inlining procedure: k5690 
o|inlining procedure: k5852 
o|inlining procedure: k5852 
o|inlining procedure: k5862 
o|substituted constant variable: a5871 
o|inlining procedure: k5862 
o|inlining procedure: k5896 
o|inlining procedure: k5952 
o|inlining procedure: "(c-backend.scm:386) chicken.compiler.c-backend#fourth" 
o|inlining procedure: k5952 
o|inlining procedure: "(c-backend.scm:372) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:371) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:370) chicken.compiler.c-backend#first" 
o|inlining procedure: k5896 
o|propagated global variable: tmp977979 chicken.compiler.support#unsafe 
o|propagated global variable: tmp977979 chicken.compiler.support#unsafe 
o|propagated global variable: tmp980982 chicken.compiler.core#no-procedure-checks 
o|inlining procedure: k6042 
o|propagated global variable: tmp980982 chicken.compiler.core#no-procedure-checks 
o|inlining procedure: k6042 
o|substituted constant variable: a6049 
o|inlining procedure: k6058 
o|inlining procedure: k6058 
o|inlining procedure: k6084 
o|inlining procedure: k6094 
o|inlining procedure: k6094 
o|inlining procedure: k6084 
o|inlining procedure: k6122 
o|inlining procedure: "(c-backend.scm:317) chicken.compiler.c-backend#fourth" 
o|inlining procedure: k6122 
o|inlining procedure: "(c-backend.scm:315) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:313) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:312) chicken.compiler.c-backend#first" 
o|inlining procedure: k6142 
o|inlining procedure: k6208 
o|contracted procedure: "(c-backend.scm:424) g10221045" 
o|inlining procedure: k6208 
o|inlining procedure: k6245 
o|inlining procedure: k6245 
o|inlining procedure: "(c-backend.scm:413) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:412) chicken.compiler.c-backend#first" 
o|inlining procedure: k6142 
o|inlining procedure: k6369 
o|inlining procedure: k6369 
o|inlining procedure: k6381 
o|inlining procedure: k6381 
o|inlining procedure: k6399 
o|inlining procedure: k6409 
o|inlining procedure: k6409 
o|inlining procedure: k6399 
o|inlining procedure: "(c-backend.scm:442) chicken.compiler.c-backend#fourth" 
o|inlining procedure: "(c-backend.scm:440) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:438) chicken.compiler.c-backend#first" 
o|inlining procedure: k6432 
o|inlining procedure: "(c-backend.scm:467) chicken.compiler.c-backend#first" 
o|inlining procedure: k6432 
o|substituted constant variable: a6455 
o|inlining procedure: "(c-backend.scm:476) chicken.compiler.c-backend#first" 
o|inlining procedure: k6473 
o|inlining procedure: "(c-backend.scm:480) chicken.compiler.c-backend#first" 
o|inlining procedure: k6473 
o|inlining procedure: "(c-backend.scm:484) chicken.compiler.c-backend#first" 
o|inlining procedure: k6511 
o|inlining procedure: k6525 
o|inlining procedure: k6525 
o|inlining procedure: "(c-backend.scm:489) chicken.compiler.c-backend#first" 
o|inlining procedure: k6511 
o|inlining procedure: k6537 
o|inlining procedure: k6537 
o|inlining procedure: "(c-backend.scm:493) chicken.compiler.c-backend#first" 
o|inlining procedure: k6560 
o|inlining procedure: "(c-backend.scm:501) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:501) chicken.compiler.c-backend#second" 
o|inlining procedure: k6560 
o|inlining procedure: "(c-backend.scm:506) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:505) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:504) chicken.compiler.c-backend#second" 
o|inlining procedure: k6615 
o|inlining procedure: "(c-backend.scm:512) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:510) chicken.compiler.c-backend#first" 
o|inlining procedure: k6615 
o|inlining procedure: "(c-backend.scm:520) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:518) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:516) chicken.compiler.c-backend#first" 
o|inlining procedure: k6685 
o|inlining procedure: k6714 
o|inlining procedure: k6714 
o|inlining procedure: "(c-backend.scm:527) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:525) chicken.compiler.c-backend#first" 
o|inlining procedure: k6685 
o|inlining procedure: "(c-backend.scm:544) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:542) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:540) chicken.compiler.c-backend#first" 
o|substituted constant variable: a6811 
o|substituted constant variable: a6813 
o|substituted constant variable: a6815 
o|substituted constant variable: a6817 
o|substituted constant variable: a6819 
o|substituted constant variable: a6821 
o|substituted constant variable: a6823 
o|substituted constant variable: a6825 
o|substituted constant variable: a6827 
o|substituted constant variable: a6829 
o|substituted constant variable: a6831 
o|substituted constant variable: a6833 
o|substituted constant variable: a6835 
o|substituted constant variable: a6837 
o|substituted constant variable: a6839 
o|substituted constant variable: a6841 
o|substituted constant variable: a6843 
o|substituted constant variable: a6845 
o|substituted constant variable: a6847 
o|substituted constant variable: a6849 
o|substituted constant variable: a6851 
o|substituted constant variable: a6853 
o|substituted constant variable: a6855 
o|substituted constant variable: a6857 
o|substituted constant variable: a6859 
o|substituted constant variable: a6861 
o|substituted constant variable: a6863 
o|substituted constant variable: a6865 
o|substituted constant variable: a6867 
o|substituted constant variable: a6869 
o|substituted constant variable: a6871 
o|substituted constant variable: a6873 
o|substituted constant variable: a6875 
o|substituted constant variable: a6877 
o|substituted constant variable: a6879 
o|substituted constant variable: a6881 
o|substituted constant variable: a6883 
o|substituted constant variable: a6885 
o|substituted constant variable: a6887 
o|substituted constant variable: a6889 
o|substituted constant variable: a6891 
o|substituted constant variable: a6893 
o|inlining procedure: k6903 
o|inlining procedure: k6903 
o|inlining procedure: k6966 
o|inlining procedure: k6966 
o|inlining procedure: k7004 
o|inlining procedure: k7004 
o|inlining procedure: k7031 
o|inlining procedure: k7031 
o|inlining procedure: k7044 
o|inlining procedure: k7044 
o|inlining procedure: k7080 
o|inlining procedure: k7080 
o|inlining procedure: k7103 
o|contracted procedure: "(c-backend.scm:611) g12121219" 
o|inlining procedure: k7103 
o|propagated global variable: g12181220 chicken.compiler.core#foreign-declarations 
o|inlining procedure: k7163 
o|contracted procedure: "(c-backend.scm:595) g11821191" 
o|inlining procedure: k7163 
o|inlining procedure: k7253 
o|inlining procedure: k7253 
o|inlining procedure: k7293 
o|inlining procedure: k7293 
o|substituted constant variable: a7307 
o|inlining procedure: k7311 
o|inlining procedure: k7311 
o|substituted constant variable: a7342 
o|inlining procedure: k7362 
o|contracted procedure: "(c-backend.scm:626) g12401248" 
o|inlining procedure: k7362 
o|inlining procedure: k7385 
o|inlining procedure: k7385 
o|propagated global variable: g12651269 chicken.compiler.core#used-units 
o|inlining procedure: k7574 
o|contracted procedure: "(c-backend.scm:654) g13091316" 
o|inlining procedure: k7467 
o|inlining procedure: k7467 
o|inlining procedure: k7491 
o|inlining procedure: k7491 
o|inlining procedure: k7520 
o|inlining procedure: k7520 
o|inlining procedure: k7533 
o|inlining procedure: k7533 
o|inlining procedure: k7557 
o|inlining procedure: k7557 
o|inlining procedure: k7574 
o|inlining procedure: k7642 
o|contracted procedure: "(c-backend.scm:714) restore1371" 
o|inlining procedure: k7608 
o|inlining procedure: k7608 
o|inlining procedure: k7642 
o|inlining procedure: k7695 
o|inlining procedure: k7695 
o|inlining procedure: k7724 
o|inlining procedure: k7724 
o|substituted constant variable: a7749 
o|substituted constant variable: a7750 
o|inlining procedure: k7772 
o|inlining procedure: k7772 
o|inlining procedure: k7784 
o|inlining procedure: k7784 
o|inlining procedure: k7796 
o|propagated global variable: r779713998 chicken.compiler.c-platform#words-per-flonum 
o|inlining procedure: k7796 
o|inlining procedure: k7808 
o|inlining procedure: k7808 
o|inlining procedure: k7835 
o|inlining procedure: k7867 
o|inlining procedure: k7867 
o|substituted constant variable: g14301433 
o|inlining procedure: k7891 
o|inlining procedure: k7891 
o|inlining procedure: k7835 
o|inlining procedure: k7929 
o|inlining procedure: "(c-backend.scm:743) bad-literal698" 
o|inlining procedure: k7929 
o|inlining procedure: k7941 
o|inlining procedure: k7941 
o|substituted constant variable: a7971 
o|inlining procedure: k7976 
o|inlining procedure: k7976 
o|inlining procedure: k7999 
o|inlining procedure: k7999 
o|inlining procedure: "(c-backend.scm:759) bad-literal698" 
o|inlining procedure: k8055 
o|inlining procedure: k8055 
o|inlining procedure: k8070 
o|inlining procedure: k8070 
o|inlining procedure: k8089 
o|inlining procedure: k8089 
o|inlining procedure: k8092 
o|inlining procedure: k8092 
o|inlining procedure: k8135 
o|inlining procedure: k8135 
o|inlining procedure: k8150 
o|inlining procedure: k8150 
o|inlining procedure: "(c-backend.scm:789) bad-literal698" 
o|substituted constant variable: a8216 
o|inlining procedure: k8223 
o|inlining procedure: k8223 
o|inlining procedure: k8415 
o|inlining procedure: k8415 
o|inlining procedure: k8425 
o|inlining procedure: k8444 
o|inlining procedure: k8444 
o|inlining procedure: k8425 
o|inlining procedure: k8501 
o|inlining procedure: k8501 
o|inlining procedure: k8556 
o|inlining procedure: k8556 
o|inlining procedure: k8582 
o|inlining procedure: k8582 
o|propagated global variable: tmp16271629 chicken.compiler.core#unit-name 
o|inlining procedure: k8598 
o|propagated global variable: tmp16271629 chicken.compiler.core#unit-name 
o|inlining procedure: k8598 
o|inlining procedure: k8604 
o|inlining procedure: k8604 
o|substituted constant variable: g16131616 
o|inlining procedure: k8634 
o|inlining procedure: k8661 
o|inlining procedure: k8661 
o|inlining procedure: k8634 
o|inlining procedure: k8701 
o|inlining procedure: k8701 
o|inlining procedure: k8713 
o|inlining procedure: k8713 
o|inlining procedure: k8731 
o|inlining procedure: k8731 
o|inlining procedure: k8755 
o|inlining procedure: k8755 
o|inlining procedure: k8787 
o|contracted procedure: "(c-backend.scm:869) g15911598" 
o|inlining procedure: k8787 
o|inlining procedure: k8814 
o|inlining procedure: k8814 
o|inlining procedure: k8829 
o|inlining procedure: k8829 
o|inlining procedure: k8842 
o|inlining procedure: k8842 
o|inlining procedure: k8875 
o|inlining procedure: k8875 
o|inlining procedure: k8901 
o|inlining procedure: k8901 
o|inlining procedure: k8914 
o|inlining procedure: k8914 
o|inlining procedure: k8941 
o|inlining procedure: k8941 
o|inlining procedure: k8948 
o|inlining procedure: k8948 
o|inlining procedure: k8955 
o|inlining procedure: k8955 
o|inlining procedure: k8975 
o|inlining procedure: k8975 
o|contracted procedure: "(c-backend.scm:976) trailer693" 
o|contracted procedure: "(c-backend.scm:975) chicken.compiler.c-backend#emit-procedure-table" 
o|inlining procedure: k9174 
o|inlining procedure: k9174 
o|inlining procedure: k9212 
o|inlining procedure: k9212 
o|contracted procedure: "(c-backend.scm:973) chicken.compiler.c-backend#emit-debug-table" 
o|inlining procedure: k9125 
o|contracted procedure: "(c-backend.scm:983) g17401747" 
o|inlining procedure: k9086 
o|contracted procedure: "(c-backend.scm:986) g17531760" 
o|inlining procedure: k9051 
o|inlining procedure: k9051 
o|inlining procedure: k9086 
o|inlining procedure: "(c-backend.scm:985) chicken.compiler.c-backend#second" 
o|inlining procedure: k9125 
o|contracted procedure: "(c-backend.scm:970) chicken.compiler.c-backend#generate-foreign-callback-stubs" 
o|inlining procedure: k9827 
o|inlining procedure: k9827 
o|inlining procedure: k9848 
o|inlining procedure: k9848 
o|inlining procedure: k9872 
o|inlining procedure: k9872 
o|inlining procedure: k9899 
o|inlining procedure: k9899 
o|inlining procedure: k9921 
o|inlining procedure: k9921 
o|substituted constant variable: a9947 
o|inlining procedure: k9951 
o|inlining procedure: k9951 
o|inlining procedure: k9963 
o|inlining procedure: k9963 
o|inlining procedure: k9975 
o|inlining procedure: k9975 
o|inlining procedure: k9987 
o|inlining procedure: k9987 
o|substituted constant variable: a9994 
o|substituted constant variable: a9996 
o|substituted constant variable: a9998 
o|substituted constant variable: a10000 
o|substituted constant variable: a10002 
o|substituted constant variable: a10004 
o|substituted constant variable: a10006 
o|substituted constant variable: a10008 
o|substituted constant variable: a10010 
o|inlining procedure: k10020 
o|inlining procedure: k10020 
o|inlining procedure: k10032 
o|inlining procedure: k10032 
o|substituted constant variable: a10039 
o|substituted constant variable: a10041 
o|substituted constant variable: a10043 
o|substituted constant variable: a10045 
o|substituted constant variable: a10047 
o|inlining procedure: k10051 
o|inlining procedure: k10051 
o|inlining procedure: k10063 
o|inlining procedure: k10063 
o|substituted constant variable: a10070 
o|substituted constant variable: a10072 
o|substituted constant variable: a10074 
o|substituted constant variable: a10076 
o|substituted constant variable: a10078 
o|inlining procedure: k10082 
o|inlining procedure: k10082 
o|substituted constant variable: a10095 
o|substituted constant variable: a10097 
o|substituted constant variable: a10099 
o|substituted constant variable: a10101 
o|inlining procedure: k10105 
o|inlining procedure: k10105 
o|inlining procedure: k10117 
o|inlining procedure: k10117 
o|inlining procedure: k10129 
o|inlining procedure: k10129 
o|substituted constant variable: a10136 
o|substituted constant variable: a10138 
o|substituted constant variable: a10140 
o|substituted constant variable: a10142 
o|substituted constant variable: a10144 
o|substituted constant variable: a10146 
o|substituted constant variable: a10148 
o|inlining procedure: k10152 
o|inlining procedure: k10152 
o|inlining procedure: k10164 
o|inlining procedure: k10164 
o|substituted constant variable: a10177 
o|substituted constant variable: a10179 
o|substituted constant variable: a10181 
o|substituted constant variable: a10183 
o|substituted constant variable: a10185 
o|substituted constant variable: a10187 
o|inlining procedure: k10191 
o|inlining procedure: k10191 
o|inlining procedure: k10203 
o|inlining procedure: k10203 
o|inlining procedure: k10215 
o|inlining procedure: k10215 
o|inlining procedure: k10227 
o|inlining procedure: k10227 
o|inlining procedure: k10239 
o|inlining procedure: k10239 
o|inlining procedure: k10251 
o|inlining procedure: k10251 
o|substituted constant variable: a10258 
o|substituted constant variable: a10260 
o|substituted constant variable: a10262 
o|substituted constant variable: a10264 
o|substituted constant variable: a10266 
o|substituted constant variable: a10268 
o|substituted constant variable: a10270 
o|substituted constant variable: a10272 
o|substituted constant variable: a10274 
o|substituted constant variable: a10276 
o|substituted constant variable: a10278 
o|substituted constant variable: a10280 
o|substituted constant variable: a10282 
o|inlining procedure: k10325 
o|inlining procedure: k10325 
o|inlining procedure: k10350 
o|contracted procedure: "(c-backend.scm:1204) g21792187" 
o|inlining procedure: k10350 
o|inlining procedure: k10385 
o|inlining procedure: k10385 
o|inlining procedure: k10401 
o|inlining procedure: k10401 
o|propagated global variable: stubs1997 chicken.compiler.support#foreign-callback-stubs 
o|inlining procedure: k10435 
o|inlining procedure: k10435 
o|contracted procedure: "(c-backend.scm:968) chicken.compiler.c-backend#generate-foreign-stubs" 
o|inlining procedure: k9573 
o|inlining procedure: k9591 
o|inlining procedure: k9591 
o|inlining procedure: k9573 
o|inlining procedure: k9621 
o|inlining procedure: k9621 
o|inlining procedure: k9663 
o|contracted procedure: "(c-backend.scm:1117) g19211941" 
o|inlining procedure: k9537 
o|substituted constant variable: a9547 
o|substituted constant variable: a9548 
o|inlining procedure: k9537 
o|inlining procedure: k9663 
o|inlining procedure: k9702 
o|inlining procedure: k9702 
o|contracted procedure: "(c-backend.scm:1125) chicken.compiler.c-backend#iota" 
o|inlining procedure: k9720 
o|inlining procedure: k9720 
o|contracted procedure: "(c-backend.scm:1095) chicken.compiler.c-backend#make-list" 
o|propagated global variable: stubs1886 chicken.compiler.core#foreign-lambda-stubs 
o|inlining procedure: k9781 
o|inlining procedure: k9781 
o|contracted procedure: "(c-backend.scm:967) chicken.compiler.c-backend#generate-external-variables" 
o|inlining procedure: k9400 
o|contracted procedure: "(c-backend.scm:1066) g18441851" 
o|inlining procedure: k9400 
o|propagated global variable: a9036 chicken.flonum#flonum-maximum-decimal-exponent 
o|substituted constant variable: a9037 
o|contracted procedure: "(c-backend.scm:94) chicken.compiler.c-backend#table->sorted-alist" 
o|inlining procedure: k9240 
o|inlining procedure: k9240 
o|contracted procedure: "(c-backend.scm:1027) chicken.compiler.c-backend#c-identifier" 
o|inlining procedure: k9265 
o|inlining procedure: k9265 
o|substituted constant variable: a9286 
o|inlining procedure: k9300 
o|inlining procedure: k9300 
o|substituted constant variable: a9307 
o|inlining procedure: k9308 
o|inlining procedure: k9308 
o|substituted constant variable: a9315 
o|inlining procedure: k9316 
o|substituted constant variable: a9322 
o|inlining procedure: k9316 
o|inlining procedure: k9443 
o|contracted procedure: "(c-backend.scm:1078) g18681875" 
o|inlining procedure: k9443 
o|inlining procedure: k10488 
o|inlining procedure: k10488 
o|inlining procedure: k10544 
o|inlining procedure: k10544 
o|inlining procedure: k10565 
o|inlining procedure: k10565 
o|inlining procedure: k10589 
o|inlining procedure: k10589 
o|inlining procedure: k10613 
o|inlining procedure: k10613 
o|inlining procedure: k10631 
o|inlining procedure: k10631 
o|inlining procedure: k10652 
o|inlining procedure: k10652 
o|inlining procedure: k10670 
o|inlining procedure: k10670 
o|inlining procedure: k10688 
o|inlining procedure: k10688 
o|inlining procedure: k10706 
o|inlining procedure: k10706 
o|inlining procedure: k10730 
o|inlining procedure: k10730 
o|inlining procedure: k10751 
o|inlining procedure: k10751 
o|inlining procedure: k10775 
o|inlining procedure: k10775 
o|inlining procedure: k10799 
o|inlining procedure: k10799 
o|inlining procedure: k10823 
o|inlining procedure: k10823 
o|inlining procedure: k10847 
o|inlining procedure: k10847 
o|inlining procedure: k10871 
o|inlining procedure: k10871 
o|inlining procedure: k10895 
o|inlining procedure: k10895 
o|inlining procedure: k10922 
o|inlining procedure: k10922 
o|inlining procedure: k10938 
o|inlining procedure: k10938 
o|inlining procedure: k10972 
o|inlining procedure: k11014 
o|contracted procedure: "(c-backend.scm:1297) g23662375" 
o|propagated global variable: g23832384 chicken.compiler.c-backend#foreign-type-declaration 
o|inlining procedure: k11014 
o|inlining procedure: k10972 
o|inlining procedure: k11066 
o|inlining procedure: k11066 
o|inlining procedure: k11100 
o|inlining procedure: k11100 
o|inlining procedure: k11134 
o|inlining procedure: k11134 
o|inlining procedure: k11204 
o|contracted procedure: "(c-backend.scm:1321) g24142423" 
o|inlining procedure: k11186 
o|inlining procedure: k11186 
o|inlining procedure: k11204 
o|substituted constant variable: a11255 
o|substituted constant variable: a11267 
o|substituted constant variable: a11275 
o|substituted constant variable: a11277 
o|substituted constant variable: a11289 
o|substituted constant variable: a11301 
o|substituted constant variable: a11313 
o|substituted constant variable: a11325 
o|substituted constant variable: a11337 
o|substituted constant variable: a11348 
o|substituted constant variable: a11357 
o|substituted constant variable: a11358 
o|substituted constant variable: a11370 
o|inlining procedure: k11374 
o|inlining procedure: k11374 
o|substituted constant variable: a11387 
o|substituted constant variable: a11389 
o|substituted constant variable: a11391 
o|substituted constant variable: a11393 
o|inlining procedure: k11397 
o|inlining procedure: k11397 
o|inlining procedure: k11409 
o|inlining procedure: k11409 
o|substituted constant variable: a11416 
o|substituted constant variable: a11418 
o|substituted constant variable: a11420 
o|substituted constant variable: a11422 
o|substituted constant variable: a11424 
o|substituted constant variable: a11429 
o|substituted constant variable: a11431 
o|substituted constant variable: a11436 
o|substituted constant variable: a11438 
o|substituted constant variable: a11443 
o|substituted constant variable: a11445 
o|substituted constant variable: a11450 
o|substituted constant variable: a11452 
o|substituted constant variable: a11457 
o|substituted constant variable: a11459 
o|substituted constant variable: a11464 
o|substituted constant variable: a11466 
o|substituted constant variable: a11471 
o|substituted constant variable: a11473 
o|substituted constant variable: a11478 
o|substituted constant variable: a11480 
o|substituted constant variable: a11485 
o|substituted constant variable: a11487 
o|substituted constant variable: a11492 
o|substituted constant variable: a11494 
o|inlining procedure: k11498 
o|inlining procedure: k11498 
o|substituted constant variable: a11511 
o|substituted constant variable: a11513 
o|substituted constant variable: a11515 
o|substituted constant variable: a11517 
o|substituted constant variable: a11522 
o|substituted constant variable: a11524 
o|inlining procedure: k11528 
o|inlining procedure: k11528 
o|substituted constant variable: a11541 
o|substituted constant variable: a11543 
o|substituted constant variable: a11545 
o|substituted constant variable: a11547 
o|substituted constant variable: a11552 
o|substituted constant variable: a11554 
o|substituted constant variable: a11556 
o|substituted constant variable: a11558 
o|substituted constant variable: a11560 
o|substituted constant variable: a11562 
o|substituted constant variable: a11564 
o|substituted constant variable: a11566 
o|substituted constant variable: a11568 
o|substituted constant variable: a11573 
o|substituted constant variable: a11575 
o|substituted constant variable: a11577 
o|substituted constant variable: a11579 
o|inlining procedure: k11583 
o|inlining procedure: k11583 
o|substituted constant variable: a11590 
o|substituted constant variable: a11592 
o|substituted constant variable: a11594 
o|substituted constant variable: a11599 
o|substituted constant variable: a11601 
o|substituted constant variable: a11606 
o|substituted constant variable: a11608 
o|substituted constant variable: a11613 
o|substituted constant variable: a11615 
o|substituted constant variable: a11620 
o|substituted constant variable: a11622 
o|substituted constant variable: a11624 
o|inlining procedure: k11633 
o|inlining procedure: k11633 
o|inlining procedure: k11648 
o|inlining procedure: k11648 
o|inlining procedure: k11663 
o|inlining procedure: k11663 
o|inlining procedure: k11675 
o|inlining procedure: k11675 
o|inlining procedure: k11693 
o|inlining procedure: k11693 
o|inlining procedure: k11705 
o|inlining procedure: k11705 
o|inlining procedure: k11717 
o|inlining procedure: k11717 
o|inlining procedure: k11732 
o|inlining procedure: k11732 
o|inlining procedure: k11744 
o|inlining procedure: k11744 
o|inlining procedure: k11756 
o|inlining procedure: k11756 
o|inlining procedure: k11768 
o|inlining procedure: k11768 
o|inlining procedure: k11780 
o|inlining procedure: k11780 
o|inlining procedure: k11792 
o|inlining procedure: k11792 
o|inlining procedure: k11804 
o|inlining procedure: k11804 
o|inlining procedure: k11816 
o|inlining procedure: k11816 
o|inlining procedure: k11828 
o|inlining procedure: k11828 
o|inlining procedure: k11840 
o|inlining procedure: k11840 
o|inlining procedure: k11852 
o|inlining procedure: k11852 
o|inlining procedure: k11864 
o|inlining procedure: k11864 
o|inlining procedure: k11876 
o|inlining procedure: k11876 
o|inlining procedure: k11888 
o|inlining procedure: k11888 
o|inlining procedure: k11900 
o|inlining procedure: k11900 
o|inlining procedure: k11918 
o|inlining procedure: k11918 
o|contracted procedure: "(c-backend.scm:1385) g25002501" 
o|inlining procedure: k11942 
o|inlining procedure: k11957 
o|inlining procedure: k11957 
o|inlining procedure: k11969 
o|inlining procedure: k11969 
o|inlining procedure: k11981 
o|inlining procedure: k11981 
o|inlining procedure: k11993 
o|inlining procedure: k11993 
o|inlining procedure: k12012 
o|inlining procedure: k12012 
o|substituted constant variable: a12046 
o|substituted constant variable: a12048 
o|substituted constant variable: a12050 
o|substituted constant variable: a12052 
o|substituted constant variable: a12054 
o|substituted constant variable: a12056 
o|substituted constant variable: a12058 
o|substituted constant variable: a12060 
o|substituted constant variable: a12062 
o|substituted constant variable: a12064 
o|substituted constant variable: a12066 
o|inlining procedure: k11942 
o|substituted constant variable: a12078 
o|substituted constant variable: a12086 
o|inlining procedure: k12090 
o|inlining procedure: k12090 
o|inlining procedure: k12102 
o|inlining procedure: k12102 
o|substituted constant variable: a12109 
o|substituted constant variable: a12111 
o|substituted constant variable: a12113 
o|substituted constant variable: a12115 
o|substituted constant variable: a12117 
o|inlining procedure: k12121 
o|inlining procedure: k12121 
o|substituted constant variable: a12134 
o|substituted constant variable: a12136 
o|substituted constant variable: a12138 
o|substituted constant variable: a12140 
o|substituted constant variable: a12142 
o|substituted constant variable: a12144 
o|substituted constant variable: a12146 
o|substituted constant variable: a12148 
o|substituted constant variable: a12150 
o|substituted constant variable: a12152 
o|substituted constant variable: a12154 
o|substituted constant variable: a12156 
o|substituted constant variable: a12158 
o|substituted constant variable: a12160 
o|substituted constant variable: a12162 
o|substituted constant variable: a12164 
o|substituted constant variable: a12166 
o|substituted constant variable: a12168 
o|substituted constant variable: a12170 
o|substituted constant variable: a12172 
o|substituted constant variable: a12174 
o|substituted constant variable: a12176 
o|substituted constant variable: a12178 
o|substituted constant variable: a12180 
o|substituted constant variable: a12182 
o|substituted constant variable: a12184 
o|substituted constant variable: a12186 
o|substituted constant variable: a12188 
o|substituted constant variable: a12190 
o|substituted constant variable: a12192 
o|substituted constant variable: a12194 
o|substituted constant variable: a12196 
o|substituted constant variable: a12201 
o|substituted constant variable: a12203 
o|substituted constant variable: a12205 
o|substituted constant variable: a12207 
o|substituted constant variable: a12209 
o|substituted constant variable: a12211 
o|substituted constant variable: a12213 
o|substituted constant variable: a12218 
o|substituted constant variable: a12220 
o|inlining procedure: k12224 
o|inlining procedure: k12224 
o|substituted constant variable: a12231 
o|substituted constant variable: a12233 
o|substituted constant variable: a12235 
o|substituted constant variable: a12237 
o|substituted constant variable: a12239 
o|substituted constant variable: a12241 
o|inlining procedure: k12245 
o|inlining procedure: k12245 
o|inlining procedure: k12257 
o|inlining procedure: k12257 
o|substituted constant variable: a12270 
o|substituted constant variable: a12272 
o|substituted constant variable: a12274 
o|substituted constant variable: a12276 
o|substituted constant variable: a12278 
o|substituted constant variable: a12280 
o|substituted constant variable: a12285 
o|substituted constant variable: a12287 
o|substituted constant variable: a12289 
o|inlining procedure: k12298 
o|inlining procedure: k12298 
o|inlining procedure: k12316 
o|inlining procedure: k12316 
o|inlining procedure: k12331 
o|inlining procedure: k12331 
o|inlining procedure: k12343 
o|inlining procedure: k12343 
o|substituted constant variable: a12362 
o|substituted constant variable: a12363 
o|substituted constant variable: a12386 
o|substituted constant variable: a12387 
o|inlining procedure: k12376 
o|inlining procedure: k12376 
o|substituted constant variable: a12413 
o|substituted constant variable: a12414 
o|substituted constant variable: a12437 
o|substituted constant variable: a12438 
o|inlining procedure: k12427 
o|inlining procedure: k12427 
o|substituted constant variable: a12464 
o|substituted constant variable: a12465 
o|substituted constant variable: a12491 
o|substituted constant variable: a12492 
o|inlining procedure: k12478 
o|inlining procedure: k12478 
o|substituted constant variable: a12518 
o|substituted constant variable: a12519 
o|substituted constant variable: a12545 
o|substituted constant variable: a12546 
o|inlining procedure: k12532 
o|inlining procedure: k12532 
o|substituted constant variable: a12569 
o|substituted constant variable: a12570 
o|substituted constant variable: a12593 
o|substituted constant variable: a12594 
o|inlining procedure: k12583 
o|inlining procedure: k12583 
o|inlining procedure: k12613 
o|inlining procedure: k12613 
o|inlining procedure: k12640 
o|substituted constant variable: a12662 
o|substituted constant variable: a12663 
o|substituted constant variable: a12686 
o|substituted constant variable: a12687 
o|inlining procedure: k12676 
o|inlining procedure: k12676 
o|substituted constant variable: a12710 
o|substituted constant variable: a12711 
o|substituted constant variable: a12734 
o|substituted constant variable: a12735 
o|inlining procedure: k12724 
o|inlining procedure: k12724 
o|substituted constant variable: a12758 
o|substituted constant variable: a12759 
o|inlining procedure: k12772 
o|inlining procedure: k12772 
o|substituted constant variable: a12798 
o|substituted constant variable: a12799 
o|substituted constant variable: a12822 
o|substituted constant variable: a12823 
o|inlining procedure: k12812 
o|inlining procedure: k12812 
o|substituted constant variable: a12846 
o|substituted constant variable: a12847 
o|substituted constant variable: a12864 
o|substituted constant variable: a12866 
o|substituted constant variable: a12871 
o|substituted constant variable: a12873 
o|substituted constant variable: a12875 
o|substituted constant variable: a12877 
o|substituted constant variable: a12879 
o|substituted constant variable: a12881 
o|substituted constant variable: a12883 
o|substituted constant variable: a12888 
o|substituted constant variable: a12890 
o|inlining procedure: k12640 
o|substituted constant variable: a12902 
o|substituted constant variable: a12913 
o|substituted constant variable: a12915 
o|substituted constant variable: a12917 
o|substituted constant variable: a12919 
o|substituted constant variable: a12921 
o|substituted constant variable: a12926 
o|substituted constant variable: a12928 
o|substituted constant variable: a12933 
o|substituted constant variable: a12935 
o|substituted constant variable: a12940 
o|substituted constant variable: a12942 
o|substituted constant variable: a12947 
o|substituted constant variable: a12949 
o|substituted constant variable: a12951 
o|inlining procedure: k12955 
o|inlining procedure: k12955 
o|inlining procedure: k12967 
o|inlining procedure: k12967 
o|inlining procedure: k12979 
o|inlining procedure: k12979 
o|inlining procedure: k12991 
o|inlining procedure: k12991 
o|inlining procedure: k13003 
o|inlining procedure: k13003 
o|substituted constant variable: a13016 
o|substituted constant variable: a13018 
o|substituted constant variable: a13020 
o|substituted constant variable: a13022 
o|substituted constant variable: a13024 
o|substituted constant variable: a13026 
o|substituted constant variable: a13028 
o|substituted constant variable: a13030 
o|substituted constant variable: a13032 
o|substituted constant variable: a13034 
o|substituted constant variable: a13036 
o|substituted constant variable: a13038 
o|substituted constant variable: a13040 
o|substituted constant variable: a13045 
o|substituted constant variable: a13047 
o|substituted constant variable: a13049 
o|substituted constant variable: a13051 
o|substituted constant variable: a13053 
o|substituted constant variable: a13055 
o|substituted constant variable: a13060 
o|substituted constant variable: a13062 
o|substituted constant variable: a13067 
o|substituted constant variable: a13069 
o|substituted constant variable: a13074 
o|substituted constant variable: a13076 
o|inlining procedure: k13089 
o|inlining procedure: k13089 
o|contracted procedure: "(c-backend.scm:1491) finish2824" 
o|inlining procedure: k13157 
o|inlining procedure: k13157 
o|inlining procedure: k13180 
o|inlining procedure: k13180 
o|inlining procedure: k13192 
o|inlining procedure: k13192 
o|substituted constant variable: a13207 
o|inlining procedure: k13256 
o|substituted constant variable: a13276 
o|inlining procedure: k13256 
o|inlining procedure: k13291 
o|inlining procedure: k13311 
o|inlining procedure: k13311 
o|inlining procedure: k13291 
o|inlining procedure: k13330 
o|inlining procedure: "(c-backend.scm:1530) getsize2822" 
o|inlining procedure: "(c-backend.scm:1529) getbits2821" 
o|inlining procedure: k13330 
o|contracted procedure: "(c-backend.scm:1535) chicken.compiler.c-backend#cons*" 
o|inlining procedure: k3680 
o|inlining procedure: k3680 
o|inlining procedure: "(c-backend.scm:1536) getbits2821" 
o|inlining procedure: "(c-backend.scm:1533) getsize2822" 
o|replaced variables: 3219 
o|removed binding forms: 619 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#every 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#any 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#first 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#second 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#third 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#fourth 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#filter 
o|substituted constant variable: r425913425 
o|substituted constant variable: r472513436 
o|substituted constant variable: r472513436 
o|substituted constant variable: r472513438 
o|substituted constant variable: r472513438 
o|inlining procedure: k4843 
o|inlining procedure: k5733 
o|substituted constant variable: r586313694 
o|substituted constant variable: r586313694 
o|propagated global variable: r604313720 chicken.compiler.core#no-procedure-checks 
o|substituted constant variable: r605913723 
o|substituted constant variable: r609513725 
o|substituted constant variable: r609513725 
o|substituted constant variable: r609513727 
o|substituted constant variable: r609513727 
o|substituted constant variable: r612313736 
o|substituted constant variable: r641013773 
o|substituted constant variable: r641013773 
o|substituted constant variable: r641013775 
o|substituted constant variable: r641013775 
o|substituted constant variable: r652613818 
o|substituted constant variable: r652613818 
o|substituted constant variable: r652613820 
o|substituted constant variable: r652613820 
o|substituted constant variable: r703213933 
o|substituted constant variable: r753413977 
o|substituted constant variable: r753413977 
o|substituted constant variable: r753413979 
o|substituted constant variable: r753413979 
o|contracted procedure: "(c-backend.scm:702) g13641379" 
o|removed side-effect free assignment to unused variable: bad-literal698 
o|substituted constant variable: r777313994 
o|substituted constant variable: r778513996 
o|substituted constant variable: r780914000 
o|substituted constant variable: r809014030 
o|substituted constant variable: r809014030 
o|substituted constant variable: r809014032 
o|substituted constant variable: r809014032 
o|propagated global variable: r859914069 chicken.compiler.core#unit-name 
o|substituted constant variable: r866214077 
o|substituted constant variable: r870214079 
o|substituted constant variable: r870214079 
o|substituted constant variable: r870214081 
o|substituted constant variable: r870214081 
o|substituted constant variable: r873214086 
o|substituted constant variable: r875614088 
o|substituted constant variable: r883014095 
o|substituted constant variable: r883014095 
o|substituted constant variable: r891514111 
o|substituted constant variable: r891514111 
o|substituted constant variable: r891514113 
o|substituted constant variable: r891514113 
o|inlining procedure: k8920 
o|substituted constant variable: r895614123 
o|substituted constant variable: r895614123 
o|substituted constant variable: r895614125 
o|substituted constant variable: r895614125 
o|substituted constant variable: r1038614206 
o|substituted constant variable: r1038614206 
o|substituted constant variable: r1038614208 
o|substituted constant variable: r1038614208 
o|propagated global variable: stubs1997 chicken.compiler.support#foreign-callback-stubs 
o|substituted constant variable: r970314235 
o|propagated global variable: stubs1886 chicken.compiler.core#foreign-lambda-stubs 
o|substituted constant variable: r924114243 
o|inlining procedure: k9290 
o|inlining procedure: k9290 
o|substituted constant variable: r931714252 
o|substituted constant variable: r1073114275 
o|substituted constant variable: r1118714306 
o|substituted constant variable: r1163414321 
o|substituted constant variable: r1164914323 
o|substituted constant variable: r1166414325 
o|substituted constant variable: r1167614327 
o|substituted constant variable: r1169414329 
o|substituted constant variable: r1170614331 
o|substituted constant variable: r1171814333 
o|substituted constant variable: r1173314335 
o|substituted constant variable: r1174514337 
o|substituted constant variable: r1175714339 
o|substituted constant variable: r1176914341 
o|substituted constant variable: r1178114343 
o|substituted constant variable: r1179314345 
o|substituted constant variable: r1180514347 
o|substituted constant variable: r1181714349 
o|substituted constant variable: r1182914351 
o|substituted constant variable: r1184114353 
o|substituted constant variable: r1185314355 
o|substituted constant variable: r1186514357 
o|substituted constant variable: r1187714359 
o|substituted constant variable: r1188914361 
o|substituted constant variable: r1190114363 
o|substituted constant variable: r1191914365 
o|substituted constant variable: r1195814368 
o|substituted constant variable: r1197014370 
o|substituted constant variable: r1198214372 
o|substituted constant variable: r1229914391 
o|substituted constant variable: r1231714393 
o|substituted constant variable: r1233214395 
o|substituted constant variable: r1234414397 
o|substituted constant variable: r1261414409 
o|removed side-effect free assignment to unused variable: getbits2821 
o|removed side-effect free assignment to unused variable: getsize2822 
o|substituted constant variable: r1315814433 
o|substituted constant variable: r1318114435 
o|substituted constant variable: r1319314437 
o|substituted constant variable: r1331214442 
o|substituted constant variable: r1331214442 
o|substituted constant variable: r1331214444 
o|substituted constant variable: r1331214444 
o|replaced variables: 382 
o|removed binding forms: 2525 
o|inlining procedure: "(c-backend.scm:286) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:296) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:301) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: k5831 
o|inlining procedure: "(c-backend.scm:323) chicken.compiler.c-backend#backslashify" 
o|inlining procedure: "(c-backend.scm:324) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:318) chicken.compiler.c-backend#fifth" 
o|inlining procedure: k6288 
o|inlining procedure: k6351 
o|inlining procedure: k6387 
o|inlining procedure: "(c-backend.scm:450) chicken.compiler.c-backend#backslashify" 
o|inlining procedure: "(c-backend.scm:451) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:443) chicken.compiler.c-backend#fifth" 
o|inlining procedure: k7077 
o|inlining procedure: k7476 
o|inlining procedure: k7476 
o|propagated global variable: r859914069 chicken.compiler.core#unit-name 
o|inlining procedure: k8643 
o|inlining procedure: k8749 
o|inlining procedure: k8749 
o|inlining procedure: k8860 
o|inlining procedure: k8860 
o|inlining procedure: "(c-backend.scm:617) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:990) chicken.compiler.c-backend#backslashify" 
o|inlining procedure: k4435 
o|inlining procedure: k9277 
o|inlining procedure: k10497 
o|inlining procedure: k11225 
o|inlining procedure: k13349 
o|inlining procedure: k13357 
o|inlining procedure: k13397 
o|converted assignments to bindings: (encode-size2823) 
o|simplifications: ((let . 1)) 
o|replaced variables: 4 
o|removed binding forms: 490 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#fifth 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#backslashify 
o|removed side-effect free assignment to unused variable: chicken.compiler.c-backend#uncommentify 
o|inlining procedure: k7701 
o|substituted constant variable: r875014769 
o|substituted constant variable: r875014770 
o|substituted constant variable: r443614809 
o|substituted constant variable: r1122614831 
o|inlining procedure: k13151 
o|inlining procedure: k13151 
o|inlining procedure: k13151 
o|inlining procedure: k13151 
o|inlining procedure: k13151 
o|contracted procedure: k13360 
o|replaced variables: 27 
o|removed binding forms: 15 
o|removed conditional forms: 2 
o|substituted constant variable: r1315214944 
o|substituted constant variable: r1315214948 
o|substituted constant variable: r1315214952 
o|substituted constant variable: r1315214956 
o|substituted constant variable: r1315214960 
o|removed binding forms: 36 
o|removed binding forms: 6 
o|simplifications: ((let . 26) (if . 82) (##core#call . 881)) 
o|  call simplifications:
o|    scheme#eof-object?
o|    chicken.fixnum#fxlen
o|    scheme#integer->char	9
o|    scheme#string	10
o|    scheme#list?	3
o|    chicken.fixnum#fx>	2
o|    scheme#string-set!	3
o|    scheme#string=?
o|    scheme#-	4
o|    chicken.fixnum#fx/
o|    chicken.base#void	2
o|    scheme#boolean?
o|    scheme#char?	2
o|    chicken.base#fixnum?	3
o|    scheme#string?	2
o|    chicken.base#bignum?
o|    chicken.base#flonum?	2
o|    scheme#symbol?	7
o|    ##sys#immediate?	4
o|    ##sys#generic-structure?
o|    chicken.base#ratnum?
o|    chicken.base#cplxnum?
o|    ##sys#size	8
o|    scheme#apply	9
o|    scheme#string-length	3
o|    chicken.bitwise#arithmetic-shift	7
o|    scheme#string-ref	3
o|    chicken.bitwise#bitwise-and	9
o|    ##sys#setslot	5
o|    scheme#<	2
o|    scheme#>=	8
o|    scheme#null?	12
o|    scheme#cdr	7
o|    scheme#length	11
o|    scheme#cddr	4
o|    scheme#cdddr
o|    scheme#cddddr	2
o|    scheme#cadddr	4
o|    ##sys#check-list	24
o|    scheme#not	42
o|    scheme#+	22
o|    scheme#>	5
o|    scheme#caddr	9
o|    scheme#vector?	2
o|    scheme#vector-ref	8
o|    scheme#car	88
o|    scheme#char->integer	4
o|    scheme#cadr	39
o|    scheme#pair?	49
o|    scheme#eq?	327
o|    ##sys#slot	84
o|    chicken.fixnum#fx>=	4
o|    chicken.fixnum#fx+
o|    scheme#cons	16
o|contracted procedure: k4261 
o|contracted procedure: k4276 
o|contracted procedure: k4543 
o|contracted procedure: k4553 
o|contracted procedure: k4557 
o|contracted procedure: k4525 
o|contracted procedure: k4580 
o|contracted procedure: k4590 
o|contracted procedure: k4594 
o|contracted procedure: k4708 
o|contracted procedure: k4711 
o|contracted procedure: k4717 
o|contracted procedure: k4727 
o|contracted procedure: k4733 
o|contracted procedure: k4744 
o|contracted procedure: k4740 
o|contracted procedure: k4750 
o|contracted procedure: k4759 
o|contracted procedure: k4766 
o|contracted procedure: k4772 
o|contracted procedure: k4794 
o|contracted procedure: k4797 
o|contracted procedure: k4803 
o|contracted procedure: k4810 
o|contracted procedure: k4817 
o|contracted procedure: k4823 
o|contracted procedure: k4826 
o|contracted procedure: k4859 
o|contracted procedure: k4884 
o|contracted procedure: k4888 
o|contracted procedure: k4892 
o|contracted procedure: k4898 
o|contracted procedure: k4905 
o|contracted procedure: k4911 
o|contracted procedure: k4918 
o|contracted procedure: k4927 
o|contracted procedure: k4949 
o|contracted procedure: k4956 
o|contracted procedure: k4962 
o|contracted procedure: k4965 
o|contracted procedure: k4981 
o|contracted procedure: k4985 
o|contracted procedure: k4991 
o|contracted procedure: k4998 
o|contracted procedure: k5004 
o|contracted procedure: k5017 
o|contracted procedure: k5023 
o|contracted procedure: k5036 
o|contracted procedure: k5042 
o|contracted procedure: k5059 
o|contracted procedure: k5055 
o|contracted procedure: k5063 
o|contracted procedure: k5069 
o|contracted procedure: k5075 
o|contracted procedure: k5088 
o|contracted procedure: k5109 
o|contracted procedure: k5115 
o|contracted procedure: k5128 
o|contracted procedure: k5149 
o|contracted procedure: k5155 
o|contracted procedure: k5168 
o|contracted procedure: k5189 
o|contracted procedure: k5202 
o|contracted procedure: k5208 
o|contracted procedure: k5227 
o|contracted procedure: k5231 
o|contracted procedure: k5235 
o|contracted procedure: k5241 
o|contracted procedure: k5260 
o|contracted procedure: k5268 
o|contracted procedure: k5264 
o|contracted procedure: k5272 
o|contracted procedure: k5278 
o|contracted procedure: k5297 
o|contracted procedure: k5301 
o|contracted procedure: k5307 
o|contracted procedure: k5326 
o|contracted procedure: k5330 
o|contracted procedure: k5336 
o|contracted procedure: k5339 
o|contracted procedure: k5359 
o|contracted procedure: k5362 
o|contracted procedure: k5404 
o|contracted procedure: k5379 
o|contracted procedure: k5389 
o|contracted procedure: k5393 
o|contracted procedure: k5397 
o|contracted procedure: k5401 
o|contracted procedure: k5413 
o|contracted procedure: k5426 
o|contracted procedure: k5432 
o|contracted procedure: k5439 
o|contracted procedure: k5445 
o|contracted procedure: k5455 
o|contracted procedure: k5459 
o|contracted procedure: k5465 
o|contracted procedure: k5468 
o|contracted procedure: k5471 
o|contracted procedure: k5474 
o|contracted procedure: k5498 
o|contracted procedure: k5513 
o|contracted procedure: k5516 
o|contracted procedure: k5519 
o|contracted procedure: k5522 
o|contracted procedure: k5538 
o|contracted procedure: k5558 
o|contracted procedure: k5561 
o|contracted procedure: k5564 
o|contracted procedure: k5567 
o|contracted procedure: k5583 
o|contracted procedure: k5604 
o|contracted procedure: k5618 
o|contracted procedure: k5627 
o|contracted procedure: k5630 
o|contracted procedure: k5633 
o|contracted procedure: k5637 
o|contracted procedure: k5640 
o|contracted procedure: k6139 
o|contracted procedure: k5643 
o|contracted procedure: k5646 
o|contracted procedure: k5668 
o|contracted procedure: k5684 
o|contracted procedure: k5713 
o|contracted procedure: k5727 
o|contracted procedure: k5773 
o|contracted procedure: k5748 
o|contracted procedure: k5758 
o|contracted procedure: k5762 
o|contracted procedure: k5766 
o|contracted procedure: k5770 
o|contracted procedure: k5810 
o|contracted procedure: k5785 
o|contracted procedure: k5795 
o|contracted procedure: k5799 
o|contracted procedure: k5803 
o|contracted procedure: k5807 
o|contracted procedure: k5865 
o|contracted procedure: k5886 
o|contracted procedure: k5905 
o|contracted procedure: k5908 
o|contracted procedure: k5911 
o|contracted procedure: k5977 
o|contracted procedure: k6055 
o|contracted procedure: k6061 
o|contracted procedure: k6067 
o|contracted procedure: k6087 
o|contracted procedure: k379914692 
o|contracted procedure: k6132 
o|contracted procedure: k6125 
o|contracted procedure: k6145 
o|contracted procedure: k6148 
o|contracted procedure: k6152 
o|contracted procedure: k6155 
o|contracted procedure: k6182 
o|contracted procedure: k6196 
o|contracted procedure: k6236 
o|contracted procedure: k6211 
o|contracted procedure: k6221 
o|contracted procedure: k6225 
o|contracted procedure: k6229 
o|contracted procedure: k6233 
o|contracted procedure: k6273 
o|contracted procedure: k6248 
o|contracted procedure: k6258 
o|contracted procedure: k6262 
o|contracted procedure: k6266 
o|contracted procedure: k6270 
o|contracted procedure: k6303 
o|contracted procedure: k6306 
o|contracted procedure: k6309 
o|contracted procedure: k6313 
o|contracted procedure: k6316 
o|contracted procedure: k6322 
o|contracted procedure: k379914721 
o|contracted procedure: k6325 
o|contracted procedure: k6328 
o|contracted procedure: k6360 
o|contracted procedure: k6372 
o|contracted procedure: k6384 
o|contracted procedure: k6387 
o|contracted procedure: k6402 
o|contracted procedure: k6435 
o|contracted procedure: k6442 
o|contracted procedure: k6448 
o|contracted procedure: k6451 
o|contracted procedure: k6470 
o|contracted procedure: k6476 
o|contracted procedure: k6489 
o|contracted procedure: k6495 
o|contracted procedure: k6508 
o|contracted procedure: k6514 
o|contracted procedure: k6521 
o|contracted procedure: k6531 
o|contracted procedure: k6543 
o|contracted procedure: k6553 
o|contracted procedure: k6557 
o|contracted procedure: k6563 
o|contracted procedure: k6574 
o|contracted procedure: k6578 
o|contracted procedure: k6584 
o|contracted procedure: k6587 
o|contracted procedure: k6600 
o|contracted procedure: k6604 
o|contracted procedure: k6618 
o|contracted procedure: k6621 
o|contracted procedure: k6634 
o|contracted procedure: k6648 
o|contracted procedure: k6651 
o|contracted procedure: k6670 
o|contracted procedure: k6678 
o|contracted procedure: k6688 
o|contracted procedure: k6704 
o|contracted procedure: k6708 
o|contracted procedure: k6728 
o|contracted procedure: k6749 
o|contracted procedure: k6753 
o|contracted procedure: k6757 
o|contracted procedure: k6761 
o|contracted procedure: k6767 
o|contracted procedure: k6792 
o|contracted procedure: k6796 
o|contracted procedure: k6800 
o|contracted procedure: k6906 
o|contracted procedure: k6921 
o|contracted procedure: k6924 
o|contracted procedure: k6933 
o|contracted procedure: k6938 
o|contracted procedure: k6960 
o|contracted procedure: k6969 
o|contracted procedure: k6989 
o|contracted procedure: k6995 
o|contracted procedure: k7007 
o|contracted procedure: k7034 
o|contracted procedure: k7086 
o|contracted procedure: k7106 
o|contracted procedure: k7116 
o|contracted procedure: k7120 
o|contracted procedure: k7126 
o|contracted procedure: k7135 
o|contracted procedure: k7146 
o|contracted procedure: k7166 
o|contracted procedure: k7169 
o|contracted procedure: k7172 
o|contracted procedure: k7180 
o|contracted procedure: k7188 
o|contracted procedure: k7215 
o|contracted procedure: k7226 
o|contracted procedure: k7229 
o|contracted procedure: k7235 
o|contracted procedure: k7256 
o|contracted procedure: k7262 
o|contracted procedure: k7286 
o|contracted procedure: k7314 
o|contracted procedure: k7330 
o|contracted procedure: k7326 
o|contracted procedure: k7334 
o|contracted procedure: k7345 
o|contracted procedure: k7338 
o|contracted procedure: k7349 
o|contracted procedure: k7352 
o|contracted procedure: k7365 
o|contracted procedure: k7375 
o|contracted procedure: k7379 
o|contracted procedure: k7388 
o|contracted procedure: k7391 
o|contracted procedure: k7394 
o|contracted procedure: k7402 
o|contracted procedure: k7410 
o|propagated global variable: g12651269 chicken.compiler.core#used-units 
o|contracted procedure: k7565 
o|contracted procedure: k7577 
o|contracted procedure: k7587 
o|contracted procedure: k7591 
o|contracted procedure: k7424 
o|contracted procedure: k7485 
o|contracted procedure: k7494 
o|contracted procedure: k7549 
o|contracted procedure: k7508 
o|contracted procedure: k7686 
o|contracted procedure: k7698 
o|contracted procedure: k7708 
o|contracted procedure: k7712 
o|contracted procedure: k7626 
o|contracted procedure: k7673 
o|contracted procedure: k7645 
o|contracted procedure: k7611 
o|contracted procedure: k770814885 
o|contracted procedure: k7727 
o|contracted procedure: k7741 
o|contracted procedure: k7787 
o|contracted procedure: k7793 
o|contracted procedure: k7799 
o|contracted procedure: k7805 
o|contracted procedure: k7817 
o|contracted procedure: k7838 
o|contracted procedure: k7845 
o|contracted procedure: k7849 
o|contracted procedure: k7858 
o|contracted procedure: k7870 
o|contracted procedure: k7877 
o|contracted procedure: k7885 
o|contracted procedure: k7881 
o|contracted procedure: k7894 
o|contracted procedure: k7897 
o|contracted procedure: k7900 
o|contracted procedure: k7908 
o|contracted procedure: k7916 
o|contracted procedure: k7932 
o|contracted procedure: k7955 
o|contracted procedure: k7961 
o|contracted procedure: k7964 
o|contracted procedure: k7979 
o|contracted procedure: k7988 
o|contracted procedure: k7996 
o|contracted procedure: k8002 
o|contracted procedure: k8009 
o|contracted procedure: k8027 
o|contracted procedure: k8034 
o|contracted procedure: k8193 
o|contracted procedure: k8073 
o|propagated global variable: r8194 ##sys#undefined-value 
o|contracted procedure: k8082 
o|contracted procedure: k8095 
o|contracted procedure: k8102 
o|contracted procedure: k8111 
o|contracted procedure: k8114 
o|contracted procedure: k8120 
o|contracted procedure: k8123 
o|contracted procedure: k8138 
o|contracted procedure: k8186 
o|contracted procedure: k8182 
o|contracted procedure: k8144 
o|contracted procedure: k8153 
o|contracted procedure: k8179 
o|contracted procedure: k8196 
o|contracted procedure: k8209 
o|contracted procedure: k8212 
o|contracted procedure: k8230 
o|contracted procedure: k8251 
o|contracted procedure: k8265 
o|contracted procedure: k8277 
o|contracted procedure: k8283 
o|contracted procedure: k8297 
o|contracted procedure: k8322 
o|contracted procedure: k8528 
o|contracted procedure: k8521 
o|contracted procedure: k8419 
o|contracted procedure: k8438 
o|contracted procedure: k8455 
o|contracted procedure: k8459 
o|contracted procedure: k8468 
o|contracted procedure: k8474 
o|contracted procedure: k8492 
o|contracted procedure: k8504 
o|contracted procedure: k8531 
o|contracted procedure: k8534 
o|contracted procedure: k8575 
o|contracted procedure: k8562 
o|contracted procedure: k8607 
o|contracted procedure: k8614 
o|contracted procedure: k8631 
o|contracted procedure: k8658 
o|contracted procedure: k8664 
o|contracted procedure: k8670 
o|contracted procedure: k8691 
o|contracted procedure: k8716 
o|contracted procedure: k8722 
o|contracted procedure: k8734 
o|contracted procedure: k8740 
o|contracted procedure: k8758 
o|contracted procedure: k8749 
o|contracted procedure: k8778 
o|contracted procedure: k8790 
o|contracted procedure: k8800 
o|contracted procedure: k8804 
o|contracted procedure: k8833 
o|contracted procedure: k8845 
o|contracted procedure: k8856 
o|contracted procedure: k8869 
o|contracted procedure: k8878 
o|contracted procedure: k8930 
o|contracted procedure: k8892 
o|contracted procedure: k8941 
o|contracted procedure: k8948 
o|contracted procedure: k8966 
o|contracted procedure: k8978 
o|contracted procedure: k8988 
o|contracted procedure: k8992 
o|contracted procedure: k9167 
o|contracted procedure: k9177 
o|contracted procedure: k9215 
o|contracted procedure: k9225 
o|contracted procedure: k9229 
o|contracted procedure: k9234 
o|contracted procedure: k9113 
o|contracted procedure: k9128 
o|contracted procedure: k9138 
o|contracted procedure: k9142 
o|contracted procedure: k9071 
o|contracted procedure: k9074 
o|contracted procedure: k9089 
o|contracted procedure: k9099 
o|contracted procedure: k9103 
o|contracted procedure: k9054 
o|contracted procedure: k9107 
o|contracted procedure: k9152 
o|contracted procedure: k9156 
o|contracted procedure: k9818 
o|contracted procedure: k9830 
o|contracted procedure: k9839 
o|contracted procedure: k9851 
o|contracted procedure: k9863 
o|contracted procedure: k9875 
o|contracted procedure: k9887 
o|contracted procedure: k9908 
o|contracted procedure: k9917 
o|contracted procedure: k9924 
o|contracted procedure: k9936 
o|contracted procedure: k9943 
o|contracted procedure: k9948 
o|contracted procedure: k9954 
o|contracted procedure: k9960 
o|contracted procedure: k9966 
o|contracted procedure: k9972 
o|contracted procedure: k9978 
o|contracted procedure: k9984 
o|contracted procedure: k10011 
o|contracted procedure: k10017 
o|contracted procedure: k10023 
o|contracted procedure: k10029 
o|contracted procedure: k10048 
o|contracted procedure: k10054 
o|contracted procedure: k10060 
o|contracted procedure: k10079 
o|contracted procedure: k10085 
o|contracted procedure: k10102 
o|contracted procedure: k10108 
o|contracted procedure: k10114 
o|contracted procedure: k10120 
o|contracted procedure: k10126 
o|contracted procedure: k10149 
o|contracted procedure: k10155 
o|contracted procedure: k10161 
o|contracted procedure: k10167 
o|contracted procedure: k10188 
o|contracted procedure: k10194 
o|contracted procedure: k10200 
o|contracted procedure: k10206 
o|contracted procedure: k10212 
o|contracted procedure: k10218 
o|contracted procedure: k10224 
o|contracted procedure: k10230 
o|contracted procedure: k10236 
o|contracted procedure: k10242 
o|contracted procedure: k10248 
o|contracted procedure: k10331 
o|contracted procedure: k10337 
o|contracted procedure: k10378 
o|contracted procedure: k10353 
o|contracted procedure: k10363 
o|contracted procedure: k10367 
o|contracted procedure: k10371 
o|contracted procedure: k10375 
o|contracted procedure: k10388 
o|contracted procedure: k10404 
o|contracted procedure: k10411 
o|contracted procedure: k10415 
o|contracted procedure: k10426 
o|contracted procedure: k10438 
o|contracted procedure: k10448 
o|contracted procedure: k10452 
o|propagated global variable: stubs1997 chicken.compiler.support#foreign-callback-stubs 
o|contracted procedure: k9477 
o|contracted procedure: k9561 
o|contracted procedure: k9564 
o|contracted procedure: k9630 
o|contracted procedure: k9654 
o|contracted procedure: k9644 
o|contracted procedure: k9676 
o|contracted procedure: k9680 
o|contracted procedure: k9684 
o|contracted procedure: k9688 
o|contracted procedure: k9692 
o|contracted procedure: k9696 
o|contracted procedure: k9699 
o|contracted procedure: k9705 
o|contracted procedure: k9723 
o|contracted procedure: k9735 
o|contracted procedure: k9752 
o|contracted procedure: k4444 
o|contracted procedure: k4435 
o|contracted procedure: k9772 
o|contracted procedure: k9784 
o|contracted procedure: k9794 
o|contracted procedure: k9798 
o|propagated global variable: stubs1886 chicken.compiler.core#foreign-lambda-stubs 
o|contracted procedure: k9391 
o|contracted procedure: k9403 
o|contracted procedure: k9413 
o|contracted procedure: k9417 
o|contracted procedure: k9371 
o|contracted procedure: k9374 
o|contracted procedure: k9377 
o|contracted procedure: k9384 
o|contracted procedure: k4651 
o|contracted procedure: k4655 
o|contracted procedure: k4666 
o|contracted procedure: k4662 
o|contracted procedure: k9243 
o|contracted procedure: k9256 
o|contracted procedure: k9268 
o|contracted procedure: k9274 
o|inlining procedure: k9277 
o|inlining procedure: k9277 
o|contracted procedure: k9324 
o|contracted procedure: k9434 
o|contracted procedure: k9446 
o|contracted procedure: k9456 
o|contracted procedure: k9460 
o|contracted procedure: k10470 
o|contracted procedure: k10491 
o|contracted procedure: k10507 
o|contracted procedure: k10520 
o|contracted procedure: k10524 
o|contracted procedure: k10547 
o|contracted procedure: k10556 
o|contracted procedure: k10559 
o|contracted procedure: k10568 
o|contracted procedure: k10571 
o|contracted procedure: k10580 
o|contracted procedure: k10583 
o|contracted procedure: k10592 
o|contracted procedure: k10595 
o|contracted procedure: k10604 
o|contracted procedure: k10616 
o|contracted procedure: k10625 
o|contracted procedure: k10634 
o|contracted procedure: k10637 
o|contracted procedure: k10646 
o|contracted procedure: k10655 
o|contracted procedure: k10664 
o|contracted procedure: k10673 
o|contracted procedure: k10682 
o|contracted procedure: k10691 
o|contracted procedure: k10700 
o|contracted procedure: k10709 
o|contracted procedure: k10712 
o|contracted procedure: k10721 
o|contracted procedure: k10733 
o|contracted procedure: k10736 
o|contracted procedure: k10742 
o|contracted procedure: k10754 
o|contracted procedure: k10757 
o|contracted procedure: k10766 
o|contracted procedure: k10769 
o|contracted procedure: k10778 
o|contracted procedure: k10781 
o|contracted procedure: k10790 
o|contracted procedure: k10793 
o|contracted procedure: k10802 
o|contracted procedure: k10805 
o|contracted procedure: k10814 
o|contracted procedure: k10817 
o|contracted procedure: k10826 
o|contracted procedure: k10829 
o|contracted procedure: k10838 
o|contracted procedure: k10841 
o|contracted procedure: k10850 
o|contracted procedure: k10853 
o|contracted procedure: k10862 
o|contracted procedure: k10865 
o|contracted procedure: k10874 
o|contracted procedure: k10886 
o|contracted procedure: k10898 
o|contracted procedure: k10916 
o|contracted procedure: k10925 
o|contracted procedure: k10934 
o|contracted procedure: k10948 
o|contracted procedure: k10965 
o|contracted procedure: k10994 
o|contracted procedure: k11002 
o|contracted procedure: k11005 
o|contracted procedure: k11017 
o|contracted procedure: k11020 
o|contracted procedure: k11023 
o|contracted procedure: k11031 
o|contracted procedure: k11039 
o|contracted procedure: k11046 
o|contracted procedure: k11063 
o|contracted procedure: k11080 
o|contracted procedure: k11097 
o|contracted procedure: k11114 
o|contracted procedure: k11131 
o|contracted procedure: k11148 
o|contracted procedure: k11157 
o|contracted procedure: k11160 
o|contracted procedure: k11235 
o|contracted procedure: k11166 
o|contracted procedure: k11181 
o|contracted procedure: k11195 
o|contracted procedure: k11207 
o|contracted procedure: k11213 
o|contracted procedure: k11221 
o|contracted procedure: k11229 
o|contracted procedure: k11189 
o|contracted procedure: k11244 
o|contracted procedure: k11251 
o|contracted procedure: k11256 
o|contracted procedure: k11263 
o|contracted procedure: k11268 
o|contracted procedure: k11272 
o|contracted procedure: k11278 
o|contracted procedure: k11285 
o|contracted procedure: k11290 
o|contracted procedure: k11297 
o|contracted procedure: k11302 
o|contracted procedure: k11309 
o|contracted procedure: k11314 
o|contracted procedure: k11321 
o|contracted procedure: k11326 
o|contracted procedure: k11333 
o|contracted procedure: k11338 
o|contracted procedure: k11345 
o|contracted procedure: k11350 
o|contracted procedure: k11354 
o|contracted procedure: k11363 
o|contracted procedure: k11371 
o|contracted procedure: k11377 
o|contracted procedure: k11394 
o|contracted procedure: k11400 
o|contracted procedure: k11406 
o|contracted procedure: k11495 
o|contracted procedure: k11501 
o|contracted procedure: k11525 
o|contracted procedure: k11531 
o|contracted procedure: k11580 
o|contracted procedure: k11636 
o|contracted procedure: k11642 
o|contracted procedure: k11645 
o|contracted procedure: k11651 
o|contracted procedure: k11660 
o|contracted procedure: k11666 
o|contracted procedure: k11672 
o|contracted procedure: k11678 
o|contracted procedure: k11687 
o|contracted procedure: k11690 
o|contracted procedure: k11696 
o|contracted procedure: k11702 
o|contracted procedure: k11708 
o|contracted procedure: k11714 
o|contracted procedure: k11720 
o|contracted procedure: k11726 
o|contracted procedure: k11729 
o|contracted procedure: k11735 
o|contracted procedure: k11741 
o|contracted procedure: k11747 
o|contracted procedure: k11753 
o|contracted procedure: k11759 
o|contracted procedure: k11765 
o|contracted procedure: k11771 
o|contracted procedure: k11777 
o|contracted procedure: k11783 
o|contracted procedure: k11789 
o|contracted procedure: k11795 
o|contracted procedure: k11801 
o|contracted procedure: k11807 
o|contracted procedure: k11813 
o|contracted procedure: k11819 
o|contracted procedure: k11825 
o|contracted procedure: k11831 
o|contracted procedure: k11837 
o|contracted procedure: k11843 
o|contracted procedure: k11849 
o|contracted procedure: k11855 
o|contracted procedure: k11861 
o|contracted procedure: k11867 
o|contracted procedure: k11873 
o|contracted procedure: k11879 
o|contracted procedure: k11885 
o|contracted procedure: k11891 
o|contracted procedure: k11897 
o|contracted procedure: k11903 
o|contracted procedure: k11912 
o|contracted procedure: k11921 
o|contracted procedure: k11936 
o|contracted procedure: k12070 
o|contracted procedure: k11945 
o|contracted procedure: k11948 
o|contracted procedure: k11954 
o|contracted procedure: k11960 
o|contracted procedure: k11966 
o|contracted procedure: k11972 
o|contracted procedure: k11978 
o|contracted procedure: k11984 
o|contracted procedure: k11990 
o|contracted procedure: k11996 
o|contracted procedure: k12003 
o|contracted procedure: k12009 
o|contracted procedure: k12015 
o|contracted procedure: k12026 
o|contracted procedure: k12032 
o|contracted procedure: k12039 
o|contracted procedure: k12079 
o|contracted procedure: k12087 
o|contracted procedure: k12093 
o|contracted procedure: k12099 
o|contracted procedure: k12118 
o|contracted procedure: k12124 
o|contracted procedure: k12221 
o|contracted procedure: k12242 
o|contracted procedure: k12248 
o|contracted procedure: k12254 
o|contracted procedure: k12260 
o|contracted procedure: k12301 
o|contracted procedure: k12304 
o|contracted procedure: k12310 
o|contracted procedure: k12313 
o|contracted procedure: k12319 
o|contracted procedure: k12322 
o|contracted procedure: k12328 
o|contracted procedure: k12334 
o|contracted procedure: k12340 
o|contracted procedure: k12346 
o|contracted procedure: k12352 
o|contracted procedure: k12355 
o|contracted procedure: k12379 
o|contracted procedure: k12403 
o|contracted procedure: k12430 
o|contracted procedure: k12454 
o|contracted procedure: k12457 
o|contracted procedure: k12481 
o|contracted procedure: k12484 
o|contracted procedure: k12508 
o|contracted procedure: k12511 
o|contracted procedure: k12535 
o|contracted procedure: k12538 
o|contracted procedure: k12562 
o|contracted procedure: k12586 
o|contracted procedure: k12610 
o|contracted procedure: k12616 
o|contracted procedure: k12619 
o|contracted procedure: k12634 
o|contracted procedure: k12894 
o|contracted procedure: k12643 
o|contracted procedure: k12646 
o|contracted procedure: k12652 
o|contracted procedure: k12655 
o|contracted procedure: k12679 
o|contracted procedure: k12703 
o|contracted procedure: k12727 
o|contracted procedure: k12751 
o|contracted procedure: k12775 
o|contracted procedure: k12782 
o|contracted procedure: k12788 
o|contracted procedure: k12791 
o|contracted procedure: k12815 
o|contracted procedure: k12839 
o|contracted procedure: k12903 
o|contracted procedure: k12952 
o|contracted procedure: k12958 
o|contracted procedure: k12964 
o|contracted procedure: k12970 
o|contracted procedure: k12976 
o|contracted procedure: k12982 
o|contracted procedure: k12988 
o|contracted procedure: k12994 
o|contracted procedure: k13000 
o|contracted procedure: k13006 
o|contracted procedure: k13134 
o|contracted procedure: k13092 
o|contracted procedure: k13130 
o|contracted procedure: k13126 
o|contracted procedure: k13102 
o|contracted procedure: k13122 
o|contracted procedure: k13118 
o|contracted procedure: k13106 
o|contracted procedure: k13114 
o|contracted procedure: k13110 
o|contracted procedure: k13144 
o|contracted procedure: k13154 
o|contracted procedure: k1314414947 
o|contracted procedure: k13160 
o|contracted procedure: k1314414951 
o|contracted procedure: k13166 
o|contracted procedure: k13177 
o|contracted procedure: k13183 
o|contracted procedure: k1314414955 
o|contracted procedure: k13189 
o|contracted procedure: k1314414959 
o|contracted procedure: k13414 
o|contracted procedure: k13195 
o|propagated global variable: r13415 ##sys#undefined-value 
o|contracted procedure: k1314414963 
o|contracted procedure: k13253 
o|contracted procedure: k13249 
o|contracted procedure: k13213 
o|contracted procedure: k13245 
o|contracted procedure: k13241 
o|contracted procedure: k13217 
o|contracted procedure: k13237 
o|contracted procedure: k13233 
o|contracted procedure: k13221 
o|contracted procedure: k13229 
o|contracted procedure: k13225 
o|contracted procedure: k13209 
o|contracted procedure: k13271 
o|contracted procedure: k13280 
o|contracted procedure: k13297 
o|contracted procedure: k13300 
o|contracted procedure: k13318 
o|contracted procedure: k13324 
o|contracted procedure: k13353 
o|contracted procedure: k13341 
o|contracted procedure: k13393 
o|contracted procedure: k13371 
o|contracted procedure: k3683 
o|contracted procedure: k3694 
o|contracted procedure: k13389 
o|contracted procedure: k13403 
o|simplifications: ((if . 13) (##core#call . 12) (let . 264)) 
o|  call simplifications:
o|    scheme#+	12
o|removed binding forms: 812 
o|contracted procedure: k5655 
o|contracted procedure: k8156 
o|contracted procedure: k8233 
o|contracted procedure: k9277 
o|contracted procedure: k10941 
o|contracted procedure: k10958 
o|contracted procedure: k10975 
o|contracted procedure: k11052 
o|contracted procedure: k11069 
o|contracted procedure: k11086 
o|contracted procedure: k11103 
o|contracted procedure: k11120 
o|contracted procedure: k11137 
o|contracted procedure: k11154 
o|removed binding forms: 14 
o|customizable procedures: (k13201 loop285 encode-size2823 k12406 err2513 g27072708 k11654 k11681 k11906 k11915 err2435 k10607 k10724 k10745 k10877 k10889 err2235 k11210 map-loop24082426 map-loop23602385 g23472348 str2236 loop2224 for-each-loop18671880 k9287 loop1814 header692 declarations694 for-each-loop18431857 g18911898 for-each-loop18901991 doloop19331934 k9666 for-each-loop19201959 prototypes695 g20022009 for-each-loop20012210 loop2171 chicken.compiler.c-backend#generate-foreign-callback-header for-each-loop21782192 k9833 k9842 k9854 k9866 k9878 k9890 k9927 g21372138 compute-size2018 trampolines696 for-each-loop17521763 for-each-loop17391772 procedures703 g17851792 for-each-loop17841798 g15201527 for-each-loop15191703 k8319 chicken.compiler.c-backend#cleanup k8385 doloop15771578 k8808 doloop15821583 for-each-loop15901601 k8710 k8652 g16211622 foldl16141618 literal-frame697 doloop16611662 doloop16691670 expression691 doloop15021503 string-like-substring702 k8058 chicken.compiler.c-backend#encode-literal gen-string-constant701 va15335 va15333 loop1467 map-loop14371454 foldl14311461 va15325 literal-size699 va15323 gen-lit700 doloop14021403 k7636 k7639 doloop13731374 chicken.compiler.c-backend#make-argument-list for-each-loop13631396 k7434 chicken.compiler.c-backend#make-variable-list for-each-loop13081352 map-loop12531270 for-each-loop12391277 doloop12871289 doloop12881293 doloop12471282 map-loop11761201 chicken.compiler.c-backend#gen-list for-each-loop12111222 chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes k6941 k6998 doloop11521162 loop1132 doloop11101111 chicken.compiler.c-backend#foreign-argument-conversion chicken.compiler.c-backend#foreign-result-conversion va15293 g10111030 for-each-loop10101037 for-each-loop10211050 k5652 find-lambda690 k5658 k5899 k6033 expr-args712 va15287 g894913 for-each-loop893920 for-each-loop904933 push-args713 chicken.compiler.c-backend#list-tabulate g806814 for-each-loop805821 k5158 k5118 k5078 loop744 expr711 for-each-loop648659 for-each-loop628639 loop503) 
o|calls to known targets: 830 
o|identified direct recursive calls: f_7865 1 
o|unused rest argument: _56314811 f14812 
o|unused rest argument: _563 f_4442 
o|identified direct recursive calls: f_3678 1 
o|fast box initializations: 66 
o|fast global references: 405 
o|fast global assignments: 14 
o|dropping unused closure argument: f_10456 
o|dropping unused closure argument: f_11626 
o|dropping unused closure argument: f_12291 
o|dropping unused closure argument: f_13078 
o|dropping unused closure argument: f_13087 
o|dropping unused closure argument: f_4250 
o|dropping unused closure argument: f_4561 
o|dropping unused closure argument: f_8281 
o|dropping unused closure argument: f_9254 
o|dropping unused closure argument: f_9330 
o|dropping unused closure argument: f_9347 
o|dropping unused closure argument: f_9421 
*/
/* end of file */
