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

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

static C_word lf[914];
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 stub2948(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 stub2944(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(f15396)
static void C_ccall f15396(C_word c,C_word *av) C_noret;
C_noret_decl(f15401)
static void C_ccall f15401(C_word c,C_word *av) C_noret;
C_noret_decl(f15406)
static void C_ccall f15406(C_word c,C_word *av) C_noret;
C_noret_decl(f15414)
static void C_ccall f15414(C_word c,C_word *av) C_noret;
C_noret_decl(f15419)
static void C_ccall f15419(C_word c,C_word *av) C_noret;
C_noret_decl(f15424)
static void C_ccall f15424(C_word c,C_word *av) C_noret;
C_noret_decl(f15437)
static void C_ccall f15437(C_word c,C_word *av) C_noret;
C_noret_decl(f15441)
static void C_ccall f15441(C_word c,C_word *av) C_noret;
C_noret_decl(f15448)
static void C_ccall f15448(C_word c,C_word *av) C_noret;
C_noret_decl(f15453)
static void C_ccall f15453(C_word c,C_word *av) C_noret;
C_noret_decl(f15524)
static void C_ccall f15524(C_word c,C_word *av) C_noret;
C_noret_decl(f15531)
static void C_ccall f15531(C_word c,C_word *av) C_noret;
C_noret_decl(f15552)
static void C_ccall f15552(C_word c,C_word *av) C_noret;
C_noret_decl(f_10006)
static void f_10006(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10018)
static void f_10018(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10030)
static void f_10030(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10042)
static void f_10042(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10048)
static void C_ccall f_10048(C_word c,C_word *av) C_noret;
C_noret_decl(f_10052)
static void f_10052(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10079)
static void f_10079(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10442)
static void C_ccall f_10442(C_word c,C_word *av) C_noret;
C_noret_decl(f_10445)
static void C_ccall f_10445(C_word c,C_word *av) C_noret;
C_noret_decl(f_10448)
static void C_ccall f_10448(C_word c,C_word *av) C_noret;
C_noret_decl(f_10451)
static void C_ccall f_10451(C_word c,C_word *av) C_noret;
C_noret_decl(f_10454)
static void C_ccall f_10454(C_word c,C_word *av) C_noret;
C_noret_decl(f_10457)
static void C_ccall f_10457(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_10472)
static void C_ccall f_10472(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_10484)
static void C_ccall f_10484(C_word c,C_word *av) C_noret;
C_noret_decl(f_10503)
static void C_ccall f_10503(C_word c,C_word *av) C_noret;
C_noret_decl(f_10505)
static void f_10505(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10515)
static void C_ccall f_10515(C_word c,C_word *av) C_noret;
C_noret_decl(f_10553)
static void C_ccall f_10553(C_word c,C_word *av) C_noret;
C_noret_decl(f_10555)
static void f_10555(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_10577)
static void C_ccall f_10577(C_word c,C_word *av) C_noret;
C_noret_decl(f_10589)
static void f_10589(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10599)
static void C_ccall f_10599(C_word c,C_word *av) C_noret;
C_noret_decl(f_10612)
static void f_10612(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10616)
static void C_ccall f_10616(C_word c,C_word *av) C_noret;
C_noret_decl(f_10619)
static void C_ccall f_10619(C_word c,C_word *av) C_noret;
C_noret_decl(f_10622)
static void C_ccall f_10622(C_word c,C_word *av) C_noret;
C_noret_decl(f_10625)
static void C_ccall f_10625(C_word c,C_word *av) C_noret;
C_noret_decl(f_10631)
static void C_ccall f_10631(C_word c,C_word *av) C_noret;
C_noret_decl(f_10634)
static void C_ccall f_10634(C_word c,C_word *av) C_noret;
C_noret_decl(f_10637)
static void C_ccall f_10637(C_word c,C_word *av) C_noret;
C_noret_decl(f_10642)
static void f_10642(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10652)
static void C_ccall f_10652(C_word c,C_word *av) C_noret;
C_noret_decl(f_10655)
static void C_ccall f_10655(C_word c,C_word *av) C_noret;
C_noret_decl(f_10674)
static void C_ccall f_10674(C_word c,C_word *av) C_noret;
C_noret_decl(f_10686)
static void C_ccall f_10686(C_word c,C_word *av) C_noret;
C_noret_decl(f_10688)
static void C_ccall f_10688(C_word c,C_word *av) C_noret;
C_noret_decl(f_10690)
static void f_10690(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10695)
static void f_10695(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10765)
static void f_10765(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10894)
static void f_10894(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10915)
static void f_10915(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11059)
static void f_11059(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11071)
static void f_11071(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11086)
static void C_ccall f_11086(C_word c,C_word *av) C_noret;
C_noret_decl(f_11090)
static void f_11090(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11134)
static void C_ccall f_11134(C_word c,C_word *av) C_noret;
C_noret_decl(f_11151)
static void C_ccall f_11151(C_word c,C_word *av) C_noret;
C_noret_decl(f_11164)
static void C_ccall f_11164(C_word c,C_word *av) C_noret;
C_noret_decl(f_11168)
static void C_ccall f_11168(C_word c,C_word *av) C_noret;
C_noret_decl(f_11172)
static void C_ccall f_11172(C_word c,C_word *av) C_noret;
C_noret_decl(f_11190)
static void C_ccall f_11190(C_word c,C_word *av) C_noret;
C_noret_decl(f_11192)
static void f_11192(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11217)
static void C_ccall f_11217(C_word c,C_word *av) C_noret;
C_noret_decl(f_11241)
static void C_ccall f_11241(C_word c,C_word *av) C_noret;
C_noret_decl(f_11264)
static void C_ccall f_11264(C_word c,C_word *av) C_noret;
C_noret_decl(f_11268)
static void C_ccall f_11268(C_word c,C_word *av) C_noret;
C_noret_decl(f_11275)
static void C_ccall f_11275(C_word c,C_word *av) C_noret;
C_noret_decl(f_11302)
static void C_ccall f_11302(C_word c,C_word *av) C_noret;
C_noret_decl(f_11306)
static void C_ccall f_11306(C_word c,C_word *av) C_noret;
C_noret_decl(f_11313)
static void C_ccall f_11313(C_word c,C_word *av) C_noret;
C_noret_decl(f_11334)
static void C_ccall f_11334(C_word c,C_word *av) C_noret;
C_noret_decl(f_11351)
static void C_ccall f_11351(C_word c,C_word *av) C_noret;
C_noret_decl(f_11368)
static void C_ccall f_11368(C_word c,C_word *av) C_noret;
C_noret_decl(f_11397)
static void C_ccall f_11397(C_word c,C_word *av) C_noret;
C_noret_decl(f_11401)
static void C_ccall f_11401(C_word c,C_word *av) C_noret;
C_noret_decl(f_11422)
static void C_ccall f_11422(C_word c,C_word *av) C_noret;
C_noret_decl(f_11424)
static void f_11424(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11434)
static void f_11434(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11449)
static void C_ccall f_11449(C_word c,C_word *av) C_noret;
C_noret_decl(f_11862)
static void f_11862(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11864)
static void f_11864(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11892)
static void f_11892(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11919)
static void f_11919(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12159)
static void f_12159(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12168)
static void f_12168(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12177)
static void C_ccall f_12177(C_word c,C_word *av) C_noret;
C_noret_decl(f_12280)
static void C_ccall f_12280(C_word c,C_word *av) C_noret;
C_noret_decl(f_12286)
static void C_ccall f_12286(C_word c,C_word *av) C_noret;
C_noret_decl(f_12289)
static void C_ccall f_12289(C_word c,C_word *av) C_noret;
C_noret_decl(f_12292)
static void C_ccall f_12292(C_word c,C_word *av) C_noret;
C_noret_decl(f_12299)
static void C_ccall f_12299(C_word c,C_word *av) C_noret;
C_noret_decl(f_12302)
static void C_ccall f_12302(C_word c,C_word *av) C_noret;
C_noret_decl(f_12308)
static void C_ccall f_12308(C_word c,C_word *av) C_noret;
C_noret_decl(f_12311)
static void C_ccall f_12311(C_word c,C_word *av) C_noret;
C_noret_decl(f_12314)
static void C_ccall f_12314(C_word c,C_word *av) C_noret;
C_noret_decl(f_12317)
static void C_ccall f_12317(C_word c,C_word *av) C_noret;
C_noret_decl(f_12320)
static void C_ccall f_12320(C_word c,C_word *av) C_noret;
C_noret_decl(f_12346)
static void C_ccall f_12346(C_word c,C_word *av) C_noret;
C_noret_decl(f_12637)
static void f_12637(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12639)
static void f_12639(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12706)
static void C_ccall f_12706(C_word c,C_word *av) C_noret;
C_noret_decl(f_12712)
static void C_ccall f_12712(C_word c,C_word *av) C_noret;
C_noret_decl(f_12715)
static void C_ccall f_12715(C_word c,C_word *av) C_noret;
C_noret_decl(f_12718)
static void C_ccall f_12718(C_word c,C_word *av) C_noret;
C_noret_decl(f_12733)
static void C_ccall f_12733(C_word c,C_word *av) C_noret;
C_noret_decl(f_12739)
static void C_ccall f_12739(C_word c,C_word *av) C_noret;
C_noret_decl(f_12742)
static void C_ccall f_12742(C_word c,C_word *av) C_noret;
C_noret_decl(f_12745)
static void C_ccall f_12745(C_word c,C_word *av) C_noret;
C_noret_decl(f_12757)
static void C_ccall f_12757(C_word c,C_word *av) C_noret;
C_noret_decl(f_12763)
static void C_ccall f_12763(C_word c,C_word *av) C_noret;
C_noret_decl(f_12766)
static void C_ccall f_12766(C_word c,C_word *av) C_noret;
C_noret_decl(f_12769)
static void C_ccall f_12769(C_word c,C_word *av) C_noret;
C_noret_decl(f_12781)
static void f_12781(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12784)
static void C_ccall f_12784(C_word c,C_word *av) C_noret;
C_noret_decl(f_12790)
static void C_ccall f_12790(C_word c,C_word *av) C_noret;
C_noret_decl(f_12793)
static void C_ccall f_12793(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_12808)
static void C_ccall f_12808(C_word c,C_word *av) C_noret;
C_noret_decl(f_12814)
static void C_ccall f_12814(C_word c,C_word *av) C_noret;
C_noret_decl(f_12817)
static void C_ccall f_12817(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_12835)
static void C_ccall f_12835(C_word c,C_word *av) C_noret;
C_noret_decl(f_12841)
static void C_ccall f_12841(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_12847)
static void C_ccall f_12847(C_word c,C_word *av) C_noret;
C_noret_decl(f_12862)
static void C_ccall f_12862(C_word c,C_word *av) C_noret;
C_noret_decl(f_12868)
static void C_ccall f_12868(C_word c,C_word *av) C_noret;
C_noret_decl(f_12871)
static void C_ccall f_12871(C_word c,C_word *av) C_noret;
C_noret_decl(f_12874)
static void C_ccall f_12874(C_word c,C_word *av) C_noret;
C_noret_decl(f_12889)
static void C_ccall f_12889(C_word c,C_word *av) C_noret;
C_noret_decl(f_12895)
static void C_ccall f_12895(C_word c,C_word *av) C_noret;
C_noret_decl(f_12898)
static void C_ccall f_12898(C_word c,C_word *av) C_noret;
C_noret_decl(f_12901)
static void C_ccall f_12901(C_word c,C_word *av) C_noret;
C_noret_decl(f_12916)
static void C_ccall f_12916(C_word c,C_word *av) C_noret;
C_noret_decl(f_12922)
static void C_ccall f_12922(C_word c,C_word *av) C_noret;
C_noret_decl(f_12925)
static void C_ccall f_12925(C_word c,C_word *av) C_noret;
C_noret_decl(f_12928)
static void C_ccall f_12928(C_word c,C_word *av) C_noret;
C_noret_decl(f_12940)
static void C_ccall f_12940(C_word c,C_word *av) C_noret;
C_noret_decl(f_12946)
static void C_ccall f_12946(C_word c,C_word *av) C_noret;
C_noret_decl(f_12949)
static void C_ccall f_12949(C_word c,C_word *av) C_noret;
C_noret_decl(f_12952)
static void C_ccall f_12952(C_word c,C_word *av) C_noret;
C_noret_decl(f_12964)
static void C_ccall f_12964(C_word c,C_word *av) C_noret;
C_noret_decl(f_12970)
static void C_ccall f_12970(C_word c,C_word *av) C_noret;
C_noret_decl(f_12973)
static void C_ccall f_12973(C_word c,C_word *av) C_noret;
C_noret_decl(f_12976)
static void C_ccall f_12976(C_word c,C_word *av) C_noret;
C_noret_decl(f_12997)
static void C_ccall f_12997(C_word c,C_word *av) C_noret;
C_noret_decl(f_13001)
static void f_13001(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13033)
static void C_ccall f_13033(C_word c,C_word *av) C_noret;
C_noret_decl(f_13039)
static void C_ccall f_13039(C_word c,C_word *av) C_noret;
C_noret_decl(f_13042)
static void C_ccall f_13042(C_word c,C_word *av) C_noret;
C_noret_decl(f_13045)
static void C_ccall f_13045(C_word c,C_word *av) C_noret;
C_noret_decl(f_13057)
static void C_ccall f_13057(C_word c,C_word *av) C_noret;
C_noret_decl(f_13063)
static void C_ccall f_13063(C_word c,C_word *av) C_noret;
C_noret_decl(f_13066)
static void C_ccall f_13066(C_word c,C_word *av) C_noret;
C_noret_decl(f_13069)
static void C_ccall f_13069(C_word c,C_word *av) C_noret;
C_noret_decl(f_13090)
static void C_ccall f_13090(C_word c,C_word *av) C_noret;
C_noret_decl(f_13096)
static void C_ccall f_13096(C_word c,C_word *av) C_noret;
C_noret_decl(f_13099)
static void C_ccall f_13099(C_word c,C_word *av) C_noret;
C_noret_decl(f_13102)
static void C_ccall f_13102(C_word c,C_word *av) C_noret;
C_noret_decl(f_13105)
static void C_ccall f_13105(C_word c,C_word *av) C_noret;
C_noret_decl(f_13108)
static void C_ccall f_13108(C_word c,C_word *av) C_noret;
C_noret_decl(f_13115)
static void C_ccall f_13115(C_word c,C_word *av) C_noret;
C_noret_decl(f_13118)
static void C_ccall f_13118(C_word c,C_word *av) C_noret;
C_noret_decl(f_13124)
static void C_ccall f_13124(C_word c,C_word *av) C_noret;
C_noret_decl(f_13127)
static void C_ccall f_13127(C_word c,C_word *av) C_noret;
C_noret_decl(f_13130)
static void C_ccall f_13130(C_word c,C_word *av) C_noret;
C_noret_decl(f_13133)
static void C_ccall f_13133(C_word c,C_word *av) C_noret;
C_noret_decl(f_13136)
static void C_ccall f_13136(C_word c,C_word *av) C_noret;
C_noret_decl(f_13139)
static void C_ccall f_13139(C_word c,C_word *av) C_noret;
C_noret_decl(f_13142)
static void C_ccall f_13142(C_word c,C_word *av) C_noret;
C_noret_decl(f_13164)
static void C_ccall f_13164(C_word c,C_word *av) C_noret;
C_noret_decl(f_13170)
static void C_ccall f_13170(C_word c,C_word *av) C_noret;
C_noret_decl(f_13173)
static void C_ccall f_13173(C_word c,C_word *av) C_noret;
C_noret_decl(f_13176)
static void C_ccall f_13176(C_word c,C_word *av) C_noret;
C_noret_decl(f_13188)
static void C_ccall f_13188(C_word c,C_word *av) C_noret;
C_noret_decl(f_13194)
static void C_ccall f_13194(C_word c,C_word *av) C_noret;
C_noret_decl(f_13197)
static void C_ccall f_13197(C_word c,C_word *av) C_noret;
C_noret_decl(f_13200)
static void C_ccall f_13200(C_word c,C_word *av) C_noret;
C_noret_decl(f_13212)
static void C_ccall f_13212(C_word c,C_word *av) C_noret;
C_noret_decl(f_13218)
static void C_ccall f_13218(C_word c,C_word *av) C_noret;
C_noret_decl(f_13221)
static void C_ccall f_13221(C_word c,C_word *av) C_noret;
C_noret_decl(f_13224)
static void C_ccall f_13224(C_word c,C_word *av) C_noret;
C_noret_decl(f_13252)
static void C_ccall f_13252(C_word c,C_word *av) C_noret;
C_noret_decl(f_13258)
static void C_ccall f_13258(C_word c,C_word *av) C_noret;
C_noret_decl(f_13261)
static void C_ccall f_13261(C_word c,C_word *av) C_noret;
C_noret_decl(f_13264)
static void C_ccall f_13264(C_word c,C_word *av) C_noret;
C_noret_decl(f_13276)
static void C_ccall f_13276(C_word c,C_word *av) C_noret;
C_noret_decl(f_13282)
static void C_ccall f_13282(C_word c,C_word *av) C_noret;
C_noret_decl(f_13285)
static void C_ccall f_13285(C_word c,C_word *av) C_noret;
C_noret_decl(f_13288)
static void C_ccall f_13288(C_word c,C_word *av) C_noret;
C_noret_decl(f_13300)
static void C_ccall f_13300(C_word c,C_word *av) C_noret;
C_noret_decl(f_13306)
static void C_ccall f_13306(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_13312)
static void C_ccall f_13312(C_word c,C_word *av) C_noret;
C_noret_decl(f_13548)
static void f_13548(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13556)
static void f_13556(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13560)
static void C_ccall f_13560(C_word c,C_word *av) C_noret;
C_noret_decl(f_13573)
static void f_13573(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13582)
static void f_13582(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13599)
static void C_ccall f_13599(C_word c,C_word *av) C_noret;
C_noret_decl(f_13603)
static void C_ccall f_13603(C_word c,C_word *av) C_noret;
C_noret_decl(f_13607)
static void C_ccall f_13607(C_word c,C_word *av) C_noret;
C_noret_decl(f_13644)
static void C_ccall f_13644(C_word c,C_word *av) C_noret;
C_noret_decl(f_13666)
static void C_ccall f_13666(C_word c,C_word *av) C_noret;
C_noret_decl(f_13694)
static void f_13694(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13701)
static void C_ccall f_13701(C_word c,C_word *av) C_noret;
C_noret_decl(f_13705)
static void C_ccall f_13705(C_word c,C_word *av) C_noret;
C_noret_decl(f_13709)
static void C_ccall f_13709(C_word c,C_word *av) C_noret;
C_noret_decl(f_13713)
static void C_ccall f_13713(C_word c,C_word *av) C_noret;
C_noret_decl(f_13747)
static void C_ccall f_13747(C_word c,C_word *av) C_noret;
C_noret_decl(f_13754)
static void C_ccall f_13754(C_word c,C_word *av) C_noret;
C_noret_decl(f_13781)
static void C_ccall f_13781(C_word c,C_word *av) C_noret;
C_noret_decl(f_13788)
static void C_ccall f_13788(C_word c,C_word *av) C_noret;
C_noret_decl(f_13791)
static void C_ccall f_13791(C_word c,C_word *av) C_noret;
C_noret_decl(f_13801)
static void C_ccall f_13801(C_word c,C_word *av) C_noret;
C_noret_decl(f_13805)
static void C_ccall f_13805(C_word c,C_word *av) C_noret;
C_noret_decl(f_13822)
static void C_ccall f_13822(C_word c,C_word *av) C_noret;
C_noret_decl(f_13832)
static void C_ccall f_13832(C_word c,C_word *av) C_noret;
C_noret_decl(f_13836)
static void C_ccall f_13836(C_word c,C_word *av) C_noret;
C_noret_decl(f_13857)
static void C_ccall f_13857(C_word c,C_word *av) C_noret;
C_noret_decl(f_13861)
static void C_ccall f_13861(C_word c,C_word *av) C_noret;
C_noret_decl(f_13865)
static void C_ccall f_13865(C_word c,C_word *av) C_noret;
C_noret_decl(f_13891)
static void C_ccall f_13891(C_word c,C_word *av) C_noret;
C_noret_decl(f_13895)
static void C_ccall f_13895(C_word c,C_word *av) C_noret;
C_noret_decl(f_13899)
static void C_ccall f_13899(C_word c,C_word *av) C_noret;
C_noret_decl(f_13926)
static void C_ccall f_13926(C_word c,C_word *av) C_noret;
C_noret_decl(f_13930)
static void C_ccall f_13930(C_word c,C_word *av) C_noret;
C_noret_decl(f_13934)
static void C_ccall f_13934(C_word c,C_word *av) C_noret;
C_noret_decl(f_13938)
static void C_ccall f_13938(C_word c,C_word *av) C_noret;
C_noret_decl(f_13940)
static void C_ccall f_13940(C_word c,C_word *av) C_noret;
C_noret_decl(f_13962)
static void C_ccall f_13962(C_word c,C_word *av) C_noret;
C_noret_decl(f_13968)
static void f_13968(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13972)
static void C_ccall f_13972(C_word c,C_word *av) C_noret;
C_noret_decl(f_13980)
static void f_13980(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13993)
static void C_ccall f_13993(C_word c,C_word *av) C_noret;
C_noret_decl(f_14004)
static void C_ccall f_14004(C_word c,C_word *av) C_noret;
C_noret_decl(f_14014)
static void f_14014(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14026)
static void C_ccall f_14026(C_word c,C_word *av) C_noret;
C_noret_decl(f_14030)
static void C_ccall f_14030(C_word c,C_word *av) C_noret;
C_noret_decl(f_14032)
static void f_14032(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14054)
static void f_14054(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14061)
static void f_14061(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14065)
static void C_ccall f_14065(C_word c,C_word *av) C_noret;
C_noret_decl(f_14069)
static void C_ccall f_14069(C_word c,C_word *av) C_noret;
C_noret_decl(f_14075)
static void C_ccall f_14075(C_word c,C_word *av) C_noret;
C_noret_decl(f_14093)
static void C_ccall f_14093(C_word c,C_word *av) C_noret;
C_noret_decl(f_14097)
static void C_ccall f_14097(C_word c,C_word *av) C_noret;
C_noret_decl(f_3386)
static void C_ccall f_3386(C_word c,C_word *av) C_noret;
C_noret_decl(f_3389)
static void C_ccall f_3389(C_word c,C_word *av) C_noret;
C_noret_decl(f_3392)
static void C_ccall f_3392(C_word c,C_word *av) C_noret;
C_noret_decl(f_3395)
static void C_ccall f_3395(C_word c,C_word *av) C_noret;
C_noret_decl(f_3398)
static void C_ccall f_3398(C_word c,C_word *av) C_noret;
C_noret_decl(f_3401)
static void C_ccall f_3401(C_word c,C_word *av) C_noret;
C_noret_decl(f_3404)
static void C_ccall f_3404(C_word c,C_word *av) C_noret;
C_noret_decl(f_3407)
static void C_ccall f_3407(C_word c,C_word *av) C_noret;
C_noret_decl(f_3848)
static void f_3848(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_3862)
static void C_ccall f_3862(C_word c,C_word *av) C_noret;
C_noret_decl(f_4420)
static void f_4420(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4426)
static void f_4426(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4440)
static void C_ccall f_4440(C_word c,C_word *av) C_noret;
C_noret_decl(f_4444)
static void C_ccall f_4444(C_word c,C_word *av) C_noret;
C_noret_decl(f_4600)
static void C_ccall f_4600(C_word c,C_word *av) C_noret;
C_noret_decl(f_4612)
static void C_ccall f_4612(C_word c,C_word *av) C_noret;
C_noret_decl(f_4688)
static void C_ccall f_4688(C_word c,C_word *av) C_noret;
C_noret_decl(f_4708)
static void f_4708(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4718)
static void C_ccall f_4718(C_word c,C_word *av) C_noret;
C_noret_decl(f_4731)
static void f_4731(C_word t0,C_word t1) C_noret;
C_noret_decl(f_4740)
static void C_ccall f_4740(C_word c,C_word *av) C_noret;
C_noret_decl(f_4745)
static void f_4745(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4755)
static void C_ccall f_4755(C_word c,C_word *av) C_noret;
C_noret_decl(f_4796)
static void C_ccall f_4796(C_word c,C_word *av) C_noret;
C_noret_decl(f_4802)
static void C_ccall f_4802(C_word c,C_word *av) C_noret;
C_noret_decl(f_4807)
static void C_ccall f_4807(C_word c,C_word *av) C_noret;
C_noret_decl(f_4815)
static void C_ccall f_4815(C_word c,C_word *av) C_noret;
C_noret_decl(f_4819)
static void C_ccall f_4819(C_word c,C_word *av) C_noret;
C_noret_decl(f_4829)
static void C_ccall f_4829(C_word c,C_word *av) C_noret;
C_noret_decl(f_4840)
static void C_ccall f_4840(C_word c,C_word *av) C_noret;
C_noret_decl(f_4844)
static void C_ccall f_4844(C_word c,C_word *av) C_noret;
C_noret_decl(f_4847)
static void C_ccall f_4847(C_word c,C_word *av) C_noret;
C_noret_decl(f_4849)
static void f_4849(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_4853)
static void C_ccall f_4853(C_word c,C_word *av) C_noret;
C_noret_decl(f_4861)
static void f_4861(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_4864)
static void f_4864(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_4868)
static void C_ccall f_4868(C_word c,C_word *av) C_noret;
C_noret_decl(f_4871)
static void C_ccall f_4871(C_word c,C_word *av) C_noret;
C_noret_decl(f_4874)
static void C_ccall f_4874(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_5026)
static void C_ccall f_5026(C_word c,C_word *av) C_noret;
C_noret_decl(f_5045)
static void C_ccall f_5045(C_word c,C_word *av) C_noret;
C_noret_decl(f_5048)
static void C_ccall f_5048(C_word c,C_word *av) C_noret;
C_noret_decl(f_5051)
static void C_ccall f_5051(C_word c,C_word *av) C_noret;
C_noret_decl(f_5054)
static void C_ccall f_5054(C_word c,C_word *av) C_noret;
C_noret_decl(f_5057)
static void C_ccall f_5057(C_word c,C_word *av) C_noret;
C_noret_decl(f_5060)
static void C_ccall f_5060(C_word c,C_word *av) C_noret;
C_noret_decl(f_5103)
static void f_5103(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_5113)
static void C_ccall f_5113(C_word c,C_word *av) C_noret;
C_noret_decl(f_5116)
static void C_ccall f_5116(C_word c,C_word *av) C_noret;
C_noret_decl(f_5119)
static void C_ccall f_5119(C_word c,C_word *av) C_noret;
C_noret_decl(f_5151)
static void C_ccall f_5151(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_5157)
static void C_ccall f_5157(C_word c,C_word *av) C_noret;
C_noret_decl(f_5190)
static void C_ccall f_5190(C_word c,C_word *av) C_noret;
C_noret_decl(f_5193)
static void C_ccall f_5193(C_word c,C_word *av) C_noret;
C_noret_decl(f_5209)
static void C_ccall f_5209(C_word c,C_word *av) C_noret;
C_noret_decl(f_5212)
static void C_ccall f_5212(C_word c,C_word *av) C_noret;
C_noret_decl(f_5228)
static void C_ccall f_5228(C_word c,C_word *av) C_noret;
C_noret_decl(f_5231)
static void C_ccall f_5231(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_5261)
static void f_5261(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5280)
static void C_ccall f_5280(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_5295)
static void C_ccall f_5295(C_word c,C_word *av) C_noret;
C_noret_decl(f_5301)
static void f_5301(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5320)
static void C_ccall f_5320(C_word c,C_word *av) C_noret;
C_noret_decl(f_5323)
static void C_ccall f_5323(C_word c,C_word *av) C_noret;
C_noret_decl(f_5335)
static void C_ccall f_5335(C_word c,C_word *av) C_noret;
C_noret_decl(f_5341)
static void f_5341(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5360)
static void C_ccall f_5360(C_word c,C_word *av) C_noret;
C_noret_decl(f_5363)
static void C_ccall f_5363(C_word c,C_word *av) C_noret;
C_noret_decl(f_5375)
static void C_ccall f_5375(C_word c,C_word *av) C_noret;
C_noret_decl(f_5378)
static void C_ccall f_5378(C_word c,C_word *av) C_noret;
C_noret_decl(f_5394)
static void C_ccall f_5394(C_word c,C_word *av) C_noret;
C_noret_decl(f_5397)
static void C_ccall f_5397(C_word c,C_word *av) C_noret;
C_noret_decl(f_5400)
static void C_ccall f_5400(C_word c,C_word *av) C_noret;
C_noret_decl(f_5403)
static void C_ccall f_5403(C_word c,C_word *av) C_noret;
C_noret_decl(f_5427)
static void C_ccall f_5427(C_word c,C_word *av) C_noret;
C_noret_decl(f_5430)
static void C_ccall f_5430(C_word c,C_word *av) C_noret;
C_noret_decl(f_5433)
static void C_ccall f_5433(C_word c,C_word *av) C_noret;
C_noret_decl(f_5436)
static void C_ccall f_5436(C_word c,C_word *av) C_noret;
C_noret_decl(f_5464)
static void C_ccall f_5464(C_word c,C_word *av) C_noret;
C_noret_decl(f_5467)
static void C_ccall f_5467(C_word c,C_word *av) C_noret;
C_noret_decl(f_5470)
static void C_ccall f_5470(C_word c,C_word *av) C_noret;
C_noret_decl(f_5473)
static void C_ccall f_5473(C_word c,C_word *av) C_noret;
C_noret_decl(f_5493)
static void C_ccall f_5493(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_5499)
static void C_ccall f_5499(C_word c,C_word *av) C_noret;
C_noret_decl(f_5502)
static void C_ccall f_5502(C_word c,C_word *av) C_noret;
C_noret_decl(f_5525)
static void C_ccall f_5525(C_word c,C_word *av) C_noret;
C_noret_decl(f_5526)
static void f_5526(C_word t0,C_word t1,C_word t2,C_word t3) 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_5539)
static void C_ccall f_5539(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_5555)
static void f_5555(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5565)
static void C_ccall f_5565(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_5602)
static void C_ccall f_5602(C_word c,C_word *av) C_noret;
C_noret_decl(f_5631)
static void C_ccall f_5631(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_5677)
static void C_ccall f_5677(C_word c,C_word *av) C_noret;
C_noret_decl(f_5708)
static void C_ccall f_5708(C_word c,C_word *av) C_noret;
C_noret_decl(f_5711)
static void C_ccall f_5711(C_word c,C_word *av) C_noret;
C_noret_decl(f_5714)
static void C_ccall f_5714(C_word c,C_word *av) C_noret;
C_noret_decl(f_5725)
static void C_ccall f_5725(C_word c,C_word *av) C_noret;
C_noret_decl(f_5729)
static void C_ccall f_5729(C_word c,C_word *av) C_noret;
C_noret_decl(f_5756)
static void C_ccall f_5756(C_word c,C_word *av) C_noret;
C_noret_decl(f_5759)
static void C_ccall f_5759(C_word c,C_word *av) C_noret;
C_noret_decl(f_5770)
static void C_ccall f_5770(C_word c,C_word *av) C_noret;
C_noret_decl(f_5774)
static void C_ccall f_5774(C_word c,C_word *av) C_noret;
C_noret_decl(f_5777)
static void C_ccall f_5777(C_word c,C_word *av) C_noret;
C_noret_decl(f_5780)
static void C_ccall f_5780(C_word c,C_word *av) C_noret;
C_noret_decl(f_5791)
static void C_ccall f_5791(C_word c,C_word *av) C_noret;
C_noret_decl(f_5795)
static void C_ccall f_5795(C_word c,C_word *av) C_noret;
C_noret_decl(f_5832)
static void C_ccall f_5832(C_word c,C_word *av) C_noret;
C_noret_decl(f_5835)
static void f_5835(C_word t0,C_word t1) C_noret;
C_noret_decl(f_5841)
static void f_5841(C_word t0,C_word t1) 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_5854)
static void C_ccall f_5854(C_word c,C_word *av) C_noret;
C_noret_decl(f_5857)
static void C_ccall f_5857(C_word c,C_word *av) C_noret;
C_noret_decl(f_5860)
static void C_ccall f_5860(C_word c,C_word *av) C_noret;
C_noret_decl(f_5876)
static void C_ccall f_5876(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_5883)
static void f_5883(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5887)
static void C_ccall f_5887(C_word c,C_word *av) C_noret;
C_noret_decl(f_5890)
static void C_ccall f_5890(C_word c,C_word *av) C_noret;
C_noret_decl(f_5899)
static void C_ccall f_5899(C_word c,C_word *av) C_noret;
C_noret_decl(f_5907)
static void C_ccall f_5907(C_word c,C_word *av) C_noret;
C_noret_decl(f_5913)
static void C_ccall f_5913(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_5924)
static void f_5924(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_5934)
static void C_ccall f_5934(C_word c,C_word *av) C_noret;
C_noret_decl(f_5961)
static void f_5961(C_word t0,C_word t1,C_word t2,C_word t3) 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_5998)
static void C_ccall f_5998(C_word c,C_word *av) C_noret;
C_noret_decl(f_6005)
static void C_ccall f_6005(C_word c,C_word *av) C_noret;
C_noret_decl(f_6011)
static void C_ccall f_6011(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_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_6032)
static void C_ccall f_6032(C_word c,C_word *av) C_noret;
C_noret_decl(f_6035)
static void C_ccall f_6035(C_word c,C_word *av) C_noret;
C_noret_decl(f_6045)
static void C_ccall f_6045(C_word c,C_word *av) C_noret;
C_noret_decl(f_6056)
static void C_ccall f_6056(C_word c,C_word *av) C_noret;
C_noret_decl(f_6060)
static void C_ccall f_6060(C_word c,C_word *av) C_noret;
C_noret_decl(f_6063)
static void C_ccall f_6063(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_6082)
static void f_6082(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6085)
static void C_ccall f_6085(C_word c,C_word *av) C_noret;
C_noret_decl(f_6097)
static void C_ccall f_6097(C_word c,C_word *av) C_noret;
C_noret_decl(f_6100)
static void C_ccall f_6100(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_6106)
static void C_ccall f_6106(C_word c,C_word *av) C_noret;
C_noret_decl(f_6113)
static void C_ccall f_6113(C_word c,C_word *av) C_noret;
C_noret_decl(f_6123)
static void C_ccall f_6123(C_word c,C_word *av) C_noret;
C_noret_decl(f_6131)
static void C_ccall f_6131(C_word c,C_word *av) C_noret;
C_noret_decl(f_6139)
static void C_ccall f_6139(C_word c,C_word *av) C_noret;
C_noret_decl(f_6152)
static void C_ccall f_6152(C_word c,C_word *av) C_noret;
C_noret_decl(f_6156)
static void C_ccall f_6156(C_word c,C_word *av) C_noret;
C_noret_decl(f_6164)
static void C_ccall f_6164(C_word c,C_word *av) C_noret;
C_noret_decl(f_6172)
static void C_ccall f_6172(C_word c,C_word *av) C_noret;
C_noret_decl(f_6179)
static void C_ccall f_6179(C_word c,C_word *av) C_noret;
C_noret_decl(f_6184)
static void C_ccall f_6184(C_word c,C_word *av) C_noret;
C_noret_decl(f_6191)
static void C_ccall f_6191(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_6198)
static void C_ccall f_6198(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_6204)
static void C_ccall f_6204(C_word c,C_word *av) C_noret;
C_noret_decl(f_6207)
static void C_ccall f_6207(C_word c,C_word *av) C_noret;
C_noret_decl(f_6210)
static void C_ccall f_6210(C_word c,C_word *av) C_noret;
C_noret_decl(f_6216)
static void f_6216(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6229)
static void C_ccall f_6229(C_word c,C_word *av) C_noret;
C_noret_decl(f_6234)
static void C_ccall f_6234(C_word c,C_word *av) C_noret;
C_noret_decl(f_6257)
static void C_ccall f_6257(C_word c,C_word *av) C_noret;
C_noret_decl(f_6261)
static void C_ccall f_6261(C_word c,C_word *av) C_noret;
C_noret_decl(f_6264)
static void C_ccall f_6264(C_word c,C_word *av) C_noret;
C_noret_decl(f_6284)
static void C_ccall f_6284(C_word c,C_word *av) C_noret;
C_noret_decl(f_6291)
static void C_ccall f_6291(C_word c,C_word *av) C_noret;
C_noret_decl(f_6295)
static void C_ccall f_6295(C_word c,C_word *av) C_noret;
C_noret_decl(f_6299)
static void C_ccall f_6299(C_word c,C_word *av) C_noret;
C_noret_decl(f_6342)
static void C_ccall f_6342(C_word c,C_word *av) C_noret;
C_noret_decl(f_6348)
static void C_ccall f_6348(C_word c,C_word *av) C_noret;
C_noret_decl(f_6351)
static void C_ccall f_6351(C_word c,C_word *av) C_noret;
C_noret_decl(f_6352)
static void f_6352(C_word t0,C_word t1,C_word t2,C_word t3) 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_6359)
static void C_ccall f_6359(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_6376)
static void C_ccall f_6376(C_word c,C_word *av) C_noret;
C_noret_decl(f_6382)
static void C_ccall f_6382(C_word c,C_word *av) C_noret;
C_noret_decl(f_6387)
static void f_6387(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6397)
static void C_ccall f_6397(C_word c,C_word *av) C_noret;
C_noret_decl(f_6424)
static void f_6424(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6434)
static void C_ccall f_6434(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_6471)
static void C_ccall f_6471(C_word c,C_word *av) C_noret;
C_noret_decl(f_6474)
static void C_ccall f_6474(C_word c,C_word *av) C_noret;
C_noret_decl(f_6502)
static void C_ccall f_6502(C_word c,C_word *av) C_noret;
C_noret_decl(f_6515)
static void C_ccall f_6515(C_word c,C_word *av) C_noret;
C_noret_decl(f_6519)
static void C_ccall f_6519(C_word c,C_word *av) C_noret;
C_noret_decl(f_6522)
static void C_ccall f_6522(C_word c,C_word *av) C_noret;
C_noret_decl(f_6525)
static void C_ccall f_6525(C_word c,C_word *av) C_noret;
C_noret_decl(f_6528)
static void C_ccall f_6528(C_word c,C_word *av) C_noret;
C_noret_decl(f_6531)
static void C_ccall f_6531(C_word c,C_word *av) C_noret;
C_noret_decl(f_6534)
static void C_ccall f_6534(C_word c,C_word *av) C_noret;
C_noret_decl(f_6537)
static void C_ccall f_6537(C_word c,C_word *av) C_noret;
C_noret_decl(f_6549)
static void C_ccall f_6549(C_word c,C_word *av) C_noret;
C_noret_decl(f_6561)
static void C_ccall f_6561(C_word c,C_word *av) C_noret;
C_noret_decl(f_6579)
static void C_ccall f_6579(C_word c,C_word *av) C_noret;
C_noret_decl(f_6599)
static void C_ccall f_6599(C_word c,C_word *av) C_noret;
C_noret_decl(f_6606)
static void C_ccall f_6606(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_6639)
static void C_ccall f_6639(C_word c,C_word *av) C_noret;
C_noret_decl(f_6642)
static void C_ccall f_6642(C_word c,C_word *av) C_noret;
C_noret_decl(f_6649)
static void C_ccall f_6649(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_6681)
static void C_ccall f_6681(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_6717)
static void C_ccall f_6717(C_word c,C_word *av) 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_6729)
static void C_ccall f_6729(C_word c,C_word *av) C_noret;
C_noret_decl(f_6753)
static void C_ccall f_6753(C_word c,C_word *av) C_noret;
C_noret_decl(f_6773)
static void C_ccall f_6773(C_word c,C_word *av) C_noret;
C_noret_decl(f_6776)
static void C_ccall f_6776(C_word c,C_word *av) C_noret;
C_noret_decl(f_6791)
static void C_ccall f_6791(C_word c,C_word *av) C_noret;
C_noret_decl(f_6795)
static void C_ccall f_6795(C_word c,C_word *av) C_noret;
C_noret_decl(f_6807)
static void C_ccall f_6807(C_word c,C_word *av) C_noret;
C_noret_decl(f_6810)
static void C_ccall f_6810(C_word c,C_word *av) C_noret;
C_noret_decl(f_6821)
static void C_ccall f_6821(C_word c,C_word *av) C_noret;
C_noret_decl(f_6825)
static void C_ccall f_6825(C_word c,C_word *av) C_noret;
C_noret_decl(f_6837)
static void C_ccall f_6837(C_word c,C_word *av) C_noret;
C_noret_decl(f_6840)
static void C_ccall f_6840(C_word c,C_word *av) C_noret;
C_noret_decl(f_6843)
static void C_ccall f_6843(C_word c,C_word *av) C_noret;
C_noret_decl(f_6846)
static void C_ccall f_6846(C_word c,C_word *av) C_noret;
C_noret_decl(f_6857)
static void C_ccall f_6857(C_word c,C_word *av) C_noret;
C_noret_decl(f_6865)
static void C_ccall f_6865(C_word c,C_word *av) C_noret;
C_noret_decl(f_6874)
static void C_ccall f_6874(C_word c,C_word *av) C_noret;
C_noret_decl(f_6877)
static void C_ccall f_6877(C_word c,C_word *av) C_noret;
C_noret_decl(f_6880)
static void C_ccall f_6880(C_word c,C_word *av) C_noret;
C_noret_decl(f_6893)
static void f_6893(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6901)
static void C_ccall f_6901(C_word c,C_word *av) C_noret;
C_noret_decl(f_6904)
static void C_ccall f_6904(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_6917)
static void C_ccall f_6917(C_word c,C_word *av) C_noret;
C_noret_decl(f_6920)
static void C_ccall f_6920(C_word c,C_word *av) C_noret;
C_noret_decl(f_6923)
static void C_ccall f_6923(C_word c,C_word *av) C_noret;
C_noret_decl(f_6953)
static void C_ccall f_6953(C_word c,C_word *av) C_noret;
C_noret_decl(f_6956)
static void C_ccall f_6956(C_word c,C_word *av) C_noret;
C_noret_decl(f_6959)
static void C_ccall f_6959(C_word c,C_word *av) C_noret;
C_noret_decl(f_6962)
static void C_ccall f_6962(C_word c,C_word *av) C_noret;
C_noret_decl(f_6965)
static void C_ccall f_6965(C_word c,C_word *av) C_noret;
C_noret_decl(f_6968)
static void C_ccall f_6968(C_word c,C_word *av) C_noret;
C_noret_decl(f_6990)
static void C_ccall f_6990(C_word c,C_word *av) C_noret;
C_noret_decl(f_7076)
static void f_7076(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7082)
static void f_7082(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7092)
static void C_ccall f_7092(C_word c,C_word *av) C_noret;
C_noret_decl(f_7095)
static void C_ccall f_7095(C_word c,C_word *av) C_noret;
C_noret_decl(f_7112)
static void f_7112(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7118)
static void f_7118(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7137)
static void C_ccall f_7137(C_word c,C_word *av) C_noret;
C_noret_decl(f_7149)
static void C_ccall f_7149(C_word c,C_word *av) C_noret;
C_noret_decl(f_7153)
static void C_ccall f_7153(C_word c,C_word *av) C_noret;
C_noret_decl(f_7155)
static void f_7155(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_7167)
static void f_7167(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7170)
static void C_ccall f_7170(C_word c,C_word *av) C_noret;
C_noret_decl(f_7173)
static void C_ccall f_7173(C_word c,C_word *av) C_noret;
C_noret_decl(f_7176)
static void C_ccall f_7176(C_word c,C_word *av) C_noret;
C_noret_decl(f_7179)
static void C_ccall f_7179(C_word c,C_word *av) C_noret;
C_noret_decl(f_7188)
static void f_7188(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7198)
static void C_ccall f_7198(C_word c,C_word *av) C_noret;
C_noret_decl(f_7201)
static void C_ccall f_7201(C_word c,C_word *av) C_noret;
C_noret_decl(f_7204)
static void C_ccall f_7204(C_word c,C_word *av) C_noret;
C_noret_decl(f_7224)
static void C_ccall f_7224(C_word c,C_word *av) C_noret;
C_noret_decl(f_7239)
static void C_ccall f_7239(C_word c,C_word *av) C_noret;
C_noret_decl(f_7242)
static void C_ccall f_7242(C_word c,C_word *av) C_noret;
C_noret_decl(f_7245)
static void C_ccall f_7245(C_word c,C_word *av) C_noret;
C_noret_decl(f_7248)
static void C_ccall f_7248(C_word c,C_word *av) C_noret;
C_noret_decl(f_7251)
static void C_ccall f_7251(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_7284)
static void f_7284(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7288)
static void C_ccall f_7288(C_word c,C_word *av) C_noret;
C_noret_decl(f_7291)
static void C_ccall f_7291(C_word c,C_word *av) C_noret;
C_noret_decl(f_7294)
static void C_ccall f_7294(C_word c,C_word *av) C_noret;
C_noret_decl(f_7297)
static void C_ccall f_7297(C_word c,C_word *av) C_noret;
C_noret_decl(f_7300)
static void C_ccall f_7300(C_word c,C_word *av) C_noret;
C_noret_decl(f_7303)
static void C_ccall f_7303(C_word c,C_word *av) C_noret;
C_noret_decl(f_7306)
static void C_ccall f_7306(C_word c,C_word *av) C_noret;
C_noret_decl(f_7309)
static void C_ccall f_7309(C_word c,C_word *av) C_noret;
C_noret_decl(f_7321)
static void C_ccall f_7321(C_word c,C_word *av) C_noret;
C_noret_decl(f_7331)
static void f_7331(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7341)
static void C_ccall f_7341(C_word c,C_word *av) C_noret;
C_noret_decl(f_7361)
static void C_ccall f_7361(C_word c,C_word *av) C_noret;
C_noret_decl(f_7374)
static void C_ccall f_7374(C_word c,C_word *av) C_noret;
C_noret_decl(f_7386)
static void C_ccall f_7386(C_word c,C_word *av) C_noret;
C_noret_decl(f_7389)
static void C_ccall f_7389(C_word c,C_word *av) C_noret;
C_noret_decl(f_7391)
static void f_7391(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7416)
static void C_ccall f_7416(C_word c,C_word *av) C_noret;
C_noret_decl(f_7427)
static void C_ccall f_7427(C_word c,C_word *av) C_noret;
C_noret_decl(f_7437)
static void C_ccall f_7437(C_word c,C_word *av) C_noret;
C_noret_decl(f_7441)
static void C_ccall f_7441(C_word c,C_word *av) C_noret;
C_noret_decl(f_7443)
static void f_7443(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7450)
static void C_ccall f_7450(C_word c,C_word *av) C_noret;
C_noret_decl(f_7464)
static void C_ccall f_7464(C_word c,C_word *av) C_noret;
C_noret_decl(f_7470)
static void C_ccall f_7470(C_word c,C_word *av) C_noret;
C_noret_decl(f_7473)
static void C_ccall f_7473(C_word c,C_word *av) C_noret;
C_noret_decl(f_7476)
static void C_ccall f_7476(C_word c,C_word *av) C_noret;
C_noret_decl(f_7481)
static void f_7481(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7497)
static void C_ccall f_7497(C_word c,C_word *av) C_noret;
C_noret_decl(f_7500)
static void C_ccall f_7500(C_word c,C_word *av) C_noret;
C_noret_decl(f_7503)
static void C_ccall f_7503(C_word c,C_word *av) C_noret;
C_noret_decl(f_7506)
static void C_ccall f_7506(C_word c,C_word *av) C_noret;
C_noret_decl(f_7521)
static void f_7521(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7529)
static void C_ccall f_7529(C_word c,C_word *av) C_noret;
C_noret_decl(f_7539)
static void f_7539(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7549)
static void C_ccall f_7549(C_word c,C_word *av) C_noret;
C_noret_decl(f_7582)
static void f_7582(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7592)
static void C_ccall f_7592(C_word c,C_word *av) C_noret;
C_noret_decl(f_7605)
static void f_7605(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7630)
static void C_ccall f_7630(C_word c,C_word *av) C_noret;
C_noret_decl(f_7639)
static void f_7639(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7643)
static void C_ccall f_7643(C_word c,C_word *av) C_noret;
C_noret_decl(f_7652)
static void C_ccall f_7652(C_word c,C_word *av) C_noret;
C_noret_decl(f_7655)
static void C_ccall f_7655(C_word c,C_word *av) C_noret;
C_noret_decl(f_7658)
static void f_7658(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7661)
static void C_ccall f_7661(C_word c,C_word *av) C_noret;
C_noret_decl(f_7664)
static void C_ccall f_7664(C_word c,C_word *av) C_noret;
C_noret_decl(f_7667)
static void C_ccall f_7667(C_word c,C_word *av) C_noret;
C_noret_decl(f_7670)
static void C_ccall f_7670(C_word c,C_word *av) C_noret;
C_noret_decl(f_7673)
static void C_ccall f_7673(C_word c,C_word *av) C_noret;
C_noret_decl(f_7676)
static void C_ccall f_7676(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_7682)
static void C_ccall f_7682(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_7688)
static void C_ccall f_7688(C_word c,C_word *av) C_noret;
C_noret_decl(f_7691)
static void C_ccall f_7691(C_word c,C_word *av) C_noret;
C_noret_decl(f_7712)
static void C_ccall f_7712(C_word c,C_word *av) C_noret;
C_noret_decl(f_7735)
static void C_ccall f_7735(C_word c,C_word *av) C_noret;
C_noret_decl(f_7738)
static void C_ccall f_7738(C_word c,C_word *av) C_noret;
C_noret_decl(f_7741)
static void C_ccall f_7741(C_word c,C_word *av) C_noret;
C_noret_decl(f_7744)
static void C_ccall f_7744(C_word c,C_word *av) C_noret;
C_noret_decl(f_7757)
static void C_ccall f_7757(C_word c,C_word *av) C_noret;
C_noret_decl(f_7760)
static void C_ccall f_7760(C_word c,C_word *av) C_noret;
C_noret_decl(f_7763)
static void C_ccall f_7763(C_word c,C_word *av) C_noret;
C_noret_decl(f_7774)
static void C_ccall f_7774(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_7791)
static void f_7791(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7801)
static void C_ccall f_7801(C_word c,C_word *av) C_noret;
C_noret_decl(f_7814)
static void f_7814(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7825)
static void f_7825(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7835)
static void C_ccall f_7835(C_word c,C_word *av) C_noret;
C_noret_decl(f_7851)
static void C_ccall f_7851(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 f_7857(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7860)
static void f_7860(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7869)
static void C_ccall f_7869(C_word c,C_word *av) C_noret;
C_noret_decl(f_7872)
static void C_ccall f_7872(C_word c,C_word *av) C_noret;
C_noret_decl(f_7875)
static void C_ccall f_7875(C_word c,C_word *av) C_noret;
C_noret_decl(f_7878)
static void C_ccall f_7878(C_word c,C_word *av) C_noret;
C_noret_decl(f_7881)
static void C_ccall f_7881(C_word c,C_word *av) C_noret;
C_noret_decl(f_7884)
static void C_ccall f_7884(C_word c,C_word *av) C_noret;
C_noret_decl(f_7891)
static void C_ccall f_7891(C_word c,C_word *av) C_noret;
C_noret_decl(f_7898)
static void C_ccall f_7898(C_word c,C_word *av) C_noret;
C_noret_decl(f_7904)
static void C_ccall f_7904(C_word c,C_word *av) C_noret;
C_noret_decl(f_7912)
static void f_7912(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7922)
static void C_ccall f_7922(C_word c,C_word *av) C_noret;
C_noret_decl(f_7935)
static void f_7935(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7941)
static void f_7941(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7951)
static void C_ccall f_7951(C_word c,C_word *av) C_noret;
C_noret_decl(f_7966)
static void C_ccall f_7966(C_word c,C_word *av) C_noret;
C_noret_decl(f_7972)
static void C_ccall f_7972(C_word c,C_word *av) C_noret;
C_noret_decl(f_7975)
static void C_ccall f_7975(C_word c,C_word *av) C_noret;
C_noret_decl(f_7978)
static void C_ccall f_7978(C_word c,C_word *av) C_noret;
C_noret_decl(f_7981)
static void C_ccall f_7981(C_word c,C_word *av) C_noret;
C_noret_decl(f_7989)
static void f_7989(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7996)
static void C_ccall f_7996(C_word c,C_word *av) C_noret;
C_noret_decl(f_8002)
static void C_ccall f_8002(C_word c,C_word *av) C_noret;
C_noret_decl(f_8032)
static void C_ccall f_8032(C_word c,C_word *av) C_noret;
C_noret_decl(f_8045)
static void C_ccall f_8045(C_word c,C_word *av) C_noret;
C_noret_decl(f_8049)
static void C_ccall f_8049(C_word c,C_word *av) C_noret;
C_noret_decl(f_8073)
static void C_ccall f_8073(C_word c,C_word *av) C_noret;
C_noret_decl(f_8076)
static void C_ccall f_8076(C_word c,C_word *av) C_noret;
C_noret_decl(f_8082)
static void C_ccall f_8082(C_word c,C_word *av) C_noret;
C_noret_decl(f_8084)
static void f_8084(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8108)
static void f_8108(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8133)
static void C_ccall f_8133(C_word c,C_word *av) C_noret;
C_noret_decl(f_8147)
static void C_ccall f_8147(C_word c,C_word *av) C_noret;
C_noret_decl(f_8165)
static void C_ccall f_8165(C_word c,C_word *av) C_noret;
C_noret_decl(f_8172)
static void C_ccall f_8172(C_word c,C_word *av) C_noret;
C_noret_decl(f_8193)
static void f_8193(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8213)
static void C_ccall f_8213(C_word c,C_word *av) C_noret;
C_noret_decl(f_8234)
static void C_ccall f_8234(C_word c,C_word *av) C_noret;
C_noret_decl(f_8238)
static void C_ccall f_8238(C_word c,C_word *av) C_noret;
C_noret_decl(f_8259)
static void C_ccall f_8259(C_word c,C_word *av) C_noret;
C_noret_decl(f_8263)
static void C_ccall f_8263(C_word c,C_word *av) C_noret;
C_noret_decl(f_8279)
static void f_8279(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8285)
static void C_ccall f_8285(C_word c,C_word *av) C_noret;
C_noret_decl(f_8329)
static void C_ccall f_8329(C_word c,C_word *av) C_noret;
C_noret_decl(f_8335)
static void C_ccall f_8335(C_word c,C_word *av) C_noret;
C_noret_decl(f_8338)
static void C_ccall f_8338(C_word c,C_word *av) C_noret;
C_noret_decl(f_8347)
static void C_ccall f_8347(C_word c,C_word *av) C_noret;
C_noret_decl(f_8353)
static void C_ccall f_8353(C_word c,C_word *av) C_noret;
C_noret_decl(f_8388)
static void C_ccall f_8388(C_word c,C_word *av) C_noret;
C_noret_decl(f_8391)
static void C_ccall f_8391(C_word c,C_word *av) C_noret;
C_noret_decl(f_8398)
static void C_ccall f_8398(C_word c,C_word *av) C_noret;
C_noret_decl(f_8432)
static void C_ccall f_8432(C_word c,C_word *av) C_noret;
C_noret_decl(f_8434)
static void f_8434(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8436)
static void f_8436(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8444)
static void C_ccall f_8444(C_word c,C_word *av) C_noret;
C_noret_decl(f_8447)
static void C_ccall f_8447(C_word c,C_word *av) 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_8453)
static void C_ccall f_8453(C_word c,C_word *av) C_noret;
C_noret_decl(f_8456)
static void C_ccall f_8456(C_word c,C_word *av) C_noret;
C_noret_decl(f_8459)
static void C_ccall f_8459(C_word c,C_word *av) C_noret;
C_noret_decl(f_8462)
static void f_8462(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8468)
static void C_ccall f_8468(C_word c,C_word *av) C_noret;
C_noret_decl(f_8471)
static void C_ccall f_8471(C_word c,C_word *av) C_noret;
C_noret_decl(f_8474)
static void C_ccall f_8474(C_word c,C_word *av) C_noret;
C_noret_decl(f_8477)
static void C_ccall f_8477(C_word c,C_word *av) C_noret;
C_noret_decl(f_8480)
static void C_ccall f_8480(C_word c,C_word *av) C_noret;
C_noret_decl(f_8483)
static void C_ccall f_8483(C_word c,C_word *av) C_noret;
C_noret_decl(f_8486)
static void C_ccall f_8486(C_word c,C_word *av) C_noret;
C_noret_decl(f_8489)
static void C_ccall f_8489(C_word c,C_word *av) C_noret;
C_noret_decl(f_8492)
static void C_ccall f_8492(C_word c,C_word *av) C_noret;
C_noret_decl(f_8495)
static void C_ccall f_8495(C_word c,C_word *av) C_noret;
C_noret_decl(f_8498)
static void C_ccall f_8498(C_word c,C_word *av) C_noret;
C_noret_decl(f_8501)
static void C_ccall f_8501(C_word c,C_word *av) C_noret;
C_noret_decl(f_8504)
static void C_ccall f_8504(C_word c,C_word *av) C_noret;
C_noret_decl(f_8507)
static void C_ccall f_8507(C_word c,C_word *av) C_noret;
C_noret_decl(f_8510)
static void C_ccall f_8510(C_word c,C_word *av) C_noret;
C_noret_decl(f_8513)
static void C_ccall f_8513(C_word c,C_word *av) C_noret;
C_noret_decl(f_8516)
static void C_ccall f_8516(C_word c,C_word *av) C_noret;
C_noret_decl(f_8519)
static void C_ccall f_8519(C_word c,C_word *av) C_noret;
C_noret_decl(f_8522)
static void C_ccall f_8522(C_word c,C_word *av) C_noret;
C_noret_decl(f_8525)
static void C_ccall f_8525(C_word c,C_word *av) C_noret;
C_noret_decl(f_8528)
static void f_8528(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8531)
static void C_ccall f_8531(C_word c,C_word *av) C_noret;
C_noret_decl(f_8534)
static void C_ccall f_8534(C_word c,C_word *av) C_noret;
C_noret_decl(f_8537)
static void C_ccall f_8537(C_word c,C_word *av) C_noret;
C_noret_decl(f_8540)
static void C_ccall f_8540(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_8547)
static void C_ccall f_8547(C_word c,C_word *av) C_noret;
C_noret_decl(f_8554)
static void C_ccall f_8554(C_word c,C_word *av) C_noret;
C_noret_decl(f_8565)
static void C_ccall f_8565(C_word c,C_word *av) C_noret;
C_noret_decl(f_8571)
static void C_ccall f_8571(C_word c,C_word *av) C_noret;
C_noret_decl(f_8574)
static void C_ccall f_8574(C_word c,C_word *av) C_noret;
C_noret_decl(f_8583)
static void f_8583(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8591)
static void C_ccall f_8591(C_word c,C_word *av) C_noret;
C_noret_decl(f_8605)
static void C_ccall f_8605(C_word c,C_word *av) C_noret;
C_noret_decl(f_8620)
static void C_ccall f_8620(C_word c,C_word *av) C_noret;
C_noret_decl(f_8623)
static void C_ccall f_8623(C_word c,C_word *av) C_noret;
C_noret_decl(f_8640)
static void f_8640(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8650)
static void C_ccall f_8650(C_word c,C_word *av) C_noret;
C_noret_decl(f_8675)
static void f_8675(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8683)
static void C_ccall f_8683(C_word c,C_word *av) C_noret;
C_noret_decl(f_8689)
static void C_ccall f_8689(C_word c,C_word *av) C_noret;
C_noret_decl(f_8693)
static void C_ccall f_8693(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_8699)
static void C_ccall f_8699(C_word c,C_word *av) C_noret;
C_noret_decl(f_8702)
static void C_ccall f_8702(C_word c,C_word *av) C_noret;
C_noret_decl(f_8705)
static void C_ccall f_8705(C_word c,C_word *av) C_noret;
C_noret_decl(f_8708)
static void C_ccall f_8708(C_word c,C_word *av) C_noret;
C_noret_decl(f_8717)
static void C_ccall f_8717(C_word c,C_word *av) C_noret;
C_noret_decl(f_8720)
static void C_ccall f_8720(C_word c,C_word *av) C_noret;
C_noret_decl(f_8731)
static void C_ccall f_8731(C_word c,C_word *av) C_noret;
C_noret_decl(f_8752)
static void f_8752(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8770)
static void C_ccall f_8770(C_word c,C_word *av) C_noret;
C_noret_decl(f_8780)
static void C_ccall f_8780(C_word c,C_word *av) C_noret;
C_noret_decl(f_8783)
static void C_ccall f_8783(C_word c,C_word *av) C_noret;
C_noret_decl(f_8786)
static void C_ccall f_8786(C_word c,C_word *av) C_noret;
C_noret_decl(f_8795)
static void f_8795(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8819)
static void C_ccall f_8819(C_word c,C_word *av) C_noret;
C_noret_decl(f_8822)
static void C_ccall f_8822(C_word c,C_word *av) C_noret;
C_noret_decl(f_8825)
static void C_ccall f_8825(C_word c,C_word *av) C_noret;
C_noret_decl(f_8828)
static void C_ccall f_8828(C_word c,C_word *av) C_noret;
C_noret_decl(f_8837)
static void C_ccall f_8837(C_word c,C_word *av) C_noret;
C_noret_decl(f_8853)
static void f_8853(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8913)
static void C_ccall f_8913(C_word c,C_word *av) C_noret;
C_noret_decl(f_8926)
static void f_8926(C_word t0,C_word t1,C_word t2) 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_8951)
static void f_8951(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8953)
static void f_8953(C_word t0,C_word t1,C_word t2,C_word t3) 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_8981)
static void f_8981(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8991)
static void C_ccall f_8991(C_word c,C_word *av) C_noret;
C_noret_decl(f_9015)
static void C_ccall f_9015(C_word c,C_word *av) C_noret;
C_noret_decl(f_9038)
static void C_ccall f_9038(C_word c,C_word *av) C_noret;
C_noret_decl(f_9041)
static void C_ccall f_9041(C_word c,C_word *av) C_noret;
C_noret_decl(f_9044)
static void C_ccall f_9044(C_word c,C_word *av) C_noret;
C_noret_decl(f_9057)
static void C_ccall f_9057(C_word c,C_word *av) C_noret;
C_noret_decl(f_9060)
static void C_ccall f_9060(C_word c,C_word *av) C_noret;
C_noret_decl(f_9074)
static void C_ccall f_9074(C_word c,C_word *av) C_noret;
C_noret_decl(f_9099)
static void C_ccall f_9099(C_word c,C_word *av) C_noret;
C_noret_decl(f_9103)
static void C_ccall f_9103(C_word c,C_word *av) C_noret;
C_noret_decl(f_9111)
static void f_9111(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9121)
static void C_ccall f_9121(C_word c,C_word *av) C_noret;
C_noret_decl(f_9135)
static void C_ccall f_9135(C_word c,C_word *av) C_noret;
C_noret_decl(f_9139)
static void C_ccall f_9139(C_word c,C_word *av) C_noret;
C_noret_decl(f_9142)
static void C_ccall f_9142(C_word c,C_word *av) C_noret;
C_noret_decl(f_9145)
static void C_ccall f_9145(C_word c,C_word *av) C_noret;
C_noret_decl(f_9148)
static void C_ccall f_9148(C_word c,C_word *av) C_noret;
C_noret_decl(f_9151)
static void C_ccall f_9151(C_word c,C_word *av) C_noret;
C_noret_decl(f_9154)
static void C_ccall f_9154(C_word c,C_word *av) C_noret;
C_noret_decl(f_9157)
static void C_ccall f_9157(C_word c,C_word *av) C_noret;
C_noret_decl(f_9160)
static void C_ccall f_9160(C_word c,C_word *av) C_noret;
C_noret_decl(f_9163)
static void C_ccall f_9163(C_word c,C_word *av) C_noret;
C_noret_decl(f_9166)
static void C_ccall f_9166(C_word c,C_word *av) C_noret;
C_noret_decl(f_9181)
static void C_ccall f_9181(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_9204)
static void C_ccall f_9204(C_word c,C_word *av) C_noret;
C_noret_decl(f_9208)
static void C_ccall f_9208(C_word c,C_word *av) C_noret;
C_noret_decl(f_9217)
static void C_ccall f_9217(C_word c,C_word *av) C_noret;
C_noret_decl(f_9222)
static void f_9222(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9232)
static void C_ccall f_9232(C_word c,C_word *av) C_noret;
C_noret_decl(f_9250)
static void C_ccall f_9250(C_word c,C_word *av) C_noret;
C_noret_decl(f_9256)
static void C_ccall f_9256(C_word c,C_word *av) C_noret;
C_noret_decl(f_9261)
static void f_9261(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9271)
static void C_ccall f_9271(C_word c,C_word *av) C_noret;
C_noret_decl(f_9284)
static void C_ccall f_9284(C_word c,C_word *av) C_noret;
C_noret_decl(f_9302)
static void C_ccall f_9302(C_word c,C_word *av) C_noret;
C_noret_decl(f_9303)
static void f_9303(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9311)
static void C_ccall f_9311(C_word c,C_word *av) C_noret;
C_noret_decl(f_9324)
static void C_ccall f_9324(C_word c,C_word *av) C_noret;
C_noret_decl(f_9331)
static void C_ccall f_9331(C_word c,C_word *av) C_noret;
C_noret_decl(f_9334)
static void C_ccall f_9334(C_word c,C_word *av) C_noret;
C_noret_decl(f_9337)
static void C_ccall f_9337(C_word c,C_word *av) C_noret;
C_noret_decl(f_9340)
static void C_ccall f_9340(C_word c,C_word *av) C_noret;
C_noret_decl(f_9343)
static void C_ccall f_9343(C_word c,C_word *av) C_noret;
C_noret_decl(f_9348)
static void f_9348(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9358)
static void C_ccall f_9358(C_word c,C_word *av) C_noret;
C_noret_decl(f_9376)
static void C_ccall f_9376(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_9392)
static void f_9392(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9401)
static void f_9401(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9427)
static void f_9427(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9437)
static void C_ccall f_9437(C_word c,C_word *av) C_noret;
C_noret_decl(f_9468)
static void f_9468(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9474)
static void C_ccall f_9474(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 f_9485(C_word t0,C_word t1,C_word t2) 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_9499)
static void C_ccall f_9499(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_9528)
static void C_ccall f_9528(C_word c,C_word *av) C_noret;
C_noret_decl(f_9536)
static void f_9536(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9546)
static void C_ccall f_9546(C_word c,C_word *av) C_noret;
C_noret_decl(f_9559)
static void f_9559(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9565)
static void C_ccall f_9565(C_word c,C_word *av) C_noret;
C_noret_decl(f_9568)
static void C_ccall f_9568(C_word c,C_word *av) C_noret;
C_noret_decl(f_9579)
static void f_9579(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9589)
static void C_ccall f_9589(C_word c,C_word *av) C_noret;
C_noret_decl(f_9604)
static void f_9604(C_word t0,C_word t1,C_word t2) 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_9620)
static void C_ccall f_9620(C_word c,C_word *av) C_noret;
C_noret_decl(f_9623)
static void C_ccall f_9623(C_word c,C_word *av) C_noret;
C_noret_decl(f_9626)
static void C_ccall f_9626(C_word c,C_word *av) C_noret;
C_noret_decl(f_9629)
static void C_ccall f_9629(C_word c,C_word *av) C_noret;
C_noret_decl(f_9632)
static void C_ccall f_9632(C_word c,C_word *av) C_noret;
C_noret_decl(f_9635)
static void C_ccall f_9635(C_word c,C_word *av) C_noret;
C_noret_decl(f_9638)
static void C_ccall f_9638(C_word c,C_word *av) C_noret;
C_noret_decl(f_9641)
static void C_ccall f_9641(C_word c,C_word *av) C_noret;
C_noret_decl(f_9644)
static void C_ccall f_9644(C_word c,C_word *av) C_noret;
C_noret_decl(f_9647)
static void C_ccall f_9647(C_word c,C_word *av) C_noret;
C_noret_decl(f_9650)
static void C_ccall f_9650(C_word c,C_word *av) C_noret;
C_noret_decl(f_9653)
static void C_ccall f_9653(C_word c,C_word *av) C_noret;
C_noret_decl(f_9656)
static void C_ccall f_9656(C_word c,C_word *av) C_noret;
C_noret_decl(f_9665)
static void C_ccall f_9665(C_word c,C_word *av) C_noret;
C_noret_decl(f_9669)
static void C_ccall f_9669(C_word c,C_word *av) C_noret;
C_noret_decl(f_9673)
static void C_ccall f_9673(C_word c,C_word *av) C_noret;
C_noret_decl(f_9677)
static void C_ccall f_9677(C_word c,C_word *av) C_noret;
C_noret_decl(f_9683)
static void C_ccall f_9683(C_word c,C_word *av) C_noret;
C_noret_decl(f_9689)
static void C_ccall f_9689(C_word c,C_word *av) C_noret;
C_noret_decl(f_9692)
static void C_ccall f_9692(C_word c,C_word *av) C_noret;
C_noret_decl(f_9698)
static void C_ccall f_9698(C_word c,C_word *av) C_noret;
C_noret_decl(f_9707)
static void C_ccall f_9707(C_word c,C_word *av) C_noret;
C_noret_decl(f_9710)
static void C_ccall f_9710(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_9719)
static void C_ccall f_9719(C_word c,C_word *av) C_noret;
C_noret_decl(f_9722)
static void C_ccall f_9722(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_9746)
static void C_ccall f_9746(C_word c,C_word *av) C_noret;
C_noret_decl(f_9749)
static void C_ccall f_9749(C_word c,C_word *av) C_noret;
C_noret_decl(f_9752)
static void C_ccall f_9752(C_word c,C_word *av) C_noret;
C_noret_decl(f_9777)
static void C_ccall f_9777(C_word c,C_word *av) C_noret;
C_noret_decl(f_9781)
static void C_ccall f_9781(C_word c,C_word *av) C_noret;
C_noret_decl(f_9799)
static void f_9799(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_9806)
static void f_9806(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9809)
static void C_ccall f_9809(C_word c,C_word *av) C_noret;
C_noret_decl(f_9851)
static void C_ccall f_9851(C_word c,C_word *av) C_noret;
C_noret_decl(f_9856)
static void f_9856(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9866)
static void C_ccall f_9866(C_word c,C_word *av) C_noret;
C_noret_decl(f_9878)
static void C_ccall f_9878(C_word c,C_word *av) C_noret;
C_noret_decl(f_9881)
static void C_ccall f_9881(C_word c,C_word *av) C_noret;
C_noret_decl(f_9888)
static void C_ccall f_9888(C_word c,C_word *av) C_noret;
C_noret_decl(f_9896)
static void C_ccall f_9896(C_word c,C_word *av) C_noret;
C_noret_decl(f_9906)
static void C_ccall f_9906(C_word c,C_word *av) C_noret;
C_noret_decl(f_9917)
static void f_9917(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9927)
static void C_ccall f_9927(C_word c,C_word *av) C_noret;
C_noret_decl(f_9942)
static void f_9942(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9946)
static void C_ccall f_9946(C_word c,C_word *av) C_noret;
C_noret_decl(f_9949)
static void C_ccall f_9949(C_word c,C_word *av) C_noret;
C_noret_decl(f_9952)
static void C_ccall f_9952(C_word c,C_word *av) C_noret;
C_noret_decl(f_9955)
static void C_ccall f_9955(C_word c,C_word *av) C_noret;
C_noret_decl(f_9961)
static void C_ccall f_9961(C_word c,C_word *av) C_noret;
C_noret_decl(f_9963)
static void f_9963(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_9973)
static void f_9973(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9982)
static void f_9982(C_word t0,C_word t1) C_noret;
C_noret_decl(C_c_2dbackend_toplevel)
C_extern void C_ccall C_c_2dbackend_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(va16049)
static void va16049(C_word t0,C_word t1) C_noret;
C_noret_decl(va16055)
static void va16055(C_word t0,C_word t1) C_noret;
C_noret_decl(va16087)
static void va16087(C_word t0,C_word t1) C_noret;
C_noret_decl(va16089)
static void va16089(C_word t0,C_word t1) C_noret;
C_noret_decl(va16097)
static void va16097(C_word t0,C_word t1) C_noret;
C_noret_decl(va16099)
static void va16099(C_word t0,C_word t1) C_noret;

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

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

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

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

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

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

C_noret_decl(trf_10505)
static void C_ccall trf_10505(C_word c,C_word *av) C_noret;
static void C_ccall trf_10505(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_10505(t0,t1,t2,t3);}

C_noret_decl(trf_10555)
static void C_ccall trf_10555(C_word c,C_word *av) C_noret;
static void C_ccall trf_10555(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_10555(t0,t1,t2,t3,t4);}

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

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

C_noret_decl(trf_10642)
static void C_ccall trf_10642(C_word c,C_word *av) C_noret;
static void C_ccall trf_10642(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_10642(t0,t1,t2,t3);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_3848)
static void C_ccall trf_3848(C_word c,C_word *av) C_noret;
static void C_ccall trf_3848(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_3848(t0,t1,t2,t3);}

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

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

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

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

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

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

C_noret_decl(trf_4861)
static void C_ccall trf_4861(C_word c,C_word *av) C_noret;
static void C_ccall trf_4861(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_4861(t0,t1,t2,t3,t4);}

C_noret_decl(trf_4864)
static void C_ccall trf_4864(C_word c,C_word *av) C_noret;
static void C_ccall trf_4864(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_4864(t0,t1,t2,t3);}

C_noret_decl(trf_5103)
static void C_ccall trf_5103(C_word c,C_word *av) C_noret;
static void C_ccall trf_5103(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_5103(t0,t1,t2,t3,t4);}

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

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

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

C_noret_decl(trf_5526)
static void C_ccall trf_5526(C_word c,C_word *av) C_noret;
static void C_ccall trf_5526(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_5526(t0,t1,t2,t3);}

C_noret_decl(trf_5555)
static void C_ccall trf_5555(C_word c,C_word *av) C_noret;
static void C_ccall trf_5555(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_5555(t0,t1,t2,t3);}

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

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

C_noret_decl(trf_5883)
static void C_ccall trf_5883(C_word c,C_word *av) C_noret;
static void C_ccall trf_5883(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_5883(t0,t1,t2,t3);}

C_noret_decl(trf_5924)
static void C_ccall trf_5924(C_word c,C_word *av) C_noret;
static void C_ccall trf_5924(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_5924(t0,t1,t2,t3);}

C_noret_decl(trf_5961)
static void C_ccall trf_5961(C_word c,C_word *av) C_noret;
static void C_ccall trf_5961(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_5961(t0,t1,t2,t3);}

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

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

C_noret_decl(trf_6352)
static void C_ccall trf_6352(C_word c,C_word *av) C_noret;
static void C_ccall trf_6352(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_6352(t0,t1,t2,t3);}

C_noret_decl(trf_6387)
static void C_ccall trf_6387(C_word c,C_word *av) C_noret;
static void C_ccall trf_6387(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_6387(t0,t1,t2,t3);}

C_noret_decl(trf_6424)
static void C_ccall trf_6424(C_word c,C_word *av) C_noret;
static void C_ccall trf_6424(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_6424(t0,t1,t2,t3);}

C_noret_decl(trf_6893)
static void C_ccall trf_6893(C_word c,C_word *av) C_noret;
static void C_ccall trf_6893(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_6893(t0,t1,t2,t3);}

C_noret_decl(trf_7076)
static void C_ccall trf_7076(C_word c,C_word *av) C_noret;
static void C_ccall trf_7076(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_7076(t0,t1,t2,t3);}

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

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

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

C_noret_decl(trf_7155)
static void C_ccall trf_7155(C_word c,C_word *av) C_noret;
static void C_ccall trf_7155(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_7155(t0,t1,t2,t3,t4);}

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

C_noret_decl(trf_7188)
static void C_ccall trf_7188(C_word c,C_word *av) C_noret;
static void C_ccall trf_7188(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_7188(t0,t1,t2,t3);}

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

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

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

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

C_noret_decl(trf_7481)
static void C_ccall trf_7481(C_word c,C_word *av) C_noret;
static void C_ccall trf_7481(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_7481(t0,t1,t2,t3);}

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

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

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

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

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

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

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

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

C_noret_decl(trf_7825)
static void C_ccall trf_7825(C_word c,C_word *av) C_noret;
static void C_ccall trf_7825(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_7825(t0,t1,t2,t3);}

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

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

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

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

C_noret_decl(trf_7941)
static void C_ccall trf_7941(C_word c,C_word *av) C_noret;
static void C_ccall trf_7941(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_7941(t0,t1,t2,t3);}

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

C_noret_decl(trf_8084)
static void C_ccall trf_8084(C_word c,C_word *av) C_noret;
static void C_ccall trf_8084(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_8084(t0,t1,t2,t3);}

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

C_noret_decl(trf_8193)
static void C_ccall trf_8193(C_word c,C_word *av) C_noret;
static void C_ccall trf_8193(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_8193(t0,t1,t2,t3);}

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

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

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

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

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

C_noret_decl(trf_8583)
static void C_ccall trf_8583(C_word c,C_word *av) C_noret;
static void C_ccall trf_8583(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_8583(t0,t1,t2,t3);}

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

C_noret_decl(trf_8675)
static void C_ccall trf_8675(C_word c,C_word *av) C_noret;
static void C_ccall trf_8675(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_8675(t0,t1,t2,t3);}

C_noret_decl(trf_8752)
static void C_ccall trf_8752(C_word c,C_word *av) C_noret;
static void C_ccall trf_8752(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_8752(t0,t1,t2,t3);}

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

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

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

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

C_noret_decl(trf_8953)
static void C_ccall trf_8953(C_word c,C_word *av) C_noret;
static void C_ccall trf_8953(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_8953(t0,t1,t2,t3);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_9799)
static void C_ccall trf_9799(C_word c,C_word *av) C_noret;
static void C_ccall trf_9799(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_9799(t0,t1,t2,t3,t4);}

C_noret_decl(trf_9806)
static void C_ccall trf_9806(C_word c,C_word *av) C_noret;
static void C_ccall trf_9806(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9806(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[2];
C_word t1=av[1];
C_word t2=av[0];
f_9856(t0,t1,t2);}

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

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

C_noret_decl(trf_9963)
static void C_ccall trf_9963(C_word c,C_word *av) C_noret;
static void C_ccall trf_9963(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_9963(t0,t1,t2,t3,t4);}

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

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

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

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

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

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

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

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

/* f15396 in k5727 in k5706 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f15396(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 *)f15396,c,av);}
C_trace(C_text("c-backend.scm:75: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[119];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15401 in k5772 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f15401(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 *)f15401,c,av);}
C_trace(C_text("c-backend.scm:75: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[119];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15406 in k5793 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f15406(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 *)f15406,c,av);}
C_trace(C_text("c-backend.scm:75: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[119];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15414 in k6009 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f15414(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 *)f15414,c,av);}
C_trace(C_text("c-backend.scm:359: 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[142];
f_4688(3,av2);}}

/* f15419 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f15419(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 *)f15419,c,av);}
C_trace(C_text("c-backend.scm:74: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[196];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15424 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f15424(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 *)f15424,c,av);}
C_trace(C_text("c-backend.scm:75: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[119];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15437 in k6466 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f15437(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 *)f15437,c,av);}
C_trace(C_text("c-backend.scm:433: 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_4688(3,av2);}}

/* f15441 in k6529 in k6526 in k6523 in k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f15441(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 *)f15441,c,av);}
C_trace(C_text("c-backend.scm:465: 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_4688(4,av2);}}

/* f15448 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f15448(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 *)f15448,c,av);}
C_trace(C_text("c-backend.scm:74: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[196];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15453 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f15453(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 *)f15453,c,av);}
C_trace(C_text("c-backend.scm:75: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[119];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15524 in k7439 in k9164 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f15524(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 *)f15524,c,av);}
C_trace(C_text("c-backend.scm:75: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[119];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15531 in k9206 in for-each-loop1769 in k9184 in for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f15531(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 *)f15531,c,av);}
C_trace(C_text("c-backend.scm:74: chicken.string#string-translate*"));
t2=C_fast_retrieve(lf[118]);{
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[196];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* f15552 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f15552(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 *)f15552,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);}}

/* k10004 in k9980 in k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void f_10006(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_10006,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1165: scheme#string-append"));
t3=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=((C_word*)t2)[5];
av2[2]=((C_word*)t2)[4];
av2[3]=lf[536];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=C_eqp(((C_word*)t2)[6],lf[537]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10018,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_10018(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[6],lf[565]);
if(C_truep(t5)){
t6=t4;
f_10018(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[6],lf[566]);
t7=t4;
f_10018(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t2)[6],lf[567])));}}}}

/* k10016 in k10004 in k9980 in k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in ... */
static void f_10018(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_10018,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1168: scheme#string-append"));
t3=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=((C_word*)t2)[5];
av2[2]=((C_word*)t2)[4];
av2[3]=lf[538];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=C_eqp(((C_word*)t2)[6],lf[539]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10030,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_10030(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[6],lf[562]);
if(C_truep(t5)){
t6=t4;
f_10030(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[6],lf[563]);
if(C_truep(t6)){
t7=t4;
f_10030(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[6],lf[563]);
t8=t4;
f_10030(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t2)[6],lf[564])));}}}}}

/* k10028 in k10016 in k10004 in k9980 in k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in ... */
static void f_10030(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(3,0,7)))){
C_save_and_reclaim_args((void *)trf_10030,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1170: scheme#string-append"));
t3=*((C_word*)lf[154]+1);{
C_word av2[8];
av2[0]=t3;
av2[1]=((C_word*)t2)[5];
av2[2]=((C_word*)t2)[4];
av2[3]=lf[540];
av2[4]=((C_word*)t2)[3];
av2[5]=lf[541];
av2[6]=((C_word*)t2)[3];
av2[7]=lf[542];
((C_proc)(void*)(*((C_word*)t3+1)))(8,av2);}}
else{
t3=C_eqp(((C_word*)t2)[6],lf[543]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10042,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_10042(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[6],lf[558]);
if(C_truep(t5)){
t6=t4;
f_10042(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[6],lf[559]);
if(C_truep(t6)){
t7=t4;
f_10042(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[6],lf[560]);
t8=t4;
f_10042(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t2)[6],lf[561])));}}}}}

/* k10040 in k10028 in k10016 in k10004 in k9980 in k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in ... */
static void f_10042(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(3,0,5)))){
C_save_and_reclaim_args((void *)trf_10042,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1172: scheme#string-append"));
t3=*((C_word*)lf[154]+1);{
C_word av2[6];
av2[0]=t3;
av2[1]=((C_word*)t2)[5];
av2[2]=((C_word*)t2)[4];
av2[3]=lf[544];
av2[4]=((C_word*)t2)[3];
av2[5]=lf[545];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10048,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t2)[6]))){
C_trace(C_text("c-backend.scm:1174: 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*)t2)[6];
tp(3,av2);}}
else{
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_10048(2,av2);}}}}

/* k10046 in k10040 in k10028 in k10016 in k10004 in k9980 in k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in ... */
static void C_ccall f_10048(C_word c,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(8,c,3)))){
C_save_and_reclaim((void *)f_10048,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10052,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1174: g2157"));
t4=t3;
f_10052(t4,((C_word*)t2)[5],t1);}
else{
if(C_truep(C_i_pairp(((C_word*)t2)[6]))){
t3=C_u_i_car(((C_word*)t2)[6]);
t4=C_eqp(t3,lf[546]);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10079,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[4],a[4]=t3,a[5]=((C_word*)t2)[2],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[3],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t4)){
t6=t5;
f_10079(t6,t4);}
else{
t6=C_eqp(t3,lf[549]);
if(C_truep(t6)){
t7=t5;
f_10079(t7,t6);}
else{
t7=C_eqp(t3,lf[550]);
if(C_truep(t7)){
t8=t5;
f_10079(t8,t7);}
else{
t8=C_eqp(t3,lf[551]);
if(C_truep(t8)){
t9=t5;
f_10079(t9,t8);}
else{
t9=C_eqp(t3,lf[552]);
if(C_truep(t9)){
t10=t5;
f_10079(t10,t9);}
else{
t10=C_eqp(t3,lf[553]);
if(C_truep(t10)){
t11=t5;
f_10079(t11,t10);}
else{
t11=C_eqp(t3,lf[554]);
if(C_truep(t11)){
t12=t5;
f_10079(t12,t11);}
else{
t12=C_eqp(t3,lf[555]);
t13=t5;
f_10079(t13,(C_truep(t12)?t12:C_eqp(t3,lf[556])));}}}}}}}}
else{
t3=((C_word*)t2)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* g2157 in k10046 in k10040 in k10028 in k10016 in k10004 in k9980 in k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
static void f_10052(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_10052,3,t0,t1,t2);}
C_trace(C_text("c-backend.scm:1175: compute-size"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_9963(t3,t1,C_i_vector_ref(t2,C_fix(0)),((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k10077 in k10046 in k10040 in k10028 in k10016 in k10004 in k9980 in k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
static void f_10079(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_10079,2,t0,t1);}
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1180: scheme#string-append"));
t2=*((C_word*)lf[154]+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_trace(C_text("c-backend.scm:1181: compute-size"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_9963(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);}}}}

/* k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_10442(C_word c,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_10442,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10445,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1190: 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_4688(3,av2);}}

/* k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_10445(C_word c,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,2)))){
C_save_and_reclaim((void *)f_10445,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10448,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t2)[10])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10553,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1192: cleanup"));
f_9392(t4,((C_word*)t2)[10]);}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_10448(2,av2);}}}

/* k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_10448(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_10448,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10451,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_trace(C_text("c-backend.scm:1193: generate-foreign-callback-header"));
f_10612(t2,lf[603],((C_word*)t0)[9]);}

/* k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_10451(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_10451,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10454,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_trace(C_text("c-backend.scm:1194: 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_4688(8,av2);}}
else{
C_trace(C_text("c-backend.scm:1194: 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_4688(8,av2);}}}

/* k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in ... */
static void C_ccall f_10454(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_10454,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10457,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1196: 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_4688(4,av2);}}

/* k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in ... */
static void C_ccall f_10457(C_word c,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_10457,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10469,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:1201: scheme#reverse"));
t4=*((C_word*)lf[595]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[7];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k10464 in for-each-loop2198 in k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in ... */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10466,c,av);}
C_trace(C_text("c-backend.scm:1199: 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_4688(9,av2);}}

/* k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in ... */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_10469,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10472,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_trace(C_text("c-backend.scm:1202: 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);}}

/* k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in ... */
static void C_ccall f_10472(C_word c,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_10472,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10475,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_10505,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_10505(t6,t2,((C_word*)t0)[6],t1);}

/* k10473 in k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
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 t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_10475,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10478,a[2]=t0,tmp=(C_word)a,a+=3,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_10478(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10503,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1204: foreign-argument-conversion"));
f_11862(t4,((C_word*)t0)[3]);}}

/* k10476 in k10473 in k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in ... */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_10478,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10481,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1205: gen"));
t4=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[589];
av2[3]=((C_word*)t2)[4];
av2[4]=C_make_character(44);
av2[5]=((C_word*)t2)[5];
av2[6]=C_make_character(41);
f_4688(7,av2);}}

/* k10479 in k10476 in k10473 in k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in ... */
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 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_10481,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10484,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_trace(C_text("c-backend.scm:1207: 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_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:1206: 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_4688(3,av2);}}}

/* k10482 in k10479 in k10476 in k10473 in k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in ... */
static void C_ccall f_10484(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_10484,c,av);}
C_trace(C_text("c-backend.scm:1207: 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_4688(3,av2);}}

/* k10501 in k10473 in k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in ... */
static void C_ccall f_10503(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_10503,c,av);}
C_trace(C_text("c-backend.scm:1204: 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_4688(5,av2);}}

/* for-each-loop2198 in k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
static void f_10505(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_10505,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_10515,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_10466,a[2]=t6,a[3]=t7,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1199: foreign-result-conversion"));
f_12637(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);}}}

/* k10513 in for-each-loop2198 in k10470 in k10467 in k10455 in k10452 in k10449 in k10446 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in ... */
static void C_ccall f_10515(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_10515,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10505(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10551 in k10443 in k10440 in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_10553(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_10553,c,av);}
C_trace(C_text("c-backend.scm:1192: 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_4688(6,av2);}}

/* loop in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void f_10555(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_10555,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_10577,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:1189: compute-size"));
t8=((C_word*)((C_word*)t0)[3])[1];
f_9963(t8,t7,C_u_i_car(t2),C_u_i_car(t3),t4);}}

/* k10575 in loop in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_10577(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_10577,c,av);}
C_trace(C_text("c-backend.scm:1188: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_10555(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* for-each-loop2018 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_10589(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_10589,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_10599,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1144: g2019"));
t4=((C_word*)t0)[3];
f_9942(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);}}}

/* k10597 in for-each-loop2018 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10599(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_10599,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10589(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_10612(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(7,0,2)))){
C_save_and_reclaim_args((void *)trf_10612,3,t1,t2,t3);}
a=C_alloc(7);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10616,a[2]=t1,a[3]=t2,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:1211: 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);}}

/* k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10616(C_word c,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_10616,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10619,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1212: 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]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10619(C_word c,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_10619,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10622,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1213: 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]=t4;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}

/* k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10622(C_word c,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_10622,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10625,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("c-backend.scm:1214: 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]=t3;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}

/* k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10625(C_word c,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,3)))){
C_save_and_reclaim((void *)f_10625,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_length(((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10631,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1216: make-argument-list"));
f_9485(t4,t3,lf[674]);}

/* k10629 in k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10631(C_word c,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,3)))){
C_save_and_reclaim((void *)f_10631,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10634,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10686,a[2]=t3,a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:1217: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[7];
av2[3]=lf[673];
tp(4,av2);}}

/* k10632 in k10629 in k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10634(C_word c,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_10634,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10637,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_10642,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_10642(t6,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k10635 in k10632 in k10629 in k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10637(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_10637,c,av);}
C_trace(C_text("c-backend.scm:1223: 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_4688(3,av2);}}

/* loop in k10632 in k10629 in k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_10642(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_10642,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_10652,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_10674,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1220: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t5;
av2[2]=C_i_car(t3);
av2[3]=C_i_car(t2);
tp(4,av2);}}}

/* k10650 in loop in k10632 in k10629 in k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10652(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_10652,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10655,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[4])))){
C_trace(C_text("c-backend.scm:1221: 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_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:1222: loop"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_10642(t3,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}}

/* k10653 in k10650 in loop in k10632 in k10629 in k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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,3)))){
C_save_and_reclaim((void *)f_10655,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1222: loop"));
t3=((C_word*)((C_word*)t2)[2])[1];
f_10642(t3,((C_word*)t2)[3],C_u_i_cdr(((C_word*)t2)[4]),C_u_i_cdr(((C_word*)t2)[5]));}

/* k10672 in loop in k10632 in k10629 in k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10674(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_10674,c,av);}
C_trace(C_text("c-backend.scm:1220: 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_4688(3,av2);}}

/* k10684 in k10629 in k10623 in k10620 in k10617 in k10614 in chicken.compiler.c-backend#generate-foreign-callback-header in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10686(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_10686,c,av);}
C_trace(C_text("c-backend.scm:1217: 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_4688(10,av2);}}

/* chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_10688(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_10688,c,av);}
a=C_alloc(13);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10690,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10695,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t6=C_eqp(t2,lf[582]);
if(C_truep(t6)){
C_trace(C_text("c-backend.scm:1232: str"));
t7=t5;
f_10695(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_trace(C_text("c-backend.scm:1233: str"));
t9=t5;
f_10695(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_trace(C_text("c-backend.scm:1234: str"));
t11=t5;
f_10695(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_trace(C_text("c-backend.scm:1235: str"));
t13=t5;
f_10695(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_trace(C_text("c-backend.scm:1236: str"));
t15=t5;
f_10695(t15,t1,lf[684]);}
else{
t15=C_eqp(t2,lf[577]);
t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10765,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t15)){
t17=t16;
f_10765(t17,t15);}
else{
t17=C_eqp(t2,lf[570]);
t18=t16;
f_10765(t18,(C_truep(t17)?t17:C_eqp(t2,lf[14])));}}}}}}}

/* err in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_10690(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_10690,2,t0,t1);}
C_trace(C_text("c-backend.scm:1229: 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 k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_10695(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_10695,3,t0,t1,t2);}
C_trace(C_text("c-backend.scm:1230: scheme#string-append"));
t3=*((C_word*)lf[154]+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);}}

/* k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_10765(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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_10765,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1237: str"));
t2=((C_word*)t0)[5];
f_10695(t2,((C_word*)t0)[3],lf[685]);}
else{
t2=C_eqp(((C_word*)t0)[4],lf[566]);
if(C_truep(t2)){
C_trace(C_text("c-backend.scm:1238: str"));
t3=((C_word*)t0)[5];
f_10695(t3,((C_word*)t0)[3],lf[686]);}
else{
t3=C_eqp(((C_word*)t0)[4],lf[567]);
if(C_truep(t3)){
C_trace(C_text("c-backend.scm:1239: str"));
t4=((C_word*)t0)[5];
f_10695(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_trace(C_text("c-backend.scm:1240: str"));
t6=((C_word*)t0)[5];
f_10695(t6,((C_word*)t0)[3],lf[688]);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[565]);
if(C_truep(t6)){
C_trace(C_text("c-backend.scm:1241: str"));
t7=((C_word*)t0)[5];
f_10695(t7,((C_word*)t0)[3],lf[689]);}
else{
t7=C_eqp(((C_word*)t0)[4],lf[537]);
if(C_truep(t7)){
C_trace(C_text("c-backend.scm:1242: str"));
t8=((C_word*)t0)[5];
f_10695(t8,((C_word*)t0)[3],lf[690]);}
else{
t8=C_eqp(((C_word*)t0)[4],lf[579]);
if(C_truep(t8)){
C_trace(C_text("c-backend.scm:1243: str"));
t9=((C_word*)t0)[5];
f_10695(t9,((C_word*)t0)[3],lf[691]);}
else{
t9=C_eqp(((C_word*)t0)[4],lf[569]);
if(C_truep(t9)){
C_trace(C_text("c-backend.scm:1244: str"));
t10=((C_word*)t0)[5];
f_10695(t10,((C_word*)t0)[3],lf[692]);}
else{
t10=C_eqp(((C_word*)t0)[4],lf[581]);
if(C_truep(t10)){
C_trace(C_text("c-backend.scm:1245: str"));
t11=((C_word*)t0)[5];
f_10695(t11,((C_word*)t0)[3],lf[693]);}
else{
t11=C_eqp(((C_word*)t0)[4],lf[572]);
if(C_truep(t11)){
C_trace(C_text("c-backend.scm:1246: str"));
t12=((C_word*)t0)[5];
f_10695(t12,((C_word*)t0)[3],lf[694]);}
else{
t12=C_eqp(((C_word*)t0)[4],lf[530]);
if(C_truep(t12)){
C_trace(C_text("c-backend.scm:1247: str"));
t13=((C_word*)t0)[5];
f_10695(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_trace(C_text("c-backend.scm:1248: str"));
t15=((C_word*)t0)[5];
f_10695(t15,((C_word*)t0)[3],lf[696]);}
else{
t15=C_eqp(((C_word*)t0)[4],lf[532]);
t16=(C_truep(t15)?t15:C_eqp(((C_word*)t0)[4],lf[533]));
if(C_truep(t16)){
C_trace(C_text("c-backend.scm:1249: str"));
t17=((C_word*)t0)[5];
f_10695(t17,((C_word*)t0)[3],lf[697]);}
else{
t17=C_eqp(((C_word*)t0)[4],lf[550]);
t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10894,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t17)){
t19=t18;
f_10894(t19,t17);}
else{
t19=C_eqp(((C_word*)t0)[4],lf[552]);
if(C_truep(t19)){
t20=t18;
f_10894(t20,t19);}
else{
t20=C_eqp(((C_word*)t0)[4],lf[775]);
t21=t18;
f_10894(t21,(C_truep(t20)?t20:C_eqp(((C_word*)t0)[4],lf[776])));}}}}}}}}}}}}}}}}

/* k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_10894(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_10894,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1250: str"));
t3=((C_word*)t2)[5];
f_10695(t3,((C_word*)t2)[3],lf[698]);}
else{
t3=C_eqp(((C_word*)t2)[4],lf[575]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[4],lf[576]));
if(C_truep(t4)){
t5=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[699];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[4],lf[700]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10915,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t5)){
t7=t6;
f_10915(t7,t5);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[772]);
if(C_truep(t7)){
t8=t6;
f_10915(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[4],lf[773]);
t9=t6;
f_10915(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t2)[4],lf[774])));}}}}}

/* k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_10915(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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_10915,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1252: str"));
t3=((C_word*)t2)[5];
f_10695(t3,((C_word*)t2)[3],lf[701]);}
else{
t3=C_eqp(((C_word*)t2)[4],lf[702]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[4],lf[703]));
if(C_truep(t4)){
C_trace(C_text("c-backend.scm:1253: str"));
t5=((C_word*)t2)[5];
f_10695(t5,((C_word*)t2)[3],lf[704]);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[705]);
t6=(C_truep(t5)?t5:C_eqp(((C_word*)t2)[4],lf[706]));
if(C_truep(t6)){
C_trace(C_text("c-backend.scm:1254: str"));
t7=((C_word*)t2)[5];
f_10695(t7,((C_word*)t2)[3],lf[707]);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[708]);
t8=(C_truep(t7)?t7:C_eqp(((C_word*)t2)[4],lf[709]));
if(C_truep(t8)){
C_trace(C_text("c-backend.scm:1255: str"));
t9=((C_word*)t2)[5];
f_10695(t9,((C_word*)t2)[3],lf[710]);}
else{
t9=C_eqp(((C_word*)t2)[4],lf[711]);
t10=(C_truep(t9)?t9:C_eqp(((C_word*)t2)[4],lf[712]));
if(C_truep(t10)){
C_trace(C_text("c-backend.scm:1256: str"));
t11=((C_word*)t2)[5];
f_10695(t11,((C_word*)t2)[3],lf[713]);}
else{
t11=C_eqp(((C_word*)t2)[4],lf[714]);
t12=(C_truep(t11)?t11:C_eqp(((C_word*)t2)[4],lf[715]));
if(C_truep(t12)){
C_trace(C_text("c-backend.scm:1257: str"));
t13=((C_word*)t2)[5];
f_10695(t13,((C_word*)t2)[3],lf[716]);}
else{
t13=C_eqp(((C_word*)t2)[4],lf[717]);
t14=(C_truep(t13)?t13:C_eqp(((C_word*)t2)[4],lf[718]));
if(C_truep(t14)){
C_trace(C_text("c-backend.scm:1258: str"));
t15=((C_word*)t2)[5];
f_10695(t15,((C_word*)t2)[3],lf[719]);}
else{
t15=C_eqp(((C_word*)t2)[4],lf[720]);
t16=(C_truep(t15)?t15:C_eqp(((C_word*)t2)[4],lf[721]));
if(C_truep(t16)){
C_trace(C_text("c-backend.scm:1259: str"));
t17=((C_word*)t2)[5];
f_10695(t17,((C_word*)t2)[3],lf[722]);}
else{
t17=C_eqp(((C_word*)t2)[4],lf[723]);
t18=(C_truep(t17)?t17:C_eqp(((C_word*)t2)[4],lf[724]));
if(C_truep(t18)){
C_trace(C_text("c-backend.scm:1260: str"));
t19=((C_word*)t2)[5];
f_10695(t19,((C_word*)t2)[3],lf[725]);}
else{
t19=C_eqp(((C_word*)t2)[4],lf[726]);
t20=(C_truep(t19)?t19:C_eqp(((C_word*)t2)[4],lf[727]));
if(C_truep(t20)){
C_trace(C_text("c-backend.scm:1261: str"));
t21=((C_word*)t2)[5];
f_10695(t21,((C_word*)t2)[3],lf[728]);}
else{
t21=C_eqp(((C_word*)t2)[4],lf[729]);
t22=(C_truep(t21)?t21:C_eqp(((C_word*)t2)[4],lf[730]));
if(C_truep(t22)){
C_trace(C_text("c-backend.scm:1262: str"));
t23=((C_word*)t2)[5];
f_10695(t23,((C_word*)t2)[3],lf[731]);}
else{
t23=C_eqp(((C_word*)t2)[4],lf[732]);
t24=(C_truep(t23)?t23:C_eqp(((C_word*)t2)[4],lf[733]));
if(C_truep(t24)){
C_trace(C_text("c-backend.scm:1263: str"));
t25=((C_word*)t2)[5];
f_10695(t25,((C_word*)t2)[3],lf[734]);}
else{
t25=C_eqp(((C_word*)t2)[4],lf[543]);
t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11059,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t25)){
t27=t26;
f_11059(t27,t25);}
else{
t27=C_eqp(((C_word*)t2)[4],lf[539]);
if(C_truep(t27)){
t28=t26;
f_11059(t28,t27);}
else{
t28=C_eqp(((C_word*)t2)[4],lf[558]);
if(C_truep(t28)){
t29=t26;
f_11059(t29,t28);}
else{
t29=C_eqp(((C_word*)t2)[4],lf[562]);
t30=t26;
f_11059(t30,(C_truep(t29)?t29:C_eqp(((C_word*)t2)[4],lf[561])));}}}}}}}}}}}}}}}}

/* k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11059(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_11059,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1265: str"));
t3=((C_word*)t2)[5];
f_10695(t3,((C_word*)t2)[3],lf[735]);}
else{
t3=C_eqp(((C_word*)t2)[4],lf[559]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11071,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_11071(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[4],lf[560]);
if(C_truep(t5)){
t6=t4;
f_11071(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[563]);
t7=t4;
f_11071(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t2)[4],lf[564])));}}}}

/* k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11071(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_11071,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1267: str"));
t3=((C_word*)t2)[5];
f_10695(t3,((C_word*)t2)[3],lf[736]);}
else{
t3=C_eqp(((C_word*)t2)[4],lf[580]);
if(C_truep(t3)){
C_trace(C_text("c-backend.scm:1268: str"));
t4=((C_word*)t2)[5];
f_10695(t4,((C_word*)t2)[3],lf[737]);}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11086,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t2)[4]))){
C_trace(C_text("c-backend.scm:1270: 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]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_11086(2,av2);}}}}}

/* k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11086(C_word c,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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_11086,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11090,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1270: g2373"));
t4=t3;
f_11090(t4,((C_word*)t2)[3],t1);}
else{
if(C_truep(C_i_stringp(((C_word*)t2)[4]))){
C_trace(C_text("c-backend.scm:1273: str"));
t3=((C_word*)t2)[5];
f_10695(t3,((C_word*)t2)[3],((C_word*)t2)[4]);}
else{
if(C_truep(C_i_listp(((C_word*)t2)[4]))){
t3=C_u_i_length(((C_word*)t2)[4]);
t4=C_eqp(C_fix(2),t3);
t5=(C_truep(t4)?C_u_i_memq(C_i_car(((C_word*)t2)[4]),lf[738]):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_i_cadr(((C_word*)t2)[4]);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11134,a[2]=((C_word*)t2)[3],a[3]=t6,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1281: scheme#string-append"));
t8=*((C_word*)lf[154]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[739];
av2[3]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
t6=C_eqp(C_fix(2),t3);
t7=(C_truep(t6)?C_eqp(lf[546],C_i_car(((C_word*)t2)[4])):C_SCHEME_FALSE);
if(C_truep(t7)){
t8=C_i_cadr(((C_word*)t2)[4]);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11151,a[2]=((C_word*)t2)[3],a[3]=t8,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1284: scheme#string-append"));
t10=*((C_word*)lf[154]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t10;
av2[1]=t9;
av2[2]=lf[740];
av2[3]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}
else{
t8=C_fixnum_greaterp(t3,C_fix(2));
t9=(C_truep(t8)?C_eqp(lf[741],C_i_car(((C_word*)t2)[4])):C_SCHEME_FALSE);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11164,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11168,a[2]=t10,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1289: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t11;
av2[2]=C_i_cadr(((C_word*)t2)[4]);
av2[3]=lf[746];
tp(4,av2);}}
else{
t10=C_eqp(t3,C_fix(2));
t11=(C_truep(t10)?C_eqp(lf[548],C_i_car(((C_word*)t2)[4])):C_SCHEME_FALSE);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11241,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1296: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t12;
av2[2]=C_i_cadr(((C_word*)t2)[4]);
av2[3]=((C_word*)t2)[2];
tp(4,av2);}}
else{
t12=C_eqp(t3,C_fix(2));
t13=(C_truep(t12)?C_eqp(lf[748],C_i_car(((C_word*)t2)[4])):C_SCHEME_FALSE);
if(C_truep(t13)){
t14=C_i_cadr(((C_word*)t2)[4]);
if(C_truep(C_i_listp(t14))){
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11264,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11268,a[2]=t15,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1299: scheme#caadr"));
t17=*((C_word*)lf[750]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t17;
av2[1]=t16;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}}
else{
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11275,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1300: chicken.string#->string"));
t16=C_fast_retrieve(lf[120]);{
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*)t2)[4]);
((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}}}
else{
t14=C_eqp(t3,C_fix(2));
t15=(C_truep(t14)?C_eqp(lf[753],C_i_car(((C_word*)t2)[4])):C_SCHEME_FALSE);
if(C_truep(t15)){
t16=C_i_cadr(((C_word*)t2)[4]);
if(C_truep(C_i_listp(t16))){
t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11302,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11306,a[2]=t17,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1303: scheme#caadr"));
t19=*((C_word*)lf[750]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t19;
av2[1]=t18;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}
else{
t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11313,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1304: chicken.string#->string"));
t18=C_fast_retrieve(lf[120]);{
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*)t2)[4]);
((C_proc)(void*)(*((C_word*)t18+1)))(3,av2);}}}
else{
t16=C_eqp(t3,C_fix(2));
t17=(C_truep(t16)?C_eqp(lf[757],C_i_car(((C_word*)t2)[4])):C_SCHEME_FALSE);
if(C_truep(t17)){
t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11334,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1306: chicken.string#->string"));
t19=C_fast_retrieve(lf[120]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t19;
av2[1]=t18;
av2[2]=C_i_cadr(((C_word*)t2)[4]);
((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}
else{
t18=C_eqp(t3,C_fix(3));
t19=(C_truep(t18)?C_u_i_memq(C_i_car(((C_word*)t2)[4]),lf[760]):C_SCHEME_FALSE);
if(C_truep(t19)){
t20=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11351,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1308: chicken.string#->string"));
t21=C_fast_retrieve(lf[120]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t21;
av2[1]=t20;
av2[2]=C_i_cadr(((C_word*)t2)[4]);
((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}}
else{
t20=C_eqp(t3,C_fix(3));
t21=(C_truep(t20)?C_eqp(lf[556],C_i_car(((C_word*)t2)[4])):C_SCHEME_FALSE);
if(C_truep(t21)){
t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11368,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1310: chicken.string#->string"));
t23=C_fast_retrieve(lf[120]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t23;
av2[1]=t22;
av2[2]=C_i_cadr(((C_word*)t2)[4]);
((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}}
else{
t22=C_fixnum_greater_or_equal_p(t3,C_fix(3));
t23=(C_truep(t22)?C_eqp(lf[553],C_i_car(((C_word*)t2)[4])):C_SCHEME_FALSE);
if(C_truep(t23)){
t24=C_i_cadr(((C_word*)t2)[4]);
t25=C_i_caddr(((C_word*)t2)[4]);
t26=C_u_i_cdr(((C_word*)t2)[4]);
t27=C_u_i_cdr(t26);
t28=C_u_i_cdr(t27);
t29=C_i_nullp(t28);
t30=(C_truep(t29)?lf[763]:C_i_car(t28));
t31=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11397,a[2]=((C_word*)t2)[3],a[3]=t30,a[4]=((C_word*)t2)[2],a[5]=t25,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:1316: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t31;
av2[2]=t24;
av2[3]=lf[771];
tp(4,av2);}}
else{
C_trace(C_text("c-backend.scm:1327: err"));
t24=((C_word*)t2)[6];
f_10690(t24,((C_word*)t2)[3]);}}}}}}}}}}}
else{
C_trace(C_text("c-backend.scm:1328: err"));
t3=((C_word*)t2)[6];
f_10690(t3,((C_word*)t2)[3]);}}}}

/* g2373 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11090(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_11090,3,t0,t1,t2);}
C_trace(C_text("c-backend.scm:1272: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t1;
av2[2]=C_i_vector_ref(t2,C_fix(0));
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* k11132 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11134(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_11134,c,av);}
C_trace(C_text("c-backend.scm:1281: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k11149 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11151(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_11151,c,av);}
C_trace(C_text("c-backend.scm:1284: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k11162 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11164(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_11164,c,av);}
C_trace(C_text("c-backend.scm:1287: str"));
t2=((C_word*)t0)[2];
f_10695(t2,((C_word*)t0)[3],t1);}

/* k11166 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11168(C_word c,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_11168,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11172,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[310]);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11190,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_11192,a[2]=t5,a[3]=t11,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t13=((C_word*)t11)[1];
f_11192(t13,t9,t7);}

/* k11170 in k11166 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11172(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_11172,c,av);}
C_trace(C_text("c-backend.scm:1288: scheme#string-append"));
t2=*((C_word*)lf[154]+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[742];
av2[4]=t1;
av2[5]=lf[743];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k11188 in k11166 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11190(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_11190,c,av);}
C_trace(C_text("c-backend.scm:1291: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[303]);{
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[744];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop2386 in k11166 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11192(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_11192,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_11217,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[245]+1);
C_trace(C_text("c-backend.scm:1292: g2409"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[745];
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);}}}

/* k11215 in map-loop2386 in k11166 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11217(C_word c,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_11217,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_11192(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11239 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11241(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_11241,c,av);}
C_trace(C_text("c-backend.scm:1296: scheme#string-append"));
t2=*((C_word*)lf[154]+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[747];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k11262 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11264(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_11264,c,av);}
C_trace(C_text("c-backend.scm:1299: scheme#string-append"));
t2=*((C_word*)lf[154]+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[749];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k11266 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11268(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_11268,c,av);}
C_trace(C_text("c-backend.scm:1299: chicken.string#->string"));
t2=C_fast_retrieve(lf[120]);{
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;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k11273 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11275(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_11275,c,av);}
C_trace(C_text("c-backend.scm:1300: scheme#string-append"));
t2=*((C_word*)lf[154]+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);}}

/* k11300 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11302(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_11302,c,av);}
C_trace(C_text("c-backend.scm:1303: scheme#string-append"));
t2=*((C_word*)lf[154]+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);}}

/* k11304 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11306(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_11306,c,av);}
C_trace(C_text("c-backend.scm:1303: chicken.string#->string"));
t2=C_fast_retrieve(lf[120]);{
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;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k11311 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11313(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_11313,c,av);}
C_trace(C_text("c-backend.scm:1304: scheme#string-append"));
t2=*((C_word*)lf[154]+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[755];
av2[3]=t1;
av2[4]=lf[756];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k11332 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11334(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_11334,c,av);}
C_trace(C_text("c-backend.scm:1306: scheme#string-append"));
t2=*((C_word*)lf[154]+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[758];
av2[3]=t1;
av2[4]=lf[759];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k11349 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11351(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_11351,c,av);}
C_trace(C_text("c-backend.scm:1308: scheme#string-append"));
t2=*((C_word*)lf[154]+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[761];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k11366 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11368(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_11368,c,av);}
C_trace(C_text("c-backend.scm:1310: scheme#string-append"));
t2=*((C_word*)lf[154]+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[762];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k11395 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11397(C_word c,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_11397,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11401,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[310]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11422,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_11424,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_11424(t12,t8,((C_word*)t0)[5]);}

/* k11399 in k11395 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11401(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_11401,c,av);}
C_trace(C_text("c-backend.scm:1315: scheme#string-append"));
t2=*((C_word*)lf[154]+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[764];
av2[5]=((C_word*)t0)[5];
av2[6]=lf[765];
av2[7]=t1;
av2[8]=lf[766];
((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}}

/* k11420 in k11395 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11422(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_11422,c,av);}
C_trace(C_text("c-backend.scm:1319: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[303]);{
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[767];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop2434 in k11395 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11424(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_11424,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_11434,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_11449,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=C_slot(t2,C_fix(0));
t6=C_eqp(lf[768],t5);
if(C_truep(t6)){
t7=t3;
f_11434(t7,C_a_i_cons(&a,2,lf[769],C_SCHEME_END_OF_LIST));}
else{
C_trace(C_text("c-backend.scm:1323: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t4;
av2[2]=t5;
av2[3]=lf[770];
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);}}}

/* k11432 in map-loop2434 in k11395 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11434(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_11434,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_11424(t4,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11447 in map-loop2434 in k11395 in k11084 in k11069 in k11057 in k10913 in k10892 in k10763 in chicken.compiler.c-backend#foreign-type-declaration in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_11449(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_11449,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
f_11434(t2,C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST));}

/* chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11862(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_11862,2,t1,t2);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11864,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[778];
((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[779];
((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_11892,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t7)){
t9=t8;
f_11892(t9,t7);}
else{
t9=C_eqp(t2,lf[577]);
if(C_truep(t9)){
t10=t8;
f_11892(t10,t9);}
else{
t10=C_eqp(t2,lf[578]);
if(C_truep(t10)){
t11=t8;
f_11892(t11,t10);}
else{
t11=C_eqp(t2,lf[584]);
if(C_truep(t11)){
t12=t8;
f_11892(t12,t11);}
else{
t12=C_eqp(t2,lf[585]);
t13=t8;
f_11892(t13,(C_truep(t12)?t12:C_eqp(t2,lf[587])));}}}}}}}

/* err in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11864(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_11864,2,t0,t1);}
C_trace(C_text("c-backend.scm:1335: 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[777];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11892(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_11892,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=lf[780];
((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[781];
((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[782];
((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[783];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t0)[3],lf[574]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11919,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t5)){
t7=t6;
f_11919(t7,t5);}
else{
t7=C_eqp(((C_word*)t0)[3],lf[573]);
t8=t6;
f_11919(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[530])));}}}}}}

/* k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_11919(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 t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_11919,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[784];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[532]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[3],lf[533]));
if(C_truep(t4)){
t5=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[785];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_eqp(((C_word*)t2)[3],lf[570]);
t6=(C_truep(t5)?t5:C_eqp(((C_word*)t2)[3],lf[571]));
if(C_truep(t6)){
t7=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t7;
av2[1]=lf[786];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(((C_word*)t2)[3],lf[565]);
if(C_truep(t7)){
t8=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t8;
av2[1]=lf[787];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(((C_word*)t2)[3],lf[566]);
if(C_truep(t8)){
t9=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t9;
av2[1]=lf[788];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(((C_word*)t2)[3],lf[567]);
if(C_truep(t9)){
t10=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t10;
av2[1]=lf[789];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=C_eqp(((C_word*)t2)[3],lf[537]);
if(C_truep(t10)){
t11=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t11;
av2[1]=lf[790];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(((C_word*)t2)[3],lf[569]);
if(C_truep(t11)){
t12=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t12;
av2[1]=lf[791];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(((C_word*)t2)[3],lf[535]);
t13=(C_truep(t12)?t12:C_eqp(((C_word*)t2)[3],lf[568]));
if(C_truep(t13)){
t14=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t14;
av2[1]=lf[792];
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t14=C_eqp(((C_word*)t2)[3],lf[775]);
if(C_truep(t14)){
t15=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t15;
av2[1]=lf[793];
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t15=C_eqp(((C_word*)t2)[3],lf[776]);
if(C_truep(t15)){
t16=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t16;
av2[1]=lf[794];
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}
else{
t16=C_eqp(((C_word*)t2)[3],lf[550]);
if(C_truep(t16)){
t17=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t17;
av2[1]=lf[795];
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
t17=C_eqp(((C_word*)t2)[3],lf[552]);
if(C_truep(t17)){
t18=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t18;
av2[1]=lf[796];
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
else{
t18=C_eqp(((C_word*)t2)[3],lf[773]);
t19=(C_truep(t18)?t18:C_eqp(((C_word*)t2)[3],lf[700]));
if(C_truep(t19)){
t20=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t20;
av2[1]=lf[797];
((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}
else{
t20=C_eqp(((C_word*)t2)[3],lf[772]);
t21=(C_truep(t20)?t20:C_eqp(((C_word*)t2)[3],lf[774]));
if(C_truep(t21)){
t22=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t22;
av2[1]=lf[798];
((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}
else{
t22=C_eqp(((C_word*)t2)[3],lf[702]);
if(C_truep(t22)){
t23=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t23;
av2[1]=lf[799];
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}
else{
t23=C_eqp(((C_word*)t2)[3],lf[703]);
if(C_truep(t23)){
t24=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t24;
av2[1]=lf[800];
((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}}
else{
t24=C_eqp(((C_word*)t2)[3],lf[705]);
if(C_truep(t24)){
t25=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t25;
av2[1]=lf[801];
((C_proc)(void*)(*((C_word*)t25+1)))(2,av2);}}
else{
t25=C_eqp(((C_word*)t2)[3],lf[706]);
if(C_truep(t25)){
t26=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t26;
av2[1]=lf[802];
((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}}
else{
t26=C_eqp(((C_word*)t2)[3],lf[711]);
if(C_truep(t26)){
t27=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t27;
av2[1]=lf[803];
((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}}
else{
t27=C_eqp(((C_word*)t2)[3],lf[712]);
if(C_truep(t27)){
t28=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t28;
av2[1]=lf[804];
((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}}
else{
t28=C_eqp(((C_word*)t2)[3],lf[714]);
if(C_truep(t28)){
t29=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t29;
av2[1]=lf[805];
((C_proc)(void*)(*((C_word*)t29+1)))(2,av2);}}
else{
t29=C_eqp(((C_word*)t2)[3],lf[715]);
if(C_truep(t29)){
t30=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t30;
av2[1]=lf[806];
((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}}
else{
t30=C_eqp(((C_word*)t2)[3],lf[708]);
if(C_truep(t30)){
t31=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t31;
av2[1]=lf[807];
((C_proc)(void*)(*((C_word*)t31+1)))(2,av2);}}
else{
t31=C_eqp(((C_word*)t2)[3],lf[709]);
if(C_truep(t31)){
t32=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t32;
av2[1]=lf[808];
((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}}
else{
t32=C_eqp(((C_word*)t2)[3],lf[717]);
if(C_truep(t32)){
t33=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t33;
av2[1]=lf[809];
((C_proc)(void*)(*((C_word*)t33+1)))(2,av2);}}
else{
t33=C_eqp(((C_word*)t2)[3],lf[718]);
if(C_truep(t33)){
t34=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t34;
av2[1]=lf[810];
((C_proc)(void*)(*((C_word*)t34+1)))(2,av2);}}
else{
t34=C_eqp(((C_word*)t2)[3],lf[720]);
if(C_truep(t34)){
t35=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t35;
av2[1]=lf[811];
((C_proc)(void*)(*((C_word*)t35+1)))(2,av2);}}
else{
t35=C_eqp(((C_word*)t2)[3],lf[721]);
if(C_truep(t35)){
t36=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t36;
av2[1]=lf[812];
((C_proc)(void*)(*((C_word*)t36+1)))(2,av2);}}
else{
t36=C_eqp(((C_word*)t2)[3],lf[723]);
if(C_truep(t36)){
t37=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t37;
av2[1]=lf[813];
((C_proc)(void*)(*((C_word*)t37+1)))(2,av2);}}
else{
t37=C_eqp(((C_word*)t2)[3],lf[724]);
if(C_truep(t37)){
t38=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t38;
av2[1]=lf[814];
((C_proc)(void*)(*((C_word*)t38+1)))(2,av2);}}
else{
t38=C_eqp(((C_word*)t2)[3],lf[726]);
if(C_truep(t38)){
t39=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t39;
av2[1]=lf[815];
((C_proc)(void*)(*((C_word*)t39+1)))(2,av2);}}
else{
t39=C_eqp(((C_word*)t2)[3],lf[727]);
if(C_truep(t39)){
t40=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t40;
av2[1]=lf[816];
((C_proc)(void*)(*((C_word*)t40+1)))(2,av2);}}
else{
t40=C_eqp(((C_word*)t2)[3],lf[729]);
if(C_truep(t40)){
t41=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t41;
av2[1]=lf[817];
((C_proc)(void*)(*((C_word*)t41+1)))(2,av2);}}
else{
t41=C_eqp(((C_word*)t2)[3],lf[730]);
if(C_truep(t41)){
t42=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t42;
av2[1]=lf[818];
((C_proc)(void*)(*((C_word*)t42+1)))(2,av2);}}
else{
t42=C_eqp(((C_word*)t2)[3],lf[732]);
if(C_truep(t42)){
t43=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t43;
av2[1]=lf[819];
((C_proc)(void*)(*((C_word*)t43+1)))(2,av2);}}
else{
t43=C_eqp(((C_word*)t2)[3],lf[733]);
if(C_truep(t43)){
t44=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t44;
av2[1]=lf[820];
((C_proc)(void*)(*((C_word*)t44+1)))(2,av2);}}
else{
t44=C_eqp(((C_word*)t2)[3],lf[539]);
t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12159,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t44)){
t46=t45;
f_12159(t46,t44);}
else{
t46=C_eqp(((C_word*)t2)[3],lf[562]);
if(C_truep(t46)){
t47=t45;
f_12159(t47,t46);}
else{
t47=C_eqp(((C_word*)t2)[3],lf[563]);
t48=t45;
f_12159(t48,(C_truep(t47)?t47:C_eqp(((C_word*)t2)[3],lf[564])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_12159(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_12159,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[821];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[543]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12168,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_12168(t5,t3);}
else{
t5=C_eqp(((C_word*)t2)[3],lf[558]);
if(C_truep(t5)){
t6=t4;
f_12168(t6,t5);}
else{
t6=C_eqp(((C_word*)t2)[3],lf[559]);
if(C_truep(t6)){
t7=t4;
f_12168(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[3],lf[560]);
t8=t4;
f_12168(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t2)[3],lf[561])));}}}}}

/* k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_12168(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_12168,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[822];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[14]);
if(C_truep(t3)){
t4=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t4;
av2[1]=lf[823];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12177,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t2)[3]))){
C_trace(C_text("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]=t4;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_12177(2,av2);}}}}}

/* k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12177(C_word c,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(5,c,4)))){
C_save_and_reclaim((void *)f_12177,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1387: foreign-argument-conversion"));
f_11862(((C_word*)t2)[2],C_i_vector_ref(t1,C_fix(0)));}
else{
t3=C_i_listp(((C_word*)t2)[3]);
t4=(C_truep(t3)?C_fixnum_greater_or_equal_p(C_u_i_length(((C_word*)t2)[3]),C_fix(2)):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t2)[3]);
t6=C_eqp(t5,lf[550]);
if(C_truep(t6)){
t7=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[824];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t7=C_eqp(t5,lf[552]);
if(C_truep(t7)){
t8=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t8;
av2[1]=lf[825];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t8=C_eqp(t5,lf[554]);
if(C_truep(t8)){
t9=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t9;
av2[1]=lf[826];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t9=C_eqp(t5,lf[555]);
if(C_truep(t9)){
t10=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t10;
av2[1]=lf[827];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t10=C_eqp(t5,lf[775]);
if(C_truep(t10)){
t11=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t11;
av2[1]=lf[828];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t11=C_eqp(t5,lf[776]);
if(C_truep(t11)){
t12=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t12;
av2[1]=lf[829];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t12=C_eqp(t5,lf[553]);
if(C_truep(t12)){
t13=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t13;
av2[1]=lf[830];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t13=C_eqp(t5,lf[548]);
if(C_truep(t13)){
C_trace(C_text("c-backend.scm:1397: foreign-argument-conversion"));
f_11862(((C_word*)t2)[2],C_i_cadr(((C_word*)t2)[3]));}
else{
t14=C_eqp(t5,lf[757]);
if(C_truep(t14)){
t15=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t15;
av2[1]=lf[831];
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t15=C_eqp(t5,lf[748]);
t16=(C_truep(t15)?t15:C_eqp(t5,lf[753]));
if(C_truep(t16)){
t17=C_i_cadr(((C_word*)t2)[3]);
if(C_truep(C_i_listp(t17))){
t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12280,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1401: scheme#open-output-string"));
t19=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t19;
av2[1]=t18;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12302,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1402: scheme#open-output-string"));
t19=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t19;
av2[1]=t18;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}}
else{
t17=C_eqp(t5,lf[546]);
if(C_truep(t17)){
t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12346,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1404: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t18;
av2[2]=C_i_cadr(((C_word*)t2)[3]);
av2[3]=lf[836];
tp(4,av2);}}
else{
t18=C_eqp(t5,lf[556]);
if(C_truep(t18)){
C_trace(C_text("c-backend.scm:1407: scheme#string-append"));
t19=*((C_word*)lf[154]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t19;
av2[1]=((C_word*)t2)[2];
av2[2]=lf[837];
av2[3]=C_i_cadr(((C_word*)t2)[3]);
av2[4]=lf[838];
((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}
else{
C_trace(C_text("c-backend.scm:1408: err"));
t19=((C_word*)t2)[4];
f_11864(t19,((C_word*)t2)[2]);}}}}}}}}}}}}}
else{
C_trace(C_text("c-backend.scm:1409: err"));
t5=((C_word*)t2)[4];
f_11864(t5,((C_word*)t2)[2]);}}}

/* k12278 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12280(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12280,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12286,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1401: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[832];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12284 in k12278 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12286(C_word c,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,2)))){
C_save_and_reclaim((void *)f_12286,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12289,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12299,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1401: scheme#caadr"));
t5=*((C_word*)lf[750]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k12287 in k12284 in k12278 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12289(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12289,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12292,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1401: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12290 in k12287 in k12284 in k12278 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12292(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12292,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1401: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12297 in k12284 in k12278 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12299(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_12299,c,av);}
C_trace(C_text("c-backend.scm:1401: ##sys#print"));
t2=*((C_word*)lf[378]+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]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12300 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12302(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12302,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12308,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1402: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[833];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12306 in k12300 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12308(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12308,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12311,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1402: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t2)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12309 in k12306 in k12300 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12311(C_word c,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_12311,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12314,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1402: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t3;
av2[2]=C_make_character(32);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k12312 in k12309 in k12306 in k12300 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12314(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12314,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12317,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1402: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cadr(((C_word*)t2)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12315 in k12312 in k12309 in k12306 in k12300 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12317,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12320,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1402: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12318 in k12315 in k12312 in k12309 in k12306 in k12300 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12320(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12320,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1402: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12344 in k12175 in k12166 in k12157 in k11917 in k11890 in chicken.compiler.c-backend#foreign-argument-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12346(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_12346,c,av);}
C_trace(C_text("c-backend.scm:1404: scheme#string-append"));
t2=*((C_word*)lf[154]+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[834];
av2[3]=t1;
av2[4]=lf[835];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_12637(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 t31;
C_word t32;
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_12637,3,t1,t2,t3);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12639,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[840];
((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[841];
((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[842];
((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[843];
((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[844];
((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[845];
((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[846];
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t15=C_eqp(t2,lf[530]);
t16=(C_truep(t15)?t15:C_eqp(t2,lf[574]));
if(C_truep(t16)){
t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12706,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1425: scheme#open-output-string"));
t18=C_fast_retrieve(lf[380]);{
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[532]);
t18=(C_truep(t17)?t17:C_eqp(t2,lf[533]));
if(C_truep(t18)){
t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12733,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1426: scheme#open-output-string"));
t20=C_fast_retrieve(lf[380]);{
C_word av2[2];
av2[0]=t20;
av2[1]=t19;
((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}
else{
t19=C_eqp(t2,lf[573]);
if(C_truep(t19)){
t20=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12757,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1427: scheme#open-output-string"));
t21=C_fast_retrieve(lf[380]);{
C_word av2[2];
av2[0]=t21;
av2[1]=t20;
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}
else{
t20=C_eqp(t2,lf[543]);
t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12781,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t20)){
t22=t21;
f_12781(t22,t20);}
else{
t22=C_eqp(t2,lf[539]);
if(C_truep(t22)){
t23=t21;
f_12781(t23,t22);}
else{
t23=C_eqp(t2,lf[552]);
if(C_truep(t23)){
t24=t21;
f_12781(t24,t23);}
else{
t24=C_eqp(t2,lf[562]);
if(C_truep(t24)){
t25=t21;
f_12781(t25,t24);}
else{
t25=C_eqp(t2,lf[558]);
if(C_truep(t25)){
t26=t21;
f_12781(t26,t25);}
else{
t26=C_eqp(t2,lf[563]);
if(C_truep(t26)){
t27=t21;
f_12781(t27,t26);}
else{
t27=C_eqp(t2,lf[564]);
if(C_truep(t27)){
t28=t21;
f_12781(t28,t27);}
else{
t28=C_eqp(t2,lf[559]);
if(C_truep(t28)){
t29=t21;
f_12781(t29,t28);}
else{
t29=C_eqp(t2,lf[560]);
if(C_truep(t29)){
t30=t21;
f_12781(t30,t29);}
else{
t30=C_eqp(t2,lf[561]);
if(C_truep(t30)){
t31=t21;
f_12781(t31,t30);}
else{
t31=C_eqp(t2,lf[575]);
t32=t21;
f_12781(t32,(C_truep(t31)?t31:C_eqp(t2,lf[576])));}}}}}}}}}}}}}}}}}}}}}

/* err in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_12639(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_12639,2,t0,t1);}
C_trace(C_text("c-backend.scm:1416: 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[839];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}

/* k12704 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12706(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12706,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12712,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1425: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[847];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12710 in k12704 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12712(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12712,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12715,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1425: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12713 in k12710 in k12704 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12715(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12715,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12718,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1425: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12716 in k12713 in k12710 in k12704 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12718(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12718,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1425: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12731 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12733(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12733,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12739,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1426: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[848];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12737 in k12731 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12739(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12739,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12742,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1426: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12740 in k12737 in k12731 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12742,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12745,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1426: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12743 in k12740 in k12737 in k12731 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12745(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12745,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1426: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12755 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12757(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12757,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12763,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1427: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[849];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12761 in k12755 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12763(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12763,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12766,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1427: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12764 in k12761 in k12755 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12766,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12769,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1427: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12767 in k12764 in k12761 in k12755 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12769(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12769,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1427: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_12781(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(5,0,2)))){
C_save_and_reclaim_args((void *)trf_12781,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12784,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1431: scheme#open-output-string"));
t3=C_fast_retrieve(lf[380]);{
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|4,a[1]=(C_word)f_12808,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1432: scheme#open-output-string"));
t4=C_fast_retrieve(lf[380]);{
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|4,a[1]=(C_word)f_12835,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1433: scheme#open-output-string"));
t6=C_fast_retrieve(lf[380]);{
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|4,a[1]=(C_word)f_12862,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1434: scheme#open-output-string"));
t8=C_fast_retrieve(lf[380]);{
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|4,a[1]=(C_word)f_12889,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1435: scheme#open-output-string"));
t10=C_fast_retrieve(lf[380]);{
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|4,a[1]=(C_word)f_12916,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1436: scheme#open-output-string"));
t12=C_fast_retrieve(lf[380]);{
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|4,a[1]=(C_word)f_12940,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1437: scheme#open-output-string"));
t13=C_fast_retrieve(lf[380]);{
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|4,a[1]=(C_word)f_12964,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1438: scheme#open-output-string"));
t14=C_fast_retrieve(lf[380]);{
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[860];
((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[861];
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}
else{
t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12997,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_symbolp(((C_word*)t0)[4]))){
C_trace(C_text("c-backend.scm:1442: 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_12997(2,av2);}}}}}}}}}}}}}

/* k12782 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12784(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12784,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12790,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1431: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[851];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12788 in k12782 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12790(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12790,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12793,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1431: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12791 in k12788 in k12782 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12793(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12793,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12796,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1431: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[850];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12794 in k12791 in k12788 in k12782 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12796,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1431: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12806 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12808,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12814,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1432: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[853];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12812 in k12806 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12814(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12814,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12817,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1432: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12815 in k12812 in k12806 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12817,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12820,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1432: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[852];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12818 in k12815 in k12812 in k12806 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12820,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1432: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12833 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12835(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12835,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12841,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1433: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[854];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12839 in k12833 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12841(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12841,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12844,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1433: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12842 in k12839 in k12833 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12844,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12847,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1433: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12845 in k12842 in k12839 in k12833 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12847,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1433: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12860 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12862(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12862,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12868,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1434: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[855];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12866 in k12860 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12868(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12868,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12871,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1434: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12869 in k12866 in k12860 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12871(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12871,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12874,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1434: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12872 in k12869 in k12866 in k12860 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12874,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1434: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12887 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12889(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12889,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12895,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1435: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[856];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12893 in k12887 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12895(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12895,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12898,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1435: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12896 in k12893 in k12887 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12898(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12898,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12901,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1435: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12899 in k12896 in k12893 in k12887 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12901(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12901,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1435: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12914 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12916(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12916,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12922,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1436: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[857];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12920 in k12914 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12922(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12922,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12925,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1436: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12923 in k12920 in k12914 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12925,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12928,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1436: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12926 in k12923 in k12920 in k12914 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12928(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12928,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1436: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12938 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12940(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12940,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12946,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1437: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[858];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12944 in k12938 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12946(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12946,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12949,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1437: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12947 in k12944 in k12938 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12949(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12949,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12952,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1437: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12950 in k12947 in k12944 in k12938 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12952(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12952,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1437: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12962 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12964(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12964,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12970,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1438: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[859];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k12968 in k12962 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12970(C_word c,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,4)))){
C_save_and_reclaim((void *)f_12970,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12973,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1438: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12971 in k12968 in k12962 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12973(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12973,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12976,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1438: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12974 in k12971 in k12968 in k12962 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12976(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_12976,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1438: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_12997(C_word c,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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_12997,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13001,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1442: g2786"));
t4=t3;
f_13001(t4,((C_word*)t2)[2],t1);}
else{
t3=C_i_listp(((C_word*)t2)[4]);
t4=(C_truep(t3)?C_fixnum_greater_or_equal_p(C_u_i_length(((C_word*)t2)[4]),C_fix(2)):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t2)[4]);
t6=C_eqp(t5,lf[551]);
t7=(C_truep(t6)?t6:C_eqp(t5,lf[552]));
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13033,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1448: scheme#open-output-string"));
t9=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=C_eqp(t5,lf[546]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13057,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1450: scheme#open-output-string"));
t10=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t9=C_eqp(t5,lf[748]);
t10=(C_truep(t9)?t9:C_eqp(t5,lf[753]));
if(C_truep(t10)){
t11=C_i_cadr(((C_word*)t2)[4]);
if(C_truep(C_i_listp(t11))){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13090,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:1453: scheme#open-output-string"));
t13=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t13;
av2[1]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13118,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:1454: scheme#open-output-string"));
t13=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t13;
av2[1]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}}
else{
t11=C_eqp(t5,lf[554]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13164,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1456: scheme#open-output-string"));
t13=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t13;
av2[1]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t12=C_eqp(t5,lf[555]);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13188,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1458: scheme#open-output-string"));
t14=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t14;
av2[1]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t13=C_eqp(t5,lf[556]);
if(C_truep(t13)){
t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13212,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1460: scheme#open-output-string"));
t15=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t15;
av2[1]=t14;
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t14=C_eqp(t5,lf[548]);
if(C_truep(t14)){
C_trace(C_text("c-backend.scm:1461: foreign-result-conversion"));
f_12637(((C_word*)t2)[2],C_i_cadr(((C_word*)t2)[4]),((C_word*)t2)[3]);}
else{
t15=C_eqp(t5,lf[549]);
t16=(C_truep(t15)?t15:C_eqp(t5,lf[550]));
if(C_truep(t16)){
t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13252,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1463: scheme#open-output-string"));
t18=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t18;
av2[1]=t17;
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
else{
t17=C_eqp(t5,lf[553]);
if(C_truep(t17)){
t18=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13276,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1464: scheme#open-output-string"));
t19=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t19;
av2[1]=t18;
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t18=C_eqp(t5,lf[757]);
if(C_truep(t18)){
t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13300,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1465: scheme#open-output-string"));
t20=C_fast_retrieve(lf[380]);{
C_word *av2=av;
av2[0]=t20;
av2[1]=t19;
((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}
else{
C_trace(C_text("c-backend.scm:1466: err"));
t19=((C_word*)t2)[5];
f_12639(t19,((C_word*)t2)[2]);}}}}}}}}}}}
else{
C_trace(C_text("c-backend.scm:1467: err"));
t5=((C_word*)t2)[5];
f_12639(t5,((C_word*)t2)[2]);}}}

/* g2786 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_13001(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_13001,3,t0,t1,t2);}
C_trace(C_text("c-backend.scm:1444: foreign-result-conversion"));
f_12637(t1,C_i_vector_ref(t2,C_fix(0)),((C_word*)t0)[2]);}

/* k13031 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13033(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13033,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13039,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1448: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[863];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13037 in k13031 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13039(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13039,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13042,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1448: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13040 in k13037 in k13031 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13042,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13045,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1448: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[862];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13043 in k13040 in k13037 in k13031 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13045,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1448: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13055 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13057(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13057,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13063,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1450: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[865];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13061 in k13055 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13063(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13063,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13066,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1450: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13064 in k13061 in k13055 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13066(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13066,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13069,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1450: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[864];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13067 in k13064 in k13061 in k13055 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13069(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13069,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1450: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13088 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13090(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13090,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13096,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1453: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[866];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13094 in k13088 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13096(C_word c,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_13096,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13099,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1453: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13097 in k13094 in k13088 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13099(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13099,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13102,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1453: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13100 in k13097 in k13094 in k13088 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13102(C_word c,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,2)))){
C_save_and_reclaim((void *)f_13102,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13105,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13115,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1453: scheme#caadr"));
t5=*((C_word*)lf[750]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k13103 in k13100 in k13097 in k13094 in k13088 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13105,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13108,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1453: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13106 in k13103 in k13100 in k13097 in k13094 in k13088 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13108(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13108,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1453: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13113 in k13100 in k13097 in k13094 in k13088 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13115(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_13115,c,av);}
C_trace(C_text("c-backend.scm:1453: ##sys#print"));
t2=*((C_word*)lf[378]+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]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13116 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13118(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13118,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13124,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1454: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[867];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13122 in k13116 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13124(C_word c,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_13124,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13127,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1454: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13125 in k13122 in k13116 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13127,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13130,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1454: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13128 in k13125 in k13122 in k13116 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13130(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13130,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13133,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1454: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t2)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13131 in k13128 in k13125 in k13122 in k13116 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13133(C_word c,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_13133,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13136,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1454: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t3;
av2[2]=C_make_character(32);
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k13134 in k13131 in k13128 in k13125 in k13122 in k13116 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13136(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13136,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13139,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1454: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cadr(((C_word*)t2)[4]);
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13137 in k13134 in k13131 in k13128 in k13125 in k13122 in k13116 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13139,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13142,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1454: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13140 in k13137 in k13134 in k13131 in k13128 in k13125 in k13122 in k13116 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13142(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13142,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1454: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13162 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13164(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13164,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13170,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1456: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[869];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13168 in k13162 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13170(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13170,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13173,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1456: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13171 in k13168 in k13162 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13173(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13173,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13176,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1456: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[868];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13174 in k13171 in k13168 in k13162 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13176(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13176,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1456: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13186 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13188(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13188,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13194,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1458: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[871];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13192 in k13186 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13194(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13194,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13197,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1458: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13195 in k13192 in k13186 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13197(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13197,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13200,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1458: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[870];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13198 in k13195 in k13192 in k13186 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13200(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13200,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1458: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13210 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13212(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13212,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13218,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1460: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[873];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13216 in k13210 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13218(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13218,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13221,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1460: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13219 in k13216 in k13210 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13221(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13221,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13224,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1460: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[872];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13222 in k13219 in k13216 in k13210 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13224,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1460: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13250 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13252(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13252,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13258,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1463: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[875];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13256 in k13250 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13258(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13258,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13261,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1463: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13259 in k13256 in k13250 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13261,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13264,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1463: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[874];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13262 in k13259 in k13256 in k13250 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13264,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1463: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13274 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13276(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13276,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13282,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1464: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[877];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13280 in k13274 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13282(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13282,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13285,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1464: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13283 in k13280 in k13274 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13285,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13288,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1464: ##sys#print"));
t3=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[876];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13286 in k13283 in k13280 in k13274 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13288,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1464: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13298 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13300(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13300,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13306,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1465: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[878];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k13304 in k13298 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13306(C_word c,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,4)))){
C_save_and_reclaim((void *)f_13306,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13309,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1465: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13307 in k13304 in k13298 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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(3,c,3)))){
C_save_and_reclaim((void *)f_13309,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13312,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1465: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t2;
av2[2]=C_make_character(44);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13310 in k13307 in k13304 in k13298 in k12995 in k12779 in chicken.compiler.c-backend#foreign-result-conversion in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13312,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:1465: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* chicken.compiler.c-backend#oct in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_13548(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(4,0,2)))){
C_save_and_reclaim_args((void *)trf_13548,2,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13556,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_lessp(t2,C_fix(8)))){
t4=t3;
f_13556(t4,lf[880]);}
else{
t4=C_i_lessp(t2,C_fix(64));
t5=t3;
f_13556(t5,(C_truep(t4)?lf[881]:lf[882]));}}

/* k13554 in chicken.compiler.c-backend#oct in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_13556(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,3)))){
C_save_and_reclaim_args((void *)trf_13556,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13560,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word av2[4];
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_fix(8);
tp(4,av2);}}

/* k13558 in k13554 in chicken.compiler.c-backend#oct in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13560(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_13560,c,av);}
C_trace(C_text("##sys#string-append"));
{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]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_13573(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_13573,2,t1,t2);}
a=C_alloc(13);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13582,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13644,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=C_eqp(C_SCHEME_TRUE,t2);
if(C_truep(t5)){
C_trace(C_text("c-backend.scm:1506: scheme#string-append"));
t6=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[884];
av2[3]=lf[885];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t6=C_eqp(C_SCHEME_FALSE,t2);
if(C_truep(t6)){
C_trace(C_text("c-backend.scm:1506: scheme#string-append"));
t7=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[884];
av2[3]=lf[886];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
if(C_truep(C_charp(t2))){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13666,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1510: encode-size"));
f_13582(t7,C_fix(C_character_code(t2)));}
else{
if(C_truep(C_i_nullp(t2))){
C_trace(C_text("c-backend.scm:1506: scheme#string-append"));
t7=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[884];
av2[3]=lf[888];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
if(C_truep(C_eofp(t2))){
C_trace(C_text("c-backend.scm:1506: scheme#string-append"));
t7=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[884];
av2[3]=lf[889];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t7=*((C_word*)lf[356]+1);
t8=C_eqp(*((C_word*)lf[356]+1),t2);
if(C_truep(t8)){
C_trace(C_text("c-backend.scm:1506: scheme#string-append"));
t9=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t9;
av2[1]=t1;
av2[2]=lf[884];
av2[3]=lf[890];
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
else{
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13694,a[2]=t4,a[3]=t2,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_13962,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1515: chicken.compiler.support#big-fixnum?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[375]);
C_word av2[3];
av2[0]=*((C_word*)lf[375]+1);
av2[1]=t10;
av2[2]=t2;
tp(3,av2);}}
else{
t10=t9;
f_13694(t10,C_SCHEME_FALSE);}}}}}}}}

/* encode-size in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_13582(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(15,0,3)))){
C_save_and_reclaim_args((void *)trf_13582,2,t1,t2);}
a=C_alloc(15);
t3=C_i_fixnum_length(t2);
if(C_truep(C_fixnum_greaterp(t3,C_fix(24)))){
C_trace(C_text("c-backend.scm:1499: 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[883];
av2[3]=t2;
tp(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13599,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=C_s_a_i_arithmetic_shift(&a,2,t2,C_fix(-16));
t6=C_s_a_i_bitwise_and(&a,2,C_fix(255),t5);
C_trace(C_text("c-backend.scm:1502: oct"));
f_13548(t4,t6);}}

/* k13597 in encode-size in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13599(C_word c,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,2)))){
C_save_and_reclaim((void *)f_13599,c,av);}
a=C_alloc(13);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13603,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[4],C_fix(-8));
t5=C_s_a_i_bitwise_and(&a,2,C_fix(255),t4);
C_trace(C_text("c-backend.scm:1503: oct"));
f_13548(t3,t5);}

/* k13601 in k13597 in encode-size in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13603(C_word c,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_13603,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13607,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=C_s_a_i_bitwise_and(&a,2,C_fix(255),((C_word*)t2)[4]);
C_trace(C_text("c-backend.scm:1504: oct"));
f_13548(t3,t4);}

/* k13605 in k13601 in k13597 in encode-size in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13607(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_13607,c,av);}
C_trace(C_text("c-backend.scm:1501: scheme#string-append"));
t2=*((C_word*)lf[154]+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]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13642 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13644(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_13644,c,av);}
C_trace(C_text("c-backend.scm:1506: scheme#string-append"));
t2=*((C_word*)lf[154]+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[884];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k13664 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13666(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_13666,c,av);}
C_trace(C_text("c-backend.scm:1510: scheme#string-append"));
t2=*((C_word*)lf[154]+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[887];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_13694(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(16,0,3)))){
C_save_and_reclaim_args((void *)trf_13694,2,t0,t1);}
a=C_alloc(16);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13701,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
t3=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],C_fix(-24));
t4=C_s_a_i_bitwise_and(&a,2,C_fix(255),t3);
C_trace(C_text("c-backend.scm:1518: oct"));
f_13548(t2,t4);}
else{
if(C_truep(C_i_exact_integerp(((C_word*)t0)[3]))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13747,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word av2[4];
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_fix(16);
tp(4,av2);}}
else{
if(C_truep(C_i_flonump(((C_word*)t0)[3]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13781,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#flonum->string"));
t3=C_fast_retrieve(lf[895]);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_fix(10);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13788,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1533: chicken.keyword#keyword?"));
t3=C_fast_retrieve(lf[368]);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}}

/* k13699 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13701(C_word c,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,2)))){
C_save_and_reclaim((void *)f_13701,c,av);}
a=C_alloc(13);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13705,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[5],C_fix(-16));
t5=C_s_a_i_bitwise_and(&a,2,C_fix(255),t4);
C_trace(C_text("c-backend.scm:1519: oct"));
f_13548(t3,t5);}

/* k13703 in k13699 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13705(C_word c,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,2)))){
C_save_and_reclaim((void *)f_13705,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13709,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t2)[5],C_fix(-8));
t6=C_s_a_i_bitwise_and(&a,2,C_fix(255),t5);
C_trace(C_text("c-backend.scm:1520: oct"));
f_13548(t4,t6);}

/* k13707 in k13703 in k13699 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13709(C_word c,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_13709,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13713,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
t4=C_s_a_i_bitwise_and(&a,2,C_fix(255),((C_word*)t2)[5]);
C_trace(C_text("c-backend.scm:1521: oct"));
f_13548(t3,t4);}

/* k13711 in k13707 in k13703 in k13699 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13713(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_13713,c,av);}
C_trace(C_text("c-backend.scm:1516: scheme#string-append"));
t2=*((C_word*)lf[154]+1);{
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[891];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=((C_word*)t0)[5];
av2[6]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* k13745 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13747(C_word c,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(4,c,2)))){
C_save_and_reclaim((void *)f_13747,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13754,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_slot(t1,C_fix(0));
t4=C_block_size(t3);
C_trace(C_text("c-backend.scm:1530: encode-size"));
f_13582(t2,C_fixnum_difference(t4,C_fix(1)));}

/* k13752 in k13745 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13754(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_13754,c,av);}
C_trace(C_text("c-backend.scm:1530: scheme#string-append"));
t2=*((C_word*)lf[154]+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[892];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13779 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13781(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_13781,c,av);}
C_trace(C_text("c-backend.scm:1532: scheme#string-append"));
t2=*((C_word*)lf[154]+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[893];
av2[3]=t1;
av2[4]=lf[894];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13788(C_word c,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(9,c,3)))){
C_save_and_reclaim((void *)f_13788,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13791,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1534: chicken.keyword#keyword->string"));
t4=C_fast_retrieve(lf[899]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t2)[3]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13822,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1540: ##sys#symbol->string/shared"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}
else{
if(C_truep(C_i_stringp(((C_word*)t2)[3]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13857,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1547: oct"));
f_13548(t3,stub2944(C_SCHEME_UNDEFINED,((C_word*)t2)[3]));}
else{
if(C_truep(C_byteblockp(((C_word*)t2)[3]))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13891,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1552: oct"));
f_13548(t3,stub2944(C_SCHEME_UNDEFINED,((C_word*)t2)[3]));}
else{
if(C_truep(C_immp(((C_word*)t2)[3]))){
C_trace(C_text("c-backend.scm:1556: 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*)t2)[2];
av2[2]=lf[902];
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}
else{
t3=stub2948(C_SCHEME_UNDEFINED,((C_word*)t2)[3]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13926,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13930,a[2]=t4,a[3]=((C_word*)t2)[3],a[4]=t3,a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:1561: oct"));
f_13548(t5,stub2944(C_SCHEME_UNDEFINED,((C_word*)t2)[3]));}}}}}}

/* k13789 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13791(C_word c,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(4,c,2)))){
C_save_and_reclaim((void *)f_13791,c,av);}
a=C_alloc(4);
t2=C_slot(t1,C_fix(0));
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13801,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_block_size(t2);
C_trace(C_text("c-backend.scm:1537: encode-size"));
f_13582(t3,C_fixnum_difference(t4,C_fix(1)));}

/* k13799 in k13789 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13801(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13801,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13805,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1538: byteblock->string"));
f_13968(t2,((C_word*)t0)[3],C_fix(-1));}

/* k13803 in k13799 in k13789 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13805(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_13805,c,av);}
C_trace(C_text("c-backend.scm:1536: scheme#string-append"));
t2=*((C_word*)lf[154]+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[896];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[897];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k13820 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13822(C_word c,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(4,c,2)))){
C_save_and_reclaim((void *)f_13822,c,av);}
a=C_alloc(4);
t2=C_slot(t1,C_fix(0));
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13832,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_block_size(t2);
C_trace(C_text("c-backend.scm:1543: encode-size"));
f_13582(t3,C_fixnum_difference(t4,C_fix(1)));}

/* k13830 in k13820 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13832,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13836,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1544: byteblock->string"));
f_13968(t2,((C_word*)t0)[3],C_fix(-1));}

/* k13834 in k13830 in k13820 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13836(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_13836,c,av);}
C_trace(C_text("c-backend.scm:1542: scheme#string-append"));
t2=*((C_word*)lf[154]+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[900];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[901];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k13855 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13857(C_word c,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_13857,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13861,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
t4=C_slot(((C_word*)t2)[3],C_fix(0));
C_trace(C_text("c-backend.scm:1548: encode-size"));
f_13582(t3,C_block_size(t4));}

/* k13859 in k13855 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13861(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13861,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1549: byteblock->string"));
f_13968(t2,C_slot(((C_word*)t0)[4],C_fix(0)),C_fix(0));}

/* k13863 in k13859 in k13855 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13865(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_13865,c,av);}
C_trace(C_text("c-backend.scm:1546: scheme#string-append"));
t2=*((C_word*)lf[154]+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]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13889 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13891(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13891,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13895,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1553: encode-size"));
f_13582(t2,stub2948(C_SCHEME_UNDEFINED,((C_word*)t0)[3]));}

/* k13893 in k13889 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13895(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13895,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13899,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1554: byteblock->string"));
f_13968(t2,((C_word*)t0)[4],C_fix(0));}

/* k13897 in k13893 in k13889 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13899(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_13899,c,av);}
C_trace(C_text("c-backend.scm:1551: scheme#string-append"));
t2=*((C_word*)lf[154]+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]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13924 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13926(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_13926,c,av);}
C_trace(C_text("c-backend.scm:1559: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[303]);{
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[903];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k13928 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_13930,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13934,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_trace(C_text("c-backend.scm:1562: encode-size"));
f_13582(t2,((C_word*)t0)[4]);}

/* k13932 in k13928 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13934(C_word c,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_13934,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13938,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_13940,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1563: list-tabulate"));
f_4420(t2,((C_word*)t0)[5],t3);}

/* k13936 in k13932 in k13928 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13938(C_word c,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_13938,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_3848,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_3848(t6,((C_word*)t0)[3],((C_word*)t0)[4],t2);}

/* a13939 in k13932 in k13928 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13940(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_13940,c,av);}
C_trace(C_text("c-backend.scm:1563: encode-literal"));
f_13573(t1,C_slot(((C_word*)t0)[2],t2));}

/* k13960 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13962(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_13962,c,av);}
t2=((C_word*)t0)[2];
f_13694(t2,C_i_not(t1));}

/* chicken.compiler.c-backend#byteblock->string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_13968(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_13968,3,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13972,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1567: scheme#open-output-string"));
t5=C_fast_retrieve(lf[380]);{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k13970 in chicken.compiler.c-backend#byteblock->string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13972(C_word c,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_13972,c,av);}
a=C_alloc(8);
t2=C_block_size(((C_word*)t0)[2]);
t3=C_fixnum_plus(t2,((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|5,a[1]=(C_word)f_13980,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_13980(t7,((C_word*)t0)[4],C_fix(0));}

/* doloop2974 in k13970 in chicken.compiler.c-backend#byteblock->string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_13980(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(9,0,2)))){
C_save_and_reclaim_args((void *)trf_13980,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
C_trace(C_text("c-backend.scm:1570: scheme#get-output-string"));
t3=C_fast_retrieve(lf[376]);{
C_word av2[3];
av2[0]=t3;
av2[1]=t1;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13993,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14004,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1571: oct"));
f_13548(t4,C_subbyte(((C_word*)t0)[5],t2));}}

/* k13991 in doloop2974 in k13970 in chicken.compiler.c-backend#byteblock->string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_13993(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_13993,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_13980(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k14002 in doloop2974 in k13970 in chicken.compiler.c-backend#byteblock->string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_14004(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_14004,c,av);}
C_trace(C_text("c-backend.scm:1571: scheme#display"));
t2=*((C_word*)lf[6]+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]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_14014(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(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14014,2,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14026,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14030,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1577: ##sys#bytevector->list"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[913]+1));
C_word av2[3];
av2[0]=*((C_word*)lf[913]+1);
av2[1]=t4;
av2[2]=C_slot(t2,C_fix(0));
tp(3,av2);}}

/* k14024 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_14026(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_14026,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,C_make_character(34),t1);
C_trace(C_text("##sys#list->string"));
t3=C_fast_retrieve(lf[904]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_14030(C_word c,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_14030,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_14032,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_14032(t5,((C_word*)t0)[2],t1);}

/* loop in k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_14032(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(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14032,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_i_nullp(t2);
t4=(C_truep(t3)?t3:C_i_nullp(C_i_cdr(t2)));
if(C_truep(t4)){
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[905];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t5=C_i_car(t2);
t6=C_i_lessp(t5,C_fix(32));
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14054,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
if(C_truep(t6)){
t8=t7;
f_14054(t8,t6);}
else{
t8=C_i_greater_or_equalp(t5,C_fix(127));
t9=t7;
f_14054(t9,(C_truep(t8)?t8:C_u_i_memq(t5,lf[912])));}}}

/* k14052 in loop in k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_14054(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_14054,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14061,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_lessp(((C_word*)t0)[5],C_fix(8)))){
t3=t2;
f_14061(t3,lf[909]);}
else{
t3=C_i_lessp(((C_word*)t0)[5],C_fix(64));
t4=t2;
f_14061(t4,(C_truep(t3)?lf[910]:C_SCHEME_END_OF_LIST));}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14093,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_trace(C_text("c-backend.scm:1591: scheme#integer->char"));
t3=*((C_word*)lf[911]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k14059 in k14052 in loop in k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_14061(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(9,0,3)))){
C_save_and_reclaim_args((void *)trf_14061,2,t0,t1);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14065,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14075,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word av2[4];
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[5];
av2[3]=C_fix(8);
tp(4,av2);}}

/* k14063 in k14059 in k14052 in loop in k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_14065(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_14065,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14069,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1590: loop"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_14032(t3,t2,C_u_i_cdr(((C_word*)t0)[5]));}

/* k14067 in k14063 in k14059 in k14052 in loop in k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_14069(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_14069,c,av);}
C_trace(C_text("c-backend.scm:1585: scheme#append"));
t2=*((C_word*)lf[906]+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[907];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k14073 in k14059 in k14052 in loop in k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_14075(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_14075,c,av);}
C_trace(C_text("##sys#string->list"));
t2=C_fast_retrieve(lf[908]);{
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;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k14091 in k14052 in loop in k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_14093(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_14093,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14097,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1592: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_14032(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k14095 in k14091 in k14052 in loop in k14028 in chicken.compiler.c-backend#c-ify-string in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_14097(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_14097,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);}}

/* k3384 */
static void C_ccall f_3386(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_3386,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3389,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);}}

/* k3387 in k3384 */
static void C_ccall f_3389(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_3389,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3392,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);}}

/* k3390 in k3387 in k3384 */
static void C_ccall f_3392(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_3392,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3395,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);}}

/* k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_3395(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_3395,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3398,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);}}

/* k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_3398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_3398,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3401,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);}}

/* k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_3401(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_3401,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3404,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);}}

/* k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_3404(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_3404,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3407,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);}}

/* k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_3407(C_word c,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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(50,c,11)))){
C_save_and_reclaim((void *)f_3407,c,av);}
a=C_alloc(50);
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_4420,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_4688,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_4731,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_4840,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[224] /* (set! chicken.compiler.c-backend#toplevel ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9376,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[486] /* (set! chicken.compiler.c-backend#cleanup ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9392,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_9468,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_9485,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[288] /* (set! chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9559,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_10612,tmp=(C_word)a,a+=2,tmp));
t15=C_mutate((C_word*)lf[245]+1 /* (set! chicken.compiler.c-backend#foreign-type-declaration ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10688,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate(&lf[244] /* (set! chicken.compiler.c-backend#foreign-argument-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11862,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate(&lf[239] /* (set! chicken.compiler.c-backend#foreign-result-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_12637,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate(&lf[879] /* (set! chicken.compiler.c-backend#oct ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13548,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate(&lf[371] /* (set! chicken.compiler.c-backend#encode-literal ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13573,tmp=(C_word)a,a+=2,tmp));
t20=C_mutate(&lf[898] /* (set! chicken.compiler.c-backend#byteblock->string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13968,tmp=(C_word)a,a+=2,tmp));
t21=C_mutate(&lf[109] /* (set! chicken.compiler.c-backend#c-ify-string ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14014,tmp=(C_word)a,a+=2,tmp));
t22=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t22;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}

/* loop in k13936 in k13932 in k13928 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_3848(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_3848,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_3862,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("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;}}

/* k3860 in loop in k13936 in k13932 in k13928 in k13786 in k13692 in chicken.compiler.c-backend#encode-literal in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_3862(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_3862,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 k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_4420(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_4420,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_4426,a[2]=t2,a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_4426(t7,t1,C_fix(0));}

/* loop in chicken.compiler.c-backend#list-tabulate in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_4426(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_4426,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_4440,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("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);}}}

/* k4438 in loop in chicken.compiler.c-backend#list-tabulate in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4440(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_4440,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4444,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:190: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4426(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}

/* k4442 in k4438 in loop in chicken.compiler.c-backend#list-tabulate in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4444(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_4444,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);}}

/* a4599 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in ... */
static void C_ccall f_4600(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_4600,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a4611 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_4612(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_4612,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 k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4688(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_4688,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_4708,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_4708(t6,t1,t2);}

/* for-each-loop646 in chicken.compiler.c-backend#gen in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_4708(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_4708,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_4718,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_trace(C_text("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_trace(C_text("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);}}}

/* k4716 in for-each-loop646 in chicken.compiler.c-backend#gen in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4718(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_4718,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_4708(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.c-backend#gen-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_4731(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_4731,2,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4740,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("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);}}

/* k4738 in chicken.compiler.c-backend#gen-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4740(C_word c,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_4740,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_4745,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_4745(t5,((C_word*)t0)[2],t1);}

/* for-each-loop670 in k4738 in chicken.compiler.c-backend#gen-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_4745(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_4745,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_4755,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("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);}}}

/* k4753 in for-each-loop670 in k4738 in chicken.compiler.c-backend#gen-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4755(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_4755,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_4745(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k4794 in chicken.compiler.c-backend#toplevel in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4796(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_4796,c,av);}
C_trace(C_text("c-backend.scm:76: chicken.internal#string->c-identifier"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[507]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[507]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k4800 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4802(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_4802,c,av);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4807,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("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);}}

/* a4806 in k4800 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4807(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_4807,c,av);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4815,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("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);}}

/* k4813 in a4806 in k4800 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_4815,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4819,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("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);}}

/* k4817 in k4813 in a4806 in k4800 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4819(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_4819,c,av);}
C_trace(C_text("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);}}

/* a4828 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4829(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_4829,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 k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4840(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(22,c,4)))){
C_save_and_reclaim((void *)f_4840,c,av);}
a=C_alloc(22);
t11=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4844,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=t7,a[5]=t6,a[6]=t2,a[7]=t3,a[8]=C_SCHEME_UNDEFINED,a[9]=t9,a[10]=t5,a[11]=t1,a[12]=t10,tmp=(C_word)a,a+=13,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_4802,a[2]=t11,a[3]=t13,tmp=(C_word)a,a+=4,tmp);
t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4829,a[2]=t13,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("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);}}

/* k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4844(C_word c,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(10,c,2)))){
C_save_and_reclaim((void *)f_4844,c,av);}
a=C_alloc(10);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=C_SCHEME_FALSE;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_mutate(((C_word *)t0)+3,t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4847,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t7=C_fast_retrieve(lf[663]);
t8=C_a_i_fixnum_plus(&a,2,C_fast_retrieve(lf[663]),C_fix(1));
C_trace(C_text("c-backend.scm:98: chicken.flonum#flonum-print-precision"));
t9=C_fast_retrieve(lf[664]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t6;
av2[2]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}

/* k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4847(C_word c,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(68,c,5)))){
C_save_and_reclaim((void *)f_4847,c,av);}
a=C_alloc(68);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
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_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_SCHEME_UNDEFINED;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=C_SCHEME_UNDEFINED;
t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
t21=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4849,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp));
t22=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4861,a[2]=((C_word*)t2)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t23=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7284,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp));
t24=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7443,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[7],tmp=(C_word)a,a+=4,tmp));
t25=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7639,a[2]=((C_word*)t2)[8],a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp));
t26=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7814,a[2]=((C_word*)t2)[8],tmp=(C_word)a,a+=3,tmp));
t27=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7935,a[2]=((C_word*)t2)[6],tmp=(C_word)a,a+=3,tmp));
t28=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7989,a[2]=t18,tmp=(C_word)a,a+=3,tmp));
t29=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8434,a[2]=((C_word*)t2)[3],a[3]=t6,a[4]=t18,a[5]=((C_word*)t2)[6],a[6]=t16,a[7]=((C_word*)t2)[9],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp));
t30=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9135,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[11],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[8],a[6]=t20,a[7]=((C_word*)t2)[12],a[8]=t14,a[9]=((C_word*)t2)[9],a[10]=t12,a[11]=t10,a[12]=t8,tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("c-backend.scm:954: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[487]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[487]+1);
av2[1]=t30;
av2[2]=lf[661];
av2[3]=lf[662];
tp(4,av2);}}

/* find-lambda in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_4849(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_4849,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4853,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("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);}}

/* k4851 in find-lambda in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4853(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_4853,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_trace(C_text("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 k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_4861(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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,0,5)))){
C_save_and_reclaim_args((void *)trf_4861,5,t0,t1,t2,t3,t4);}
a=C_alloc(27);
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_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4864,a[2]=t6,a[3]=t4,a[4]=t12,a[5]=t8,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp));
t14=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7076,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t15=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7112,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
t16=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7155,a[2]=t6,a[3]=t10,a[4]=t4,tmp=(C_word)a,a+=5,tmp));
C_trace(C_text("c-backend.scm:601: expr"));
t17=((C_word*)t6)[1];
f_4864(t17,t1,t2,t3);}

/* expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_4864(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(13,0,2)))){
C_save_and_reclaim_args((void *)trf_4864,4,t0,t1,t2,t3);}
a=C_alloc(13);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4868,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=C_SCHEME_UNDEFINED,a[6]=t3,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=t2,tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("c-backend.scm:110: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[268]);
C_word av2[3];
av2[0]=*((C_word*)lf[268]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4868(C_word c,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_4868,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4871,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:111: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
tp(3,av2);}}

/* k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4871(C_word c,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_4871,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4874,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:112: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[186]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[12];
tp(3,av2);}}

/* k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_4874(C_word c,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 t46;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,6)))){
C_save_and_reclaim((void *)f_4874,c,av);}
a=C_alloc(24);
t2=((C_word*)t0)[2];
t3=C_eqp(t1,lf[13]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t2)[2]);
t5=C_eqp(t4,lf[14]);
if(C_truep(t5)){
if(C_truep(C_i_cadr(((C_word*)t2)[2]))){
C_trace(C_text("c-backend.scm:116: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[15];
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:116: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[16];
f_4688(3,av2);}}}
else{
t6=C_eqp(t4,lf[17]);
if(C_truep(t6)){
t7=C_i_cadr(((C_word*)t2)[2]);
C_trace(C_text("c-backend.scm:117: gen"));
t8=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[18];
av2[3]=C_fix(C_character_code(t7));
av2[4]=C_make_character(41);
f_4688(5,av2);}}
else{
t7=C_eqp(t4,lf[19]);
if(C_truep(t7)){
C_trace(C_text("c-backend.scm:118: gen"));
t8=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[20];
f_4688(3,av2);}}
else{
t8=C_eqp(t4,lf[21]);
if(C_truep(t8)){
C_trace(C_text("c-backend.scm:119: gen"));
t9=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[22];
av2[3]=C_i_cadr(((C_word*)t2)[2]);
av2[4]=C_make_character(41);
f_4688(5,av2);}}
else{
t9=C_eqp(t4,lf[23]);
if(C_truep(t9)){
C_trace(C_text("c-backend.scm:120: gen"));
t10=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t10;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[24];
f_4688(3,av2);}}
else{
t10=C_eqp(t4,lf[25]);
if(C_truep(t10)){
C_trace(C_text("c-backend.scm:121: gen"));
t11=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t11;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[26];
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:122: 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*)t2)[3];
av2[2]=lf[27];
tp(3,av2);}}}}}}}}
else{
t4=C_eqp(t1,lf[28]);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t2)[2]);
if(C_truep(C_i_vectorp(t5))){
C_trace(C_text("c-backend.scm:127: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[29];
av2[3]=C_i_vector_ref(t5,C_fix(0));
av2[4]=lf[30];
f_4688(5,av2);}}
else{
C_trace(C_text("c-backend.scm:128: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[31];
av2[3]=C_i_car(((C_word*)t2)[2]);
av2[4]=C_make_character(93);
f_4688(5,av2);}}}
else{
t5=C_eqp(t1,lf[32]);
if(C_truep(t5)){
t6=C_i_car(((C_word*)t2)[2]);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5012,a[2]=t6,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:132: gen"));
t8=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[35];
f_4688(3,av2);}}
else{
t6=C_eqp(t1,lf[36]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5045,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:140: 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[39];
f_4688(4,av2);}}
else{
t7=C_eqp(t1,lf[40]);
if(C_truep(t7)){
C_trace(C_text("c-backend.scm:149: gen"));
t8=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t8;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[41];
av2[3]=C_i_car(((C_word*)t2)[2]);
f_4688(4,av2);}}
else{
t8=C_eqp(t1,lf[42]);
if(C_truep(t8)){
t9=C_i_car(((C_word*)t2)[2]);
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|3,a[1]=(C_word)f_5103,a[2]=t11,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp));
t13=((C_word*)t11)[1];
f_5103(t13,((C_word*)t2)[3],((C_word*)t2)[5],((C_word*)t2)[6],t9);}
else{
t9=C_eqp(t1,lf[43]);
if(C_truep(t9)){
t10=C_i_car(((C_word*)t2)[2]);
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5151,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:162: gen"));
t12=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t12;
av2[1]=t11;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(102);
av2[4]=t10;
av2[5]=C_make_character(61);
f_4688(6,av2);}}
else{
t10=C_eqp(t1,lf[44]);
if(C_truep(t10)){
C_trace(C_text("c-backend.scm:168: gen"));
t11=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t11;
av2[1]=((C_word*)t2)[3];
av2[2]=C_make_character(102);
av2[3]=C_i_car(((C_word*)t2)[2]);
f_4688(4,av2);}}
else{
t11=C_eqp(t1,lf[45]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5190,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:171: 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[47];
f_4688(3,av2);}}
else{
t12=C_eqp(t1,lf[48]);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5209,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:176: 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[50];
f_4688(3,av2);}}
else{
t13=C_eqp(t1,lf[51]);
if(C_truep(t13)){
t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5228,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:181: gen"));
t15=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t15;
av2[1]=t14;
av2[2]=lf[53];
f_4688(3,av2);}}
else{
t14=C_eqp(t1,lf[54]);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5255,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[7],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:186: chicken.compiler.core#lambda-literal-argument-count"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[63]+1);
av2[1]=t15;
av2[2]=((C_word*)t2)[7];
tp(3,av2);}}
else{
t15=C_eqp(t1,lf[64]);
if(C_truep(t15)){
t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5295,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[7],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:195: chicken.compiler.core#lambda-literal-argument-count"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[63]+1);
av2[1]=t16;
av2[2]=((C_word*)t2)[7];
tp(3,av2);}}
else{
t16=C_eqp(t1,lf[70]);
if(C_truep(t16)){
t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5335,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[7],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:204: chicken.compiler.core#lambda-literal-argument-count"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[63]+1);
av2[1]=t17;
av2[2]=((C_word*)t2)[7];
tp(3,av2);}}
else{
t17=C_eqp(t1,lf[75]);
if(C_truep(t17)){
t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5375,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:213: 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_4688(3,av2);}}
else{
t18=C_eqp(t1,lf[78]);
if(C_truep(t18)){
t19=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5394,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[2],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:218: 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[79];
f_4688(3,av2);}}
else{
t19=C_eqp(t1,lf[80]);
if(C_truep(t19)){
t20=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5427,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[2],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:225: 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[83];
f_4688(3,av2);}}
else{
t20=C_eqp(t1,lf[84]);
if(C_truep(t20)){
t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5464,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:232: 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[86];
f_4688(3,av2);}}
else{
t21=C_eqp(t1,lf[87]);
if(C_truep(t21)){
t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5493,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:239: gen"));
t23=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t23;
av2[1]=t22;
av2[2]=lf[89];
f_4688(3,av2);}}
else{
t22=C_eqp(t1,lf[90]);
if(C_truep(t22)){
t23=C_i_car(((C_word*)t2)[2]);
t24=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5525,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[5],a[5]=t23,a[6]=((C_word*)t2)[3],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:247: gen"));
t25=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t25;
av2[1]=t24;
av2[2]=lf[97];
av2[3]=t23;
av2[4]=C_make_character(44);
f_4688(5,av2);}}
else{
t23=C_eqp(t1,lf[98]);
if(C_truep(t23)){
t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5599,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:257: gen"));
t25=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t25;
av2[1]=t24;
av2[2]=lf[100];
f_4688(3,av2);}}
else{
t24=C_eqp(t1,lf[101]);
if(C_truep(t24)){
C_trace(C_text("c-backend.scm:261: gen"));
t25=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t25;
av2[1]=((C_word*)t2)[3];
av2[2]=C_make_character(116);
av2[3]=C_i_car(((C_word*)t2)[2]);
f_4688(4,av2);}}
else{
t25=C_eqp(t1,lf[102]);
if(C_truep(t25)){
t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5631,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:264: gen"));
t27=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t27;
av2[1]=t26;
av2[2]=C_make_character(116);
av2[3]=C_i_car(((C_word*)t2)[2]);
av2[4]=C_make_character(61);
f_4688(5,av2);}}
else{
t26=C_eqp(t1,lf[103]);
if(C_truep(t26)){
t27=C_i_car(((C_word*)t2)[2]);
t28=C_i_cadr(((C_word*)t2)[2]);
if(C_truep(C_i_caddr(((C_word*)t2)[2]))){
if(C_truep(t28)){
C_trace(C_text("c-backend.scm:273: gen"));
t29=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t29;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[104];
av2[3]=t27;
av2[4]=lf[105];
f_4688(5,av2);}}
else{
t29=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5673,a[2]=((C_word*)t2)[3],a[3]=t27,tmp=(C_word)a,a+=4,tmp);
t30=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5677,a[2]=t29,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:275: ##sys#symbol->string/shared"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t30;
av2[2]=C_i_cadddr(((C_word*)t2)[2]);
tp(3,av2);}}}
else{
if(C_truep(t28)){
C_trace(C_text("c-backend.scm:277: gen"));
t29=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t29;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[111];
av2[3]=t27;
av2[4]=lf[112];
f_4688(5,av2);}}
else{
C_trace(C_text("c-backend.scm:278: gen"));
t29=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t29;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[113];
av2[3]=t27;
av2[4]=lf[114];
f_4688(5,av2);}}}}
else{
t27=C_eqp(t1,lf[115]);
if(C_truep(t27)){
t28=C_i_car(((C_word*)t2)[2]);
t29=C_i_cadr(((C_word*)t2)[2]);
t30=C_i_caddr(((C_word*)t2)[2]);
t31=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5708,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=t30,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t29)){
C_trace(C_text("c-backend.scm:285: gen"));
t32=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t32;
av2[1]=t31;
av2[2]=lf[121];
av2[3]=t28;
av2[4]=lf[122];
f_4688(5,av2);}}
else{
C_trace(C_text("c-backend.scm:286: gen"));
t32=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t32;
av2[1]=t31;
av2[2]=lf[123];
av2[3]=t28;
av2[4]=lf[124];
f_4688(5,av2);}}}
else{
t28=C_eqp(t1,lf[125]);
if(C_truep(t28)){
t29=C_i_car(((C_word*)t2)[2]);
t30=C_i_cadr(((C_word*)t2)[2]);
t31=C_i_caddr(((C_word*)t2)[2]);
if(C_truep(t30)){
t32=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5756,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
t33=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5770,a[2]=t32,a[3]=t29,tmp=(C_word)a,a+=4,tmp);
t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5774,a[2]=t33,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:297: ##sys#symbol->string/shared"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t34;
av2[2]=t31;
tp(3,av2);}}
else{
t32=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5777,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
t33=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5791,a[2]=t32,a[3]=t29,tmp=(C_word)a,a+=4,tmp);
t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5795,a[2]=t33,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:302: ##sys#symbol->string/shared"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t34;
av2[2]=t31;
tp(3,av2);}}}
else{
t29=C_eqp(t1,lf[132]);
if(C_truep(t29)){
C_trace(C_text("c-backend.scm:306: gen"));
t30=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t30;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[133];
f_4688(3,av2);}}
else{
t30=C_eqp(t1,lf[134]);
if(C_truep(t30)){
t31=C_i_cdr(((C_word*)t2)[5]);
t32=C_i_length(t31);
t33=C_a_i_fixnum_plus(&a,2,t32,C_fix(1));
t34=C_i_car(((C_word*)t2)[2]);
t35=C_i_cadr(((C_word*)t2)[2]);
t36=C_i_cddr(((C_word*)t2)[2]);
t37=C_i_pairp(t36);
t38=(C_truep(t37)?C_i_caddr(((C_word*)t2)[2]):C_SCHEME_FALSE);
t39=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5832,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[3],a[5]=t33,a[6]=((C_word*)t2)[8],a[7]=t31,a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[4],a[10]=t32,a[11]=((C_word*)t2)[7],a[12]=((C_word*)t2)[9],a[13]=t35,a[14]=t38,a[15]=t34,a[16]=((C_word*)t2)[10],a[17]=((C_word*)t2)[11],a[18]=t37,tmp=(C_word)a,a+=19,tmp);
C_trace(C_text("c-backend.scm:317: chicken.compiler.support#source-info->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[200]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[200]+1);
av2[1]=t39;
av2[2]=t38;
tp(3,av2);}}
else{
t31=C_eqp(t1,lf[201]);
if(C_truep(t31)){
t32=C_i_length(((C_word*)t2)[5]);
t33=C_a_i_fixnum_plus(&a,2,t32,C_fix(1));
t34=C_i_car(((C_word*)t2)[2]);
t35=C_i_cadr(((C_word*)t2)[2]);
t36=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6342,a[2]=t34,a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[3],a[6]=t32,a[7]=((C_word*)t2)[5],a[8]=t33,a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[9],a[11]=t35,tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("c-backend.scm:415: chicken.compiler.core#lambda-literal-closure-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[199]+1);
av2[1]=t36;
av2[2]=((C_word*)t2)[7];
tp(3,av2);}}
else{
t32=C_eqp(t1,lf[205]);
if(C_truep(t32)){
t33=C_i_cdr(((C_word*)t2)[5]);
t34=C_i_length(t33);
t35=C_a_i_fixnum_plus(&a,2,t34,C_fix(1));
t36=C_i_car(((C_word*)t2)[2]);
t37=C_i_caddr(((C_word*)t2)[2]);
t38=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6502,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[3],a[5]=t33,a[6]=((C_word*)t2)[9],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[4],a[9]=t37,a[10]=t36,a[11]=((C_word*)t2)[10],a[12]=((C_word*)t2)[11],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("c-backend.scm:442: chicken.compiler.support#source-info->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[200]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[200]+1);
av2[1]=t38;
av2[2]=t37;
tp(3,av2);}}
else{
t33=C_eqp(t1,lf[217]);
if(C_truep(t33)){
C_trace(C_text("c-backend.scm:468: gen"));
t34=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t34;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[218];
av2[3]=C_i_car(((C_word*)t2)[2]);
av2[4]=lf[219];
f_4688(5,av2);}}
else{
t34=C_eqp(t1,lf[220]);
if(C_truep(t34)){
t35=C_i_length(((C_word*)t2)[5]);
t36=C_a_i_fixnum_plus(&a,2,t35,C_fix(1));
t37=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6639,a[2]=((C_word*)t2)[3],a[3]=t36,a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("c-backend.scm:475: gen"));
t38=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t38;
av2[1]=t37;
av2[2]=C_make_character(123);
f_4688(3,av2);}}
else{
t35=C_eqp(t1,lf[226]);
if(C_truep(t35)){
t36=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6662,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:480: 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_SCHEME_TRUE;
av2[3]=lf[228];
f_4688(4,av2);}}
else{
t36=C_eqp(t1,lf[229]);
if(C_truep(t36)){
t37=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6681,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[9],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:485: gen"));
t38=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t38;
av2[1]=t37;
av2[2]=C_i_car(((C_word*)t2)[2]);
av2[3]=C_make_character(40);
f_4688(4,av2);}}
else{
t37=C_eqp(t1,lf[230]);
if(C_truep(t37)){
t38=C_i_car(((C_word*)t2)[2]);
if(C_truep(((C_word*)((C_word*)t2)[10])[1])){
C_trace(C_text("c-backend.scm:490: gen"));
t39=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t39;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[231];
av2[3]=t38;
av2[4]=lf[232];
av2[5]=lf[233];
av2[6]=lf[234];
f_4688(7,av2);}}
else{
C_trace(C_text("c-backend.scm:490: gen"));
t39=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t39;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[231];
av2[3]=t38;
av2[4]=lf[232];
av2[5]=lf[235];
av2[6]=lf[234];
f_4688(7,av2);}}}
else{
t38=C_eqp(t1,lf[236]);
if(C_truep(t38)){
t39=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6717,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[9],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:494: gen"));
t40=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t40;
av2[1]=t39;
av2[2]=C_i_car(((C_word*)t2)[2]);
av2[3]=lf[237];
av2[4]=C_i_length(((C_word*)t2)[5]);
f_4688(5,av2);}}
else{
t39=C_eqp(t1,lf[238]);
if(C_truep(t39)){
t40=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6753,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:502: foreign-result-conversion"));
f_12637(t40,C_i_cadr(((C_word*)t2)[2]),lf[240]);}
else{
t40=C_eqp(t1,lf[241]);
if(C_truep(t40)){
t41=C_i_cadr(((C_word*)t2)[2]);
t42=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6773,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
t43=C_i_car(((C_word*)t2)[2]);
t44=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6791,a[2]=t42,a[3]=t43,a[4]=t41,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:506: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t44;
av2[2]=t41;
av2[3]=lf[246];
tp(4,av2);}}
else{
t41=C_eqp(t1,lf[247]);
if(C_truep(t41)){
t42=C_i_car(((C_word*)t2)[2]);
t43=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6807,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
t44=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6821,a[2]=t43,a[3]=t42,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:512: foreign-result-conversion"));
f_12637(t44,t42,lf[252]);}
else{
t42=C_eqp(t1,lf[253]);
if(C_truep(t42)){
t43=C_i_car(((C_word*)t2)[2]);
t44=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6837,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=t43,tmp=(C_word)a,a+=7,tmp);
t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6865,a[2]=t44,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:518: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t45;
av2[2]=t43;
av2[3]=lf[258];
tp(4,av2);}}
else{
t43=C_eqp(t1,lf[259]);
if(C_truep(t43)){
t44=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6874,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[3],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:525: gen"));
t45=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t45;
av2[1]=t44;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[263];
f_4688(4,av2);}}
else{
t44=C_eqp(t1,lf[264]);
if(C_truep(t44)){
t45=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6953,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:540: gen"));
t46=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t46;
av2[1]=t45;
av2[2]=lf[266];
f_4688(3,av2);}}
else{
t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6990,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:548: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[186]+1);
av2[1]=t45;
av2[2]=((C_word*)t2)[12];
tp(3,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k5010 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_5012,c,av);}
a=C_alloc(3);
if(C_truep(C_i_nanp(((C_word*)t0)[2]))){
C_trace(C_text("c-backend.scm:133: 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[33];
f_4688(3,av2);}}
else{
if(C_truep(C_i_infinitep(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5026,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_negativep(((C_word*)t0)[2]))){
C_trace(C_text("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]=t2;
av2[2]=C_make_character(45);
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:136: 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[34];
f_4688(3,av2);}}}
else{
C_trace(C_text("c-backend.scm:137: 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_4688(3,av2);}}}}

/* k5024 in k5010 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5026(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_5026,c,av);}
C_trace(C_text("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)[2];
av2[2]=lf[34];
f_4688(3,av2);}}

/* k5043 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5045,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5048,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:141: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5046 in k5043 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5048(C_word c,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_5048,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5051,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:142: 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]=lf[38];
f_4688(3,av2);}}

/* k5049 in k5046 in k5043 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5051(C_word c,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_5051,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5054,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:143: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,C_i_cadr(((C_word*)t2)[4]),((C_word*)t2)[5]);}

/* k5052 in k5049 in k5046 in k5043 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5054(C_word c,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,4)))){
C_save_and_reclaim((void *)f_5054,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5057,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:144: 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_make_character(125);
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[37];
f_4688(5,av2);}}

/* k5055 in k5052 in k5049 in k5046 in k5043 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5057(C_word c,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_5057,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5060,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:145: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,C_i_caddr(((C_word*)t2)[4]),((C_word*)t2)[5]);}

/* k5058 in k5055 in k5052 in k5049 in k5046 in k5043 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_5060(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_5060,c,av);}
C_trace(C_text("c-backend.scm:146: 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_4688(3,av2);}}

/* loop in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_5103(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_5103,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_5113,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_trace(C_text("c-backend.scm:154: 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_4688(6,av2);}}
else{
C_trace(C_text("c-backend.scm:158: expr"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_4864(t5,t1,C_i_car(t2),t3);}}

/* k5111 in loop in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5113,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5116,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_trace(C_text("c-backend.scm:155: expr"));
t3=((C_word*)((C_word*)t0)[7])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[2]),((C_word*)t0)[3]);}

/* k5114 in k5111 in loop in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5116,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5119,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:156: 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_4688(3,av2);}}

/* k5117 in k5114 in k5111 in loop in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5119(C_word c,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(58,c,4)))){
C_save_and_reclaim((void *)f_5119,c,av);}
a=C_alloc(58);
t2=((C_word*)t0)[2];
t3=C_u_i_cdr(((C_word*)t2)[2]);
t4=C_s_a_i_plus(&a,2,((C_word*)t2)[3],C_fix(1));
t5=C_s_a_i_minus(&a,2,((C_word*)t2)[4],C_fix(1));
C_trace(C_text("c-backend.scm:157: loop"));
t6=((C_word*)((C_word*)t2)[5])[1];
f_5103(t6,((C_word*)t2)[6],t3,t4,t5);}

/* k5149 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5151(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5151,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5154,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:163: expr"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5152 in k5149 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5154,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5157,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:164: 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(59);
f_4688(3,av2);}}

/* k5155 in k5152 in k5149 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5157(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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,3)))){
C_save_and_reclaim((void *)f_5157,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:165: expr"));
t3=((C_word*)((C_word*)t2)[2])[1];
f_4864(t3,((C_word*)t2)[3],C_i_cadr(((C_word*)t2)[4]),((C_word*)t2)[5]);}

/* k5188 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5190(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5190,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5193,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:172: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5191 in k5188 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5193(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_5193,c,av);}
C_trace(C_text("c-backend.scm:173: 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[46];
f_4688(3,av2);}}

/* k5207 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5209(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5209,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5212,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:177: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5210 in k5207 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5212(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_5212,c,av);}
C_trace(C_text("c-backend.scm:178: 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[49];
f_4688(3,av2);}}

/* k5226 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5228,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:182: expr"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6]);}

/* k5229 in k5226 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5231(C_word c,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_5231,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_trace(C_text("c-backend.scm:183: 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[52];
av2[3]=t3;
av2[4]=C_make_character(93);
f_4688(5,av2);}}

/* k5253 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_5255,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_5261,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_5280,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:188: chicken.compiler.core#lambda-literal-customizable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[62]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[62]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5259 in k5253 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_5261(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_5261,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_trace(C_text("c-backend.scm:191: gen"));
t3=lf[4];{
C_word av2[7];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[55];
av2[3]=t2;
av2[4]=lf[56];
av2[5]=((C_word*)t0)[3];
av2[6]=lf[57];
f_4688(7,av2);}}
else{
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
C_trace(C_text("c-backend.scm:192: gen"));
t3=lf[4];{
C_word av2[7];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[58];
av2[3]=t2;
av2[4]=lf[59];
av2[5]=((C_word*)t0)[2];
av2[6]=lf[60];
f_4688(7,av2);}}}

/* k5278 in k5253 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5280,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5283,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];
f_5261(t3,C_i_not(t1));}
else{
C_trace(C_text("c-backend.scm:189: chicken.compiler.core#lambda-literal-direct"));
{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]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k5281 in k5278 in k5253 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_5283,c,av);}
t2=((C_word*)t0)[2];
f_5261(t2,C_i_not(t1));}

/* k5293 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5295(C_word c,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_5295,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_5301,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_5320,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:197: chicken.compiler.core#lambda-literal-customizable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[62]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[62]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5299 in k5293 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_5301(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_5301,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_trace(C_text("c-backend.scm:200: gen"));
t3=lf[4];{
C_word av2[5];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[65];
av2[3]=t2;
av2[4]=lf[66];
f_4688(5,av2);}}
else{
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
C_trace(C_text("c-backend.scm:201: gen"));
t3=lf[4];{
C_word av2[7];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[67];
av2[3]=t2;
av2[4]=lf[68];
av2[5]=((C_word*)t0)[2];
av2[6]=lf[69];
f_4688(7,av2);}}}

/* k5318 in k5293 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5320(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5320,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5323,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];
f_5301(t3,C_i_not(t1));}
else{
C_trace(C_text("c-backend.scm:198: chicken.compiler.core#lambda-literal-direct"));
{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]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k5321 in k5318 in k5293 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5323(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_5323,c,av);}
t2=((C_word*)t0)[2];
f_5301(t2,C_i_not(t1));}

/* k5333 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5335(C_word c,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_5335,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_5341,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_5360,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:206: chicken.compiler.core#lambda-literal-customizable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[62]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[62]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5339 in k5333 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_5341(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_5341,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_trace(C_text("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_4688(5,av2);}}
else{
t2=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1));
C_trace(C_text("c-backend.scm:210: gen"));
t3=lf[4];{
C_word av2[5];
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[73];
av2[3]=t2;
av2[4]=lf[74];
f_4688(5,av2);}}}

/* k5358 in k5333 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5360,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5363,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];
f_5341(t3,C_i_not(t1));}
else{
C_trace(C_text("c-backend.scm:207: chicken.compiler.core#lambda-literal-direct"));
{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]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k5361 in k5358 in k5333 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5363(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_5363,c,av);}
t2=((C_word*)t0)[2];
f_5341(t2,C_i_not(t1));}

/* k5373 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5375,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5378,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:214: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5376 in k5373 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5378(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_5378,c,av);}
C_trace(C_text("c-backend.scm:215: 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[76];
f_4688(3,av2);}}

/* k5392 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5394(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5394,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5397,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:219: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5395 in k5392 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5397(C_word c,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,4)))){
C_save_and_reclaim((void *)f_5397,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5400,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:220: 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_make_character(44);
av2[3]=C_i_car(((C_word*)t2)[6]);
av2[4]=C_make_character(44);
f_4688(5,av2);}}

/* k5398 in k5395 in k5392 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5400(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5400,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5403,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:221: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5401 in k5398 in k5395 in k5392 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5403(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_5403,c,av);}
C_trace(C_text("c-backend.scm:222: 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_4688(3,av2);}}

/* k5425 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5427(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5427,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5430,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:226: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5428 in k5425 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5430(C_word c,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(35,c,4)))){
C_save_and_reclaim((void *)f_5430,c,av);}
a=C_alloc(35);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5433,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t4=C_i_car(((C_word*)t2)[6]);
t5=C_s_a_i_plus(&a,2,t4,C_fix(1));
C_trace(C_text("c-backend.scm:227: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=lf[81];
av2[3]=t5;
av2[4]=lf[82];
f_4688(5,av2);}}

/* k5431 in k5428 in k5425 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5433,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5436,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:228: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5434 in k5431 in k5428 in k5425 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5436(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_5436,c,av);}
C_trace(C_text("c-backend.scm:229: 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_4688(3,av2);}}

/* k5462 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5464,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5467,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:233: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5465 in k5462 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5467(C_word c,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_5467,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5470,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:234: 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]=lf[85];
f_4688(3,av2);}}

/* k5468 in k5465 in k5462 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5470(C_word c,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_5470,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5473,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:235: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,C_i_cadr(((C_word*)t2)[4]),((C_word*)t2)[5]);}

/* k5471 in k5468 in k5465 in k5462 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5473(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_5473,c,av);}
C_trace(C_text("c-backend.scm:236: 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_4688(3,av2);}}

/* k5491 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5493(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5493,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5496,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:240: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5494 in k5491 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_5496,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5499,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:241: 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]=lf[88];
f_4688(3,av2);}}

/* k5497 in k5494 in k5491 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5499(C_word c,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_5499,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5502,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:242: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,C_i_cadr(((C_word*)t2)[4]),((C_word*)t2)[5]);}

/* k5500 in k5497 in k5494 in k5491 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5502(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_5502,c,av);}
C_trace(C_text("c-backend.scm:243: 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_4688(3,av2);}}

/* k5523 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5525(C_word c,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,4)))){
C_save_and_reclaim((void *)f_5525,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5526,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5539,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_trace(C_text("c-backend.scm:253: list-tabulate"));
f_4420(t3,((C_word*)t0)[5],*((C_word*)lf[96]+1));}

/* g827 in k5523 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_5526(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(3,0,4)))){
C_save_and_reclaim_args((void *)trf_5526,4,t0,t1,t2,t3);}
a=C_alloc(3);
t4=C_mutate(((C_word *)t0)+4,t2);
t5=C_mutate(((C_word *)t0)+2,t1);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5530,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:250: gen"));
t7=lf[4];{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[91];
av2[3]=t3;
av2[4]=lf[92];
f_4688(5,av2);}}

/* k5528 in g827 in k5523 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_5530,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5533,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:251: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,((C_word*)t2)[4],((C_word*)t2)[5]);}

/* k5531 in k5528 in g827 in k5523 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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_trace(C_text("c-backend.scm:252: 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_4688(3,av2);}}

/* k5537 in k5523 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5539(C_word c,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_5539,c,av);}
a=C_alloc(10);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[93]);
t3=C_i_check_list_2(t1,lf[93]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5548,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_5555,a[2]=t6,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_5555(t8,t4,((C_word*)t0)[2],t1);}

/* k5546 in k5537 in k5523 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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(29,c,4)))){
C_save_and_reclaim((void *)f_5548,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1));
C_trace(C_text("c-backend.scm:254: 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[94];
av2[3]=t2;
av2[4]=lf[95];
f_4688(5,av2);}}

/* for-each-loop826 in k5537 in k5523 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_5555(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_5555,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_5565,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:248: g827"));
t7=((C_word*)t0)[3];
f_5526(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);}}}

/* k5563 in for-each-loop826 in k5537 in k5523 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5565(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_5565,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_5555(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k5597 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_5599,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5602,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:258: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5600 in k5597 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5602(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_5602,c,av);}
C_trace(C_text("c-backend.scm:259: 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[99];
f_4688(3,av2);}}

/* k5629 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5631(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_5631,c,av);}
C_trace(C_text("c-backend.scm:265: expr"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_4864(t2,((C_word*)t0)[3],C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5671 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_5673,c,av);}
C_trace(C_text("c-backend.scm:274: 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[106];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[107];
av2[5]=t1;
av2[6]=lf[108];
f_4688(7,av2);}}

/* k5675 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5677(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_5677,c,av);}
C_trace(C_text("c-backend.scm:275: c-ify-string"));
f_14014(((C_word*)t0)[2],t1);}

/* k5706 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5708(C_word c,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_5708,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5711,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_5725,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5729,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:287: ##sys#symbol->string/shared"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k5709 in k5706 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5711(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5711,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5714,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:288: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5712 in k5709 in k5706 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5714(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_5714,c,av);}
C_trace(C_text("c-backend.scm:289: 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_4688(3,av2);}}

/* k5723 in k5706 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5725(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_5725,c,av);}
C_trace(C_text("c-backend.scm:287: 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[116];
av2[3]=t1;
av2[4]=lf[117];
f_4688(5,av2);}}

/* k5727 in k5706 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5729,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15396,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:75: chicken.string#->string"));
t3=C_fast_retrieve(lf[120]);{
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);}}

/* k5754 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5756,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5759,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:298: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5757 in k5754 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5759(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_5759,c,av);}
C_trace(C_text("c-backend.scm:299: 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_4688(3,av2);}}

/* k5768 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5770(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_5770,c,av);}
C_trace(C_text("c-backend.scm:296: 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[126];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[127];
av2[5]=t1;
av2[6]=lf[128];
f_4688(7,av2);}}

/* k5772 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5774,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15401,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:75: chicken.string#->string"));
t3=C_fast_retrieve(lf[120]);{
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);}}

/* k5775 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5777(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5777,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5780,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:303: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k5778 in k5775 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5780(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_5780,c,av);}
C_trace(C_text("c-backend.scm:304: 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_4688(3,av2);}}

/* k5789 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5791(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_5791,c,av);}
C_trace(C_text("c-backend.scm:301: 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[129];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[130];
av2[5]=t1;
av2[6]=lf[131];
f_4688(7,av2);}}

/* k5793 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5795(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5795,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15406,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:75: chicken.string#->string"));
t3=C_fast_retrieve(lf[120]);{
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);}}

/* k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_5832(C_word c,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_5832,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_5835,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_5835(t5,(C_truep(t4)?C_i_cadddr(((C_word*)t0)[2]):C_SCHEME_FALSE));}
else{
t3=t2;
f_5835(t3,C_SCHEME_FALSE);}}

/* k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_5835(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_5835,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_5841,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_6295,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6299,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:320: find-lambda"));
t6=((C_word*)((C_word*)t0)[18])[1];
f_4849(t6,t5,t1);}
else{
t4=t3;
f_5841(t4,C_SCHEME_FALSE);}}

/* k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_5841(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_5841,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_5845,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_6264,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[193]))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6284,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15419,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:74: chicken.string#->string"));
t7=C_fast_retrieve(lf[120]);{
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_6291,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15424,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:75: chicken.string#->string"));
t7=C_fast_retrieve(lf[120]);{
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_5845(2,av2);}}}

/* k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_5845,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6261,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:329: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[186]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5852 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 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 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_5854,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5857,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_trace(C_text("c-backend.scm:331: push-args"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_7155(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],lf[137]);}

/* k5855 in k5852 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_5857(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5857,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5860,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:332: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k5858 in k5855 in k5852 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_5860(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_5860,c,av);}
C_trace(C_text("c-backend.scm:333: 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[135];
f_4688(7,av2);}}

/* k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_5876(C_word c,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_5876,c,av);}
a=C_alloc(17);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5879,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_trace(C_text("c-backend.scm:337: chicken.compiler.core#lambda-literal-temporaries"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+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_6005,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_6005(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6060,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_trace(C_text("c-backend.scm:352: 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_4688(6,av2);}}}}

/* k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 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 t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_5879,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5882,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5998,a[2]=t1,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:338: list-tabulate"));
f_4420(t2,((C_word*)t0)[7],t3);}

/* k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 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 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(19,c,4)))){
C_save_and_reclaim((void *)f_5882,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5883,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t2)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
t4=C_i_check_list_2(t1,lf[93]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5899,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=t1,a[6]=((C_word*)t2)[7],tmp=(C_word)a,a+=7,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_5961,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_5961(t9,t5,((C_word*)t2)[8],t1);}

/* g915 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void f_5883(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(3,0,5)))){
C_save_and_reclaim_args((void *)trf_5883,4,t0,t1,t2,t3);}
a=C_alloc(3);
t4=C_mutate(((C_word *)t0)+4,t2);
t5=C_mutate(((C_word *)t0)+2,t1);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5887,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:341: gen"));
t7=lf[4];{
C_word av2[6];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=t3;
av2[5]=C_make_character(61);
f_4688(6,av2);}}

/* k5885 in g915 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_5887(C_word c,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_5887,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5890,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:342: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,((C_word*)t2)[4],((C_word*)t2)[5]);}

/* k5888 in k5885 in g915 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_5890(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_5890,c,av);}
C_trace(C_text("c-backend.scm:343: 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_4688(3,av2);}}

/* k5897 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_5899(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5899,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5907,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_trace(C_text("c-backend.scm:347: list-tabulate"));
f_4420(t2,((C_word*)t0)[6],*((C_word*)lf[96]+1));}

/* k5905 in k5897 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_5907(C_word c,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_5907,c,av);}
a=C_alloc(10);
t2=C_i_check_list_2(t1,lf[93]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5913,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_5924,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_5924(t7,t3,((C_word*)t0)[5],t1);}

/* k5911 in k5905 in k5897 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_5913(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_5913,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5916,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[3])){
C_trace(C_text("c-backend.scm:349: 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[138];
f_4688(4,av2);}}
else{
C_trace(C_text("c-backend.scm:348: 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[139];
av2[4]=((C_word*)t0)[4];
av2[5]=C_make_character(59);
f_4688(6,av2);}}}

/* k5914 in k5911 in k5905 in k5897 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_5916,c,av);}
C_trace(C_text("c-backend.scm:349: 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[138];
f_4688(4,av2);}}

/* for-each-loop925 in k5905 in k5897 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void f_5924(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_5924,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_5934,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:346: 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[140];
av2[6]=C_slot(t2,C_fix(0));
av2[7]=C_make_character(59);
f_4688(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);}}}

/* k5932 in for-each-loop925 in k5905 in k5897 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in ... */
static void C_ccall f_5934(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_5934,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_5924(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-loop914 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void f_5961(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_5961,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_5971,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:339: g915"));
t7=((C_word*)t0)[3];
f_5883(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);}}}

/* k5969 in for-each-loop914 in k5880 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 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,3)))){
C_save_and_reclaim((void *)f_5971,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_5961(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a5997 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 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=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_5998,c,av);}
a=C_alloc(33);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va16049,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=t3;
va16049(t4,C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]));}

/* k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_6005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6005,c,av);}
a=C_alloc(10);
if(C_truep(((C_word*)t0)[2])){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6011,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_trace(C_text("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_SCHEME_TRUE;
av2[3]=((C_word*)t0)[8];
av2[4]=C_make_character(40);
f_4688(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6026,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_trace(C_text("c-backend.scm:361: 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_4688(3,av2);}}}

/* k6009 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_6011(C_word c,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_6011,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6014,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)f15414,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:358: expr-args"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_7076(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
C_trace(C_text("c-backend.scm:357: 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_4688(5,av2);}}}

/* k6012 in k6009 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 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(3,c,3)))){
C_save_and_reclaim((void *)f_6014,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6017,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:358: expr-args"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7076(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6015 in k6012 in k6009 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6017,c,av);}
C_trace(C_text("c-backend.scm:359: 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[142];
f_4688(3,av2);}}

/* k6024 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_6026,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6029,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_6045,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_6056,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
av2[3]=C_fix(10);
tp(4,av2);}}
else{
C_trace(C_text("c-backend.scm:362: push-args"));
t4=((C_word*)((C_word*)t0)[6])[1];
f_7155(t4,t2,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}}

/* k6027 in k6024 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 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 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_6029,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6032,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_trace(C_text("c-backend.scm:363: 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_4688(5,av2);}}

/* k6030 in k6027 in k6024 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_6032(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6032,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6035,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[3])){
C_trace(C_text("c-backend.scm:365: 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[143];
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:364: 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_4688(4,av2);}}}

/* k6033 in k6030 in k6027 in k6024 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_6035(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_6035,c,av);}
C_trace(C_text("c-backend.scm:365: 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[143];
f_4688(3,av2);}}

/* k6043 in k6024 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6045(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_6045,c,av);}
C_trace(C_text("c-backend.scm:362: push-args"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7155(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k6054 in k6024 in k6003 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6056(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_6056,c,av);}
C_trace(C_text("##sys#string-append"));
{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]=((C_word*)t0)[2];
av2[2]=lf[145];
av2[3]=t1;
tp(4,av2);}}

/* k6058 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_6060(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6060,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6063,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:353: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6061 in k6058 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_6063(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_6063,c,av);}
C_trace(C_text("c-backend.scm:354: 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_4688(3,av2);}}

/* k6074 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6076,c,av);}
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(t2)){
C_trace(C_text("c-backend.scm:336: chicken.compiler.core#lambda-literal-looping"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[147]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[147]+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_5876(2,av2);}}}

/* k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void f_6082(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(12,0,5)))){
C_save_and_reclaim_args((void *)trf_6082,2,t0,t1);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6085,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_SCHEME_UNDEFINED,a[8]=C_SCHEME_UNDEFINED,a[9]=C_SCHEME_UNDEFINED,a[10]=C_SCHEME_UNDEFINED,a[11]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("c-backend.scm:370: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word av2[3];
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6195,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:400: 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_4688(6,av2);}}}

/* k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_6085(C_word c,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(5,c,3)))){
C_save_and_reclaim((void *)f_6085,c,av);}
a=C_alloc(5);
t2=C_mutate(((C_word *)t0)+11,t1);
t3=C_i_car(((C_word*)t0)[11]);
t4=C_mutate(((C_word *)t0)+9,t3);
t5=C_i_cadr(((C_word*)t0)[11]);
t6=C_mutate(((C_word *)t0)+10,t5);
t7=C_i_caddr(((C_word*)t0)[11]);
t8=C_mutate(((C_word *)t0)+8,t7);
t9=C_SCHEME_FALSE;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_mutate(((C_word *)t0)+7,t10);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6097,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:375: gen"));
t13=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t13;
av2[1]=t12;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[174];
f_4688(4,av2);}}

/* k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_6097(C_word c,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_6097,c,av);}
a=C_alloc(17);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6100,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_fast_retrieve(lf[151]))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6113,a[2]=((C_word*)t2)[7],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t2)[8])){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6123,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[9];
av2[3]=C_fix(10);
tp(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6131,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[9];
av2[3]=C_fix(10);
tp(4,av2);}}}
else{
if(C_truep(((C_word*)t2)[8])){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6139,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[10],a[4]=t3,a[5]=((C_word*)t2)[11],tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6164,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[9];
av2[3]=C_fix(10);
tp(4,av2);}}
else{
if(C_truep(((C_word*)t2)[10])){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6172,a[2]=((C_word*)t2)[7],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6179,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[9];
av2[3]=C_fix(10);
tp(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6184,a[2]=((C_word*)t2)[7],a[3]=t3,a[4]=((C_word*)t2)[9],tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6191,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[9];
av2[3]=C_fix(10);
tp(4,av2);}}}}}

/* k6098 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6100(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6100,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6103,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:396: 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_4688(3,av2);}}

/* k6101 in k6098 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
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 t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_6103,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6106,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:397: push-args"));
t4=((C_word*)((C_word*)t2)[4])[1];
f_7155(t4,t3,((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)((C_word*)t2)[7])[1]);}

/* k6104 in k6101 in k6098 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_6106(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_6106,c,av);}
C_trace(C_text("c-backend.scm:398: 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[149];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[150];
f_4688(6,av2);}}

/* k6111 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6113,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
C_trace(C_text("c-backend.scm:381: 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[152];
av2[3]=((C_word*)((C_word*)t0)[2])[1];
av2[4]=lf[153];
f_4688(5,av2);}}

/* k6121 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6123(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_6123,c,av);}
C_trace(C_text("c-backend.scm:379: scheme#string-append"));
t2=*((C_word*)lf[154]+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);}}

/* k6129 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6131(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_6131,c,av);}
C_trace(C_text("c-backend.scm:380: scheme#string-append"));
t2=*((C_word*)lf[154]+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[157];
av2[3]=t1;
av2[4]=lf[158];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k6137 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6139(C_word c,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_6139,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_trace(C_text("c-backend.scm:385: 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[159];
av2[3]=((C_word*)((C_word*)t0)[2])[1];
av2[4]=lf[160];
f_4688(5,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6152,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_6156,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:387: ##sys#symbol->string/shared"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t4;
av2[2]=C_i_cadddr(((C_word*)t0)[5]);
tp(3,av2);}}}

/* k6150 in k6137 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_6152(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_6152,c,av);}
C_trace(C_text("c-backend.scm:386: 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[161];
av2[3]=((C_word*)((C_word*)t0)[3])[1];
av2[4]=lf[162];
av2[5]=t1;
av2[6]=lf[163];
f_4688(7,av2);}}

/* k6154 in k6137 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_6156(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_6156,c,av);}
C_trace(C_text("c-backend.scm:387: c-ify-string"));
f_14014(((C_word*)t0)[2],t1);}

/* k6162 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6164(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_6164,c,av);}
C_trace(C_text("c-backend.scm:383: scheme#string-append"));
t2=*((C_word*)lf[154]+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[164];
av2[3]=t1;
av2[4]=lf[165];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k6170 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6172(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6172,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
C_trace(C_text("c-backend.scm:391: 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[166];
av2[3]=((C_word*)((C_word*)t0)[2])[1];
av2[4]=lf[167];
f_4688(5,av2);}}

/* k6177 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6179(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_6179,c,av);}
C_trace(C_text("c-backend.scm:390: scheme#string-append"));
t2=*((C_word*)lf[154]+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[168];
av2[3]=t1;
av2[4]=lf[169];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k6182 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6184,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
C_trace(C_text("c-backend.scm:395: 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[170];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[171];
f_4688(5,av2);}}

/* k6189 in k6095 in k6083 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6191(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_6191,c,av);}
C_trace(C_text("c-backend.scm:394: scheme#string-append"));
t2=*((C_word*)lf[154]+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[172];
av2[3]=t1;
av2[4]=lf[173];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_6195,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6198,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("c-backend.scm:401: expr"));
t4=((C_word*)((C_word*)t2)[9])[1];
f_4864(t4,t3,((C_word*)t2)[7],((C_word*)t2)[6]);}

/* k6196 in k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_6198(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6198,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6201,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:402: 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[185];
f_4688(3,av2);}}

/* k6199 in k6196 in k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 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 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(15,c,3)))){
C_save_and_reclaim((void *)f_6201,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6204,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6229,a[2]=((C_word*)t2)[6],a[3]=t3,a[4]=((C_word*)t2)[7],a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6234,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[4];
av2[3]=C_fix(10);
tp(4,av2);}}

/* k6202 in k6199 in k6196 in k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_6204(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6204,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6207,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:404: 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[183];
f_4688(4,av2);}}

/* k6205 in k6202 in k6199 in k6196 in k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_6207(C_word c,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,2)))){
C_save_and_reclaim((void *)f_6207,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6210,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_fast_retrieve(lf[177]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6216,a[2]=t3,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_fast_retrieve(lf[177]))){
t6=t5;
f_6216(t6,C_fast_retrieve(lf[177]));}
else{
t6=C_fast_retrieve(lf[182]);
if(C_truep(C_fast_retrieve(lf[182]))){
t7=C_fast_retrieve(lf[182]);
t8=t5;
f_6216(t8,C_fast_retrieve(lf[182]));}
else{
t7=t5;
f_6216(t7,((C_word*)t2)[5]);}}}

/* k6208 in k6205 in k6202 in k6199 in k6196 in k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in ... */
static void C_ccall f_6210(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_6210,c,av);}
C_trace(C_text("c-backend.scm:408: 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[175];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[176];
f_4688(5,av2);}}

/* k6214 in k6205 in k6202 in k6199 in k6196 in k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in ... */
static void f_6216(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_6216,2,t0,t1);}
if(C_truep(t1)){
C_trace(C_text("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_4688(5,av2);}}
else{
C_trace(C_text("c-backend.scm:407: gen"));
t2=lf[4];{
C_word av2[5];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[180];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[181];
f_4688(5,av2);}}}

/* k6227 in k6199 in k6196 in k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_6229(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_6229,c,av);}
C_trace(C_text("c-backend.scm:403: push-args"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7155(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k6232 in k6199 in k6196 in k6193 in k6080 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_6234(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_6234,c,av);}
C_trace(C_text("##sys#string-append"));
{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]=((C_word*)t0)[2];
av2[2]=lf[184];
av2[3]=t1;
tp(4,av2);}}

/* k6255 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_6257(C_word c,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_6257,c,av);}
t2=C_eqp(lf[103],t1);
if(C_truep(t2)){
if(C_truep(C_i_not(C_fast_retrieve(lf[177])))){
t3=C_i_not(C_fast_retrieve(lf[182]));
t4=((C_word*)t0)[2];
f_6082(t4,(C_truep(t3)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));}
else{
t3=((C_word*)t0)[2];
f_6082(t3,C_SCHEME_FALSE);}}
else{
t3=((C_word*)t0)[2];
f_6082(t3,C_SCHEME_FALSE);}}

/* k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6261(C_word c,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(20,c,2)))){
C_save_and_reclaim((void *)f_6261,c,av);}
a=C_alloc(20);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[40],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5854,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("c-backend.scm:330: 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(123);
f_4688(3,av2);}}
else{
if(C_truep(((C_word*)t2)[8])){
t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_5876,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[10],a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[11],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[12],a[10]=((C_word*)t2)[13],a[11]=((C_word*)t2)[14],a[12]=((C_word*)t2)[8],a[13]=((C_word*)t2)[5],a[14]=((C_word*)t2)[4],tmp=(C_word)a,a+=15,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6076,a[2]=((C_word*)t2)[8],a[3]=t4,a[4]=((C_word*)t2)[12],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:335: chicken.compiler.core#lambda-literal-id"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[148]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[148]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[12];
tp(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6082,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[4],a[8]=((C_word*)t2)[15],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6257,a[2]=t4,a[3]=((C_word*)t2)[15],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:366: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[186]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}}}

/* k6262 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6264(C_word c,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_6264,c,av);}
t2=(C_truep(C_fast_retrieve(lf[187]))?((C_word*)t0)[2]:C_SCHEME_FALSE);
if(C_truep(t2)){
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
C_trace(C_text("c-backend.scm:327: 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[188];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[189];
av2[6]=lf[190];
av2[7]=lf[191];
f_4688(8,av2);}}
else{
C_trace(C_text("c-backend.scm:327: 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[188];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[189];
av2[6]=lf[192];
av2[7]=lf[191];
f_4688(8,av2);}}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_5845(2,av2);}}}

/* k6282 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6284(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_6284,c,av);}
C_trace(C_text("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[194];
av2[4]=t1;
av2[5]=lf[195];
f_4688(6,av2);}}

/* k6289 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6291(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_6291,c,av);}
C_trace(C_text("c-backend.scm:325: 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[197];
av2[4]=t1;
av2[5]=lf[198];
f_4688(6,av2);}}

/* k6293 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6295(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_6295,c,av);}
t2=((C_word*)t0)[2];
f_5841(t2,C_i_zerop(t1));}

/* k6297 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6299(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_6299,c,av);}
C_trace(C_text("c-backend.scm:320: chicken.compiler.core#lambda-literal-closure-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[199]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6342(C_word c,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_6342,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_6348,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_trace(C_text("c-backend.scm:417: chicken.compiler.core#lambda-literal-temporaries"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+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_6468,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_trace(C_text("c-backend.scm:430: 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_4688(4,av2);}}}

/* k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6348(C_word c,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_6348,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6351,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_6461,a[2]=t1,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:418: list-tabulate"));
f_4420(t2,((C_word*)t0)[5],t3);}

/* k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6351(C_word c,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_6351,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6352,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
t3=C_i_check_list_2(t1,lf[93]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6368,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_6424,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_6424(t8,t4,((C_word*)t0)[6],t1);}

/* g1032 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_6352(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(3,0,5)))){
C_save_and_reclaim_args((void *)trf_6352,4,t0,t1,t2,t3);}
a=C_alloc(3);
t4=C_mutate(((C_word *)t0)+4,t2);
t5=C_mutate(((C_word *)t0)+2,t1);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6356,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:421: gen"));
t7=lf[4];{
C_word av2[6];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_make_character(116);
av2[4]=t3;
av2[5]=C_make_character(61);
f_4688(6,av2);}}

/* k6354 in g1032 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_6356,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6359,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:422: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,((C_word*)t2)[4],((C_word*)t2)[5]);}

/* k6357 in k6354 in g1032 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_6359(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_6359,c,av);}
C_trace(C_text("c-backend.scm:423: 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_4688(3,av2);}}

/* k6366 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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(4,c,3)))){
C_save_and_reclaim((void *)f_6368,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6376,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:427: list-tabulate"));
f_4420(t2,((C_word*)t0)[4],*((C_word*)lf[96]+1));}

/* k6374 in k6366 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6376(C_word c,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_6376,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[93]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6382,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_6387,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_6387(t7,t3,((C_word*)t0)[3],t1);}

/* k6380 in k6374 in k6366 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_6382(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_6382,c,av);}
C_trace(C_text("c-backend.scm:428: 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[202];
f_4688(4,av2);}}

/* for-each-loop1042 in k6374 in k6366 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void f_6387(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_6387,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_6397,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:426: 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[203];
av2[6]=C_slot(t2,C_fix(0));
av2[7]=C_make_character(59);
f_4688(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);}}}

/* k6395 in for-each-loop1042 in k6374 in k6366 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_6397(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_6397,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6387(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-loop1031 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_6424(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_6424,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_6434,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:419: g1032"));
t7=((C_word*)t0)[3];
f_6352(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);}}}

/* k6432 in for-each-loop1031 in k6349 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6434(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_6434,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_6424(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a6460 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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=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_6461,c,av);}
a=C_alloc(33);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va16055,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=t3;
va16055(t4,C_s_a_i_plus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]));}

/* k6466 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_6468,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6471,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)f15437,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:432: expr-args"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_7076(t4,t3,((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
C_trace(C_text("c-backend.scm:431: 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[204];
f_4688(3,av2);}}}

/* k6469 in k6466 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6471,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6474,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:432: expr-args"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7076(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6472 in k6469 in k6466 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6474(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_6474,c,av);}
C_trace(C_text("c-backend.scm:433: 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_4688(3,av2);}}

/* k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6502(C_word c,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_6502,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_6515,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_6610,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:446: find-lambda"));
t8=((C_word*)((C_word*)t0)[12])[1];
f_4849(t8,t7,t2);}

/* k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6515(C_word c,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_6515,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_6519,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_trace(C_text("c-backend.scm:448: 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_4688(3,av2);}}

/* k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6519(C_word c,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_6519,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6522,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_6579,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[193]))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6599,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15448,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:74: chicken.string#->string"));
t6=C_fast_retrieve(lf[120]);{
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_6606,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15453,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:75: chicken.string#->string"));
t6=C_fast_retrieve(lf[120]);{
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_6522(2,av2);}}}

/* k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6522,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6525,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_trace(C_text("c-backend.scm:456: 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[207];
av2[4]=((C_word*)t0)[11];
av2[5]=C_make_character(40);
f_4688(6,av2);}}

/* k6523 in k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6525(C_word c,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_6525,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6528,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_6561,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:458: 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[206];
av2[3]=((C_word*)t0)[10];
av2[4]=C_make_character(41);
f_4688(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_6528(2,av2);}}}

/* k6526 in k6523 in k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_6528(C_word c,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_6528,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6531,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_6531(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6549,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:461: expr"));
t4=((C_word*)((C_word*)t0)[7])[1];
f_4864(t4,t3,((C_word*)t0)[8],((C_word*)t0)[5]);}}

/* k6529 in k6526 in k6523 in k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_6531(C_word c,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_6531,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
C_trace(C_text("c-backend.scm:463: expr-args"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_7076(t3,t2,((C_word*)t0)[3],((C_word*)t0)[5]);}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15441,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:464: 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_4688(3,av2);}}}

/* k6532 in k6529 in k6526 in k6523 in k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_6534(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6534,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6537,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:464: 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_4688(3,av2);}}

/* k6535 in k6532 in k6529 in k6526 in k6523 in k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_6537(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_6537,c,av);}
C_trace(C_text("c-backend.scm:465: 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_4688(4,av2);}}

/* k6547 in k6526 in k6523 in k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_6549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6549,c,av);}
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
C_trace(C_text("c-backend.scm:462: 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_4688(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_6531(2,av2);}}}

/* k6559 in k6523 in k6520 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_6561(C_word c,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_6561,c,av);}
t2=C_i_not(((C_word*)t0)[2]);
if(C_truep(t2)){
if(C_truep(t2)){
C_trace(C_text("c-backend.scm:459: 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_4688(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_6528(2,av2);}}}
else{
if(C_truep(C_i_pairp(((C_word*)t0)[4]))){
C_trace(C_text("c-backend.scm:459: 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_4688(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_6528(2,av2);}}}}

/* k6577 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6579(C_word c,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_6579,c,av);}
t2=(C_truep(C_fast_retrieve(lf[187]))?((C_word*)t0)[2]:C_SCHEME_FALSE);
if(C_truep(t2)){
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
C_trace(C_text("c-backend.scm:454: 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[208];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[209];
av2[6]=lf[210];
av2[7]=lf[211];
f_4688(8,av2);}}
else{
C_trace(C_text("c-backend.scm:454: 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[208];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[209];
av2[6]=lf[212];
av2[7]=lf[211];
f_4688(8,av2);}}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_6522(2,av2);}}}

/* k6597 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6599(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_6599,c,av);}
C_trace(C_text("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_4688(6,av2);}}

/* k6604 in k6517 in k6513 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6606(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_6606,c,av);}
C_trace(C_text("c-backend.scm:452: 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[215];
av2[4]=t1;
av2[5]=lf[216];
f_4688(6,av2);}}

/* k6608 in k6500 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6610,c,av);}
C_trace(C_text("c-backend.scm:446: chicken.compiler.core#lambda-literal-closure-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[199]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k6637 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6639(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6639,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6642,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_trace(C_text("c-backend.scm:476: push-args"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_7155(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],lf[225]);}

/* k6640 in k6637 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6642(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6642,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6649,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:477: toplevel"));
t3=lf[224];{
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_9376(3,av2);}}

/* k6647 in k6640 in k6637 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6649(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_6649,c,av);}
C_trace(C_text("c-backend.scm:477: 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[221];
av2[4]=t1;
av2[5]=lf[222];
av2[6]=((C_word*)t0)[3];
av2[7]=lf[223];
f_4688(8,av2);}}

/* k6660 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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_trace(C_text("c-backend.scm:481: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6663 in k6660 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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_trace(C_text("c-backend.scm:482: 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[227];
f_4688(3,av2);}}

/* k6679 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6681,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6684,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:486: expr-args"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7076(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6682 in k6679 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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,2)))){
C_save_and_reclaim((void *)f_6684,c,av);}
C_trace(C_text("c-backend.scm:487: 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_4688(3,av2);}}

/* k6715 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6717(C_word c,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_6717,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6720,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_6729,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_trace(C_text("c-backend.scm:497: 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_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:499: 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_4688(3,av2);}}}

/* k6718 in k6715 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6720,c,av);}
C_trace(C_text("c-backend.scm:499: 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_4688(3,av2);}}

/* k6727 in k6715 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6729(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_6729,c,av);}
C_trace(C_text("c-backend.scm:498: expr-args"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7076(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k6751 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6753(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_6753,c,av);}
C_trace(C_text("c-backend.scm:502: 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_4688(5,av2);}}

/* k6771 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6773(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6773,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6776,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:507: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6774 in k6771 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6776(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_6776,c,av);}
C_trace(C_text("c-backend.scm:508: 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[242];
f_4688(3,av2);}}

/* k6789 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6791,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:506: foreign-argument-conversion"));
f_11862(t2,((C_word*)t0)[4]);}

/* k6793 in k6789 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6795(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_6795,c,av);}
C_trace(C_text("c-backend.scm:506: 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[243];
av2[5]=((C_word*)t0)[4];
av2[6]=C_make_character(41);
av2[7]=t1;
f_4688(8,av2);}}

/* k6805 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6807(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6807,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6810,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:513: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6808 in k6805 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6810(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_6810,c,av);}
C_trace(C_text("c-backend.scm:514: 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[248];
f_4688(3,av2);}}

/* k6819 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6821(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6821,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6825,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:512: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[251];
tp(4,av2);}}

/* k6823 in k6819 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6825(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_6825,c,av);}
C_trace(C_text("c-backend.scm:512: 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[249];
av2[4]=t1;
av2[5]=lf[250];
f_4688(6,av2);}}

/* k6835 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6837,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6840,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:519: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6838 in k6835 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6840(C_word c,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_6840,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6843,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6857,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:520: foreign-argument-conversion"));
f_11862(t4,((C_word*)t2)[6]);}

/* k6841 in k6838 in k6835 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6843(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6843,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6846,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:521: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6844 in k6841 in k6838 in k6835 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6846(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_6846,c,av);}
C_trace(C_text("c-backend.scm:522: 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[254];
f_4688(3,av2);}}

/* k6855 in k6838 in k6835 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6857(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_6857,c,av);}
C_trace(C_text("c-backend.scm:520: 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[255];
av2[3]=t1;
f_4688(4,av2);}}

/* k6863 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6865(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_6865,c,av);}
C_trace(C_text("c-backend.scm:518: 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[256];
av2[3]=t1;
av2[4]=lf[257];
f_4688(5,av2);}}

/* k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6874,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6877,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:526: expr"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[3]),((C_word*)t0)[5]);}

/* k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6877(C_word c,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_6877,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6880,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:527: 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]=lf[262];
f_4688(3,av2);}}

/* k6878 in k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6880(C_word c,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(7,c,4)))){
C_save_and_reclaim((void *)f_6880,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_i_car(((C_word*)t2)[2]);
t4=C_i_cdr(((C_word*)t2)[3]);
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|4,a[1]=(C_word)f_6893,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_6893(t8,((C_word*)t2)[6],t3,t4);}

/* doloop1131 in k6878 in k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_6893(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_6893,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_6901,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_trace(C_text("c-backend.scm:531: gen"));
t5=lf[4];{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[260];
f_4688(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6914,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_trace(C_text("c-backend.scm:534: gen"));
t5=lf[4];{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[261];
f_4688(4,av2);}}}

/* k6899 in doloop1131 in k6878 in k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6901(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6901,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6904,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:532: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6902 in k6899 in doloop1131 in k6878 in k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_6904(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_6904,c,av);}
C_trace(C_text("c-backend.scm:533: 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_4688(3,av2);}}

/* k6912 in doloop1131 in k6878 in k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_6914,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6917,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:535: expr"));
t3=((C_word*)((C_word*)t0)[6])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[5]),((C_word*)t0)[7]);}

/* k6915 in k6912 in doloop1131 in k6878 in k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_6917(C_word c,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_6917,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6920,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:536: 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(58);
f_4688(3,av2);}}

/* k6918 in k6915 in k6912 in doloop1131 in k6878 in k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_6920(C_word c,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_6920,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6923,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:537: expr"));
t4=((C_word*)((C_word*)t2)[6])[1];
f_4864(t4,t3,C_i_cadr(((C_word*)t2)[5]),((C_word*)t2)[7]);}

/* k6921 in k6918 in k6915 in k6912 in doloop1131 in k6878 in k6875 in k6872 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_6923(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6923,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_6893(t3,((C_word*)t0)[4],t2,C_i_cddr(((C_word*)t0)[5]));}

/* k6951 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6953(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_6953,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6956,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:541: expr"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5]);}

/* k6954 in k6951 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6956(C_word c,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_6956,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6959,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:542: 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]=lf[265];
f_4688(3,av2);}}

/* k6957 in k6954 in k6951 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6959(C_word c,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_6959,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6962,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:543: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,C_i_cadr(((C_word*)t2)[4]),((C_word*)t2)[5]);}

/* k6960 in k6957 in k6954 in k6951 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6962(C_word c,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_6962,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6965,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:544: 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(58);
f_4688(3,av2);}}

/* k6963 in k6960 in k6957 in k6954 in k6951 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6965(C_word c,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_6965,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6968,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:545: expr"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_4864(t4,t3,C_i_caddr(((C_word*)t2)[4]),((C_word*)t2)[5]);}

/* k6966 in k6963 in k6960 in k6957 in k6954 in k6951 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_6968(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_6968,c,av);}
C_trace(C_text("c-backend.scm:546: 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_4688(3,av2);}}

/* k6988 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_6990(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_6990,c,av);}
C_trace(C_text("c-backend.scm:548: 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[267];
av2[3]=t1;
tp(4,av2);}}

/* expr-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7076(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_7076,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_7082,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_7082(t7,t1,t2);}

/* loop in expr-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7082(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_7082,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_7092,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_7092(2,av2);}}
else{
C_trace(C_text("c-backend.scm:553: gen"));
t5=lf[4];{
C_word av2[3];
av2[0]=t5;
av2[1]=t3;
av2[2]=C_make_character(44);
f_4688(3,av2);}}}}

/* k7090 in loop in expr-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7092,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7095,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_trace(C_text("c-backend.scm:554: expr"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[6]);}

/* k7093 in k7090 in loop in expr-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7095(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_7095,c,av);}
C_trace(C_text("c-backend.scm:555: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7082(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* contains-restop? in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7112(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_7112,3,t0,t1,t2);}
a=C_alloc(6);
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|3,a[1]=(C_word)f_7118,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_7118(t6,t1,t2);}

/* loop in contains-restop? in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7118(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_7118,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7153,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:563: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[186]);
C_word av2[3];
av2[0]=*((C_word*)lf[186]+1);
av2[1]=t4;
av2[2]=t3;
tp(3,av2);}}}

/* k7135 in k7151 in loop in contains-restop? in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7137(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_7137,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_trace(C_text("c-backend.scm:565: loop"));
t2=((C_word*)((C_word*)t0)[3])[1];
f_7118(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* k7147 in k7151 in loop in contains-restop? in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7149(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_7149,c,av);}
C_trace(C_text("c-backend.scm:564: contains-restop?"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7112(t2,((C_word*)t0)[3],t1);}

/* k7151 in loop in contains-restop? in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7153(C_word c,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_7153,c,av);}
a=C_alloc(9);
t2=C_eqp(t1,lf[54]);
if(C_truep(t2)){
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{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7137,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7149,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:564: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[268]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[268]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}}

/* push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7155(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(20,0,2)))){
C_save_and_reclaim_args((void *)trf_7155,5,t0,t1,t2,t3,t4);}
a=C_alloc(20);
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|10,a[1]=(C_word)f_7167,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t1,a[6]=t2,a[7]=C_SCHEME_UNDEFINED,a[8]=t7,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],tmp=(C_word)a,a+=11,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7273,a[2]=t8,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:570: chicken.compiler.core#lambda-literal-customizable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[62]);
C_word av2[3];
av2[0]=*((C_word*)lf[62]+1);
av2[1]=t9;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7167(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7167,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+7,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7170,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:572: chicken.compiler.core#lambda-literal-argument-count"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[10];
tp(3,av2);}}

/* k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7170(C_word c,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_7170,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7173,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=t1,a[10]=((C_word*)t2)[9],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("c-backend.scm:573: chicken.compiler.core#lambda-literal-rest-argument-mode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[286]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[286]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[10];
tp(3,av2);}}

/* k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7173(C_word c,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_7173,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7176,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_7224,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;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t3;
f_7224(2,av2);}}
else{
if(C_truep(C_i_lessp(((C_word*)t0)[9],((C_word*)t0)[8]))){
t5=C_eqp(t1,lf[285]);
if(C_truep(t5)){
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
f_7224(2,av2);}}
else{
C_trace(C_text("c-backend.scm:582: contains-restop?"));
t6=((C_word*)((C_word*)t0)[10])[1];
f_7112(t6,t4,((C_word*)t0)[6]);}}
else{
C_trace(C_text("c-backend.scm:582: contains-restop?"));
t5=((C_word*)((C_word*)t0)[10])[1];
f_7112(t5,t4,((C_word*)t0)[6]);}}}

/* k7174 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7176(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7176,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7179,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[2])){
C_trace(C_text("c-backend.scm:593: 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[272];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[273];
f_4688(6,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7179(2,av2);}}}

/* k7177 in k7174 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7179(C_word c,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_7179,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(C_truep(((C_word*)t2)[2])?C_fix(1):C_fix(0));
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_7188,a[2]=t5,a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_7188(t7,((C_word*)t2)[5],t3,((C_word*)t2)[6]);}

/* doloop1184 in k7177 in k7174 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7188(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_7188,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_7198,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_trace(C_text("c-backend.scm:597: gen"));
t5=lf[4];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[270];
av2[4]=t2;
av2[5]=lf[271];
f_4688(6,av2);}}}

/* k7196 in doloop1184 in k7177 in k7174 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7198(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7198,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7201,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_trace(C_text("c-backend.scm:598: expr"));
t3=((C_word*)((C_word*)t0)[6])[1];
f_4864(t3,t2,C_i_car(((C_word*)t0)[5]),((C_word*)t0)[7]);}

/* k7199 in k7196 in doloop1184 in k7177 in k7174 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7201,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7204,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:599: 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[269];
f_4688(3,av2);}}

/* k7202 in k7199 in k7196 in doloop1184 in k7177 in k7174 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7204(C_word c,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,3)))){
C_save_and_reclaim((void *)f_7204,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
t3=C_s_a_i_plus(&a,2,((C_word*)t2)[2],C_fix(1));
t4=((C_word*)((C_word*)t2)[3])[1];
f_7188(t4,((C_word*)t2)[4],t3,C_u_i_cdr(((C_word*)t2)[5]));}

/* k7222 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7224,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:583: 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[274];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[275];
f_4688(6,av2);}}
else{
if(C_truep(C_i_greater_or_equalp(((C_word*)t0)[4],((C_word*)t0)[3]))){
C_trace(C_text("c-backend.scm:585: 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[276];
f_4688(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7239,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:587: 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[284];
f_4688(4,av2);}}}}

/* k7237 in k7222 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7239(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7239,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7242,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:588: 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[282];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[283];
f_4688(6,av2);}}

/* k7240 in k7237 in k7222 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7242(C_word c,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_7242,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7245,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:589: 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[281];
f_4688(4,av2);}}

/* k7243 in k7240 in k7237 in k7222 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7245(C_word c,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_7245,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7248,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:590: 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[280];
f_4688(4,av2);}}

/* k7246 in k7243 in k7240 in k7237 in k7222 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7248(C_word c,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,5)))){
C_save_and_reclaim((void *)f_7248,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7251,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:591: 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[278];
av2[4]=((C_word*)t2)[3];
av2[5]=lf[279];
f_4688(6,av2);}}

/* k7249 in k7246 in k7243 in k7240 in k7237 in k7222 in k7171 in k7168 in k7165 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7251(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_7251,c,av);}
C_trace(C_text("c-backend.scm:592: 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[277];
f_4688(4,av2);}}

/* k7271 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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(3,c,2)))){
C_save_and_reclaim((void *)f_7273,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7276,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=((C_word*)t0)[2];
f_7167(t3,C_i_not(t1));}
else{
C_trace(C_text("c-backend.scm:571: chicken.compiler.core#lambda-literal-direct"));
{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]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k7274 in k7271 in push-args in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7276,c,av);}
t2=((C_word*)t0)[2];
f_7167(t2,C_i_not(t1));}

/* header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7284(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_7284,2,t0,t1);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7288,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_7374,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_7386,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_7427,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:608: chicken.platform#chicken-version"));
t10=C_fast_retrieve(lf[309]);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}

/* k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7288,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7291,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:611: gen-list"));
f_4731(t2,((C_word*)t0)[3]);}

/* k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7291,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7294,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_not(C_fast_retrieve(lf[297])))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7294(2,av2);}}
else{
C_trace(C_text("c-backend.scm:613: 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[298];
av2[4]=C_fast_retrieve(lf[297]);
f_4688(5,av2);}}}

/* k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7294(C_word c,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_7294,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7297,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_nullp(C_fast_retrieve(lf[295])))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7297(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7361,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:615: 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[296];
f_4688(4,av2);}}}

/* k7295 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7297(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7297,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7300,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:617: 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[294];
f_4688(4,av2);}}

/* k7298 in k7295 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7300(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7300,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7303,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:618: 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[291];
av2[4]=C_fast_retrieve(lf[292]);
av2[5]=lf[293];
f_4688(6,av2);}}

/* k7301 in k7298 in k7295 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7303(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7303,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7306,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[287]))){
C_trace(C_text("c-backend.scm:620: generate-foreign-callback-stub-prototypes"));
f_9559(t2,C_fast_retrieve(lf[289]));}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_7306(2,av2);}}}

/* k7304 in k7301 in k7298 in k7295 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7306(C_word c,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_7306,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7309,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(C_fast_retrieve(lf[290])))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7321,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:622: 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_4688(3,av2);}}
else{
if(C_truep(C_fast_retrieve(lf[287]))){
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_trace(C_text("c-backend.scm:625: generate-foreign-callback-stub-prototypes"));
f_9559(((C_word*)t0)[2],C_fast_retrieve(lf[289]));}}}

/* k7307 in k7304 in k7301 in k7298 in k7295 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7309,c,av);}
if(C_truep(C_fast_retrieve(lf[287]))){
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_trace(C_text("c-backend.scm:625: generate-foreign-callback-stub-prototypes"));
f_9559(((C_word*)t0)[2],C_fast_retrieve(lf[289]));}}

/* k7319 in k7304 in k7301 in k7298 in k7295 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7321(C_word c,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_7321,c,av);}
a=C_alloc(5);
t2=C_fast_retrieve(lf[290]);
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_7331,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7331(t6,((C_word*)t0)[2],C_fast_retrieve(lf[290]));}

/* for-each-loop1247 in k7319 in k7304 in k7301 in k7298 in k7295 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7331(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_7331,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_7341,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:623: 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_4688(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);}}}

/* k7339 in for-each-loop1247 in k7319 in k7304 in k7301 in k7298 in k7295 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7341(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_7341,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7331(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k7359 in k7292 in k7289 in k7286 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7361(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_7361,c,av);}
C_trace(C_text("c-backend.scm:616: gen-list"));
f_4731(((C_word*)t0)[2],C_fast_retrieve(lf[295]));}

/* k7372 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7374(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_7374,c,av);}
C_trace(C_text("c-backend.scm:604: 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[299];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[300];
av2[5]=C_SCHEME_TRUE;
av2[6]=lf[301];
av2[7]=C_SCHEME_TRUE;
av2[8]=t1;
av2[9]=lf[302];
f_4688(10,av2);}}

/* k7384 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7386(C_word c,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_7386,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7389,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_7391,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_7391(t6,t2,t1);}

/* k7387 in k7384 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7389(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_7389,c,av);}
C_trace(C_text("c-backend.scm:606: chicken.string#string-intersperse"));
t2=C_fast_retrieve(lf[303]);{
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[304];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop1212 in k7384 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7391(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_7391,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_7416,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_trace(C_text("c-backend.scm:607: g1235"));
t4=*((C_word*)lf[154]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[305];
av2[3]=C_slot(t2,C_fix(0));
av2[4]=lf[306];
((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);}}}

/* k7414 in map-loop1212 in k7384 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7416(C_word c,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_7416,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_7391(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k7425 in header in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7427(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_7427,c,av);}
C_trace(C_text("c-backend.scm:608: chicken.string#string-split"));
t2=C_fast_retrieve(lf[307]);{
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[308];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k7435 in k9164 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_7437(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_7437,c,av);}
C_trace(C_text("c-backend.scm:628: 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[498];
av2[5]=C_SCHEME_TRUE;
av2[6]=t1;
av2[7]=lf[499];
av2[8]=C_SCHEME_TRUE;
av2[9]=lf[500];
av2[10]=C_SCHEME_TRUE;
f_4688(11,av2);}}

/* k7439 in k9164 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_7441(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7441,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15524,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:75: chicken.string#->string"));
t3=C_fast_retrieve(lf[120]);{
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 k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7443(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_7443,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_7450,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:637: 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[322];
f_4688(5,av2);}}

/* k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7450(C_word c,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(15,c,3)))){
C_save_and_reclaim((void *)f_7450,c,av);}
a=C_alloc(15);
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[224];
t7=C_fast_retrieve(lf[295]);
t8=C_i_check_list_2(C_fast_retrieve(lf[295]),lf[310]);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7464,a[2]=t0,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_7605,a[2]=t4,a[3]=t11,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t13=((C_word*)t11)[1];
f_7605(t13,t9,C_fast_retrieve(lf[295]));}

/* k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7464(C_word c,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_7464,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=C_i_check_list_2(t1,lf[93]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7470,a[2]=t2,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_7582,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=((C_word*)t6)[1];
f_7582(t8,t4,t1);}

/* k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7470(C_word c,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(4,c,6)))){
C_save_and_reclaim((void *)f_7470,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7473,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=C_eqp(((C_word*)t2)[4],C_fix(0));
if(C_truep(t4)){
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_7473(2,av2);}}
else{
C_trace(C_text("c-backend.scm:644: gen"));
t5=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[316];
av2[5]=((C_word*)t2)[4];
av2[6]=lf[317];
f_4688(7,av2);}}}

/* k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7473,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7476,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:645: 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[315];
f_4688(4,av2);}}

/* k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7476(C_word c,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,4)))){
C_save_and_reclaim((void *)f_7476,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
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_7481,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7481(t6,((C_word*)t2)[2],C_fix(0),((C_word*)t2)[3]);}

/* doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7481(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(23,0,11)))){
C_save_and_reclaim_args((void *)trf_7481,4,t0,t1,t2,t3);}
a=C_alloc(23);
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=C_i_car(t3);
t5=C_block_size(t4);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7497,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t5,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
t7=C_s_a_i_arithmetic_shift(&a,2,t5,C_fix(-16));
t8=C_s_a_i_arithmetic_shift(&a,2,t5,C_fix(-8));
t9=C_s_a_i_bitwise_and(&a,2,C_fix(255),t8);
C_trace(C_text("c-backend.scm:651: gen"));
t10=lf[4];{
C_word av2[12];
av2[0]=t10;
av2[1]=t6;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[313];
av2[4]=t2;
av2[5]=lf[314];
av2[6]=t7;
av2[7]=C_make_character(44);
av2[8]=t9;
av2[9]=C_make_character(44);
av2[10]=C_u_fixnum_and(C_fix(255),t5);
av2[11]=C_make_character(41);
f_4688(12,av2);}}}

/* k7495 in doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7497(C_word c,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_7497,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7500,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_7539,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_7539(t6,t2,C_fix(0));}

/* k7498 in k7495 in doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7500(C_word c,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_7500,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7503,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_7521,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_7521(t9,t2,t5);}

/* k7501 in k7498 in k7495 in doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7503(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7503,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7506,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:662: 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[311];
f_4688(3,av2);}}

/* k7504 in k7501 in k7498 in k7495 in doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7506(C_word c,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,3)))){
C_save_and_reclaim((void *)f_7506,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
t3=C_s_a_i_plus(&a,2,((C_word*)t2)[2],C_fix(1));
t4=((C_word*)((C_word*)t2)[3])[1];
f_7481(t4,((C_word*)t2)[4],t3,C_u_i_cdr(((C_word*)t2)[5]));}

/* doloop1324 in k7498 in k7495 in doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7521(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_7521,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_7529,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:661: gen"));
t4=lf[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[312];
f_4688(3,av2);}}}

/* k7527 in doloop1324 in k7498 in k7495 in doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7529(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7529,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_7521(t3,((C_word*)t0)[4],t2);}

/* doloop1323 in k7495 in doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7539(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_7539,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_7549,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:658: gen"));
t4=lf[4];{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(44);
av2[3]=C_subbyte(((C_word*)t0)[4],t2);
f_4688(4,av2);}}}

/* k7547 in doloop1323 in k7495 in doloop1283 in k7474 in k7471 in k7468 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7549(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7549,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_7539(t3,((C_word*)t0)[4],t2);}

/* for-each-loop1275 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7582(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_7582,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_7592,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_trace(C_text("c-backend.scm:640: gen"));
t5=lf[4];{
C_word av2[10];
av2[0]=t5;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[318];
av2[4]=t4;
av2[5]=lf[319];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[320];
av2[8]=t4;
av2[9]=lf[321];
f_4688(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);}}}

/* k7590 in for-each-loop1275 in k7462 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7592(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_7592,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7582(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* map-loop1289 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7605(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_7605,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_7630,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_trace(C_text("c-backend.scm:642: g1295"));
t4=lf[224];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
f_9376(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);}}}

/* k7628 in map-loop1289 in k7448 in declarations in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7630(C_word c,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_7630,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_7605(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7639(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7639,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7643,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:665: gen"));
t4=lf[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
f_4688(3,av2);}}

/* k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7643(C_word c,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(5,c,3)))){
C_save_and_reclaim((void *)f_7643,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=C_i_check_list_2(((C_word*)t2)[2],lf[93]);
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_7791,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7791(t7,((C_word*)t2)[3],((C_word*)t2)[2]);}

/* k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7652(C_word c,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_7652,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7655,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:671: chicken.compiler.core#lambda-literal-customizable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[62]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[62]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7655(C_word c,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_7655,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7658,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t1)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7783,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:672: chicken.compiler.core#lambda-literal-closure-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[199]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t4=t3;
f_7658(t4,C_SCHEME_FALSE);}}

/* k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7658(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,3)))){
C_save_and_reclaim_args((void *)trf_7658,2,t0,t1);}
a=C_alloc(39);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7661,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7774,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_trace(C_text("c-backend.scm:673: make-variable-list"));
f_9468(t3,t4,lf[340]);}
else{
C_trace(C_text("c-backend.scm:673: make-variable-list"));
f_9468(t3,((C_word*)t0)[6],lf[340]);}}

/* k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7661(C_word c,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_7661,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7664,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:674: chicken.compiler.core#lambda-literal-direct"));
{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]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7664(C_word c,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_7664,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7667,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[5],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("c-backend.scm:675: 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]=t3;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}

/* k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7667(C_word c,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_7667,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7670,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:676: 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_4688(3,av2);}}

/* k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7670(C_word c,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,5)))){
C_save_and_reclaim((void *)f_7670,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7673,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
t4=C_eqp(lf[327],((C_word*)t2)[7]);
if(C_truep(C_i_not(t4))){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7735,a[2]=t3,a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:678: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[332];
av2[3]=((C_word*)t2)[7];
av2[4]=lf[333];
av2[5]=C_SCHEME_TRUE;
f_4688(6,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7757,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:684: toplevel"));
t6=lf[224];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_fast_retrieve(lf[297]);
f_9376(3,av2);}}}

/* k7671 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7673,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7676,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("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]=t2;
av2[2]=C_make_character(40);
f_4688(3,av2);}}

/* k7674 in k7671 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_7676(C_word c,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_7676,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7679,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t2)[4])){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_7679(2,av2);}}
else{
C_trace(C_text("c-backend.scm:689: 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]=lf[326];
f_4688(3,av2);}}}

/* k7677 in k7674 in k7671 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
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 t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_7679,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7682,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t4=(C_truep(((C_word*)t2)[3])?C_i_not(C_i_zerop(((C_word*)t2)[6])):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7712,a[2]=((C_word*)t2)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:691: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[325];
f_4688(3,av2);}}
else{
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_7682(2,av2);}}}

/* k7680 in k7677 in k7674 in k7671 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_7682(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7682,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7685,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_trace(C_text("c-backend.scm:695: 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[324];
f_4688(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_trace(C_text("c-backend.scm:695: 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[324];
f_4688(3,av2);}}}}

/* k7683 in k7680 in k7677 in k7674 in k7671 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
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 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_7685,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7688,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:696: 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_4688(3,av2);}}

/* k7686 in k7683 in k7680 in k7677 in k7674 in k7671 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_7688(C_word c,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_7688,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7691,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t2)[3])){
C_trace(C_text("c-backend.scm:698: gen"));
t4=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=((C_word*)t2)[2];
av2[2]=C_make_character(59);
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:697: 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]=lf[323];
f_4688(3,av2);}}}

/* k7689 in k7686 in k7683 in k7680 in k7677 in k7674 in k7671 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in ... */
static void C_ccall f_7691(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_7691,c,av);}
C_trace(C_text("c-backend.scm:698: 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_4688(3,av2);}}

/* k7710 in k7677 in k7674 in k7671 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_7712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7712,c,av);}
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
C_trace(C_text("c-backend.scm:692: 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_4688(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_7682(2,av2);}}}

/* k7733 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7735,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7738,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("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[331];
f_4688(3,av2);}}

/* k7736 in k7733 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_7738(C_word c,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_7738,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7741,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t2)[5])){
C_trace(C_text("c-backend.scm:680: 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]=lf[329];
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:680: 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]=lf[330];
f_4688(3,av2);}}}

/* k7739 in k7736 in k7733 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_7741(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7741,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7744,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_trace(C_text("c-backend.scm:682: 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_word*)t0)[3];
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:681: 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_4688(3,av2);}}}

/* k7742 in k7739 in k7736 in k7733 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_7744(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_7744,c,av);}
C_trace(C_text("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)[2];
av2[2]=((C_word*)t0)[3];
f_4688(3,av2);}}

/* k7755 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7757(C_word c,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,5)))){
C_save_and_reclaim((void *)f_7757,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7760,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:685: 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]=lf[336];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[337];
av2[5]=C_SCHEME_TRUE;
f_4688(6,av2);}}

/* k7758 in k7755 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_7760(C_word c,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_7760,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7763,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:686: 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]=lf[335];
f_4688(3,av2);}}

/* k7761 in k7758 in k7755 in k7668 in k7665 in k7662 in k7659 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_7763(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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,3)))){
C_save_and_reclaim((void *)f_7763,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:687: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=lf[334];
av2[3]=((C_word*)t2)[3];
f_4688(4,av2);}}

/* k7772 in k7656 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7774(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_7774,c,av);}
C_trace(C_text("c-backend.scm:673: 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);}}

/* k7781 in k7653 in k7650 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7783,c,av);}
t2=((C_word*)t0)[2];
f_7658(t2,C_i_zerop(t1));}

/* for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7791(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(11,0,2)))){
C_save_and_reclaim_args((void *)trf_7791,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_7801,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|5,a[1]=(C_word)f_7652,a[2]=t3,a[3]=t5,a[4]=t6,a[5]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:670: chicken.compiler.core#lambda-literal-argument-count"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+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);}}}

/* k7799 in for-each-loop1344 in k7641 in prototypes in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7801(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_7801,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7791(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7814(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_7814,2,t0,t1);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[93]);
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_7912,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7912(t6,t1,((C_word*)t0)[2]);}

/* doloop1409 in k7870 in k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7825(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_7825,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_7835,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:710: 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_4688(8,av2);}}}

/* k7833 in doloop1409 in k7870 in k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7835(C_word c,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_7835,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_7825(t4,((C_word*)t0)[5],t2,t3);}

/* k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7851(C_word c,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,2)))){
C_save_and_reclaim((void *)f_7851,c,av);}
a=C_alloc(5);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_mutate(((C_word *)t0)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7854,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:717: chicken.compiler.core#lambda-literal-customizable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[62]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[62]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_7854,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7857,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t1)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7904,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:718: chicken.compiler.core#lambda-literal-closure-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[199]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}
else{
t4=t3;
f_7857(t4,C_SCHEME_FALSE);}}

/* k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7857(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(32,0,2)))){
C_save_and_reclaim_args((void *)trf_7857,2,t0,t1);}
a=C_alloc(32);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7860,a[2]=t0,tmp=(C_word)a,a+=3,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_7860(t5,t4);}
else{
t3=t2;
f_7860(t3,C_SCHEME_UNDEFINED);}}

/* k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7860(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(9,0,2)))){
C_save_and_reclaim_args((void *)trf_7860,2,t0,t1);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7898,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("c-backend.scm:720: chicken.compiler.core#lambda-literal-direct"));
{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]=t3;
av2[2]=((C_word*)t2)[9];
tp(3,av2);}}

/* k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7869(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7869,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7872,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:723: 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_4688(6,av2);}}

/* k7870 in k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7872(C_word c,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(40,c,4)))){
C_save_and_reclaim((void *)f_7872,c,av);}
a=C_alloc(40);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7875,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t4=((C_word*)((C_word*)t2)[3])[1];
t5=C_s_a_i_minus(&a,2,t4,C_fix(1));
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_7825,a[2]=t4,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_7825(t9,t3,C_fix(0),t5);}

/* k7873 in k7870 in k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7875,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7878,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:725: 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_4688(5,av2);}}

/* k7876 in k7873 in k7870 in k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_7878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7878,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7881,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:726: make-argument-list"));
f_9485(t2,((C_word*)((C_word*)t0)[3])[1],lf[343]);}

/* k7879 in k7876 in k7873 in k7870 in k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_7881(C_word c,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_7881,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7884,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7891,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:727: 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);}}

/* k7882 in k7879 in k7876 in k7873 in k7870 in k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_7884(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_7884,c,av);}
C_trace(C_text("c-backend.scm:728: 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_4688(3,av2);}}

/* k7889 in k7879 in k7876 in k7873 in k7870 in k7867 in k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_7891(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_7891,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);}}

/* k7896 in k7858 in k7855 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7898(C_word c,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_7898,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_7869,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_trace(C_text("c-backend.scm:721: 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_4688(11,av2);}}
else{
t4=((C_word*)((C_word*)t0)[6])[1];
f_7912(t4,((C_word*)t0)[7],C_slot(((C_word*)t0)[8],C_fix(1)));}}

/* k7902 in k7852 in k7849 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7904(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_7904,c,av);}
t2=((C_word*)t0)[2];
f_7857(t2,C_i_zerop(t1));}

/* for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7912(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(14,0,2)))){
C_save_and_reclaim_args((void *)trf_7912,3,t0,t1,t2);}
a=C_alloc(14);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7922,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|8,a[1]=(C_word)f_7851,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=t1,a[7]=t2,a[8]=t6,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("c-backend.scm:716: chicken.compiler.core#lambda-literal-argument-count"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+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);}}}

/* k7920 in for-each-loop1399 in trampolines in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7922(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_7922,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7912(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7935(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_7935,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_7941,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_7941(t5,t1,C_fix(0),((C_word*)t0)[2]);}

/* doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7941(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(15,0,2)))){
C_save_and_reclaim_args((void *)trf_7941,4,t0,t1,t2,t3);}
a=C_alloc(15);
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_7951,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|8,a[1]=(C_word)f_7966,a[2]=t4,a[3]=t5,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t1,a[7]=t3,a[8]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("c-backend.scm:735: scheme#open-output-string"));
t7=C_fast_retrieve(lf[380]);{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k7949 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7951,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_7941(t3,((C_word*)t0)[4],t2,C_u_i_cdr(((C_word*)t0)[5]));}

/* k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7966(C_word c,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,4)))){
C_save_and_reclaim((void *)f_7966,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=C_i_check_port_2(((C_word*)t0)[8],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7972,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:735: ##sys#print"));
t5=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[379];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7972(C_word c,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,4)))){
C_save_and_reclaim((void *)f_7972,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7975,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:735: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7975(C_word c,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_7975,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7978,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:735: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t3;
av2[2]=C_make_character(93);
av2[3]=((C_word*)t2)[8];
tp(4,av2);}}

/* k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7978(C_word c,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_7978,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7981,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("c-backend.scm:735: scheme#get-output-string"));
t4=C_fast_retrieve(lf[376]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7981(C_word c,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,2)))){
C_save_and_reclaim((void *)f_7981,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8279,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],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],tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_fixnump(((C_word*)t0)[3]))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8432,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:773: chicken.compiler.support#big-fixnum?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[375]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[375]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t3=t2;
f_8279(t3,C_SCHEME_FALSE);}}

/* literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_7989(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_7989,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7996,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:741: chicken.compiler.support#immediate?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[386]);
C_word av2[3];
av2[0]=*((C_word*)lf[386]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_7996(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_7996,c,av);}
a=C_alloc(3);
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|2,a[1]=(C_word)f_8002,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:742: chicken.compiler.support#big-fixnum?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[375]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[375]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8002(C_word c,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_8002,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fix(2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_stringp(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fix(0);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_bignump(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fix(2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_flonump(((C_word*)t2)[3]))){
t3=C_fast_retrieve(lf[381]);
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_fast_retrieve(lf[381]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t2)[3]))){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fix(7);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8032,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:747: chicken.keyword#keyword?"));
t4=C_fast_retrieve(lf[368]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}}}}

/* k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8032(C_word c,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(12,c,2)))){
C_save_and_reclaim((void *)f_8032,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_fix(7);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_pairp(((C_word*)t2)[3]))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8045,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:748: literal-size"));
t4=((C_word*)((C_word*)t2)[4])[1];
f_7989(t4,t3,C_u_i_car(((C_word*)t2)[3]));}
else{
if(C_truep(C_i_vectorp(((C_word*)t2)[3]))){
t3=C_block_size(((C_word*)t2)[3]);
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|6,a[1]=(C_word)f_8073,a[2]=((C_word*)t2)[2],a[3]=t3,a[4]=t6,a[5]=((C_word*)t2)[4],a[6]=t7,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:751: scheme#vector->list"));
t9=*((C_word*)lf[383]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8147,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:752: chicken.compiler.support#block-variable-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[374]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[374]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}}}}

/* k8043 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8045,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8049,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:748: literal-size"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_7989(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));}

/* k8047 in k8043 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8049(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8049,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va16087,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=t2;
va16087(t3,C_s_a_i_plus(&a,2,C_fix(3),((C_word*)t0)[3]));}

/* k8071 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8073(C_word c,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_8073,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8076,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_8108,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_8108(t6,t2,t1);}

/* k8074 in k8071 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8076(C_word c,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_8076,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[382]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8082,a[2]=t0,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_8084,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_8084(t7,t3,t1,C_fix(0));}

/* k8080 in k8074 in k8071 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8082(C_word c,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(33,c,2)))){
C_save_and_reclaim((void *)f_8082,c,av);}
a=C_alloc(33);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va16089,a[2]=((C_word*)t2)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=t3;
va16089(t4,C_s_a_i_plus(&a,2,C_fix(1),((C_word*)t2)[3]));}

/* foldl1468 in k8074 in k8071 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_8084(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_8084,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-loop1475 in k8071 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_8108(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_8108,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_8133,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_trace(C_text("c-backend.scm:751: g1481"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_7989(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);}}}

/* k8131 in map-loop1475 in k8071 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8133(C_word c,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_8133,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_8108(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8147(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8147,c,av);}
a=C_alloc(3);
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_trace(C_text("c-backend.scm:738: 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[373];
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|2,a[1]=(C_word)f_8165,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:755: ##sys#bytevector?"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[385]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[385]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}}}

/* k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8165(C_word c,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(13,c,4)))){
C_save_and_reclaim((void *)f_8165,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8172,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:755: chicken.compiler.support#bytes->words"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[384]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[384]+1);
av2[1]=t3;
av2[2]=C_block_size(((C_word*)t2)[3]);
tp(3,av2);}}
else{
if(C_truep(C_structurep(((C_word*)t2)[3]))){
t3=C_block_size(((C_word*)t2)[3]);
t4=C_a_i_fixnum_plus(&a,2,C_fix(2),t3);
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|5,a[1]=(C_word)f_8193,a[2]=t3,a[3]=t6,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp));
t8=((C_word*)t6)[1];
f_8193(t8,((C_word*)t2)[2],C_fix(0),t4);}
else{
if(C_truep(C_i_ratnump(((C_word*)t2)[3]))){
t3=C_block_size(((C_word*)t2)[3]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8234,a[2]=((C_word*)t2)[2],a[3]=t3,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:764: literal-size"));
t5=((C_word*)((C_word*)t2)[4])[1];
f_7989(t5,t4,C_u_i_ratnum_num(((C_word*)t2)[3]));}
else{
if(C_truep(C_i_cplxnump(((C_word*)t2)[3]))){
t3=C_block_size(((C_word*)t2)[3]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8259,a[2]=((C_word*)t2)[2],a[3]=t3,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:767: literal-size"));
t5=((C_word*)((C_word*)t2)[4])[1];
f_7989(t5,t4,C_u_i_cplxnum_real(((C_word*)t2)[3]));}
else{
C_trace(C_text("c-backend.scm:738: 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*)t2)[2];
av2[2]=lf[373];
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}}}}}

/* k8170 in k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8172(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_8172,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 k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_8193(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_8193,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_8213,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:761: literal-size"));
t6=((C_word*)((C_word*)t0)[4])[1];
f_7989(t6,t5,C_slot(((C_word*)t0)[5],t2));}}

/* k8211 in loop in k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8213,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("c-backend.scm:761: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_8193(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k8232 in k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8234,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8238,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:765: literal-size"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_7989(t3,t2,C_u_i_ratnum_denom(((C_word*)t0)[5]));}

/* k8236 in k8232 in k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8238(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8238,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va16097,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=t2;
va16097(t3,C_s_a_i_plus(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));}

/* k8257 in k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8259,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8263,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:768: literal-size"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_7989(t3,t2,C_u_i_cplxnum_imag(((C_word*)t0)[5]));}

/* k8261 in k8257 in k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8263(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8263,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)va16099,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=t2;
va16099(t3,C_s_a_i_plus(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]));}

/* k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_8279(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(3,0,6)))){
C_save_and_reclaim_args((void *)trf_8279,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:774: gen"));
t2=lf[4];{
C_word av2[7];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=lf[354];
av2[5]=((C_word*)t0)[2];
av2[6]=lf[355];
f_4688(7,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8285,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:775: chicken.compiler.support#block-variable-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[374]);
C_word av2[3];
av2[0]=*((C_word*)lf[374]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}}

/* k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8285(C_word c,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(29,c,6)))){
C_save_and_reclaim((void *)f_8285,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=C_s_a_i_plus(&a,2,((C_word*)t2)[5],C_fix(1));
t4=((C_word*)((C_word*)t2)[6])[1];
f_7941(t4,((C_word*)t2)[7],t3,C_u_i_cdr(((C_word*)t2)[8]));}
else{
t3=*((C_word*)lf[356]+1);
t4=C_eqp(((C_word*)t2)[2],*((C_word*)lf[356]+1));
if(C_truep(t4)){
C_trace(C_text("c-backend.scm:777: gen"));
t5=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t2)[4];
av2[4]=lf[357];
f_4688(5,av2);}}
else{
if(C_truep(C_booleanp(((C_word*)t2)[2]))){
if(C_truep(((C_word*)t2)[2])){
C_trace(C_text("c-backend.scm:779: gen"));
t5=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t2)[4];
av2[4]=C_make_character(61);
av2[5]=lf[358];
av2[6]=C_make_character(59);
f_4688(7,av2);}}
else{
C_trace(C_text("c-backend.scm:779: gen"));
t5=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t2)[4];
av2[4]=C_make_character(61);
av2[5]=lf[359];
av2[6]=C_make_character(59);
f_4688(7,av2);}}}
else{
if(C_truep(C_charp(((C_word*)t2)[2]))){
C_trace(C_text("c-backend.scm:781: gen"));
t5=lf[4];{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t2)[4];
av2[4]=lf[360];
av2[5]=C_fix(C_character_code(((C_word*)t2)[2]));
av2[6]=lf[361];
f_4688(7,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8329,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:782: chicken.keyword#keyword?"));
t6=C_fast_retrieve(lf[368]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}}}

/* k8327 in k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8329(C_word c,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(29,c,4)))){
C_save_and_reclaim((void *)f_8329,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?t1:C_i_symbolp(((C_word*)t2)[2]));
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8335,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:783: ##sys#symbol->string/shared"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[110]+1));
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[2];
tp(3,av2);}}
else{
if(C_truep(C_i_nullp(((C_word*)t2)[2]))){
C_trace(C_text("c-backend.scm:792: gen"));
t4=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t2)[4];
av2[4]=lf[369];
f_4688(5,av2);}}
else{
t4=C_immp(((C_word*)t2)[2]);
t5=C_i_not(t4);
t6=(C_truep(t5)?C_lambdainfop(((C_word*)t2)[2]):C_SCHEME_FALSE);
if(C_truep(t6)){
t7=C_s_a_i_plus(&a,2,((C_word*)t2)[5],C_fix(1));
t8=((C_word*)((C_word*)t2)[6])[1];
f_7941(t8,((C_word*)t2)[7],t7,C_u_i_cdr(((C_word*)t2)[8]));}
else{
t7=C_fixnump(((C_word*)t2)[2]);
t8=(C_truep(t7)?t7:C_i_not(C_immp(((C_word*)t2)[2])));
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8388,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:796: gen"));
t10=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t9;
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t2)[4];
av2[4]=lf[372];
f_4688(5,av2);}}
else{
C_trace(C_text("c-backend.scm:738: 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*)t2)[3];
av2[2]=lf[373];
av2[3]=((C_word*)t2)[2];
tp(4,av2);}}}}}}

/* k8333 in k8327 in k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_8335(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8335,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8338,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:784: c-ify-string"));
f_14014(t2,t1);}

/* k8336 in k8333 in k8327 in k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_8338(C_word c,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,2)))){
C_save_and_reclaim((void *)f_8338,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_slot(((C_word*)t2)[2],C_fix(1));
t4=C_block_size(t3);
t5=C_fixnum_difference(t4,C_fix(1));
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8353,a[2]=((C_word*)t2)[3],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[4],a[5]=t5,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:786: chicken.keyword#keyword?"));
t7=C_fast_retrieve(lf[368]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k8345 in k8351 in k8336 in k8333 in k8327 in k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_8347(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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,9)))){
C_save_and_reclaim((void *)f_8347,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:790: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=lf[364];
av2[4]=((C_word*)t2)[4];
av2[5]=C_make_character(44);
av2[6]=((C_word*)t2)[5];
av2[7]=lf[365];
av2[8]=((C_word*)t2)[6];
av2[9]=lf[366];
f_4688(10,av2);}}

/* k8351 in k8336 in k8333 in k8327 in k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_8353(C_word c,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,4)))){
C_save_and_reclaim((void *)f_8353,c,av);}
a=C_alloc(3);
t2=(C_truep(t1)?lf[362]:lf[363]);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8347,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:789: gen"));
t5=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=((C_word*)t0)[4];
av2[4]=lf[367];
f_4688(5,av2);}}

/* k8386 in k8327 in k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_8388(C_word c,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_8388,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8391,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8398,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:797: encode-literal"));
f_13573(t3,((C_word*)t0)[3]);}

/* k8389 in k8386 in k8327 in k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_8391(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_8391,c,av);}
C_trace(C_text("c-backend.scm:798: 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[370];
f_4688(3,av2);}}

/* k8396 in k8386 in k8327 in k8283 in k8277 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_8398(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_8398,c,av);}
C_trace(C_text("c-backend.scm:797: 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_4688(3,av2);}}

/* k8430 in k7979 in k7976 in k7973 in k7970 in k7964 in doloop1438 in literal-frame in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8432(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_8432,c,av);}
t2=((C_word*)t0)[2];
f_8279(t2,C_i_not(t1));}

/* procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_8434(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(17,0,3)))){
C_save_and_reclaim_args((void *)trf_8434,2,t0,t1);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8436,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,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);
t3=C_i_check_list_2(((C_word*)t0)[8],lf[93]);
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_9111,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_9111(t7,t1,((C_word*)t0)[8]);}

/* g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_8436(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_8436,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t1);
t4=C_i_car(t2);
t5=C_mutate(((C_word *)t0)+6,t4);
t6=C_u_i_cdr(t2);
t7=C_mutate(((C_word *)t0)+5,t6);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8444,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:806: chicken.compiler.core#lambda-literal-argument-count"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[63]);
C_word av2[3];
av2[0]=*((C_word*)lf[63]+1);
av2[1]=t8;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8444(C_word c,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,3)))){
C_save_and_reclaim((void *)f_8444,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8447,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],a[11]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("c-backend.scm:807: chicken.compiler.support#real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[497]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[497]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
av2[3]=((C_word*)t2)[10];
tp(4,av2);}}

/* k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8447(C_word c,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_8447,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+11,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8450,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:808: 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]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_8450,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8453,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=t1,a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[9],a[12]=((C_word*)t2)[10],a[13]=C_SCHEME_UNDEFINED,a[14]=((C_word*)t2)[11],tmp=(C_word)a,a+=15,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9103,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:809: chicken.compiler.core#lambda-literal-callee-signatures"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[496]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[496]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}

/* k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8453(C_word c,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_8453,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+13,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8456,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:810: chicken.compiler.core#lambda-literal-rest-argument"));
{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]=t3;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}

/* k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8456(C_word c,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(5,c,2)))){
C_save_and_reclaim((void *)f_8456,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=t1;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_mutate(((C_word *)t2)+5,t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8459,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:811: chicken.compiler.core#lambda-literal-customizable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[62]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[62]+1);
av2[1]=t6;
av2[2]=((C_word*)t2)[7];
tp(3,av2);}}

/* k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8459(C_word c,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(22,c,2)))){
C_save_and_reclaim((void *)f_8459,c,av);}
a=C_alloc(22);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8462,a[2]=((C_word*)t2)[3],a[3]=t1,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[2],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],a[11]=C_SCHEME_UNDEFINED,a[12]=((C_word*)t2)[10],a[13]=((C_word*)t2)[11],a[14]=((C_word*)t2)[12],a[15]=((C_word*)t2)[13],a[16]=C_SCHEME_UNDEFINED,a[17]=((C_word*)t2)[14],a[18]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=19,tmp);
if(C_truep(t1)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9099,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:812: chicken.compiler.core#lambda-literal-closure-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[199]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[7];
tp(3,av2);}}
else{
t4=t3;
f_8462(t4,C_SCHEME_FALSE);}}

/* k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_8462(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(32,0,3)))){
C_save_and_reclaim_args((void *)trf_8462,2,t0,t1);}
a=C_alloc(32);
t2=C_mutate(((C_word *)t0)+16,t1);
t3=(C_truep(((C_word*)t0)[16])?C_s_a_i_minus(&a,2,((C_word*)t0)[6],C_fix(1)):C_s_a_i_minus(&a,2,((C_word*)t0)[6],C_fix(0)));
t4=C_mutate(((C_word *)t0)+11,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8468,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:814: make-variable-list"));
f_9468(t5,((C_word*)t0)[6],lf[493]);}

/* k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_8468(C_word c,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,3)))){
C_save_and_reclaim((void *)f_8468,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+18,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8471,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:815: make-argument-list"));
f_9485(t4,((C_word*)t2)[6],lf[492]);}

/* k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_8471(C_word c,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,3)))){
C_save_and_reclaim((void *)f_8471,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_8474,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],a[14]=((C_word*)t2)[14],a[15]=((C_word*)t2)[15],a[16]=((C_word*)t2)[16],a[17]=((C_word*)t2)[17],a[18]=t1,tmp=(C_word)a,a+=19,tmp);
if(C_truep(((C_word*)t2)[16])){
C_trace(C_text("c-backend.scm:816: 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]=C_i_cdr(((C_word*)t2)[18]);
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
C_trace(C_text("c-backend.scm:816: 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]=((C_word*)t2)[18];
av2[3]=C_make_character(44);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_8474(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8474,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_8477,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_SCHEME_UNDEFINED,a[11]=C_SCHEME_UNDEFINED,a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=C_SCHEME_UNDEFINED,a[15]=C_SCHEME_UNDEFINED,a[16]=((C_word*)t0)[12],a[17]=((C_word*)t0)[13],a[18]=((C_word*)t0)[14],a[19]=((C_word*)t0)[15],a[20]=C_SCHEME_UNDEFINED,a[21]=((C_word*)t0)[16],a[22]=C_SCHEME_UNDEFINED,a[23]=C_SCHEME_UNDEFINED,a[24]=C_SCHEME_UNDEFINED,a[25]=t1,a[26]=((C_word*)t0)[17],tmp=(C_word)a,a+=27,tmp);
if(C_truep(((C_word*)t0)[16])){
C_trace(C_text("c-backend.scm:817: 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_trace(C_text("c-backend.scm:817: 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);}}}

/* k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_8477(C_word c,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_8477,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+14,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8480,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:818: chicken.compiler.core#lambda-literal-external"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[491]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[491]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_8480(C_word c,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_8480,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+23,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8483,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:819: chicken.compiler.core#lambda-literal-looping"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[147]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[147]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}

/* k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_8483(C_word c,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_8483,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+15,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8486,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:820: chicken.compiler.core#lambda-literal-direct"));
{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]=t4;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}

/* k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_8486(C_word c,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_8486,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+10,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8489,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:821: chicken.compiler.core#lambda-literal-rest-argument-mode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[286]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[286]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}

/* k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in ... */
static void C_ccall f_8489(C_word c,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_8489,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+22,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8492,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:822: chicken.compiler.core#lambda-literal-temporaries"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[141]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[141]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}

/* k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in ... */
static void C_ccall f_8492(C_word c,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_8492,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+11,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8495,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:823: chicken.compiler.core#lambda-literal-float-temporaries"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[490]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[490]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}

/* k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in ... */
static void C_ccall f_8495(C_word c,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_8495,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+24,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8498,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:824: toplevel"));
t5=lf[224];{
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[297]);
f_9376(3,av2);}}

/* k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in ... */
static void C_ccall f_8498(C_word c,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,4)))){
C_save_and_reclaim((void *)f_8498,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+20,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8501,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t2)[21])){
C_trace(C_text("c-backend.scm:825: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[487]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[487]+1);
av2[1]=t4;
av2[2]=lf[488];
av2[3]=lf[489];
av2[4]=((C_word*)t2)[9];
tp(5,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_8501(2,av2);}}}

/* k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in ... */
static void C_ccall f_8501(C_word c,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_8501,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8504,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:826: 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]=C_SCHEME_TRUE;
f_4688(4,av2);}}

/* k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in ... */
static void C_ccall f_8504(C_word c,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(29,c,2)))){
C_save_and_reclaim((void *)f_8504,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8507,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],a[14]=((C_word*)t2)[14],a[15]=((C_word*)t2)[15],a[16]=((C_word*)t2)[16],a[17]=((C_word*)t2)[17],a[18]=((C_word*)t2)[18],a[19]=((C_word*)t2)[19],a[20]=((C_word*)t2)[20],a[21]=((C_word*)t2)[21],a[22]=((C_word*)t2)[22],a[23]=((C_word*)t2)[23],a[24]=((C_word*)t2)[24],a[25]=((C_word*)t2)[25],tmp=(C_word)a,a+=26,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9074,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:827: cleanup"));
f_9392(t4,((C_word*)t2)[26]);}

/* k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in ... */
static void C_ccall f_8507(C_word c,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_8507,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8510,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_eqp(lf[327],((C_word*)t0)[9]);
if(C_truep(C_i_not(t3))){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9038,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_trace(C_text("c-backend.scm:829: 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[480];
f_4688(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9057,a[2]=t2,a[3]=((C_word*)t0)[20],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:834: 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_4688(3,av2);}}}

/* k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in ... */
static void C_ccall f_8510(C_word c,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_8510,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8513,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:838: 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(40);
f_4688(3,av2);}}

/* k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in ... */
static void C_ccall f_8513(C_word c,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_8513,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8516,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t2)[3])){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_8516(2,av2);}}
else{
C_trace(C_text("c-backend.scm:839: 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]=lf[476];
f_4688(3,av2);}}}

/* k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in ... */
static void C_ccall f_8516(C_word c,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(30,c,2)))){
C_save_and_reclaim((void *)f_8516,c,av);}
a=C_alloc(30);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_8519,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],a[14]=((C_word*)t2)[14],a[15]=((C_word*)t2)[15],a[16]=((C_word*)t2)[16],a[17]=((C_word*)t2)[17],a[18]=((C_word*)t2)[18],a[19]=((C_word*)t2)[19],a[20]=((C_word*)t2)[20],a[21]=((C_word*)t2)[21],a[22]=((C_word*)t2)[22],a[23]=((C_word*)t2)[23],a[24]=((C_word*)t2)[24],a[25]=((C_word*)t2)[25],tmp=(C_word)a,a+=26,tmp);
t4=(C_truep(((C_word*)t2)[10])?C_i_not(C_i_zerop(((C_word*)t2)[12])):C_SCHEME_FALSE);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9015,a[2]=((C_word*)t2)[25],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:841: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[475];
f_4688(3,av2);}}
else{
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_8519(2,av2);}}}

/* k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in ... */
static void C_ccall f_8519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8519,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8522,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_trace(C_text("c-backend.scm:845: 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[474];
f_4688(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_trace(C_text("c-backend.scm:845: 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[474];
f_4688(3,av2);}}}}

/* k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in ... */
static void C_ccall f_8522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8522,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8525,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:846: 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[473];
f_4688(3,av2);}}

/* k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in ... */
static void C_ccall f_8525(C_word c,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(3,c,2)))){
C_save_and_reclaim((void *)f_8525,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8528,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=C_eqp(((C_word*)t2)[22],lf[285]);
if(C_truep(t4)){
t5=C_set_block_item(((C_word*)t2)[5],0,C_SCHEME_FALSE);
t6=t3;
f_8528(t6,t5);}
else{
t5=t3;
f_8528(t5,C_SCHEME_UNDEFINED);}}

/* k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in ... */
static void f_8528(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(3,0,3)))){
C_save_and_reclaim_args((void *)trf_8528,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8531,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:848: gen"));
t4=lf[4];{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[472];
f_4688(4,av2);}}

/* k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in ... */
static void C_ccall f_8531(C_word c,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(31,c,3)))){
C_save_and_reclaim((void *)f_8531,c,av);}
a=C_alloc(31);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_8534,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],a[14]=((C_word*)t2)[14],a[15]=((C_word*)t2)[15],a[16]=((C_word*)t2)[16],a[17]=((C_word*)t2)[17],a[18]=((C_word*)t2)[18],a[19]=((C_word*)t2)[19],a[20]=((C_word*)t2)[20],a[21]=((C_word*)t2)[21],a[22]=((C_word*)t2)[22],a[23]=((C_word*)t2)[23],a[24]=((C_word*)t2)[24],tmp=(C_word)a,a+=25,tmp);
t4=(C_truep(((C_word*)t2)[3])?((C_word*)t2)[3]:((C_word*)t2)[10]);
if(C_truep(t4)){
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_8534(2,av2);}}
else{
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_8981,a[2]=((C_word*)t2)[6],a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_8981(t8,t3,C_fix(0));}}

/* k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in ... */
static void C_ccall f_8534(C_word c,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_8534,c,av);}
a=C_alloc(90);
t2=(*a=C_CLOSURE_TYPE|23,a[1]=(C_word)f_8537,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_trace(C_text("c-backend.scm:854: 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[466];
av2[4]=((C_word*)t0)[6];
av2[5]=C_make_character(59);
f_4688(6,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8913,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_8951,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_8951(t6,C_s_a_i_plus(&a,2,((C_word*)t0)[11],t5));}
else{
t5=t4;
f_8951(t5,C_s_a_i_plus(&a,2,((C_word*)t0)[11],C_fix(0)));}}}

/* k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in ... */
static void C_ccall f_8537(C_word c,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(33,c,4)))){
C_save_and_reclaim((void *)f_8537,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8540,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[327],((C_word*)t0)[9]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8675,a[2]=((C_word*)t0)[16],tmp=(C_word)a,a+=3,tmp);
t5=C_i_check_list_2(((C_word*)t0)[17],lf[382]);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8689,a[2]=((C_word*)t0)[17],a[3]=t2,a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[19],a[7]=((C_word*)t0)[20],tmp=(C_word)a,a+=8,tmp);
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_8752,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_8752(t10,t6,((C_word*)t0)[17],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_8780,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[19],a[6]=((C_word*)t0)[21],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("c-backend.scm:895: 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[451];
f_4688(4,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8819,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)[19],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_8819(2,av2);}}
else{
C_trace(C_text("c-backend.scm:901: 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[465];
f_4688(4,av2);}}}}}

/* k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in ... */
static void C_ccall f_8540(C_word c,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_8540,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8543,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[327],((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_8565,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_8640,a[2]=((C_word*)t0)[6],a[3]=t9,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_8640(t11,t6,C_fix(0));}
else{
t8=t6;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_8565(2,av2);}}}
else{
C_trace(C_text("c-backend.scm:943: 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_4688(3,av2);}}}

/* k8541 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 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 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_8543,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_8547,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8554,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_trace(C_text("c-backend.scm:946: chicken.compiler.core#lambda-literal-body"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[387]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[387]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k8545 in k8541 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in ... */
static void C_ccall f_8547(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_8547,c,av);}
C_trace(C_text("c-backend.scm:951: 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_4688(3,av2);}}

/* k8552 in k8541 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in ... */
static void C_ccall f_8554(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8554,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_trace(C_text("c-backend.scm:945: expression"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_4861(t3,((C_word*)t0)[5],t1,t2,((C_word*)t0)[6]);}
else{
C_trace(C_text("c-backend.scm:945: expression"));
t2=((C_word*)((C_word*)t0)[4])[1];
f_4861(t2,((C_word*)t0)[5],t1,((C_word*)t0)[3],((C_word*)t0)[6]);}}

/* k8563 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
static void C_ccall f_8565(C_word c,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_8565,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_8571,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_trace(C_text("c-backend.scm:927: 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[392];
av2[4]=((C_word*)t0)[6];
av2[5]=lf[393];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[394];
av2[8]=((C_word*)t0)[3];
av2[9]=lf[395];
av2[10]=((C_word*)t0)[7];
av2[11]=lf[396];
f_4688(12,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8605,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_8620,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:936: 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[400];
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_4688(8,av2);}}
else{
C_trace(C_text("c-backend.scm:940: 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[401];
av2[4]=((C_word*)t0)[6];
av2[5]=lf[402];
f_4688(6,av2);}}}}

/* k8569 in k8563 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in ... */
static void C_ccall f_8571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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,7)))){
C_save_and_reclaim((void *)f_8571,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8574,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:929: 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[389];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[390];
av2[6]=((C_word*)t0)[2];
av2[7]=lf[391];
f_4688(8,av2);}}

/* k8572 in k8569 in k8563 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in ... */
static void C_ccall f_8574(C_word c,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(34,c,4)))){
C_save_and_reclaim((void *)f_8574,c,av);}
a=C_alloc(34);
t2=((C_word*)t0)[2];
t3=C_s_a_i_plus(&a,2,((C_word*)t2)[2],C_fix(1));
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_8583,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_8583(t7,((C_word*)t2)[3],t3,((C_word*)t2)[4]);}

/* doloop1688 in k8572 in k8569 in k8563 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in ... */
static void f_8583(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_8583,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_8591,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:933: gen"));
t5=lf[4];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[388];
av2[4]=t2;
av2[5]=C_make_character(59);
f_4688(6,av2);}}}

/* k8589 in doloop1688 in k8572 in k8569 in k8563 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in ... */
static void C_ccall f_8591(C_word c,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_8591,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_8583(t4,((C_word*)t0)[5],t2,t3);}

/* k8603 in k8563 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in ... */
static void C_ccall f_8605(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_8605,c,av);}
if(C_truep(C_i_greaterp(((C_word*)t0)[2],C_fix(0)))){
C_trace(C_text("c-backend.scm:942: 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[397];
av2[4]=((C_word*)t0)[2];
av2[5]=lf[398];
f_4688(6,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_8543(2,av2);}}}

/* k8618 in k8563 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in ... */
static void C_ccall f_8620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8620,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8623,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);}}

/* k8621 in k8618 in k8563 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in ... */
static void C_ccall f_8623(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_8623,c,av);}
C_trace(C_text("c-backend.scm:938: 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[399];
f_4688(3,av2);}}

/* doloop1680 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
static void f_8640(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_8640,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_8650,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:925: gen"));
t4=lf[4];{
C_word av2[8];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[403];
av2[4]=t2;
av2[5]=lf[404];
av2[6]=t2;
av2[7]=lf[405];
f_4688(8,av2);}}}

/* k8648 in doloop1680 in k8538 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in ... */
static void C_ccall f_8650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8650,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_8640(t3,((C_word*)t0)[4],t2);}

/* g1632 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in ... */
static void f_8675(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_8675,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8683,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:865: literal-size"));
t5=((C_word*)((C_word*)t0)[2])[1];
f_7989(t5,t4,t3);}

/* k8681 in g1632 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
static void C_ccall f_8683(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_8683,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);}}

/* k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in ... */
static void C_ccall f_8689(C_word c,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_8689,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_8693,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[297]);
if(C_truep(C_fast_retrieve(lf[297]))){
t5=C_fast_retrieve(lf[297]);
t6=C_fast_retrieve(lf[297]);
C_trace(C_text("c-backend.scm:867: 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[437];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[438];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[439];
av2[8]=C_fast_retrieve(lf[297]);
av2[9]=lf[440];
f_4688(10,av2);}}
else{
C_trace(C_text("c-backend.scm:867: 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[437];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[438];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[439];
av2[8]=((C_word*)t0)[7];
av2[9]=lf[440];
f_4688(10,av2);}}}

/* k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
static void C_ccall f_8693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8693,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8696,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[187]))){
C_trace(C_text("c-backend.scm:871: 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[436];
f_4688(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8696(2,av2);}}}

/* k8694 in k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 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 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_8696,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8699,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[434]))){
C_trace(C_text("c-backend.scm:873: 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[435];
f_4688(4,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_8699(2,av2);}}}

/* k8697 in k8694 in k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in ... */
static void C_ccall f_8699(C_word c,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,7)))){
C_save_and_reclaim((void *)f_8699,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8702,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(C_fast_retrieve(lf[297]))){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_8702(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8731,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[430]))){
C_trace(C_text("c-backend.scm:876: 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[431];
av2[4]=C_fast_retrieve(lf[430]);
av2[5]=lf[432];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[433];
f_4688(8,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_8731(2,av2);}}}}

/* k8700 in k8697 in k8694 in k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in ... */
static void C_ccall f_8702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8702,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8705,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_trace(C_text("c-backend.scm:880: 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[410];
av2[4]=((C_word*)t0)[5];
av2[5]=lf[411];
av2[6]=((C_word*)t0)[6];
av2[7]=lf[412];
av2[8]=C_SCHEME_TRUE;
av2[9]=lf[413];
av2[10]=((C_word*)t0)[5];
av2[11]=lf[414];
av2[12]=((C_word*)t0)[6];
av2[13]=lf[415];
av2[14]=C_SCHEME_TRUE;
av2[15]=lf[416];
av2[16]=((C_word*)t0)[7];
av2[17]=lf[417];
av2[18]=C_SCHEME_TRUE;
av2[19]=lf[418];
av2[20]=C_SCHEME_TRUE;
av2[21]=lf[419];
av2[22]=((C_word*)t0)[8];
av2[23]=lf[420];
av2[24]=C_SCHEME_TRUE;
av2[25]=lf[421];
av2[26]=C_SCHEME_TRUE;
av2[27]=lf[422];
av2[28]=((C_word*)t0)[8];
av2[29]=lf[423];
av2[30]=C_SCHEME_TRUE;
av2[31]=lf[424];
av2[32]=C_SCHEME_TRUE;
av2[33]=lf[425];
av2[34]=((C_word*)t0)[5];
av2[35]=lf[426];
f_4688(36,av2);}}

/* k8703 in k8700 in k8697 in k8694 in k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in ... */
static void C_ccall f_8705(C_word c,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_8705,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8708,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_8717,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:890: 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[408];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[409];
f_4688(6,av2);}}
else{
C_trace(C_text("c-backend.scm:893: 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_4688(3,av2);}}}

/* k8706 in k8703 in k8700 in k8697 in k8694 in k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in ... */
static void C_ccall f_8708(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_8708,c,av);}
C_trace(C_text("c-backend.scm:893: 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_4688(3,av2);}}

/* k8715 in k8703 in k8700 in k8697 in k8694 in k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in ... */
static void C_ccall f_8717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8717,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:891: literal-frame"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_7935(t3,t2);}

/* k8718 in k8715 in k8703 in k8700 in k8697 in k8694 in k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in ... */
static void C_ccall f_8720(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_8720,c,av);}
C_trace(C_text("c-backend.scm:892: 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[406];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[407];
f_4688(6,av2);}}

/* k8729 in k8697 in k8694 in k8691 in k8687 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in ... */
static void C_ccall f_8731(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8731,c,av);}
if(C_truep(C_fast_retrieve(lf[427]))){
C_trace(C_text("c-backend.scm:879: 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[428];
av2[4]=C_fast_retrieve(lf[427]);
av2[5]=lf[429];
f_4688(6,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_8702(2,av2);}}}

/* foldl1634 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in ... */
static void f_8752(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(5,0,3)))){
C_save_and_reclaim_args((void *)trf_8752,4,t0,t1,t2,t3);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8770,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:865: g1632"));
t6=((C_word*)t0)[3];
f_8675(t6,t5,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);}}}

/* k8768 in foldl1634 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
static void C_ccall f_8770(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_8770,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8752(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k8778 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in ... */
static void C_ccall f_8780(C_word c,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_8780,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8783,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_8795,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[177])))){
if(C_truep(C_i_not(C_fast_retrieve(lf[450])))){
t4=C_i_greaterp(((C_word*)t0)[3],C_fix(2));
t5=t3;
f_8795(t5,(C_truep(t4)?C_i_not(((C_word*)t0)[6]):C_SCHEME_FALSE));}
else{
t4=t3;
f_8795(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_8795(t4,C_SCHEME_FALSE);}}

/* k8781 in k8778 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
static void C_ccall f_8783(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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,9)))){
C_save_and_reclaim((void *)f_8783,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8786,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[445]))){
C_trace(C_text("c-backend.scm:898: 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[446];
f_4688(4,av2);}}
else{
C_trace(C_text("c-backend.scm:899: 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[441];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[442];
av2[6]=((C_word*)t0)[4];
av2[7]=lf[443];
av2[8]=((C_word*)t0)[5];
av2[9]=lf[444];
f_4688(10,av2);}}}

/* k8784 in k8781 in k8778 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in ... */
static void C_ccall f_8786(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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,9)))){
C_save_and_reclaim((void *)f_8786,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:899: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 10) {
  av2=av;
} else {
  av2=C_alloc(10);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[441];
av2[4]=((C_word*)t2)[3];
av2[5]=lf[442];
av2[6]=((C_word*)t2)[4];
av2[7]=lf[443];
av2[8]=((C_word*)t2)[5];
av2[9]=lf[444];
f_4688(10,av2);}}

/* k8793 in k8778 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
static void f_8795(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_8795,2,t0,t1);}
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:897: 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[447];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[448];
av2[6]=((C_word*)t0)[3];
av2[7]=lf[449];
f_4688(8,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_8783(2,av2);}}}

/* k8817 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in ... */
static void C_ccall f_8819(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8819,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8822,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[2])){
if(C_truep(C_i_not(C_fast_retrieve(lf[177])))){
if(C_truep(C_i_not(C_fast_retrieve(lf[434])))){
C_trace(C_text("c-backend.scm:903: 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[464];
f_4688(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8822(2,av2);}}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8822(2,av2);}}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8822(2,av2);}}}

/* k8820 in k8817 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
static void C_ccall f_8822(C_word c,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_8822,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8825,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t2)[10])){
C_trace(C_text("c-backend.scm:904: 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[463];
f_4688(4,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_8825(2,av2);}}}

/* k8823 in k8820 in k8817 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in ... */
static void C_ccall f_8825(C_word c,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_8825,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8828,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_8853,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[177])))){
t4=C_i_not(C_fast_retrieve(lf[450]));
t5=t3;
f_8853(t5,(C_truep(t4)?C_i_not(((C_word*)t0)[3]):C_SCHEME_FALSE));}
else{
t4=t3;
f_8853(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_8853(t4,C_SCHEME_FALSE);}}

/* k8826 in k8823 in k8820 in k8817 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in ... */
static void C_ccall f_8828(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8828,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_8837,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[445]))){
C_trace(C_text("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[456];
f_4688(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8837(2,av2);}}}
else{
C_trace(C_text("c-backend.scm:919: 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_4688(3,av2);}}}

/* k8835 in k8826 in k8823 in k8820 in k8817 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in ... */
static void C_ccall f_8837(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_8837,c,av);}
if(C_truep(((C_word*)t0)[2])){
C_trace(C_text("c-backend.scm:914: 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[452];
av2[4]=((C_word*)t0)[4];
av2[5]=lf[453];
av2[6]=((C_word*)t0)[5];
av2[7]=lf[454];
f_4688(8,av2);}}
else{
C_trace(C_text("c-backend.scm:914: 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[452];
av2[4]=((C_word*)t0)[4];
av2[5]=lf[455];
av2[6]=((C_word*)t0)[5];
av2[7]=lf[454];
f_4688(8,av2);}}}

/* k8851 in k8823 in k8820 in k8817 in k8535 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in ... */
static void f_8853(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_8853,2,t0,t1);}
if(C_truep(t1)){
t2=C_eqp(((C_word*)t0)[2],lf[285]);
if(C_truep(t2)){
if(C_truep(C_i_greaterp(((C_word*)t0)[3],C_fix(2)))){
C_trace(C_text("c-backend.scm:908: 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[457];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[458];
av2[6]=((C_word*)t0)[3];
av2[7]=lf[459];
f_4688(8,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8828(2,av2);}}}
else{
C_trace(C_text("c-backend.scm:909: 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[460];
av2[4]=((C_word*)t0)[3];
av2[5]=lf[461];
av2[6]=((C_word*)t0)[3];
av2[7]=lf[462];
f_4688(8,av2);}}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_8828(2,av2);}}}

/* k8911 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in ... */
static void C_ccall f_8913(C_word c,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_8913,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[93]);
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_8926,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_8926(t6,((C_word*)t0)[3],((C_word*)t0)[2]);}

/* for-each-loop1609 in k8911 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in ... */
static void f_8926(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_8926,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_8936,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:862: gen"));
t4=lf[4];{
C_word av2[6];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[467];
av2[4]=C_slot(t2,C_fix(0));
av2[5]=C_make_character(59);
f_4688(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);}}}

/* k8934 in for-each-loop1609 in k8911 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 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,2)))){
C_save_and_reclaim((void *)f_8936,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8926(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k8949 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in ... */
static void f_8951(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_8951,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_8953,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_8953(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* doloop1601 in k8949 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in ... */
static void f_8953(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_8953,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_8961,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:859: gen"));
t5=lf[4];{
C_word av2[6];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[468];
av2[4]=t2;
av2[5]=C_make_character(59);
f_4688(6,av2);}}}

/* k8959 in doloop1601 in k8949 in k8532 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in ... */
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 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_8961,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_8953(t4,((C_word*)t0)[5],t2,t3);}

/* doloop1596 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in ... */
static void f_8981(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_8981,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_8991,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:852: gen"));
t4=lf[4];{
C_word av2[8];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[469];
av2[4]=t2;
av2[5]=lf[470];
av2[6]=t2;
av2[7]=lf[471];
f_4688(8,av2);}}}

/* k8989 in doloop1596 in k8529 in k8526 in k8523 in k8520 in k8517 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in ... */
static void C_ccall f_8991(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_8991,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_8981(t3,((C_word*)t0)[4],t2);}

/* k9013 in k8514 in k8511 in k8508 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in ... */
static void C_ccall f_9015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9015,c,av);}
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
C_trace(C_text("c-backend.scm:842: 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_4688(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_8519(2,av2);}}}

/* k9036 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in ... */
static void C_ccall f_9038(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9038,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9041,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_trace(C_text("c-backend.scm:830: 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_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:830: 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_4688(3,av2);}}}

/* k9039 in k9036 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in ... */
static void C_ccall f_9041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9041,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9044,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_trace(C_text("c-backend.scm:832: 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_word*)t0)[3];
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:831: 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[477];
f_4688(3,av2);}}}

/* k9042 in k9039 in k9036 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in ... */
static void C_ccall f_9044(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_9044,c,av);}
C_trace(C_text("c-backend.scm:832: 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_4688(3,av2);}}

/* k9055 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in ... */
static void C_ccall f_9057(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9057,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9060,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fast_retrieve(lf[297]))){
C_trace(C_text("c-backend.scm:837: 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[481];
av2[5]=((C_word*)t0)[3];
f_4688(6,av2);}}
else{
C_trace(C_text("c-backend.scm:836: 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[482];
f_4688(4,av2);}}}

/* k9058 in k9055 in k8505 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in ... */
static void C_ccall f_9060(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9060,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("c-backend.scm:837: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=C_SCHEME_TRUE;
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[481];
av2[5]=((C_word*)t2)[3];
f_4688(6,av2);}}

/* k9072 in k8502 in k8499 in k8496 in k8493 in k8490 in k8487 in k8484 in k8481 in k8478 in k8475 in k8472 in k8469 in k8466 in k8460 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in ... */
static void C_ccall f_9074(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_9074,c,av);}
C_trace(C_text("c-backend.scm:827: 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[484];
av2[3]=t1;
av2[4]=lf[485];
av2[5]=C_SCHEME_TRUE;
f_4688(6,av2);}}

/* k9097 in k8457 in k8454 in k8451 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9099(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_9099,c,av);}
t2=((C_word*)t0)[2];
f_8462(t2,C_i_zerop(t1));}

/* k9101 in k8448 in k8445 in k8442 in g1539 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9103(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_9103,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[495]+1);
av2[3]=C_fix(0);
av2[4]=t1;
C_apply(5,av2);}}

/* for-each-loop1538 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9111(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_9111,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_9121,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:802: g1539"));
t4=((C_word*)t0)[3];
f_8436(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);}}}

/* k9119 in for-each-loop1538 in procedures in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9121(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_9121,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9111(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9135(C_word c,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_9135,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_9139,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_trace(C_text("c-backend.scm:956: header"));
t4=((C_word*)((C_word*)t0)[12])[1];
f_7284(t4,t3);}

/* k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9139,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9142,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_trace(C_text("c-backend.scm:957: declarations"));
t3=((C_word*)((C_word*)t0)[10])[1];
f_7443(t3,t2);}

/* k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9142(C_word c,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,2)))){
C_save_and_reclaim((void *)f_9142,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9145,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_fast_retrieve(lf[658]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9506,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1056: 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_4688(3,av2);}}

/* k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9145(C_word c,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(14,c,3)))){
C_save_and_reclaim((void *)f_9145,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9148,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=C_fast_retrieve(lf[612]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9604,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[8],tmp=(C_word)a,a+=5,tmp);
t6=C_fast_retrieve(lf[612]);
t7=C_i_check_list_2(C_fast_retrieve(lf[612]),lf[93]);
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_9917,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_9917(t11,t3,C_fast_retrieve(lf[612]));}

/* k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9148(C_word c,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_9148,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9151,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("c-backend.scm:960: prototypes"));
t4=((C_word*)((C_word*)t2)[9])[1];
f_7639(t4,t3);}

/* k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9151(C_word c,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_9151,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9154,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[289]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9942,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
t5=C_fast_retrieve(lf[289]);
t6=C_i_check_list_2(C_fast_retrieve(lf[289]),lf[93]);
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_10589,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_10589(t10,t2,C_fast_retrieve(lf[289]));}

/* k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9154,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9157,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_trace(C_text("c-backend.scm:962: trampolines"));
t3=((C_word*)((C_word*)t0)[7])[1];
f_7814(t3,t2);}

/* k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9157(C_word c,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_9157,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9160,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[187]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9181,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:973: 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[529];
f_4688(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_9160(2,av2);}}}

/* k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9160(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9160,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9163,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_trace(C_text("c-backend.scm:965: procedures"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_8434(t3,t2);}

/* k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9163(C_word c,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_9163,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9166,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9302,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_trace(C_text("c-backend.scm:991: 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[518];
av2[5]=C_SCHEME_TRUE;
av2[6]=lf[519];
av2[7]=t5;
av2[8]=lf[520];
f_4688(9,av2);}}

/* k9164 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_9166(C_word c,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_9166,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7437,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7441,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:630: scheme#get-output-string"));
t4=C_fast_retrieve(lf[376]);{
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[501]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9181(C_word c,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_9181,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9250,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_9284,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("c-backend.scm:984: chicken.sort#sort"));
t4=C_fast_retrieve(lf[528]);{
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);}}

/* k9184 in for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 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 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_9186,c,av);}
a=C_alloc(8);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_i_check_list_2(t2,lf[93]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9217,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_9222,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=((C_word*)t6)[1];
f_9222(t8,t4,t2);}

/* k9202 in for-each-loop1769 in k9184 in for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_9204(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_9204,c,av);}
C_trace(C_text("c-backend.scm:981: 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[524];
av2[3]=t1;
av2[4]=lf[525];
f_4688(5,av2);}}

/* k9206 in for-each-loop1769 in k9184 in for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_9208(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9208,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f15531,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:74: chicken.string#->string"));
t3=C_fast_retrieve(lf[120]);{
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);}}

/* k9215 in k9184 in for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_9217(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_9217,c,av);}
C_trace(C_text("c-backend.scm:983: 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[522];
f_4688(3,av2);}}

/* for-each-loop1769 in k9184 in for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void f_9222(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_9222,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_9232,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_trace(C_text("c-backend.scm:980: gen"));
t5=lf[4];{
C_word av2[3];
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[523];
f_4688(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9204,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9208,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:981: chicken.string#->string"));
t7=C_fast_retrieve(lf[120]);{
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);}}}

/* k9230 in for-each-loop1769 in k9184 in for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_9232(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_9232,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9222(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9250(C_word c,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_9250,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[93]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9256,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_9261,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_9261(t7,t3,t1);}

/* k9254 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_9256(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_9256,c,av);}
C_trace(C_text("c-backend.scm:985: 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[521];
f_4688(4,av2);}}

/* for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void f_9261(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_9261,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_9271,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_9186,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:976: gen"));
t6=lf[4];{
C_word av2[6];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[526];
av2[4]=C_i_cadr(t4);
av2[5]=lf[527];
f_4688(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);}}}

/* k9269 in for-each-loop1756 in k9248 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_9271(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_9271,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9261(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a9283 in k9179 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9284(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_9284,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);}}

/* k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_9302(C_word c,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_9302,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9303,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9334,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_9348,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_9348(t7,t3,((C_word*)t0)[4]);}

/* g1802 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void f_9303(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_9303,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_9311,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9331,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:997: chicken.internal#string->c-identifier"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[507]);
C_word av2[3];
av2[0]=*((C_word*)lf[507]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k9309 in g1802 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_9311(C_word c,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_9311,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[327],((C_word*)t0)[2]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9324,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:999: toplevel"));
t4=lf[224];{
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[297]);
f_9376(3,av2);}}
else{
C_trace(C_text("c-backend.scm:1000: 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[504];
f_4688(4,av2);}}}

/* k9322 in k9309 in g1802 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_9324(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_9324,c,av);}
C_trace(C_text("c-backend.scm:999: 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[502];
av2[3]=t1;
av2[4]=lf[503];
f_4688(5,av2);}}

/* k9329 in g1802 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_9331(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_9331,c,av);}
C_trace(C_text("c-backend.scm:997: 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[505];
av2[4]=((C_word*)t0)[3];
av2[5]=C_make_character(58);
av2[6]=t1;
av2[7]=lf[506];
f_4688(8,av2);}}

/* k9332 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_9334(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9334,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9337,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1002: 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[517];
f_4688(4,av2);}}

/* k9335 in k9332 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_9337(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9337,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9340,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1003: 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[516];
f_4688(4,av2);}}

/* k9338 in k9335 in k9332 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_9340(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9340,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1004: 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[515];
f_4688(5,av2);}}

/* k9341 in k9338 in k9335 in k9332 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_9343(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_9343,c,av);}
C_trace(C_text("c-backend.scm:1005: 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[508];
av2[3]=C_SCHEME_TRUE;
av2[4]=lf[509];
av2[5]=C_SCHEME_TRUE;
av2[6]=lf[510];
av2[7]=C_SCHEME_TRUE;
av2[8]=lf[511];
av2[9]=C_SCHEME_TRUE;
av2[10]=lf[512];
av2[11]=C_SCHEME_TRUE;
av2[12]=lf[513];
av2[13]=C_SCHEME_TRUE;
av2[14]=lf[514];
f_4688(15,av2);}}

/* for-each-loop1801 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void f_9348(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_9348,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_9358,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:993: g1802"));
t4=((C_word*)t0)[3];
f_9303(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);}}}

/* k9356 in for-each-loop1801 in k9300 in k9161 in k9158 in k9155 in k9152 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_9358(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_9358,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9348(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.c-backend#toplevel in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9376(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_9376,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_9390,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4796,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:76: chicken.string#->string"));
t5=C_fast_retrieve(lf[120]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k9388 in chicken.compiler.c-backend#toplevel in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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,3)))){
C_save_and_reclaim((void *)f_9390,c,av);}
C_trace(C_text("c-backend.scm:1018: scheme#string-append"));
t2=*((C_word*)lf[154]+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 k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9392(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_9392,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_9401,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_9401(t9,t1,C_fix(0));}

/* loop in chicken.compiler.c-backend#cleanup in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9401(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_9401,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_9427,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_9427(t6,t4);}
else{
t6=C_u_i_char_greaterp(t3,C_make_character(126));
if(C_truep(t6)){
t7=t5;
f_9427(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_9427(t9,C_u_i_char_equalp(C_make_character(47),C_i_string_ref(((C_word*)t0)[4],t8)));}
else{
t8=t5;
f_9427(t8,C_SCHEME_FALSE);}}
else{
t7=t5;
f_9427(t7,C_SCHEME_FALSE);}}}}}

/* k9425 in loop in chicken.compiler.c-backend#cleanup in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9427(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_9427,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_trace(C_text("c-backend.scm:1037: loop"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9401(t4,((C_word*)t0)[5],t3);}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9437,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_trace(C_text("c-backend.scm:1034: 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_trace(C_text("c-backend.scm:1037: loop"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_9401(t4,((C_word*)t0)[5],t3);}
else{
t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1));
C_trace(C_text("c-backend.scm:1037: loop"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_9401(t3,((C_word*)t0)[5],t2);}}}

/* k9435 in k9425 in loop in chicken.compiler.c-backend#cleanup in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9437(C_word c,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_9437,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_trace(C_text("c-backend.scm:1037: loop"));
t5=((C_word*)((C_word*)t0)[4])[1];
f_9401(t5,((C_word*)t0)[5],t4);}

/* chicken.compiler.c-backend#make-variable-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9468(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_9468,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9474,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1043: list-tabulate"));
f_4420(t1,t2,t4);}

/* a9473 in chicken.compiler.c-backend#make-variable-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9474(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_9474,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9482,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=C_fix(10);
tp(4,av2);}}

/* k9480 in a9473 in chicken.compiler.c-backend#make-variable-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9482,c,av);}
C_trace(C_text("c-backend.scm:1045: scheme#string-append"));
t2=*((C_word*)lf[154]+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 k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9485(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_9485,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9491,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1048: list-tabulate"));
f_4420(t1,t2,t4);}

/* a9490 in chicken.compiler.c-backend#make-argument-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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=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_9491,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9499,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("##sys#number->string"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[146]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[146]+1);
av2[1]=t3;
av2[2]=t2;
av2[3]=C_fix(10);
tp(4,av2);}}

/* k9497 in a9490 in chicken.compiler.c-backend#make-argument-list in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9499(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_9499,c,av);}
C_trace(C_text("c-backend.scm:1050: scheme#string-append"));
t2=*((C_word*)lf[154]+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);}}

/* k9504 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_9506,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[93]);
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_9536,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_9536(t6,((C_word*)t0)[3],((C_word*)t0)[2]);}

/* k9526 in for-each-loop1860 in k9504 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9528(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_9528,c,av);}
C_trace(C_text("c-backend.scm:1062: 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_4688(6,av2);}}

/* for-each-loop1860 in k9504 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9536(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_9536,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_9546,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_9528,a[2]=t3,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1062: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word av2[4];
av2[0]=*((C_word*)lf[245]+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);}}}

/* k9544 in for-each-loop1860 in k9504 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9546(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_9546,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9536(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9559(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_9559,2,t1,t2);}
a=C_alloc(5);
t3=C_i_check_list_2(t2,lf[93]);
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_9579,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_9579(t7,t1,t2);}

/* k9563 in for-each-loop1884 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9565(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9565,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9568,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1072: generate-foreign-callback-header"));
f_10612(t2,lf[672],((C_word*)t0)[3]);}

/* k9566 in k9563 in for-each-loop1884 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9568(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_9568,c,av);}
C_trace(C_text("c-backend.scm:1073: 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_4688(3,av2);}}

/* for-each-loop1884 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9579(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_9579,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_9589,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_9565,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1071: gen"));
t6=lf[4];{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_SCHEME_TRUE;
f_4688(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);}}}

/* k9587 in for-each-loop1884 in chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9589(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_9589,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9579(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9604(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_9604,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9608,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1079: 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]=t5;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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(11,c,3)))){
C_save_and_reclaim((void *)f_9608,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9611,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,a[7]=C_SCHEME_UNDEFINED,a[8]=t1,a[9]=C_SCHEME_UNDEFINED,a[10]=((C_word*)t2)[3],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("c-backend.scm:1080: 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]=t3;
av2[2]=t1;
av2[3]=((C_word*)t2)[4];
tp(4,av2);}}

/* k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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_9611,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+9,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9614,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1081: 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]=t3;
av2[2]=((C_word*)t0)[10];
tp(3,av2);}}

/* k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
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 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(3,c,2)))){
C_save_and_reclaim((void *)f_9614,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+7,t1);
t4=C_i_length(((C_word*)t2)[7]);
t5=C_mutate(((C_word *)t2)+5,t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9620,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1083: 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]=t6;
av2[2]=((C_word*)t2)[10];
tp(3,av2);}}

/* k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9620(C_word c,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_9620,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9623,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1084: 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]=t4;
av2[2]=((C_word*)t2)[10];
tp(3,av2);}}

/* k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9623(C_word c,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_9623,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+6,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9626,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1085: 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]=t4;
av2[2]=((C_word*)t2)[10];
tp(3,av2);}}

/* k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_9626(C_word c,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_9626,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9629,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1086: 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]=t4;
av2[2]=((C_word*)t2)[10];
tp(3,av2);}}

/* k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_9629(C_word c,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(19,c,3)))){
C_save_and_reclaim((void *)f_9629,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9632,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[9],a[12]=((C_word*)t2)[10],tmp=(C_word)a,a+=13,tmp);
if(C_truep(t1)){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
f_9632(2,av2);}}
else{
t4=C_a_i_list(&a,1,C_SCHEME_FALSE);
if(C_truep(C_i_nullp(t4))){
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f15552,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("mini-srfi-1.scm:228: list-tabulate"));
f_4420(t3,((C_word*)t2)[5],t5);}
else{
t5=C_i_car(t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4612,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:228: list-tabulate"));
f_4420(t3,((C_word*)t2)[5],t6);}}}

/* k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void C_ccall f_9632(C_word c,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_9632,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9635,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1087: foreign-result-conversion"));
f_12637(t3,((C_word*)t0)[5],lf[651]);}

/* k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void C_ccall f_9635(C_word c,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_9635,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+8,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9638,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1088: 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]=t4;
av2[2]=((C_word*)t2)[12];
tp(3,av2);}}

/* k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void C_ccall f_9638(C_word c,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,2)))){
C_save_and_reclaim((void *)f_9638,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9641,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=C_SCHEME_UNDEFINED,a[6]=t1,a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[9],a[12]=((C_word*)t2)[10],a[13]=((C_word*)t2)[11],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("c-backend.scm:1089: 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]=t3;
av2[2]=((C_word*)t2)[12];
tp(3,av2);}}

/* k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in ... */
static void C_ccall f_9641(C_word c,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_9641,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9644,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1090: 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_4688(3,av2);}}

/* k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in ... */
static void C_ccall f_9644(C_word c,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_9644,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9647,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)t2)[13])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9906,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1092: cleanup"));
f_9392(t4,((C_word*)t2)[13]);}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_9647(2,av2);}}}

/* k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in ... */
static void C_ccall f_9647(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9647,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9650,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[4])){
C_trace(C_text("c-backend.scm:1094: 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_4688(6,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_9650(2,av2);}}}

/* k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in ... */
static void C_ccall f_9650(C_word c,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,11)))){
C_save_and_reclaim((void *)f_9650,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9653,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t2)[6])){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9851,a[2]=((C_word*)t2)[8],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1097: gen"));
t5=lf[4];{
C_word *av2;
if(c >= 12) {
  av2=av;
} else {
  av2=C_alloc(12);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[636];
av2[4]=((C_word*)t2)[12];
av2[5]=lf[637];
av2[6]=C_SCHEME_TRUE;
av2[7]=lf[638];
av2[8]=((C_word*)t2)[12];
av2[9]=lf[639];
av2[10]=C_SCHEME_TRUE;
av2[11]=lf[640];
f_4688(12,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9878,a[2]=t3,a[3]=((C_word*)t2)[8],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1104: 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[644];
av2[4]=((C_word*)t2)[12];
av2[5]=C_make_character(40);
f_4688(6,av2);}}}

/* k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in ... */
static void C_ccall f_9653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9653,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9656,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1107: 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_4688(4,av2);}}

/* k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
static void C_ccall f_9656(C_word c,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,3)))){
C_save_and_reclaim((void *)f_9656,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9698,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],tmp=(C_word)a,a+=12,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_4600,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("mini-srfi-1.scm:225: list-tabulate"));
f_4420(t3,((C_word*)t2)[8],t4);}

/* k9663 in k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in ... */
static void C_ccall f_9665(C_word c,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_9665,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9669,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1114: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[630];
tp(4,av2);}}

/* k9667 in k9663 in k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in ... */
static void C_ccall f_9669(C_word c,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_9669,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9673,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("c-backend.scm:1115: foreign-argument-conversion"));
f_11862(t3,((C_word*)t2)[5]);}

/* k9671 in k9667 in k9663 in k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in ... */
static void C_ccall f_9673(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_9673,c,av);}
C_trace(C_text("c-backend.scm:1110: 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_4688(11,av2);}}

/* k9675 in k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in ... */
static void C_ccall f_9677(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_9677,c,av);}
C_trace(C_text("c-backend.scm:1111: foreign-type-declaration"));
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[245]+1));
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[245]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k9681 in k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in ... */
static void C_ccall f_9683(C_word c,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,3)))){
C_save_and_reclaim((void *)f_9683,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[353]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9689,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1113: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[377]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[377]+1);
av2[1]=t4;
av2[2]=C_make_character(116);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k9687 in k9681 in k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in ... */
static void C_ccall f_9689(C_word c,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,4)))){
C_save_and_reclaim((void *)f_9689,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9692,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("c-backend.scm:1113: ##sys#print"));
t4=*((C_word*)lf[378]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k9690 in k9687 in k9681 in k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in ... */
static void C_ccall f_9692(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_9692,c,av);}
C_trace(C_text("c-backend.scm:1113: scheme#get-output-string"));
t2=C_fast_retrieve(lf[376]);{
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);}}

/* k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in ... */
static void C_ccall f_9698(C_word c,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_9698,c,av);}
a=C_alloc(15);
t2=C_i_check_list_2(t1,lf[93]);
t3=C_i_check_list_2(((C_word*)t0)[2],lf[93]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9707,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_9799,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=((C_word*)t6)[1];
f_9799(t8,t4,((C_word*)t0)[11],t1,((C_word*)t0)[2]);}

/* k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in ... */
static void C_ccall f_9707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9707,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9710,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[4])){
C_trace(C_text("c-backend.scm:1117: 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_4688(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_9710(2,av2);}}}

/* k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in ... */
static void C_ccall f_9710(C_word c,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,5)))){
C_save_and_reclaim((void *)f_9710,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9713,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t2)[3])){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9719,a[2]=((C_word*)t2)[4],a[3]=t3,a[4]=((C_word*)t2)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1119: 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]=((C_word*)t2)[3];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[618];
f_4688(6,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9740,a[2]=((C_word*)t2)[4],a[3]=t3,a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],tmp=(C_word)a,a+=8,tmp);
t5=C_eqp(((C_word*)t2)[6],lf[580]);
if(C_truep(C_i_not(t5))){
C_trace(C_text("c-backend.scm:1129: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[625];
av2[4]=((C_word*)t2)[9];
f_4688(5,av2);}}
else{
C_trace(C_text("c-backend.scm:1130: gen"));
t6=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=C_SCHEME_TRUE;
f_4688(3,av2);}}}}

/* k9711 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9713,c,av);}
C_trace(C_text("c-backend.scm:1140: 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_4688(3,av2);}}

/* k9717 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in ... */
static void C_ccall f_9719(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9719,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9722,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1121: 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_4688(5,av2);}}

/* k9720 in k9717 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in ... */
static void C_ccall f_9722(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9722,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(((C_word*)t2)[2])){
C_trace(C_text("c-backend.scm:1123: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[613];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[614];
f_4688(6,av2);}}
else{
if(C_truep(((C_word*)t2)[4])){
C_trace(C_text("c-backend.scm:1125: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[615];
f_4688(4,av2);}}
else{
C_trace(C_text("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]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[616];
f_4688(4,av2);}}}}

/* k9738 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_9740,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9743,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_trace(C_text("c-backend.scm:1131: 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_4688(4,av2);}}

/* k9741 in k9738 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 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 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_9743,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9746,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_9777,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9781,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1132: make-argument-list"));
f_9485(t4,((C_word*)t0)[6],lf[624]);}

/* k9744 in k9741 in k9738 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in ... */
static void C_ccall f_9746(C_word c,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_9746,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9749,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_9749(2,av2);}}
else{
C_trace(C_text("c-backend.scm:1133: 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_4688(3,av2);}}}

/* k9747 in k9744 in k9741 in k9738 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in ... */
static void C_ccall f_9749(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9749,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9752,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1134: 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_4688(3,av2);}}

/* k9750 in k9747 in k9744 in k9741 in k9738 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in ... */
static void C_ccall f_9752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9752,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(((C_word*)t2)[2])){
C_trace(C_text("c-backend.scm:1136: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[619];
av2[4]=C_SCHEME_TRUE;
av2[5]=lf[620];
f_4688(6,av2);}}
else{
if(C_truep(((C_word*)t2)[4])){
C_trace(C_text("c-backend.scm:1138: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[621];
f_4688(3,av2);}}
else{
C_trace(C_text("c-backend.scm:1139: gen"));
t3=lf[4];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=C_SCHEME_TRUE;
av2[3]=lf[622];
f_4688(4,av2);}}}}

/* k9775 in k9741 in k9738 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in ... */
static void C_ccall f_9777(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_9777,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);}}

/* k9779 in k9741 in k9738 in k9708 in k9705 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in ... */
static void C_ccall f_9781(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_9781,c,av);}
C_trace(C_text("c-backend.scm:1132: 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-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in ... */
static void f_9799(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_9799,5,t0,t1,t2,t3,t4);}
a=C_alloc(7);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9806,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_9806(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));}
else{
t6=t5;
f_9806(t6,C_SCHEME_FALSE);}}

/* k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in ... */
static void f_9806(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(22,0,2)))){
C_save_and_reclaim_args((void *)trf_9806,2,t0,t1);}
a=C_alloc(22);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9809,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|5,a[1]=(C_word)f_9665,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9677,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t5)){
C_trace(C_text("c-backend.scm:1113: 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|4,a[1]=(C_word)f_9683,a[2]=t7,a[3]=C_SCHEME_UNDEFINED,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1113: scheme#open-output-string"));
t9=C_fast_retrieve(lf[380]);{
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);}}}

/* k9807 in k9804 in for-each-loop1937 in k9696 in k9654 in k9651 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in ... */
static void C_ccall f_9809(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_9809,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9799(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)));}

/* k9849 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in ... */
static void C_ccall f_9851(C_word c,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_9851,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_9856,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_9856(t5,((C_word*)t0)[3],C_fix(0));}

/* doloop1950 in k9849 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
static void f_9856(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_9856,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_9866,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_trace(C_text("c-backend.scm:1102: 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_4688(8,av2);}}}

/* k9864 in doloop1950 in k9849 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in ... */
static void C_ccall f_9866(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9866,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_9856(t3,((C_word*)t0)[4],t2);}

/* k9876 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in ... */
static void C_ccall f_9878(C_word c,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_9878,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9881,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9888,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9896,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1105: make-variable-list"));
f_9468(t4,((C_word*)t0)[3],lf[643]);}

/* k9879 in k9876 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
static void C_ccall f_9881(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_9881,c,av);}
C_trace(C_text("c-backend.scm:1106: 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_4688(3,av2);}}

/* k9886 in k9876 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
static void C_ccall f_9888(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_9888,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);}}

/* k9894 in k9876 in k9648 in k9645 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in ... */
static void C_ccall f_9896(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word 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_9896,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[642],t1);
C_trace(C_text("c-backend.scm:1105: 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);}}

/* k9904 in k9642 in k9639 in k9636 in k9633 in k9630 in k9627 in k9624 in k9621 in k9618 in k9612 in k9609 in k9606 in g1908 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in ... */
static void C_ccall f_9906(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_9906,c,av);}
C_trace(C_text("c-backend.scm:1092: 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_4688(6,av2);}}

/* for-each-loop1907 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9917(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_9917,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_9927,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("c-backend.scm:1077: g1908"));
t4=((C_word*)t0)[3];
f_9604(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);}}}

/* k9925 in for-each-loop1907 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9927(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_9927,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_9917(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void f_9942(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_9942,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9946,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1146: 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]=t5;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9946(C_word c,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_9946,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9949,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=t1,a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[3],a[8]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("c-backend.scm:1147: 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]=t3;
av2[2]=t1;
av2[3]=((C_word*)t2)[4];
tp(4,av2);}}

/* k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9949(C_word c,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_9949,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9952,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1148: 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]=t3;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}

/* k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void C_ccall f_9952(C_word c,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_9952,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9955,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1149: 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]=t4;
av2[2]=((C_word*)t2)[7];
tp(3,av2);}}

/* k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 in ... */
static void C_ccall f_9955(C_word c,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(3,c,3)))){
C_save_and_reclaim((void *)f_9955,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+6,t1);
t4=C_i_length(((C_word*)t2)[6]);
t5=C_mutate(((C_word *)t2)+5,t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9961,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("c-backend.scm:1151: make-argument-list"));
f_9485(t6,((C_word*)t2)[5],lf[607]);}

/* k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in ... */
static void C_ccall f_9961(C_word c,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(22,c,5)))){
C_save_and_reclaim((void *)f_9961,c,av);}
a=C_alloc(22);
t2=((C_word*)t0)[2];
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_9963,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10442,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=t1,a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],tmp=(C_word)a,a+=11,tmp);
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_10555,a[2]=t8,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t10=((C_word*)t8)[1];
f_10555(t10,t6,((C_word*)t2)[6],t1,lf[606]);}

/* compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in ... */
static void f_9963(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_9963,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_9973,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
if(C_truep(t5)){
t7=t6;
f_9973(t7,t5);}
else{
t7=C_eqp(t2,lf[577]);
if(C_truep(t7)){
t8=t6;
f_9973(t8,t7);}
else{
t8=C_eqp(t2,lf[578]);
if(C_truep(t8)){
t9=t6;
f_9973(t9,t8);}
else{
t9=C_eqp(t2,lf[579]);
if(C_truep(t9)){
t10=t6;
f_9973(t10,t9);}
else{
t10=C_eqp(t2,lf[14]);
if(C_truep(t10)){
t11=t6;
f_9973(t11,t10);}
else{
t11=C_eqp(t2,lf[580]);
if(C_truep(t11)){
t12=t6;
f_9973(t12,t11);}
else{
t12=C_eqp(t2,lf[581]);
if(C_truep(t12)){
t13=t6;
f_9973(t13,t12);}
else{
t13=C_eqp(t2,lf[582]);
if(C_truep(t13)){
t14=t6;
f_9973(t14,t13);}
else{
t14=C_eqp(t2,lf[583]);
if(C_truep(t14)){
t15=t6;
f_9973(t15,t14);}
else{
t15=C_eqp(t2,lf[584]);
if(C_truep(t15)){
t16=t6;
f_9973(t16,t15);}
else{
t16=C_eqp(t2,lf[585]);
if(C_truep(t16)){
t17=t6;
f_9973(t17,t16);}
else{
t17=C_eqp(t2,lf[586]);
t18=t6;
f_9973(t18,(C_truep(t17)?t17:C_eqp(t2,lf[587])));}}}}}}}}}}}}

/* k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void f_9973(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(3,0,2)))){
C_save_and_reclaim_args((void *)trf_9973,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[6],lf[530]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9982,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t2)){
t4=t3;
f_9982(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[6],lf[574]);
if(C_truep(t4)){
t5=t3;
f_9982(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[6],lf[550]);
if(C_truep(t5)){
t6=t3;
f_9982(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[6],lf[552]);
if(C_truep(t6)){
t7=t3;
f_9982(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[6],lf[575]);
t8=t3;
f_9982(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[576])));}}}}}}

/* k9980 in k9971 in compute-size in k9959 in k9953 in k9950 in k9947 in k9944 in g2019 in k9149 in k9146 in k9143 in k9140 in k9137 in k9133 in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in ... */
static void f_9982(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 *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_9982,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("c-backend.scm:1160: scheme#string-append"));
t3=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=((C_word*)t2)[5];
av2[2]=((C_word*)t2)[4];
av2[3]=lf[531];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=C_eqp(((C_word*)t2)[6],lf[532]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[6],lf[533]));
if(C_truep(t4)){
C_trace(C_text("c-backend.scm:1162: scheme#string-append"));
t5=*((C_word*)lf[154]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=((C_word*)t2)[5];
av2[2]=((C_word*)t2)[4];
av2[3]=lf[534];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t5=C_eqp(((C_word*)t2)[6],lf[535]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10006,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t5)){
t7=t6;
f_10006(t7,t5);}
else{
t7=C_eqp(((C_word*)t2)[6],lf[568]);
if(C_truep(t7)){
t8=t6;
f_10006(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[6],lf[569]);
if(C_truep(t8)){
t9=t6;
f_10006(t9,t8);}
else{
t9=C_eqp(((C_word*)t2)[6],lf[570]);
if(C_truep(t9)){
t10=t6;
f_10006(t10,t9);}
else{
t10=C_eqp(((C_word*)t2)[6],lf[571]);
if(C_truep(t10)){
t11=t6;
f_10006(t11,t10);}
else{
t11=C_eqp(((C_word*)t2)[6],lf[572]);
t12=t6;
f_10006(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t2)[6],lf[573])));}}}}}}}}

/* toplevel */
static 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(1816))){
C_save(t1);
C_rereclaim2(1816*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,914);
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("\376\002\000\000\022\143\141\156\047\164\040\146\151\156\144\040\154\141\155\142\144\141\000"));
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("\376\002\000\000\016\103\137\123\103\110\105\115\105\137\124\122\125\105\000"));
lf[16]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\123\103\110\105\115\105\137\106\101\114\123\105\000"));
lf[17]=C_h_intern(&lf[17],4, C_text("char"));
lf[18]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\103\137\155\141\153\145\137\143\150\141\162\141\143\164\145\162\050\000"));
lf[19]=C_h_intern(&lf[19],3, C_text("nil"));
lf[20]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\123\103\110\105\115\105\137\105\116\104\137\117\106\137\114\111\123\124\000"));
lf[21]=C_h_intern(&lf[21],3, C_text("fix"));
lf[22]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\103\137\146\151\170\050\000"));
lf[23]=C_h_intern(&lf[23],3, C_text("eof"));
lf[24]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\123\103\110\105\115\105\137\105\116\104\137\117\106\137\106\111\114\105\000"));
lf[25]=C_h_intern(&lf[25],3, C_text("bwp"));
lf[26]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\103\137\123\103\110\105\115\105\137\102\122\117\113\105\116\137\127\105\101\113\137\120\124\122\000"));
lf[27]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\142\141\144\040\151\155\155\145\144\151\141\164\145\000"));
lf[28]=C_h_intern(&lf[28],14, C_text("##core#literal"));
lf[29]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\050\050\103\137\167\157\162\144\051\154\151\000"));
lf[30]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[31]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\146\133\000"));
lf[32]=C_h_intern(&lf[32],12, C_text("##core#float"));
lf[33]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\116\101\116\000"));
lf[34]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\111\116\106\111\116\111\124\131\000"));
lf[35]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\144\157\165\142\154\145\051\000"));
lf[36]=C_h_intern(&lf[36],2, C_text("if"));
lf[37]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\145\154\163\145\173\000"));
lf[38]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\051\173\000"));
lf[39]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\151\146\050\103\137\164\162\165\145\160\050\000"));
lf[40]=C_h_intern(&lf[40],11, C_text("##core#proc"));
lf[41]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\103\137\167\157\162\144\051\000"));
lf[42]=C_h_intern(&lf[42],11, C_text("##core#bind"));
lf[43]=C_h_intern(&lf[43],16, C_text("##core#let_float"));
lf[44]=C_h_intern(&lf[44],21, C_text("##core#float-variable"));
lf[45]=C_h_intern(&lf[45],18, C_text("##core#unbox_float"));
lf[46]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[47]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\103\137\146\154\157\156\165\155\137\155\141\147\156\151\164\165\144\145\050\000"));
lf[48]=C_h_intern(&lf[48],16, C_text("##core#box_float"));
lf[49]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[50]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\146\154\157\156\165\155\050\046\141\054\000"));
lf[51]=C_h_intern(&lf[51],10, C_text("##core#ref"));
lf[52]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\133\000"));
lf[53]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\050\050\103\137\167\157\162\144\052\051\000"));
lf[54]=C_h_intern(&lf[54],15, C_text("##core#rest-car"));
lf[55]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\103\137\147\145\164\137\162\145\163\164\137\141\162\147\050\143\054\000"));
lf[56]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\054\141\166\054\000"));
lf[57]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\054\164\060\051\000"));
lf[58]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\103\137\165\137\151\137\154\151\163\164\137\162\145\146\050\164\000"));
lf[59]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\054\000"));
lf[60]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[61]=C_h_intern(&lf[61],43, C_text("chicken.compiler.core#lambda-literal-direct"));
lf[62]=C_h_intern(&lf[62],49, C_text("chicken.compiler.core#lambda-literal-customizable"));
lf[63]=C_h_intern(&lf[63],51, C_text("chicken.compiler.core#lambda-literal-argument-count"));
lf[64]=C_h_intern(&lf[64],17, C_text("##core#rest-null?"));
lf[65]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\162\145\163\164\137\156\165\154\154\160\050\143\054\000"));
lf[66]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[67]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\103\137\155\153\137\142\157\157\154\050\103\137\165\156\146\151\170\050\103\137\151\137\154\145\156\147\164\150\050\164\000"));
lf[68]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\051\051\040\076\075\040\000"));
lf[69]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[70]=C_h_intern(&lf[70],18, C_text("##core#rest-length"));
lf[71]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\146\151\170\050\143\040\055\040\000"));
lf[72]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[73]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\165\137\151\137\154\145\156\147\164\150\050\164\000"));
lf[74]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[75]=C_h_intern(&lf[75],12, C_text("##core#unbox"));
lf[76]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\133\061\135\000"));
lf[77]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\050\050\103\137\167\157\162\144\052\051\000"));
lf[78]=C_h_intern(&lf[78],15, C_text("##core#update_i"));
lf[79]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\103\137\163\145\164\137\142\154\157\143\153\137\151\164\145\155\050\000"));
lf[80]=C_h_intern(&lf[80],13, C_text("##core#update"));
lf[81]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\053\000"));
lf[82]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\054\000"));
lf[83]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\155\165\164\141\164\145\050\050\050\103\137\167\157\162\144\040\052\051\000"));
lf[84]=C_h_intern(&lf[84],18, C_text("##core#updatebox_i"));
lf[85]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\054\060\054\000"));
lf[86]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\103\137\163\145\164\137\142\154\157\143\153\137\151\164\145\155\050\000"));
lf[87]=C_h_intern(&lf[87],16, C_text("##core#updatebox"));
lf[88]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\053\061\054\000"));
lf[89]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\155\165\164\141\164\145\050\050\050\103\137\167\157\162\144\040\052\051\000"));
lf[90]=C_h_intern(&lf[90],14, C_text("##core#closure"));
lf[91]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\141\133\000"));
lf[92]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\075\000"));
lf[93]=C_h_intern(&lf[93],8, C_text("for-each"));
lf[94]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\164\155\160\075\050\103\137\167\157\162\144\051\141\054\141\053\075\000"));
lf[95]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\054\164\155\160\051\000"));
lf[96]=C_h_intern(&lf[96],17, C_text("chicken.base#add1"));
lf[97]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\050\052\141\075\103\137\103\114\117\123\125\122\105\137\124\131\120\105\174\000"));
lf[98]=C_h_intern(&lf[98],10, C_text("##core#box"));
lf[99]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\054\164\155\160\075\050\103\137\167\157\162\144\051\141\054\141\053\075\062\054\164\155\160\051\000"));
lf[100]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\050\052\141\075\103\137\126\105\103\124\117\122\137\124\131\120\105\174\061\054\141\133\061\135\075\000"));
lf[101]=C_h_intern(&lf[101],12, C_text("##core#local"));
lf[102]=C_h_intern(&lf[102],15, C_text("##core#setlocal"));
lf[103]=C_h_intern(&lf[103],13, C_text("##core#global"));
lf[104]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\146\133\000"));
lf[105]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\135\000"));
lf[106]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\162\145\164\162\151\145\166\145\062\050\154\146\133\000"));
lf[107]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\135\054\103\137\164\145\170\164\050\000"));
lf[108]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\051\000"));
lf[110]=C_h_intern(&lf[110],27, C_text("##sys#symbol->string/shared"));
lf[111]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\052\050\050\103\137\167\157\162\144\052\051\154\146\133\000"));
lf[112]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\135\053\061\051\000"));
lf[113]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\103\137\146\141\163\164\137\162\145\164\162\151\145\166\145\050\154\146\133\000"));
lf[114]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\051\000"));
lf[115]=C_h_intern(&lf[115],16, C_text("##core#setglobal"));
lf[116]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\040\057\052\040\050\163\145\164\041\040\000"));
lf[117]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\040\056\056\056\051\040\052\057\054\000"));
lf[118]=C_h_intern(&lf[118],32, C_text("chicken.string#string-translate*"));
lf[119]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\002\000\000\003\052\057\000\376\002\000\000\004\052\137\057\000\376\377\016"));
lf[120]=C_h_intern(&lf[120],23, C_text("chicken.string#->string"));
lf[121]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\155\165\164\141\164\145\050\046\154\146\133\000"));
lf[122]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\135\000"));
lf[123]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\155\165\164\141\164\145\050\050\103\137\167\157\162\144\052\051\154\146\133\000"));
lf[124]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\135\053\061\000"));
lf[125]=C_h_intern(&lf[125],18, C_text("##core#setglobal_i"));
lf[126]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\146\133\000"));
lf[127]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\135\040\057\052\040\000"));
lf[128]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\040\052\057\040\075\000"));
lf[129]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\163\145\164\137\142\154\157\143\153\137\151\164\145\155\050\154\146\133\000"));
lf[130]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\135\040\057\052\040\000"));
lf[131]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\052\057\054\060\054\000"));
lf[132]=C_h_intern(&lf[132],16, C_text("##core#undefined"));
lf[133]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\103\137\123\103\110\105\115\105\137\125\116\104\105\106\111\116\105\104\000"));
lf[134]=C_h_intern(&lf[134],11, C_text("##core#call"));
lf[135]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\054\141\166\062\051\073\175\000"));
lf[136]=C_h_intern(&lf[136],40, C_text("chicken.compiler.support#node-parameters"));
lf[137]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\060\000"));
lf[138]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\147\157\164\157\040\154\157\157\160\073\000"));
lf[139]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\143\075\000"));
lf[140]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\075\164\000"));
lf[141]=C_h_intern(&lf[141],48, C_text("chicken.compiler.core#lambda-literal-temporaries"));
lf[142]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[143]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\141\166\062\051\073\175\000"));
lf[144]=C_h_intern(&lf[144],19, C_text("##sys#string-append"));
lf[145]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
lf[146]=C_h_intern(&lf[146],20, C_text("##sys#number->string"));
lf[147]=C_h_intern(&lf[147],44, C_text("chicken.compiler.core#lambda-literal-looping"));
lf[148]=C_h_intern(&lf[148],39, C_text("chicken.compiler.core#lambda-literal-id"));
lf[149]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\164\160\050\000"));
lf[150]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\054\141\166\062\051\073\175\000"));
lf[151]=C_h_intern(&lf[151],48, C_text("chicken.compiler.core#no-global-procedure-checks"));
lf[152]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\050\166\157\151\144\052\051\050\052\050\050\103\137\167\157\162\144\052\051\050\000"));
lf[153]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\051\053\061\051\051\000"));
lf[154]=C_h_intern(&lf[154],20, C_text("scheme#string-append"));
lf[155]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\146\133\000"));
lf[156]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\135\000"));
lf[157]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\052\050\050\103\137\167\157\162\144\052\051\154\146\133\000"));
lf[158]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\135\053\061\051\000"));
lf[159]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\146\141\163\164\137\162\145\164\162\151\145\166\145\137\160\162\157\143\050\000"));
lf[160]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[161]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\103\137\162\145\164\162\151\145\166\145\062\137\163\171\155\142\157\154\137\160\162\157\143\050\000"));
lf[162]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\103\137\164\145\170\164\050\000"));
lf[163]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\051\000"));
lf[164]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\146\133\000"));
lf[165]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\135\000"));
lf[166]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\146\141\163\164\137\162\145\164\162\151\145\166\145\137\160\162\157\143\050\000"));
lf[167]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[168]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\052\050\050\103\137\167\157\162\144\052\051\154\146\133\000"));
lf[169]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\135\053\061\051\000"));
lf[170]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\103\137\146\141\163\164\137\162\145\164\162\151\145\166\145\137\163\171\155\142\157\154\137\160\162\157\143\050\154\146\133\000"));
lf[171]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\051\000"));
lf[172]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\052\050\050\103\137\167\157\162\144\052\051\154\146\133\000"));
lf[173]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\135\053\061\051\000"));
lf[174]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\173\103\137\160\162\157\143\040\164\160\075\050\103\137\160\162\157\143\051\000"));
lf[175]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\050\000"));
lf[176]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\054\141\166\062\051\073\175\000"));
lf[177]=C_h_intern(&lf[177],31, C_text("chicken.compiler.support#unsafe"));
lf[178]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\050\166\157\151\144\052\051\050\052\050\050\103\137\167\157\162\144\052\051\164\000"));
lf[179]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\053\061\051\051\000"));
lf[180]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\146\141\163\164\137\162\145\164\162\151\145\166\145\137\160\162\157\143\050\164\000"));
lf[181]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[182]=C_h_intern(&lf[182],41, C_text("chicken.compiler.core#no-procedure-checks"));
lf[183]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\050\050\103\137\160\162\157\143\051\000"));
lf[184]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
lf[185]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\073\173\000"));
lf[186]=C_h_intern(&lf[186],35, C_text("chicken.compiler.support#node-class"));
lf[187]=C_h_intern(&lf[187],37, C_text("chicken.compiler.core#emit-debug-info"));
lf[188]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\103\137\144\145\142\165\147\147\145\162\050\046\050\103\137\144\145\142\165\147\137\151\156\146\157\133\000"));
lf[189]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\135\051\054\000"));
lf[190]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\060\054\116\125\114\114\000"));
lf[191]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[192]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\143\054\141\166\000"));
lf[193]=C_h_intern(&lf[193],37, C_text("chicken.compiler.core#emit-trace-info"));
lf[194]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\103\137\164\162\141\143\145\050\103\137\164\145\170\164\050\042\000"));
lf[195]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\042\051\051\073\000"));
lf[196]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\002\000\000\002\134\000\376\002\000\000\003\134\134\000\376\377\016"));
lf[197]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\057\052\040\000"));
lf[198]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\052\057\000"));
lf[199]=C_h_intern(&lf[199],49, C_text("chicken.compiler.core#lambda-literal-closure-size"));
lf[200]=C_h_intern(&lf[200],44, C_text("chicken.compiler.support#source-info->string"));
lf[201]=C_h_intern(&lf[201],14, C_text("##core#recurse"));
lf[202]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\147\157\164\157\040\154\157\157\160\073\000"));
lf[203]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\075\164\000"));
lf[204]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\164\060\054\000"));
lf[205]=C_h_intern(&lf[205],18, C_text("##core#direct_call"));
lf[206]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\103\137\141\137\151\050\046\141\054\000"));
lf[207]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\040\000"));
lf[208]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\103\137\144\145\142\165\147\147\145\162\050\046\050\103\137\144\145\142\165\147\137\151\156\146\157\133\000"));
lf[209]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\135\051\054\000"));
lf[210]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\060\054\116\125\114\114\000"));
lf[211]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\054\000"));
lf[212]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\143\054\141\166\000"));
lf[213]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\103\137\164\162\141\143\145\050\042\000"));
lf[214]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\042\051\054\000"));
lf[215]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\057\052\040\000"));
lf[216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\052\057\000"));
lf[217]=C_h_intern(&lf[217],14, C_text("##core#provide"));
lf[218]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\141\137\151\137\160\162\157\166\151\144\145\050\046\141\054\061\054\154\146\133\000"));
lf[219]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\051\000"));
lf[220]=C_h_intern(&lf[220],15, C_text("##core#callunit"));
lf[221]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\103\137\000"));
lf[222]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000"));
lf[223]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\054\141\166\062\051\073\175\000"));
lf[225]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\103\137\123\103\110\105\115\105\137\125\116\104\105\106\111\116\105\104\000"));
lf[226]=C_h_intern(&lf[226],13, C_text("##core#return"));
lf[227]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[228]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\162\145\164\165\162\156\050\000"));
lf[229]=C_h_intern(&lf[229],13, C_text("##core#inline"));
lf[230]=C_h_intern(&lf[230],18, C_text("##core#debug-event"));
lf[231]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\103\137\144\145\142\165\147\147\145\162\050\046\050\103\137\144\145\142\165\147\137\151\156\146\157\133\000"));
lf[232]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\135\051\054\000"));
lf[233]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\060\054\116\125\114\114\000"));
lf[234]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[235]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\143\054\141\166\000"));
lf[236]=C_h_intern(&lf[236],22, C_text("##core#inline_allocate"));
lf[237]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\050\046\141\054\000"));
lf[238]=C_h_intern(&lf[238],17, C_text("##core#inline_ref"));
lf[240]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\141\000"));
lf[241]=C_h_intern(&lf[241],20, C_text("##core#inline_update"));
lf[242]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\051\054\103\137\123\103\110\105\115\105\137\125\116\104\105\106\111\116\105\104\051\000"));
lf[243]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\075\050\000"));
lf[245]=C_h_intern(&lf[245],51, C_text("chicken.compiler.c-backend#foreign-type-declaration"));
lf[246]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[247]=C_h_intern(&lf[247],21, C_text("##core#inline_loc_ref"));
lf[248]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\051\051\000"));
lf[249]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\052\050\050\000"));
lf[250]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\052\051\103\137\144\141\164\141\137\160\157\151\156\164\145\162\050\000"));
lf[251]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[252]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\141\000"));
lf[253]=C_h_intern(&lf[253],24, C_text("##core#inline_loc_update"));
lf[254]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\051\054\103\137\123\103\110\105\115\105\137\125\116\104\105\106\111\116\105\104\051\000"));
lf[255]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\051\075\000"));
lf[256]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\050\050\052\050\000"));
lf[257]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\052\051\103\137\144\141\164\141\137\160\157\151\156\164\145\162\050\000"));
lf[258]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[259]=C_h_intern(&lf[259],13, C_text("##core#switch"));
lf[260]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\144\145\146\141\165\154\164\072\000"));
lf[261]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\143\141\163\145\040\000"));
lf[262]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\173\000"));
lf[263]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\167\151\164\143\150\050\000"));
lf[264]=C_h_intern(&lf[264],11, C_text("##core#cond"));
lf[265]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\077\000"));
lf[266]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\050\103\137\164\162\165\145\160\050\000"));
lf[267]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\142\141\144\040\146\157\162\155\000"));
lf[268]=C_h_intern(&lf[268],44, C_text("chicken.compiler.support#node-subexpressions"));
lf[269]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\073\000"));
lf[270]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\141\166\062\133\000"));
lf[271]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\075\000"));
lf[272]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\141\166\062\133\060\135\075\000"));
lf[273]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\073\000"));
lf[274]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\103\137\167\157\162\144\040\141\166\062\133\000"));
lf[275]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\073\000"));
lf[276]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\167\157\162\144\040\052\141\166\062\075\141\166\073\000"));
lf[277]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\175\000"));
lf[278]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\040\040\141\166\062\075\103\137\141\154\154\157\143\050\000"));
lf[279]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[280]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\175\040\145\154\163\145\040\173\000"));
lf[281]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\040\040\141\166\062\075\141\166\073\000"));
lf[282]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\151\146\050\143\040\076\075\040\000"));
lf[283]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\040\173\000"));
lf[284]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\167\157\162\144\040\052\141\166\062\073\000"));
lf[285]=C_h_intern(&lf[285],4, C_text("none"));
lf[286]=C_h_intern(&lf[286],55, C_text("chicken.compiler.core#lambda-literal-rest-argument-mode"));
lf[287]=C_h_intern(&lf[287],43, C_text("chicken.compiler.core#external-protos-first"));
lf[289]=C_h_intern(&lf[289],47, C_text("chicken.compiler.support#foreign-callback-stubs"));
lf[290]=C_h_intern(&lf[290],42, C_text("chicken.compiler.core#foreign-declarations"));
lf[291]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\043\151\156\143\154\165\144\145\040\042\000"));
lf[292]=C_h_intern(&lf[292],47, C_text("chicken.compiler.c-platform#target-include-file"));
lf[293]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\042\000"));
lf[294]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\052\057\000"));
lf[295]=C_h_intern(&lf[295],32, C_text("chicken.compiler.core#used-units"));
lf[296]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\040\040\040\165\163\145\163\072\040\000"));
lf[297]=C_h_intern(&lf[297],31, C_text("chicken.compiler.core#unit-name"));
lf[298]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\040\040\040\165\156\151\164\072\040\000"));
lf[299]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\057\052\040\107\145\156\145\162\141\164\145\144\040\146\162\157\155\040\000"));
lf[300]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\040\142\171\040\164\150\145\040\103\110\111\103\113\105\116\040\143\157\155\160\151\154\145\162\000"));
lf[301]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\040\040\040\150\164\164\160\072\057\057\167\167\167\056\143\141\154\154\055\143\143\056\157\162\147\000"));
lf[302]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\040\040\040\143\157\155\155\141\156\144\040\154\151\156\145\072\040\000"));
lf[303]=C_h_intern(&lf[303],33, C_text("chicken.string#string-intersperse"));
lf[304]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[305]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\040\040\000"));
lf[306]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[307]=C_h_intern(&lf[307],27, C_text("chicken.string#string-split"));
lf[308]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[309]=C_h_intern(&lf[309],32, C_text("chicken.platform#chicken-version"));
lf[310]=C_h_intern(&lf[310],3, C_text("map"));
lf[311]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\175\073\000"));
lf[312]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\054\060\000"));
lf[313]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\163\164\141\164\151\143\040\103\137\143\150\141\162\040\154\151\000"));
lf[314]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\133\135\040\103\137\141\154\151\147\156\145\144\075\173\103\137\154\151\150\144\162\050\000"));
lf[315]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\163\164\141\164\151\143\040\144\157\165\142\154\145\040\103\137\160\157\163\163\151\142\154\171\137\146\157\162\143\145\137\141\154\151\147\156\155\145\156\164\073\000"));
lf[316]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\163\164\141\164\151\143\040\103\137\167\157\162\144\040\154\146\133\000"));
lf[317]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\073\000"));
lf[318]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\156\157\162\145\164\137\144\145\143\154\050\103\137\000"));
lf[319]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[320]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\103\137\145\170\164\145\162\156\040\166\157\151\144\040\103\137\143\143\141\154\154\040\103\137\000"));
lf[321]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\050\103\137\167\157\162\144\040\143\054\103\137\167\157\162\144\040\052\141\166\051\040\103\137\156\157\162\145\164\073\000"));
lf[322]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\163\164\141\164\151\143\040\103\137\120\124\101\102\114\105\137\105\116\124\122\131\040\052\143\162\145\141\164\145\137\160\164\141\142\154\145\050\166\157\151\144\051\073\000"));
lf[323]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\103\137\156\157\162\145\164\000"));
lf[324]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\167\157\162\144\040\052\141\166\000"));
lf[325]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\103\137\167\157\162\144\040\052\141\000"));
lf[326]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\103\137\167\157\162\144\040\143\054\000"));
lf[327]=C_h_intern(&lf[327],8, C_text("toplevel"));
lf[328]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\143\143\141\154\154\040\000"));
lf[329]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\103\137\167\157\162\144\040\000"));
lf[330]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\166\157\151\144\040\000"));
lf[331]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\164\141\164\151\143\040\000"));
lf[332]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\156\157\162\145\164\137\144\145\143\154\050\000"));
lf[333]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[334]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\103\137\000"));
lf[335]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\145\170\164\145\162\156\040\166\157\151\144\040\103\137\143\143\141\154\154\040\000"));
lf[336]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\156\157\162\145\164\137\144\145\143\154\050\103\137\000"));
lf[337]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
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("\376\002\000\000\002\164\000"));
lf[341]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\073\175\000"));
lf[343]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
lf[344]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\167\157\162\144\040\164\000"));
lf[345]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\075\141\166\133\000"));
lf[346]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\073\000"));
lf[347]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\163\164\141\164\151\143\040\166\157\151\144\040\103\137\143\143\141\154\154\040\164\162\000"));
lf[348]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\050\103\137\167\157\162\144\040\143\054\103\137\167\157\162\144\040\052\141\166\051\173\000"));
lf[349]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\156\157\162\145\164\137\144\145\143\154\050\164\162\000"));
lf[350]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[351]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\163\164\141\164\151\143\040\166\157\151\144\040\103\137\143\143\141\154\154\040\164\162\000"));
lf[352]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\050\103\137\167\157\162\144\040\143\054\103\137\167\157\162\144\040\052\141\166\051\040\103\137\156\157\162\145\164\073\000"));
lf[353]=C_h_intern(&lf[353],6, C_text("format"));
lf[354]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\075\103\137\146\151\170\050\000"));
lf[355]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[356]=C_h_intern(&lf[356],21, C_text("##sys#undefined-value"));
lf[357]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\075\103\137\123\103\110\105\115\105\137\125\116\104\105\106\111\116\105\104\073\000"));
lf[358]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\123\103\110\105\115\105\137\124\122\125\105\000"));
lf[359]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\123\103\110\105\115\105\137\106\101\114\123\105\000"));
lf[360]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\075\103\137\155\141\153\145\137\143\150\141\162\141\143\164\145\162\050\000"));
lf[361]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[362]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\150\137\151\156\164\145\162\156\137\153\167\000"));
lf[363]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\150\137\151\156\164\145\162\156\000"));
lf[364]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\050\046\000"));
lf[365]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\054\040\103\137\164\145\170\164\050\000"));
lf[366]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\051\073\000"));
lf[367]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\075\000"));
lf[368]=C_h_intern(&lf[368],24, C_text("chicken.keyword#keyword?"));
lf[369]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\075\103\137\123\103\110\105\115\105\137\105\116\104\137\117\106\137\114\111\123\124\073\000"));
lf[370]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\042\051\051\073\000"));
lf[372]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\075\103\137\144\145\143\157\144\145\137\154\151\164\145\162\141\154\050\103\137\150\145\141\160\164\157\160\054\103\137\164\145\170\164\050\042\000"));
lf[373]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\164\171\160\145\040\157\146\040\154\151\164\145\162\141\154\040\156\157\164\040\163\165\160\160\157\162\164\145\144\000"));
lf[374]=C_h_intern(&lf[374],48, C_text("chicken.compiler.support#block-variable-literal?"));
lf[375]=C_h_intern(&lf[375],36, C_text("chicken.compiler.support#big-fixnum?"));
lf[376]=C_h_intern(&lf[376],24, C_text("scheme#get-output-string"));
lf[377]=C_h_intern(&lf[377],18, C_text("##sys#write-char-0"));
lf[378]=C_h_intern(&lf[378],11, C_text("##sys#print"));
lf[379]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\146\133\000"));
lf[380]=C_h_intern(&lf[380],25, C_text("scheme#open-output-string"));
lf[381]=C_h_intern(&lf[381],44, C_text("chicken.compiler.c-platform#words-per-flonum"));
lf[382]=C_h_intern(&lf[382],5, C_text("foldl"));
lf[383]=C_h_intern(&lf[383],19, C_text("scheme#vector->list"));
lf[384]=C_h_intern(&lf[384],37, C_text("chicken.compiler.support#bytes->words"));
lf[385]=C_h_intern(&lf[385],17, C_text("##sys#bytevector?"));
lf[386]=C_h_intern(&lf[386],35, C_text("chicken.compiler.support#immediate?"));
lf[387]=C_h_intern(&lf[387],41, C_text("chicken.compiler.core#lambda-literal-body"));
lf[388]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\167\157\162\144\040\164\000"));
lf[389]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
lf[390]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\075\103\137\142\165\151\154\144\137\162\145\163\164\050\046\141\054\143\054\000"));
lf[391]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\054\141\166\051\073\000"));
lf[392]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\103\137\163\141\166\145\137\141\156\144\137\162\145\143\154\141\151\155\050\050\166\157\151\144\052\051\000"));
lf[393]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\143\054\141\166\051\073\175\000"));
lf[394]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\141\075\103\137\141\154\154\157\143\050\050\143\055\000"));
lf[395]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\051\052\103\137\123\111\132\105\117\106\137\120\101\111\122\053\000"));
lf[396]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[397]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\141\075\103\137\141\154\154\157\143\050\000"));
lf[398]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[399]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\073\175\000"));
lf[400]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\103\137\163\141\166\145\137\141\156\144\137\162\145\143\154\141\151\155\137\141\162\147\163\050\050\166\157\151\144\040\052\051\164\162\000"));
lf[401]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\103\137\163\141\166\145\137\141\156\144\137\162\145\143\154\141\151\155\050\050\166\157\151\144\040\052\051\000"));
lf[402]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\143\054\141\166\051\073\175\000"));
lf[403]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\141\166\133\000"));
lf[404]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\135\075\164\000"));
lf[405]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\073\000"));
lf[406]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\103\137\162\145\147\151\163\164\145\162\137\154\146\062\050\154\146\054\000"));
lf[407]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\054\143\162\145\141\164\145\137\160\164\141\142\154\145\050\051\051\073\000"));
lf[408]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\103\137\151\156\151\164\151\141\154\151\172\145\137\154\146\050\154\146\054\000"));
lf[409]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[410]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\103\137\143\150\145\143\153\137\156\165\162\163\145\162\171\137\155\151\156\151\155\165\155\050\103\137\143\141\154\143\165\154\141\164\145\137\144\145\155\141\156\144\050\000"));
lf[411]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\054\143\054\000"));
lf[412]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\051\073\000"));
lf[413]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\151\146\050\103\137\165\156\154\151\153\145\154\171\050\041\103\137\144\145\155\141\156\144\050\103\137\143\141\154\143\165\154\141\164\145\137\144\145\155\141\156\144\050\000"));
lf[414]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\054\143\054\000"));
lf[415]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\051\051\051\051\173\000"));
lf[416]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\103\137\163\141\166\145\137\141\156\144\137\162\145\143\154\141\151\155\050\050\166\157\151\144\052\051\103\137\000"));
lf[417]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\143\054\141\166\051\073\175\000"));
lf[418]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\164\157\160\154\145\166\145\154\137\151\156\151\164\151\141\154\151\172\145\144\075\061\073\000"));
lf[419]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\146\050\103\137\165\156\154\151\153\145\154\171\050\041\103\137\144\145\155\141\156\144\137\062\050\000"));
lf[420]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\051\051\173\000"));
lf[421]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\103\137\163\141\166\145\050\164\061\051\073\000"));
lf[422]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\162\145\162\145\143\154\141\151\155\062\050\000"));
lf[423]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\052\163\151\172\145\157\146\050\103\137\167\157\162\144\051\054\061\051\073\000"));
lf[424]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\164\061\075\103\137\162\145\163\164\157\162\145\073\175\000"));
lf[425]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\141\075\103\137\141\154\154\157\143\050\000"));
lf[426]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[427]=C_h_intern(&lf[427],39, C_text("chicken.compiler.core#target-stack-size"));
lf[428]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\162\145\163\151\172\145\137\163\164\141\143\153\050\000"));
lf[429]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[430]=C_h_intern(&lf[430],38, C_text("chicken.compiler.core#target-heap-size"));
lf[431]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\103\137\163\145\164\137\157\162\137\143\150\141\156\147\145\137\150\145\141\160\137\163\151\172\145\050\000"));
lf[432]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\054\061\051\073\000"));
lf[433]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\137\150\145\141\160\137\163\151\172\145\137\151\163\137\146\151\170\145\144\075\061\073\000"));
lf[434]=C_h_intern(&lf[434],53, C_text("chicken.compiler.core#disable-stack-overflow-checking"));
lf[435]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\103\137\144\151\163\141\142\154\145\137\157\166\145\162\146\154\157\167\137\143\150\145\143\153\075\061\073\000"));
lf[436]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\103\137\162\145\147\151\163\164\145\162\137\144\145\142\165\147\137\151\156\146\157\050\103\137\144\145\142\165\147\137\151\156\146\157\051\073\000"));
lf[437]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\167\157\162\144\040\052\141\073\000"));
lf[438]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\076\151\146\050\164\157\160\154\145\166\145\154\137\151\156\151\164\151\141\154\151\172\145\144\051\040\173\103\137\153\157\156\164\151\156\165\145\050\164\061\054\103\137\123\103\110\105\115\105\137\125\116\104\105\106\111\116\105\104\051\073\175\000"));
lf[439]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\145\154\163\145\040\103\137\164\157\160\154\145\166\145\154\137\145\156\164\162\171\050\103\137\164\145\170\164\050\042\000"));
lf[440]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\042\051\051\073\000"));
lf[441]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\057\151\146\050\103\137\165\156\154\151\153\145\154\171\050\041\103\137\144\145\155\141\156\144\050\103\137\143\141\154\143\165\154\141\164\145\137\144\145\155\141\156\144\050\050\143\055\000"));
lf[442]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\051\052\103\137\123\111\132\105\117\106\137\120\101\111\122\040\053\000"));
lf[443]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\054\143\054\000"));
lf[444]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\051\051\051\051\173\000"));
lf[445]=C_h_intern(&lf[445],41, C_text("chicken.compiler.core#insert-timer-checks"));
lf[446]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\150\145\143\153\137\146\157\162\137\151\156\164\145\162\162\165\160\164\073\000"));
lf[447]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\151\146\050\143\074\000"));
lf[448]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\051\040\103\137\142\141\144\137\155\151\156\137\141\162\147\143\137\062\050\143\054\000"));
lf[449]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\054\164\060\051\073\000"));
lf[450]=C_h_intern(&lf[450],36, C_text("chicken.compiler.core#no-argc-checks"));
lf[451]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\167\157\162\144\040\052\141\073\000"));
lf[452]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\151\146\050\103\137\165\156\154\151\153\145\154\171\050\041\103\137\144\145\155\141\156\144\050\103\137\143\141\154\143\165\154\141\164\145\137\144\145\155\141\156\144\050\000"));
lf[453]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\054\060\054\000"));
lf[454]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\051\051\051\051\173\000"));
lf[455]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\054\143\054\000"));
lf[456]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\150\145\143\153\137\146\157\162\137\151\156\164\145\162\162\165\160\164\073\000"));
lf[457]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\151\146\050\143\074\000"));
lf[458]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\051\040\103\137\142\141\144\137\155\151\156\137\141\162\147\143\137\062\050\143\054\000"));
lf[459]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\054\164\060\051\073\000"));
lf[460]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\151\146\050\143\041\075\000"));
lf[461]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\051\040\103\137\142\141\144\137\141\162\147\143\137\062\050\143\054\000"));
lf[462]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\054\164\060\051\073\000"));
lf[463]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\154\157\157\160\072\000"));
lf[464]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\137\163\164\141\143\153\137\157\166\145\162\146\154\157\167\137\143\150\145\143\153\073\000"));
lf[465]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\167\157\162\144\040\052\141\073\000"));
lf[466]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\167\157\162\144\040\164\000"));
lf[467]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\144\157\165\142\154\145\040\146\000"));
lf[468]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\167\157\162\144\040\164\000"));
lf[469]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\167\157\162\144\040\164\000"));
lf[470]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\075\141\166\133\000"));
lf[471]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\073\000"));
lf[472]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\103\137\167\157\162\144\040\164\155\160\073\000"));
lf[473]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\173\000"));
lf[474]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\167\157\162\144\040\052\141\166\000"));
lf[475]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\103\137\167\157\162\144\040\052\141\000"));
lf[476]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\103\137\167\157\162\144\040\143\054\000"));
lf[477]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\143\143\141\154\154\040\000"));
lf[478]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\103\137\167\157\162\144\040\000"));
lf[479]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\166\157\151\144\040\000"));
lf[480]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\164\141\164\151\143\040\000"));
lf[481]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\166\157\151\144\040\103\137\143\143\141\154\154\040\103\137\000"));
lf[482]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\103\137\155\141\151\156\137\145\156\164\162\171\137\160\157\151\156\164\000"));
lf[483]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\163\164\141\164\151\143\040\151\156\164\040\164\157\160\154\145\166\145\154\137\151\156\151\164\151\141\154\151\172\145\144\075\060\073\000"));
lf[484]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\057\052\040\000"));
lf[485]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\052\057\000"));
lf[487]=C_h_intern(&lf[487],34, C_text("chicken.compiler.support#debugging"));
lf[488]=C_h_intern(&lf[488],1, C_text("o"));
lf[489]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\144\162\157\160\160\151\156\147\040\165\156\165\163\145\144\040\143\154\157\163\165\162\145\040\141\162\147\165\155\145\156\164\000"));
lf[490]=C_h_intern(&lf[490],54, C_text("chicken.compiler.core#lambda-literal-float-temporaries"));
lf[491]=C_h_intern(&lf[491],45, C_text("chicken.compiler.core#lambda-literal-external"));
lf[492]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
lf[493]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
lf[494]=C_h_intern(&lf[494],50, C_text("chicken.compiler.core#lambda-literal-rest-argument"));
lf[495]=C_h_intern(&lf[495],10, C_text("scheme#max"));
lf[496]=C_h_intern(&lf[496],54, C_text("chicken.compiler.core#lambda-literal-callee-signatures"));
lf[497]=C_h_intern(&lf[497],34, C_text("chicken.compiler.support#real-name"));
lf[498]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\057\052\000"));
lf[499]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\052\057\000"));
lf[500]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\057\052\040\145\156\144\040\157\146\040\146\151\154\145\040\052\057\000"));
lf[501]=C_h_intern(&lf[501],51, C_text("chicken.compiler.support#collected-debugging-output"));
lf[502]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\103\137\000"));
lf[503]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\175\054\000"));
lf[504]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\175\054\000"));
lf[505]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\173\103\137\164\145\170\164\050\042\000"));
lf[506]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\042\051\054\050\166\157\151\144\052\051\000"));
lf[507]=C_h_intern(&lf[507],37, C_text("chicken.internal#string->c-identifier"));
lf[508]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\173\000"));
lf[509]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\043\151\146\144\145\146\040\103\137\105\116\101\102\114\105\137\120\124\101\102\114\105\123\000"));
lf[510]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\162\145\164\165\162\156\040\160\164\141\142\154\145\073\000"));
lf[511]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\043\145\154\163\145\000"));
lf[512]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\162\145\164\165\162\156\040\116\125\114\114\073\000"));
lf[513]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\043\145\156\144\151\146\000"));
lf[514]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\175\000"));
lf[515]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\163\164\141\164\151\143\040\103\137\120\124\101\102\114\105\137\105\116\124\122\131\040\052\143\162\145\141\164\145\137\160\164\141\142\154\145\050\166\157\151\144\051\000"));
lf[516]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\043\145\156\144\151\146\000"));
lf[517]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\173\116\125\114\114\054\116\125\114\114\175\175\073\000"));
lf[518]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\043\151\146\144\145\146\040\103\137\105\116\101\102\114\105\137\120\124\101\102\114\105\123\000"));
lf[519]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\163\164\141\164\151\143\040\103\137\120\124\101\102\114\105\137\105\116\124\122\131\040\160\164\141\142\154\145\133\000"));
lf[520]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\135\040\075\040\173\000"));
lf[521]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\173\060\054\060\054\116\125\114\114\054\116\125\114\114\175\175\073\012\000"));
lf[522]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\175\054\000"));
lf[523]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\116\125\114\114\054\000"));
lf[524]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\164\145\170\164\050\042\000"));
lf[525]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\042\051\054\000"));
lf[526]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\173\000"));
lf[527]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\054\060\054\000"));
lf[528]=C_h_intern(&lf[528],17, C_text("chicken.sort#sort"));
lf[529]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\163\164\141\164\151\143\040\103\137\104\105\102\125\107\137\111\116\106\117\040\103\137\144\145\142\165\147\137\151\156\146\157\133\135\075\173\000"));
lf[530]=C_h_intern(&lf[530],5, C_text("float"));
lf[531]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\053\063\000"));
lf[532]=C_h_intern(&lf[532],7, C_text("complex"));
lf[533]=C_h_intern(&lf[533],7, C_text("cplxnum"));
lf[534]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\053\065\000"));
lf[535]=C_h_intern(&lf[535],16, C_text("unsigned-integer"));
lf[536]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\053\103\137\123\111\132\105\117\106\137\106\111\130\137\102\111\107\116\125\115\000"));
lf[537]=C_h_intern(&lf[537],18, C_text("unsigned-integer64"));
lf[538]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\053\103\137\123\111\132\105\117\106\137\102\111\107\116\125\115\050\062\051\000"));
lf[539]=C_h_intern(&lf[539],8, C_text("c-string"));
lf[540]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\053\062\053\050\000"));
lf[541]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\075\075\116\125\114\114\077\061\072\103\137\142\171\164\145\163\164\157\167\157\162\144\163\050\103\137\163\164\162\154\145\156\050\000"));
lf[542]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\051\051\051\000"));
lf[543]=C_h_intern(&lf[543],16, C_text("nonnull-c-string"));
lf[544]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\053\062\053\103\137\142\171\164\145\163\164\157\167\157\162\144\163\050\103\137\163\164\162\154\145\156\050\000"));
lf[545]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\051\000"));
lf[546]=C_h_intern(&lf[546],3, C_text("ref"));
lf[547]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\053\063\000"));
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*"));
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*"));
lf[561]=C_h_intern(&lf[561],6, C_text("symbol"));
lf[562]=C_h_intern(&lf[562],9, C_text("c-string*"));
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*"));
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*"));
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("\376\002\000\000\003\073\175\000"));
lf[589]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\103\137\143\141\154\154\142\141\143\153\137\167\162\141\160\160\145\162\050\050\166\157\151\144\040\052\051\000"));
lf[590]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\162\145\164\165\162\156\040\000"));
lf[591]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\170\075\000"));
lf[592]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[593]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\163\141\166\145\050\170\051\073\000"));
lf[594]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\141\000"));
lf[595]=C_h_intern(&lf[595],14, C_text("scheme#reverse"));
lf[596]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\103\137\143\141\154\154\142\141\143\153\137\141\144\152\165\163\164\137\163\164\141\143\153\050\141\054\163\051\073\000"));
lf[597]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\060\000"));
lf[598]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\103\137\167\157\162\144\040\170\054\163\075\000"));
lf[599]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\054\052\141\075\000"));
lf[600]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\103\137\163\164\141\143\153\137\160\157\151\156\164\145\162\073\000"));
lf[601]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\103\137\141\154\154\157\143\050\163\051\073\000"));
lf[603]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[604]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\057\052\040\146\162\157\155\040\000"));
lf[605]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\052\057\000"));
lf[606]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\060\000"));
lf[607]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
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("\376\002\000\000\057\103\137\153\075\103\137\162\145\163\164\157\162\145\137\143\141\154\154\142\141\143\153\137\143\157\156\164\151\156\165\141\164\151\157\156\062\050\103\137\154\145\166\145\154\051\073\000"));
lf[614]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\153\157\156\164\151\156\165\145\050\103\137\153\054\103\137\162\051\073\000"));
lf[615]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\153\157\156\164\151\156\165\145\050\103\137\153\054\103\137\162\051\073\000"));
lf[616]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\162\145\164\165\162\156\040\103\137\162\073\000"));
lf[617]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\043\165\156\144\145\146\040\162\145\164\165\162\156\000"));
lf[618]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\103\137\162\145\164\072\000"));
lf[619]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\057\103\137\153\075\103\137\162\145\163\164\157\162\145\137\143\141\154\154\142\141\143\153\137\143\157\156\164\151\156\165\141\164\151\157\156\062\050\103\137\154\145\166\145\154\051\073\000"));
lf[620]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\153\157\156\164\151\156\165\145\050\103\137\153\054\103\137\162\051\073\000"));
lf[621]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\153\157\156\164\151\156\165\145\050\103\137\153\054\103\137\162\051\073\000"));
lf[622]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\162\145\164\165\162\156\040\103\137\162\073\000"));
lf[623]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[624]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
lf[625]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\103\137\162\075\000"));
lf[626]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\064\151\156\164\040\103\137\154\145\166\145\154\075\103\137\163\141\166\145\137\143\141\154\154\142\141\143\153\137\143\157\156\164\151\156\165\141\164\151\157\156\050\046\103\137\141\054\103\137\153\051\073\000"));
lf[627]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\075\050\000"));
lf[628]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\103\137\141\000"));
lf[629]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\073\000"));
lf[630]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[631]=C_h_intern(&lf[631],21, C_text("scheme#symbol->string"));
lf[632]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\063\103\137\167\157\162\144\040\103\137\162\075\103\137\123\103\110\105\115\105\137\125\116\104\105\106\111\116\105\104\054\052\103\137\141\075\050\103\137\167\157\162\144\052\051\103\137\142\165\146\073\000"));
lf[633]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\167\157\162\144\040\103\137\141\000"));
lf[634]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\075\103\137\141\166\133\000"));
lf[635]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\073\000"));
lf[636]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\156\157\162\145\164\137\144\145\143\154\050\000"));
lf[637]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[638]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\163\164\141\164\151\143\040\166\157\151\144\040\103\137\143\143\141\154\154\040\000"));
lf[639]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\050\103\137\167\157\162\144\040\103\137\143\054\103\137\167\157\162\144\040\052\103\137\141\166\051\173\000"));
lf[640]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\103\137\167\157\162\144\040\103\137\153\075\103\137\141\166\133\061\135\054\103\137\142\165\146\075\103\137\141\166\133\062\135\073\000"));
lf[641]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\173\000"));
lf[642]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\167\157\162\144\040\103\137\142\165\146\000"));
lf[643]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\103\137\141\000"));
lf[644]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\103\137\162\145\147\160\141\162\155\040\163\164\141\164\151\143\040\103\137\167\157\162\144\040\000"));
lf[645]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\043\144\145\146\151\156\145\040\162\145\164\165\162\156\050\170\051\040\103\137\143\142\154\157\143\153\040\103\137\162\040\075\040\050\000"));
lf[646]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\050\170\051\051\051\073\040\147\157\164\157\040\103\137\162\145\164\073\040\103\137\143\142\154\157\143\153\145\156\144\000"));
lf[647]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\057\052\040\146\162\157\155\040\000"));
lf[648]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\052\057\000"));
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("\376\002\000\000\004\103\137\141\000"));
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("\376\002\000\000\001\000"));
lf[660]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\164\141\164\151\143\040\000"));
lf[661]=C_h_intern(&lf[661],1, C_text("p"));
lf[662]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\143\157\144\145\040\147\145\156\145\162\141\164\151\157\156\040\160\150\141\163\145\056\056\056\000"));
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<?"));
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("\376\002\000\000\011\164\157\160\154\145\166\145\154\000"));
lf[669]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\137\164\157\160\154\145\166\145\154\000"));
lf[670]=C_h_intern(&lf[670],18, C_text("scheme#string-copy"));
lf[671]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\103\137\167\157\162\144\040\000"));
lf[672]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\103\137\145\170\164\145\162\156\040\000"));
lf[673]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[674]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\164\000"));
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("\376\002\000\000\032\151\154\154\145\147\141\154\040\146\157\162\145\151\147\156\040\164\171\160\145\040\140\176\101\047\000"));
lf[679]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[680]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\103\137\167\157\162\144\000"));
lf[681]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\103\137\143\150\141\162\000"));
lf[682]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\165\156\163\151\147\156\145\144\040\103\137\143\150\141\162\000"));
lf[683]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\165\156\163\151\147\156\145\144\040\151\156\164\000"));
lf[684]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\103\137\165\063\062\000"));
lf[685]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\151\156\164\000"));
lf[686]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\163\151\172\145\137\164\000"));
lf[687]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\163\151\172\145\137\164\000"));
lf[688]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\103\137\163\063\062\000"));
lf[689]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\103\137\163\066\064\000"));
lf[690]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\103\137\165\066\064\000"));
lf[691]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\163\150\157\162\164\000"));
lf[692]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\154\157\156\147\000"));
lf[693]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\165\156\163\151\147\156\145\144\040\163\150\157\162\164\000"));
lf[694]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\165\156\163\151\147\156\145\144\040\154\157\156\147\000"));
lf[695]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\146\154\157\141\164\000"));
lf[696]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\144\157\165\142\154\145\000"));
lf[697]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\144\157\165\142\154\145\040\143\157\155\160\154\145\170\000"));
lf[698]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\166\157\151\144\040\052\000"));
lf[699]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\103\137\143\150\141\162\040\052\052\000"));
lf[700]=C_h_intern(&lf[700],10, C_text("bytevector"));
lf[701]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\165\156\163\151\147\156\145\144\040\143\150\141\162\040\052\000"));
lf[702]=C_h_intern(&lf[702],4, C_text("blob"));
lf[703]=C_h_intern(&lf[703],12, C_text("nonnull-blob"));
lf[704]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\165\156\163\151\147\156\145\144\040\143\150\141\162\040\052\000"));
lf[705]=C_h_intern(&lf[705],9, C_text("u16vector"));
lf[706]=C_h_intern(&lf[706],17, C_text("nonnull-u16vector"));
lf[707]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\165\156\163\151\147\156\145\144\040\163\150\157\162\164\040\052\000"));
lf[708]=C_h_intern(&lf[708],8, C_text("s8vector"));
lf[709]=C_h_intern(&lf[709],16, C_text("nonnull-s8vector"));
lf[710]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\163\151\147\156\145\144\040\143\150\141\162\040\052\000"));
lf[711]=C_h_intern(&lf[711],9, C_text("u32vector"));
lf[712]=C_h_intern(&lf[712],17, C_text("nonnull-u32vector"));
lf[713]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\165\156\163\151\147\156\145\144\040\151\156\164\040\052\000"));
lf[714]=C_h_intern(&lf[714],9, C_text("u64vector"));
lf[715]=C_h_intern(&lf[715],17, C_text("nonnull-u64vector"));
lf[716]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\103\137\165\066\064\040\052\000"));
lf[717]=C_h_intern(&lf[717],9, C_text("s16vector"));
lf[718]=C_h_intern(&lf[718],17, C_text("nonnull-s16vector"));
lf[719]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\150\157\162\164\040\052\000"));
lf[720]=C_h_intern(&lf[720],9, C_text("s32vector"));
lf[721]=C_h_intern(&lf[721],17, C_text("nonnull-s32vector"));
lf[722]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\151\156\164\040\052\000"));
lf[723]=C_h_intern(&lf[723],9, C_text("s64vector"));
lf[724]=C_h_intern(&lf[724],17, C_text("nonnull-s64vector"));
lf[725]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\103\137\163\066\064\040\052\000"));
lf[726]=C_h_intern(&lf[726],9, C_text("f32vector"));
lf[727]=C_h_intern(&lf[727],17, C_text("nonnull-f32vector"));
lf[728]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\146\154\157\141\164\040\052\000"));
lf[729]=C_h_intern(&lf[729],9, C_text("f64vector"));
lf[730]=C_h_intern(&lf[730],17, C_text("nonnull-f64vector"));
lf[731]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\144\157\165\142\154\145\040\052\000"));
lf[732]=C_h_intern(&lf[732],14, C_text("pointer-vector"));
lf[733]=C_h_intern(&lf[733],22, C_text("nonnull-pointer-vector"));
lf[734]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\166\157\151\144\040\052\052\000"));
lf[735]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\143\150\141\162\040\052\000"));
lf[736]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\165\156\163\151\147\156\145\144\040\143\150\141\162\040\052\000"));
lf[737]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\166\157\151\144\000"));
lf[738]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\017\001\156\157\156\156\165\154\154\055\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\011\001\143\055\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\016\001\163\143\150\145\155\145\055\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\026\001\156\157\156\156\165\154\154\055\163\143\150\145\155\145\055\160\157\151\156\164\145\162\376\003\000\000\002\376\001\000\000\021\001\156\157\156\156\165\154\154\055\143\055\160\157\151\156\164\145\162\376\377\016"));
lf[739]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\052\000"));
lf[740]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\046\000"));
lf[741]=C_h_intern(&lf[741],8, C_text("template"));
lf[742]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\074\000"));
lf[743]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\076\040\000"));
lf[744]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\054\000"));
lf[745]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[746]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[747]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\143\157\156\163\164\040\000"));
lf[748]=C_h_intern(&lf[748],6, C_text("struct"));
lf[749]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[750]=C_h_intern(&lf[750],12, C_text("scheme#caadr"));
lf[751]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\163\164\162\165\143\164\040\000"));
lf[752]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[753]=C_h_intern(&lf[753],5, C_text("union"));
lf[754]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[755]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\165\156\151\157\156\040\000"));
lf[756]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[757]=C_h_intern(&lf[757],4, C_text("enum"));
lf[758]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\145\156\165\155\040\000"));
lf[759]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000"));
lf[760]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001\151\156\163\164\141\156\143\145\376\003\000\000\002\376\001\000\000\020\001\156\157\156\156\165\154\154\055\151\156\163\164\141\156\143\145\376\377\016"));
lf[761]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\052\000"));
lf[762]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\046\000"));
lf[763]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[764]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\050\052\000"));
lf[765]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\050\000"));
lf[766]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000"));
lf[767]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\054\000"));
lf[768]=C_h_intern(&lf[768],3, C_text("..."));
lf[769]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\056\056\000"));
lf[770]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[771]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[772]=C_h_intern(&lf[772],18, C_text("nonnull-bytevector"));
lf[773]=C_h_intern(&lf[773],8, C_text("u8vector"));
lf[774]=C_h_intern(&lf[774],16, C_text("nonnull-u8vector"));
lf[775]=C_h_intern(&lf[775],14, C_text("scheme-pointer"));
lf[776]=C_h_intern(&lf[776],22, C_text("nonnull-scheme-pointer"));
lf[777]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\151\154\154\145\147\141\154\040\146\157\162\145\151\147\156\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\140\176\101\047\000"));
lf[778]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000"));
lf[779]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\103\137\143\150\141\162\141\143\164\145\162\137\143\157\144\145\050\050\103\137\167\157\162\144\051\000"));
lf[780]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\165\156\146\151\170\050\000"));
lf[781]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\165\156\146\151\170\050\000"));
lf[782]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\050\165\156\163\151\147\156\145\144\040\163\150\157\162\164\051\103\137\165\156\146\151\170\050\000"));
lf[783]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\137\156\165\155\137\164\157\137\165\156\163\151\147\156\145\144\137\154\157\156\147\050\000"));
lf[784]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\103\137\143\137\144\157\165\142\154\145\050\000"));
lf[785]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\143\137\143\160\154\170\156\165\155\050\000"));
lf[786]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\156\165\155\137\164\157\137\151\156\164\050\000"));
lf[787]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\156\165\155\137\164\157\137\151\156\164\066\064\050\000"));
lf[788]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\050\163\151\172\145\137\164\051\103\137\156\165\155\137\164\157\137\165\151\156\164\066\064\050\000"));
lf[789]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\050\163\163\151\172\145\137\164\051\103\137\156\165\155\137\164\157\137\151\156\164\066\064\050\000"));
lf[790]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\103\137\156\165\155\137\164\157\137\165\151\156\164\066\064\050\000"));
lf[791]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\156\165\155\137\164\157\137\154\157\156\147\050\000"));
lf[792]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\156\165\155\137\164\157\137\165\156\163\151\147\156\145\144\137\151\156\164\050\000"));
lf[793]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\137\144\141\164\141\137\160\157\151\156\164\145\162\137\157\162\137\156\165\154\154\050\000"));
lf[794]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\144\141\164\141\137\160\157\151\156\164\145\162\050\000"));
lf[795]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\143\137\160\157\151\156\164\145\162\137\157\162\137\156\165\154\154\050\000"));
lf[796]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\143\137\160\157\151\156\164\145\162\137\156\156\050\000"));
lf[797]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\137\143\137\142\171\164\145\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[798]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\143\137\142\171\164\145\166\145\143\164\157\162\050\000"));
lf[799]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\137\143\137\142\171\164\145\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[800]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\143\137\142\171\164\145\166\145\143\164\157\162\050\000"));
lf[801]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\137\165\061\066\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[802]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\143\137\165\061\066\166\145\143\164\157\162\050\000"));
lf[803]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\137\165\063\062\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[804]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\143\137\165\063\062\166\145\143\164\157\162\050\000"));
lf[805]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\137\165\066\064\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[806]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\143\137\165\066\064\166\145\143\164\157\162\050\000"));
lf[807]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\143\137\163\070\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[808]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\143\137\163\070\166\145\143\164\157\162\050\000"));
lf[809]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\137\163\061\066\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[810]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\143\137\163\061\066\166\145\143\164\157\162\050\000"));
lf[811]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\137\163\063\062\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[812]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\143\137\163\063\062\166\145\143\164\157\162\050\000"));
lf[813]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\137\163\066\064\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[814]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\143\137\163\066\064\166\145\143\164\157\162\050\000"));
lf[815]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\137\146\063\062\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[816]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\143\137\146\063\062\166\145\143\164\157\162\050\000"));
lf[817]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\103\137\143\137\146\066\064\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[818]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\143\137\146\066\064\166\145\143\164\157\162\050\000"));
lf[819]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\103\137\143\137\160\157\151\156\164\145\162\137\166\145\143\164\157\162\137\157\162\137\156\165\154\154\050\000"));
lf[820]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\103\137\143\137\160\157\151\156\164\145\162\137\166\145\143\164\157\162\050\000"));
lf[821]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\103\137\163\164\162\151\156\147\137\157\162\137\156\165\154\154\050\000"));
lf[822]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\103\137\143\137\163\164\162\151\156\147\050\000"));
lf[823]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\103\137\164\162\165\145\160\050\000"));
lf[824]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\143\137\160\157\151\156\164\145\162\137\157\162\137\156\165\154\154\050\000"));
lf[825]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\143\137\160\157\151\156\164\145\162\137\156\156\050\000"));
lf[826]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\143\137\160\157\151\156\164\145\162\137\157\162\137\156\165\154\154\050\000"));
lf[827]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\143\137\160\157\151\156\164\145\162\137\156\156\050\000"));
lf[828]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\137\144\141\164\141\137\160\157\151\156\164\145\162\137\157\162\137\156\165\154\154\050\000"));
lf[829]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\144\141\164\141\137\160\157\151\156\164\145\162\050\000"));
lf[830]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\143\137\160\157\151\156\164\145\162\137\157\162\137\156\165\154\154\050\000"));
lf[831]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\156\165\155\137\164\157\137\151\156\164\050\000"));
lf[832]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\142\165\151\154\144\137\163\164\162\165\143\164\050\000"));
lf[833]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\142\165\151\154\144\137\163\164\162\165\143\164\050\000"));
lf[834]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\052\050\000"));
lf[835]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\051\103\137\143\137\160\157\151\156\164\145\162\137\156\156\050\000"));
lf[836]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\052\000"));
lf[837]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\052\050\000"));
lf[838]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\052\051\103\137\143\137\160\157\151\156\164\145\162\137\156\156\050\000"));
lf[839]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\151\154\154\145\147\141\154\040\146\157\162\145\151\147\156\040\162\145\164\165\162\156\040\164\171\160\145\040\140\176\101\047\000"));
lf[840]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\103\137\155\141\153\145\137\143\150\141\162\141\143\164\145\162\050\050\103\137\167\157\162\144\051\000"));
lf[841]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\146\151\170\050\050\103\137\167\157\162\144\051\000"));
lf[842]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\103\137\146\151\170\050\103\137\115\117\123\124\137\120\117\123\111\124\111\126\105\137\106\111\130\116\125\115\046\050\103\137\167\157\162\144\051\000"));
lf[843]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\103\137\146\151\170\050\050\163\150\157\162\164\051\000"));
lf[844]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\146\151\170\050\060\170\146\146\146\146\046\050\103\137\167\157\162\144\051\000"));
lf[845]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\146\151\170\050\050\143\150\141\162\051\000"));
lf[846]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\103\137\146\151\170\050\060\170\146\146\046\050\103\137\167\157\162\144\051\000"));
lf[847]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\146\154\157\156\165\155\050\046\000"));
lf[848]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\103\137\151\156\145\170\141\143\164\137\143\160\154\170\156\165\155\050\046\000"));
lf[849]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\156\165\155\142\145\162\050\046\000"));
lf[850]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\050\166\157\151\144\052\051\000"));
lf[851]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\155\160\157\151\156\164\145\162\050\046\000"));
lf[852]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\050\166\157\151\144\052\051\000"));
lf[853]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\155\160\157\151\156\164\145\162\137\157\162\137\146\141\154\163\145\050\046\000"));
lf[854]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\151\156\164\137\164\157\137\156\165\155\050\046\000"));
lf[855]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\103\137\151\156\164\066\064\137\164\157\137\156\165\155\050\046\000"));
lf[856]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\103\137\165\151\156\164\066\064\137\164\157\137\156\165\155\050\046\000"));
lf[857]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\137\165\156\163\151\147\156\145\144\137\151\156\164\137\164\157\137\156\165\155\050\046\000"));
lf[858]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\103\137\154\157\156\147\137\164\157\137\156\165\155\050\046\000"));
lf[859]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\103\137\165\156\163\151\147\156\145\144\137\154\157\156\147\137\164\157\137\156\165\155\050\046\000"));
lf[860]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\103\137\155\153\137\142\157\157\154\050\000"));
lf[861]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\050\050\103\137\167\157\162\144\051\000"));
lf[862]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\050\166\157\151\144\052\051\000"));
lf[863]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\155\160\157\151\156\164\145\162\050\046\000"));
lf[864]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\054\050\166\157\151\144\052\051\046\000"));
lf[865]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\155\160\157\151\156\164\145\162\050\046\000"));
lf[866]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\141\137\145\170\164\162\141\143\164\137\163\164\162\165\143\164\050\046\000"));
lf[867]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\137\141\137\145\170\164\162\141\143\164\137\163\164\162\165\143\164\050\046\000"));
lf[868]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\050\166\157\151\144\052\051\000"));
lf[869]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\155\160\157\151\156\164\145\162\137\157\162\137\146\141\154\163\145\050\046\000"));
lf[870]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\050\166\157\151\144\052\051\000"));
lf[871]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\155\160\157\151\156\164\145\162\050\046\000"));
lf[872]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\054\050\166\157\151\144\052\051\046\000"));
lf[873]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\155\160\157\151\156\164\145\162\050\046\000"));
lf[874]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\050\166\157\151\144\052\051\000"));
lf[875]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\103\137\155\160\157\151\156\164\145\162\137\157\162\137\146\141\154\163\145\050\046\000"));
lf[876]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\054\050\166\157\151\144\052\051\000"));
lf[877]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\103\137\155\160\157\151\156\164\145\162\050\046\000"));
lf[878]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\137\151\156\164\137\164\157\137\156\165\155\050\046\000"));
lf[880]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\134\060\060\000"));
lf[881]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\134\060\000"));
lf[882]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\134\000"));
lf[883]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\076\105\156\143\157\144\145\144\040\154\151\164\145\162\141\154\040\163\151\172\145\040\157\146\040\176\123\040\151\163\040\164\157\157\040\154\141\162\147\145\040\050\155\165\163\164\040\146\151\164\040\151\156\040\062\064\040\142\151\164\163\051\000"));
lf[884]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\134\063\067\066\000"));
lf[885]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\134\063\067\067\134\060\060\066\134\060\060\061\000"));
lf[886]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\134\063\067\067\134\060\060\066\134\060\060\060\000"));
lf[887]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\134\063\067\067\134\060\061\062\000"));
lf[888]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\134\063\067\067\134\060\061\066\000"));
lf[889]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\134\063\067\067\134\060\067\066\000"));
lf[890]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\134\063\067\067\134\060\063\066\000"));
lf[891]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\134\063\067\067\134\060\060\061\000"));
lf[892]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\134\063\062\060\000"));
lf[893]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\134\061\062\065\000"));
lf[894]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\134\060\060\060\000"));
lf[895]=C_h_intern(&lf[895],20, C_text("##sys#flonum->string"));
lf[896]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\134\060\060\061\000"));
lf[897]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\134\060\060\062\000"));
lf[899]=C_h_intern(&lf[899],31, C_text("chicken.keyword#keyword->string"));
lf[900]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\134\060\060\061\000"));
lf[901]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\134\060\060\061\000"));
lf[902]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\151\156\166\141\154\151\144\040\154\151\164\145\162\141\154\040\055\040\143\141\156\156\157\164\040\145\156\143\157\144\145\000"));
lf[903]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[904]=C_h_intern(&lf[904],18, C_text("##sys#list->string"));
lf[905]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\042\376\377\016"));
lf[906]=C_h_intern(&lf[906],13, C_text("scheme#append"));
lf[907]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\377\016"));
lf[908]=C_h_intern(&lf[908],18, C_text("##sys#string->list"));
lf[909]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\060\376\003\000\000\002\376\377\012\000\000\060\376\377\016"));
lf[910]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\060\376\377\016"));
lf[911]=C_h_intern(&lf[911],20, C_text("scheme#integer->char"));
lf[912]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000\047\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000\077\376\003\000\000\002\376\377\012\000\000\052\376\377\016"));
lf[913]=C_h_intern(&lf[913],22, C_text("##sys#bytevector->list"));
C_register_lf2(lf,914,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3386,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);}}

/* va16049 in a5997 in k5877 in k5874 in k6259 in k5843 in k5839 in k5833 in k5830 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in ... */
static void va16049(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 *)trva16049,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);}}

/* va16055 in a6460 in k6346 in k6340 in k4872 in k4869 in k4866 in expr in expression in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void va16055(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 *)trva16055,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);}}

/* va16087 in k8047 in k8043 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void va16087(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 *)trva16087,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);}}

/* va16089 in k8080 in k8074 in k8071 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void va16089(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 *)trva16089,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);}}

/* va16097 in k8236 in k8232 in k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void va16097(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 *)trva16097,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);}}

/* va16099 in k8261 in k8257 in k8163 in k8145 in k8030 in k8000 in k7994 in literal-size in k4845 in k4842 in chicken.compiler.c-backend#generate-code in k3405 in k3402 in k3399 in k3396 in k3393 in k3390 in k3387 in k3384 */
static void va16099(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 *)trva16099,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[879] = {
{C_text("f15396:c_2dbackend_2escm"),(void*)f15396},
{C_text("f15401:c_2dbackend_2escm"),(void*)f15401},
{C_text("f15406:c_2dbackend_2escm"),(void*)f15406},
{C_text("f15414:c_2dbackend_2escm"),(void*)f15414},
{C_text("f15419:c_2dbackend_2escm"),(void*)f15419},
{C_text("f15424:c_2dbackend_2escm"),(void*)f15424},
{C_text("f15437:c_2dbackend_2escm"),(void*)f15437},
{C_text("f15441:c_2dbackend_2escm"),(void*)f15441},
{C_text("f15448:c_2dbackend_2escm"),(void*)f15448},
{C_text("f15453:c_2dbackend_2escm"),(void*)f15453},
{C_text("f15524:c_2dbackend_2escm"),(void*)f15524},
{C_text("f15531:c_2dbackend_2escm"),(void*)f15531},
{C_text("f15552:c_2dbackend_2escm"),(void*)f15552},
{C_text("f_10006:c_2dbackend_2escm"),(void*)f_10006},
{C_text("f_10018:c_2dbackend_2escm"),(void*)f_10018},
{C_text("f_10030:c_2dbackend_2escm"),(void*)f_10030},
{C_text("f_10042:c_2dbackend_2escm"),(void*)f_10042},
{C_text("f_10048:c_2dbackend_2escm"),(void*)f_10048},
{C_text("f_10052:c_2dbackend_2escm"),(void*)f_10052},
{C_text("f_10079:c_2dbackend_2escm"),(void*)f_10079},
{C_text("f_10442:c_2dbackend_2escm"),(void*)f_10442},
{C_text("f_10445:c_2dbackend_2escm"),(void*)f_10445},
{C_text("f_10448:c_2dbackend_2escm"),(void*)f_10448},
{C_text("f_10451:c_2dbackend_2escm"),(void*)f_10451},
{C_text("f_10454:c_2dbackend_2escm"),(void*)f_10454},
{C_text("f_10457:c_2dbackend_2escm"),(void*)f_10457},
{C_text("f_10466:c_2dbackend_2escm"),(void*)f_10466},
{C_text("f_10469:c_2dbackend_2escm"),(void*)f_10469},
{C_text("f_10472:c_2dbackend_2escm"),(void*)f_10472},
{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_10484:c_2dbackend_2escm"),(void*)f_10484},
{C_text("f_10503:c_2dbackend_2escm"),(void*)f_10503},
{C_text("f_10505:c_2dbackend_2escm"),(void*)f_10505},
{C_text("f_10515:c_2dbackend_2escm"),(void*)f_10515},
{C_text("f_10553:c_2dbackend_2escm"),(void*)f_10553},
{C_text("f_10555:c_2dbackend_2escm"),(void*)f_10555},
{C_text("f_10577:c_2dbackend_2escm"),(void*)f_10577},
{C_text("f_10589:c_2dbackend_2escm"),(void*)f_10589},
{C_text("f_10599:c_2dbackend_2escm"),(void*)f_10599},
{C_text("f_10612:c_2dbackend_2escm"),(void*)f_10612},
{C_text("f_10616:c_2dbackend_2escm"),(void*)f_10616},
{C_text("f_10619:c_2dbackend_2escm"),(void*)f_10619},
{C_text("f_10622:c_2dbackend_2escm"),(void*)f_10622},
{C_text("f_10625:c_2dbackend_2escm"),(void*)f_10625},
{C_text("f_10631:c_2dbackend_2escm"),(void*)f_10631},
{C_text("f_10634:c_2dbackend_2escm"),(void*)f_10634},
{C_text("f_10637:c_2dbackend_2escm"),(void*)f_10637},
{C_text("f_10642:c_2dbackend_2escm"),(void*)f_10642},
{C_text("f_10652:c_2dbackend_2escm"),(void*)f_10652},
{C_text("f_10655:c_2dbackend_2escm"),(void*)f_10655},
{C_text("f_10674:c_2dbackend_2escm"),(void*)f_10674},
{C_text("f_10686:c_2dbackend_2escm"),(void*)f_10686},
{C_text("f_10688:c_2dbackend_2escm"),(void*)f_10688},
{C_text("f_10690:c_2dbackend_2escm"),(void*)f_10690},
{C_text("f_10695:c_2dbackend_2escm"),(void*)f_10695},
{C_text("f_10765:c_2dbackend_2escm"),(void*)f_10765},
{C_text("f_10894:c_2dbackend_2escm"),(void*)f_10894},
{C_text("f_10915:c_2dbackend_2escm"),(void*)f_10915},
{C_text("f_11059:c_2dbackend_2escm"),(void*)f_11059},
{C_text("f_11071:c_2dbackend_2escm"),(void*)f_11071},
{C_text("f_11086:c_2dbackend_2escm"),(void*)f_11086},
{C_text("f_11090:c_2dbackend_2escm"),(void*)f_11090},
{C_text("f_11134:c_2dbackend_2escm"),(void*)f_11134},
{C_text("f_11151:c_2dbackend_2escm"),(void*)f_11151},
{C_text("f_11164:c_2dbackend_2escm"),(void*)f_11164},
{C_text("f_11168:c_2dbackend_2escm"),(void*)f_11168},
{C_text("f_11172:c_2dbackend_2escm"),(void*)f_11172},
{C_text("f_11190:c_2dbackend_2escm"),(void*)f_11190},
{C_text("f_11192:c_2dbackend_2escm"),(void*)f_11192},
{C_text("f_11217:c_2dbackend_2escm"),(void*)f_11217},
{C_text("f_11241:c_2dbackend_2escm"),(void*)f_11241},
{C_text("f_11264:c_2dbackend_2escm"),(void*)f_11264},
{C_text("f_11268:c_2dbackend_2escm"),(void*)f_11268},
{C_text("f_11275:c_2dbackend_2escm"),(void*)f_11275},
{C_text("f_11302:c_2dbackend_2escm"),(void*)f_11302},
{C_text("f_11306:c_2dbackend_2escm"),(void*)f_11306},
{C_text("f_11313:c_2dbackend_2escm"),(void*)f_11313},
{C_text("f_11334:c_2dbackend_2escm"),(void*)f_11334},
{C_text("f_11351:c_2dbackend_2escm"),(void*)f_11351},
{C_text("f_11368:c_2dbackend_2escm"),(void*)f_11368},
{C_text("f_11397:c_2dbackend_2escm"),(void*)f_11397},
{C_text("f_11401:c_2dbackend_2escm"),(void*)f_11401},
{C_text("f_11422:c_2dbackend_2escm"),(void*)f_11422},
{C_text("f_11424:c_2dbackend_2escm"),(void*)f_11424},
{C_text("f_11434:c_2dbackend_2escm"),(void*)f_11434},
{C_text("f_11449:c_2dbackend_2escm"),(void*)f_11449},
{C_text("f_11862:c_2dbackend_2escm"),(void*)f_11862},
{C_text("f_11864:c_2dbackend_2escm"),(void*)f_11864},
{C_text("f_11892:c_2dbackend_2escm"),(void*)f_11892},
{C_text("f_11919:c_2dbackend_2escm"),(void*)f_11919},
{C_text("f_12159:c_2dbackend_2escm"),(void*)f_12159},
{C_text("f_12168:c_2dbackend_2escm"),(void*)f_12168},
{C_text("f_12177:c_2dbackend_2escm"),(void*)f_12177},
{C_text("f_12280:c_2dbackend_2escm"),(void*)f_12280},
{C_text("f_12286:c_2dbackend_2escm"),(void*)f_12286},
{C_text("f_12289:c_2dbackend_2escm"),(void*)f_12289},
{C_text("f_12292:c_2dbackend_2escm"),(void*)f_12292},
{C_text("f_12299:c_2dbackend_2escm"),(void*)f_12299},
{C_text("f_12302:c_2dbackend_2escm"),(void*)f_12302},
{C_text("f_12308:c_2dbackend_2escm"),(void*)f_12308},
{C_text("f_12311:c_2dbackend_2escm"),(void*)f_12311},
{C_text("f_12314:c_2dbackend_2escm"),(void*)f_12314},
{C_text("f_12317:c_2dbackend_2escm"),(void*)f_12317},
{C_text("f_12320:c_2dbackend_2escm"),(void*)f_12320},
{C_text("f_12346:c_2dbackend_2escm"),(void*)f_12346},
{C_text("f_12637:c_2dbackend_2escm"),(void*)f_12637},
{C_text("f_12639:c_2dbackend_2escm"),(void*)f_12639},
{C_text("f_12706:c_2dbackend_2escm"),(void*)f_12706},
{C_text("f_12712:c_2dbackend_2escm"),(void*)f_12712},
{C_text("f_12715:c_2dbackend_2escm"),(void*)f_12715},
{C_text("f_12718:c_2dbackend_2escm"),(void*)f_12718},
{C_text("f_12733:c_2dbackend_2escm"),(void*)f_12733},
{C_text("f_12739:c_2dbackend_2escm"),(void*)f_12739},
{C_text("f_12742:c_2dbackend_2escm"),(void*)f_12742},
{C_text("f_12745:c_2dbackend_2escm"),(void*)f_12745},
{C_text("f_12757:c_2dbackend_2escm"),(void*)f_12757},
{C_text("f_12763:c_2dbackend_2escm"),(void*)f_12763},
{C_text("f_12766:c_2dbackend_2escm"),(void*)f_12766},
{C_text("f_12769:c_2dbackend_2escm"),(void*)f_12769},
{C_text("f_12781:c_2dbackend_2escm"),(void*)f_12781},
{C_text("f_12784:c_2dbackend_2escm"),(void*)f_12784},
{C_text("f_12790:c_2dbackend_2escm"),(void*)f_12790},
{C_text("f_12793:c_2dbackend_2escm"),(void*)f_12793},
{C_text("f_12796:c_2dbackend_2escm"),(void*)f_12796},
{C_text("f_12808:c_2dbackend_2escm"),(void*)f_12808},
{C_text("f_12814:c_2dbackend_2escm"),(void*)f_12814},
{C_text("f_12817:c_2dbackend_2escm"),(void*)f_12817},
{C_text("f_12820:c_2dbackend_2escm"),(void*)f_12820},
{C_text("f_12835:c_2dbackend_2escm"),(void*)f_12835},
{C_text("f_12841:c_2dbackend_2escm"),(void*)f_12841},
{C_text("f_12844:c_2dbackend_2escm"),(void*)f_12844},
{C_text("f_12847:c_2dbackend_2escm"),(void*)f_12847},
{C_text("f_12862:c_2dbackend_2escm"),(void*)f_12862},
{C_text("f_12868:c_2dbackend_2escm"),(void*)f_12868},
{C_text("f_12871:c_2dbackend_2escm"),(void*)f_12871},
{C_text("f_12874:c_2dbackend_2escm"),(void*)f_12874},
{C_text("f_12889:c_2dbackend_2escm"),(void*)f_12889},
{C_text("f_12895:c_2dbackend_2escm"),(void*)f_12895},
{C_text("f_12898:c_2dbackend_2escm"),(void*)f_12898},
{C_text("f_12901:c_2dbackend_2escm"),(void*)f_12901},
{C_text("f_12916:c_2dbackend_2escm"),(void*)f_12916},
{C_text("f_12922:c_2dbackend_2escm"),(void*)f_12922},
{C_text("f_12925:c_2dbackend_2escm"),(void*)f_12925},
{C_text("f_12928:c_2dbackend_2escm"),(void*)f_12928},
{C_text("f_12940:c_2dbackend_2escm"),(void*)f_12940},
{C_text("f_12946:c_2dbackend_2escm"),(void*)f_12946},
{C_text("f_12949:c_2dbackend_2escm"),(void*)f_12949},
{C_text("f_12952:c_2dbackend_2escm"),(void*)f_12952},
{C_text("f_12964:c_2dbackend_2escm"),(void*)f_12964},
{C_text("f_12970:c_2dbackend_2escm"),(void*)f_12970},
{C_text("f_12973:c_2dbackend_2escm"),(void*)f_12973},
{C_text("f_12976:c_2dbackend_2escm"),(void*)f_12976},
{C_text("f_12997:c_2dbackend_2escm"),(void*)f_12997},
{C_text("f_13001:c_2dbackend_2escm"),(void*)f_13001},
{C_text("f_13033:c_2dbackend_2escm"),(void*)f_13033},
{C_text("f_13039:c_2dbackend_2escm"),(void*)f_13039},
{C_text("f_13042:c_2dbackend_2escm"),(void*)f_13042},
{C_text("f_13045:c_2dbackend_2escm"),(void*)f_13045},
{C_text("f_13057:c_2dbackend_2escm"),(void*)f_13057},
{C_text("f_13063:c_2dbackend_2escm"),(void*)f_13063},
{C_text("f_13066:c_2dbackend_2escm"),(void*)f_13066},
{C_text("f_13069:c_2dbackend_2escm"),(void*)f_13069},
{C_text("f_13090:c_2dbackend_2escm"),(void*)f_13090},
{C_text("f_13096:c_2dbackend_2escm"),(void*)f_13096},
{C_text("f_13099:c_2dbackend_2escm"),(void*)f_13099},
{C_text("f_13102:c_2dbackend_2escm"),(void*)f_13102},
{C_text("f_13105:c_2dbackend_2escm"),(void*)f_13105},
{C_text("f_13108:c_2dbackend_2escm"),(void*)f_13108},
{C_text("f_13115:c_2dbackend_2escm"),(void*)f_13115},
{C_text("f_13118:c_2dbackend_2escm"),(void*)f_13118},
{C_text("f_13124:c_2dbackend_2escm"),(void*)f_13124},
{C_text("f_13127:c_2dbackend_2escm"),(void*)f_13127},
{C_text("f_13130:c_2dbackend_2escm"),(void*)f_13130},
{C_text("f_13133:c_2dbackend_2escm"),(void*)f_13133},
{C_text("f_13136:c_2dbackend_2escm"),(void*)f_13136},
{C_text("f_13139:c_2dbackend_2escm"),(void*)f_13139},
{C_text("f_13142:c_2dbackend_2escm"),(void*)f_13142},
{C_text("f_13164:c_2dbackend_2escm"),(void*)f_13164},
{C_text("f_13170:c_2dbackend_2escm"),(void*)f_13170},
{C_text("f_13173:c_2dbackend_2escm"),(void*)f_13173},
{C_text("f_13176:c_2dbackend_2escm"),(void*)f_13176},
{C_text("f_13188:c_2dbackend_2escm"),(void*)f_13188},
{C_text("f_13194:c_2dbackend_2escm"),(void*)f_13194},
{C_text("f_13197:c_2dbackend_2escm"),(void*)f_13197},
{C_text("f_13200:c_2dbackend_2escm"),(void*)f_13200},
{C_text("f_13212:c_2dbackend_2escm"),(void*)f_13212},
{C_text("f_13218:c_2dbackend_2escm"),(void*)f_13218},
{C_text("f_13221:c_2dbackend_2escm"),(void*)f_13221},
{C_text("f_13224:c_2dbackend_2escm"),(void*)f_13224},
{C_text("f_13252:c_2dbackend_2escm"),(void*)f_13252},
{C_text("f_13258:c_2dbackend_2escm"),(void*)f_13258},
{C_text("f_13261:c_2dbackend_2escm"),(void*)f_13261},
{C_text("f_13264:c_2dbackend_2escm"),(void*)f_13264},
{C_text("f_13276:c_2dbackend_2escm"),(void*)f_13276},
{C_text("f_13282:c_2dbackend_2escm"),(void*)f_13282},
{C_text("f_13285:c_2dbackend_2escm"),(void*)f_13285},
{C_text("f_13288:c_2dbackend_2escm"),(void*)f_13288},
{C_text("f_13300:c_2dbackend_2escm"),(void*)f_13300},
{C_text("f_13306:c_2dbackend_2escm"),(void*)f_13306},
{C_text("f_13309:c_2dbackend_2escm"),(void*)f_13309},
{C_text("f_13312:c_2dbackend_2escm"),(void*)f_13312},
{C_text("f_13548:c_2dbackend_2escm"),(void*)f_13548},
{C_text("f_13556:c_2dbackend_2escm"),(void*)f_13556},
{C_text("f_13560:c_2dbackend_2escm"),(void*)f_13560},
{C_text("f_13573:c_2dbackend_2escm"),(void*)f_13573},
{C_text("f_13582:c_2dbackend_2escm"),(void*)f_13582},
{C_text("f_13599:c_2dbackend_2escm"),(void*)f_13599},
{C_text("f_13603:c_2dbackend_2escm"),(void*)f_13603},
{C_text("f_13607:c_2dbackend_2escm"),(void*)f_13607},
{C_text("f_13644:c_2dbackend_2escm"),(void*)f_13644},
{C_text("f_13666:c_2dbackend_2escm"),(void*)f_13666},
{C_text("f_13694:c_2dbackend_2escm"),(void*)f_13694},
{C_text("f_13701:c_2dbackend_2escm"),(void*)f_13701},
{C_text("f_13705:c_2dbackend_2escm"),(void*)f_13705},
{C_text("f_13709:c_2dbackend_2escm"),(void*)f_13709},
{C_text("f_13713:c_2dbackend_2escm"),(void*)f_13713},
{C_text("f_13747:c_2dbackend_2escm"),(void*)f_13747},
{C_text("f_13754:c_2dbackend_2escm"),(void*)f_13754},
{C_text("f_13781:c_2dbackend_2escm"),(void*)f_13781},
{C_text("f_13788:c_2dbackend_2escm"),(void*)f_13788},
{C_text("f_13791:c_2dbackend_2escm"),(void*)f_13791},
{C_text("f_13801:c_2dbackend_2escm"),(void*)f_13801},
{C_text("f_13805:c_2dbackend_2escm"),(void*)f_13805},
{C_text("f_13822:c_2dbackend_2escm"),(void*)f_13822},
{C_text("f_13832:c_2dbackend_2escm"),(void*)f_13832},
{C_text("f_13836:c_2dbackend_2escm"),(void*)f_13836},
{C_text("f_13857:c_2dbackend_2escm"),(void*)f_13857},
{C_text("f_13861:c_2dbackend_2escm"),(void*)f_13861},
{C_text("f_13865:c_2dbackend_2escm"),(void*)f_13865},
{C_text("f_13891:c_2dbackend_2escm"),(void*)f_13891},
{C_text("f_13895:c_2dbackend_2escm"),(void*)f_13895},
{C_text("f_13899:c_2dbackend_2escm"),(void*)f_13899},
{C_text("f_13926:c_2dbackend_2escm"),(void*)f_13926},
{C_text("f_13930:c_2dbackend_2escm"),(void*)f_13930},
{C_text("f_13934:c_2dbackend_2escm"),(void*)f_13934},
{C_text("f_13938:c_2dbackend_2escm"),(void*)f_13938},
{C_text("f_13940:c_2dbackend_2escm"),(void*)f_13940},
{C_text("f_13962:c_2dbackend_2escm"),(void*)f_13962},
{C_text("f_13968:c_2dbackend_2escm"),(void*)f_13968},
{C_text("f_13972:c_2dbackend_2escm"),(void*)f_13972},
{C_text("f_13980:c_2dbackend_2escm"),(void*)f_13980},
{C_text("f_13993:c_2dbackend_2escm"),(void*)f_13993},
{C_text("f_14004:c_2dbackend_2escm"),(void*)f_14004},
{C_text("f_14014:c_2dbackend_2escm"),(void*)f_14014},
{C_text("f_14026:c_2dbackend_2escm"),(void*)f_14026},
{C_text("f_14030:c_2dbackend_2escm"),(void*)f_14030},
{C_text("f_14032:c_2dbackend_2escm"),(void*)f_14032},
{C_text("f_14054:c_2dbackend_2escm"),(void*)f_14054},
{C_text("f_14061:c_2dbackend_2escm"),(void*)f_14061},
{C_text("f_14065:c_2dbackend_2escm"),(void*)f_14065},
{C_text("f_14069:c_2dbackend_2escm"),(void*)f_14069},
{C_text("f_14075:c_2dbackend_2escm"),(void*)f_14075},
{C_text("f_14093:c_2dbackend_2escm"),(void*)f_14093},
{C_text("f_14097:c_2dbackend_2escm"),(void*)f_14097},
{C_text("f_3386:c_2dbackend_2escm"),(void*)f_3386},
{C_text("f_3389:c_2dbackend_2escm"),(void*)f_3389},
{C_text("f_3392:c_2dbackend_2escm"),(void*)f_3392},
{C_text("f_3395:c_2dbackend_2escm"),(void*)f_3395},
{C_text("f_3398:c_2dbackend_2escm"),(void*)f_3398},
{C_text("f_3401:c_2dbackend_2escm"),(void*)f_3401},
{C_text("f_3404:c_2dbackend_2escm"),(void*)f_3404},
{C_text("f_3407:c_2dbackend_2escm"),(void*)f_3407},
{C_text("f_3848:c_2dbackend_2escm"),(void*)f_3848},
{C_text("f_3862:c_2dbackend_2escm"),(void*)f_3862},
{C_text("f_4420:c_2dbackend_2escm"),(void*)f_4420},
{C_text("f_4426:c_2dbackend_2escm"),(void*)f_4426},
{C_text("f_4440:c_2dbackend_2escm"),(void*)f_4440},
{C_text("f_4444:c_2dbackend_2escm"),(void*)f_4444},
{C_text("f_4600:c_2dbackend_2escm"),(void*)f_4600},
{C_text("f_4612:c_2dbackend_2escm"),(void*)f_4612},
{C_text("f_4688:c_2dbackend_2escm"),(void*)f_4688},
{C_text("f_4708:c_2dbackend_2escm"),(void*)f_4708},
{C_text("f_4718:c_2dbackend_2escm"),(void*)f_4718},
{C_text("f_4731:c_2dbackend_2escm"),(void*)f_4731},
{C_text("f_4740:c_2dbackend_2escm"),(void*)f_4740},
{C_text("f_4745:c_2dbackend_2escm"),(void*)f_4745},
{C_text("f_4755:c_2dbackend_2escm"),(void*)f_4755},
{C_text("f_4796:c_2dbackend_2escm"),(void*)f_4796},
{C_text("f_4802:c_2dbackend_2escm"),(void*)f_4802},
{C_text("f_4807:c_2dbackend_2escm"),(void*)f_4807},
{C_text("f_4815:c_2dbackend_2escm"),(void*)f_4815},
{C_text("f_4819:c_2dbackend_2escm"),(void*)f_4819},
{C_text("f_4829:c_2dbackend_2escm"),(void*)f_4829},
{C_text("f_4840:c_2dbackend_2escm"),(void*)f_4840},
{C_text("f_4844:c_2dbackend_2escm"),(void*)f_4844},
{C_text("f_4847:c_2dbackend_2escm"),(void*)f_4847},
{C_text("f_4849:c_2dbackend_2escm"),(void*)f_4849},
{C_text("f_4853:c_2dbackend_2escm"),(void*)f_4853},
{C_text("f_4861:c_2dbackend_2escm"),(void*)f_4861},
{C_text("f_4864:c_2dbackend_2escm"),(void*)f_4864},
{C_text("f_4868:c_2dbackend_2escm"),(void*)f_4868},
{C_text("f_4871:c_2dbackend_2escm"),(void*)f_4871},
{C_text("f_4874:c_2dbackend_2escm"),(void*)f_4874},
{C_text("f_5012:c_2dbackend_2escm"),(void*)f_5012},
{C_text("f_5026:c_2dbackend_2escm"),(void*)f_5026},
{C_text("f_5045:c_2dbackend_2escm"),(void*)f_5045},
{C_text("f_5048:c_2dbackend_2escm"),(void*)f_5048},
{C_text("f_5051:c_2dbackend_2escm"),(void*)f_5051},
{C_text("f_5054:c_2dbackend_2escm"),(void*)f_5054},
{C_text("f_5057:c_2dbackend_2escm"),(void*)f_5057},
{C_text("f_5060:c_2dbackend_2escm"),(void*)f_5060},
{C_text("f_5103:c_2dbackend_2escm"),(void*)f_5103},
{C_text("f_5113:c_2dbackend_2escm"),(void*)f_5113},
{C_text("f_5116:c_2dbackend_2escm"),(void*)f_5116},
{C_text("f_5119:c_2dbackend_2escm"),(void*)f_5119},
{C_text("f_5151:c_2dbackend_2escm"),(void*)f_5151},
{C_text("f_5154:c_2dbackend_2escm"),(void*)f_5154},
{C_text("f_5157:c_2dbackend_2escm"),(void*)f_5157},
{C_text("f_5190:c_2dbackend_2escm"),(void*)f_5190},
{C_text("f_5193:c_2dbackend_2escm"),(void*)f_5193},
{C_text("f_5209:c_2dbackend_2escm"),(void*)f_5209},
{C_text("f_5212:c_2dbackend_2escm"),(void*)f_5212},
{C_text("f_5228:c_2dbackend_2escm"),(void*)f_5228},
{C_text("f_5231:c_2dbackend_2escm"),(void*)f_5231},
{C_text("f_5255:c_2dbackend_2escm"),(void*)f_5255},
{C_text("f_5261:c_2dbackend_2escm"),(void*)f_5261},
{C_text("f_5280:c_2dbackend_2escm"),(void*)f_5280},
{C_text("f_5283:c_2dbackend_2escm"),(void*)f_5283},
{C_text("f_5295:c_2dbackend_2escm"),(void*)f_5295},
{C_text("f_5301:c_2dbackend_2escm"),(void*)f_5301},
{C_text("f_5320:c_2dbackend_2escm"),(void*)f_5320},
{C_text("f_5323:c_2dbackend_2escm"),(void*)f_5323},
{C_text("f_5335:c_2dbackend_2escm"),(void*)f_5335},
{C_text("f_5341:c_2dbackend_2escm"),(void*)f_5341},
{C_text("f_5360:c_2dbackend_2escm"),(void*)f_5360},
{C_text("f_5363:c_2dbackend_2escm"),(void*)f_5363},
{C_text("f_5375:c_2dbackend_2escm"),(void*)f_5375},
{C_text("f_5378:c_2dbackend_2escm"),(void*)f_5378},
{C_text("f_5394:c_2dbackend_2escm"),(void*)f_5394},
{C_text("f_5397:c_2dbackend_2escm"),(void*)f_5397},
{C_text("f_5400:c_2dbackend_2escm"),(void*)f_5400},
{C_text("f_5403:c_2dbackend_2escm"),(void*)f_5403},
{C_text("f_5427:c_2dbackend_2escm"),(void*)f_5427},
{C_text("f_5430:c_2dbackend_2escm"),(void*)f_5430},
{C_text("f_5433:c_2dbackend_2escm"),(void*)f_5433},
{C_text("f_5436:c_2dbackend_2escm"),(void*)f_5436},
{C_text("f_5464:c_2dbackend_2escm"),(void*)f_5464},
{C_text("f_5467:c_2dbackend_2escm"),(void*)f_5467},
{C_text("f_5470:c_2dbackend_2escm"),(void*)f_5470},
{C_text("f_5473:c_2dbackend_2escm"),(void*)f_5473},
{C_text("f_5493:c_2dbackend_2escm"),(void*)f_5493},
{C_text("f_5496:c_2dbackend_2escm"),(void*)f_5496},
{C_text("f_5499:c_2dbackend_2escm"),(void*)f_5499},
{C_text("f_5502:c_2dbackend_2escm"),(void*)f_5502},
{C_text("f_5525:c_2dbackend_2escm"),(void*)f_5525},
{C_text("f_5526:c_2dbackend_2escm"),(void*)f_5526},
{C_text("f_5530:c_2dbackend_2escm"),(void*)f_5530},
{C_text("f_5533:c_2dbackend_2escm"),(void*)f_5533},
{C_text("f_5539:c_2dbackend_2escm"),(void*)f_5539},
{C_text("f_5548:c_2dbackend_2escm"),(void*)f_5548},
{C_text("f_5555:c_2dbackend_2escm"),(void*)f_5555},
{C_text("f_5565:c_2dbackend_2escm"),(void*)f_5565},
{C_text("f_5599:c_2dbackend_2escm"),(void*)f_5599},
{C_text("f_5602:c_2dbackend_2escm"),(void*)f_5602},
{C_text("f_5631:c_2dbackend_2escm"),(void*)f_5631},
{C_text("f_5673:c_2dbackend_2escm"),(void*)f_5673},
{C_text("f_5677:c_2dbackend_2escm"),(void*)f_5677},
{C_text("f_5708:c_2dbackend_2escm"),(void*)f_5708},
{C_text("f_5711:c_2dbackend_2escm"),(void*)f_5711},
{C_text("f_5714:c_2dbackend_2escm"),(void*)f_5714},
{C_text("f_5725:c_2dbackend_2escm"),(void*)f_5725},
{C_text("f_5729:c_2dbackend_2escm"),(void*)f_5729},
{C_text("f_5756:c_2dbackend_2escm"),(void*)f_5756},
{C_text("f_5759:c_2dbackend_2escm"),(void*)f_5759},
{C_text("f_5770:c_2dbackend_2escm"),(void*)f_5770},
{C_text("f_5774:c_2dbackend_2escm"),(void*)f_5774},
{C_text("f_5777:c_2dbackend_2escm"),(void*)f_5777},
{C_text("f_5780:c_2dbackend_2escm"),(void*)f_5780},
{C_text("f_5791:c_2dbackend_2escm"),(void*)f_5791},
{C_text("f_5795:c_2dbackend_2escm"),(void*)f_5795},
{C_text("f_5832:c_2dbackend_2escm"),(void*)f_5832},
{C_text("f_5835:c_2dbackend_2escm"),(void*)f_5835},
{C_text("f_5841:c_2dbackend_2escm"),(void*)f_5841},
{C_text("f_5845:c_2dbackend_2escm"),(void*)f_5845},
{C_text("f_5854:c_2dbackend_2escm"),(void*)f_5854},
{C_text("f_5857:c_2dbackend_2escm"),(void*)f_5857},
{C_text("f_5860:c_2dbackend_2escm"),(void*)f_5860},
{C_text("f_5876:c_2dbackend_2escm"),(void*)f_5876},
{C_text("f_5879:c_2dbackend_2escm"),(void*)f_5879},
{C_text("f_5882:c_2dbackend_2escm"),(void*)f_5882},
{C_text("f_5883:c_2dbackend_2escm"),(void*)f_5883},
{C_text("f_5887:c_2dbackend_2escm"),(void*)f_5887},
{C_text("f_5890:c_2dbackend_2escm"),(void*)f_5890},
{C_text("f_5899:c_2dbackend_2escm"),(void*)f_5899},
{C_text("f_5907:c_2dbackend_2escm"),(void*)f_5907},
{C_text("f_5913:c_2dbackend_2escm"),(void*)f_5913},
{C_text("f_5916:c_2dbackend_2escm"),(void*)f_5916},
{C_text("f_5924:c_2dbackend_2escm"),(void*)f_5924},
{C_text("f_5934:c_2dbackend_2escm"),(void*)f_5934},
{C_text("f_5961:c_2dbackend_2escm"),(void*)f_5961},
{C_text("f_5971:c_2dbackend_2escm"),(void*)f_5971},
{C_text("f_5998:c_2dbackend_2escm"),(void*)f_5998},
{C_text("f_6005:c_2dbackend_2escm"),(void*)f_6005},
{C_text("f_6011:c_2dbackend_2escm"),(void*)f_6011},
{C_text("f_6014:c_2dbackend_2escm"),(void*)f_6014},
{C_text("f_6017:c_2dbackend_2escm"),(void*)f_6017},
{C_text("f_6026:c_2dbackend_2escm"),(void*)f_6026},
{C_text("f_6029:c_2dbackend_2escm"),(void*)f_6029},
{C_text("f_6032:c_2dbackend_2escm"),(void*)f_6032},
{C_text("f_6035:c_2dbackend_2escm"),(void*)f_6035},
{C_text("f_6045:c_2dbackend_2escm"),(void*)f_6045},
{C_text("f_6056:c_2dbackend_2escm"),(void*)f_6056},
{C_text("f_6060:c_2dbackend_2escm"),(void*)f_6060},
{C_text("f_6063:c_2dbackend_2escm"),(void*)f_6063},
{C_text("f_6076:c_2dbackend_2escm"),(void*)f_6076},
{C_text("f_6082:c_2dbackend_2escm"),(void*)f_6082},
{C_text("f_6085:c_2dbackend_2escm"),(void*)f_6085},
{C_text("f_6097:c_2dbackend_2escm"),(void*)f_6097},
{C_text("f_6100:c_2dbackend_2escm"),(void*)f_6100},
{C_text("f_6103:c_2dbackend_2escm"),(void*)f_6103},
{C_text("f_6106:c_2dbackend_2escm"),(void*)f_6106},
{C_text("f_6113:c_2dbackend_2escm"),(void*)f_6113},
{C_text("f_6123:c_2dbackend_2escm"),(void*)f_6123},
{C_text("f_6131:c_2dbackend_2escm"),(void*)f_6131},
{C_text("f_6139:c_2dbackend_2escm"),(void*)f_6139},
{C_text("f_6152:c_2dbackend_2escm"),(void*)f_6152},
{C_text("f_6156:c_2dbackend_2escm"),(void*)f_6156},
{C_text("f_6164:c_2dbackend_2escm"),(void*)f_6164},
{C_text("f_6172:c_2dbackend_2escm"),(void*)f_6172},
{C_text("f_6179:c_2dbackend_2escm"),(void*)f_6179},
{C_text("f_6184:c_2dbackend_2escm"),(void*)f_6184},
{C_text("f_6191:c_2dbackend_2escm"),(void*)f_6191},
{C_text("f_6195:c_2dbackend_2escm"),(void*)f_6195},
{C_text("f_6198:c_2dbackend_2escm"),(void*)f_6198},
{C_text("f_6201:c_2dbackend_2escm"),(void*)f_6201},
{C_text("f_6204:c_2dbackend_2escm"),(void*)f_6204},
{C_text("f_6207:c_2dbackend_2escm"),(void*)f_6207},
{C_text("f_6210:c_2dbackend_2escm"),(void*)f_6210},
{C_text("f_6216:c_2dbackend_2escm"),(void*)f_6216},
{C_text("f_6229:c_2dbackend_2escm"),(void*)f_6229},
{C_text("f_6234:c_2dbackend_2escm"),(void*)f_6234},
{C_text("f_6257:c_2dbackend_2escm"),(void*)f_6257},
{C_text("f_6261:c_2dbackend_2escm"),(void*)f_6261},
{C_text("f_6264:c_2dbackend_2escm"),(void*)f_6264},
{C_text("f_6284:c_2dbackend_2escm"),(void*)f_6284},
{C_text("f_6291:c_2dbackend_2escm"),(void*)f_6291},
{C_text("f_6295:c_2dbackend_2escm"),(void*)f_6295},
{C_text("f_6299:c_2dbackend_2escm"),(void*)f_6299},
{C_text("f_6342:c_2dbackend_2escm"),(void*)f_6342},
{C_text("f_6348:c_2dbackend_2escm"),(void*)f_6348},
{C_text("f_6351:c_2dbackend_2escm"),(void*)f_6351},
{C_text("f_6352:c_2dbackend_2escm"),(void*)f_6352},
{C_text("f_6356:c_2dbackend_2escm"),(void*)f_6356},
{C_text("f_6359:c_2dbackend_2escm"),(void*)f_6359},
{C_text("f_6368:c_2dbackend_2escm"),(void*)f_6368},
{C_text("f_6376:c_2dbackend_2escm"),(void*)f_6376},
{C_text("f_6382:c_2dbackend_2escm"),(void*)f_6382},
{C_text("f_6387:c_2dbackend_2escm"),(void*)f_6387},
{C_text("f_6397:c_2dbackend_2escm"),(void*)f_6397},
{C_text("f_6424:c_2dbackend_2escm"),(void*)f_6424},
{C_text("f_6434:c_2dbackend_2escm"),(void*)f_6434},
{C_text("f_6461:c_2dbackend_2escm"),(void*)f_6461},
{C_text("f_6468:c_2dbackend_2escm"),(void*)f_6468},
{C_text("f_6471:c_2dbackend_2escm"),(void*)f_6471},
{C_text("f_6474:c_2dbackend_2escm"),(void*)f_6474},
{C_text("f_6502:c_2dbackend_2escm"),(void*)f_6502},
{C_text("f_6515:c_2dbackend_2escm"),(void*)f_6515},
{C_text("f_6519:c_2dbackend_2escm"),(void*)f_6519},
{C_text("f_6522:c_2dbackend_2escm"),(void*)f_6522},
{C_text("f_6525:c_2dbackend_2escm"),(void*)f_6525},
{C_text("f_6528:c_2dbackend_2escm"),(void*)f_6528},
{C_text("f_6531:c_2dbackend_2escm"),(void*)f_6531},
{C_text("f_6534:c_2dbackend_2escm"),(void*)f_6534},
{C_text("f_6537:c_2dbackend_2escm"),(void*)f_6537},
{C_text("f_6549:c_2dbackend_2escm"),(void*)f_6549},
{C_text("f_6561:c_2dbackend_2escm"),(void*)f_6561},
{C_text("f_6579:c_2dbackend_2escm"),(void*)f_6579},
{C_text("f_6599:c_2dbackend_2escm"),(void*)f_6599},
{C_text("f_6606:c_2dbackend_2escm"),(void*)f_6606},
{C_text("f_6610:c_2dbackend_2escm"),(void*)f_6610},
{C_text("f_6639:c_2dbackend_2escm"),(void*)f_6639},
{C_text("f_6642:c_2dbackend_2escm"),(void*)f_6642},
{C_text("f_6649:c_2dbackend_2escm"),(void*)f_6649},
{C_text("f_6662:c_2dbackend_2escm"),(void*)f_6662},
{C_text("f_6665:c_2dbackend_2escm"),(void*)f_6665},
{C_text("f_6681:c_2dbackend_2escm"),(void*)f_6681},
{C_text("f_6684:c_2dbackend_2escm"),(void*)f_6684},
{C_text("f_6717:c_2dbackend_2escm"),(void*)f_6717},
{C_text("f_6720:c_2dbackend_2escm"),(void*)f_6720},
{C_text("f_6729:c_2dbackend_2escm"),(void*)f_6729},
{C_text("f_6753:c_2dbackend_2escm"),(void*)f_6753},
{C_text("f_6773:c_2dbackend_2escm"),(void*)f_6773},
{C_text("f_6776:c_2dbackend_2escm"),(void*)f_6776},
{C_text("f_6791:c_2dbackend_2escm"),(void*)f_6791},
{C_text("f_6795:c_2dbackend_2escm"),(void*)f_6795},
{C_text("f_6807:c_2dbackend_2escm"),(void*)f_6807},
{C_text("f_6810:c_2dbackend_2escm"),(void*)f_6810},
{C_text("f_6821:c_2dbackend_2escm"),(void*)f_6821},
{C_text("f_6825:c_2dbackend_2escm"),(void*)f_6825},
{C_text("f_6837:c_2dbackend_2escm"),(void*)f_6837},
{C_text("f_6840:c_2dbackend_2escm"),(void*)f_6840},
{C_text("f_6843:c_2dbackend_2escm"),(void*)f_6843},
{C_text("f_6846:c_2dbackend_2escm"),(void*)f_6846},
{C_text("f_6857:c_2dbackend_2escm"),(void*)f_6857},
{C_text("f_6865:c_2dbackend_2escm"),(void*)f_6865},
{C_text("f_6874:c_2dbackend_2escm"),(void*)f_6874},
{C_text("f_6877:c_2dbackend_2escm"),(void*)f_6877},
{C_text("f_6880:c_2dbackend_2escm"),(void*)f_6880},
{C_text("f_6893:c_2dbackend_2escm"),(void*)f_6893},
{C_text("f_6901:c_2dbackend_2escm"),(void*)f_6901},
{C_text("f_6904:c_2dbackend_2escm"),(void*)f_6904},
{C_text("f_6914:c_2dbackend_2escm"),(void*)f_6914},
{C_text("f_6917:c_2dbackend_2escm"),(void*)f_6917},
{C_text("f_6920:c_2dbackend_2escm"),(void*)f_6920},
{C_text("f_6923:c_2dbackend_2escm"),(void*)f_6923},
{C_text("f_6953:c_2dbackend_2escm"),(void*)f_6953},
{C_text("f_6956:c_2dbackend_2escm"),(void*)f_6956},
{C_text("f_6959:c_2dbackend_2escm"),(void*)f_6959},
{C_text("f_6962:c_2dbackend_2escm"),(void*)f_6962},
{C_text("f_6965:c_2dbackend_2escm"),(void*)f_6965},
{C_text("f_6968:c_2dbackend_2escm"),(void*)f_6968},
{C_text("f_6990:c_2dbackend_2escm"),(void*)f_6990},
{C_text("f_7076:c_2dbackend_2escm"),(void*)f_7076},
{C_text("f_7082:c_2dbackend_2escm"),(void*)f_7082},
{C_text("f_7092:c_2dbackend_2escm"),(void*)f_7092},
{C_text("f_7095:c_2dbackend_2escm"),(void*)f_7095},
{C_text("f_7112:c_2dbackend_2escm"),(void*)f_7112},
{C_text("f_7118:c_2dbackend_2escm"),(void*)f_7118},
{C_text("f_7137:c_2dbackend_2escm"),(void*)f_7137},
{C_text("f_7149:c_2dbackend_2escm"),(void*)f_7149},
{C_text("f_7153:c_2dbackend_2escm"),(void*)f_7153},
{C_text("f_7155:c_2dbackend_2escm"),(void*)f_7155},
{C_text("f_7167:c_2dbackend_2escm"),(void*)f_7167},
{C_text("f_7170:c_2dbackend_2escm"),(void*)f_7170},
{C_text("f_7173:c_2dbackend_2escm"),(void*)f_7173},
{C_text("f_7176:c_2dbackend_2escm"),(void*)f_7176},
{C_text("f_7179:c_2dbackend_2escm"),(void*)f_7179},
{C_text("f_7188:c_2dbackend_2escm"),(void*)f_7188},
{C_text("f_7198:c_2dbackend_2escm"),(void*)f_7198},
{C_text("f_7201:c_2dbackend_2escm"),(void*)f_7201},
{C_text("f_7204:c_2dbackend_2escm"),(void*)f_7204},
{C_text("f_7224:c_2dbackend_2escm"),(void*)f_7224},
{C_text("f_7239:c_2dbackend_2escm"),(void*)f_7239},
{C_text("f_7242:c_2dbackend_2escm"),(void*)f_7242},
{C_text("f_7245:c_2dbackend_2escm"),(void*)f_7245},
{C_text("f_7248:c_2dbackend_2escm"),(void*)f_7248},
{C_text("f_7251:c_2dbackend_2escm"),(void*)f_7251},
{C_text("f_7273:c_2dbackend_2escm"),(void*)f_7273},
{C_text("f_7276:c_2dbackend_2escm"),(void*)f_7276},
{C_text("f_7284:c_2dbackend_2escm"),(void*)f_7284},
{C_text("f_7288:c_2dbackend_2escm"),(void*)f_7288},
{C_text("f_7291:c_2dbackend_2escm"),(void*)f_7291},
{C_text("f_7294:c_2dbackend_2escm"),(void*)f_7294},
{C_text("f_7297:c_2dbackend_2escm"),(void*)f_7297},
{C_text("f_7300:c_2dbackend_2escm"),(void*)f_7300},
{C_text("f_7303:c_2dbackend_2escm"),(void*)f_7303},
{C_text("f_7306:c_2dbackend_2escm"),(void*)f_7306},
{C_text("f_7309:c_2dbackend_2escm"),(void*)f_7309},
{C_text("f_7321:c_2dbackend_2escm"),(void*)f_7321},
{C_text("f_7331:c_2dbackend_2escm"),(void*)f_7331},
{C_text("f_7341:c_2dbackend_2escm"),(void*)f_7341},
{C_text("f_7361:c_2dbackend_2escm"),(void*)f_7361},
{C_text("f_7374:c_2dbackend_2escm"),(void*)f_7374},
{C_text("f_7386:c_2dbackend_2escm"),(void*)f_7386},
{C_text("f_7389:c_2dbackend_2escm"),(void*)f_7389},
{C_text("f_7391:c_2dbackend_2escm"),(void*)f_7391},
{C_text("f_7416:c_2dbackend_2escm"),(void*)f_7416},
{C_text("f_7427:c_2dbackend_2escm"),(void*)f_7427},
{C_text("f_7437:c_2dbackend_2escm"),(void*)f_7437},
{C_text("f_7441:c_2dbackend_2escm"),(void*)f_7441},
{C_text("f_7443:c_2dbackend_2escm"),(void*)f_7443},
{C_text("f_7450:c_2dbackend_2escm"),(void*)f_7450},
{C_text("f_7464:c_2dbackend_2escm"),(void*)f_7464},
{C_text("f_7470:c_2dbackend_2escm"),(void*)f_7470},
{C_text("f_7473:c_2dbackend_2escm"),(void*)f_7473},
{C_text("f_7476:c_2dbackend_2escm"),(void*)f_7476},
{C_text("f_7481:c_2dbackend_2escm"),(void*)f_7481},
{C_text("f_7497:c_2dbackend_2escm"),(void*)f_7497},
{C_text("f_7500:c_2dbackend_2escm"),(void*)f_7500},
{C_text("f_7503:c_2dbackend_2escm"),(void*)f_7503},
{C_text("f_7506:c_2dbackend_2escm"),(void*)f_7506},
{C_text("f_7521:c_2dbackend_2escm"),(void*)f_7521},
{C_text("f_7529:c_2dbackend_2escm"),(void*)f_7529},
{C_text("f_7539:c_2dbackend_2escm"),(void*)f_7539},
{C_text("f_7549:c_2dbackend_2escm"),(void*)f_7549},
{C_text("f_7582:c_2dbackend_2escm"),(void*)f_7582},
{C_text("f_7592:c_2dbackend_2escm"),(void*)f_7592},
{C_text("f_7605:c_2dbackend_2escm"),(void*)f_7605},
{C_text("f_7630:c_2dbackend_2escm"),(void*)f_7630},
{C_text("f_7639:c_2dbackend_2escm"),(void*)f_7639},
{C_text("f_7643:c_2dbackend_2escm"),(void*)f_7643},
{C_text("f_7652:c_2dbackend_2escm"),(void*)f_7652},
{C_text("f_7655:c_2dbackend_2escm"),(void*)f_7655},
{C_text("f_7658:c_2dbackend_2escm"),(void*)f_7658},
{C_text("f_7661:c_2dbackend_2escm"),(void*)f_7661},
{C_text("f_7664:c_2dbackend_2escm"),(void*)f_7664},
{C_text("f_7667:c_2dbackend_2escm"),(void*)f_7667},
{C_text("f_7670:c_2dbackend_2escm"),(void*)f_7670},
{C_text("f_7673:c_2dbackend_2escm"),(void*)f_7673},
{C_text("f_7676:c_2dbackend_2escm"),(void*)f_7676},
{C_text("f_7679:c_2dbackend_2escm"),(void*)f_7679},
{C_text("f_7682:c_2dbackend_2escm"),(void*)f_7682},
{C_text("f_7685:c_2dbackend_2escm"),(void*)f_7685},
{C_text("f_7688:c_2dbackend_2escm"),(void*)f_7688},
{C_text("f_7691:c_2dbackend_2escm"),(void*)f_7691},
{C_text("f_7712:c_2dbackend_2escm"),(void*)f_7712},
{C_text("f_7735:c_2dbackend_2escm"),(void*)f_7735},
{C_text("f_7738:c_2dbackend_2escm"),(void*)f_7738},
{C_text("f_7741:c_2dbackend_2escm"),(void*)f_7741},
{C_text("f_7744:c_2dbackend_2escm"),(void*)f_7744},
{C_text("f_7757:c_2dbackend_2escm"),(void*)f_7757},
{C_text("f_7760:c_2dbackend_2escm"),(void*)f_7760},
{C_text("f_7763:c_2dbackend_2escm"),(void*)f_7763},
{C_text("f_7774:c_2dbackend_2escm"),(void*)f_7774},
{C_text("f_7783:c_2dbackend_2escm"),(void*)f_7783},
{C_text("f_7791:c_2dbackend_2escm"),(void*)f_7791},
{C_text("f_7801:c_2dbackend_2escm"),(void*)f_7801},
{C_text("f_7814:c_2dbackend_2escm"),(void*)f_7814},
{C_text("f_7825:c_2dbackend_2escm"),(void*)f_7825},
{C_text("f_7835:c_2dbackend_2escm"),(void*)f_7835},
{C_text("f_7851:c_2dbackend_2escm"),(void*)f_7851},
{C_text("f_7854:c_2dbackend_2escm"),(void*)f_7854},
{C_text("f_7857:c_2dbackend_2escm"),(void*)f_7857},
{C_text("f_7860:c_2dbackend_2escm"),(void*)f_7860},
{C_text("f_7869:c_2dbackend_2escm"),(void*)f_7869},
{C_text("f_7872:c_2dbackend_2escm"),(void*)f_7872},
{C_text("f_7875:c_2dbackend_2escm"),(void*)f_7875},
{C_text("f_7878:c_2dbackend_2escm"),(void*)f_7878},
{C_text("f_7881:c_2dbackend_2escm"),(void*)f_7881},
{C_text("f_7884:c_2dbackend_2escm"),(void*)f_7884},
{C_text("f_7891:c_2dbackend_2escm"),(void*)f_7891},
{C_text("f_7898:c_2dbackend_2escm"),(void*)f_7898},
{C_text("f_7904:c_2dbackend_2escm"),(void*)f_7904},
{C_text("f_7912:c_2dbackend_2escm"),(void*)f_7912},
{C_text("f_7922:c_2dbackend_2escm"),(void*)f_7922},
{C_text("f_7935:c_2dbackend_2escm"),(void*)f_7935},
{C_text("f_7941:c_2dbackend_2escm"),(void*)f_7941},
{C_text("f_7951:c_2dbackend_2escm"),(void*)f_7951},
{C_text("f_7966:c_2dbackend_2escm"),(void*)f_7966},
{C_text("f_7972:c_2dbackend_2escm"),(void*)f_7972},
{C_text("f_7975:c_2dbackend_2escm"),(void*)f_7975},
{C_text("f_7978:c_2dbackend_2escm"),(void*)f_7978},
{C_text("f_7981:c_2dbackend_2escm"),(void*)f_7981},
{C_text("f_7989:c_2dbackend_2escm"),(void*)f_7989},
{C_text("f_7996:c_2dbackend_2escm"),(void*)f_7996},
{C_text("f_8002:c_2dbackend_2escm"),(void*)f_8002},
{C_text("f_8032:c_2dbackend_2escm"),(void*)f_8032},
{C_text("f_8045:c_2dbackend_2escm"),(void*)f_8045},
{C_text("f_8049:c_2dbackend_2escm"),(void*)f_8049},
{C_text("f_8073:c_2dbackend_2escm"),(void*)f_8073},
{C_text("f_8076:c_2dbackend_2escm"),(void*)f_8076},
{C_text("f_8082:c_2dbackend_2escm"),(void*)f_8082},
{C_text("f_8084:c_2dbackend_2escm"),(void*)f_8084},
{C_text("f_8108:c_2dbackend_2escm"),(void*)f_8108},
{C_text("f_8133:c_2dbackend_2escm"),(void*)f_8133},
{C_text("f_8147:c_2dbackend_2escm"),(void*)f_8147},
{C_text("f_8165:c_2dbackend_2escm"),(void*)f_8165},
{C_text("f_8172:c_2dbackend_2escm"),(void*)f_8172},
{C_text("f_8193:c_2dbackend_2escm"),(void*)f_8193},
{C_text("f_8213:c_2dbackend_2escm"),(void*)f_8213},
{C_text("f_8234:c_2dbackend_2escm"),(void*)f_8234},
{C_text("f_8238:c_2dbackend_2escm"),(void*)f_8238},
{C_text("f_8259:c_2dbackend_2escm"),(void*)f_8259},
{C_text("f_8263:c_2dbackend_2escm"),(void*)f_8263},
{C_text("f_8279:c_2dbackend_2escm"),(void*)f_8279},
{C_text("f_8285:c_2dbackend_2escm"),(void*)f_8285},
{C_text("f_8329:c_2dbackend_2escm"),(void*)f_8329},
{C_text("f_8335:c_2dbackend_2escm"),(void*)f_8335},
{C_text("f_8338:c_2dbackend_2escm"),(void*)f_8338},
{C_text("f_8347:c_2dbackend_2escm"),(void*)f_8347},
{C_text("f_8353:c_2dbackend_2escm"),(void*)f_8353},
{C_text("f_8388:c_2dbackend_2escm"),(void*)f_8388},
{C_text("f_8391:c_2dbackend_2escm"),(void*)f_8391},
{C_text("f_8398:c_2dbackend_2escm"),(void*)f_8398},
{C_text("f_8432:c_2dbackend_2escm"),(void*)f_8432},
{C_text("f_8434:c_2dbackend_2escm"),(void*)f_8434},
{C_text("f_8436:c_2dbackend_2escm"),(void*)f_8436},
{C_text("f_8444:c_2dbackend_2escm"),(void*)f_8444},
{C_text("f_8447:c_2dbackend_2escm"),(void*)f_8447},
{C_text("f_8450:c_2dbackend_2escm"),(void*)f_8450},
{C_text("f_8453:c_2dbackend_2escm"),(void*)f_8453},
{C_text("f_8456:c_2dbackend_2escm"),(void*)f_8456},
{C_text("f_8459:c_2dbackend_2escm"),(void*)f_8459},
{C_text("f_8462:c_2dbackend_2escm"),(void*)f_8462},
{C_text("f_8468:c_2dbackend_2escm"),(void*)f_8468},
{C_text("f_8471:c_2dbackend_2escm"),(void*)f_8471},
{C_text("f_8474:c_2dbackend_2escm"),(void*)f_8474},
{C_text("f_8477:c_2dbackend_2escm"),(void*)f_8477},
{C_text("f_8480:c_2dbackend_2escm"),(void*)f_8480},
{C_text("f_8483:c_2dbackend_2escm"),(void*)f_8483},
{C_text("f_8486:c_2dbackend_2escm"),(void*)f_8486},
{C_text("f_8489:c_2dbackend_2escm"),(void*)f_8489},
{C_text("f_8492:c_2dbackend_2escm"),(void*)f_8492},
{C_text("f_8495:c_2dbackend_2escm"),(void*)f_8495},
{C_text("f_8498:c_2dbackend_2escm"),(void*)f_8498},
{C_text("f_8501:c_2dbackend_2escm"),(void*)f_8501},
{C_text("f_8504:c_2dbackend_2escm"),(void*)f_8504},
{C_text("f_8507:c_2dbackend_2escm"),(void*)f_8507},
{C_text("f_8510:c_2dbackend_2escm"),(void*)f_8510},
{C_text("f_8513:c_2dbackend_2escm"),(void*)f_8513},
{C_text("f_8516:c_2dbackend_2escm"),(void*)f_8516},
{C_text("f_8519:c_2dbackend_2escm"),(void*)f_8519},
{C_text("f_8522:c_2dbackend_2escm"),(void*)f_8522},
{C_text("f_8525:c_2dbackend_2escm"),(void*)f_8525},
{C_text("f_8528:c_2dbackend_2escm"),(void*)f_8528},
{C_text("f_8531:c_2dbackend_2escm"),(void*)f_8531},
{C_text("f_8534:c_2dbackend_2escm"),(void*)f_8534},
{C_text("f_8537:c_2dbackend_2escm"),(void*)f_8537},
{C_text("f_8540:c_2dbackend_2escm"),(void*)f_8540},
{C_text("f_8543:c_2dbackend_2escm"),(void*)f_8543},
{C_text("f_8547:c_2dbackend_2escm"),(void*)f_8547},
{C_text("f_8554:c_2dbackend_2escm"),(void*)f_8554},
{C_text("f_8565:c_2dbackend_2escm"),(void*)f_8565},
{C_text("f_8571:c_2dbackend_2escm"),(void*)f_8571},
{C_text("f_8574:c_2dbackend_2escm"),(void*)f_8574},
{C_text("f_8583:c_2dbackend_2escm"),(void*)f_8583},
{C_text("f_8591:c_2dbackend_2escm"),(void*)f_8591},
{C_text("f_8605:c_2dbackend_2escm"),(void*)f_8605},
{C_text("f_8620:c_2dbackend_2escm"),(void*)f_8620},
{C_text("f_8623:c_2dbackend_2escm"),(void*)f_8623},
{C_text("f_8640:c_2dbackend_2escm"),(void*)f_8640},
{C_text("f_8650:c_2dbackend_2escm"),(void*)f_8650},
{C_text("f_8675:c_2dbackend_2escm"),(void*)f_8675},
{C_text("f_8683:c_2dbackend_2escm"),(void*)f_8683},
{C_text("f_8689:c_2dbackend_2escm"),(void*)f_8689},
{C_text("f_8693:c_2dbackend_2escm"),(void*)f_8693},
{C_text("f_8696:c_2dbackend_2escm"),(void*)f_8696},
{C_text("f_8699:c_2dbackend_2escm"),(void*)f_8699},
{C_text("f_8702:c_2dbackend_2escm"),(void*)f_8702},
{C_text("f_8705:c_2dbackend_2escm"),(void*)f_8705},
{C_text("f_8708:c_2dbackend_2escm"),(void*)f_8708},
{C_text("f_8717:c_2dbackend_2escm"),(void*)f_8717},
{C_text("f_8720:c_2dbackend_2escm"),(void*)f_8720},
{C_text("f_8731:c_2dbackend_2escm"),(void*)f_8731},
{C_text("f_8752:c_2dbackend_2escm"),(void*)f_8752},
{C_text("f_8770:c_2dbackend_2escm"),(void*)f_8770},
{C_text("f_8780:c_2dbackend_2escm"),(void*)f_8780},
{C_text("f_8783:c_2dbackend_2escm"),(void*)f_8783},
{C_text("f_8786:c_2dbackend_2escm"),(void*)f_8786},
{C_text("f_8795:c_2dbackend_2escm"),(void*)f_8795},
{C_text("f_8819:c_2dbackend_2escm"),(void*)f_8819},
{C_text("f_8822:c_2dbackend_2escm"),(void*)f_8822},
{C_text("f_8825:c_2dbackend_2escm"),(void*)f_8825},
{C_text("f_8828:c_2dbackend_2escm"),(void*)f_8828},
{C_text("f_8837:c_2dbackend_2escm"),(void*)f_8837},
{C_text("f_8853:c_2dbackend_2escm"),(void*)f_8853},
{C_text("f_8913:c_2dbackend_2escm"),(void*)f_8913},
{C_text("f_8926:c_2dbackend_2escm"),(void*)f_8926},
{C_text("f_8936:c_2dbackend_2escm"),(void*)f_8936},
{C_text("f_8951:c_2dbackend_2escm"),(void*)f_8951},
{C_text("f_8953:c_2dbackend_2escm"),(void*)f_8953},
{C_text("f_8961:c_2dbackend_2escm"),(void*)f_8961},
{C_text("f_8981:c_2dbackend_2escm"),(void*)f_8981},
{C_text("f_8991:c_2dbackend_2escm"),(void*)f_8991},
{C_text("f_9015:c_2dbackend_2escm"),(void*)f_9015},
{C_text("f_9038:c_2dbackend_2escm"),(void*)f_9038},
{C_text("f_9041:c_2dbackend_2escm"),(void*)f_9041},
{C_text("f_9044:c_2dbackend_2escm"),(void*)f_9044},
{C_text("f_9057:c_2dbackend_2escm"),(void*)f_9057},
{C_text("f_9060:c_2dbackend_2escm"),(void*)f_9060},
{C_text("f_9074:c_2dbackend_2escm"),(void*)f_9074},
{C_text("f_9099:c_2dbackend_2escm"),(void*)f_9099},
{C_text("f_9103:c_2dbackend_2escm"),(void*)f_9103},
{C_text("f_9111:c_2dbackend_2escm"),(void*)f_9111},
{C_text("f_9121:c_2dbackend_2escm"),(void*)f_9121},
{C_text("f_9135:c_2dbackend_2escm"),(void*)f_9135},
{C_text("f_9139:c_2dbackend_2escm"),(void*)f_9139},
{C_text("f_9142:c_2dbackend_2escm"),(void*)f_9142},
{C_text("f_9145:c_2dbackend_2escm"),(void*)f_9145},
{C_text("f_9148:c_2dbackend_2escm"),(void*)f_9148},
{C_text("f_9151:c_2dbackend_2escm"),(void*)f_9151},
{C_text("f_9154:c_2dbackend_2escm"),(void*)f_9154},
{C_text("f_9157:c_2dbackend_2escm"),(void*)f_9157},
{C_text("f_9160:c_2dbackend_2escm"),(void*)f_9160},
{C_text("f_9163:c_2dbackend_2escm"),(void*)f_9163},
{C_text("f_9166:c_2dbackend_2escm"),(void*)f_9166},
{C_text("f_9181:c_2dbackend_2escm"),(void*)f_9181},
{C_text("f_9186:c_2dbackend_2escm"),(void*)f_9186},
{C_text("f_9204:c_2dbackend_2escm"),(void*)f_9204},
{C_text("f_9208:c_2dbackend_2escm"),(void*)f_9208},
{C_text("f_9217:c_2dbackend_2escm"),(void*)f_9217},
{C_text("f_9222:c_2dbackend_2escm"),(void*)f_9222},
{C_text("f_9232:c_2dbackend_2escm"),(void*)f_9232},
{C_text("f_9250:c_2dbackend_2escm"),(void*)f_9250},
{C_text("f_9256:c_2dbackend_2escm"),(void*)f_9256},
{C_text("f_9261:c_2dbackend_2escm"),(void*)f_9261},
{C_text("f_9271:c_2dbackend_2escm"),(void*)f_9271},
{C_text("f_9284:c_2dbackend_2escm"),(void*)f_9284},
{C_text("f_9302:c_2dbackend_2escm"),(void*)f_9302},
{C_text("f_9303:c_2dbackend_2escm"),(void*)f_9303},
{C_text("f_9311:c_2dbackend_2escm"),(void*)f_9311},
{C_text("f_9324:c_2dbackend_2escm"),(void*)f_9324},
{C_text("f_9331:c_2dbackend_2escm"),(void*)f_9331},
{C_text("f_9334:c_2dbackend_2escm"),(void*)f_9334},
{C_text("f_9337:c_2dbackend_2escm"),(void*)f_9337},
{C_text("f_9340:c_2dbackend_2escm"),(void*)f_9340},
{C_text("f_9343:c_2dbackend_2escm"),(void*)f_9343},
{C_text("f_9348:c_2dbackend_2escm"),(void*)f_9348},
{C_text("f_9358:c_2dbackend_2escm"),(void*)f_9358},
{C_text("f_9376:c_2dbackend_2escm"),(void*)f_9376},
{C_text("f_9390:c_2dbackend_2escm"),(void*)f_9390},
{C_text("f_9392:c_2dbackend_2escm"),(void*)f_9392},
{C_text("f_9401:c_2dbackend_2escm"),(void*)f_9401},
{C_text("f_9427:c_2dbackend_2escm"),(void*)f_9427},
{C_text("f_9437:c_2dbackend_2escm"),(void*)f_9437},
{C_text("f_9468:c_2dbackend_2escm"),(void*)f_9468},
{C_text("f_9474:c_2dbackend_2escm"),(void*)f_9474},
{C_text("f_9482:c_2dbackend_2escm"),(void*)f_9482},
{C_text("f_9485:c_2dbackend_2escm"),(void*)f_9485},
{C_text("f_9491:c_2dbackend_2escm"),(void*)f_9491},
{C_text("f_9499:c_2dbackend_2escm"),(void*)f_9499},
{C_text("f_9506:c_2dbackend_2escm"),(void*)f_9506},
{C_text("f_9528:c_2dbackend_2escm"),(void*)f_9528},
{C_text("f_9536:c_2dbackend_2escm"),(void*)f_9536},
{C_text("f_9546:c_2dbackend_2escm"),(void*)f_9546},
{C_text("f_9559:c_2dbackend_2escm"),(void*)f_9559},
{C_text("f_9565:c_2dbackend_2escm"),(void*)f_9565},
{C_text("f_9568:c_2dbackend_2escm"),(void*)f_9568},
{C_text("f_9579:c_2dbackend_2escm"),(void*)f_9579},
{C_text("f_9589:c_2dbackend_2escm"),(void*)f_9589},
{C_text("f_9604:c_2dbackend_2escm"),(void*)f_9604},
{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_9620:c_2dbackend_2escm"),(void*)f_9620},
{C_text("f_9623:c_2dbackend_2escm"),(void*)f_9623},
{C_text("f_9626:c_2dbackend_2escm"),(void*)f_9626},
{C_text("f_9629:c_2dbackend_2escm"),(void*)f_9629},
{C_text("f_9632:c_2dbackend_2escm"),(void*)f_9632},
{C_text("f_9635:c_2dbackend_2escm"),(void*)f_9635},
{C_text("f_9638:c_2dbackend_2escm"),(void*)f_9638},
{C_text("f_9641:c_2dbackend_2escm"),(void*)f_9641},
{C_text("f_9644:c_2dbackend_2escm"),(void*)f_9644},
{C_text("f_9647:c_2dbackend_2escm"),(void*)f_9647},
{C_text("f_9650:c_2dbackend_2escm"),(void*)f_9650},
{C_text("f_9653:c_2dbackend_2escm"),(void*)f_9653},
{C_text("f_9656:c_2dbackend_2escm"),(void*)f_9656},
{C_text("f_9665:c_2dbackend_2escm"),(void*)f_9665},
{C_text("f_9669:c_2dbackend_2escm"),(void*)f_9669},
{C_text("f_9673:c_2dbackend_2escm"),(void*)f_9673},
{C_text("f_9677:c_2dbackend_2escm"),(void*)f_9677},
{C_text("f_9683:c_2dbackend_2escm"),(void*)f_9683},
{C_text("f_9689:c_2dbackend_2escm"),(void*)f_9689},
{C_text("f_9692:c_2dbackend_2escm"),(void*)f_9692},
{C_text("f_9698:c_2dbackend_2escm"),(void*)f_9698},
{C_text("f_9707:c_2dbackend_2escm"),(void*)f_9707},
{C_text("f_9710:c_2dbackend_2escm"),(void*)f_9710},
{C_text("f_9713:c_2dbackend_2escm"),(void*)f_9713},
{C_text("f_9719:c_2dbackend_2escm"),(void*)f_9719},
{C_text("f_9722:c_2dbackend_2escm"),(void*)f_9722},
{C_text("f_9740:c_2dbackend_2escm"),(void*)f_9740},
{C_text("f_9743:c_2dbackend_2escm"),(void*)f_9743},
{C_text("f_9746:c_2dbackend_2escm"),(void*)f_9746},
{C_text("f_9749:c_2dbackend_2escm"),(void*)f_9749},
{C_text("f_9752:c_2dbackend_2escm"),(void*)f_9752},
{C_text("f_9777:c_2dbackend_2escm"),(void*)f_9777},
{C_text("f_9781:c_2dbackend_2escm"),(void*)f_9781},
{C_text("f_9799:c_2dbackend_2escm"),(void*)f_9799},
{C_text("f_9806:c_2dbackend_2escm"),(void*)f_9806},
{C_text("f_9809:c_2dbackend_2escm"),(void*)f_9809},
{C_text("f_9851:c_2dbackend_2escm"),(void*)f_9851},
{C_text("f_9856:c_2dbackend_2escm"),(void*)f_9856},
{C_text("f_9866:c_2dbackend_2escm"),(void*)f_9866},
{C_text("f_9878:c_2dbackend_2escm"),(void*)f_9878},
{C_text("f_9881:c_2dbackend_2escm"),(void*)f_9881},
{C_text("f_9888:c_2dbackend_2escm"),(void*)f_9888},
{C_text("f_9896:c_2dbackend_2escm"),(void*)f_9896},
{C_text("f_9906:c_2dbackend_2escm"),(void*)f_9906},
{C_text("f_9917:c_2dbackend_2escm"),(void*)f_9917},
{C_text("f_9927:c_2dbackend_2escm"),(void*)f_9927},
{C_text("f_9942:c_2dbackend_2escm"),(void*)f_9942},
{C_text("f_9946:c_2dbackend_2escm"),(void*)f_9946},
{C_text("f_9949:c_2dbackend_2escm"),(void*)f_9949},
{C_text("f_9952:c_2dbackend_2escm"),(void*)f_9952},
{C_text("f_9955:c_2dbackend_2escm"),(void*)f_9955},
{C_text("f_9961:c_2dbackend_2escm"),(void*)f_9961},
{C_text("f_9963:c_2dbackend_2escm"),(void*)f_9963},
{C_text("f_9973:c_2dbackend_2escm"),(void*)f_9973},
{C_text("f_9982:c_2dbackend_2escm"),(void*)f_9982},
{C_text("toplevel:c_2dbackend_2escm"),(void*)C_c_2dbackend_toplevel},
{C_text("va16049:c_2dbackend_2escm"),(void*)va16049},
{C_text("va16055:c_2dbackend_2escm"),(void*)va16055},
{C_text("va16087:c_2dbackend_2escm"),(void*)va16087},
{C_text("va16089:c_2dbackend_2escm"),(void*)va16089},
{C_text("va16097:c_2dbackend_2escm"),(void*)va16097},
{C_text("va16099:c_2dbackend_2escm"),(void*)va16099},
{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#oct 
o|hiding unexported module binding: chicken.compiler.c-backend#encode-literal 
o|hiding unexported module binding: chicken.compiler.c-backend#byteblock->string 
o|hiding unexported module binding: chicken.compiler.c-backend#c-ify-string 
S|applied compiler syntax:
S|  chicken.format#sprintf		25
S|  scheme#for-each		22
S|  chicken.base#foldl		5
S|  scheme#map		8
S|  chicken.base#foldr		3
o|eliminated procedure checks: 179 
o|specializations:
o|  1 (scheme#number->string float)
o|  3 (scheme#number->string * *)
o|  1 (scheme#cdddr (pair * (pair * pair)))
o|  3 (scheme#>= fixnum fixnum)
o|  1 (scheme#> fixnum fixnum)
o|  3 (scheme#memq * list)
o|  8 (scheme#= fixnum fixnum)
o|  1 (scheme#string=? * *)
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#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|  25 (##sys#check-output-port * * *)
o|  1 (scheme#- integer integer)
o|  1 (chicken.bitwise#bitwise-and fixnum fixnum)
o|  2 (scheme#zero? integer)
o|  3 (scheme#string-append string string)
o|  9 (scheme#number->string *)
o|  13 (scheme#zero? *)
o|  6 (chicken.base#add1 fixnum)
o|  12 (chicken.base#sub1 *)
o|  13 (chicken.base#add1 *)
o|  1 (scheme#negative? *)
o|  1 (chicken.base#infinite? *)
o|  1 (chicken.base#nan? *)
o|  302 (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|  38 (scheme#cdr pair)
o|  15 (scheme#car pair)
(o e)|safe calls: 1651 
o|safe globals: (chicken.compiler.c-backend#c-ify-string chicken.compiler.c-backend#byteblock->string chicken.compiler.c-backend#encode-literal chicken.compiler.c-backend#oct 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: k3789 
o|inlining procedure: k3789 
o|inlining procedure: k3820 
o|inlining procedure: k3820 
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: k4037 
o|inlining procedure: k4037 
o|inlining procedure: k4029 
o|inlining procedure: k4029 
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: k4428 
o|inlining procedure: k4428 
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: k4710 
o|contracted procedure: "(c-backend.scm:62) g647654" 
o|inlining procedure: k4692 
o|inlining procedure: k4692 
o|inlining procedure: k4710 
o|inlining procedure: k4747 
o|contracted procedure: "(c-backend.scm:69) g671678" 
o|inlining procedure: k4747 
o|inlining procedure: k4854 
o|inlining procedure: k4854 
o|inlining procedure: k4875 
o|inlining procedure: k4894 
o|inlining procedure: k4894 
o|inlining procedure: "(c-backend.scm:116) chicken.compiler.c-backend#second" 
o|inlining procedure: k4900 
o|inlining procedure: "(c-backend.scm:117) chicken.compiler.c-backend#second" 
o|inlining procedure: k4900 
o|inlining procedure: k4926 
o|inlining procedure: "(c-backend.scm:119) chicken.compiler.c-backend#second" 
o|inlining procedure: k4926 
o|inlining procedure: k4948 
o|inlining procedure: k4948 
o|substituted constant variable: a4961 
o|substituted constant variable: a4963 
o|substituted constant variable: a4965 
o|substituted constant variable: a4967 
o|substituted constant variable: a4969 
o|substituted constant variable: a4971 
o|inlining procedure: "(c-backend.scm:115) chicken.compiler.c-backend#first" 
o|inlining procedure: k4875 
o|inlining procedure: k4981 
o|inlining procedure: k4981 
o|inlining procedure: "(c-backend.scm:128) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:125) chicken.compiler.c-backend#first" 
o|inlining procedure: k5001 
o|inlining procedure: k5020 
o|inlining procedure: k5020 
o|inlining procedure: "(c-backend.scm:131) chicken.compiler.c-backend#first" 
o|inlining procedure: k5001 
o|inlining procedure: k5076 
o|inlining procedure: "(c-backend.scm:149) chicken.compiler.c-backend#first" 
o|inlining procedure: k5076 
o|inlining procedure: k5105 
o|inlining procedure: k5105 
o|inlining procedure: "(c-backend.scm:152) chicken.compiler.c-backend#first" 
o|inlining procedure: k5140 
o|inlining procedure: "(c-backend.scm:165) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:163) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:161) chicken.compiler.c-backend#first" 
o|inlining procedure: k5140 
o|inlining procedure: "(c-backend.scm:168) chicken.compiler.c-backend#first" 
o|inlining procedure: k5182 
o|inlining procedure: "(c-backend.scm:172) chicken.compiler.c-backend#first" 
o|inlining procedure: k5182 
o|inlining procedure: "(c-backend.scm:177) chicken.compiler.c-backend#first" 
o|inlining procedure: k5220 
o|inlining procedure: "(c-backend.scm:183) chicken.compiler.c-backend#first" 
o|inlining procedure: k5220 
o|inlining procedure: k5262 
o|inlining procedure: k5262 
o|inlining procedure: k5281 
o|inlining procedure: k5281 
o|inlining procedure: "(c-backend.scm:187) chicken.compiler.c-backend#second" 
o|inlining procedure: k5287 
o|inlining procedure: k5321 
o|inlining procedure: k5321 
o|inlining procedure: "(c-backend.scm:196) chicken.compiler.c-backend#second" 
o|inlining procedure: k5287 
o|inlining procedure: k5342 
o|inlining procedure: k5342 
o|inlining procedure: k5361 
o|inlining procedure: k5361 
o|inlining procedure: "(c-backend.scm:205) chicken.compiler.c-backend#second" 
o|inlining procedure: k5367 
o|inlining procedure: k5367 
o|inlining procedure: "(c-backend.scm:220) chicken.compiler.c-backend#first" 
o|inlining procedure: k5419 
o|inlining procedure: "(c-backend.scm:227) chicken.compiler.c-backend#first" 
o|inlining procedure: k5419 
o|inlining procedure: k5485 
o|inlining procedure: k5485 
o|inlining procedure: k5557 
o|inlining procedure: k5557 
o|inlining procedure: "(c-backend.scm:246) chicken.compiler.c-backend#first" 
o|inlining procedure: k5591 
o|inlining procedure: k5591 
o|inlining procedure: "(c-backend.scm:261) chicken.compiler.c-backend#first" 
o|inlining procedure: k5623 
o|inlining procedure: "(c-backend.scm:264) chicken.compiler.c-backend#first" 
o|inlining procedure: k5623 
o|inlining procedure: k5658 
o|inlining procedure: "(c-backend.scm:276) chicken.compiler.c-backend#fourth" 
o|inlining procedure: k5658 
o|inlining procedure: "(c-backend.scm:270) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:269) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:268) chicken.compiler.c-backend#first" 
o|inlining procedure: k5691 
o|inlining procedure: "(c-backend.scm:283) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:282) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:281) chicken.compiler.c-backend#first" 
o|inlining procedure: k5691 
o|inlining procedure: k5751 
o|inlining procedure: k5751 
o|inlining procedure: "(c-backend.scm:294) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:293) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:292) chicken.compiler.c-backend#first" 
o|inlining procedure: k5796 
o|inlining procedure: k5796 
o|inlining procedure: k5846 
o|inlining procedure: "(c-backend.scm:333) chicken.compiler.c-backend#first" 
o|inlining procedure: k5846 
o|inlining procedure: k5871 
o|inlining procedure: k5926 
o|contracted procedure: "(c-backend.scm:345) g926949" 
o|inlining procedure: k5926 
o|inlining procedure: k5963 
o|inlining procedure: k5963 
o|inlining procedure: k5871 
o|inlining procedure: k6033 
o|inlining procedure: k6033 
o|inlining procedure: k6043 
o|substituted constant variable: a6052 
o|inlining procedure: k6043 
o|inlining procedure: k6077 
o|inlining procedure: k6133 
o|inlining procedure: "(c-backend.scm:387) chicken.compiler.c-backend#fourth" 
o|inlining procedure: k6133 
o|inlining procedure: "(c-backend.scm:373) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:372) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:371) chicken.compiler.c-backend#first" 
o|inlining procedure: k6077 
o|propagated global variable: tmp9981000 chicken.compiler.support#unsafe 
o|propagated global variable: tmp9981000 chicken.compiler.support#unsafe 
o|propagated global variable: tmp10011003 chicken.compiler.core#no-procedure-checks 
o|inlining procedure: k6223 
o|propagated global variable: tmp10011003 chicken.compiler.core#no-procedure-checks 
o|inlining procedure: k6223 
o|substituted constant variable: a6230 
o|inlining procedure: k6239 
o|inlining procedure: k6239 
o|inlining procedure: k6265 
o|inlining procedure: k6275 
o|inlining procedure: k6275 
o|inlining procedure: k6265 
o|inlining procedure: k6303 
o|inlining procedure: "(c-backend.scm:318) chicken.compiler.c-backend#fourth" 
o|inlining procedure: k6303 
o|inlining procedure: "(c-backend.scm:316) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:314) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:313) chicken.compiler.c-backend#first" 
o|inlining procedure: k6323 
o|inlining procedure: k6389 
o|contracted procedure: "(c-backend.scm:425) g10431066" 
o|inlining procedure: k6389 
o|inlining procedure: k6426 
o|inlining procedure: k6426 
o|inlining procedure: "(c-backend.scm:414) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:413) chicken.compiler.c-backend#first" 
o|inlining procedure: k6323 
o|inlining procedure: k6550 
o|inlining procedure: k6550 
o|inlining procedure: k6562 
o|inlining procedure: k6562 
o|inlining procedure: k6580 
o|inlining procedure: k6590 
o|inlining procedure: k6590 
o|inlining procedure: k6580 
o|inlining procedure: "(c-backend.scm:443) chicken.compiler.c-backend#fourth" 
o|inlining procedure: "(c-backend.scm:441) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:439) chicken.compiler.c-backend#first" 
o|inlining procedure: k6613 
o|inlining procedure: "(c-backend.scm:468) chicken.compiler.c-backend#first" 
o|inlining procedure: k6613 
o|substituted constant variable: a6636 
o|inlining procedure: "(c-backend.scm:477) chicken.compiler.c-backend#first" 
o|inlining procedure: k6654 
o|inlining procedure: "(c-backend.scm:481) chicken.compiler.c-backend#first" 
o|inlining procedure: k6654 
o|inlining procedure: "(c-backend.scm:485) chicken.compiler.c-backend#first" 
o|inlining procedure: k6692 
o|inlining procedure: k6706 
o|inlining procedure: k6706 
o|inlining procedure: "(c-backend.scm:490) chicken.compiler.c-backend#first" 
o|inlining procedure: k6692 
o|inlining procedure: k6718 
o|inlining procedure: k6718 
o|inlining procedure: "(c-backend.scm:494) chicken.compiler.c-backend#first" 
o|inlining procedure: k6741 
o|inlining procedure: "(c-backend.scm:502) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:502) chicken.compiler.c-backend#second" 
o|inlining procedure: k6741 
o|inlining procedure: "(c-backend.scm:507) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:506) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:505) chicken.compiler.c-backend#second" 
o|inlining procedure: k6796 
o|inlining procedure: "(c-backend.scm:513) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:511) chicken.compiler.c-backend#first" 
o|inlining procedure: k6796 
o|inlining procedure: "(c-backend.scm:521) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:519) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:517) chicken.compiler.c-backend#first" 
o|inlining procedure: k6866 
o|inlining procedure: k6895 
o|inlining procedure: k6895 
o|inlining procedure: "(c-backend.scm:528) chicken.compiler.c-backend#first" 
o|inlining procedure: "(c-backend.scm:526) chicken.compiler.c-backend#first" 
o|inlining procedure: k6866 
o|inlining procedure: "(c-backend.scm:545) chicken.compiler.c-backend#third" 
o|inlining procedure: "(c-backend.scm:543) chicken.compiler.c-backend#second" 
o|inlining procedure: "(c-backend.scm:541) chicken.compiler.c-backend#first" 
o|substituted constant variable: a6992 
o|substituted constant variable: a6994 
o|substituted constant variable: a6996 
o|substituted constant variable: a6998 
o|substituted constant variable: a7000 
o|substituted constant variable: a7002 
o|substituted constant variable: a7004 
o|substituted constant variable: a7006 
o|substituted constant variable: a7008 
o|substituted constant variable: a7010 
o|substituted constant variable: a7012 
o|substituted constant variable: a7014 
o|substituted constant variable: a7016 
o|substituted constant variable: a7018 
o|substituted constant variable: a7020 
o|substituted constant variable: a7022 
o|substituted constant variable: a7024 
o|substituted constant variable: a7026 
o|substituted constant variable: a7028 
o|substituted constant variable: a7030 
o|substituted constant variable: a7032 
o|substituted constant variable: a7034 
o|substituted constant variable: a7036 
o|substituted constant variable: a7038 
o|substituted constant variable: a7040 
o|substituted constant variable: a7042 
o|substituted constant variable: a7044 
o|substituted constant variable: a7046 
o|substituted constant variable: a7048 
o|substituted constant variable: a7050 
o|substituted constant variable: a7052 
o|substituted constant variable: a7054 
o|substituted constant variable: a7056 
o|substituted constant variable: a7058 
o|substituted constant variable: a7060 
o|substituted constant variable: a7062 
o|substituted constant variable: a7064 
o|substituted constant variable: a7066 
o|substituted constant variable: a7068 
o|substituted constant variable: a7070 
o|substituted constant variable: a7072 
o|substituted constant variable: a7074 
o|inlining procedure: k7084 
o|inlining procedure: k7084 
o|inlining procedure: k7120 
o|inlining procedure: k7120 
o|inlining procedure: k7138 
o|inlining procedure: k7138 
o|inlining procedure: k7190 
o|inlining procedure: k7190 
o|inlining procedure: k7228 
o|inlining procedure: k7228 
o|inlining procedure: k7258 
o|inlining procedure: k7258 
o|inlining procedure: k7274 
o|inlining procedure: k7274 
o|inlining procedure: k7310 
o|inlining procedure: k7310 
o|inlining procedure: k7333 
o|contracted procedure: "(c-backend.scm:623) g12481255" 
o|inlining procedure: k7333 
o|propagated global variable: g12541256 chicken.compiler.core#foreign-declarations 
o|inlining procedure: k7393 
o|contracted procedure: "(c-backend.scm:607) g12181227" 
o|inlining procedure: k7393 
o|inlining procedure: k7483 
o|inlining procedure: k7483 
o|inlining procedure: k7523 
o|inlining procedure: k7523 
o|substituted constant variable: a7537 
o|inlining procedure: k7541 
o|inlining procedure: k7541 
o|substituted constant variable: a7568 
o|inlining procedure: k7584 
o|contracted procedure: "(c-backend.scm:638) g12761284" 
o|inlining procedure: k7584 
o|inlining procedure: k7607 
o|inlining procedure: k7607 
o|propagated global variable: g13011305 chicken.compiler.core#used-units 
o|inlining procedure: k7793 
o|contracted procedure: "(c-backend.scm:666) g13451352" 
o|inlining procedure: k7689 
o|inlining procedure: k7689 
o|inlining procedure: k7713 
o|inlining procedure: k7713 
o|inlining procedure: k7742 
o|inlining procedure: k7742 
o|inlining procedure: k7752 
o|inlining procedure: k7752 
o|inlining procedure: k7776 
o|inlining procedure: k7776 
o|inlining procedure: k7793 
o|inlining procedure: k7861 
o|contracted procedure: "(c-backend.scm:724) restore1407" 
o|inlining procedure: k7827 
o|inlining procedure: k7827 
o|inlining procedure: k7861 
o|inlining procedure: k7914 
o|inlining procedure: k7914 
o|inlining procedure: k7943 
o|inlining procedure: k7943 
o|substituted constant variable: a7968 
o|substituted constant variable: a7969 
o|inlining procedure: k7991 
o|inlining procedure: k7991 
o|inlining procedure: k8003 
o|inlining procedure: k8003 
o|inlining procedure: k8015 
o|propagated global variable: r801614706 chicken.compiler.c-platform#words-per-flonum 
o|inlining procedure: k8015 
o|inlining procedure: k8027 
o|inlining procedure: k8027 
o|inlining procedure: k8054 
o|inlining procedure: k8086 
o|inlining procedure: k8086 
o|substituted constant variable: g14671470 
o|inlining procedure: k8110 
o|inlining procedure: k8110 
o|inlining procedure: k8054 
o|inlining procedure: k8148 
o|inlining procedure: "(c-backend.scm:753) bad-literal720" 
o|inlining procedure: k8148 
o|inlining procedure: k8160 
o|inlining procedure: k8160 
o|substituted constant variable: a8190 
o|inlining procedure: k8195 
o|inlining procedure: k8195 
o|inlining procedure: k8218 
o|inlining procedure: k8218 
o|inlining procedure: "(c-backend.scm:769) bad-literal720" 
o|inlining procedure: k8274 
o|inlining procedure: k8274 
o|inlining procedure: k8289 
o|inlining procedure: k8289 
o|inlining procedure: k8308 
o|inlining procedure: k8308 
o|inlining procedure: k8311 
o|inlining procedure: k8311 
o|inlining procedure: k8362 
o|inlining procedure: k8362 
o|inlining procedure: k8377 
o|inlining procedure: k8377 
o|inlining procedure: "(c-backend.scm:799) bad-literal720" 
o|inlining procedure: k8556 
o|inlining procedure: k8556 
o|inlining procedure: k8566 
o|inlining procedure: k8585 
o|inlining procedure: k8585 
o|inlining procedure: k8566 
o|inlining procedure: k8642 
o|inlining procedure: k8642 
o|inlining procedure: k8706 
o|inlining procedure: k8706 
o|inlining procedure: k8732 
o|inlining procedure: k8732 
o|propagated global variable: tmp16461648 chicken.compiler.core#unit-name 
o|inlining procedure: k8748 
o|propagated global variable: tmp16461648 chicken.compiler.core#unit-name 
o|inlining procedure: k8748 
o|inlining procedure: k8754 
o|inlining procedure: k8754 
o|substituted constant variable: g16331636 
o|inlining procedure: k8775 
o|inlining procedure: k8802 
o|inlining procedure: k8802 
o|inlining procedure: k8775 
o|inlining procedure: k8842 
o|inlining procedure: k8842 
o|inlining procedure: k8854 
o|inlining procedure: k8854 
o|inlining procedure: k8872 
o|inlining procedure: k8872 
o|inlining procedure: k8896 
o|inlining procedure: k8896 
o|inlining procedure: k8928 
o|contracted procedure: "(c-backend.scm:860) g16101617" 
o|inlining procedure: k8928 
o|inlining procedure: k8955 
o|inlining procedure: k8955 
o|inlining procedure: k8970 
o|inlining procedure: k8970 
o|inlining procedure: k8983 
o|inlining procedure: k8983 
o|inlining procedure: k9016 
o|inlining procedure: k9016 
o|inlining procedure: k9042 
o|inlining procedure: k9042 
o|inlining procedure: k9052 
o|inlining procedure: k9052 
o|inlining procedure: k9079 
o|inlining procedure: k9079 
o|inlining procedure: k9086 
o|inlining procedure: k9086 
o|inlining procedure: k9093 
o|inlining procedure: k9093 
o|inlining procedure: k9113 
o|inlining procedure: k9113 
o|contracted procedure: "(c-backend.scm:967) trailer715" 
o|contracted procedure: "(c-backend.scm:966) chicken.compiler.c-backend#emit-procedure-table" 
o|inlining procedure: k9312 
o|inlining procedure: k9312 
o|inlining procedure: k9350 
o|inlining procedure: k9350 
o|contracted procedure: "(c-backend.scm:964) chicken.compiler.c-backend#emit-debug-table" 
o|inlining procedure: k9263 
o|contracted procedure: "(c-backend.scm:974) g17571764" 
o|inlining procedure: k9224 
o|contracted procedure: "(c-backend.scm:977) g17701777" 
o|inlining procedure: k9189 
o|inlining procedure: k9189 
o|inlining procedure: k9224 
o|inlining procedure: "(c-backend.scm:976) chicken.compiler.c-backend#second" 
o|inlining procedure: k9263 
o|contracted procedure: "(c-backend.scm:961) chicken.compiler.c-backend#generate-foreign-callback-stubs" 
o|inlining procedure: k9965 
o|inlining procedure: k9965 
o|inlining procedure: k9986 
o|inlining procedure: k9986 
o|inlining procedure: k10010 
o|inlining procedure: k10010 
o|inlining procedure: k10034 
o|inlining procedure: k10034 
o|inlining procedure: k10064 
o|inlining procedure: k10083 
o|inlining procedure: k10083 
o|substituted constant variable: a10097 
o|inlining procedure: k10101 
o|inlining procedure: k10101 
o|inlining procedure: k10113 
o|inlining procedure: k10113 
o|inlining procedure: k10125 
o|inlining procedure: k10125 
o|inlining procedure: k10137 
o|inlining procedure: k10137 
o|substituted constant variable: a10144 
o|substituted constant variable: a10146 
o|substituted constant variable: a10148 
o|substituted constant variable: a10150 
o|substituted constant variable: a10152 
o|substituted constant variable: a10154 
o|substituted constant variable: a10156 
o|substituted constant variable: a10158 
o|substituted constant variable: a10160 
o|inlining procedure: k10064 
o|inlining procedure: k10170 
o|inlining procedure: k10170 
o|inlining procedure: k10182 
o|inlining procedure: k10182 
o|substituted constant variable: a10189 
o|substituted constant variable: a10191 
o|substituted constant variable: a10193 
o|substituted constant variable: a10195 
o|substituted constant variable: a10197 
o|inlining procedure: k10201 
o|inlining procedure: k10201 
o|inlining procedure: k10213 
o|inlining procedure: k10213 
o|substituted constant variable: a10220 
o|substituted constant variable: a10222 
o|substituted constant variable: a10224 
o|substituted constant variable: a10226 
o|substituted constant variable: a10228 
o|inlining procedure: k10232 
o|inlining procedure: k10232 
o|substituted constant variable: a10245 
o|substituted constant variable: a10247 
o|substituted constant variable: a10249 
o|substituted constant variable: a10251 
o|inlining procedure: k10255 
o|inlining procedure: k10255 
o|inlining procedure: k10267 
o|inlining procedure: k10267 
o|inlining procedure: k10279 
o|inlining procedure: k10279 
o|substituted constant variable: a10286 
o|substituted constant variable: a10288 
o|substituted constant variable: a10290 
o|substituted constant variable: a10292 
o|substituted constant variable: a10294 
o|substituted constant variable: a10296 
o|substituted constant variable: a10298 
o|substituted constant variable: a10303 
o|substituted constant variable: a10305 
o|inlining procedure: k10309 
o|inlining procedure: k10309 
o|inlining procedure: k10321 
o|inlining procedure: k10321 
o|substituted constant variable: a10334 
o|substituted constant variable: a10336 
o|substituted constant variable: a10338 
o|substituted constant variable: a10340 
o|substituted constant variable: a10342 
o|substituted constant variable: a10344 
o|inlining procedure: k10348 
o|inlining procedure: k10348 
o|inlining procedure: k10360 
o|inlining procedure: k10360 
o|inlining procedure: k10372 
o|inlining procedure: k10372 
o|inlining procedure: k10384 
o|inlining procedure: k10384 
o|inlining procedure: k10396 
o|inlining procedure: k10396 
o|inlining procedure: k10408 
o|inlining procedure: k10408 
o|substituted constant variable: a10415 
o|substituted constant variable: a10417 
o|substituted constant variable: a10419 
o|substituted constant variable: a10421 
o|substituted constant variable: a10423 
o|substituted constant variable: a10425 
o|substituted constant variable: a10427 
o|substituted constant variable: a10429 
o|substituted constant variable: a10431 
o|substituted constant variable: a10433 
o|substituted constant variable: a10435 
o|substituted constant variable: a10437 
o|substituted constant variable: a10439 
o|inlining procedure: k10482 
o|inlining procedure: k10482 
o|inlining procedure: k10507 
o|contracted procedure: "(c-backend.scm:1197) g21992207" 
o|inlining procedure: k10507 
o|substituted constant variable: a10545 
o|inlining procedure: k10542 
o|inlining procedure: k10542 
o|inlining procedure: k10557 
o|inlining procedure: k10557 
o|propagated global variable: stubs2014 chicken.compiler.support#foreign-callback-stubs 
o|inlining procedure: k10591 
o|inlining procedure: k10591 
o|contracted procedure: "(c-backend.scm:959) chicken.compiler.c-backend#generate-foreign-stubs" 
o|inlining procedure: k9711 
o|inlining procedure: k9729 
o|inlining procedure: k9729 
o|inlining procedure: k9711 
o|inlining procedure: k9759 
o|inlining procedure: k9759 
o|inlining procedure: k9801 
o|contracted procedure: "(c-backend.scm:1108) g19381958" 
o|inlining procedure: k9675 
o|substituted constant variable: a9685 
o|substituted constant variable: a9686 
o|inlining procedure: k9675 
o|inlining procedure: k9801 
o|inlining procedure: k9840 
o|inlining procedure: k9840 
o|contracted procedure: "(c-backend.scm:1116) chicken.compiler.c-backend#iota" 
o|inlining procedure: k9858 
o|inlining procedure: k9858 
o|contracted procedure: "(c-backend.scm:1086) chicken.compiler.c-backend#make-list" 
o|propagated global variable: stubs1903 chicken.compiler.core#foreign-lambda-stubs 
o|inlining procedure: k9919 
o|inlining procedure: k9919 
o|contracted procedure: "(c-backend.scm:958) chicken.compiler.c-backend#generate-external-variables" 
o|inlining procedure: k9538 
o|contracted procedure: "(c-backend.scm:1057) g18611868" 
o|inlining procedure: k9538 
o|propagated global variable: a9174 chicken.flonum#flonum-maximum-decimal-exponent 
o|substituted constant variable: a9175 
o|contracted procedure: "(c-backend.scm:94) chicken.compiler.c-backend#table->sorted-alist" 
o|inlining procedure: k9378 
o|inlining procedure: k9378 
o|contracted procedure: "(c-backend.scm:1018) chicken.compiler.c-backend#c-identifier" 
o|inlining procedure: k9403 
o|inlining procedure: k9403 
o|substituted constant variable: a9424 
o|inlining procedure: k9438 
o|inlining procedure: k9438 
o|substituted constant variable: a9445 
o|inlining procedure: k9446 
o|inlining procedure: k9446 
o|substituted constant variable: a9453 
o|inlining procedure: k9454 
o|substituted constant variable: a9460 
o|inlining procedure: k9454 
o|inlining procedure: k9581 
o|contracted procedure: "(c-backend.scm:1069) g18851892" 
o|inlining procedure: k9581 
o|inlining procedure: k10644 
o|inlining procedure: k10644 
o|inlining procedure: k10700 
o|inlining procedure: k10700 
o|inlining procedure: k10721 
o|inlining procedure: k10721 
o|inlining procedure: k10745 
o|inlining procedure: k10745 
o|inlining procedure: k10769 
o|inlining procedure: k10769 
o|inlining procedure: k10787 
o|inlining procedure: k10787 
o|inlining procedure: k10808 
o|inlining procedure: k10808 
o|inlining procedure: k10826 
o|inlining procedure: k10826 
o|inlining procedure: k10844 
o|inlining procedure: k10844 
o|inlining procedure: k10862 
o|inlining procedure: k10862 
o|inlining procedure: k10886 
o|inlining procedure: k10886 
o|inlining procedure: k10907 
o|inlining procedure: k10907 
o|inlining procedure: k10931 
o|inlining procedure: k10931 
o|inlining procedure: k10955 
o|inlining procedure: k10955 
o|inlining procedure: k10979 
o|inlining procedure: k10979 
o|inlining procedure: k11003 
o|inlining procedure: k11003 
o|inlining procedure: k11027 
o|inlining procedure: k11027 
o|inlining procedure: k11051 
o|inlining procedure: k11051 
o|inlining procedure: k11075 
o|inlining procedure: k11075 
o|inlining procedure: k11102 
o|inlining procedure: k11102 
o|inlining procedure: k11118 
o|inlining procedure: k11118 
o|inlining procedure: k11152 
o|inlining procedure: k11194 
o|contracted procedure: "(c-backend.scm:1292) g23922401" 
o|propagated global variable: g24092410 chicken.compiler.c-backend#foreign-type-declaration 
o|inlining procedure: k11194 
o|inlining procedure: k11152 
o|inlining procedure: k11246 
o|inlining procedure: k11246 
o|inlining procedure: k11290 
o|inlining procedure: k11290 
o|inlining procedure: k11322 
o|inlining procedure: k11322 
o|inlining procedure: k11356 
o|inlining procedure: k11356 
o|inlining procedure: k11426 
o|contracted procedure: "(c-backend.scm:1320) g24402449" 
o|inlining procedure: k11408 
o|inlining procedure: k11408 
o|inlining procedure: k11426 
o|substituted constant variable: a11477 
o|substituted constant variable: a11489 
o|substituted constant variable: a11497 
o|substituted constant variable: a11499 
o|substituted constant variable: a11511 
o|substituted constant variable: a11523 
o|substituted constant variable: a11535 
o|substituted constant variable: a11547 
o|substituted constant variable: a11559 
o|substituted constant variable: a11570 
o|substituted constant variable: a11579 
o|substituted constant variable: a11580 
o|substituted constant variable: a11592 
o|inlining procedure: k11596 
o|inlining procedure: k11596 
o|substituted constant variable: a11609 
o|substituted constant variable: a11611 
o|substituted constant variable: a11613 
o|substituted constant variable: a11615 
o|inlining procedure: k11619 
o|inlining procedure: k11619 
o|inlining procedure: k11631 
o|inlining procedure: k11631 
o|substituted constant variable: a11638 
o|substituted constant variable: a11640 
o|substituted constant variable: a11642 
o|substituted constant variable: a11644 
o|substituted constant variable: a11646 
o|substituted constant variable: a11651 
o|substituted constant variable: a11653 
o|substituted constant variable: a11658 
o|substituted constant variable: a11660 
o|substituted constant variable: a11665 
o|substituted constant variable: a11667 
o|substituted constant variable: a11672 
o|substituted constant variable: a11674 
o|substituted constant variable: a11679 
o|substituted constant variable: a11681 
o|substituted constant variable: a11686 
o|substituted constant variable: a11688 
o|substituted constant variable: a11693 
o|substituted constant variable: a11695 
o|substituted constant variable: a11700 
o|substituted constant variable: a11702 
o|substituted constant variable: a11707 
o|substituted constant variable: a11709 
o|substituted constant variable: a11714 
o|substituted constant variable: a11716 
o|substituted constant variable: a11721 
o|substituted constant variable: a11723 
o|inlining procedure: k11727 
o|inlining procedure: k11727 
o|substituted constant variable: a11740 
o|substituted constant variable: a11742 
o|substituted constant variable: a11744 
o|substituted constant variable: a11746 
o|substituted constant variable: a11751 
o|substituted constant variable: a11753 
o|inlining procedure: k11757 
o|inlining procedure: k11757 
o|substituted constant variable: a11770 
o|substituted constant variable: a11772 
o|substituted constant variable: a11774 
o|substituted constant variable: a11776 
o|substituted constant variable: a11781 
o|substituted constant variable: a11783 
o|substituted constant variable: a11788 
o|substituted constant variable: a11790 
o|substituted constant variable: a11792 
o|substituted constant variable: a11794 
o|substituted constant variable: a11796 
o|substituted constant variable: a11798 
o|substituted constant variable: a11800 
o|substituted constant variable: a11802 
o|substituted constant variable: a11804 
o|substituted constant variable: a11809 
o|substituted constant variable: a11811 
o|substituted constant variable: a11813 
o|substituted constant variable: a11815 
o|inlining procedure: k11819 
o|inlining procedure: k11819 
o|substituted constant variable: a11826 
o|substituted constant variable: a11828 
o|substituted constant variable: a11830 
o|substituted constant variable: a11835 
o|substituted constant variable: a11837 
o|substituted constant variable: a11842 
o|substituted constant variable: a11844 
o|substituted constant variable: a11849 
o|substituted constant variable: a11851 
o|substituted constant variable: a11856 
o|substituted constant variable: a11858 
o|substituted constant variable: a11860 
o|inlining procedure: k11869 
o|inlining procedure: k11869 
o|inlining procedure: k11884 
o|inlining procedure: k11884 
o|inlining procedure: k11899 
o|inlining procedure: k11899 
o|inlining procedure: k11911 
o|inlining procedure: k11911 
o|inlining procedure: k11929 
o|inlining procedure: k11929 
o|inlining procedure: k11944 
o|inlining procedure: k11944 
o|inlining procedure: k11956 
o|inlining procedure: k11956 
o|inlining procedure: k11968 
o|inlining procedure: k11968 
o|inlining procedure: k11983 
o|inlining procedure: k11983 
o|inlining procedure: k11995 
o|inlining procedure: k11995 
o|inlining procedure: k12010 
o|inlining procedure: k12010 
o|inlining procedure: k12025 
o|inlining procedure: k12025 
o|inlining procedure: k12037 
o|inlining procedure: k12037 
o|inlining procedure: k12049 
o|inlining procedure: k12049 
o|inlining procedure: k12061 
o|inlining procedure: k12061 
o|inlining procedure: k12073 
o|inlining procedure: k12073 
o|inlining procedure: k12085 
o|inlining procedure: k12085 
o|inlining procedure: k12097 
o|inlining procedure: k12097 
o|inlining procedure: k12109 
o|inlining procedure: k12109 
o|inlining procedure: k12121 
o|inlining procedure: k12121 
o|inlining procedure: k12133 
o|inlining procedure: k12133 
o|inlining procedure: k12145 
o|inlining procedure: k12145 
o|inlining procedure: k12160 
o|inlining procedure: k12160 
o|inlining procedure: k12178 
o|contracted procedure: "(c-backend.scm:1385) g25352536" 
o|inlining procedure: k12178 
o|inlining procedure: k12202 
o|inlining procedure: k12202 
o|inlining procedure: k12214 
o|inlining procedure: k12214 
o|inlining procedure: k12226 
o|inlining procedure: k12226 
o|inlining procedure: k12238 
o|inlining procedure: k12238 
o|inlining procedure: k12257 
o|inlining procedure: k12257 
o|substituted constant variable: a12282 
o|substituted constant variable: a12283 
o|inlining procedure: k12272 
o|substituted constant variable: a12304 
o|substituted constant variable: a12305 
o|inlining procedure: k12272 
o|inlining procedure: k12334 
o|inlining procedure: k12334 
o|substituted constant variable: a12368 
o|substituted constant variable: a12370 
o|substituted constant variable: a12375 
o|substituted constant variable: a12377 
o|substituted constant variable: a12379 
o|substituted constant variable: a12381 
o|substituted constant variable: a12383 
o|substituted constant variable: a12385 
o|substituted constant variable: a12387 
o|substituted constant variable: a12389 
o|substituted constant variable: a12391 
o|substituted constant variable: a12393 
o|substituted constant variable: a12395 
o|substituted constant variable: a12407 
o|substituted constant variable: a12415 
o|inlining procedure: k12419 
o|inlining procedure: k12419 
o|inlining procedure: k12431 
o|inlining procedure: k12431 
o|substituted constant variable: a12438 
o|substituted constant variable: a12440 
o|substituted constant variable: a12442 
o|substituted constant variable: a12444 
o|substituted constant variable: a12446 
o|inlining procedure: k12450 
o|inlining procedure: k12450 
o|substituted constant variable: a12463 
o|substituted constant variable: a12465 
o|substituted constant variable: a12467 
o|substituted constant variable: a12469 
o|substituted constant variable: a12471 
o|substituted constant variable: a12473 
o|substituted constant variable: a12475 
o|substituted constant variable: a12477 
o|substituted constant variable: a12479 
o|substituted constant variable: a12481 
o|substituted constant variable: a12483 
o|substituted constant variable: a12485 
o|substituted constant variable: a12487 
o|substituted constant variable: a12489 
o|substituted constant variable: a12491 
o|substituted constant variable: a12493 
o|substituted constant variable: a12495 
o|substituted constant variable: a12497 
o|substituted constant variable: a12499 
o|substituted constant variable: a12501 
o|substituted constant variable: a12503 
o|substituted constant variable: a12505 
o|substituted constant variable: a12507 
o|substituted constant variable: a12509 
o|substituted constant variable: a12511 
o|substituted constant variable: a12513 
o|substituted constant variable: a12518 
o|substituted constant variable: a12520 
o|substituted constant variable: a12525 
o|substituted constant variable: a12527 
o|substituted constant variable: a12529 
o|substituted constant variable: a12531 
o|substituted constant variable: a12533 
o|substituted constant variable: a12535 
o|substituted constant variable: a12540 
o|substituted constant variable: a12542 
o|substituted constant variable: a12544 
o|substituted constant variable: a12546 
o|substituted constant variable: a12548 
o|substituted constant variable: a12550 
o|substituted constant variable: a12552 
o|substituted constant variable: a12557 
o|substituted constant variable: a12559 
o|substituted constant variable: a12564 
o|substituted constant variable: a12566 
o|inlining procedure: k12570 
o|inlining procedure: k12570 
o|substituted constant variable: a12577 
o|substituted constant variable: a12579 
o|substituted constant variable: a12581 
o|substituted constant variable: a12583 
o|substituted constant variable: a12585 
o|substituted constant variable: a12587 
o|inlining procedure: k12591 
o|inlining procedure: k12591 
o|inlining procedure: k12603 
o|inlining procedure: k12603 
o|substituted constant variable: a12616 
o|substituted constant variable: a12618 
o|substituted constant variable: a12620 
o|substituted constant variable: a12622 
o|substituted constant variable: a12624 
o|substituted constant variable: a12626 
o|substituted constant variable: a12631 
o|substituted constant variable: a12633 
o|substituted constant variable: a12635 
o|inlining procedure: k12644 
o|inlining procedure: k12644 
o|inlining procedure: k12662 
o|inlining procedure: k12662 
o|inlining procedure: k12677 
o|inlining procedure: k12677 
o|inlining procedure: k12689 
o|inlining procedure: k12689 
o|substituted constant variable: a12708 
o|substituted constant variable: a12709 
o|substituted constant variable: a12735 
o|substituted constant variable: a12736 
o|inlining procedure: k12722 
o|inlining procedure: k12722 
o|substituted constant variable: a12759 
o|substituted constant variable: a12760 
o|substituted constant variable: a12786 
o|substituted constant variable: a12787 
o|inlining procedure: k12773 
o|inlining procedure: k12773 
o|substituted constant variable: a12810 
o|substituted constant variable: a12811 
o|substituted constant variable: a12837 
o|substituted constant variable: a12838 
o|inlining procedure: k12824 
o|inlining procedure: k12824 
o|substituted constant variable: a12864 
o|substituted constant variable: a12865 
o|substituted constant variable: a12891 
o|substituted constant variable: a12892 
o|inlining procedure: k12878 
o|inlining procedure: k12878 
o|substituted constant variable: a12918 
o|substituted constant variable: a12919 
o|substituted constant variable: a12942 
o|substituted constant variable: a12943 
o|inlining procedure: k12932 
o|inlining procedure: k12932 
o|substituted constant variable: a12966 
o|substituted constant variable: a12967 
o|inlining procedure: k12980 
o|inlining procedure: k12980 
o|inlining procedure: k12998 
o|inlining procedure: k12998 
o|substituted constant variable: a13035 
o|substituted constant variable: a13036 
o|inlining procedure: k13022 
o|inlining procedure: k13022 
o|substituted constant variable: a13059 
o|substituted constant variable: a13060 
o|inlining procedure: k13073 
o|substituted constant variable: a13092 
o|substituted constant variable: a13093 
o|substituted constant variable: a13120 
o|substituted constant variable: a13121 
o|inlining procedure: k13073 
o|substituted constant variable: a13166 
o|substituted constant variable: a13167 
o|substituted constant variable: a13190 
o|substituted constant variable: a13191 
o|inlining procedure: k13180 
o|inlining procedure: k13180 
o|substituted constant variable: a13214 
o|substituted constant variable: a13215 
o|inlining procedure: k13228 
o|inlining procedure: k13228 
o|substituted constant variable: a13254 
o|substituted constant variable: a13255 
o|substituted constant variable: a13278 
o|substituted constant variable: a13279 
o|inlining procedure: k13268 
o|inlining procedure: k13268 
o|substituted constant variable: a13302 
o|substituted constant variable: a13303 
o|substituted constant variable: a13320 
o|substituted constant variable: a13322 
o|substituted constant variable: a13327 
o|substituted constant variable: a13329 
o|substituted constant variable: a13331 
o|substituted constant variable: a13333 
o|substituted constant variable: a13335 
o|substituted constant variable: a13337 
o|substituted constant variable: a13342 
o|substituted constant variable: a13344 
o|substituted constant variable: a13346 
o|substituted constant variable: a13351 
o|substituted constant variable: a13353 
o|substituted constant variable: a13365 
o|substituted constant variable: a13376 
o|substituted constant variable: a13378 
o|substituted constant variable: a13380 
o|substituted constant variable: a13382 
o|substituted constant variable: a13384 
o|substituted constant variable: a13389 
o|substituted constant variable: a13391 
o|substituted constant variable: a13396 
o|substituted constant variable: a13398 
o|substituted constant variable: a13403 
o|substituted constant variable: a13405 
o|substituted constant variable: a13410 
o|substituted constant variable: a13412 
o|substituted constant variable: a13414 
o|inlining procedure: k13418 
o|inlining procedure: k13418 
o|inlining procedure: k13430 
o|inlining procedure: k13430 
o|inlining procedure: k13442 
o|inlining procedure: k13442 
o|inlining procedure: k13454 
o|inlining procedure: k13454 
o|inlining procedure: k13466 
o|inlining procedure: k13466 
o|substituted constant variable: a13479 
o|substituted constant variable: a13481 
o|substituted constant variable: a13483 
o|substituted constant variable: a13485 
o|substituted constant variable: a13487 
o|substituted constant variable: a13489 
o|substituted constant variable: a13491 
o|substituted constant variable: a13493 
o|substituted constant variable: a13495 
o|substituted constant variable: a13497 
o|substituted constant variable: a13499 
o|substituted constant variable: a13501 
o|substituted constant variable: a13503 
o|substituted constant variable: a13508 
o|substituted constant variable: a13510 
o|substituted constant variable: a13515 
o|substituted constant variable: a13517 
o|substituted constant variable: a13519 
o|substituted constant variable: a13521 
o|substituted constant variable: a13523 
o|substituted constant variable: a13525 
o|substituted constant variable: a13530 
o|substituted constant variable: a13532 
o|substituted constant variable: a13537 
o|substituted constant variable: a13539 
o|substituted constant variable: a13544 
o|substituted constant variable: a13546 
o|substituted constant variable: a13562 
o|inlining procedure: k13566 
o|inlining procedure: k13566 
o|inlining procedure: k13584 
o|inlining procedure: k13584 
o|contracted procedure: "(c-backend.scm:1507) finish2942" 
o|inlining procedure: k13648 
o|inlining procedure: k13648 
o|inlining procedure: k13671 
o|inlining procedure: k13671 
o|inlining procedure: k13683 
o|inlining procedure: k13683 
o|inlining procedure: k13742 
o|substituted constant variable: a13768 
o|inlining procedure: k13742 
o|inlining procedure: k13783 
o|inlining procedure: k13783 
o|inlining procedure: k13845 
o|inlining procedure: "(c-backend.scm:1547) getbits2939" 
o|inlining procedure: k13845 
o|inlining procedure: "(c-backend.scm:1553) getsize2940" 
o|inlining procedure: "(c-backend.scm:1552) getbits2939" 
o|inlining procedure: k13908 
o|inlining procedure: k13908 
o|contracted procedure: "(c-backend.scm:1560) chicken.compiler.c-backend#cons*" 
o|inlining procedure: k3850 
o|inlining procedure: k3850 
o|inlining procedure: "(c-backend.scm:1561) getbits2939" 
o|inlining procedure: "(c-backend.scm:1558) getsize2940" 
o|inlining procedure: k13982 
o|inlining procedure: k13982 
o|inlining procedure: k14034 
o|inlining procedure: k14034 
o|substituted constant variable: a14077 
o|inlining procedure: k14081 
o|inlining procedure: k14081 
o|inlining procedure: k14103 
o|inlining procedure: k14103 
o|substituted constant variable: a14107 
o|replaced variables: 3416 
o|removed binding forms: 660 
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: r442914127 
o|substituted constant variable: r489514138 
o|substituted constant variable: r489514138 
o|substituted constant variable: r489514140 
o|substituted constant variable: r489514140 
o|inlining procedure: k5024 
o|inlining procedure: k5914 
o|substituted constant variable: r604414398 
o|substituted constant variable: r604414398 
o|propagated global variable: r622414424 chicken.compiler.core#no-procedure-checks 
o|substituted constant variable: r624014427 
o|substituted constant variable: r627614429 
o|substituted constant variable: r627614429 
o|substituted constant variable: r627614431 
o|substituted constant variable: r627614431 
o|substituted constant variable: r630414440 
o|substituted constant variable: r659114477 
o|substituted constant variable: r659114477 
o|substituted constant variable: r659114479 
o|substituted constant variable: r659114479 
o|substituted constant variable: r670714522 
o|substituted constant variable: r670714522 
o|substituted constant variable: r670714524 
o|substituted constant variable: r670714524 
o|substituted constant variable: r712114632 
o|substituted constant variable: r775314685 
o|substituted constant variable: r775314685 
o|substituted constant variable: r775314687 
o|substituted constant variable: r775314687 
o|contracted procedure: "(c-backend.scm:712) g14001415" 
o|contracted procedure: "(c-backend.scm:735) gen-lit722" 
o|substituted constant variable: r830914738 
o|substituted constant variable: r830914738 
o|substituted constant variable: r830914740 
o|substituted constant variable: r830914740 
o|removed side-effect free assignment to unused variable: bad-literal720 
o|substituted constant variable: r799214702 
o|substituted constant variable: r800414704 
o|substituted constant variable: r802814708 
o|propagated global variable: r874914775 chicken.compiler.core#unit-name 
o|substituted constant variable: r880314783 
o|substituted constant variable: r884314785 
o|substituted constant variable: r884314785 
o|substituted constant variable: r884314787 
o|substituted constant variable: r884314787 
o|substituted constant variable: r887314792 
o|substituted constant variable: r889714794 
o|substituted constant variable: r897114801 
o|substituted constant variable: r897114801 
o|substituted constant variable: r905314817 
o|substituted constant variable: r905314817 
o|substituted constant variable: r905314819 
o|substituted constant variable: r905314819 
o|inlining procedure: k9058 
o|substituted constant variable: r909414829 
o|substituted constant variable: r909414829 
o|substituted constant variable: r909414831 
o|substituted constant variable: r909414831 
o|substituted constant variable: r1054314914 
o|substituted constant variable: r1054314914 
o|substituted constant variable: r1054314916 
o|substituted constant variable: r1054314916 
o|propagated global variable: stubs2014 chicken.compiler.support#foreign-callback-stubs 
o|substituted constant variable: r984114943 
o|propagated global variable: stubs1903 chicken.compiler.core#foreign-lambda-stubs 
o|substituted constant variable: r937914951 
o|inlining procedure: k9428 
o|inlining procedure: k9428 
o|substituted constant variable: r945514960 
o|substituted constant variable: r1140915018 
o|substituted constant variable: r1187015033 
o|substituted constant variable: r1188515035 
o|substituted constant variable: r1190015037 
o|substituted constant variable: r1191215039 
o|substituted constant variable: r1193015041 
o|substituted constant variable: r1194515043 
o|substituted constant variable: r1195715045 
o|substituted constant variable: r1196915047 
o|substituted constant variable: r1198415049 
o|substituted constant variable: r1199615051 
o|substituted constant variable: r1201115053 
o|substituted constant variable: r1202615055 
o|substituted constant variable: r1203815057 
o|substituted constant variable: r1205015059 
o|substituted constant variable: r1206215061 
o|substituted constant variable: r1207415063 
o|substituted constant variable: r1208615065 
o|substituted constant variable: r1209815067 
o|substituted constant variable: r1211015069 
o|substituted constant variable: r1212215071 
o|substituted constant variable: r1213415073 
o|substituted constant variable: r1214615075 
o|substituted constant variable: r1216115077 
o|substituted constant variable: r1220315081 
o|substituted constant variable: r1221515083 
o|substituted constant variable: r1222715085 
o|substituted constant variable: r1223915087 
o|substituted constant variable: r1225815089 
o|substituted constant variable: r1264515107 
o|substituted constant variable: r1266315109 
o|substituted constant variable: r1267815111 
o|substituted constant variable: r1269015113 
o|substituted constant variable: r1298115125 
o|substituted constant variable: r1356715149 
o|substituted constant variable: r1356715150 
o|removed side-effect free assignment to unused variable: getbits2939 
o|removed side-effect free assignment to unused variable: getsize2940 
o|substituted constant variable: r1364915153 
o|substituted constant variable: r1367215155 
o|substituted constant variable: r1368415157 
o|substituted constant variable: r1403515183 
o|substituted constant variable: r1408215185 
o|substituted constant variable: r1408215186 
o|replaced variables: 391 
o|removed binding forms: 2689 
o|inlining procedure: "(c-backend.scm:287) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:297) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:302) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: k6012 
o|inlining procedure: "(c-backend.scm:324) chicken.compiler.c-backend#backslashify" 
o|inlining procedure: "(c-backend.scm:325) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:319) chicken.compiler.c-backend#fifth" 
o|inlining procedure: k6469 
o|inlining procedure: k6532 
o|inlining procedure: k6568 
o|inlining procedure: "(c-backend.scm:451) chicken.compiler.c-backend#backslashify" 
o|inlining procedure: "(c-backend.scm:452) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:444) chicken.compiler.c-backend#fifth" 
o|inlining procedure: k7255 
o|inlining procedure: k7307 
o|inlining procedure: k7698 
o|inlining procedure: k7698 
o|propagated global variable: r874914775 chicken.compiler.core#unit-name 
o|inlining procedure: k8784 
o|inlining procedure: k8890 
o|inlining procedure: k8890 
o|inlining procedure: k9001 
o|inlining procedure: k9001 
o|inlining procedure: "(c-backend.scm:629) chicken.compiler.c-backend#uncommentify" 
o|inlining procedure: "(c-backend.scm:981) chicken.compiler.c-backend#backslashify" 
o|inlining procedure: k4605 
o|inlining procedure: k9415 
o|inlining procedure: k10653 
o|inlining procedure: k11447 
o|inlining procedure: k13642 
o|inlining procedure: k13642 
o|inlining procedure: k13642 
o|inlining procedure: k13642 
o|inlining procedure: k13642 
o|inlining procedure: k13879 
o|inlining procedure: k13901 
o|inlining procedure: k13905 
o|inlining procedure: k13950 
o|converted assignments to bindings: (encode-size2941) 
o|simplifications: ((let . 1)) 
o|replaced variables: 45 
o|removed binding forms: 504 
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|substituted constant variable: r725615468 
o|substituted constant variable: r725615468 
o|inlining procedure: k7920 
o|inlining procedure: k7949 
o|inlining procedure: k7949 
o|substituted constant variable: r889115509 
o|substituted constant variable: r889115510 
o|substituted constant variable: r460615549 
o|substituted constant variable: r1144815571 
o|contracted procedure: k13917 
o|replaced variables: 27 
o|removed binding forms: 30 
o|removed conditional forms: 3 
o|substituted constant variable: r1364315574 
o|substituted constant variable: r1364315577 
o|substituted constant variable: r1364315580 
o|substituted constant variable: r1364315583 
o|substituted constant variable: r1364315586 
o|removed binding forms: 39 
o|removed binding forms: 6 
o|simplifications: ((let . 37) (if . 92) (##core#call . 913)) 
o|  call simplifications:
o|    scheme#string->list
o|    scheme#list->string
o|    scheme#eof-object?
o|    chicken.fixnum#fxlen
o|    chicken.fixnum#fx>	2
o|    scheme#list?	7
o|    scheme#string-length
o|    scheme#string-ref	2
o|    scheme#string-set!	3
o|    scheme#-	3
o|    scheme#string?	3
o|    chicken.base#bignum?
o|    chicken.base#flonum?	2
o|    ##sys#generic-structure?
o|    chicken.base#ratnum?
o|    chicken.base#cplxnum?
o|    chicken.base#void	2
o|    scheme#boolean?
o|    scheme#char?	2
o|    scheme#symbol?	7
o|    chicken.base#fixnum?	3
o|    ##sys#immediate?	4
o|    chicken.fixnum#fx-	4
o|    scheme#apply	9
o|    ##sys#size	12
o|    chicken.bitwise#arithmetic-shift	7
o|    ##sys#byte	2
o|    chicken.bitwise#bitwise-and	9
o|    ##sys#setslot	5
o|    scheme#<	7
o|    scheme#>=	9
o|    scheme#null?	15
o|    scheme#cdr	8
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	41
o|    scheme#+	20
o|    scheme#>	5
o|    scheme#caddr	9
o|    scheme#vector?	2
o|    scheme#vector-ref	8
o|    scheme#car	90
o|    scheme#char->integer	3
o|    scheme#cadr	45
o|    scheme#pair?	49
o|    scheme#eq?	343
o|    ##sys#slot	89
o|    chicken.fixnum#fx>=	5
o|    chicken.fixnum#fx+	3
o|    scheme#cons	18
o|contracted procedure: k4431 
o|contracted procedure: k4446 
o|contracted procedure: k4713 
o|contracted procedure: k4723 
o|contracted procedure: k4727 
o|contracted procedure: k4695 
o|contracted procedure: k4750 
o|contracted procedure: k4760 
o|contracted procedure: k4764 
o|contracted procedure: k4878 
o|contracted procedure: k4881 
o|contracted procedure: k4887 
o|contracted procedure: k4897 
o|contracted procedure: k4903 
o|contracted procedure: k4914 
o|contracted procedure: k4910 
o|contracted procedure: k4920 
o|contracted procedure: k4929 
o|contracted procedure: k4936 
o|contracted procedure: k4942 
o|contracted procedure: k4951 
o|contracted procedure: k4975 
o|contracted procedure: k4978 
o|contracted procedure: k4984 
o|contracted procedure: k4991 
o|contracted procedure: k4998 
o|contracted procedure: k5004 
o|contracted procedure: k5007 
o|contracted procedure: k5040 
o|contracted procedure: k5065 
o|contracted procedure: k5069 
o|contracted procedure: k5073 
o|contracted procedure: k5079 
o|contracted procedure: k5086 
o|contracted procedure: k5092 
o|contracted procedure: k5099 
o|contracted procedure: k5108 
o|contracted procedure: k5130 
o|contracted procedure: k5137 
o|contracted procedure: k5143 
o|contracted procedure: k5146 
o|contracted procedure: k5162 
o|contracted procedure: k5166 
o|contracted procedure: k5172 
o|contracted procedure: k5179 
o|contracted procedure: k5185 
o|contracted procedure: k5198 
o|contracted procedure: k5204 
o|contracted procedure: k5217 
o|contracted procedure: k5223 
o|contracted procedure: k5240 
o|contracted procedure: k5236 
o|contracted procedure: k5244 
o|contracted procedure: k5250 
o|contracted procedure: k5256 
o|contracted procedure: k5269 
o|contracted procedure: k5290 
o|contracted procedure: k5296 
o|contracted procedure: k5309 
o|contracted procedure: k5330 
o|contracted procedure: k5336 
o|contracted procedure: k5349 
o|contracted procedure: k5370 
o|contracted procedure: k5383 
o|contracted procedure: k5389 
o|contracted procedure: k5408 
o|contracted procedure: k5412 
o|contracted procedure: k5416 
o|contracted procedure: k5422 
o|contracted procedure: k5441 
o|contracted procedure: k5449 
o|contracted procedure: k5445 
o|contracted procedure: k5453 
o|contracted procedure: k5459 
o|contracted procedure: k5478 
o|contracted procedure: k5482 
o|contracted procedure: k5488 
o|contracted procedure: k5507 
o|contracted procedure: k5511 
o|contracted procedure: k5517 
o|contracted procedure: k5520 
o|contracted procedure: k5540 
o|contracted procedure: k5543 
o|contracted procedure: k5585 
o|contracted procedure: k5560 
o|contracted procedure: k5570 
o|contracted procedure: k5574 
o|contracted procedure: k5578 
o|contracted procedure: k5582 
o|contracted procedure: k5594 
o|contracted procedure: k5607 
o|contracted procedure: k5613 
o|contracted procedure: k5620 
o|contracted procedure: k5626 
o|contracted procedure: k5636 
o|contracted procedure: k5640 
o|contracted procedure: k5646 
o|contracted procedure: k5649 
o|contracted procedure: k5652 
o|contracted procedure: k5655 
o|contracted procedure: k5679 
o|contracted procedure: k5694 
o|contracted procedure: k5697 
o|contracted procedure: k5700 
o|contracted procedure: k5703 
o|contracted procedure: k5719 
o|contracted procedure: k5739 
o|contracted procedure: k5742 
o|contracted procedure: k5745 
o|contracted procedure: k5748 
o|contracted procedure: k5764 
o|contracted procedure: k5785 
o|contracted procedure: k5799 
o|contracted procedure: k5808 
o|contracted procedure: k5811 
o|contracted procedure: k5814 
o|contracted procedure: k5818 
o|contracted procedure: k5821 
o|contracted procedure: k6320 
o|contracted procedure: k5824 
o|contracted procedure: k5827 
o|contracted procedure: k5849 
o|contracted procedure: k5865 
o|contracted procedure: k5894 
o|contracted procedure: k5908 
o|contracted procedure: k5954 
o|contracted procedure: k5929 
o|contracted procedure: k5939 
o|contracted procedure: k5943 
o|contracted procedure: k5947 
o|contracted procedure: k5951 
o|contracted procedure: k5991 
o|contracted procedure: k5966 
o|contracted procedure: k5976 
o|contracted procedure: k5980 
o|contracted procedure: k5984 
o|contracted procedure: k5988 
o|contracted procedure: k6046 
o|contracted procedure: k6067 
o|contracted procedure: k6086 
o|contracted procedure: k6089 
o|contracted procedure: k6092 
o|contracted procedure: k6158 
o|contracted procedure: k6236 
o|contracted procedure: k6242 
o|contracted procedure: k6248 
o|contracted procedure: k6268 
o|contracted procedure: k396915430 
o|contracted procedure: k6313 
o|contracted procedure: k6306 
o|contracted procedure: k6326 
o|contracted procedure: k6329 
o|contracted procedure: k6333 
o|contracted procedure: k6336 
o|contracted procedure: k6363 
o|contracted procedure: k6377 
o|contracted procedure: k6417 
o|contracted procedure: k6392 
o|contracted procedure: k6402 
o|contracted procedure: k6406 
o|contracted procedure: k6410 
o|contracted procedure: k6414 
o|contracted procedure: k6454 
o|contracted procedure: k6429 
o|contracted procedure: k6439 
o|contracted procedure: k6443 
o|contracted procedure: k6447 
o|contracted procedure: k6451 
o|contracted procedure: k6484 
o|contracted procedure: k6487 
o|contracted procedure: k6490 
o|contracted procedure: k6494 
o|contracted procedure: k6497 
o|contracted procedure: k6503 
o|contracted procedure: k396915459 
o|contracted procedure: k6506 
o|contracted procedure: k6509 
o|contracted procedure: k6541 
o|contracted procedure: k6553 
o|contracted procedure: k6565 
o|contracted procedure: k6568 
o|contracted procedure: k6583 
o|contracted procedure: k6616 
o|contracted procedure: k6623 
o|contracted procedure: k6629 
o|contracted procedure: k6632 
o|contracted procedure: k6651 
o|contracted procedure: k6657 
o|contracted procedure: k6670 
o|contracted procedure: k6676 
o|contracted procedure: k6689 
o|contracted procedure: k6695 
o|contracted procedure: k6702 
o|contracted procedure: k6712 
o|contracted procedure: k6724 
o|contracted procedure: k6734 
o|contracted procedure: k6738 
o|contracted procedure: k6744 
o|contracted procedure: k6755 
o|contracted procedure: k6759 
o|contracted procedure: k6765 
o|contracted procedure: k6768 
o|contracted procedure: k6781 
o|contracted procedure: k6785 
o|contracted procedure: k6799 
o|contracted procedure: k6802 
o|contracted procedure: k6815 
o|contracted procedure: k6829 
o|contracted procedure: k6832 
o|contracted procedure: k6851 
o|contracted procedure: k6859 
o|contracted procedure: k6869 
o|contracted procedure: k6885 
o|contracted procedure: k6889 
o|contracted procedure: k6909 
o|contracted procedure: k6930 
o|contracted procedure: k6934 
o|contracted procedure: k6938 
o|contracted procedure: k6942 
o|contracted procedure: k6948 
o|contracted procedure: k6973 
o|contracted procedure: k6977 
o|contracted procedure: k6981 
o|contracted procedure: k7087 
o|contracted procedure: k7102 
o|contracted procedure: k7105 
o|contracted procedure: k7123 
o|contracted procedure: k7126 
o|contracted procedure: k7129 
o|contracted procedure: k7157 
o|contracted procedure: k7162 
o|contracted procedure: k7184 
o|contracted procedure: k7193 
o|contracted procedure: k7213 
o|contracted procedure: k7219 
o|contracted procedure: k7231 
o|contracted procedure: k7264 
o|contracted procedure: k7255 
o|contracted procedure: k7316 
o|contracted procedure: k7336 
o|contracted procedure: k7346 
o|contracted procedure: k7350 
o|contracted procedure: k7356 
o|contracted procedure: k7365 
o|contracted procedure: k7376 
o|contracted procedure: k7396 
o|contracted procedure: k7399 
o|contracted procedure: k7402 
o|contracted procedure: k7410 
o|contracted procedure: k7418 
o|contracted procedure: k7445 
o|contracted procedure: k7456 
o|contracted procedure: k7459 
o|contracted procedure: k7465 
o|contracted procedure: k7486 
o|contracted procedure: k7489 
o|contracted procedure: k7492 
o|contracted procedure: k7516 
o|contracted procedure: k7544 
o|contracted procedure: k7556 
o|contracted procedure: k7560 
o|contracted procedure: k7571 
o|contracted procedure: k7564 
o|contracted procedure: k7574 
o|contracted procedure: k7587 
o|contracted procedure: k7597 
o|contracted procedure: k7601 
o|contracted procedure: k7610 
o|contracted procedure: k7613 
o|contracted procedure: k7616 
o|contracted procedure: k7624 
o|contracted procedure: k7632 
o|propagated global variable: g13011305 chicken.compiler.core#used-units 
o|contracted procedure: k7784 
o|contracted procedure: k7796 
o|contracted procedure: k7806 
o|contracted procedure: k7810 
o|contracted procedure: k7646 
o|contracted procedure: k7707 
o|contracted procedure: k7716 
o|contracted procedure: k7768 
o|contracted procedure: k7730 
o|contracted procedure: k7905 
o|contracted procedure: k7917 
o|contracted procedure: k7927 
o|contracted procedure: k7931 
o|contracted procedure: k7845 
o|contracted procedure: k7892 
o|contracted procedure: k7864 
o|contracted procedure: k7830 
o|contracted procedure: k792715647 
o|contracted procedure: k7946 
o|contracted procedure: k7960 
o|contracted procedure: k8420 
o|contracted procedure: k8292 
o|propagated global variable: r8421 ##sys#undefined-value 
o|contracted procedure: k8301 
o|contracted procedure: k8314 
o|contracted procedure: k8321 
o|contracted procedure: k8330 
o|contracted procedure: k8359 
o|contracted procedure: k8355 
o|contracted procedure: k8339 
o|contracted procedure: k8342 
o|contracted procedure: k8365 
o|contracted procedure: k8413 
o|contracted procedure: k8409 
o|contracted procedure: k8371 
o|contracted procedure: k8380 
o|contracted procedure: k8406 
o|contracted procedure: k8423 
o|contracted procedure: k8006 
o|contracted procedure: k8012 
o|contracted procedure: k8018 
o|contracted procedure: k8024 
o|contracted procedure: k8036 
o|contracted procedure: k8057 
o|contracted procedure: k8064 
o|contracted procedure: k8068 
o|contracted procedure: k8077 
o|contracted procedure: k8089 
o|contracted procedure: k8096 
o|contracted procedure: k8104 
o|contracted procedure: k8100 
o|contracted procedure: k8113 
o|contracted procedure: k8116 
o|contracted procedure: k8119 
o|contracted procedure: k8127 
o|contracted procedure: k8135 
o|contracted procedure: k8151 
o|contracted procedure: k8174 
o|contracted procedure: k8180 
o|contracted procedure: k8183 
o|contracted procedure: k8198 
o|contracted procedure: k8207 
o|contracted procedure: k8215 
o|contracted procedure: k8221 
o|contracted procedure: k8228 
o|contracted procedure: k8246 
o|contracted procedure: k8253 
o|contracted procedure: k8438 
o|contracted procedure: k8463 
o|contracted procedure: k8669 
o|contracted procedure: k8662 
o|contracted procedure: k8560 
o|contracted procedure: k8579 
o|contracted procedure: k8596 
o|contracted procedure: k8600 
o|contracted procedure: k8609 
o|contracted procedure: k8615 
o|contracted procedure: k8633 
o|contracted procedure: k8645 
o|contracted procedure: k8672 
o|contracted procedure: k8684 
o|contracted procedure: k8725 
o|contracted procedure: k8712 
o|contracted procedure: k8757 
o|contracted procedure: k8764 
o|contracted procedure: k8772 
o|contracted procedure: k8799 
o|contracted procedure: k8805 
o|contracted procedure: k8811 
o|contracted procedure: k8832 
o|contracted procedure: k8857 
o|contracted procedure: k8863 
o|contracted procedure: k8875 
o|contracted procedure: k8881 
o|contracted procedure: k8899 
o|contracted procedure: k8890 
o|contracted procedure: k8919 
o|contracted procedure: k8931 
o|contracted procedure: k8941 
o|contracted procedure: k8945 
o|contracted procedure: k8974 
o|contracted procedure: k8986 
o|contracted procedure: k8997 
o|contracted procedure: k9010 
o|contracted procedure: k9019 
o|contracted procedure: k9068 
o|contracted procedure: k9033 
o|contracted procedure: k9079 
o|contracted procedure: k9086 
o|contracted procedure: k9104 
o|contracted procedure: k9116 
o|contracted procedure: k9126 
o|contracted procedure: k9130 
o|contracted procedure: k9305 
o|contracted procedure: k9315 
o|contracted procedure: k9353 
o|contracted procedure: k9363 
o|contracted procedure: k9367 
o|contracted procedure: k9372 
o|contracted procedure: k9251 
o|contracted procedure: k9266 
o|contracted procedure: k9276 
o|contracted procedure: k9280 
o|contracted procedure: k9209 
o|contracted procedure: k9212 
o|contracted procedure: k9227 
o|contracted procedure: k9237 
o|contracted procedure: k9241 
o|contracted procedure: k9192 
o|contracted procedure: k9245 
o|contracted procedure: k9290 
o|contracted procedure: k9294 
o|contracted procedure: k9956 
o|contracted procedure: k9968 
o|contracted procedure: k9977 
o|contracted procedure: k9989 
o|contracted procedure: k9992 
o|contracted procedure: k10001 
o|contracted procedure: k10013 
o|contracted procedure: k10025 
o|contracted procedure: k10037 
o|contracted procedure: k10058 
o|contracted procedure: k10067 
o|contracted procedure: k10074 
o|contracted procedure: k10086 
o|contracted procedure: k10093 
o|contracted procedure: k10098 
o|contracted procedure: k10104 
o|contracted procedure: k10110 
o|contracted procedure: k10116 
o|contracted procedure: k10122 
o|contracted procedure: k10128 
o|contracted procedure: k10134 
o|contracted procedure: k10161 
o|contracted procedure: k10167 
o|contracted procedure: k10173 
o|contracted procedure: k10179 
o|contracted procedure: k10198 
o|contracted procedure: k10204 
o|contracted procedure: k10210 
o|contracted procedure: k10229 
o|contracted procedure: k10235 
o|contracted procedure: k10252 
o|contracted procedure: k10258 
o|contracted procedure: k10264 
o|contracted procedure: k10270 
o|contracted procedure: k10276 
o|contracted procedure: k10306 
o|contracted procedure: k10312 
o|contracted procedure: k10318 
o|contracted procedure: k10324 
o|contracted procedure: k10345 
o|contracted procedure: k10351 
o|contracted procedure: k10357 
o|contracted procedure: k10363 
o|contracted procedure: k10369 
o|contracted procedure: k10375 
o|contracted procedure: k10381 
o|contracted procedure: k10387 
o|contracted procedure: k10393 
o|contracted procedure: k10399 
o|contracted procedure: k10405 
o|contracted procedure: k10488 
o|contracted procedure: k10494 
o|contracted procedure: k10535 
o|contracted procedure: k10510 
o|contracted procedure: k10520 
o|contracted procedure: k10524 
o|contracted procedure: k10528 
o|contracted procedure: k10532 
o|contracted procedure: k10560 
o|contracted procedure: k10567 
o|contracted procedure: k10571 
o|contracted procedure: k10582 
o|contracted procedure: k10594 
o|contracted procedure: k10604 
o|contracted procedure: k10608 
o|propagated global variable: stubs2014 chicken.compiler.support#foreign-callback-stubs 
o|contracted procedure: k9615 
o|contracted procedure: k9699 
o|contracted procedure: k9702 
o|contracted procedure: k9768 
o|contracted procedure: k9792 
o|contracted procedure: k9782 
o|contracted procedure: k9814 
o|contracted procedure: k9818 
o|contracted procedure: k9822 
o|contracted procedure: k9826 
o|contracted procedure: k9830 
o|contracted procedure: k9834 
o|contracted procedure: k9837 
o|contracted procedure: k9843 
o|contracted procedure: k9861 
o|contracted procedure: k9873 
o|contracted procedure: k9890 
o|contracted procedure: k4614 
o|contracted procedure: k4605 
o|contracted procedure: k9910 
o|contracted procedure: k9922 
o|contracted procedure: k9932 
o|contracted procedure: k9936 
o|propagated global variable: stubs1903 chicken.compiler.core#foreign-lambda-stubs 
o|contracted procedure: k9529 
o|contracted procedure: k9541 
o|contracted procedure: k9551 
o|contracted procedure: k9555 
o|contracted procedure: k9509 
o|contracted procedure: k9512 
o|contracted procedure: k9515 
o|contracted procedure: k9522 
o|contracted procedure: k4821 
o|contracted procedure: k4825 
o|contracted procedure: k4836 
o|contracted procedure: k4832 
o|contracted procedure: k9381 
o|contracted procedure: k9394 
o|contracted procedure: k9406 
o|contracted procedure: k9412 
o|inlining procedure: k9415 
o|inlining procedure: k9415 
o|contracted procedure: k9462 
o|contracted procedure: k9572 
o|contracted procedure: k9584 
o|contracted procedure: k9594 
o|contracted procedure: k9598 
o|contracted procedure: k10626 
o|contracted procedure: k10647 
o|contracted procedure: k10663 
o|contracted procedure: k10676 
o|contracted procedure: k10680 
o|contracted procedure: k10703 
o|contracted procedure: k10712 
o|contracted procedure: k10715 
o|contracted procedure: k10724 
o|contracted procedure: k10727 
o|contracted procedure: k10736 
o|contracted procedure: k10739 
o|contracted procedure: k10748 
o|contracted procedure: k10751 
o|contracted procedure: k10760 
o|contracted procedure: k10772 
o|contracted procedure: k10781 
o|contracted procedure: k10790 
o|contracted procedure: k10793 
o|contracted procedure: k10802 
o|contracted procedure: k10811 
o|contracted procedure: k10820 
o|contracted procedure: k10829 
o|contracted procedure: k10838 
o|contracted procedure: k10847 
o|contracted procedure: k10856 
o|contracted procedure: k10865 
o|contracted procedure: k10868 
o|contracted procedure: k10877 
o|contracted procedure: k10880 
o|contracted procedure: k10889 
o|contracted procedure: k10901 
o|contracted procedure: k10904 
o|contracted procedure: k10910 
o|contracted procedure: k10922 
o|contracted procedure: k10925 
o|contracted procedure: k10934 
o|contracted procedure: k10937 
o|contracted procedure: k10946 
o|contracted procedure: k10949 
o|contracted procedure: k10958 
o|contracted procedure: k10961 
o|contracted procedure: k10970 
o|contracted procedure: k10973 
o|contracted procedure: k10982 
o|contracted procedure: k10985 
o|contracted procedure: k10994 
o|contracted procedure: k10997 
o|contracted procedure: k11006 
o|contracted procedure: k11009 
o|contracted procedure: k11018 
o|contracted procedure: k11021 
o|contracted procedure: k11030 
o|contracted procedure: k11033 
o|contracted procedure: k11042 
o|contracted procedure: k11045 
o|contracted procedure: k11054 
o|contracted procedure: k11066 
o|contracted procedure: k11078 
o|contracted procedure: k11096 
o|contracted procedure: k11105 
o|contracted procedure: k11114 
o|contracted procedure: k11128 
o|contracted procedure: k11145 
o|contracted procedure: k11174 
o|contracted procedure: k11182 
o|contracted procedure: k11185 
o|contracted procedure: k11197 
o|contracted procedure: k11200 
o|contracted procedure: k11203 
o|contracted procedure: k11211 
o|contracted procedure: k11219 
o|contracted procedure: k11226 
o|contracted procedure: k11243 
o|contracted procedure: k11281 
o|contracted procedure: k11255 
o|contracted procedure: k11277 
o|contracted procedure: k11319 
o|contracted procedure: k11293 
o|contracted procedure: k11315 
o|contracted procedure: k11336 
o|contracted procedure: k11353 
o|contracted procedure: k11370 
o|contracted procedure: k11379 
o|contracted procedure: k11382 
o|contracted procedure: k11457 
o|contracted procedure: k11388 
o|contracted procedure: k11403 
o|contracted procedure: k11417 
o|contracted procedure: k11429 
o|contracted procedure: k11435 
o|contracted procedure: k11443 
o|contracted procedure: k11451 
o|contracted procedure: k11411 
o|contracted procedure: k11466 
o|contracted procedure: k11473 
o|contracted procedure: k11478 
o|contracted procedure: k11485 
o|contracted procedure: k11490 
o|contracted procedure: k11494 
o|contracted procedure: k11500 
o|contracted procedure: k11507 
o|contracted procedure: k11512 
o|contracted procedure: k11519 
o|contracted procedure: k11524 
o|contracted procedure: k11531 
o|contracted procedure: k11536 
o|contracted procedure: k11543 
o|contracted procedure: k11548 
o|contracted procedure: k11555 
o|contracted procedure: k11560 
o|contracted procedure: k11567 
o|contracted procedure: k11572 
o|contracted procedure: k11576 
o|contracted procedure: k11585 
o|contracted procedure: k11593 
o|contracted procedure: k11599 
o|contracted procedure: k11616 
o|contracted procedure: k11622 
o|contracted procedure: k11628 
o|contracted procedure: k11724 
o|contracted procedure: k11730 
o|contracted procedure: k11754 
o|contracted procedure: k11760 
o|contracted procedure: k11816 
o|contracted procedure: k11872 
o|contracted procedure: k11878 
o|contracted procedure: k11881 
o|contracted procedure: k11887 
o|contracted procedure: k11896 
o|contracted procedure: k11902 
o|contracted procedure: k11908 
o|contracted procedure: k11914 
o|contracted procedure: k11923 
o|contracted procedure: k11926 
o|contracted procedure: k11932 
o|contracted procedure: k11935 
o|contracted procedure: k11941 
o|contracted procedure: k11947 
o|contracted procedure: k11953 
o|contracted procedure: k11959 
o|contracted procedure: k11965 
o|contracted procedure: k11971 
o|contracted procedure: k11974 
o|contracted procedure: k11980 
o|contracted procedure: k11986 
o|contracted procedure: k11992 
o|contracted procedure: k11998 
o|contracted procedure: k12004 
o|contracted procedure: k12007 
o|contracted procedure: k12013 
o|contracted procedure: k12016 
o|contracted procedure: k12022 
o|contracted procedure: k12028 
o|contracted procedure: k12034 
o|contracted procedure: k12040 
o|contracted procedure: k12046 
o|contracted procedure: k12052 
o|contracted procedure: k12058 
o|contracted procedure: k12064 
o|contracted procedure: k12070 
o|contracted procedure: k12076 
o|contracted procedure: k12082 
o|contracted procedure: k12088 
o|contracted procedure: k12094 
o|contracted procedure: k12100 
o|contracted procedure: k12106 
o|contracted procedure: k12112 
o|contracted procedure: k12118 
o|contracted procedure: k12124 
o|contracted procedure: k12130 
o|contracted procedure: k12136 
o|contracted procedure: k12142 
o|contracted procedure: k12148 
o|contracted procedure: k12154 
o|contracted procedure: k12163 
o|contracted procedure: k12172 
o|contracted procedure: k12187 
o|contracted procedure: k12399 
o|contracted procedure: k12196 
o|contracted procedure: k12199 
o|contracted procedure: k12205 
o|contracted procedure: k12211 
o|contracted procedure: k12217 
o|contracted procedure: k12223 
o|contracted procedure: k12229 
o|contracted procedure: k12235 
o|contracted procedure: k12241 
o|contracted procedure: k12247 
o|contracted procedure: k12254 
o|contracted procedure: k12260 
o|contracted procedure: k12266 
o|contracted procedure: k12269 
o|contracted procedure: k12331 
o|contracted procedure: k12275 
o|contracted procedure: k12325 
o|contracted procedure: k12337 
o|contracted procedure: k12348 
o|contracted procedure: k12354 
o|contracted procedure: k12361 
o|contracted procedure: k12408 
o|contracted procedure: k12416 
o|contracted procedure: k12422 
o|contracted procedure: k12428 
o|contracted procedure: k12447 
o|contracted procedure: k12453 
o|contracted procedure: k12567 
o|contracted procedure: k12588 
o|contracted procedure: k12594 
o|contracted procedure: k12600 
o|contracted procedure: k12606 
o|contracted procedure: k12647 
o|contracted procedure: k12650 
o|contracted procedure: k12656 
o|contracted procedure: k12659 
o|contracted procedure: k12665 
o|contracted procedure: k12668 
o|contracted procedure: k12674 
o|contracted procedure: k12680 
o|contracted procedure: k12686 
o|contracted procedure: k12692 
o|contracted procedure: k12698 
o|contracted procedure: k12701 
o|contracted procedure: k12725 
o|contracted procedure: k12728 
o|contracted procedure: k12752 
o|contracted procedure: k12776 
o|contracted procedure: k12803 
o|contracted procedure: k12827 
o|contracted procedure: k12830 
o|contracted procedure: k12854 
o|contracted procedure: k12857 
o|contracted procedure: k12881 
o|contracted procedure: k12884 
o|contracted procedure: k12908 
o|contracted procedure: k12911 
o|contracted procedure: k12935 
o|contracted procedure: k12959 
o|contracted procedure: k12983 
o|contracted procedure: k12989 
o|contracted procedure: k12992 
o|contracted procedure: k13007 
o|contracted procedure: k13357 
o|contracted procedure: k13016 
o|contracted procedure: k13019 
o|contracted procedure: k13025 
o|contracted procedure: k13028 
o|contracted procedure: k13052 
o|contracted procedure: k13076 
o|contracted procedure: k13079 
o|contracted procedure: k13153 
o|contracted procedure: k13085 
o|contracted procedure: k13147 
o|contracted procedure: k13159 
o|contracted procedure: k13183 
o|contracted procedure: k13207 
o|contracted procedure: k13231 
o|contracted procedure: k13238 
o|contracted procedure: k13244 
o|contracted procedure: k13247 
o|contracted procedure: k13271 
o|contracted procedure: k13295 
o|contracted procedure: k13366 
o|contracted procedure: k13415 
o|contracted procedure: k13421 
o|contracted procedure: k13427 
o|contracted procedure: k13433 
o|contracted procedure: k13439 
o|contracted procedure: k13445 
o|contracted procedure: k13451 
o|contracted procedure: k13457 
o|contracted procedure: k13463 
o|contracted procedure: k13469 
o|contracted procedure: k13563 
o|contracted procedure: k13569 
o|contracted procedure: k13629 
o|contracted procedure: k13587 
o|contracted procedure: k13609 
o|contracted procedure: k13617 
o|contracted procedure: k13613 
o|contracted procedure: k13625 
o|contracted procedure: k13621 
o|contracted procedure: k13645 
o|contracted procedure: k13651 
o|contracted procedure: k13657 
o|contracted procedure: k13668 
o|contracted procedure: k13674 
o|contracted procedure: k13680 
o|contracted procedure: k13964 
o|contracted procedure: k13686 
o|propagated global variable: r13965 ##sys#undefined-value 
o|contracted procedure: k13715 
o|contracted procedure: k13723 
o|contracted procedure: k13719 
o|contracted procedure: k13731 
o|contracted procedure: k13727 
o|contracted procedure: k13739 
o|contracted procedure: k13735 
o|contracted procedure: k13764 
o|contracted procedure: k13760 
o|contracted procedure: k13756 
o|contracted procedure: k13772 
o|contracted procedure: k13792 
o|contracted procedure: k13811 
o|contracted procedure: k13807 
o|contracted procedure: k13817 
o|contracted procedure: k13823 
o|contracted procedure: k13842 
o|contracted procedure: k13838 
o|contracted procedure: k13848 
o|contracted procedure: k13867 
o|contracted procedure: k13875 
o|contracted procedure: k13871 
o|contracted procedure: k13911 
o|contracted procedure: k3853 
o|contracted procedure: k3864 
o|contracted procedure: k13946 
o|contracted procedure: k13953 
o|contracted procedure: k14010 
o|contracted procedure: k13973 
o|contracted procedure: k13985 
o|contracted procedure: k13998 
o|contracted procedure: k14006 
o|contracted procedure: k14020 
o|contracted procedure: k14037 
o|contracted procedure: k14043 
o|contracted procedure: k14049 
o|contracted procedure: k14078 
o|contracted procedure: k14084 
o|contracted procedure: k14100 
o|contracted procedure: k14112 
o|contracted procedure: k14116 
o|simplifications: ((if . 13) (##core#call . 12) (let . 281)) 
o|  call simplifications:
o|    scheme#+	12
o|removed binding forms: 843 
o|contracted procedure: k5836 
o|contracted procedure: k8383 
o|contracted procedure: k9415 
o|contracted procedure: k11121 
o|contracted procedure: k11138 
o|contracted procedure: k11155 
o|contracted procedure: k11232 
o|contracted procedure: k11249 
o|contracted procedure: k11287 
o|contracted procedure: k11325 
o|contracted procedure: k11342 
o|contracted procedure: k11359 
o|contracted procedure: k11376 
o|contracted procedure: k14040 
o|removed binding forms: 14 
o|customizable procedures: (k14052 k14059 loop2981 doloop29742975 k13692 loop303 chicken.compiler.c-backend#byteblock->string encode-size2941 chicken.compiler.c-backend#oct k13554 k12779 err2577 g27862787 k11890 k11917 k12157 k12166 err2461 k10763 k10892 k10913 k11057 k11069 err2255 k11432 map-loop24342452 map-loop23862411 g23732374 str2256 loop2244 for-each-loop18841897 k9425 loop1831 header714 declarations716 for-each-loop18601874 g19081915 for-each-loop19072008 doloop19501951 k9804 for-each-loop19371976 prototypes717 g20192026 for-each-loop20182230 loop2191 chicken.compiler.c-backend#generate-foreign-callback-header for-each-loop21982212 k9971 k9980 k10004 k10016 k10028 k10040 k10077 g21572158 compute-size2035 trampolines718 for-each-loop17691780 for-each-loop17561789 procedures723 g18021809 for-each-loop18011815 g15391546 for-each-loop15381722 k8460 chicken.compiler.c-backend#cleanup k8526 doloop15961597 k8949 doloop16011602 for-each-loop16091620 k8851 k8793 g16321637 foldl16341641 literal-frame719 doloop16801681 doloop16881689 expression713 va16099 va16097 loop1505 map-loop14751492 foldl14681499 va16089 literal-size721 va16087 k8277 chicken.compiler.c-backend#encode-literal doloop14381439 k7855 k7858 doloop14091410 chicken.compiler.c-backend#make-argument-list for-each-loop13991432 k7656 chicken.compiler.c-backend#make-variable-list for-each-loop13441388 map-loop12891306 for-each-loop12751313 doloop13231325 doloop13241329 doloop12831318 map-loop12121237 chicken.compiler.c-backend#gen-list for-each-loop12471258 chicken.compiler.c-backend#generate-foreign-callback-stub-prototypes k7165 doloop11841197 contains-restop?733 loop1159 loop1153 doloop11311132 chicken.compiler.c-backend#foreign-argument-conversion chicken.compiler.c-backend#foreign-result-conversion va16055 g10321051 for-each-loop10311058 for-each-loop10421071 k5833 find-lambda712 k5839 k6080 k6214 expr-args732 va16049 g915934 for-each-loop914941 for-each-loop925954 push-args734 chicken.compiler.c-backend#c-ify-string chicken.compiler.c-backend#list-tabulate g827835 for-each-loop826842 k5339 k5299 k5259 loop765 expr731 for-each-loop670681 for-each-loop646661 loop521) 
o|shared closure containers: 136 
o|shared closure users: 199 
o|calls to known targets: 864 
o|identified direct recursive calls: f_8084 1 
o|unused rest argument: _58115551 f15552 
o|unused rest argument: _581 f_4612 
o|identified direct recursive calls: f_3848 1 
o|fast box initializations: 66 
o|fast global references: 423 
o|fast global assignments: 17 
o|dropping unused closure argument: f_10612 
o|dropping unused closure argument: f_11862 
o|dropping unused closure argument: f_12637 
o|dropping unused closure argument: f_13548 
o|dropping unused closure argument: f_13573 
o|dropping unused closure argument: f_13582 
o|dropping unused closure argument: f_13968 
o|dropping unused closure argument: f_14014 
o|dropping unused closure argument: f_4420 
o|dropping unused closure argument: f_4731 
o|dropping unused closure argument: f_9392 
o|dropping unused closure argument: f_9468 
o|dropping unused closure argument: f_9485 
o|dropping unused closure argument: f_9559 
*/
/* end of file */
