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

static C_word code_799() { C_clear_trace_buffer();
; return C_SCHEME_UNDEFINED; }


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

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


C_noret_decl(f24858)
static void C_ccall f24858(C_word c,C_word *av) C_noret;
C_noret_decl(f_10015)
static void C_ccall f_10015(C_word c,C_word *av) C_noret;
C_noret_decl(f_10019)
static void C_ccall f_10019(C_word c,C_word *av) C_noret;
C_noret_decl(f_10023)
static void C_ccall f_10023(C_word c,C_word *av) C_noret;
C_noret_decl(f_10026)
static void C_ccall f_10026(C_word c,C_word *av) C_noret;
C_noret_decl(f_10032)
static void C_ccall f_10032(C_word c,C_word *av) C_noret;
C_noret_decl(f_10040)
static void C_ccall f_10040(C_word c,C_word *av) C_noret;
C_noret_decl(f_10046)
static void C_ccall f_10046(C_word c,C_word *av) C_noret;
C_noret_decl(f_10050)
static void C_ccall f_10050(C_word c,C_word *av) C_noret;
C_noret_decl(f_10053)
static void C_ccall f_10053(C_word c,C_word *av) C_noret;
C_noret_decl(f_10056)
static C_word C_fcall f_10056(C_word t0,C_word t1);
C_noret_decl(f_10081)
static void C_ccall f_10081(C_word c,C_word *av) C_noret;
C_noret_decl(f_10083)
static void C_fcall f_10083(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10124)
static void C_ccall f_10124(C_word c,C_word *av) C_noret;
C_noret_decl(f_10127)
static void C_ccall f_10127(C_word c,C_word *av) C_noret;
C_noret_decl(f_10130)
static void C_fcall f_10130(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10133)
static void C_ccall f_10133(C_word c,C_word *av) C_noret;
C_noret_decl(f_10136)
static void C_ccall f_10136(C_word c,C_word *av) C_noret;
C_noret_decl(f_10139)
static void C_ccall f_10139(C_word c,C_word *av) C_noret;
C_noret_decl(f_10161)
static void C_ccall f_10161(C_word c,C_word *av) C_noret;
C_noret_decl(f_10165)
static void C_ccall f_10165(C_word c,C_word *av) C_noret;
C_noret_decl(f_10169)
static void C_ccall f_10169(C_word c,C_word *av) C_noret;
C_noret_decl(f_10183)
static void C_ccall f_10183(C_word c,C_word *av) C_noret;
C_noret_decl(f_10214)
static void C_ccall f_10214(C_word c,C_word *av) C_noret;
C_noret_decl(f_10236)
static void C_ccall f_10236(C_word c,C_word *av) C_noret;
C_noret_decl(f_10239)
static void C_fcall f_10239(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10242)
static void C_ccall f_10242(C_word c,C_word *av) C_noret;
C_noret_decl(f_10290)
static void C_ccall f_10290(C_word c,C_word *av) C_noret;
C_noret_decl(f_10294)
static void C_ccall f_10294(C_word c,C_word *av) C_noret;
C_noret_decl(f_10298)
static void C_ccall f_10298(C_word c,C_word *av) C_noret;
C_noret_decl(f_10306)
static void C_ccall f_10306(C_word c,C_word *av) C_noret;
C_noret_decl(f_10316)
static void C_fcall f_10316(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10320)
static void C_ccall f_10320(C_word c,C_word *av) C_noret;
C_noret_decl(f_10323)
static void C_ccall f_10323(C_word c,C_word *av) C_noret;
C_noret_decl(f_10330)
static void C_fcall f_10330(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10334)
static void C_ccall f_10334(C_word c,C_word *av) C_noret;
C_noret_decl(f_10344)
static void C_ccall f_10344(C_word c,C_word *av) C_noret;
C_noret_decl(f_10348)
static void C_ccall f_10348(C_word c,C_word *av) C_noret;
C_noret_decl(f_10352)
static void C_ccall f_10352(C_word c,C_word *av) C_noret;
C_noret_decl(f_10373)
static void C_ccall f_10373(C_word c,C_word *av) C_noret;
C_noret_decl(f_10376)
static void C_ccall f_10376(C_word c,C_word *av) C_noret;
C_noret_decl(f_10384)
static void C_ccall f_10384(C_word c,C_word *av) C_noret;
C_noret_decl(f_10406)
static void C_fcall f_10406(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10416)
static void C_ccall f_10416(C_word c,C_word *av) C_noret;
C_noret_decl(f_10429)
static void C_ccall f_10429(C_word c,C_word *av) C_noret;
C_noret_decl(f_10437)
static void C_ccall f_10437(C_word c,C_word *av) C_noret;
C_noret_decl(f_10443)
static void C_ccall f_10443(C_word c,C_word *av) C_noret;
C_noret_decl(f_10465)
static void C_fcall f_10465(C_word t0,C_word t1,C_word t2) 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_10488)
static void C_fcall f_10488(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10513)
static void C_ccall f_10513(C_word c,C_word *av) C_noret;
C_noret_decl(f_10531)
static void C_ccall f_10531(C_word c,C_word *av) C_noret;
C_noret_decl(f_10536)
static void C_ccall f_10536(C_word c,C_word *av) C_noret;
C_noret_decl(f_10550)
static void C_ccall f_10550(C_word c,C_word *av) C_noret;
C_noret_decl(f_10558)
static void C_ccall f_10558(C_word c,C_word *av) C_noret;
C_noret_decl(f_10568)
static void C_ccall f_10568(C_word c,C_word *av) C_noret;
C_noret_decl(f_10581)
static void C_ccall f_10581(C_word c,C_word *av) C_noret;
C_noret_decl(f_10602)
static void C_ccall f_10602(C_word c,C_word *av) C_noret;
C_noret_decl(f_10614)
static void C_ccall f_10614(C_word c,C_word *av) 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_10630)
static void C_fcall f_10630(C_word t0,C_word t1,C_word t2) 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_10671)
static void C_ccall f_10671(C_word c,C_word *av) C_noret;
C_noret_decl(f_10677)
static void C_ccall f_10677(C_word c,C_word *av) C_noret;
C_noret_decl(f_10683)
static void C_ccall f_10683(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_10691)
static void C_ccall f_10691(C_word c,C_word *av) C_noret;
C_noret_decl(f_10695)
static void C_ccall f_10695(C_word c,C_word *av) C_noret;
C_noret_decl(f_10698)
static void C_ccall f_10698(C_word c,C_word *av) C_noret;
C_noret_decl(f_10703)
static void C_ccall f_10703(C_word c,C_word *av) C_noret;
C_noret_decl(f_10707)
static void C_ccall f_10707(C_word c,C_word *av) C_noret;
C_noret_decl(f_10710)
static void C_ccall f_10710(C_word c,C_word *av) C_noret;
C_noret_decl(f_10713)
static void C_ccall f_10713(C_word c,C_word *av) C_noret;
C_noret_decl(f_10716)
static void C_ccall f_10716(C_word c,C_word *av) C_noret;
C_noret_decl(f_10720)
static void C_ccall f_10720(C_word c,C_word *av) C_noret;
C_noret_decl(f_10724)
static void C_ccall f_10724(C_word c,C_word *av) C_noret;
C_noret_decl(f_10728)
static void C_ccall f_10728(C_word c,C_word *av) C_noret;
C_noret_decl(f_10732)
static void C_ccall f_10732(C_word c,C_word *av) C_noret;
C_noret_decl(f_10735)
static void C_ccall f_10735(C_word c,C_word *av) C_noret;
C_noret_decl(f_10738)
static void C_ccall f_10738(C_word c,C_word *av) C_noret;
C_noret_decl(f_10741)
static void C_ccall f_10741(C_word c,C_word *av) C_noret;
C_noret_decl(f_10744)
static void C_ccall f_10744(C_word c,C_word *av) C_noret;
C_noret_decl(f_10759)
static void C_ccall f_10759(C_word c,C_word *av) C_noret;
C_noret_decl(f_10765)
static void C_ccall f_10765(C_word c,C_word *av) C_noret;
C_noret_decl(f_10775)
static void C_fcall f_10775(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_10785)
static void C_ccall f_10785(C_word c,C_word *av) C_noret;
C_noret_decl(f_10788)
static void C_ccall f_10788(C_word c,C_word *av) C_noret;
C_noret_decl(f_10797)
static void C_fcall f_10797(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10804)
static void C_ccall f_10804(C_word c,C_word *av) C_noret;
C_noret_decl(f_10808)
static void C_ccall f_10808(C_word c,C_word *av) C_noret;
C_noret_decl(f_10814)
static void C_fcall f_10814(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10821)
static void C_ccall f_10821(C_word c,C_word *av) C_noret;
C_noret_decl(f_10833)
static void C_ccall f_10833(C_word c,C_word *av) C_noret;
C_noret_decl(f_10843)
static void C_ccall f_10843(C_word c,C_word *av) C_noret;
C_noret_decl(f_10845)
static void C_ccall f_10845(C_word c,C_word *av) C_noret;
C_noret_decl(f_10851)
static void C_ccall f_10851(C_word c,C_word *av) C_noret;
C_noret_decl(f_10857)
static void C_ccall f_10857(C_word c,C_word *av) C_noret;
C_noret_decl(f_10861)
static void C_ccall f_10861(C_word c,C_word *av) C_noret;
C_noret_decl(f_10866)
static void C_ccall f_10866(C_word c,C_word *av) C_noret;
C_noret_decl(f_10872)
static void C_ccall f_10872(C_word c,C_word *av) C_noret;
C_noret_decl(f_10880)
static void C_ccall f_10880(C_word c,C_word *av) C_noret;
C_noret_decl(f_10882)
static void C_ccall f_10882(C_word c,C_word *av) C_noret;
C_noret_decl(f_10895)
static void C_ccall f_10895(C_word c,C_word *av) C_noret;
C_noret_decl(f_10901)
static void C_ccall f_10901(C_word c,C_word *av) C_noret;
C_noret_decl(f_10907)
static void C_ccall f_10907(C_word c,C_word *av) C_noret;
C_noret_decl(f_10909)
static void C_ccall f_10909(C_word c,C_word *av) C_noret;
C_noret_decl(f_10915)
static void C_ccall f_10915(C_word c,C_word *av) C_noret;
C_noret_decl(f_10934)
static void C_ccall f_10934(C_word c,C_word *av) C_noret;
C_noret_decl(f_10938)
static void C_ccall f_10938(C_word c,C_word *av) C_noret;
C_noret_decl(f_10942)
static void C_ccall f_10942(C_word c,C_word *av) C_noret;
C_noret_decl(f_10945)
static void C_ccall f_10945(C_word c,C_word *av) C_noret;
C_noret_decl(f_10948)
static void C_ccall f_10948(C_word c,C_word *av) C_noret;
C_noret_decl(f_10951)
static void C_ccall f_10951(C_word c,C_word *av) C_noret;
C_noret_decl(f_10954)
static void C_ccall f_10954(C_word c,C_word *av) C_noret;
C_noret_decl(f_10957)
static void C_ccall f_10957(C_word c,C_word *av) C_noret;
C_noret_decl(f_10960)
static void C_ccall f_10960(C_word c,C_word *av) C_noret;
C_noret_decl(f_10963)
static void C_ccall f_10963(C_word c,C_word *av) C_noret;
C_noret_decl(f_10969)
static void C_ccall f_10969(C_word c,C_word *av) C_noret;
C_noret_decl(f_10973)
static void C_ccall f_10973(C_word c,C_word *av) C_noret;
C_noret_decl(f_10976)
static void C_ccall f_10976(C_word c,C_word *av) C_noret;
C_noret_decl(f_10979)
static void C_fcall f_10979(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10989)
static void C_ccall f_10989(C_word c,C_word *av) C_noret;
C_noret_decl(f_11005)
static void C_ccall f_11005(C_word c,C_word *av) C_noret;
C_noret_decl(f_11009)
static void C_ccall f_11009(C_word c,C_word *av) C_noret;
C_noret_decl(f_11012)
static void C_ccall f_11012(C_word c,C_word *av) C_noret;
C_noret_decl(f_11015)
static void C_ccall f_11015(C_word c,C_word *av) C_noret;
C_noret_decl(f_11017)
static void C_ccall f_11017(C_word c,C_word *av) C_noret;
C_noret_decl(f_11021)
static void C_ccall f_11021(C_word c,C_word *av) C_noret;
C_noret_decl(f_11024)
static void C_ccall f_11024(C_word c,C_word *av) C_noret;
C_noret_decl(f_11027)
static void C_ccall f_11027(C_word c,C_word *av) C_noret;
C_noret_decl(f_11031)
static void C_ccall f_11031(C_word c,C_word *av) C_noret;
C_noret_decl(f_11035)
static void C_ccall f_11035(C_word c,C_word *av) C_noret;
C_noret_decl(f_11039)
static void C_ccall f_11039(C_word c,C_word *av) C_noret;
C_noret_decl(f_11042)
static void C_ccall f_11042(C_word c,C_word *av) C_noret;
C_noret_decl(f_11045)
static void C_ccall f_11045(C_word c,C_word *av) C_noret;
C_noret_decl(f_11048)
static void C_ccall f_11048(C_word c,C_word *av) C_noret;
C_noret_decl(f_11060)
static void C_ccall f_11060(C_word c,C_word *av) C_noret;
C_noret_decl(f_11065)
static void C_fcall f_11065(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11077)
static void C_fcall f_11077(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11102)
static void C_ccall f_11102(C_word c,C_word *av) C_noret;
C_noret_decl(f_11115)
static void C_ccall f_11115(C_word c,C_word *av) C_noret;
C_noret_decl(f_11119)
static void C_ccall f_11119(C_word c,C_word *av) C_noret;
C_noret_decl(f_11122)
static void C_ccall f_11122(C_word c,C_word *av) C_noret;
C_noret_decl(f_11125)
static void C_ccall f_11125(C_word c,C_word *av) C_noret;
C_noret_decl(f_11128)
static void C_ccall f_11128(C_word c,C_word *av) C_noret;
C_noret_decl(f_11131)
static void C_ccall f_11131(C_word c,C_word *av) 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_11140)
static void C_ccall f_11140(C_word c,C_word *av) C_noret;
C_noret_decl(f_11147)
static void C_fcall f_11147(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11160)
static void C_fcall f_11160(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11171)
static C_word C_fcall f_11171(C_word t0);
C_noret_decl(f_11196)
static void C_ccall f_11196(C_word c,C_word *av) C_noret;
C_noret_decl(f_11204)
static void C_fcall f_11204(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11229)
static void C_ccall f_11229(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_11271)
static void C_ccall f_11271(C_word c,C_word *av) C_noret;
C_noret_decl(f_11274)
static void C_ccall f_11274(C_word c,C_word *av) C_noret;
C_noret_decl(f_11280)
static void C_ccall f_11280(C_word c,C_word *av) C_noret;
C_noret_decl(f_11283)
static void C_ccall f_11283(C_word c,C_word *av) C_noret;
C_noret_decl(f_11288)
static void C_ccall f_11288(C_word c,C_word *av) C_noret;
C_noret_decl(f_11292)
static void C_ccall f_11292(C_word c,C_word *av) C_noret;
C_noret_decl(f_11296)
static void C_ccall f_11296(C_word c,C_word *av) C_noret;
C_noret_decl(f_11299)
static void C_ccall f_11299(C_word c,C_word *av) C_noret;
C_noret_decl(f_11305)
static void C_ccall f_11305(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_11317)
static void C_ccall f_11317(C_word c,C_word *av) C_noret;
C_noret_decl(f_11319)
static void C_ccall f_11319(C_word c,C_word *av) C_noret;
C_noret_decl(f_11323)
static void C_ccall f_11323(C_word c,C_word *av) C_noret;
C_noret_decl(f_11326)
static void C_ccall f_11326(C_word c,C_word *av) C_noret;
C_noret_decl(f_11331)
static void C_ccall f_11331(C_word c,C_word *av) C_noret;
C_noret_decl(f_11333)
static void C_fcall f_11333(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11358)
static void C_ccall f_11358(C_word c,C_word *av) C_noret;
C_noret_decl(f_11374)
static void C_ccall f_11374(C_word c,C_word *av) C_noret;
C_noret_decl(f_11380)
static void C_ccall f_11380(C_word c,C_word *av) C_noret;
C_noret_decl(f_11383)
static void C_ccall f_11383(C_word c,C_word *av) C_noret;
C_noret_decl(f_11390)
static void C_ccall f_11390(C_word c,C_word *av) C_noret;
C_noret_decl(f_11393)
static void C_ccall f_11393(C_word c,C_word *av) C_noret;
C_noret_decl(f_11399)
static void C_ccall f_11399(C_word c,C_word *av) C_noret;
C_noret_decl(f_11402)
static void C_ccall f_11402(C_word c,C_word *av) C_noret;
C_noret_decl(f_11405)
static void C_ccall f_11405(C_word c,C_word *av) C_noret;
C_noret_decl(f_11420)
static void C_ccall f_11420(C_word c,C_word *av) C_noret;
C_noret_decl(f_11423)
static void C_ccall f_11423(C_word c,C_word *av) C_noret;
C_noret_decl(f_11429)
static void C_ccall f_11429(C_word c,C_word *av) C_noret;
C_noret_decl(f_11436)
static void C_fcall f_11436(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11443)
static void C_ccall f_11443(C_word c,C_word *av) C_noret;
C_noret_decl(f_11466)
static void C_ccall f_11466(C_word c,C_word *av) C_noret;
C_noret_decl(f_11478)
static void C_ccall f_11478(C_word c,C_word *av) C_noret;
C_noret_decl(f_11488)
static void C_fcall f_11488(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11495)
static void C_ccall f_11495(C_word c,C_word *av) C_noret;
C_noret_decl(f_11522)
static void C_ccall f_11522(C_word c,C_word *av) C_noret;
C_noret_decl(f_11530)
static void C_ccall f_11530(C_word c,C_word *av) C_noret;
C_noret_decl(f_11536)
static void C_ccall f_11536(C_word c,C_word *av) C_noret;
C_noret_decl(f_11543)
static void C_ccall f_11543(C_word c,C_word *av) C_noret;
C_noret_decl(f_11554)
static void C_ccall f_11554(C_word c,C_word *av) C_noret;
C_noret_decl(f_11557)
static void C_ccall f_11557(C_word c,C_word *av) C_noret;
C_noret_decl(f_11560)
static void C_fcall f_11560(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11566)
static void C_ccall f_11566(C_word c,C_word *av) C_noret;
C_noret_decl(f_11569)
static void C_ccall f_11569(C_word c,C_word *av) C_noret;
C_noret_decl(f_11575)
static void C_ccall f_11575(C_word c,C_word *av) C_noret;
C_noret_decl(f_11582)
static void C_ccall f_11582(C_word c,C_word *av) C_noret;
C_noret_decl(f_11586)
static void C_ccall f_11586(C_word c,C_word *av) C_noret;
C_noret_decl(f_11592)
static void C_ccall f_11592(C_word c,C_word *av) C_noret;
C_noret_decl(f_11595)
static void C_ccall f_11595(C_word c,C_word *av) C_noret;
C_noret_decl(f_11598)
static void C_ccall f_11598(C_word c,C_word *av) C_noret;
C_noret_decl(f_11601)
static void C_ccall f_11601(C_word c,C_word *av) C_noret;
C_noret_decl(f_11604)
static void C_ccall f_11604(C_word c,C_word *av) C_noret;
C_noret_decl(f_11608)
static void C_ccall f_11608(C_word c,C_word *av) C_noret;
C_noret_decl(f_11611)
static void C_ccall f_11611(C_word c,C_word *av) C_noret;
C_noret_decl(f_11617)
static void C_ccall f_11617(C_word c,C_word *av) C_noret;
C_noret_decl(f_11620)
static void C_ccall f_11620(C_word c,C_word *av) C_noret;
C_noret_decl(f_11623)
static void C_ccall f_11623(C_word c,C_word *av) C_noret;
C_noret_decl(f_11639)
static void C_ccall f_11639(C_word c,C_word *av) C_noret;
C_noret_decl(f_11645)
static void C_ccall f_11645(C_word c,C_word *av) C_noret;
C_noret_decl(f_11648)
static void C_ccall f_11648(C_word c,C_word *av) C_noret;
C_noret_decl(f_11651)
static void C_ccall f_11651(C_word c,C_word *av) C_noret;
C_noret_decl(f_11654)
static void C_ccall f_11654(C_word c,C_word *av) C_noret;
C_noret_decl(f_11657)
static void C_ccall f_11657(C_word c,C_word *av) C_noret;
C_noret_decl(f_11661)
static void C_ccall f_11661(C_word c,C_word *av) C_noret;
C_noret_decl(f_11664)
static void C_ccall f_11664(C_word c,C_word *av) C_noret;
C_noret_decl(f_11670)
static void C_ccall f_11670(C_word c,C_word *av) C_noret;
C_noret_decl(f_11673)
static void C_ccall f_11673(C_word c,C_word *av) C_noret;
C_noret_decl(f_11676)
static void C_ccall f_11676(C_word c,C_word *av) C_noret;
C_noret_decl(f_11683)
static void C_ccall f_11683(C_word c,C_word *av) C_noret;
C_noret_decl(f_11687)
static void C_ccall f_11687(C_word c,C_word *av) C_noret;
C_noret_decl(f_11710)
static void C_ccall f_11710(C_word c,C_word *av) C_noret;
C_noret_decl(f_11723)
static void C_ccall f_11723(C_word c,C_word *av) C_noret;
C_noret_decl(f_11729)
static void C_ccall f_11729(C_word c,C_word *av) C_noret;
C_noret_decl(f_11732)
static void C_ccall f_11732(C_word c,C_word *av) C_noret;
C_noret_decl(f_11735)
static void C_ccall f_11735(C_word c,C_word *av) C_noret;
C_noret_decl(f_11738)
static void C_ccall f_11738(C_word c,C_word *av) C_noret;
C_noret_decl(f_11741)
static void C_ccall f_11741(C_word c,C_word *av) C_noret;
C_noret_decl(f_11745)
static void C_ccall f_11745(C_word c,C_word *av) C_noret;
C_noret_decl(f_11748)
static void C_ccall f_11748(C_word c,C_word *av) C_noret;
C_noret_decl(f_11754)
static void C_ccall f_11754(C_word c,C_word *av) C_noret;
C_noret_decl(f_11757)
static void C_ccall f_11757(C_word c,C_word *av) C_noret;
C_noret_decl(f_11760)
static void C_ccall f_11760(C_word c,C_word *av) C_noret;
C_noret_decl(f_11789)
static void C_fcall f_11789(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11797)
static void C_ccall f_11797(C_word c,C_word *av) C_noret;
C_noret_decl(f_11805)
static void C_ccall f_11805(C_word c,C_word *av) C_noret;
C_noret_decl(f_11807)
static void C_fcall f_11807(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11832)
static void C_ccall f_11832(C_word c,C_word *av) C_noret;
C_noret_decl(f_11856)
static void C_ccall f_11856(C_word c,C_word *av) C_noret;
C_noret_decl(f_11860)
static void C_ccall f_11860(C_word c,C_word *av) C_noret;
C_noret_decl(f_11894)
static void C_ccall f_11894(C_word c,C_word *av) C_noret;
C_noret_decl(f_11898)
static void C_ccall f_11898(C_word c,C_word *av) C_noret;
C_noret_decl(f_11904)
static void C_fcall f_11904(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11929)
static void C_ccall f_11929(C_word c,C_word *av) C_noret;
C_noret_decl(f_11953)
static void C_ccall f_11953(C_word c,C_word *av) C_noret;
C_noret_decl(f_11974)
static void C_ccall f_11974(C_word c,C_word *av) C_noret;
C_noret_decl(f_11978)
static void C_ccall f_11978(C_word c,C_word *av) C_noret;
C_noret_decl(f_12001)
static void C_ccall f_12001(C_word c,C_word *av) C_noret;
C_noret_decl(f_12016)
static void C_ccall f_12016(C_word c,C_word *av) C_noret;
C_noret_decl(f_12039)
static void C_ccall f_12039(C_word c,C_word *av) C_noret;
C_noret_decl(f_12043)
static void C_fcall f_12043(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12061)
static void C_ccall f_12061(C_word c,C_word *av) C_noret;
C_noret_decl(f_12068)
static void C_ccall f_12068(C_word c,C_word *av) C_noret;
C_noret_decl(f_12072)
static void C_ccall f_12072(C_word c,C_word *av) C_noret;
C_noret_decl(f_12087)
static void C_ccall f_12087(C_word c,C_word *av) C_noret;
C_noret_decl(f_12100)
static void C_ccall f_12100(C_word c,C_word *av) C_noret;
C_noret_decl(f_12113)
static void C_ccall f_12113(C_word c,C_word *av) C_noret;
C_noret_decl(f_12126)
static void C_ccall f_12126(C_word c,C_word *av) C_noret;
C_noret_decl(f_12139)
static void C_ccall f_12139(C_word c,C_word *av) C_noret;
C_noret_decl(f_12148)
static void C_ccall f_12148(C_word c,C_word *av) C_noret;
C_noret_decl(f_12151)
static void C_ccall f_12151(C_word c,C_word *av) C_noret;
C_noret_decl(f_12154)
static void C_ccall f_12154(C_word c,C_word *av) C_noret;
C_noret_decl(f_12195)
static void C_ccall f_12195(C_word c,C_word *av) C_noret;
C_noret_decl(f_12201)
static void C_ccall f_12201(C_word c,C_word *av) C_noret;
C_noret_decl(f_12210)
static void C_ccall f_12210(C_word c,C_word *av) C_noret;
C_noret_decl(f_12213)
static void C_ccall f_12213(C_word c,C_word *av) C_noret;
C_noret_decl(f_12216)
static void C_ccall f_12216(C_word c,C_word *av) C_noret;
C_noret_decl(f_12219)
static void C_ccall f_12219(C_word c,C_word *av) C_noret;
C_noret_decl(f_12222)
static void C_ccall f_12222(C_word c,C_word *av) C_noret;
C_noret_decl(f_12225)
static void C_ccall f_12225(C_word c,C_word *av) C_noret;
C_noret_decl(f_12228)
static void C_ccall f_12228(C_word c,C_word *av) C_noret;
C_noret_decl(f_12231)
static void C_ccall f_12231(C_word c,C_word *av) C_noret;
C_noret_decl(f_12234)
static void C_ccall f_12234(C_word c,C_word *av) C_noret;
C_noret_decl(f_12249)
static void C_fcall f_12249(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12269)
static void C_ccall f_12269(C_word c,C_word *av) C_noret;
C_noret_decl(f_12273)
static void C_ccall f_12273(C_word c,C_word *av) C_noret;
C_noret_decl(f_12276)
static void C_ccall f_12276(C_word c,C_word *av) C_noret;
C_noret_decl(f_12283)
static void C_ccall f_12283(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_12292)
static void C_ccall f_12292(C_word c,C_word *av) C_noret;
C_noret_decl(f_12295)
static void C_ccall f_12295(C_word c,C_word *av) C_noret;
C_noret_decl(f_12298)
static void C_ccall f_12298(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_12329)
static void C_ccall f_12329(C_word c,C_word *av) C_noret;
C_noret_decl(f_12332)
static void C_ccall f_12332(C_word c,C_word *av) C_noret;
C_noret_decl(f_12335)
static void C_fcall f_12335(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12355)
static void C_ccall f_12355(C_word c,C_word *av) C_noret;
C_noret_decl(f_12363)
static void C_ccall f_12363(C_word c,C_word *av) C_noret;
C_noret_decl(f_12374)
static void C_ccall f_12374(C_word c,C_word *av) C_noret;
C_noret_decl(f_12377)
static void C_ccall f_12377(C_word c,C_word *av) C_noret;
C_noret_decl(f_12383)
static void C_ccall f_12383(C_word c,C_word *av) C_noret;
C_noret_decl(f_12386)
static void C_ccall f_12386(C_word c,C_word *av) C_noret;
C_noret_decl(f_12389)
static void C_ccall f_12389(C_word c,C_word *av) C_noret;
C_noret_decl(f_12404)
static void C_ccall f_12404(C_word c,C_word *av) C_noret;
C_noret_decl(f_12407)
static void C_ccall f_12407(C_word c,C_word *av) C_noret;
C_noret_decl(f_12410)
static void C_ccall f_12410(C_word c,C_word *av) C_noret;
C_noret_decl(f_12416)
static void C_ccall f_12416(C_word c,C_word *av) C_noret;
C_noret_decl(f_12428)
static void C_ccall f_12428(C_word c,C_word *av) C_noret;
C_noret_decl(f_12432)
static void C_ccall f_12432(C_word c,C_word *av) C_noret;
C_noret_decl(f_12436)
static void C_ccall f_12436(C_word c,C_word *av) C_noret;
C_noret_decl(f_12439)
static void C_ccall f_12439(C_word c,C_word *av) C_noret;
C_noret_decl(f_12445)
static void C_ccall f_12445(C_word c,C_word *av) C_noret;
C_noret_decl(f_12465)
static void C_ccall f_12465(C_word c,C_word *av) C_noret;
C_noret_decl(f_12469)
static void C_fcall f_12469(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12494)
static void C_ccall f_12494(C_word c,C_word *av) C_noret;
C_noret_decl(f_12517)
static void C_ccall f_12517(C_word c,C_word *av) C_noret;
C_noret_decl(f_12519)
static void C_ccall f_12519(C_word c,C_word *av) C_noret;
C_noret_decl(f_12523)
static void C_ccall f_12523(C_word c,C_word *av) C_noret;
C_noret_decl(f_12526)
static void C_ccall f_12526(C_word c,C_word *av) C_noret;
C_noret_decl(f_12531)
static void C_ccall f_12531(C_word c,C_word *av) C_noret;
C_noret_decl(f_12564)
static void C_ccall f_12564(C_word c,C_word *av) C_noret;
C_noret_decl(f_12567)
static void C_ccall f_12567(C_word c,C_word *av) C_noret;
C_noret_decl(f_12570)
static void C_ccall f_12570(C_word c,C_word *av) C_noret;
C_noret_decl(f_12577)
static void C_ccall f_12577(C_word c,C_word *av) C_noret;
C_noret_decl(f_12580)
static void C_ccall f_12580(C_word c,C_word *av) C_noret;
C_noret_decl(f_12586)
static void C_ccall f_12586(C_word c,C_word *av) C_noret;
C_noret_decl(f_12589)
static void C_ccall f_12589(C_word c,C_word *av) C_noret;
C_noret_decl(f_12592)
static void C_ccall f_12592(C_word c,C_word *av) C_noret;
C_noret_decl(f_12599)
static void C_ccall f_12599(C_word c,C_word *av) C_noret;
C_noret_decl(f_12611)
static void C_ccall f_12611(C_word c,C_word *av) C_noret;
C_noret_decl(f_12617)
static void C_ccall f_12617(C_word c,C_word *av) C_noret;
C_noret_decl(f_12620)
static void C_ccall f_12620(C_word c,C_word *av) C_noret;
C_noret_decl(f_12623)
static void C_ccall f_12623(C_word c,C_word *av) C_noret;
C_noret_decl(f_12633)
static void C_ccall f_12633(C_word c,C_word *av) C_noret;
C_noret_decl(f_12636)
static void C_ccall f_12636(C_word c,C_word *av) C_noret;
C_noret_decl(f_12646)
static void C_ccall f_12646(C_word c,C_word *av) C_noret;
C_noret_decl(f_12649)
static void C_ccall f_12649(C_word c,C_word *av) C_noret;
C_noret_decl(f_12652)
static void C_ccall f_12652(C_word c,C_word *av) C_noret;
C_noret_decl(f_12655)
static void C_ccall f_12655(C_word c,C_word *av) C_noret;
C_noret_decl(f_12658)
static void C_ccall f_12658(C_word c,C_word *av) C_noret;
C_noret_decl(f_12661)
static void C_ccall f_12661(C_word c,C_word *av) C_noret;
C_noret_decl(f_12679)
static void C_ccall f_12679(C_word c,C_word *av) C_noret;
C_noret_decl(f_12682)
static void C_ccall f_12682(C_word c,C_word *av) C_noret;
C_noret_decl(f_12688)
static void C_ccall f_12688(C_word c,C_word *av) C_noret;
C_noret_decl(f_12691)
static void C_ccall f_12691(C_word c,C_word *av) C_noret;
C_noret_decl(f_12694)
static void C_ccall f_12694(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_12721)
static void C_ccall f_12721(C_word c,C_word *av) C_noret;
C_noret_decl(f_12724)
static void C_ccall f_12724(C_word c,C_word *av) C_noret;
C_noret_decl(f_12727)
static void C_ccall f_12727(C_word c,C_word *av) C_noret;
C_noret_decl(f_12732)
static void C_ccall f_12732(C_word c,C_word *av) C_noret;
C_noret_decl(f_12738)
static void C_ccall f_12738(C_word c,C_word *av) C_noret;
C_noret_decl(f_12744)
static void C_ccall f_12744(C_word c,C_word *av) C_noret;
C_noret_decl(f_12750)
static void C_ccall f_12750(C_word c,C_word *av) C_noret;
C_noret_decl(f_12756)
static void C_ccall f_12756(C_word c,C_word *av) C_noret;
C_noret_decl(f_12763)
static void C_ccall f_12763(C_word c,C_word *av) C_noret;
C_noret_decl(f_12782)
static void C_ccall f_12782(C_word c,C_word *av) C_noret;
C_noret_decl(f_12788)
static void C_ccall f_12788(C_word c,C_word *av) C_noret;
C_noret_decl(f_12801)
static void C_ccall f_12801(C_word c,C_word *av) C_noret;
C_noret_decl(f_12806)
static void C_ccall f_12806(C_word c,C_word *av) C_noret;
C_noret_decl(f_12810)
static void C_ccall f_12810(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_12823)
static void C_ccall f_12823(C_word c,C_word *av) C_noret;
C_noret_decl(f_12836)
static void C_fcall f_12836(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12842)
static void C_ccall f_12842(C_word c,C_word *av) C_noret;
C_noret_decl(f_12850)
static void C_ccall f_12850(C_word c,C_word *av) C_noret;
C_noret_decl(f_12859)
static void C_ccall f_12859(C_word c,C_word *av) C_noret;
C_noret_decl(f_12861)
static void C_fcall f_12861(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12886)
static void C_ccall f_12886(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_12899)
static void C_ccall f_12899(C_word c,C_word *av) C_noret;
C_noret_decl(f_12902)
static void C_ccall f_12902(C_word c,C_word *av) C_noret;
C_noret_decl(f_12914)
static void C_ccall f_12914(C_word c,C_word *av) C_noret;
C_noret_decl(f_12924)
static void C_ccall f_12924(C_word c,C_word *av) C_noret;
C_noret_decl(f_12934)
static void C_ccall f_12934(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_12956)
static void C_ccall f_12956(C_word c,C_word *av) C_noret;
C_noret_decl(f_12960)
static void C_ccall f_12960(C_word c,C_word *av) C_noret;
C_noret_decl(f_12968)
static void C_ccall f_12968(C_word c,C_word *av) C_noret;
C_noret_decl(f_12980)
static void C_ccall f_12980(C_word c,C_word *av) C_noret;
C_noret_decl(f_12984)
static void C_ccall f_12984(C_word c,C_word *av) C_noret;
C_noret_decl(f_12996)
static void C_ccall f_12996(C_word c,C_word *av) C_noret;
C_noret_decl(f_13056)
static void C_ccall f_13056(C_word c,C_word *av) C_noret;
C_noret_decl(f_13085)
static void C_fcall f_13085(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13109)
static void C_ccall f_13109(C_word c,C_word *av) C_noret;
C_noret_decl(f_13117)
static void C_ccall f_13117(C_word c,C_word *av) C_noret;
C_noret_decl(f_13121)
static void C_ccall f_13121(C_word c,C_word *av) C_noret;
C_noret_decl(f_13125)
static void C_ccall f_13125(C_word c,C_word *av) C_noret;
C_noret_decl(f_13166)
static void C_ccall f_13166(C_word c,C_word *av) C_noret;
C_noret_decl(f_13177)
static void C_ccall f_13177(C_word c,C_word *av) C_noret;
C_noret_decl(f_13184)
static void C_ccall f_13184(C_word c,C_word *av) C_noret;
C_noret_decl(f_13187)
static void C_ccall f_13187(C_word c,C_word *av) C_noret;
C_noret_decl(f_13193)
static void C_ccall f_13193(C_word c,C_word *av) C_noret;
C_noret_decl(f_13196)
static void C_ccall f_13196(C_word c,C_word *av) C_noret;
C_noret_decl(f_13199)
static void C_ccall f_13199(C_word c,C_word *av) C_noret;
C_noret_decl(f_13236)
static void C_fcall f_13236(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13262)
static void C_fcall f_13262(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13290)
static void C_ccall f_13290(C_word c,C_word *av) C_noret;
C_noret_decl(f_13305)
static void C_ccall f_13305(C_word c,C_word *av) C_noret;
C_noret_decl(f_13322)
static void C_ccall f_13322(C_word c,C_word *av) C_noret;
C_noret_decl(f_13328)
static void C_ccall f_13328(C_word c,C_word *av) C_noret;
C_noret_decl(f_13331)
static void C_ccall f_13331(C_word c,C_word *av) C_noret;
C_noret_decl(f_13351)
static void C_ccall f_13351(C_word c,C_word *av) C_noret;
C_noret_decl(f_13356)
static void C_ccall f_13356(C_word c,C_word *av) C_noret;
C_noret_decl(f_13362)
static void C_ccall f_13362(C_word c,C_word *av) C_noret;
C_noret_decl(f_13499)
static void C_ccall f_13499(C_word c,C_word *av) C_noret;
C_noret_decl(f_13504)
static void C_ccall f_13504(C_word c,C_word *av) C_noret;
C_noret_decl(f_13512)
static void C_ccall f_13512(C_word c,C_word *av) C_noret;
C_noret_decl(f_13514)
static void C_ccall f_13514(C_word c,C_word *av) C_noret;
C_noret_decl(f_13532)
static void C_ccall f_13532(C_word c,C_word *av) C_noret;
C_noret_decl(f_13538)
static void C_ccall f_13538(C_word c,C_word *av) C_noret;
C_noret_decl(f_13541)
static void C_ccall f_13541(C_word c,C_word *av) C_noret;
C_noret_decl(f_13544)
static void C_ccall f_13544(C_word c,C_word *av) C_noret;
C_noret_decl(f_13547)
static void C_ccall f_13547(C_word c,C_word *av) C_noret;
C_noret_decl(f_13565)
static void C_ccall f_13565(C_word c,C_word *av) C_noret;
C_noret_decl(f_13568)
static void C_ccall f_13568(C_word c,C_word *av) C_noret;
C_noret_decl(f_13571)
static void C_ccall f_13571(C_word c,C_word *av) C_noret;
C_noret_decl(f_13577)
static void C_ccall f_13577(C_word c,C_word *av) C_noret;
C_noret_decl(f_13580)
static void C_ccall f_13580(C_word c,C_word *av) C_noret;
C_noret_decl(f_13619)
static void C_fcall f_13619(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_13624)
static void C_fcall f_13624(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13636)
static void C_fcall f_13636(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13661)
static void C_ccall f_13661(C_word c,C_word *av) C_noret;
C_noret_decl(f_13671)
static void C_ccall f_13671(C_word c,C_word *av) C_noret;
C_noret_decl(f_13682)
static void C_ccall f_13682(C_word c,C_word *av) C_noret;
C_noret_decl(f_13686)
static void C_ccall f_13686(C_word c,C_word *av) C_noret;
C_noret_decl(f_13696)
static void C_ccall f_13696(C_word c,C_word *av) C_noret;
C_noret_decl(f_13702)
static void C_ccall f_13702(C_word c,C_word *av) C_noret;
C_noret_decl(f_13707)
static void C_ccall f_13707(C_word c,C_word *av) C_noret;
C_noret_decl(f_13710)
static void C_fcall f_13710(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13745)
static void C_fcall f_13745(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13752)
static void C_fcall f_13752(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13758)
static void C_fcall f_13758(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13765)
static void C_ccall f_13765(C_word c,C_word *av) C_noret;
C_noret_decl(f_13768)
static void C_ccall f_13768(C_word c,C_word *av) C_noret;
C_noret_decl(f_13773)
static void C_fcall f_13773(C_word t0,C_word t1) 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_13787)
static void C_ccall f_13787(C_word c,C_word *av) C_noret;
C_noret_decl(f_13790)
static void C_ccall f_13790(C_word c,C_word *av) C_noret;
C_noret_decl(f_13793)
static void C_ccall f_13793(C_word c,C_word *av) C_noret;
C_noret_decl(f_13796)
static void C_ccall f_13796(C_word c,C_word *av) C_noret;
C_noret_decl(f_13801)
static void C_fcall f_13801(C_word t0,C_word t1) 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_13808)
static void C_ccall f_13808(C_word c,C_word *av) C_noret;
C_noret_decl(f_13811)
static void C_ccall f_13811(C_word c,C_word *av) C_noret;
C_noret_decl(f_13817)
static void C_ccall f_13817(C_word c,C_word *av) C_noret;
C_noret_decl(f_13827)
static void C_ccall f_13827(C_word c,C_word *av) C_noret;
C_noret_decl(f_13831)
static void C_ccall f_13831(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_13842)
static void C_ccall f_13842(C_word c,C_word *av) C_noret;
C_noret_decl(f_13847)
static void C_ccall f_13847(C_word c,C_word *av) C_noret;
C_noret_decl(f_13858)
static void C_ccall f_13858(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_13864)
static void C_ccall f_13864(C_word c,C_word *av) C_noret;
C_noret_decl(f_13900)
static void C_ccall f_13900(C_word c,C_word *av) C_noret;
C_noret_decl(f_13904)
static void C_ccall f_13904(C_word c,C_word *av) C_noret;
C_noret_decl(f_13925)
static void C_ccall f_13925(C_word c,C_word *av) C_noret;
C_noret_decl(f_13929)
static void C_ccall f_13929(C_word c,C_word *av) C_noret;
C_noret_decl(f_13950)
static void C_ccall f_13950(C_word c,C_word *av) C_noret;
C_noret_decl(f_13954)
static void C_ccall f_13954(C_word c,C_word *av) C_noret;
C_noret_decl(f_13958)
static void C_ccall f_13958(C_word c,C_word *av) C_noret;
C_noret_decl(f_13971)
static void C_ccall f_13971(C_word c,C_word *av) C_noret;
C_noret_decl(f_13975)
static void C_ccall f_13975(C_word c,C_word *av) C_noret;
C_noret_decl(f_14052)
static void C_ccall f_14052(C_word c,C_word *av) C_noret;
C_noret_decl(f_14060)
static void C_fcall f_14060(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14070)
static void C_ccall f_14070(C_word c,C_word *av) C_noret;
C_noret_decl(f_14104)
static void C_ccall f_14104(C_word c,C_word *av) C_noret;
C_noret_decl(f_14110)
static void C_ccall f_14110(C_word c,C_word *av) C_noret;
C_noret_decl(f_14118)
static void C_ccall f_14118(C_word c,C_word *av) C_noret;
C_noret_decl(f_14126)
static void C_fcall f_14126(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14136)
static void C_ccall f_14136(C_word c,C_word *av) C_noret;
C_noret_decl(f_14149)
static void C_fcall f_14149(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14159)
static void C_ccall f_14159(C_word c,C_word *av) C_noret;
C_noret_decl(f_14186)
static void C_ccall f_14186(C_word c,C_word *av) C_noret;
C_noret_decl(f_14197)
static void C_ccall f_14197(C_word c,C_word *av) C_noret;
C_noret_decl(f_14207)
static void C_fcall f_14207(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14217)
static void C_ccall f_14217(C_word c,C_word *av) C_noret;
C_noret_decl(f_14230)
static void C_fcall f_14230(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14240)
static void C_ccall f_14240(C_word c,C_word *av) C_noret;
C_noret_decl(f_14266)
static void C_ccall f_14266(C_word c,C_word *av) C_noret;
C_noret_decl(f_14270)
static void C_ccall f_14270(C_word c,C_word *av) C_noret;
C_noret_decl(f_14308)
static void C_ccall f_14308(C_word c,C_word *av) C_noret;
C_noret_decl(f_14316)
static void C_fcall f_14316(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14326)
static void C_ccall f_14326(C_word c,C_word *av) C_noret;
C_noret_decl(f_14353)
static void C_ccall f_14353(C_word c,C_word *av) C_noret;
C_noret_decl(f_14361)
static void C_fcall f_14361(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14371)
static void C_ccall f_14371(C_word c,C_word *av) C_noret;
C_noret_decl(f_14393)
static void C_ccall f_14393(C_word c,C_word *av) C_noret;
C_noret_decl(f_14396)
static void C_ccall f_14396(C_word c,C_word *av) C_noret;
C_noret_decl(f_14413)
static void C_ccall f_14413(C_word c,C_word *av) C_noret;
C_noret_decl(f_14417)
static void C_ccall f_14417(C_word c,C_word *av) C_noret;
C_noret_decl(f_14441)
static void C_ccall f_14441(C_word c,C_word *av) C_noret;
C_noret_decl(f_14445)
static void C_ccall f_14445(C_word c,C_word *av) C_noret;
C_noret_decl(f_14473)
static void C_ccall f_14473(C_word c,C_word *av) C_noret;
C_noret_decl(f_14481)
static void C_fcall f_14481(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14491)
static void C_ccall f_14491(C_word c,C_word *av) C_noret;
C_noret_decl(f_14526)
static void C_ccall f_14526(C_word c,C_word *av) C_noret;
C_noret_decl(f_14530)
static void C_ccall f_14530(C_word c,C_word *av) C_noret;
C_noret_decl(f_14534)
static void C_ccall f_14534(C_word c,C_word *av) C_noret;
C_noret_decl(f_14562)
static void C_ccall f_14562(C_word c,C_word *av) C_noret;
C_noret_decl(f_14570)
static void C_fcall f_14570(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14580)
static void C_ccall f_14580(C_word c,C_word *av) C_noret;
C_noret_decl(f_14601)
static void C_ccall f_14601(C_word c,C_word *av) C_noret;
C_noret_decl(f_14604)
static void C_ccall f_14604(C_word c,C_word *av) C_noret;
C_noret_decl(f_14653)
static void C_ccall f_14653(C_word c,C_word *av) C_noret;
C_noret_decl(f_14668)
static void C_fcall f_14668(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14678)
static void C_ccall f_14678(C_word c,C_word *av) C_noret;
C_noret_decl(f_14701)
static void C_ccall f_14701(C_word c,C_word *av) C_noret;
C_noret_decl(f_14709)
static void C_fcall f_14709(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14719)
static void C_ccall f_14719(C_word c,C_word *av) C_noret;
C_noret_decl(f_14760)
static void C_ccall f_14760(C_word c,C_word *av) C_noret;
C_noret_decl(f_14768)
static void C_fcall f_14768(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14778)
static void C_ccall f_14778(C_word c,C_word *av) C_noret;
C_noret_decl(f_14802)
static void C_ccall f_14802(C_word c,C_word *av) C_noret;
C_noret_decl(f_14824)
static void C_ccall f_14824(C_word c,C_word *av) C_noret;
C_noret_decl(f_14850)
static void C_ccall f_14850(C_word c,C_word *av) C_noret;
C_noret_decl(f_14858)
static void C_ccall f_14858(C_word c,C_word *av) C_noret;
C_noret_decl(f_14866)
static void C_fcall f_14866(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14876)
static void C_ccall f_14876(C_word c,C_word *av) C_noret;
C_noret_decl(f_14900)
static void C_ccall f_14900(C_word c,C_word *av) C_noret;
C_noret_decl(f_14919)
static void C_ccall f_14919(C_word c,C_word *av) C_noret;
C_noret_decl(f_14923)
static void C_ccall f_14923(C_word c,C_word *av) C_noret;
C_noret_decl(f_14930)
static void C_fcall f_14930(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14976)
static void C_ccall f_14976(C_word c,C_word *av) C_noret;
C_noret_decl(f_14982)
static void C_ccall f_14982(C_word c,C_word *av) C_noret;
C_noret_decl(f_14984)
static void C_fcall f_14984(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15009)
static void C_ccall f_15009(C_word c,C_word *av) C_noret;
C_noret_decl(f_15041)
static void C_ccall f_15041(C_word c,C_word *av) C_noret;
C_noret_decl(f_15049)
static void C_fcall f_15049(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15059)
static void C_ccall f_15059(C_word c,C_word *av) C_noret;
C_noret_decl(f_15095)
static void C_ccall f_15095(C_word c,C_word *av) C_noret;
C_noret_decl(f_15103)
static void C_fcall f_15103(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15113)
static void C_ccall f_15113(C_word c,C_word *av) C_noret;
C_noret_decl(f_15150)
static void C_ccall f_15150(C_word c,C_word *av) C_noret;
C_noret_decl(f_15158)
static void C_fcall f_15158(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15168)
static void C_ccall f_15168(C_word c,C_word *av) C_noret;
C_noret_decl(f_15190)
static void C_fcall f_15190(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15197)
static void C_fcall f_15197(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15204)
static void C_ccall f_15204(C_word c,C_word *av) C_noret;
C_noret_decl(f_15207)
static void C_ccall f_15207(C_word c,C_word *av) C_noret;
C_noret_decl(f_15210)
static void C_ccall f_15210(C_word c,C_word *av) C_noret;
C_noret_decl(f_15216)
static void C_ccall f_15216(C_word c,C_word *av) C_noret;
C_noret_decl(f_15226)
static void C_ccall f_15226(C_word c,C_word *av) C_noret;
C_noret_decl(f_15232)
static void C_ccall f_15232(C_word c,C_word *av) C_noret;
C_noret_decl(f_15242)
static void C_ccall f_15242(C_word c,C_word *av) C_noret;
C_noret_decl(f_15245)
static void C_ccall f_15245(C_word c,C_word *av) C_noret;
C_noret_decl(f_15248)
static void C_ccall f_15248(C_word c,C_word *av) C_noret;
C_noret_decl(f_15251)
static void C_ccall f_15251(C_word c,C_word *av) C_noret;
C_noret_decl(f_15264)
static void C_ccall f_15264(C_word c,C_word *av) C_noret;
C_noret_decl(f_15280)
static void C_fcall f_15280(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15312)
static void C_ccall f_15312(C_word c,C_word *av) C_noret;
C_noret_decl(f_15354)
static void C_fcall f_15354(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15364)
static void C_ccall f_15364(C_word c,C_word *av) C_noret;
C_noret_decl(f_15382)
static void C_fcall f_15382(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15389)
static void C_fcall f_15389(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15392)
static void C_ccall f_15392(C_word c,C_word *av) C_noret;
C_noret_decl(f_15395)
static void C_ccall f_15395(C_word c,C_word *av) C_noret;
C_noret_decl(f_15401)
static void C_ccall f_15401(C_word c,C_word *av) C_noret;
C_noret_decl(f_15411)
static void C_ccall f_15411(C_word c,C_word *av) C_noret;
C_noret_decl(f_15417)
static void C_ccall f_15417(C_word c,C_word *av) C_noret;
C_noret_decl(f_15476)
static void C_fcall f_15476(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15486)
static void C_ccall f_15486(C_word c,C_word *av) C_noret;
C_noret_decl(f_15618)
static void C_ccall f_15618(C_word c,C_word *av) C_noret;
C_noret_decl(f_15625)
static void C_ccall f_15625(C_word c,C_word *av) C_noret;
C_noret_decl(f_15648)
static void C_ccall f_15648(C_word c,C_word *av) C_noret;
C_noret_decl(f_15657)
static void C_ccall f_15657(C_word c,C_word *av) C_noret;
C_noret_decl(f_15666)
static void C_ccall f_15666(C_word c,C_word *av) C_noret;
C_noret_decl(f_15675)
static void C_ccall f_15675(C_word c,C_word *av) C_noret;
C_noret_decl(f_15684)
static void C_ccall f_15684(C_word c,C_word *av) C_noret;
C_noret_decl(f_15693)
static void C_ccall f_15693(C_word c,C_word *av) C_noret;
C_noret_decl(f_15702)
static void C_ccall f_15702(C_word c,C_word *av) C_noret;
C_noret_decl(f_15711)
static void C_ccall f_15711(C_word c,C_word *av) C_noret;
C_noret_decl(f_15720)
static void C_fcall f_15720(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret;
C_noret_decl(f_15729)
static void C_fcall f_15729(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15758)
static void C_ccall f_15758(C_word c,C_word *av) C_noret;
C_noret_decl(f_15762)
static void C_ccall f_15762(C_word c,C_word *av) C_noret;
C_noret_decl(f_15807)
static void C_ccall f_15807(C_word c,C_word *av) C_noret;
C_noret_decl(f_15810)
static void C_ccall f_15810(C_word c,C_word *av) C_noret;
C_noret_decl(f_15813)
static void C_ccall f_15813(C_word c,C_word *av) C_noret;
C_noret_decl(f_15816)
static void C_ccall f_15816(C_word c,C_word *av) C_noret;
C_noret_decl(f_15819)
static void C_ccall f_15819(C_word c,C_word *av) C_noret;
C_noret_decl(f_15822)
static void C_ccall f_15822(C_word c,C_word *av) C_noret;
C_noret_decl(f_15825)
static void C_ccall f_15825(C_word c,C_word *av) C_noret;
C_noret_decl(f_15835)
static void C_fcall f_15835(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15847)
static void C_ccall f_15847(C_word c,C_word *av) C_noret;
C_noret_decl(f_15856)
static void C_ccall f_15856(C_word c,C_word *av) C_noret;
C_noret_decl(f_15867)
static void C_ccall f_15867(C_word c,C_word *av) C_noret;
C_noret_decl(f_15879)
static void C_ccall f_15879(C_word c,C_word *av) C_noret;
C_noret_decl(f_15887)
static void C_ccall f_15887(C_word c,C_word *av) C_noret;
C_noret_decl(f_15894)
static void C_ccall f_15894(C_word c,C_word *av) C_noret;
C_noret_decl(f_15897)
static void C_ccall f_15897(C_word c,C_word *av) C_noret;
C_noret_decl(f_15908)
static void C_ccall f_15908(C_word c,C_word *av) C_noret;
C_noret_decl(f_15912)
static void C_ccall f_15912(C_word c,C_word *av) C_noret;
C_noret_decl(f_15916)
static void C_ccall f_15916(C_word c,C_word *av) C_noret;
C_noret_decl(f_15942)
static void C_fcall f_15942(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_15971)
static void C_ccall f_15971(C_word c,C_word *av) C_noret;
C_noret_decl(f_16012)
static void C_ccall f_16012(C_word c,C_word *av) C_noret;
C_noret_decl(f_16023)
static void C_fcall f_16023(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16048)
static void C_ccall f_16048(C_word c,C_word *av) C_noret;
C_noret_decl(f_16067)
static void C_ccall f_16067(C_word c,C_word *av) C_noret;
C_noret_decl(f_16075)
static void C_fcall f_16075(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16100)
static void C_ccall f_16100(C_word c,C_word *av) C_noret;
C_noret_decl(f_16109)
static void C_fcall f_16109(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16116)
static void C_ccall f_16116(C_word c,C_word *av) C_noret;
C_noret_decl(f_16135)
static void C_ccall f_16135(C_word c,C_word *av) C_noret;
C_noret_decl(f_16146)
static void C_fcall f_16146(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16156)
static void C_ccall f_16156(C_word c,C_word *av) C_noret;
C_noret_decl(f_16170)
static void C_ccall f_16170(C_word c,C_word *av) C_noret;
C_noret_decl(f_16176)
static void C_ccall f_16176(C_word c,C_word *av) C_noret;
C_noret_decl(f_16182)
static void C_ccall f_16182(C_word c,C_word *av) C_noret;
C_noret_decl(f_16187)
static void C_fcall f_16187(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16221)
static void C_fcall f_16221(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16263)
static void C_fcall f_16263(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16269)
static void C_ccall f_16269(C_word c,C_word *av) C_noret;
C_noret_decl(f_16272)
static void C_ccall f_16272(C_word c,C_word *av) C_noret;
C_noret_decl(f_16286)
static void C_ccall f_16286(C_word c,C_word *av) C_noret;
C_noret_decl(f_16292)
static void C_ccall f_16292(C_word c,C_word *av) C_noret;
C_noret_decl(f_16298)
static void C_ccall f_16298(C_word c,C_word *av) C_noret;
C_noret_decl(f_16303)
static void C_fcall f_16303(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16337)
static void C_fcall f_16337(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16415)
static void C_fcall f_16415(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16421)
static void C_fcall f_16421(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16431)
static void C_ccall f_16431(C_word c,C_word *av) C_noret;
C_noret_decl(f_16440)
static void C_fcall f_16440(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16457)
static void C_ccall f_16457(C_word c,C_word *av) C_noret;
C_noret_decl(f_16463)
static void C_ccall f_16463(C_word c,C_word *av) C_noret;
C_noret_decl(f_16494)
static void C_ccall f_16494(C_word c,C_word *av) C_noret;
C_noret_decl(f_16497)
static void C_fcall f_16497(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_16501)
static void C_ccall f_16501(C_word c,C_word *av) C_noret;
C_noret_decl(f_16508)
static void C_ccall f_16508(C_word c,C_word *av) C_noret;
C_noret_decl(f_16520)
static void C_ccall f_16520(C_word c,C_word *av) C_noret;
C_noret_decl(f_16526)
static void C_ccall f_16526(C_word c,C_word *av) C_noret;
C_noret_decl(f_16542)
static void C_ccall f_16542(C_word c,C_word *av) C_noret;
C_noret_decl(f_16548)
static void C_fcall f_16548(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16566)
static void C_ccall f_16566(C_word c,C_word *av) C_noret;
C_noret_decl(f_16570)
static void C_ccall f_16570(C_word c,C_word *av) C_noret;
C_noret_decl(f_16572)
static void C_fcall f_16572(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_16576)
static void C_ccall f_16576(C_word c,C_word *av) C_noret;
C_noret_decl(f_16579)
static void C_ccall f_16579(C_word c,C_word *av) C_noret;
C_noret_decl(f_16582)
static void C_ccall f_16582(C_word c,C_word *av) C_noret;
C_noret_decl(f_16585)
static void C_ccall f_16585(C_word c,C_word *av) C_noret;
C_noret_decl(f_16594)
static void C_fcall f_16594(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16606)
static void C_ccall f_16606(C_word c,C_word *av) C_noret;
C_noret_decl(f_16609)
static void C_ccall f_16609(C_word c,C_word *av) C_noret;
C_noret_decl(f_16610)
static void C_ccall f_16610(C_word c,C_word *av) C_noret;
C_noret_decl(f_16626)
static void C_ccall f_16626(C_word c,C_word *av) C_noret;
C_noret_decl(f_16641)
static void C_ccall f_16641(C_word c,C_word *av) C_noret;
C_noret_decl(f_16645)
static void C_ccall f_16645(C_word c,C_word *av) C_noret;
C_noret_decl(f_16651)
static void C_ccall f_16651(C_word c,C_word *av) C_noret;
C_noret_decl(f_16663)
static void C_ccall f_16663(C_word c,C_word *av) C_noret;
C_noret_decl(f_16667)
static void C_ccall f_16667(C_word c,C_word *av) C_noret;
C_noret_decl(f_16687)
static void C_ccall f_16687(C_word c,C_word *av) C_noret;
C_noret_decl(f_16691)
static void C_ccall f_16691(C_word c,C_word *av) C_noret;
C_noret_decl(f_16700)
static void C_ccall f_16700(C_word c,C_word *av) C_noret;
C_noret_decl(f_16715)
static void C_fcall f_16715(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_16738)
static void C_ccall f_16738(C_word c,C_word *av) C_noret;
C_noret_decl(f_16745)
static void C_ccall f_16745(C_word c,C_word *av) C_noret;
C_noret_decl(f_16769)
static void C_ccall f_16769(C_word c,C_word *av) C_noret;
C_noret_decl(f_16802)
static void C_ccall f_16802(C_word c,C_word *av) C_noret;
C_noret_decl(f_16815)
static void C_ccall f_16815(C_word c,C_word *av) C_noret;
C_noret_decl(f_16830)
static void C_ccall f_16830(C_word c,C_word *av) C_noret;
C_noret_decl(f_16846)
static void C_ccall f_16846(C_word c,C_word *av) C_noret;
C_noret_decl(f_16850)
static void C_ccall f_16850(C_word c,C_word *av) C_noret;
C_noret_decl(f_16854)
static void C_ccall f_16854(C_word c,C_word *av) C_noret;
C_noret_decl(f_16886)
static void C_ccall f_16886(C_word c,C_word *av) C_noret;
C_noret_decl(f_16892)
static void C_ccall f_16892(C_word c,C_word *av) C_noret;
C_noret_decl(f_16903)
static void C_ccall f_16903(C_word c,C_word *av) C_noret;
C_noret_decl(f_16907)
static void C_ccall f_16907(C_word c,C_word *av) C_noret;
C_noret_decl(f_16916)
static void C_fcall f_16916(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17087)
static void C_fcall f_17087(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_17091)
static void C_ccall f_17091(C_word c,C_word *av) C_noret;
C_noret_decl(f_17094)
static void C_ccall f_17094(C_word c,C_word *av) C_noret;
C_noret_decl(f_17109)
static void C_ccall f_17109(C_word c,C_word *av) C_noret;
C_noret_decl(f_17113)
static void C_ccall f_17113(C_word c,C_word *av) C_noret;
C_noret_decl(f_17115)
static void C_ccall f_17115(C_word c,C_word *av) C_noret;
C_noret_decl(f_17121)
static void C_ccall f_17121(C_word c,C_word *av) C_noret;
C_noret_decl(f_17129)
static void C_ccall f_17129(C_word c,C_word *av) C_noret;
C_noret_decl(f_17133)
static void C_ccall f_17133(C_word c,C_word *av) C_noret;
C_noret_decl(f_17145)
static void C_ccall f_17145(C_word c,C_word *av) C_noret;
C_noret_decl(f_17149)
static void C_ccall f_17149(C_word c,C_word *av) C_noret;
C_noret_decl(f_17158)
static void C_ccall f_17158(C_word c,C_word *av) C_noret;
C_noret_decl(f_17168)
static void C_ccall f_17168(C_word c,C_word *av) C_noret;
C_noret_decl(f_17171)
static void C_ccall f_17171(C_word c,C_word *av) C_noret;
C_noret_decl(f_17186)
static void C_ccall f_17186(C_word c,C_word *av) C_noret;
C_noret_decl(f_17190)
static void C_ccall f_17190(C_word c,C_word *av) C_noret;
C_noret_decl(f_17202)
static void C_ccall f_17202(C_word c,C_word *av) C_noret;
C_noret_decl(f_17214)
static void C_ccall f_17214(C_word c,C_word *av) C_noret;
C_noret_decl(f_17218)
static void C_ccall f_17218(C_word c,C_word *av) C_noret;
C_noret_decl(f_17227)
static void C_ccall f_17227(C_word c,C_word *av) C_noret;
C_noret_decl(f_17233)
static void C_fcall f_17233(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_17239)
static void C_ccall f_17239(C_word c,C_word *av) C_noret;
C_noret_decl(f_17247)
static void C_ccall f_17247(C_word c,C_word *av) C_noret;
C_noret_decl(f_17249)
static void C_fcall f_17249(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17255)
static void C_fcall f_17255(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17269)
static void C_ccall f_17269(C_word c,C_word *av) C_noret;
C_noret_decl(f_17275)
static void C_ccall f_17275(C_word c,C_word *av) C_noret;
C_noret_decl(f_17289)
static void C_ccall f_17289(C_word c,C_word *av) C_noret;
C_noret_decl(f_17296)
static void C_ccall f_17296(C_word c,C_word *av) C_noret;
C_noret_decl(f_17303)
static void C_ccall f_17303(C_word c,C_word *av) C_noret;
C_noret_decl(f_17318)
static void C_ccall f_17318(C_word c,C_word *av) C_noret;
C_noret_decl(f_17333)
static void C_ccall f_17333(C_word c,C_word *av) C_noret;
C_noret_decl(f_17345)
static void C_ccall f_17345(C_word c,C_word *av) C_noret;
C_noret_decl(f_17351)
static void C_ccall f_17351(C_word c,C_word *av) C_noret;
C_noret_decl(f_17355)
static void C_ccall f_17355(C_word c,C_word *av) C_noret;
C_noret_decl(f_17372)
static void C_ccall f_17372(C_word c,C_word *av) C_noret;
C_noret_decl(f_17377)
static void C_ccall f_17377(C_word c,C_word *av) C_noret;
C_noret_decl(f_17384)
static void C_ccall f_17384(C_word c,C_word *av) C_noret;
C_noret_decl(f_17386)
static C_word C_fcall f_17386(C_word *a,C_word t0);
C_noret_decl(f_17393)
static void C_fcall f_17393(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_17397)
static void C_ccall f_17397(C_word c,C_word *av) C_noret;
C_noret_decl(f_17400)
static void C_ccall f_17400(C_word c,C_word *av) C_noret;
C_noret_decl(f_17403)
static void C_ccall f_17403(C_word c,C_word *av) C_noret;
C_noret_decl(f_17415)
static void C_fcall f_17415(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17430)
static void C_ccall f_17430(C_word c,C_word *av) C_noret;
C_noret_decl(f_17461)
static void C_ccall f_17461(C_word c,C_word *av) C_noret;
C_noret_decl(f_17491)
static void C_ccall f_17491(C_word c,C_word *av) C_noret;
C_noret_decl(f_17494)
static void C_ccall f_17494(C_word c,C_word *av) C_noret;
C_noret_decl(f_17520)
static void C_ccall f_17520(C_word c,C_word *av) C_noret;
C_noret_decl(f_17524)
static void C_ccall f_17524(C_word c,C_word *av) C_noret;
C_noret_decl(f_17536)
static void C_ccall f_17536(C_word c,C_word *av) C_noret;
C_noret_decl(f_17541)
static void C_fcall f_17541(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17559)
static void C_ccall f_17559(C_word c,C_word *av) C_noret;
C_noret_decl(f_17568)
static void C_ccall f_17568(C_word c,C_word *av) C_noret;
C_noret_decl(f_17571)
static void C_ccall f_17571(C_word c,C_word *av) C_noret;
C_noret_decl(f_17574)
static void C_ccall f_17574(C_word c,C_word *av) C_noret;
C_noret_decl(f_17599)
static void C_ccall f_17599(C_word c,C_word *av) C_noret;
C_noret_decl(f_17601)
static void C_fcall f_17601(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17611)
static void C_ccall f_17611(C_word c,C_word *av) C_noret;
C_noret_decl(f_17615)
static void C_ccall f_17615(C_word c,C_word *av) C_noret;
C_noret_decl(f_17624)
static void C_ccall f_17624(C_word c,C_word *av) C_noret;
C_noret_decl(f_17626)
static void C_fcall f_17626(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17636)
static void C_ccall f_17636(C_word c,C_word *av) C_noret;
C_noret_decl(f_17668)
static void C_ccall f_17668(C_word c,C_word *av) C_noret;
C_noret_decl(f_17675)
static void C_ccall f_17675(C_word c,C_word *av) C_noret;
C_noret_decl(f_17676)
static void C_fcall f_17676(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17680)
static void C_ccall f_17680(C_word c,C_word *av) C_noret;
C_noret_decl(f_17689)
static void C_ccall f_17689(C_word c,C_word *av) C_noret;
C_noret_decl(f_17692)
static void C_ccall f_17692(C_word c,C_word *av) C_noret;
C_noret_decl(f_17695)
static void C_ccall f_17695(C_word c,C_word *av) C_noret;
C_noret_decl(f_17698)
static void C_fcall f_17698(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17701)
static void C_fcall f_17701(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17704)
static void C_ccall f_17704(C_word c,C_word *av) C_noret;
C_noret_decl(f_17720)
static void C_ccall f_17720(C_word c,C_word *av) C_noret;
C_noret_decl(f_17728)
static void C_ccall f_17728(C_word c,C_word *av) C_noret;
C_noret_decl(f_17746)
static void C_ccall f_17746(C_word c,C_word *av) C_noret;
C_noret_decl(f_17752)
static void C_ccall f_17752(C_word c,C_word *av) C_noret;
C_noret_decl(f_17761)
static void C_fcall f_17761(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17771)
static void C_ccall f_17771(C_word c,C_word *av) C_noret;
C_noret_decl(f_17785)
static void C_ccall f_17785(C_word c,C_word *av) C_noret;
C_noret_decl(f_17806)
static void C_ccall f_17806(C_word c,C_word *av) C_noret;
C_noret_decl(f_17809)
static void C_ccall f_17809(C_word c,C_word *av) C_noret;
C_noret_decl(f_17812)
static void C_ccall f_17812(C_word c,C_word *av) C_noret;
C_noret_decl(f_17815)
static void C_ccall f_17815(C_word c,C_word *av) C_noret;
C_noret_decl(f_17818)
static void C_ccall f_17818(C_word c,C_word *av) C_noret;
C_noret_decl(f_17821)
static void C_ccall f_17821(C_word c,C_word *av) C_noret;
C_noret_decl(f_17857)
static void C_ccall f_17857(C_word c,C_word *av) C_noret;
C_noret_decl(f_17863)
static void C_ccall f_17863(C_word c,C_word *av) C_noret;
C_noret_decl(f_17903)
static void C_ccall f_17903(C_word c,C_word *av) C_noret;
C_noret_decl(f_17909)
static void C_ccall f_17909(C_word c,C_word *av) C_noret;
C_noret_decl(f_17998)
static void C_fcall f_17998(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_18000)
static void C_fcall f_18000(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18012)
static void C_fcall f_18012(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18022)
static void C_ccall f_18022(C_word c,C_word *av) C_noret;
C_noret_decl(f_18035)
static void C_fcall f_18035(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_18039)
static void C_ccall f_18039(C_word c,C_word *av) C_noret;
C_noret_decl(f_18048)
static void C_fcall f_18048(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_18052)
static void C_ccall f_18052(C_word c,C_word *av) C_noret;
C_noret_decl(f_18061)
static void C_fcall f_18061(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_18068)
static void C_ccall f_18068(C_word c,C_word *av) C_noret;
C_noret_decl(f_18074)
static void C_ccall f_18074(C_word c,C_word *av) C_noret;
C_noret_decl(f_18086)
static void C_fcall f_18086(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18110)
static void C_ccall f_18110(C_word c,C_word *av) C_noret;
C_noret_decl(f_18114)
static void C_ccall f_18114(C_word c,C_word *av) C_noret;
C_noret_decl(f_18133)
static void C_ccall f_18133(C_word c,C_word *av) C_noret;
C_noret_decl(f_18137)
static void C_ccall f_18137(C_word c,C_word *av) C_noret;
C_noret_decl(f_18140)
static void C_ccall f_18140(C_word c,C_word *av) C_noret;
C_noret_decl(f_18143)
static void C_fcall f_18143(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18147)
static void C_fcall f_18147(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18151)
static void C_ccall f_18151(C_word c,C_word *av) C_noret;
C_noret_decl(f_18154)
static void C_ccall f_18154(C_word c,C_word *av) C_noret;
C_noret_decl(f_18171)
static void C_fcall f_18171(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18174)
static void C_ccall f_18174(C_word c,C_word *av) C_noret;
C_noret_decl(f_18177)
static void C_ccall f_18177(C_word c,C_word *av) C_noret;
C_noret_decl(f_18216)
static void C_fcall f_18216(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18219)
static void C_ccall f_18219(C_word c,C_word *av) C_noret;
C_noret_decl(f_18225)
static void C_ccall f_18225(C_word c,C_word *av) C_noret;
C_noret_decl(f_18252)
static void C_ccall f_18252(C_word c,C_word *av) C_noret;
C_noret_decl(f_18259)
static void C_ccall f_18259(C_word c,C_word *av) C_noret;
C_noret_decl(f_18265)
static void C_ccall f_18265(C_word c,C_word *av) C_noret;
C_noret_decl(f_18275)
static void C_ccall f_18275(C_word c,C_word *av) C_noret;
C_noret_decl(f_18278)
static void C_ccall f_18278(C_word c,C_word *av) C_noret;
C_noret_decl(f_18285)
static void C_ccall f_18285(C_word c,C_word *av) C_noret;
C_noret_decl(f_18289)
static void C_ccall f_18289(C_word c,C_word *av) C_noret;
C_noret_decl(f_18293)
static void C_ccall f_18293(C_word c,C_word *av) C_noret;
C_noret_decl(f_18307)
static void C_ccall f_18307(C_word c,C_word *av) C_noret;
C_noret_decl(f_18311)
static void C_ccall f_18311(C_word c,C_word *av) C_noret;
C_noret_decl(f_18315)
static void C_ccall f_18315(C_word c,C_word *av) C_noret;
C_noret_decl(f_18318)
static void C_ccall f_18318(C_word c,C_word *av) C_noret;
C_noret_decl(f_18338)
static void C_ccall f_18338(C_word c,C_word *av) C_noret;
C_noret_decl(f_18342)
static void C_ccall f_18342(C_word c,C_word *av) C_noret;
C_noret_decl(f_18345)
static void C_ccall f_18345(C_word c,C_word *av) C_noret;
C_noret_decl(f_18365)
static void C_ccall f_18365(C_word c,C_word *av) C_noret;
C_noret_decl(f_18369)
static void C_ccall f_18369(C_word c,C_word *av) C_noret;
C_noret_decl(f_18371)
static void C_fcall f_18371(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_18392)
static void C_ccall f_18392(C_word c,C_word *av) C_noret;
C_noret_decl(f_18396)
static void C_ccall f_18396(C_word c,C_word *av) C_noret;
C_noret_decl(f_18399)
static void C_ccall f_18399(C_word c,C_word *av) C_noret;
C_noret_decl(f_18403)
static void C_ccall f_18403(C_word c,C_word *av) C_noret;
C_noret_decl(f_18409)
static void C_ccall f_18409(C_word c,C_word *av) C_noret;
C_noret_decl(f_18415)
static C_word C_fcall f_18415(C_word t0,C_word t1);
C_noret_decl(f_18558)
static void C_ccall f_18558(C_word c,C_word *av) C_noret;
C_noret_decl(f_18561)
static void C_ccall f_18561(C_word c,C_word *av) C_noret;
C_noret_decl(f_18564)
static void C_fcall f_18564(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18567)
static void C_ccall f_18567(C_word c,C_word *av) C_noret;
C_noret_decl(f_18570)
static void C_fcall f_18570(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18573)
static void C_ccall f_18573(C_word c,C_word *av) C_noret;
C_noret_decl(f_18576)
static void C_fcall f_18576(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18579)
static void C_ccall f_18579(C_word c,C_word *av) C_noret;
C_noret_decl(f_18585)
static void C_fcall f_18585(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18588)
static void C_ccall f_18588(C_word c,C_word *av) C_noret;
C_noret_decl(f_18606)
static void C_fcall f_18606(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18609)
static void C_ccall f_18609(C_word c,C_word *av) C_noret;
C_noret_decl(f_18627)
static void C_fcall f_18627(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18640)
static void C_ccall f_18640(C_word c,C_word *av) C_noret;
C_noret_decl(f_18664)
static void C_ccall f_18664(C_word c,C_word *av) C_noret;
C_noret_decl(f_18668)
static void C_ccall f_18668(C_word c,C_word *av) C_noret;
C_noret_decl(f_18672)
static void C_ccall f_18672(C_word c,C_word *av) C_noret;
C_noret_decl(f_18693)
static void C_ccall f_18693(C_word c,C_word *av) C_noret;
C_noret_decl(f_18699)
static void C_ccall f_18699(C_word c,C_word *av) C_noret;
C_noret_decl(f_18710)
static void C_ccall f_18710(C_word c,C_word *av) C_noret;
C_noret_decl(f_18728)
static void C_fcall f_18728(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18740)
static void C_ccall f_18740(C_word c,C_word *av) C_noret;
C_noret_decl(f_18762)
static void C_ccall f_18762(C_word c,C_word *av) C_noret;
C_noret_decl(f_18766)
static void C_ccall f_18766(C_word c,C_word *av) C_noret;
C_noret_decl(f_18770)
static void C_ccall f_18770(C_word c,C_word *av) C_noret;
C_noret_decl(f_18780)
static void C_ccall f_18780(C_word c,C_word *av) C_noret;
C_noret_decl(f_18784)
static void C_ccall f_18784(C_word c,C_word *av) C_noret;
C_noret_decl(f_18788)
static void C_ccall f_18788(C_word c,C_word *av) C_noret;
C_noret_decl(f_18809)
static void C_ccall f_18809(C_word c,C_word *av) C_noret;
C_noret_decl(f_18833)
static void C_ccall f_18833(C_word c,C_word *av) C_noret;
C_noret_decl(f_18843)
static void C_ccall f_18843(C_word c,C_word *av) C_noret;
C_noret_decl(f_18847)
static void C_ccall f_18847(C_word c,C_word *av) C_noret;
C_noret_decl(f_18854)
static void C_ccall f_18854(C_word c,C_word *av) C_noret;
C_noret_decl(f_18858)
static void C_ccall f_18858(C_word c,C_word *av) C_noret;
C_noret_decl(f_18867)
static void C_ccall f_18867(C_word c,C_word *av) C_noret;
C_noret_decl(f_18882)
static void C_ccall f_18882(C_word c,C_word *av) C_noret;
C_noret_decl(f_18886)
static void C_ccall f_18886(C_word c,C_word *av) C_noret;
C_noret_decl(f_18892)
static void C_fcall f_18892(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18916)
static void C_ccall f_18916(C_word c,C_word *av) C_noret;
C_noret_decl(f_18917)
static void C_fcall f_18917(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18924)
static void C_fcall f_18924(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18927)
static void C_ccall f_18927(C_word c,C_word *av) C_noret;
C_noret_decl(f_18938)
static void C_ccall f_18938(C_word c,C_word *av) C_noret;
C_noret_decl(f_18942)
static void C_ccall f_18942(C_word c,C_word *av) C_noret;
C_noret_decl(f_18950)
static void C_fcall f_18950(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18960)
static void C_ccall f_18960(C_word c,C_word *av) C_noret;
C_noret_decl(f_18981)
static void C_ccall f_18981(C_word c,C_word *av) C_noret;
C_noret_decl(f_18984)
static void C_fcall f_18984(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18993)
static void C_ccall f_18993(C_word c,C_word *av) C_noret;
C_noret_decl(f_19006)
static void C_ccall f_19006(C_word c,C_word *av) C_noret;
C_noret_decl(f_19013)
static void C_ccall f_19013(C_word c,C_word *av) C_noret;
C_noret_decl(f_19016)
static void C_ccall f_19016(C_word c,C_word *av) C_noret;
C_noret_decl(f_19022)
static void C_ccall f_19022(C_word c,C_word *av) C_noret;
C_noret_decl(f_19054)
static void C_ccall f_19054(C_word c,C_word *av) C_noret;
C_noret_decl(f_19062)
static void C_ccall f_19062(C_word c,C_word *av) C_noret;
C_noret_decl(f_19064)
static void C_ccall f_19064(C_word c,C_word *av) C_noret;
C_noret_decl(f_19070)
static void C_ccall f_19070(C_word c,C_word *av) C_noret;
C_noret_decl(f_19082)
static void C_ccall f_19082(C_word c,C_word *av) C_noret;
C_noret_decl(f_19088)
static void C_ccall f_19088(C_word c,C_word *av) C_noret;
C_noret_decl(f_19099)
static void C_ccall f_19099(C_word c,C_word *av) C_noret;
C_noret_decl(f_19105)
static void C_ccall f_19105(C_word c,C_word *av) C_noret;
C_noret_decl(f_19109)
static void C_fcall f_19109(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19118)
static void C_ccall f_19118(C_word c,C_word *av) C_noret;
C_noret_decl(f_19126)
static void C_ccall f_19126(C_word c,C_word *av) C_noret;
C_noret_decl(f_19143)
static void C_ccall f_19143(C_word c,C_word *av) C_noret;
C_noret_decl(f_19150)
static void C_ccall f_19150(C_word c,C_word *av) C_noret;
C_noret_decl(f_19153)
static void C_ccall f_19153(C_word c,C_word *av) C_noret;
C_noret_decl(f_19157)
static void C_fcall f_19157(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19164)
static void C_ccall f_19164(C_word c,C_word *av) C_noret;
C_noret_decl(f_19170)
static void C_ccall f_19170(C_word c,C_word *av) C_noret;
C_noret_decl(f_19176)
static void C_ccall f_19176(C_word c,C_word *av) C_noret;
C_noret_decl(f_19194)
static void C_fcall f_19194(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19201)
static void C_ccall f_19201(C_word c,C_word *av) C_noret;
C_noret_decl(f_19207)
static void C_ccall f_19207(C_word c,C_word *av) C_noret;
C_noret_decl(f_19210)
static void C_ccall f_19210(C_word c,C_word *av) C_noret;
C_noret_decl(f_19213)
static void C_ccall f_19213(C_word c,C_word *av) C_noret;
C_noret_decl(f_19216)
static void C_ccall f_19216(C_word c,C_word *av) C_noret;
C_noret_decl(f_19250)
static void C_ccall f_19250(C_word c,C_word *av) C_noret;
C_noret_decl(f_19254)
static void C_ccall f_19254(C_word c,C_word *av) C_noret;
C_noret_decl(f_19258)
static void C_ccall f_19258(C_word c,C_word *av) C_noret;
C_noret_decl(f_19262)
static void C_ccall f_19262(C_word c,C_word *av) C_noret;
C_noret_decl(f_19268)
static void C_fcall f_19268(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19272)
static void C_fcall f_19272(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19290)
static void C_ccall f_19290(C_word c,C_word *av) C_noret;
C_noret_decl(f_19294)
static void C_ccall f_19294(C_word c,C_word *av) C_noret;
C_noret_decl(f_19302)
static void C_fcall f_19302(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19312)
static void C_ccall f_19312(C_word c,C_word *av) C_noret;
C_noret_decl(f_19337)
static C_word C_fcall f_19337(C_word t0,C_word t1);
C_noret_decl(f_19364)
static void C_ccall f_19364(C_word c,C_word *av) C_noret;
C_noret_decl(f_19367)
static void C_fcall f_19367(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_19373)
static void C_fcall f_19373(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_19378)
static void C_ccall f_19378(C_word c,C_word *av) C_noret;
C_noret_decl(f_19383)
static void C_fcall f_19383(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19390)
static void C_ccall f_19390(C_word c,C_word *av) C_noret;
C_noret_decl(f_19392)
static void C_fcall f_19392(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_19396)
static void C_ccall f_19396(C_word c,C_word *av) C_noret;
C_noret_decl(f_19399)
static void C_ccall f_19399(C_word c,C_word *av) C_noret;
C_noret_decl(f_19402)
static void C_ccall f_19402(C_word c,C_word *av) C_noret;
C_noret_decl(f_19432)
static void C_fcall f_19432(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19441)
static void C_ccall f_19441(C_word c,C_word *av) C_noret;
C_noret_decl(f_19444)
static void C_ccall f_19444(C_word c,C_word *av) C_noret;
C_noret_decl(f_19454)
static void C_ccall f_19454(C_word c,C_word *av) C_noret;
C_noret_decl(f_19458)
static void C_ccall f_19458(C_word c,C_word *av) C_noret;
C_noret_decl(f_19492)
static void C_ccall f_19492(C_word c,C_word *av) C_noret;
C_noret_decl(f_19526)
static void C_ccall f_19526(C_word c,C_word *av) C_noret;
C_noret_decl(f_19534)
static void C_fcall f_19534(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19544)
static void C_ccall f_19544(C_word c,C_word *av) C_noret;
C_noret_decl(f_19546)
static void C_fcall f_19546(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19571)
static void C_ccall f_19571(C_word c,C_word *av) C_noret;
C_noret_decl(f_19602)
static void C_ccall f_19602(C_word c,C_word *av) C_noret;
C_noret_decl(f_19608)
static void C_fcall f_19608(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19611)
static void C_ccall f_19611(C_word c,C_word *av) C_noret;
C_noret_decl(f_19620)
static void C_ccall f_19620(C_word c,C_word *av) C_noret;
C_noret_decl(f_19623)
static void C_ccall f_19623(C_word c,C_word *av) C_noret;
C_noret_decl(f_19626)
static void C_fcall f_19626(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19632)
static void C_fcall f_19632(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19635)
static void C_ccall f_19635(C_word c,C_word *av) C_noret;
C_noret_decl(f_19638)
static void C_ccall f_19638(C_word c,C_word *av) C_noret;
C_noret_decl(f_19651)
static void C_ccall f_19651(C_word c,C_word *av) C_noret;
C_noret_decl(f_19670)
static void C_ccall f_19670(C_word c,C_word *av) C_noret;
C_noret_decl(f_19688)
static void C_ccall f_19688(C_word c,C_word *av) C_noret;
C_noret_decl(f_19706)
static void C_ccall f_19706(C_word c,C_word *av) C_noret;
C_noret_decl(f_19716)
static void C_ccall f_19716(C_word c,C_word *av) C_noret;
C_noret_decl(f_19720)
static void C_ccall f_19720(C_word c,C_word *av) C_noret;
C_noret_decl(f_19728)
static void C_ccall f_19728(C_word c,C_word *av) C_noret;
C_noret_decl(f_19732)
static void C_ccall f_19732(C_word c,C_word *av) C_noret;
C_noret_decl(f_19736)
static void C_ccall f_19736(C_word c,C_word *av) C_noret;
C_noret_decl(f_19740)
static void C_ccall f_19740(C_word c,C_word *av) C_noret;
C_noret_decl(f_19768)
static void C_ccall f_19768(C_word c,C_word *av) C_noret;
C_noret_decl(f_19775)
static void C_ccall f_19775(C_word c,C_word *av) C_noret;
C_noret_decl(f_19780)
static void C_ccall f_19780(C_word c,C_word *av) C_noret;
C_noret_decl(f_19785)
static void C_ccall f_19785(C_word c,C_word *av) C_noret;
C_noret_decl(f_19789)
static void C_ccall f_19789(C_word c,C_word *av) C_noret;
C_noret_decl(f_19792)
static void C_ccall f_19792(C_word c,C_word *av) C_noret;
C_noret_decl(f_19795)
static void C_ccall f_19795(C_word c,C_word *av) C_noret;
C_noret_decl(f_19806)
static void C_ccall f_19806(C_word c,C_word *av) C_noret;
C_noret_decl(f_19812)
static void C_ccall f_19812(C_word c,C_word *av) C_noret;
C_noret_decl(f_19826)
static void C_fcall f_19826(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19836)
static void C_ccall f_19836(C_word c,C_word *av) C_noret;
C_noret_decl(f_19838)
static void C_fcall f_19838(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19863)
static void C_ccall f_19863(C_word c,C_word *av) C_noret;
C_noret_decl(f_19923)
static void C_fcall f_19923(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_19927)
static void C_ccall f_19927(C_word c,C_word *av) C_noret;
C_noret_decl(f_19930)
static void C_ccall f_19930(C_word c,C_word *av) C_noret;
C_noret_decl(f_19933)
static void C_ccall f_19933(C_word c,C_word *av) C_noret;
C_noret_decl(f_19942)
static void C_fcall f_19942(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19954)
static void C_ccall f_19954(C_word c,C_word *av) C_noret;
C_noret_decl(f_19960)
static void C_ccall f_19960(C_word c,C_word *av) C_noret;
C_noret_decl(f_19976)
static void C_fcall f_19976(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19979)
static void C_ccall f_19979(C_word c,C_word *av) C_noret;
C_noret_decl(f_19982)
static void C_ccall f_19982(C_word c,C_word *av) C_noret;
C_noret_decl(f_19985)
static void C_ccall f_19985(C_word c,C_word *av) C_noret;
C_noret_decl(f_20001)
static void C_fcall f_20001(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20018)
static void C_ccall f_20018(C_word c,C_word *av) C_noret;
C_noret_decl(f_20032)
static void C_ccall f_20032(C_word c,C_word *av) C_noret;
C_noret_decl(f_20048)
static void C_ccall f_20048(C_word c,C_word *av) C_noret;
C_noret_decl(f_20060)
static void C_ccall f_20060(C_word c,C_word *av) C_noret;
C_noret_decl(f_20077)
static void C_ccall f_20077(C_word c,C_word *av) C_noret;
C_noret_decl(f_20089)
static void C_ccall f_20089(C_word c,C_word *av) C_noret;
C_noret_decl(f_20093)
static void C_ccall f_20093(C_word c,C_word *av) C_noret;
C_noret_decl(f_20118)
static void C_ccall f_20118(C_word c,C_word *av) C_noret;
C_noret_decl(f_20130)
static void C_ccall f_20130(C_word c,C_word *av) C_noret;
C_noret_decl(f_20156)
static void C_ccall f_20156(C_word c,C_word *av) C_noret;
C_noret_decl(f_20197)
static void C_fcall f_20197(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20204)
static void C_ccall f_20204(C_word c,C_word *av) C_noret;
C_noret_decl(f_20208)
static void C_ccall f_20208(C_word c,C_word *av) C_noret;
C_noret_decl(f_20220)
static void C_ccall f_20220(C_word c,C_word *av) C_noret;
C_noret_decl(f_20223)
static void C_ccall f_20223(C_word c,C_word *av) C_noret;
C_noret_decl(f_20241)
static void C_ccall f_20241(C_word c,C_word *av) C_noret;
C_noret_decl(f_20245)
static void C_ccall f_20245(C_word c,C_word *av) C_noret;
C_noret_decl(f_20257)
static void C_ccall f_20257(C_word c,C_word *av) C_noret;
C_noret_decl(f_20261)
static void C_ccall f_20261(C_word c,C_word *av) C_noret;
C_noret_decl(f_20273)
static void C_ccall f_20273(C_word c,C_word *av) C_noret;
C_noret_decl(f_20284)
static void C_ccall f_20284(C_word c,C_word *av) C_noret;
C_noret_decl(f_20301)
static void C_ccall f_20301(C_word c,C_word *av) C_noret;
C_noret_decl(f_20305)
static void C_ccall f_20305(C_word c,C_word *av) C_noret;
C_noret_decl(f_20317)
static void C_ccall f_20317(C_word c,C_word *av) C_noret;
C_noret_decl(f_20326)
static void C_ccall f_20326(C_word c,C_word *av) C_noret;
C_noret_decl(f_20329)
static void C_ccall f_20329(C_word c,C_word *av) C_noret;
C_noret_decl(f_20335)
static void C_ccall f_20335(C_word c,C_word *av) C_noret;
C_noret_decl(f_20341)
static void C_ccall f_20341(C_word c,C_word *av) C_noret;
C_noret_decl(f_20347)
static void C_fcall f_20347(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20350)
static void C_ccall f_20350(C_word c,C_word *av) C_noret;
C_noret_decl(f_20365)
static void C_ccall f_20365(C_word c,C_word *av) C_noret;
C_noret_decl(f_20370)
static void C_fcall f_20370(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20378)
static void C_ccall f_20378(C_word c,C_word *av) C_noret;
C_noret_decl(f_20384)
static void C_ccall f_20384(C_word c,C_word *av) C_noret;
C_noret_decl(f_20387)
static void C_ccall f_20387(C_word c,C_word *av) C_noret;
C_noret_decl(f_20398)
static void C_ccall f_20398(C_word c,C_word *av) C_noret;
C_noret_decl(f_20402)
static void C_ccall f_20402(C_word c,C_word *av) C_noret;
C_noret_decl(f_20406)
static void C_ccall f_20406(C_word c,C_word *av) C_noret;
C_noret_decl(f_20414)
static void C_ccall f_20414(C_word c,C_word *av) C_noret;
C_noret_decl(f_20421)
static void C_ccall f_20421(C_word c,C_word *av) C_noret;
C_noret_decl(f_20427)
static void C_fcall f_20427(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20452)
static void C_ccall f_20452(C_word c,C_word *av) C_noret;
C_noret_decl(f_20471)
static void C_ccall f_20471(C_word c,C_word *av) C_noret;
C_noret_decl(f_20474)
static void C_ccall f_20474(C_word c,C_word *av) C_noret;
C_noret_decl(f_20484)
static void C_ccall f_20484(C_word c,C_word *av) C_noret;
C_noret_decl(f_20501)
static void C_ccall f_20501(C_word c,C_word *av) C_noret;
C_noret_decl(f_20511)
static void C_ccall f_20511(C_word c,C_word *av) C_noret;
C_noret_decl(f_20513)
static void C_fcall f_20513(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20539)
static void C_ccall f_20539(C_word c,C_word *av) C_noret;
C_noret_decl(f_20549)
static void C_fcall f_20549(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20574)
static void C_ccall f_20574(C_word c,C_word *av) C_noret;
C_noret_decl(f_20601)
static void C_ccall f_20601(C_word c,C_word *av) C_noret;
C_noret_decl(f_20606)
static C_word C_fcall f_20606(C_word t0,C_word t1);
C_noret_decl(f_20622)
static void C_ccall f_20622(C_word c,C_word *av) C_noret;
C_noret_decl(f_20637)
static void C_fcall f_20637(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20680)
static void C_ccall f_20680(C_word c,C_word *av) C_noret;
C_noret_decl(f_20686)
static void C_ccall f_20686(C_word c,C_word *av) C_noret;
C_noret_decl(f_20714)
static void C_fcall f_20714(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20762)
static void C_fcall f_20762(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20787)
static void C_ccall f_20787(C_word c,C_word *av) C_noret;
C_noret_decl(f_20796)
static void C_ccall f_20796(C_word c,C_word *av) C_noret;
C_noret_decl(f_20815)
static void C_ccall f_20815(C_word c,C_word *av) C_noret;
C_noret_decl(f_20818)
static void C_ccall f_20818(C_word c,C_word *av) C_noret;
C_noret_decl(f_20821)
static void C_fcall f_20821(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20824)
static void C_ccall f_20824(C_word c,C_word *av) C_noret;
C_noret_decl(f_20828)
static void C_fcall f_20828(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20835)
static void C_ccall f_20835(C_word c,C_word *av) C_noret;
C_noret_decl(f_20850)
static void C_ccall f_20850(C_word c,C_word *av) C_noret;
C_noret_decl(f_20854)
static void C_ccall f_20854(C_word c,C_word *av) C_noret;
C_noret_decl(f_20866)
static void C_ccall f_20866(C_word c,C_word *av) C_noret;
C_noret_decl(f_20887)
static void C_ccall f_20887(C_word c,C_word *av) C_noret;
C_noret_decl(f_20891)
static void C_ccall f_20891(C_word c,C_word *av) C_noret;
C_noret_decl(f_20902)
static void C_ccall f_20902(C_word c,C_word *av) C_noret;
C_noret_decl(f_20917)
static void C_ccall f_20917(C_word c,C_word *av) C_noret;
C_noret_decl(f_20921)
static void C_ccall f_20921(C_word c,C_word *av) C_noret;
C_noret_decl(f_20936)
static void C_ccall f_20936(C_word c,C_word *av) C_noret;
C_noret_decl(f_20969)
static void C_ccall f_20969(C_word c,C_word *av) C_noret;
C_noret_decl(f_20990)
static void C_ccall f_20990(C_word c,C_word *av) C_noret;
C_noret_decl(f_21001)
static void C_ccall f_21001(C_word c,C_word *av) C_noret;
C_noret_decl(f_21005)
static void C_ccall f_21005(C_word c,C_word *av) C_noret;
C_noret_decl(f_21244)
static void C_fcall f_21244(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_21249)
static void C_fcall f_21249(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21261)
static void C_fcall f_21261(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21286)
static void C_ccall f_21286(C_word c,C_word *av) C_noret;
C_noret_decl(f_21295)
static void C_fcall f_21295(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21302)
static void C_ccall f_21302(C_word c,C_word *av) C_noret;
C_noret_decl(f_21306)
static void C_fcall f_21306(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21322)
static void C_ccall f_21322(C_word c,C_word *av) C_noret;
C_noret_decl(f_21333)
static void C_ccall f_21333(C_word c,C_word *av) C_noret;
C_noret_decl(f_21336)
static void C_ccall f_21336(C_word c,C_word *av) C_noret;
C_noret_decl(f_21339)
static void C_ccall f_21339(C_word c,C_word *av) C_noret;
C_noret_decl(f_21342)
static void C_ccall f_21342(C_word c,C_word *av) C_noret;
C_noret_decl(f_21345)
static void C_ccall f_21345(C_word c,C_word *av) C_noret;
C_noret_decl(f_21348)
static void C_ccall f_21348(C_word c,C_word *av) C_noret;
C_noret_decl(f_21351)
static void C_ccall f_21351(C_word c,C_word *av) C_noret;
C_noret_decl(f_21376)
static void C_ccall f_21376(C_word c,C_word *av) C_noret;
C_noret_decl(f_21385)
static void C_ccall f_21385(C_word c,C_word *av) C_noret;
C_noret_decl(f_21403)
static void C_ccall f_21403(C_word c,C_word *av) C_noret;
C_noret_decl(f_21412)
static void C_ccall f_21412(C_word c,C_word *av) C_noret;
C_noret_decl(f_21421)
static void C_ccall f_21421(C_word c,C_word *av) C_noret;
C_noret_decl(f_21430)
static void C_ccall f_21430(C_word c,C_word *av) C_noret;
C_noret_decl(f_21439)
static void C_ccall f_21439(C_word c,C_word *av) C_noret;
C_noret_decl(f_21448)
static void C_ccall f_21448(C_word c,C_word *av) C_noret;
C_noret_decl(f_21466)
static void C_ccall f_21466(C_word c,C_word *av) C_noret;
C_noret_decl(f_21475)
static void C_ccall f_21475(C_word c,C_word *av) C_noret;
C_noret_decl(f_21484)
static void C_ccall f_21484(C_word c,C_word *av) C_noret;
C_noret_decl(f_21493)
static void C_ccall f_21493(C_word c,C_word *av) C_noret;
C_noret_decl(f_21502)
static void C_ccall f_21502(C_word c,C_word *av) C_noret;
C_noret_decl(f_21511)
static void C_ccall f_21511(C_word c,C_word *av) C_noret;
C_noret_decl(f_21520)
static void C_ccall f_21520(C_word c,C_word *av) C_noret;
C_noret_decl(f_21524)
static void C_ccall f_21524(C_word c,C_word *av) C_noret;
C_noret_decl(f_21526)
static void C_fcall f_21526(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_21530)
static void C_ccall f_21530(C_word c,C_word *av) C_noret;
C_noret_decl(f_21534)
static void C_fcall f_21534(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21559)
static void C_ccall f_21559(C_word c,C_word *av) C_noret;
C_noret_decl(f_21570)
static void C_ccall f_21570(C_word c,C_word *av) C_noret;
C_noret_decl(f_21575)
static void C_fcall f_21575(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21579)
static void C_ccall f_21579(C_word c,C_word *av) C_noret;
C_noret_decl(f_21582)
static void C_fcall f_21582(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21585)
static void C_fcall f_21585(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21596)
static void C_ccall f_21596(C_word c,C_word *av) C_noret;
C_noret_decl(f_21607)
static void C_ccall f_21607(C_word c,C_word *av) C_noret;
C_noret_decl(f_21614)
static void C_ccall f_21614(C_word c,C_word *av) C_noret;
C_noret_decl(f_21623)
static void C_ccall f_21623(C_word c,C_word *av) C_noret;
C_noret_decl(f_21631)
static void C_fcall f_21631(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_21635)
static void C_ccall f_21635(C_word c,C_word *av) C_noret;
C_noret_decl(f_21638)
static void C_ccall f_21638(C_word c,C_word *av) C_noret;
C_noret_decl(f_21641)
static void C_ccall f_21641(C_word c,C_word *av) C_noret;
C_noret_decl(f_21650)
static void C_fcall f_21650(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21678)
static void C_fcall f_21678(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21689)
static void C_ccall f_21689(C_word c,C_word *av) C_noret;
C_noret_decl(f_21709)
static void C_ccall f_21709(C_word c,C_word *av) C_noret;
C_noret_decl(f_21713)
static void C_ccall f_21713(C_word c,C_word *av) C_noret;
C_noret_decl(f_21734)
static void C_ccall f_21734(C_word c,C_word *av) C_noret;
C_noret_decl(f_21755)
static void C_ccall f_21755(C_word c,C_word *av) C_noret;
C_noret_decl(f_21772)
static void C_ccall f_21772(C_word c,C_word *av) C_noret;
C_noret_decl(f_21776)
static void C_ccall f_21776(C_word c,C_word *av) C_noret;
C_noret_decl(f_21797)
static void C_ccall f_21797(C_word c,C_word *av) C_noret;
C_noret_decl(f_21801)
static void C_ccall f_21801(C_word c,C_word *av) C_noret;
C_noret_decl(f_21805)
static void C_ccall f_21805(C_word c,C_word *av) C_noret;
C_noret_decl(f_21826)
static void C_ccall f_21826(C_word c,C_word *av) C_noret;
C_noret_decl(f_21851)
static void C_ccall f_21851(C_word c,C_word *av) C_noret;
C_noret_decl(f_21867)
static void C_ccall f_21867(C_word c,C_word *av) C_noret;
C_noret_decl(f_21877)
static void C_fcall f_21877(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21893)
static void C_ccall f_21893(C_word c,C_word *av) C_noret;
C_noret_decl(f_21897)
static void C_ccall f_21897(C_word c,C_word *av) C_noret;
C_noret_decl(f_21906)
static void C_ccall f_21906(C_word c,C_word *av) C_noret;
C_noret_decl(f_21947)
static void C_ccall f_21947(C_word c,C_word *av) C_noret;
C_noret_decl(f_21954)
static void C_ccall f_21954(C_word c,C_word *av) C_noret;
C_noret_decl(f_21957)
static void C_ccall f_21957(C_word c,C_word *av) C_noret;
C_noret_decl(f_21960)
static void C_ccall f_21960(C_word c,C_word *av) C_noret;
C_noret_decl(f_21963)
static void C_ccall f_21963(C_word c,C_word *av) C_noret;
C_noret_decl(f_21966)
static void C_ccall f_21966(C_word c,C_word *av) C_noret;
C_noret_decl(f_21974)
static void C_ccall f_21974(C_word c,C_word *av) C_noret;
C_noret_decl(f_22003)
static void C_ccall f_22003(C_word c,C_word *av) C_noret;
C_noret_decl(f_22010)
static void C_fcall f_22010(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22014)
static void C_ccall f_22014(C_word c,C_word *av) C_noret;
C_noret_decl(f_22029)
static void C_ccall f_22029(C_word c,C_word *av) C_noret;
C_noret_decl(f_22052)
static void C_ccall f_22052(C_word c,C_word *av) C_noret;
C_noret_decl(f_22073)
static void C_ccall f_22073(C_word c,C_word *av) C_noret;
C_noret_decl(f_22082)
static void C_ccall f_22082(C_word c,C_word *av) C_noret;
C_noret_decl(f_22088)
static void C_ccall f_22088(C_word c,C_word *av) C_noret;
C_noret_decl(f_22113)
static void C_ccall f_22113(C_word c,C_word *av) C_noret;
C_noret_decl(f_22145)
static void C_ccall f_22145(C_word c,C_word *av) C_noret;
C_noret_decl(f_22149)
static void C_ccall f_22149(C_word c,C_word *av) C_noret;
C_noret_decl(f_22157)
static void C_ccall f_22157(C_word c,C_word *av) C_noret;
C_noret_decl(f_22165)
static void C_ccall f_22165(C_word c,C_word *av) C_noret;
C_noret_decl(f_22169)
static void C_ccall f_22169(C_word c,C_word *av) C_noret;
C_noret_decl(f_22179)
static void C_ccall f_22179(C_word c,C_word *av) C_noret;
C_noret_decl(f_22206)
static void C_ccall f_22206(C_word c,C_word *av) C_noret;
C_noret_decl(f_22210)
static void C_ccall f_22210(C_word c,C_word *av) C_noret;
C_noret_decl(f_22229)
static void C_ccall f_22229(C_word c,C_word *av) C_noret;
C_noret_decl(f_22233)
static void C_fcall f_22233(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22249)
static void C_ccall f_22249(C_word c,C_word *av) C_noret;
C_noret_decl(f_22263)
static void C_ccall f_22263(C_word c,C_word *av) C_noret;
C_noret_decl(f_22269)
static void C_ccall f_22269(C_word c,C_word *av) C_noret;
C_noret_decl(f_22272)
static void C_fcall f_22272(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22275)
static void C_fcall f_22275(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22294)
static void C_ccall f_22294(C_word c,C_word *av) C_noret;
C_noret_decl(f_22302)
static void C_ccall f_22302(C_word c,C_word *av) C_noret;
C_noret_decl(f_22343)
static void C_ccall f_22343(C_word c,C_word *av) C_noret;
C_noret_decl(f_22347)
static void C_ccall f_22347(C_word c,C_word *av) C_noret;
C_noret_decl(f_22362)
static void C_fcall f_22362(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22366)
static void C_ccall f_22366(C_word c,C_word *av) C_noret;
C_noret_decl(f_22369)
static void C_fcall f_22369(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22372)
static void C_fcall f_22372(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22379)
static void C_ccall f_22379(C_word c,C_word *av) C_noret;
C_noret_decl(f_22399)
static void C_ccall f_22399(C_word c,C_word *av) C_noret;
C_noret_decl(f_22403)
static void C_ccall f_22403(C_word c,C_word *av) C_noret;
C_noret_decl(f_22410)
static void C_fcall f_22410(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22447)
static void C_fcall f_22447(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22454)
static void C_ccall f_22454(C_word c,C_word *av) C_noret;
C_noret_decl(f_22474)
static void C_fcall f_22474(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22495)
static void C_fcall f_22495(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22498)
static void C_ccall f_22498(C_word c,C_word *av) C_noret;
C_noret_decl(f_22505)
static void C_ccall f_22505(C_word c,C_word *av) C_noret;
C_noret_decl(f_22509)
static void C_ccall f_22509(C_word c,C_word *av) C_noret;
C_noret_decl(f_22515)
static void C_ccall f_22515(C_word c,C_word *av) C_noret;
C_noret_decl(f_22518)
static void C_ccall f_22518(C_word c,C_word *av) C_noret;
C_noret_decl(f_22521)
static void C_ccall f_22521(C_word c,C_word *av) C_noret;
C_noret_decl(f_22524)
static void C_ccall f_22524(C_word c,C_word *av) C_noret;
C_noret_decl(f_22527)
static void C_ccall f_22527(C_word c,C_word *av) C_noret;
C_noret_decl(f_22531)
static void C_ccall f_22531(C_word c,C_word *av) C_noret;
C_noret_decl(f_22542)
static void C_ccall f_22542(C_word c,C_word *av) C_noret;
C_noret_decl(f_22553)
static void C_ccall f_22553(C_word c,C_word *av) C_noret;
C_noret_decl(f_22559)
static void C_ccall f_22559(C_word c,C_word *av) C_noret;
C_noret_decl(f_22573)
static void C_ccall f_22573(C_word c,C_word *av) C_noret;
C_noret_decl(f_22583)
static void C_ccall f_22583(C_word c,C_word *av) C_noret;
C_noret_decl(f_22595)
static void C_ccall f_22595(C_word c,C_word *av) C_noret;
C_noret_decl(f_22598)
static void C_ccall f_22598(C_word c,C_word *av) C_noret;
C_noret_decl(f_22601)
static void C_ccall f_22601(C_word c,C_word *av) C_noret;
C_noret_decl(f_22620)
static void C_ccall f_22620(C_word c,C_word *av) C_noret;
C_noret_decl(f_22632)
static void C_ccall f_22632(C_word c,C_word *av) C_noret;
C_noret_decl(f_22661)
static void C_ccall f_22661(C_word c,C_word *av) C_noret;
C_noret_decl(f_22672)
static void C_ccall f_22672(C_word c,C_word *av) C_noret;
C_noret_decl(f_22682)
static void C_fcall f_22682(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_22691)
static void C_ccall f_22691(C_word c,C_word *av) C_noret;
C_noret_decl(f_22702)
static void C_ccall f_22702(C_word c,C_word *av) C_noret;
C_noret_decl(f_22713)
static void C_ccall f_22713(C_word c,C_word *av) C_noret;
C_noret_decl(f_22716)
static void C_ccall f_22716(C_word c,C_word *av) C_noret;
C_noret_decl(f_22723)
static void C_ccall f_22723(C_word c,C_word *av) C_noret;
C_noret_decl(f_22733)
static void C_ccall f_22733(C_word c,C_word *av) C_noret;
C_noret_decl(f_22774)
static void C_ccall f_22774(C_word c,C_word *av) C_noret;
C_noret_decl(f_22841)
static void C_fcall f_22841(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_22846)
static void C_fcall f_22846(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22858)
static void C_fcall f_22858(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22883)
static void C_ccall f_22883(C_word c,C_word *av) C_noret;
C_noret_decl(f_22892)
static void C_fcall f_22892(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22899)
static void C_ccall f_22899(C_word c,C_word *av) C_noret;
C_noret_decl(f_22924)
static C_word C_fcall f_22924(C_word t0,C_word t1);
C_noret_decl(f_22940)
static C_word C_fcall f_22940(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_22949)
static void C_fcall f_22949(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22953)
static void C_ccall f_22953(C_word c,C_word *av) C_noret;
C_noret_decl(f_22957)
static C_word C_fcall f_22957(C_word t0,C_word t1);
C_noret_decl(f_22975)
static void C_ccall f_22975(C_word c,C_word *av) C_noret;
C_noret_decl(f_22977)
static void C_fcall f_22977(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22984)
static void C_ccall f_22984(C_word c,C_word *av) C_noret;
C_noret_decl(f_22991)
static void C_ccall f_22991(C_word c,C_word *av) C_noret;
C_noret_decl(f_22993)
static void C_fcall f_22993(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23010)
static void C_ccall f_23010(C_word c,C_word *av) C_noret;
C_noret_decl(f_23056)
static void C_ccall f_23056(C_word c,C_word *av) C_noret;
C_noret_decl(f_23059)
static void C_ccall f_23059(C_word c,C_word *av) C_noret;
C_noret_decl(f_23062)
static void C_ccall f_23062(C_word c,C_word *av) C_noret;
C_noret_decl(f_23065)
static void C_ccall f_23065(C_word c,C_word *av) C_noret;
C_noret_decl(f_23068)
static void C_ccall f_23068(C_word c,C_word *av) C_noret;
C_noret_decl(f_23075)
static void C_ccall f_23075(C_word c,C_word *av) C_noret;
C_noret_decl(f_23079)
static void C_ccall f_23079(C_word c,C_word *av) C_noret;
C_noret_decl(f_23083)
static void C_ccall f_23083(C_word c,C_word *av) C_noret;
C_noret_decl(f_6270)
static void C_ccall f_6270(C_word c,C_word *av) C_noret;
C_noret_decl(f_6273)
static void C_ccall f_6273(C_word c,C_word *av) C_noret;
C_noret_decl(f_6276)
static void C_ccall f_6276(C_word c,C_word *av) C_noret;
C_noret_decl(f_6279)
static void C_ccall f_6279(C_word c,C_word *av) C_noret;
C_noret_decl(f_6282)
static void C_ccall f_6282(C_word c,C_word *av) C_noret;
C_noret_decl(f_6285)
static void C_ccall f_6285(C_word c,C_word *av) C_noret;
C_noret_decl(f_6288)
static void C_ccall f_6288(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_6294)
static void C_ccall f_6294(C_word c,C_word *av) C_noret;
C_noret_decl(f_6297)
static void C_ccall f_6297(C_word c,C_word *av) C_noret;
C_noret_decl(f_6483)
static void C_fcall f_6483(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_6497)
static void C_ccall f_6497(C_word c,C_word *av) C_noret;
C_noret_decl(f_6686)
static void C_fcall f_6686(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6692)
static void C_fcall f_6692(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6714)
static void C_ccall f_6714(C_word c,C_word *av) C_noret;
C_noret_decl(f_6726)
static C_word C_fcall f_6726(C_word t0,C_word t1);
C_noret_decl(f_6750)
static void C_fcall f_6750(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6756)
static void C_fcall f_6756(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6770)
static void C_ccall f_6770(C_word c,C_word *av) C_noret;
C_noret_decl(f_6778)
static void C_fcall f_6778(C_word t0,C_word t1) C_noret;
C_noret_decl(f_6784)
static void C_fcall f_6784(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6802)
static void C_ccall f_6802(C_word c,C_word *av) C_noret;
C_noret_decl(f_6806)
static void C_fcall f_6806(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6812)
static void C_fcall f_6812(C_word t0,C_word t1,C_word t2) 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_6839)
static void C_ccall f_6839(C_word c,C_word *av) C_noret;
C_noret_decl(f_6887)
static void C_fcall f_6887(C_word t0,C_word t1,C_word t2) 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_6914)
static void C_ccall f_6914(C_word c,C_word *av) C_noret;
C_noret_decl(f_6926)
static void C_fcall f_6926(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6935)
static void C_fcall f_6935(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6943)
static void C_fcall f_6943(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6950)
static void C_ccall f_6950(C_word c,C_word *av) C_noret;
C_noret_decl(f_6964)
static void C_ccall f_6964(C_word c,C_word *av) C_noret;
C_noret_decl(f_6979)
static void C_fcall f_6979(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_6987)
static void C_fcall f_6987(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_6991)
static void C_ccall f_6991(C_word c,C_word *av) C_noret;
C_noret_decl(f_6995)
static C_word C_fcall f_6995(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_7013)
static void C_ccall f_7013(C_word c,C_word *av) C_noret;
C_noret_decl(f_7035)
static void C_fcall f_7035(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7052)
static void C_fcall f_7052(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7092)
static C_word C_fcall f_7092(C_word t0);
C_noret_decl(f_7117)
static void C_fcall f_7117(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7130)
static void C_ccall f_7130(C_word c,C_word *av) C_noret;
C_noret_decl(f_7145)
static void C_ccall f_7145(C_word c,C_word *av) C_noret;
C_noret_decl(f_7151)
static void C_fcall f_7151(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7186)
static void C_fcall f_7186(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7192)
static void C_fcall f_7192(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7214)
static void C_ccall f_7214(C_word c,C_word *av) C_noret;
C_noret_decl(f_7225)
static void C_ccall f_7225(C_word c,C_word *av) C_noret;
C_noret_decl(f_7231)
static void C_ccall f_7231(C_word c,C_word *av) C_noret;
C_noret_decl(f_7237)
static void C_fcall f_7237(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7262)
static void C_fcall f_7262(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7290)
static C_word C_fcall f_7290(C_word t0,C_word t1);
C_noret_decl(f_7304)
static void C_ccall f_7304(C_word c,C_word *av) C_noret;
C_noret_decl(f_7310)
static void C_fcall f_7310(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7316)
static void C_ccall f_7316(C_word c,C_word *av) C_noret;
C_noret_decl(f_7322)
static void C_ccall f_7322(C_word c,C_word *av) C_noret;
C_noret_decl(f_7529)
static void C_fcall f_7529(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7535)
static C_word C_fcall f_7535(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_7569)
static C_word C_fcall f_7569(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_7664)
static void C_ccall f_7664(C_word c,C_word *av) C_noret;
C_noret_decl(f_7668)
static void C_ccall f_7668(C_word c,C_word *av) C_noret;
C_noret_decl(f_7671)
static void C_ccall f_7671(C_word c,C_word *av) C_noret;
C_noret_decl(f_7674)
static void C_ccall f_7674(C_word c,C_word *av) C_noret;
C_noret_decl(f_7677)
static void C_ccall f_7677(C_word c,C_word *av) C_noret;
C_noret_decl(f_7680)
static void C_ccall f_7680(C_word c,C_word *av) C_noret;
C_noret_decl(f_7683)
static void C_ccall f_7683(C_word c,C_word *av) C_noret;
C_noret_decl(f_7693)
static void C_ccall f_7693(C_word c,C_word *av) C_noret;
C_noret_decl(f_7700)
static void C_ccall f_7700(C_word c,C_word *av) C_noret;
C_noret_decl(f_7707)
static void C_ccall f_7707(C_word c,C_word *av) C_noret;
C_noret_decl(f_7714)
static void C_ccall f_7714(C_word c,C_word *av) C_noret;
C_noret_decl(f_7716)
static void C_ccall f_7716(C_word c,C_word *av) C_noret;
C_noret_decl(f_7720)
static void C_ccall f_7720(C_word c,C_word *av) C_noret;
C_noret_decl(f_7725)
static void C_ccall f_7725(C_word c,C_word *av) C_noret;
C_noret_decl(f_7727)
static void C_fcall f_7727(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7769)
static void C_ccall f_7769(C_word c,C_word *av) C_noret;
C_noret_decl(f_7801)
static void C_fcall f_7801(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7811)
static void C_ccall f_7811(C_word c,C_word *av) C_noret;
C_noret_decl(f_7824)
static void C_ccall f_7824(C_word c,C_word *av) C_noret;
C_noret_decl(f_7827)
static void C_fcall f_7827(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7840)
static void C_fcall f_7840(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7862)
static void C_fcall f_7862(C_word t0,C_word t1,C_word t2) 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_7880)
static void C_ccall f_7880(C_word c,C_word *av) C_noret;
C_noret_decl(f_7886)
static void C_ccall f_7886(C_word c,C_word *av) C_noret;
C_noret_decl(f_7893)
static void C_ccall f_7893(C_word c,C_word *av) C_noret;
C_noret_decl(f_7900)
static void C_ccall f_7900(C_word c,C_word *av) C_noret;
C_noret_decl(f_7902)
static void C_fcall f_7902(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7906)
static void C_ccall f_7906(C_word c,C_word *av) C_noret;
C_noret_decl(f_7909)
static void C_ccall f_7909(C_word c,C_word *av) C_noret;
C_noret_decl(f_7913)
static void C_ccall f_7913(C_word c,C_word *av) C_noret;
C_noret_decl(f_7915)
static void C_fcall f_7915(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7917)
static void C_ccall f_7917(C_word c,C_word *av) C_noret;
C_noret_decl(f_7924)
static void C_ccall f_7924(C_word c,C_word *av) C_noret;
C_noret_decl(f_7927)
static void C_ccall f_7927(C_word c,C_word *av) C_noret;
C_noret_decl(f_7942)
static void C_fcall f_7942(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_7946)
static void C_ccall f_7946(C_word c,C_word *av) C_noret;
C_noret_decl(f_7951)
static void C_ccall f_7951(C_word c,C_word *av) C_noret;
C_noret_decl(f_7956)
static void C_ccall f_7956(C_word c,C_word *av) C_noret;
C_noret_decl(f_7964)
static void C_ccall f_7964(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_7971)
static void C_fcall f_7971(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7988)
static void C_fcall f_7988(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7998)
static void C_ccall f_7998(C_word c,C_word *av) C_noret;
C_noret_decl(f_8037)
static void C_fcall f_8037(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8069)
static void C_ccall f_8069(C_word c,C_word *av) C_noret;
C_noret_decl(f_8080)
static void C_fcall f_8080(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_8084)
static void C_ccall f_8084(C_word c,C_word *av) C_noret;
C_noret_decl(f_8087)
static void C_ccall f_8087(C_word c,C_word *av) C_noret;
C_noret_decl(f_8099)
static void C_ccall f_8099(C_word c,C_word *av) C_noret;
C_noret_decl(f_8103)
static void C_fcall f_8103(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8113)
static void C_ccall f_8113(C_word c,C_word *av) C_noret;
C_noret_decl(f_8117)
static void C_fcall f_8117(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8131)
static void C_fcall f_8131(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8138)
static void C_ccall f_8138(C_word c,C_word *av) C_noret;
C_noret_decl(f_8148)
static void C_ccall f_8148(C_word c,C_word *av) C_noret;
C_noret_decl(f_8152)
static void C_ccall f_8152(C_word c,C_word *av) C_noret;
C_noret_decl(f_8170)
static void C_fcall f_8170(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8177)
static void C_ccall f_8177(C_word c,C_word *av) C_noret;
C_noret_decl(f_8187)
static void C_ccall f_8187(C_word c,C_word *av) C_noret;
C_noret_decl(f_8191)
static void C_ccall f_8191(C_word c,C_word *av) C_noret;
C_noret_decl(f_8218)
static void C_fcall f_8218(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8229)
static void C_ccall f_8229(C_word c,C_word *av) C_noret;
C_noret_decl(f_8233)
static void C_ccall f_8233(C_word c,C_word *av) C_noret;
C_noret_decl(f_8236)
static void C_ccall f_8236(C_word c,C_word *av) C_noret;
C_noret_decl(f_8242)
static void C_ccall f_8242(C_word c,C_word *av) C_noret;
C_noret_decl(f_8245)
static void C_ccall f_8245(C_word c,C_word *av) C_noret;
C_noret_decl(f_8248)
static void C_ccall f_8248(C_word c,C_word *av) C_noret;
C_noret_decl(f_8272)
static void C_ccall f_8272(C_word c,C_word *av) C_noret;
C_noret_decl(f_8278)
static void C_ccall f_8278(C_word c,C_word *av) C_noret;
C_noret_decl(f_8281)
static void C_ccall f_8281(C_word c,C_word *av) C_noret;
C_noret_decl(f_8284)
static void C_ccall f_8284(C_word c,C_word *av) C_noret;
C_noret_decl(f_8287)
static void C_ccall f_8287(C_word c,C_word *av) C_noret;
C_noret_decl(f_8293)
static void C_ccall f_8293(C_word c,C_word *av) C_noret;
C_noret_decl(f_8296)
static void C_ccall f_8296(C_word c,C_word *av) C_noret;
C_noret_decl(f_8299)
static void C_ccall f_8299(C_word c,C_word *av) C_noret;
C_noret_decl(f_8314)
static void C_ccall f_8314(C_word c,C_word *av) C_noret;
C_noret_decl(f_8319)
static void C_ccall f_8319(C_word c,C_word *av) C_noret;
C_noret_decl(f_8323)
static void C_ccall f_8323(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_8334)
static void C_fcall f_8334(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8344)
static void C_ccall f_8344(C_word c,C_word *av) C_noret;
C_noret_decl(f_8359)
static void C_ccall f_8359(C_word c,C_word *av) C_noret;
C_noret_decl(f_8368)
static void C_ccall f_8368(C_word c,C_word *av) C_noret;
C_noret_decl(f_8375)
static void C_ccall f_8375(C_word c,C_word *av) C_noret;
C_noret_decl(f_8382)
static void C_ccall f_8382(C_word c,C_word *av) C_noret;
C_noret_decl(f_8388)
static void C_fcall f_8388(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret;
C_noret_decl(f_8395)
static void C_ccall f_8395(C_word c,C_word *av) C_noret;
C_noret_decl(f_8419)
static void C_ccall f_8419(C_word c,C_word *av) C_noret;
C_noret_decl(f_8434)
static void C_ccall f_8434(C_word c,C_word *av) C_noret;
C_noret_decl(f_8440)
static void C_ccall f_8440(C_word c,C_word *av) C_noret;
C_noret_decl(f_8443)
static void C_ccall f_8443(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_8465)
static void C_ccall f_8465(C_word c,C_word *av) C_noret;
C_noret_decl(f_8469)
static void C_fcall f_8469(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8497)
static void C_ccall f_8497(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_8505)
static void C_ccall f_8505(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_8576)
static void C_ccall f_8576(C_word c,C_word *av) C_noret;
C_noret_decl(f_8584)
static void C_ccall f_8584(C_word c,C_word *av) C_noret;
C_noret_decl(f_8617)
static void C_ccall f_8617(C_word c,C_word *av) C_noret;
C_noret_decl(f_8622)
static void C_fcall f_8622(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8630)
static void C_ccall f_8630(C_word c,C_word *av) C_noret;
C_noret_decl(f_8634)
static void C_ccall f_8634(C_word c,C_word *av) C_noret;
C_noret_decl(f_8651)
static void C_ccall f_8651(C_word c,C_word *av) C_noret;
C_noret_decl(f_8653)
static void C_fcall f_8653(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8678)
static void C_ccall f_8678(C_word c,C_word *av) C_noret;
C_noret_decl(f_8701)
static void C_ccall f_8701(C_word c,C_word *av) C_noret;
C_noret_decl(f_8713)
static void C_ccall f_8713(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_8723)
static void C_ccall f_8723(C_word c,C_word *av) C_noret;
C_noret_decl(f_8732)
static void C_fcall f_8732(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8745)
static void C_ccall f_8745(C_word c,C_word *av) C_noret;
C_noret_decl(f_8765)
static void C_ccall f_8765(C_word c,C_word *av) C_noret;
C_noret_decl(f_8769)
static void C_ccall f_8769(C_word c,C_word *av) C_noret;
C_noret_decl(f_8773)
static void C_ccall f_8773(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_8790)
static void C_ccall f_8790(C_word c,C_word *av) C_noret;
C_noret_decl(f_8807)
static void C_ccall f_8807(C_word c,C_word *av) C_noret;
C_noret_decl(f_8827)
static void C_ccall f_8827(C_word c,C_word *av) C_noret;
C_noret_decl(f_8833)
static void C_ccall f_8833(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_8848)
static void C_ccall f_8848(C_word c,C_word *av) C_noret;
C_noret_decl(f_8854)
static void C_ccall f_8854(C_word c,C_word *av) C_noret;
C_noret_decl(f_8870)
static void C_ccall f_8870(C_word c,C_word *av) C_noret;
C_noret_decl(f_8879)
static void C_ccall f_8879(C_word c,C_word *av) C_noret;
C_noret_decl(f_8882)
static void C_ccall f_8882(C_word c,C_word *av) C_noret;
C_noret_decl(f_8885)
static void C_ccall f_8885(C_word c,C_word *av) C_noret;
C_noret_decl(f_8891)
static void C_ccall f_8891(C_word c,C_word *av) C_noret;
C_noret_decl(f_8899)
static void C_fcall f_8899(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8907)
static void C_ccall f_8907(C_word c,C_word *av) C_noret;
C_noret_decl(f_8922)
static void C_ccall f_8922(C_word c,C_word *av) C_noret;
C_noret_decl(f_8926)
static void C_ccall f_8926(C_word c,C_word *av) C_noret;
C_noret_decl(f_8928)
static void C_ccall f_8928(C_word c,C_word *av) C_noret;
C_noret_decl(f_8932)
static void C_ccall f_8932(C_word c,C_word *av) C_noret;
C_noret_decl(f_8936)
static void C_ccall f_8936(C_word c,C_word *av) C_noret;
C_noret_decl(f_8939)
static void C_ccall f_8939(C_word c,C_word *av) C_noret;
C_noret_decl(f_8945)
static void C_ccall f_8945(C_word c,C_word *av) C_noret;
C_noret_decl(f_8953)
static void C_ccall f_8953(C_word c,C_word *av) C_noret;
C_noret_decl(f_8957)
static void C_ccall f_8957(C_word c,C_word *av) C_noret;
C_noret_decl(f_8963)
static void C_ccall f_8963(C_word c,C_word *av) C_noret;
C_noret_decl(f_8967)
static void C_ccall f_8967(C_word c,C_word *av) C_noret;
C_noret_decl(f_8970)
static void C_ccall f_8970(C_word c,C_word *av) C_noret;
C_noret_decl(f_8973)
static void C_fcall f_8973(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9002)
static void C_ccall f_9002(C_word c,C_word *av) C_noret;
C_noret_decl(f_9023)
static void C_ccall f_9023(C_word c,C_word *av) C_noret;
C_noret_decl(f_9025)
static void C_fcall f_9025(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9050)
static void C_ccall f_9050(C_word c,C_word *av) C_noret;
C_noret_decl(f_9098)
static void C_ccall f_9098(C_word c,C_word *av) C_noret;
C_noret_decl(f_9102)
static void C_ccall f_9102(C_word c,C_word *av) C_noret;
C_noret_decl(f_9122)
static void C_ccall f_9122(C_word c,C_word *av) C_noret;
C_noret_decl(f_9136)
static void C_fcall f_9136(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9170)
static void C_fcall f_9170(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9214)
static void C_ccall f_9214(C_word c,C_word *av) C_noret;
C_noret_decl(f_9223)
static void C_ccall f_9223(C_word c,C_word *av) C_noret;
C_noret_decl(f_9252)
static void C_ccall f_9252(C_word c,C_word *av) C_noret;
C_noret_decl(f_9265)
static C_word C_fcall f_9265(C_word *a,C_word t0,C_word t1,C_word t2);
C_noret_decl(f_9283)
static void C_ccall f_9283(C_word c,C_word *av) C_noret;
C_noret_decl(f_9287)
static void C_ccall f_9287(C_word c,C_word *av) C_noret;
C_noret_decl(f_9299)
static void C_ccall f_9299(C_word c,C_word *av) C_noret;
C_noret_decl(f_9313)
static void C_fcall f_9313(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9361)
static void C_fcall f_9361(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9409)
static void C_fcall f_9409(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9443)
static void C_fcall f_9443(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9468)
static void C_ccall f_9468(C_word c,C_word *av) C_noret;
C_noret_decl(f_9488)
static void C_fcall f_9488(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9496)
static void C_ccall f_9496(C_word c,C_word *av) C_noret;
C_noret_decl(f_9504)
static void C_ccall f_9504(C_word c,C_word *av) C_noret;
C_noret_decl(f_9507)
static void C_ccall f_9507(C_word c,C_word *av) C_noret;
C_noret_decl(f_9512)
static void C_ccall f_9512(C_word c,C_word *av) C_noret;
C_noret_decl(f_9517)
static void C_ccall f_9517(C_word c,C_word *av) C_noret;
C_noret_decl(f_9527)
static void C_ccall f_9527(C_word c,C_word *av) C_noret;
C_noret_decl(f_9532)
static void C_fcall f_9532(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9557)
static void C_ccall f_9557(C_word c,C_word *av) C_noret;
C_noret_decl(f_9578)
static void C_ccall f_9578(C_word c,C_word *av) C_noret;
C_noret_decl(f_9583)
static void C_ccall f_9583(C_word c,C_word *av) C_noret;
C_noret_decl(f_9593)
static void C_ccall f_9593(C_word c,C_word *av) C_noret;
C_noret_decl(f_9596)
static void C_ccall f_9596(C_word c,C_word *av) C_noret;
C_noret_decl(f_9602)
static void C_ccall f_9602(C_word c,C_word *av) C_noret;
C_noret_decl(f_9605)
static void C_ccall f_9605(C_word c,C_word *av) C_noret;
C_noret_decl(f_9608)
static void C_ccall f_9608(C_word c,C_word *av) C_noret;
C_noret_decl(f_9614)
static void C_ccall f_9614(C_word c,C_word *av) C_noret;
C_noret_decl(f_9623)
static void C_fcall f_9623(C_word t0,C_word t1) 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_9636)
static void C_ccall f_9636(C_word c,C_word *av) C_noret;
C_noret_decl(f_9667)
static void C_ccall f_9667(C_word c,C_word *av) C_noret;
C_noret_decl(f_9678)
static void C_ccall f_9678(C_word c,C_word *av) C_noret;
C_noret_decl(f_9680)
static void C_ccall f_9680(C_word c,C_word *av) C_noret;
C_noret_decl(f_9684)
static void C_ccall f_9684(C_word c,C_word *av) C_noret;
C_noret_decl(f_9688)
static void C_ccall f_9688(C_word c,C_word *av) C_noret;
C_noret_decl(f_9691)
static void C_ccall f_9691(C_word c,C_word *av) C_noret;
C_noret_decl(f_9697)
static void C_ccall f_9697(C_word c,C_word *av) C_noret;
C_noret_decl(f_9701)
static void C_ccall f_9701(C_word c,C_word *av) C_noret;
C_noret_decl(f_9706)
static void C_ccall f_9706(C_word c,C_word *av) C_noret;
C_noret_decl(f_9711)
static void C_ccall f_9711(C_word c,C_word *av) C_noret;
C_noret_decl(f_9719)
static void C_fcall f_9719(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9723)
static void C_ccall f_9723(C_word c,C_word *av) C_noret;
C_noret_decl(f_9736)
static void C_ccall f_9736(C_word c,C_word *av) C_noret;
C_noret_decl(f_9741)
static void C_ccall f_9741(C_word c,C_word *av) C_noret;
C_noret_decl(f_9745)
static void C_ccall f_9745(C_word c,C_word *av) C_noret;
C_noret_decl(f_9748)
static void C_ccall f_9748(C_word c,C_word *av) C_noret;
C_noret_decl(f_9753)
static void C_ccall f_9753(C_word c,C_word *av) C_noret;
C_noret_decl(f_9755)
static void C_fcall f_9755(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9780)
static void C_ccall f_9780(C_word c,C_word *av) C_noret;
C_noret_decl(f_9790)
static void C_ccall f_9790(C_word c,C_word *av) C_noret;
C_noret_decl(f_9795)
static void C_ccall f_9795(C_word c,C_word *av) C_noret;
C_noret_decl(f_9803)
static void C_ccall f_9803(C_word c,C_word *av) C_noret;
C_noret_decl(f_9805)
static void C_ccall f_9805(C_word c,C_word *av) C_noret;
C_noret_decl(f_9817)
static void C_ccall f_9817(C_word c,C_word *av) C_noret;
C_noret_decl(f_9822)
static void C_ccall f_9822(C_word c,C_word *av) C_noret;
C_noret_decl(f_9826)
static void C_ccall f_9826(C_word c,C_word *av) C_noret;
C_noret_decl(f_9830)
static void C_ccall f_9830(C_word c,C_word *av) C_noret;
C_noret_decl(f_9833)
static void C_ccall f_9833(C_word c,C_word *av) C_noret;
C_noret_decl(f_9839)
static void C_ccall f_9839(C_word c,C_word *av) C_noret;
C_noret_decl(f_9843)
static void C_ccall f_9843(C_word c,C_word *av) C_noret;
C_noret_decl(f_9853)
static void C_ccall f_9853(C_word c,C_word *av) C_noret;
C_noret_decl(f_9859)
static void C_ccall f_9859(C_word c,C_word *av) C_noret;
C_noret_decl(f_9863)
static void C_ccall f_9863(C_word c,C_word *av) 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_9884)
static void C_ccall f_9884(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_9892)
static void C_ccall f_9892(C_word c,C_word *av) C_noret;
C_noret_decl(f_9907)
static void C_ccall f_9907(C_word c,C_word *av) C_noret;
C_noret_decl(f_9911)
static void C_ccall f_9911(C_word c,C_word *av) C_noret;
C_noret_decl(f_9913)
static void C_fcall f_9913(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9967)
static void C_ccall f_9967(C_word c,C_word *av) C_noret;
C_noret_decl(f_9971)
static void C_ccall f_9971(C_word c,C_word *av) C_noret;
C_noret_decl(f_9986)
static void C_ccall f_9986(C_word c,C_word *av) C_noret;
C_noret_decl(f_9989)
static void C_ccall f_9989(C_word c,C_word *av) C_noret;
C_noret_decl(f_9992)
static void C_ccall f_9992(C_word c,C_word *av) C_noret;
C_noret_decl(f_9996)
static C_word C_fcall f_9996(C_word t0,C_word t1);
C_noret_decl(C_compiler_toplevel)
C_externexport void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(va26422)
static void C_fcall va26422(C_word t0,C_word t1) C_noret;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_13619)
static void C_ccall trf_13619(C_word c,C_word *av) C_noret;
static void C_ccall trf_13619(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_13619(t0,t1,t2,t3,t4,t5,t6);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_15720)
static void C_ccall trf_15720(C_word c,C_word *av) C_noret;
static void C_ccall trf_15720(C_word c,C_word *av){
C_word t0=av[7];
C_word t1=av[6];
C_word t2=av[5];
C_word t3=av[4];
C_word t4=av[3];
C_word t5=av[2];
C_word t6=av[1];
C_word t7=av[0];
f_15720(t0,t1,t2,t3,t4,t5,t6,t7);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_17393)
static void C_ccall trf_17393(C_word c,C_word *av) C_noret;
static void C_ccall trf_17393(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_17393(t0,t1,t2,t3,t4,t5,t6);}

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

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

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

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

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

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

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

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

C_noret_decl(trf_17998)
static void C_ccall trf_17998(C_word c,C_word *av) C_noret;
static void C_ccall trf_17998(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_17998(t0,t1,t2,t3,t4,t5,t6);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_21631)
static void C_ccall trf_21631(C_word c,C_word *av) C_noret;
static void C_ccall trf_21631(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_21631(t0,t1,t2,t3,t4,t5,t6);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_22841)
static void C_ccall trf_22841(C_word c,C_word *av) C_noret;
static void C_ccall trf_22841(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_22841(t0,t1,t2,t3,t4,t5,t6);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

C_noret_decl(trf_8080)
static void C_ccall trf_8080(C_word c,C_word *av) C_noret;
static void C_ccall trf_8080(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_8080(t0,t1,t2,t3,t4,t5,t6);}

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

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

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

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

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

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

C_noret_decl(trf_8388)
static void C_ccall trf_8388(C_word c,C_word *av) C_noret;
static void C_ccall trf_8388(C_word c,C_word *av){
C_word t0=av[8];
C_word t1=av[7];
C_word t2=av[6];
C_word t3=av[5];
C_word t4=av[4];
C_word t5=av[3];
C_word t6=av[2];
C_word t7=av[1];
C_word t8=av[0];
f_8388(t0,t1,t2,t3,t4,t5,t6,t7,t8);}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

/* f24858 in k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f24858(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f24858,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[341];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a10014 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_10015(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_10015,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* core.scm:890: ##sys#current-environment1643 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_10019(2,av2);}}}

/* k10017 in a10014 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10019(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_10019,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10023,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);
/* core.scm:890: ##sys#current-environment1643 */
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10021 in k10017 in a10014 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_10023(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_10023,c,av);}
a=C_alloc(4);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10026,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:890: ##sys#current-environment1643 */
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k10024 in k10021 in k10017 in a10014 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_10026(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10026,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a10031 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_10032(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_10032,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10040,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* core.scm:892: canonicalize-body/ln */
t3=((C_word*)((C_word*)t0)[8])[1];
f_7942(t3,t2,((C_word*)t0)[7],C_i_cddr(((C_word*)t0)[9]),*((C_word*)lf[52]+1));}

/* k10038 in a10031 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10040(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10040,c,av);}
/* core.scm:891: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* a10045 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_10046(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10046,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10050,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:890: ##sys#current-environment1643 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10048 in a10045 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10050(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_10050,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10053,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:890: ##sys#current-environment1643 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10051 in k10048 in a10045 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_10053(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10053,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* for-each-loop1634 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static C_word C_fcall f_10056(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=(
/* core.scm:886: g1635 */
  f_9996(((C_word*)t0)[2],C_slot(t1,C_fix(0)))
);
t4=C_slot(t1,C_fix(1));
t1=t4;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* k10079 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10081(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10081,c,av);}
/* core.scm:884: scheme#append */
t2=*((C_word*)lf[5]+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);}}

/* map-loop1602 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_10083(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;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_10083,3,t0,t1,t2);}
a=C_alloc(11);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9967,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9971,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* core.scm:881: ##sys#eval/meta */
t7=*((C_word*)lf[195]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_cadr(t3);
((C_proc)(void*)(*((C_word*)t7+1)))(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);}}}

/* k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10124(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_10124,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10127,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);
t3=C_i_cadr(((C_word*)t0)[10]);
if(C_truep(C_i_pairp(t3))){
/* core.scm:903: scheme#caadr */
t4=*((C_word*)lf[161]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[10];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_car(C_u_i_cdr(((C_word*)t0)[10]));
f_10127(2,av2);}}}

/* k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10127(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_10127,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10130,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
t3=C_u_i_cdr(((C_word*)t0)[10]);
if(C_truep(C_i_pairp(C_u_i_car(t3)))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10183,a[2]=((C_word*)t0)[10],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:905: scheme#cdadr */
t5=*((C_word*)lf[203]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[10];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t2;
f_10130(t4,C_i_caddr(((C_word*)t0)[10]));}}

/* k10128 in k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_10130(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_10130,2,t0,t1);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10133,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:907: lookup */
t3=((C_word*)((C_word*)t0)[10])[1];
f_7862(t3,t2,((C_word*)t0)[2]);}

/* k10131 in k10128 in k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_10133(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_10133,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10136,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,tmp=(C_word)a,a+=12,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10169,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:908: ##sys#current-module */
t4=*((C_word*)lf[202]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k10134 in k10131 in k10128 in k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10136(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_10136,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10139,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);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10161,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:911: ##sys#current-environment */
t4=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k10137 in k10134 in k10131 in k10128 in k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_10139(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){
C_save_and_reclaim((void *)f_10139,c,av);}
a=C_alloc(21);
if(C_truep(*((C_word*)lf[198]+1))){
t2=C_a_i_list(&a,2,lf[146],((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,lf[106]);
t4=C_a_i_list(&a,4,lf[199],t2,t3,((C_word*)t0)[3]);
/* core.scm:913: walk */
t5=((C_word*)((C_word*)t0)[4])[1];
f_8388(t5,((C_word*)t0)[5],t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}
else{
/* core.scm:913: walk */
t2=((C_word*)((C_word*)t0)[4])[1];
f_8388(t2,((C_word*)t0)[5],lf[200],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}}

/* k10159 in k10134 in k10131 in k10128 in k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_10161(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10161,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10165,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:912: ##sys#eval/meta */
t3=*((C_word*)lf[195]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10163 in k10159 in k10134 in k10131 in k10128 in k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_10165(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10165,c,av);}
/* core.scm:909: ##sys#extend-macro-environment */
t2=*((C_word*)lf[199]+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);}}

/* k10167 in k10131 in k10128 in k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10169,c,av);}
/* core.scm:908: ##sys#register-syntax-export */
t2=*((C_word*)lf[201]+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]=t1;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k10181 in k10125 in k10122 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10183(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_10183,c,av);}
a=C_alloc(6);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_u_i_cdr(t2);
t4=C_a_i_cons(&a,2,t1,t3);
t5=((C_word*)t0)[3];
f_10130(t5,C_a_i_cons(&a,2,lf[96],t4));}

/* k10212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_10214,c,av);}
/* core.scm:897: ##sys#check-syntax */
t2=*((C_word*)lf[206]+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]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=C_SCHEME_FALSE;
av2[6]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* k10234 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10236(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_10236,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10239,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10306,a[2]=((C_word*)t0)[11],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:929: ##sys#get */
t4=*((C_word*)lf[102]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t1;
av2[3]=lf[208];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=t2;
f_10239(t3,C_SCHEME_UNDEFINED);}}

/* k10237 in k10234 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_10239(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){
C_save_and_reclaim_args((void *)trf_10239,2,t0,t1);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10242,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)[3])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10290,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10298,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:936: ##sys#eval/meta */
t5=*((C_word*)lf[195]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
/* core.scm:931: ##sys#put! */
t3=*((C_word*)lf[108]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[208];
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k10240 in k10237 in k10234 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10242(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(51,c,8)))){
C_save_and_reclaim((void *)f_10242,c,av);}
a=C_alloc(51);
if(C_truep(*((C_word*)lf[198]+1))){
t2=C_a_i_list(&a,2,lf[145],((C_word*)t0)[2]);
t3=C_a_i_list(&a,2,lf[118],lf[208]);
if(C_truep(((C_word*)t0)[3])){
t4=C_a_i_list(&a,2,lf[146],((C_word*)t0)[4]);
t5=C_a_i_list(&a,3,lf[194],((C_word*)t0)[3],t4);
t6=C_a_i_list(&a,1,lf[106]);
t7=C_a_i_list(&a,3,lf[209],t5,t6);
t8=C_a_i_list(&a,4,lf[108],t2,t3,t7);
/* core.scm:939: walk */
t9=((C_word*)((C_word*)t0)[5])[1];
f_8388(t9,((C_word*)t0)[6],t8,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_FALSE);}
else{
t4=C_a_i_list(&a,4,lf[108],t2,t3,C_SCHEME_FALSE);
/* core.scm:939: walk */
t5=((C_word*)((C_word*)t0)[5])[1];
f_8388(t5,((C_word*)t0)[6],t4,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_FALSE);}}
else{
/* core.scm:939: walk */
t2=((C_word*)((C_word*)t0)[5])[1];
f_8388(t2,((C_word*)t0)[6],lf[210],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],C_SCHEME_FALSE);}}

/* k10288 in k10237 in k10234 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10290(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10290,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10294,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:938: ##sys#current-environment */
t3=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10292 in k10288 in k10237 in k10234 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_10294(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_10294,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* core.scm:931: ##sys#put! */
t3=*((C_word*)lf[108]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=lf[208];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10296 in k10237 in k10234 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10298(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10298,c,av);}
/* core.scm:935: ##sys#ensure-transformer */
t2=*((C_word*)lf[194]+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);}}

/* k10304 in k10234 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10306(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_10306,c,av);}
a=C_alloc(6);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
t6=((C_word*)t0)[4];
f_10239(t6,t5);}

/* g1701 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_10316(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_10316,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10320,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* core.scm:956: ##sys#check-syntax */
t4=*((C_word*)lf[206]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[212];
av2[3]=t2;
av2[4]=lf[213];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k10318 in g1701 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10320(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_10320,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10323,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:958: lookup */
t3=((C_word*)((C_word*)t0)[4])[1];
f_7862(t3,t2,C_i_car(((C_word*)t0)[3]));}

/* k10321 in k10318 in g1701 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10323(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_10323,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10330,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[3])))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10344,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10352,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:963: ##sys#eval/meta */
t5=*((C_word*)lf[195]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=t2;
f_10330(t3,C_SCHEME_FALSE);}}

/* k10328 in k10321 in k10318 in g1701 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_10330(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_10330,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10334,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:966: ##sys#get */
t3=*((C_word*)lf[102]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[208];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k10332 in k10328 in k10321 in k10318 in g1701 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10334(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_10334,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k10342 in k10321 in k10318 in g1701 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_10344(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_10344,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10348,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:965: ##sys#current-environment */
t3=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10346 in k10342 in k10321 in k10318 in g1701 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10348,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
f_10330(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));}

/* k10350 in k10321 in k10318 in g1701 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_10352(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10352,c,av);}
/* core.scm:962: ##sys#ensure-transformer */
t2=*((C_word*)lf[194]+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_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10373(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_10373,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10376,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:968: chicken.compiler.support#get-line */
t3=*((C_word*)lf[113]+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)[10];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10376(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_10376,c,av);}
a=C_alloc(17);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10384,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10429,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t2,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);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10443,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* core.scm:969: scheme#dynamic-wind */
t6=*((C_word*)lf[214]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[12];
av2[2]=t3;
av2[3]=t4;
av2[4]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* a10383 in k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10384(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_10384,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[99]);
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_10406,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_10406(t6,t1,((C_word*)t0)[2]);}

/* for-each-loop1728 in a10383 in k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_10406(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_10406,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_10416,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));
/* core.scm:973: ##sys#put! */
t5=*((C_word*)lf[108]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t3;
av2[2]=C_i_car(t4);
av2[3]=lf[208];
av2[4]=C_i_cadr(t4);
((C_proc)(void*)(*((C_word*)t5+1)))(5,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);}}}

/* k10414 in for-each-loop1728 in a10383 in k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10416(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10416,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10406(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a10428 in k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10429(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_10429,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10437,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:977: canonicalize-body/ln */
t3=((C_word*)((C_word*)t0)[9])[1];
f_7942(t3,t2,((C_word*)t0)[7],C_i_cddr(((C_word*)t0)[10]),*((C_word*)lf[52]+1));}

/* k10435 in a10428 in k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_10437(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10437,c,av);}
/* core.scm:976: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* a10442 in k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10443(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_10443,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[99]);
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_10465,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_10465(t6,t1,((C_word*)t0)[2]);}

/* for-each-loop1746 in a10442 in k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_10465(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_10465,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_10475,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));
/* core.scm:983: ##sys#put! */
t5=*((C_word*)lf[108]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t3;
av2[2]=C_i_car(t4);
av2[3]=lf[208];
av2[4]=C_i_caddr(t4);
((C_proc)(void*)(*((C_word*)t5+1)))(5,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);}}}

/* k10473 in for-each-loop1746 in a10442 in k10374 in k10371 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10475,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10465(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* map-loop1695 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_10488(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10488,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_10513,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);
/* core.scm:954: g1701 */
t4=((C_word*)t0)[4];
f_10316(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);}}}

/* k10511 in map-loop1695 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10513(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10513,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_10488(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a10530 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10531(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10531,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[217]+1));
t3=C_mutate((C_word*)lf[217]+1 /* (set! ##sys#default-read-info-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a10535 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10536(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_10536,c,av);}
a=C_alloc(11);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_i_caddr(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10550,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)[2],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
/* core.scm:990: ##sys#include-forms-from-file */
t5=*((C_word*)lf[218]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* a10549 in a10535 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10550(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 t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){
C_save_and_reclaim((void *)f_10550,c,av);}
a=C_alloc(15);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10558,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t4=C_i_cdddr(((C_word*)t0)[9]);
if(C_truep(C_i_pairp(t4))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10568,a[2]=((C_word*)t0)[10],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* core.scm:997: scheme#append */
t6=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
av2[3]=C_i_cadddr(((C_word*)t0)[9]);
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t5=C_a_i_cons(&a,2,lf[188],t2);
/* core.scm:994: walk */
t6=((C_word*)((C_word*)t0)[2])[1];
f_8388(t6,t1,t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}}

/* k10556 in a10549 in a10535 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10558(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10558,c,av);}
/* core.scm:994: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k10566 in a10549 in a10535 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10568(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10568,c,av);}
/* core.scm:995: canonicalize-body/ln */
t2=((C_word*)((C_word*)t0)[2])[1];
f_7942(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,*((C_word*)lf[52]+1));}

/* a10580 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10581(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10581,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[217]+1));
t3=C_mutate((C_word*)lf[217]+1 /* (set! ##sys#default-read-info-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k10600 in map-loop1778 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10602,c,av);}
/* core.scm:1006: chicken.syntax#strip-syntax */
t2=*((C_word*)lf[147]+1);{
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);}}

/* k10612 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10614(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_10614,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10616,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);
/* core.scm:1003: ##sys#with-module-aliases */
t3=*((C_word*)lf[220]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[9];
av2[2]=t1;
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a10615 in k10612 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_10616,c,av);}
a=C_alloc(3);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[188],t2);
/* core.scm:1009: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_8388(t4,t1,t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_TRUE);}

/* map-loop1778 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_10630(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;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_10630,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10655,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10602,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1005: ##sys#check-syntax */
t6=*((C_word*)lf[206]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[221];
av2[3]=t4;
av2[4]=lf[222];
((C_proc)(void*)(*((C_word*)t6+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);}}}

/* k10653 in map-loop1778 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
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 t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10655,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_10630(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_10671(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_10671,c,av);}
a=C_alloc(12);
t2=*((C_word*)lf[17]+1);
t3=(C_truep(*((C_word*)lf[17]+1))?*((C_word*)lf[17]+1):t1);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10677,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t3,a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp);
/* core.scm:1014: chicken.internal#module-requirement */
t5=*((C_word*)lf[271]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_10677(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){
C_save_and_reclaim((void *)f_10677,c,av);}
a=C_alloc(27);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_eqp(C_SCHEME_TRUE,t2);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10683,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
if(C_truep(t3)){
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t3;
f_10683(2,av2);}}
else{
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11147,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11196,a[2]=t7,a[3]=t9,a[4]=t8,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t11=C_u_i_cdr(((C_word*)t0)[2]);
t12=C_u_i_cdr(t11);
/* core.scm:1029: chicken.syntax#strip-syntax */
t13=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t13;
av2[1]=t10;
av2[2]=C_u_i_car(t12);
((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}}

/* k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_10683(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_10683,c,av);}
a=C_alloc(19);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10686,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]=t1,a[10]=((C_word*)t0)[2],a[11]=t2,a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11140,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1031: ##sys#current-module */
t5=*((C_word*)lf[202]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){
C_save_and_reclaim((void *)f_10686,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10691,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10969,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],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)[12],a[9]=((C_word*)t0)[13],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1034: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[14];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10691(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_10691,c,av);}
a=C_alloc(13);
t2=*((C_word*)lf[202]+1);
t3=*((C_word*)lf[106]+1);
t4=*((C_word*)lf[224]+1);
t5=*((C_word*)lf[225]+1);
t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10695,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[2],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]=t1,tmp=(C_word)a,a+=13,tmp);
/* core.scm:1036: ##sys#register-module */
t7=*((C_word*)lf[263]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[8];
av2[4]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_10695(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_10695,c,av);}
a=C_alloc(15);
t2=*((C_word*)lf[226]+1);
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10698,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp);
/* core.scm:1041: ##sys#module-alias-environment */
t4=*((C_word*)lf[225]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_10698(C_word c,C_word *av){
C_word tmp;
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,4)))){
C_save_and_reclaim((void *)f_10698,c,av);}
a=C_alloc(39);
t2=((C_word*)t0)[2];
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t0)[3];
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=t1;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_TRUE;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10703,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,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);
t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10759,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[13],tmp=(C_word)a,a+=8,tmp);
t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10938,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[4],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);
/* core.scm:1035: ##sys#dynamic-wind */
t15=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t15;
av2[1]=((C_word*)t0)[14];
av2[2]=t12;
av2[3]=t13;
av2[4]=t14;
((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}}

/* a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_10703(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_10703,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10707,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
/* core.scm:1035: ##sys#current-module1862 */
t3=((C_word*)t0)[10];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_10707(2,av2);}}}

/* k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_10707(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_10707,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10710,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
/* core.scm:1035: ##sys#current-environment1863 */
t3=((C_word*)t0)[10];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[3])[1];
f_10710(2,av2);}}}

/* k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_10710(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_10710,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10713,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
/* core.scm:1035: ##sys#macro-environment1864 */
t3=((C_word*)t0)[9];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[4])[1];
f_10713(2,av2);}}}

/* k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_10713(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_10713,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10716,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
/* core.scm:1035: ##sys#module-alias-environment1865 */
t3=((C_word*)t0)[8];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[5])[1];
f_10716(2,av2);}}}

/* k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_10716(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_10716,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10720,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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);
/* core.scm:1035: ##sys#current-module1862 */
t3=((C_word*)t0)[13];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10718 in k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_10720(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_10720,c,av);}
a=C_alloc(15);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_10724,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],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp);
/* core.scm:1035: ##sys#current-environment1863 */
t4=((C_word*)t0)[12];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k10722 in k10718 in k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_10724(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_10724,c,av);}
a=C_alloc(14);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10728,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],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp);
/* core.scm:1035: ##sys#macro-environment1864 */
t4=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k10726 in k10722 in k10718 in k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in ... */
static void C_ccall f_10728(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_10728,c,av);}
a=C_alloc(13);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10732,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],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1035: ##sys#module-alias-environment1865 */
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k10730 in k10726 in k10722 in k10718 in k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in ... */
static void C_ccall f_10732(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_10732,c,av);}
a=C_alloc(10);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10735,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);
/* core.scm:1035: ##sys#current-module1862 */
t4=((C_word*)t0)[11];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k10733 in k10730 in k10726 in k10722 in k10718 in k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in ... */
static void C_ccall f_10735(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_10735,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10738,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);
/* core.scm:1035: ##sys#current-environment1863 */
t3=((C_word*)t0)[8];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10736 in k10733 in k10730 in k10726 in k10722 in k10718 in k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in ... */
static void C_ccall f_10738(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_10738,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10741,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);
/* core.scm:1035: ##sys#macro-environment1864 */
t3=((C_word*)t0)[6];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10739 in k10736 in k10733 in k10730 in k10726 in k10722 in k10718 in k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in ... */
static void C_ccall f_10741(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_10741,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1035: ##sys#module-alias-environment1865 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10742 in k10739 in k10736 in k10733 in k10730 in k10726 in k10722 in k10718 in k10714 in k10711 in k10708 in k10705 in a10702 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in ... */
static void C_ccall f_10744(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10744,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_10759(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_10759,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10765,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);
/* core.scm:1042: ##sys#with-property-restore */
t3=*((C_word*)lf[262]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_10765(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_10765,c,av);}
a=C_alloc(10);
t2=C_i_cdddr(((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|7,a[1]=(C_word)f_10775,a[2]=((C_word*)t0)[3],a[3]=t4,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));
t6=((C_word*)t4)[1];
f_10775(t6,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_fcall f_10775(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;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,8)))){
C_save_and_reclaim_args((void *)trf_10775,4,t0,t1,t2,t3);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t2))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10785,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10845,tmp=(C_word)a,a+=2,tmp);
/* core.scm:1047: scheme#call-with-current-continuation */
t6=*((C_word*)lf[261]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=C_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10934,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* core.scm:1082: walk */
t6=((C_word*)((C_word*)t0)[4])[1];
f_8388(t6,t5,C_u_i_car(t2),((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_TRUE);}}

/* k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_10785(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10785,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10788,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);
/* core.scm:1047: g1917 */
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_10788(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_10788,c,av);}
a=C_alloc(16);
t2=C_i_assq(((C_word*)t0)[2],*((C_word*)lf[44]+1));
t3=(C_truep(t2)?t2:*((C_word*)lf[45]+1));
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10797,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10833,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8293,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
if(C_truep(*((C_word*)lf[45]+1))){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8382,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* core.scm:617: scheme#symbol->string */
t8=*((C_word*)lf[250]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t7=t6;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_cdr(t3);
f_8293(2,av2);}}}
else{
t5=t4;
f_10797(t5,C_SCHEME_UNDEFINED);}}

/* k10795 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_fcall f_10797(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_10797,2,t0,t1);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10804,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1073: scheme#reverse */
t3=*((C_word*)lf[229]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k10802 in k10795 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_10804(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_10804,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10808,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=C_eqp(*((C_word*)lf[47]+1),lf[227]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10814,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t3)){
t5=t4;
f_10814(t5,t3);}
else{
t5=C_i_not(((C_word*)t0)[3]);
t6=t4;
f_10814(t6,(C_truep(t5)?C_i_not(*((C_word*)lf[47]+1)):C_SCHEME_FALSE));}}

/* k10806 in k10802 in k10795 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in ... */
static void C_ccall f_10808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10808,c,av);}
/* core.scm:1072: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
C_values(4,av2);}}

/* k10812 in k10802 in k10795 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in ... */
static void C_fcall f_10814(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_10814,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10821,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1077: ##sys#current-module */
t3=*((C_word*)lf[202]+1);{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
/* core.scm:1072: scheme#values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_END_OF_LIST;
C_values(4,av2);}}}

/* k10819 in k10812 in k10802 in k10795 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in ... */
static void C_ccall f_10821(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10821,c,av);}
/* core.scm:1077: ##sys#compiled-module-registration */
t2=*((C_word*)lf[228]+1);{
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);}}

/* k10831 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_10833(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_10833,c,av);}
a=C_alloc(3);
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10843,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1071: delete */
f_6806(t2,((C_word*)t0)[2],*((C_word*)lf[44]+1),*((C_word*)lf[230]+1));}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];
f_10797(t3,t2);}}

/* k10841 in k10831 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_10843(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10843,c,av);}
t2=C_mutate((C_word*)lf[44]+1 /* (set! chicken.compiler.core#import-libraries ...) */,t1);
t3=((C_word*)t0)[2];
f_10797(t3,t2);}

/* a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_10845(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_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_10845,c,av);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10851,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10866,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1047: chicken.condition#with-exception-handler */
t5=*((C_word*)lf[260]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a10850 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_10851(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_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10851,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10857,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1047: k1914 */
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* a10856 in a10850 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_10857(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10857,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10861,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1050: chicken.condition#print-error-message */
t3=*((C_word*)lf[252]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=*((C_word*)lf[253]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k10859 in a10856 in a10850 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_10861(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10861,c,av);}
/* core.scm:1051: chicken.base#exit */
t2=*((C_word*)lf[251]+1);{
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_fix(1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_10866(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_10866,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10872,tmp=(C_word)a,a+=2,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10909,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1047: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a10871 in a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_10872(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10872,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10880,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1053: ##sys#current-module */
t3=*((C_word*)lf[202]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10878 in a10871 in a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_10880(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){
C_save_and_reclaim((void *)f_10880,c,av);}
a=C_alloc(2);
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_10882,tmp=(C_word)a,a+=2,tmp);
/* core.scm:1052: ##sys#finalize-module */
t3=*((C_word*)lf[259]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a10881 in k10878 in a10871 in a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in ... */
static void C_ccall f_10882(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_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_10882,c,av);}
a=C_alloc(4);
if(C_truep(C_i_assq(t2,lf[69]))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[254];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10895,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1058: chicken.internal#hash-table-ref */
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[64]+1);
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k10893 in a10881 in k10878 in a10871 in a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in ... */
static void C_ccall f_10895(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_10895,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[255];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1060: chicken.internal#hash-table-ref */
t3=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[65]+1);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k10899 in k10893 in a10881 in k10878 in a10871 in a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in ... */
static void C_ccall f_10901(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10901,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[256];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10907,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1062: ##sys#get */
t3=*((C_word*)lf[102]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[258];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k10905 in k10899 in k10893 in a10881 in k10878 in a10871 in a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in ... */
static void C_ccall f_10907(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10907,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?lf[257]:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a10908 in a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_10909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){
C_save_and_reclaim((void*)f_10909,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+3);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10915,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1047: k1914 */
t4=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* a10914 in a10908 in a10865 in a10844 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_10915(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10915,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* k10932 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_10934(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10934,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* core.scm:1080: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_10775(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_10938(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_10938,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:1035: ##sys#current-module1862 */
t3=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10940 in a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_10942(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_10942,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10945,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* core.scm:1035: ##sys#current-environment1863 */
t3=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10943 in k10940 in a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_10945(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_10945,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10948,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1035: ##sys#macro-environment1864 */
t3=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10946 in k10943 in k10940 in a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_10948(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_10948,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10951,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* core.scm:1035: ##sys#module-alias-environment1865 */
t3=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10949 in k10946 in k10943 in k10940 in a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_10951(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_10951,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* core.scm:1035: ##sys#current-module1862 */
t3=((C_word*)t0)[13];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10952 in k10949 in k10946 in k10943 in k10940 in a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_10954(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_10954,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10957,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1035: ##sys#current-environment1863 */
t3=((C_word*)t0)[13];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10955 in k10952 in k10949 in k10946 in k10943 in k10940 in a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_10957(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_10957,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10960,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);
/* core.scm:1035: ##sys#macro-environment1864 */
t3=((C_word*)t0)[12];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10958 in k10955 in k10952 in k10949 in k10946 in k10943 in k10940 in a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in ... */
static void C_ccall f_10960(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_10960,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10963,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);
/* core.scm:1035: ##sys#module-alias-environment1865 */
t3=((C_word*)t0)[11];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[8])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k10961 in k10958 in k10955 in k10952 in k10949 in k10946 in k10943 in k10940 in a10937 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in ... */
static void C_ccall f_10963(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10963,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]);
t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]);
t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]);
t6=((C_word*)t0)[10];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_10969(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){
C_save_and_reclaim((void *)f_10969,c,av);}
a=C_alloc(22);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11005,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=*((C_word*)lf[202]+1);
t7=*((C_word*)lf[224]+1);
t8=*((C_word*)lf[106]+1);
t9=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11009,a[2]=t5,a[3]=t2,a[4]=t8,a[5]=t7,a[6]=t6,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=t3,tmp=(C_word)a,a+=14,tmp);
/* core.scm:1092: ##sys#meta-macro-environment */
t10=*((C_word*)lf[266]+1);{
C_word *av2=av;
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}

/* k10971 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_10973(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_10973,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10976,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
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_10979,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_10979(t6,t2,((C_word*)((C_word*)t0)[2])[1]);}

/* k10974 in k10971 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_10976(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10976,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* doloop2029 in k10971 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_fcall f_10979(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_10979,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(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|4,a[1]=(C_word)f_10989,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=C_i_caar(t2);
t6=C_u_i_car(t2);
/* core.scm:1105: ##sys#put! */
t7=*((C_word*)lf[108]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t4;
av2[2]=t5;
av2[3]=lf[208];
av2[4]=C_u_i_cdr(t6);
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}}

/* k10987 in doloop2029 in k10971 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_10989(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10989,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10979(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* k11003 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11005,c,av);}
/* core.scm:1088: chicken.compiler.support#canonicalize-begin-body */
t2=*((C_word*)lf[264]+1);{
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);}}

/* k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11009(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_11009,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11012,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
/* core.scm:1094: ##sys#current-meta-environment */
t3=*((C_word*)lf[265]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_11012(C_word c,C_word *av){
C_word tmp;
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){
C_save_and_reclaim((void *)f_11012,c,av);}
a=C_alloc(38);
t2=C_SCHEME_FALSE;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=((C_word*)t0)[2];
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=t1;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_TRUE;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11015,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11017,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,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);
t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11060,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[13],a[8]=((C_word*)t0)[14],tmp=(C_word)a,a+=9,tmp);
t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11115,a[2]=t3,a[3]=t5,a[4]=t7,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);
/* core.scm:1090: ##sys#dynamic-wind */
t14=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t14;
av2[1]=t10;
av2[2]=t11;
av2[3]=t12;
av2[4]=t13;
((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}

/* k11013 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_11015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11015,c,av);}
/* core.scm:1089: scheme#append */
t2=*((C_word*)lf[5]+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);}}

/* a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_11017(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_11017,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
/* core.scm:1090: ##sys#current-module1957 */
t3=((C_word*)t0)[8];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_11021(2,av2);}}}

/* k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_11021(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_11021,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11024,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
/* core.scm:1090: ##sys#macro-environment1958 */
t3=((C_word*)t0)[8];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[3])[1];
f_11024(2,av2);}}}

/* k11022 in k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11024(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_11024,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11027,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
/* core.scm:1090: ##sys#current-environment1959 */
t3=((C_word*)t0)[7];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[4])[1];
f_11027(2,av2);}}}

/* k11025 in k11022 in k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11027(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_11027,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11031,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1090: ##sys#current-module1957 */
t3=((C_word*)t0)[10];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11029 in k11025 in k11022 in k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_11031(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_11031,c,av);}
a=C_alloc(12);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11035,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],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp);
/* core.scm:1090: ##sys#macro-environment1958 */
t4=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k11033 in k11029 in k11025 in k11022 in k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_11035(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_11035,c,av);}
a=C_alloc(11);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11039,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);
/* core.scm:1090: ##sys#current-environment1959 */
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k11037 in k11033 in k11029 in k11025 in k11022 in k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_11039(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_11039,c,av);}
a=C_alloc(8);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11042,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);
/* core.scm:1090: ##sys#current-module1957 */
t4=((C_word*)t0)[9];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[10];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k11040 in k11037 in k11033 in k11029 in k11025 in k11022 in k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in ... */
static void C_ccall f_11042(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_11042,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11045,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);
/* core.scm:1090: ##sys#macro-environment1958 */
t3=((C_word*)t0)[6];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11043 in k11040 in k11037 in k11033 in k11029 in k11025 in k11022 in k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in ... */
static void C_ccall f_11045(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11045,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11048,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1090: ##sys#current-environment1959 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11046 in k11043 in k11040 in k11037 in k11033 in k11029 in k11025 in k11022 in k11019 in a11016 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in ... */
static void C_ccall f_11048(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11048,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a11059 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_11060(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_11060,c,av);}
a=C_alloc(29);
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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11065,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);
t7=C_a_i_list(&a,2,lf[160],((C_word*)t0)[7]);
t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[8]);
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|5,a[1]=(C_word)f_11077,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_11077(t12,t1,t8);}

/* g1999 in a11059 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_fcall f_11065(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_11065,3,t0,t1,t2);}
/* core.scm:1097: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_8388(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* map-loop1993 in a11059 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_fcall f_11077(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11077,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_11102,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);
/* core.scm:1095: g1999 */
t4=((C_word*)t0)[4];
f_11065(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);}}}

/* k11100 in map-loop1993 in a11059 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11102(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11102,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_11077(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a11114 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_11115(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_11115,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11119,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1090: ##sys#current-module1957 */
t3=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11117 in a11114 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_11119(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_11119,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11122,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1090: ##sys#macro-environment1958 */
t3=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11120 in k11117 in a11114 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11122(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_11122,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11125,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:1090: ##sys#current-environment1959 */
t3=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11123 in k11120 in k11117 in a11114 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11125(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_11125,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11128,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:1090: ##sys#current-module1957 */
t3=((C_word*)t0)[10];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11126 in k11123 in k11120 in k11117 in a11114 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_11128(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_11128,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11131,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);
/* core.scm:1090: ##sys#macro-environment1958 */
t3=((C_word*)t0)[10];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11129 in k11126 in k11123 in k11120 in k11117 in a11114 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_11131(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_11131,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11134,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);
/* core.scm:1090: ##sys#current-environment1959 */
t3=((C_word*)t0)[9];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11132 in k11129 in k11126 in k11123 in k11120 in k11117 in a11114 in k11010 in k11007 in a10968 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
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 t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11134,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]);
t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]);
t5=((C_word*)t0)[8];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k11138 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11140(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11140,c,av);}
if(C_truep(t1)){
/* core.scm:1032: ##sys#syntax-error-hook */
t2=*((C_word*)lf[267]+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[268];
av2[3]=lf[269];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10686(2,av2);}}}

/* g1825 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_11147(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_11147,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_symbolp(t2))){
t3=t1;{
C_word av2[2];
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_11160,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_pairp(t2))){
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11171,tmp=(C_word)a,a+=2,tmp);
t5=t3;
f_11160(t5,(
  f_11171(t2)
));}
else{
t4=t3;
f_11160(t4,C_SCHEME_FALSE);}}}

/* k11158 in g1825 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_11160(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_11160,2,t0,t1);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* core.scm:1026: ##sys#syntax-error-hook */
t2=*((C_word*)lf[267]+1);{
C_word av2[6];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[268];
av2[3]=lf[270];
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}

/* loop in g1825 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static C_word C_fcall f_11171(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
t2=C_i_nullp(t1);
if(C_truep(t2)){
return(t2);}
else{
t3=C_i_car(t1);
if(C_truep(C_i_symbolp(t3))){
t5=C_u_i_cdr(t1);
t1=t5;
goto loop;}
else{
return(C_SCHEME_FALSE);}}}

/* k11194 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_11196(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_11196,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[10]);
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_11204,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_11204(t6,((C_word*)t0)[5],t1);}

/* map-loop1819 in k11194 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_11204(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11204,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_11229,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);
/* core.scm:1017: g1825 */
t4=((C_word*)t0)[4];
f_11147(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);}}}

/* k11227 in map-loop1819 in k11194 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11229(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11229,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_11204(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_11268,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11271,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11331,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1113: ##sys#current-environment */
t4=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11271(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_11271,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11274,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1114: chicken.compiler.support#get-line */
t3=*((C_word*)lf[113]+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)[12];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_11274(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_11274,c,av);}
a=C_alloc(28);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=*((C_word*)lf[106]+1);
t4=((C_word*)t0)[3];
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_TRUE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11280,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11288,a[2]=t5,a[3]=t7,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11305,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],tmp=(C_word)a,a+=9,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11319,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1116: ##sys#dynamic-wind */
t12=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t12;
av2[1]=t8;
av2[2]=t9;
av2[3]=t10;
av2[4]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}

/* k11278 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11280(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11280,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11283,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1121: set-real-names! */
f_7971(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}

/* k11281 in k11278 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11283(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_11283,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[96],((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a11287 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11288(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_11288,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11292,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* core.scm:1116: ##sys#current-environment2073 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_11292(2,av2);}}}

/* k11290 in a11287 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11292(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_11292,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11296,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);
/* core.scm:1116: ##sys#current-environment2073 */
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11294 in k11290 in a11287 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11296(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11296,c,av);}
a=C_alloc(4);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11299,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1116: ##sys#current-environment2073 */
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k11297 in k11294 in k11290 in a11287 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_11299(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11299,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a11304 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11305(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_11305,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11313,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* core.scm:1118: canonicalize-body/ln */
t3=((C_word*)((C_word*)t0)[7])[1];
f_7942(t3,t2,((C_word*)t0)[4],((C_word*)t0)[8],*((C_word*)lf[52]+1));}

/* k11311 in a11304 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_11313,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11317,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1119: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11315 in k11311 in a11304 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_11317,c,av);}
/* core.scm:1117: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);}

/* a11318 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11319(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11319,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11323,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1116: ##sys#current-environment2073 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11321 in a11318 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11323(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11323,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11326,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1116: ##sys#current-environment2073 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11324 in k11321 in a11318 in k11272 in k11269 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11326(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11326,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11329 in k11266 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11331(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11331,c,av);}
/* core.scm:1113: ##sys#extend-se */
t2=*((C_word*)lf[172]+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_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop2042 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_11333(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11333,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_11358,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);
/* core.scm:1112: g2048 */
t4=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(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);}}}

/* k11356 in map-loop2042 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11358(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11358,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_11333(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11372 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_11374(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11374,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[274];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11378 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_11380(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11380,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11383,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1128: chicken.compiler.support#get-line */
t3=*((C_word*)lf[113]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11381 in k11378 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11383(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_11383,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11390,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11393,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1131: chicken.base#open-output-string */
t4=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:1129: chicken.compiler.support#quit-compiling */
t3=*((C_word*)lf[125]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[275];
av2[3]=lf[277];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k11388 in k11381 in k11378 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_11390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11390,c,av);}
/* core.scm:1129: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[275];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k11391 in k11381 in k11378 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_11393(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11393,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11399,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1131: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k11397 in k11391 in k11381 in k11378 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11399(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11399,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11402,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1131: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11400 in k11397 in k11391 in k11381 in k11378 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11402(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11402,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11405,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1131: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[276];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11403 in k11400 in k11397 in k11391 in k11381 in k11378 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11405(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11405,c,av);}
/* core.scm:1131: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_11420(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_11420,c,av);}
a=C_alloc(12);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11423,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1138: chicken.compiler.support#get-line */
t5=*((C_word*)lf[113]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11423(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_11423,c,av);}
a=C_alloc(18);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11429,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]=t1,a[7]=t4,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[3])[1],lf[82]))){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11723,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1142: chicken.base#open-output-string */
t7=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_11429(2,av2);}}}

/* k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_11429(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_11429,c,av);}
a=C_alloc(17);
t2=C_i_assq(((C_word*)((C_word*)t0)[2])[1],lf[69]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11436,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);
/* core.scm:1145: g2142 */
t4=t3;
f_11436(t4,((C_word*)t0)[8],t2);}
else{
t3=C_i_assq(((C_word*)((C_word*)t0)[2])[1],lf[73]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11488,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);
/* core.scm:1145: g2151 */
t5=t4;
f_11488(t5,((C_word*)t0)[8],t3);}
else{
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11536,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[4]))){
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_11536(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11554,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1168: ##sys#alias-global-hook */
t6=*((C_word*)lf[124]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[10];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}}

/* g2142 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_11436(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_11436,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_cadr(t2);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11443,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1148: chicken.base#gensym */
t5=*((C_word*)lf[109]+1);{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k11441 in g2142 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11443(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_11443,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11478,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1150: chicken.compiler.support#foreign-type-convert-argument */
t3=*((C_word*)lf[280]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[9])[1];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11464 in k11476 in k11441 in g2142 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_11466(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,8)))){
C_save_and_reclaim((void *)f_11466,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,3,lf[278],((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,3,lf[170],((C_word*)t0)[3],t2);
/* core.scm:1149: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_8388(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k11476 in k11441 in g2142 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11478(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_11478,c,av);}
a=C_alloc(24);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,1,t2);
t4=C_i_caddr(((C_word*)t0)[3]);
t5=C_a_i_list(&a,2,t4,((C_word*)t0)[4]);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11466,a[2]=t5,a[3]=t3,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],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1153: chicken.compiler.support#foreign-type-check */
t7=*((C_word*)lf[279]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* g2151 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_11488(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_11488,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_caddr(t2);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11495,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1158: chicken.base#gensym */
t5=*((C_word*)lf[109]+1);{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k11493 in g2151 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11495(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_11495,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11530,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1160: chicken.compiler.support#foreign-type-convert-argument */
t3=*((C_word*)lf[280]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[9])[1];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11520 in k11528 in k11493 in g2151 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_11522(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){
C_save_and_reclaim((void *)f_11522,c,av);}
a=C_alloc(21);
t2=C_a_i_list(&a,4,lf[281],((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=C_a_i_list(&a,3,lf[170],((C_word*)t0)[4],t2);
/* core.scm:1159: walk */
t4=((C_word*)((C_word*)t0)[5])[1];
f_8388(t4,((C_word*)t0)[6],t3,((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k11528 in k11493 in g2151 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11530(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_11530,c,av);}
a=C_alloc(22);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,1,((C_word*)t0)[3]);
t5=C_i_cadr(((C_word*)t0)[4]);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11522,a[2]=t4,a[3]=t5,a[4]=t3,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);
/* core.scm:1164: chicken.compiler.support#foreign-type-check */
t7=*((C_word*)lf[279]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k11534 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11536(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){
C_save_and_reclaim((void *)f_11536,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1190: walk */
t3=((C_word*)((C_word*)t0)[4])[1];
f_8388(t3,t2,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6],((C_word*)t0)[7],C_i_memq(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[6]),((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k11541 in k11534 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_11543,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[282],((C_word*)((C_word*)t0)[3])[1],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11554(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_11554,c,av);}
a=C_alloc(11);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11557,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(lf[35])){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11710,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1170: chicken.compiler.support#mark-variable */
t5=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=lf[293];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_11557(2,av2);}}}

/* k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11557(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(41,c,2)))){
C_save_and_reclaim((void *)f_11557,c,av);}
a=C_alloc(41);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11560,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*)lf[24]+1))){
t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[6])[1]);
t4=C_a_i_list(&a,1,t3);
t5=C_a_i_list(&a,2,lf[146],((C_word*)((C_word*)t0)[5])[1]);
t6=C_a_i_list(&a,3,lf[186],lf[292],t5);
t7=C_a_i_list(&a,4,lf[170],t4,t6,((C_word*)((C_word*)t0)[5])[1]);
t8=C_mutate(((C_word *)((C_word*)t0)[6])+1,t7);
t9=t2;
f_11560(t9,t8);}
else{
t3=t2;
f_11560(t3,C_SCHEME_UNDEFINED);}}

/* k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_fcall f_11560(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_11560,2,t0,t1);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11566,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11687,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1179: ##sys#current-environment */
t4=*((C_word*)lf[106]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_11566(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_11566,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11569,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11586,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1181: chicken.base#open-output-string */
t4=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11683,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1186: ##sys#current-environment */
t3=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11567 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_11569(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11569,c,av);}
a=C_alloc(4);
if(C_truep(*((C_word*)lf[42]+1))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11575,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1184: ##sys#undefine-macro! */
t3=*((C_word*)lf[284]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_11536(2,av2);}}}

/* k11573 in k11567 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_11575(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_11575,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1185: ##sys#current-module */
t3=*((C_word*)lf[202]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11580 in k11573 in k11567 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11582(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11582,c,av);}
/* core.scm:1185: ##sys#unregister-syntax-export */
t2=*((C_word*)lf[283]+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);}}

/* k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_11586(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_11586,c,av);}
a=C_alloc(13);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11592,a[2]=((C_word*)t0)[2],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_11608,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[4])){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11611,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1182: chicken.base#open-output-string */
t6=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
/* core.scm:1181: ##sys#print */
t5=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[287];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k11590 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_11592(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11592,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11595,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);
/* core.scm:1181: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[285];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11593 in k11590 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11595(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11595,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11598,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1181: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11596 in k11593 in k11590 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11598(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_11598,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11601,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1181: ##sys#write-char-0 */
t3=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11599 in k11596 in k11593 in k11590 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_11601(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11601,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1181: chicken.base#get-output-string */
t3=*((C_word*)lf[129]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11602 in k11599 in k11596 in k11593 in k11590 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_11604(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11604,c,av);}
/* core.scm:1180: chicken.base#warning */
t2=*((C_word*)lf[135]+1);{
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);}}

/* k11606 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_11608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11608,c,av);}
/* core.scm:1181: ##sys#print */
t2=*((C_word*)lf[130]+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);}}

/* k11609 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_11611(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11611,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11617,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1182: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k11615 in k11609 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11617(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11617,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11620,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1182: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11618 in k11615 in k11609 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11620(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11620,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1182: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[286];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11621 in k11618 in k11615 in k11609 in k11584 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_11623(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11623,c,av);}
/* core.scm:1182: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_11639(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_11639,c,av);}
a=C_alloc(13);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11645,a[2]=((C_word*)t0)[2],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_11661,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[4])){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11664,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1189: chicken.base#open-output-string */
t6=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
/* core.scm:1188: ##sys#print */
t5=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[290];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k11643 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11645(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11645,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11648,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);
/* core.scm:1188: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[288];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11646 in k11643 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11648(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11648,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1188: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11649 in k11646 in k11643 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_11651(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_11651,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11654,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1188: ##sys#write-char-0 */
t3=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11652 in k11649 in k11646 in k11643 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_11654(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11654,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11657,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1188: chicken.base#get-output-string */
t3=*((C_word*)lf[129]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11655 in k11652 in k11649 in k11646 in k11643 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_11657(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11657,c,av);}
/* core.scm:1187: chicken.base#warning */
t2=*((C_word*)lf[135]+1);{
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);}}

/* k11659 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11661,c,av);}
/* core.scm:1188: ##sys#print */
t2=*((C_word*)lf[130]+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);}}

/* k11662 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_11664(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11664,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11670,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1189: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k11668 in k11662 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11670(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11670,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1189: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11671 in k11668 in k11662 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_ccall f_11673(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11673,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1189: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[289];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11674 in k11671 in k11668 in k11662 in k11637 in k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_11676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11676,c,av);}
/* core.scm:1189: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* k11681 in k11564 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_11683(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11683,c,av);}
a=C_alloc(5);
if(C_truep(C_i_assq(((C_word*)t0)[2],t1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11639,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1188: chicken.base#open-output-string */
t3=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_11536(2,av2);}}}

/* k11685 in k11558 in k11555 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_11687(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11687,c,av);}
/* core.scm:1179: ##sys#macro? */
t2=*((C_word*)lf[291]+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);}}

/* k11708 in k11552 in k11427 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11710(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_11710,c,av);}
/* core.scm:1171: chicken.compiler.support#mark-variable */
t2=*((C_word*)lf[155]+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*)((C_word*)t0)[3])[1];
av2[3]=lf[156];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_11723(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_11723,c,av);}
a=C_alloc(13);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11729,a[2]=((C_word*)t0)[2],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_11745,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[4])){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11748,a[2]=t4,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1143: chicken.base#open-output-string */
t6=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
/* core.scm:1142: ##sys#print */
t5=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[297];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k11727 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11729(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11729,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11732,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);
/* core.scm:1142: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[295];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11730 in k11727 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11732(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11732,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11735,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1142: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11733 in k11730 in k11727 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11735(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11735,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1142: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[294];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11736 in k11733 in k11730 in k11727 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_11738(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11738,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11741,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1142: chicken.base#get-output-string */
t3=*((C_word*)lf[129]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11739 in k11736 in k11733 in k11730 in k11727 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_11741(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11741,c,av);}
/* core.scm:1141: chicken.base#warning */
t2=*((C_word*)lf[135]+1);{
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);}}

/* k11743 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11745(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11745,c,av);}
/* core.scm:1142: ##sys#print */
t2=*((C_word*)lf[130]+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);}}

/* k11746 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_11748(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11748,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11754,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1143: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k11752 in k11746 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_11754(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11754,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1143: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11755 in k11752 in k11746 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_11757(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11757,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1143: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[296];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11758 in k11755 in k11752 in k11746 in k11721 in k11421 in k11418 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_11760(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11760,c,av);}
/* core.scm:1143: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* g2238 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_11789(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,8)))){
C_save_and_reclaim_args((void *)trf_11789,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11797,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1197: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_8388(t4,t3,t2,((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k11795 in g2238 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11797,c,av);}
/* core.scm:1197: unquotify */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8037(t2,((C_word*)t0)[3],t1);}

/* k11803 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_11805(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_11805,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[186],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop2232 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_11807(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11807,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_11832,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);
/* core.scm:1196: g2238 */
t4=((C_word*)t0)[4];
f_11789(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);}}}

/* k11830 in map-loop2232 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11832(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11832,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_11807(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11854 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_11856(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_11856,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11860,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1202: mapwalk */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13619(t3,t2,C_i_cddr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k11858 in k11854 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11860(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_11860,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[298],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11892 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_11894(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_11894,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11898,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1207: mapwalk */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13619(t3,t2,C_i_cddr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k11896 in k11892 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11898(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_11898,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[299],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop2265 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_11904(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11904,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_11929,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);
/* core.scm:1206: g2271 */
t4=((C_word*)((C_word*)t0)[4])[1];
f_8037(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);}}}

/* k11927 in map-loop2265 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11929(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11929,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_11904(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11951 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_11953(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_11953,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[278],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11972 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_11974(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,8)))){
C_save_and_reclaim((void *)f_11974,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1216: walk */
t3=((C_word*)((C_word*)t0)[4])[1];
f_8388(t3,t2,C_i_cadddr(((C_word*)t0)[5]),((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k11976 in k11972 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_11978(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_11978,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,4,lf[281],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11999 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12001(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12001,c,av);}
/* core.scm:1221: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k12014 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12016(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12016,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[304];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12037 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12039(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12039,c,av);}
/* core.scm:1229: chicken.compiler.support#canonicalize-begin-body */
t2=*((C_word*)lf[264]+1);{
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);}}

/* fold in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_12043(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,8)))){
C_save_and_reclaim_args((void *)trf_12043,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
if(C_truep(C_i_nullp(t4))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12061,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1234: walk */
t6=((C_word*)((C_word*)t0)[2])[1];
f_8388(t6,t5,t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12068,a[2]=t1,a[3]=((C_word*)t0)[9],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1235: walk */
t6=((C_word*)((C_word*)t0)[2])[1];
f_8388(t6,t5,t3,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}}

/* k12059 in fold in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12061(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_12061,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list1(&a,1,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12066 in fold in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12068(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12068,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12072,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1235: fold */
t3=((C_word*)((C_word*)t0)[3])[1];
f_12043(t3,t2,((C_word*)t0)[4]);}

/* k12070 in k12066 in fold in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12072(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_12072,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);}}

/* k12085 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12087(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12087,c,av);}
/* core.scm:1239: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12098 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12100(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12100,c,av);}
/* core.scm:1242: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12111 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12113,c,av);}
/* core.scm:1245: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12124 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12126(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12126,c,av);}
/* core.scm:1248: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12137 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12139,c,av);}
/* core.scm:1251: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12146 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12148(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12148,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12151,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1255: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_caddr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12149 in k12146 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12151(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12151,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12154,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_i_cdddr(((C_word*)t0)[4]);
if(C_truep(C_i_pairp(t3))){
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cadddr(((C_word*)t0)[4]);
f_12154(2,av2);}}
else{
/* core.scm:1258: scheme#symbol->string */
t4=*((C_word*)lf[250]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k12152 in k12149 in k12146 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12154(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_12154,c,av);}
a=C_alloc(12);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=C_a_i_cons(&a,2,t2,lf[69]);
t4=C_mutate(&lf[69] /* (set! chicken.compiler.core#foreign-variables ...) */,t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[318];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12195(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){
C_save_and_reclaim((void *)f_12195,c,av);}
a=C_alloc(21);
t2=C_i_cdddr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12201,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)t0)[10])){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_12201(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12283,a[2]=t3,a[3]=((C_word*)t0)[11],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[9])){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12286,a[2]=t4,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1271: chicken.base#open-output-string */
t6=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
/* core.scm:1269: chicken.compiler.support#quit-compiling */
t5=*((C_word*)lf[125]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[324];
av2[3]=lf[326];
av2[4]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}}

/* k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12201(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_12201,c,av);}
a=C_alloc(13);
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1274: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12276,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1294: chicken.compiler.support#register-foreign-type! */
t3=*((C_word*)lf[322]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[11];
av2[3]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12210(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_12210,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_12213,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* core.scm:1275: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12213(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
C_save_and_reclaim((void *)f_12213,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12216,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp);
/* core.scm:1276: chicken.compiler.support#register-foreign-type! */
t3=*((C_word*)lf[322]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[12];
av2[3]=((C_word*)t0)[13];
av2[4]=((C_word*)t0)[3];
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12216(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_12216,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12219,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1277: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[156];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12219(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_12219,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12222,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1278: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[12];
av2[3]=lf[156];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k12220 in k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12222(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_12222,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12225,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1279: chicken.compiler.support#hide-variable */
t3=*((C_word*)lf[154]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12223 in k12220 in k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_12225(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_12225,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12228,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1280: chicken.compiler.support#hide-variable */
t3=*((C_word*)lf[154]+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)[12];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12226 in k12223 in k12220 in k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_12228(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_12228,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12273,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1284: ##sys#current-module */
t4=*((C_word*)lf[202]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k12229 in k12226 in k12223 in k12220 in k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_12231(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_12231,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12269,a[2]=t2,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1285: ##sys#current-module */
t4=*((C_word*)lf[202]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k12232 in k12229 in k12226 in k12223 in k12220 in k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_12234(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_12234,c,av);}
a=C_alloc(29);
t2=C_i_car(((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,lf[175],((C_word*)t0)[3],t2);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12249,a[2]=t3,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);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){
t5=C_i_cadr(((C_word*)t0)[2]);
t6=t4;
f_12249(t6,C_a_i_list(&a,3,lf[175],((C_word*)t0)[12],t5));}
else{
t5=t4;
f_12249(t5,C_a_i_list(&a,3,lf[175],((C_word*)t0)[12],lf[320]));}}

/* k12247 in k12232 in k12229 in k12226 in k12223 in k12220 in k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in ... */
static void C_fcall f_12249(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){
C_save_and_reclaim_args((void *)trf_12249,2,t0,t1);}
a=C_alloc(9);
t2=C_a_i_list(&a,3,lf[188],((C_word*)t0)[2],t1);
/* core.scm:1286: walk */
t3=((C_word*)((C_word*)t0)[3])[1];
f_8388(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k12267 in k12229 in k12226 in k12223 in k12220 in k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_12269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12269,c,av);}
/* core.scm:1285: ##sys#register-export */
t2=*((C_word*)lf[321]+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);}}

/* k12271 in k12226 in k12223 in k12220 in k12217 in k12214 in k12211 in k12208 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_12273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12273,c,av);}
/* core.scm:1284: ##sys#register-export */
t2=*((C_word*)lf[321]+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);}}

/* k12274 in k12199 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12276(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12276,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[323];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12281 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12283(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12283,c,av);}
/* core.scm:1269: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[324];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12284 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12286,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12292,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1271: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k12290 in k12284 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12292,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12295,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1271: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12293 in k12290 in k12284 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12295(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12295,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12298,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1271: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[325];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12296 in k12293 in k12290 in k12284 in k12193 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12298(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12298,c,av);}
/* core.scm:1271: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
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;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12317,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12320,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);
/* core.scm:1300: scheme#symbol->string */
t3=*((C_word*)lf[250]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
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 t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_12320,c,av);}
a=C_alloc(12);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_i_caddr(((C_word*)t0)[2]);
t5=C_i_cadddr(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12329,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1303: chicken.compiler.support#make-random-name */
t7=*((C_word*)lf[335]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12329(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_12329,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t0)[8])){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_12332(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12374,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[9])){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12377,a[2]=t3,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1307: chicken.base#open-output-string */
t5=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* core.scm:1305: chicken.compiler.support#quit-compiling */
t4=*((C_word*)lf[125]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[332];
av2[3]=lf[334];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}}

/* k12330 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12332(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_12332,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12335,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_word*)t0)[4])){
t3=t2;
f_12335(t3,C_SCHEME_UNDEFINED);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12363,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_i_cddddr(((C_word*)t0)[8]);
/* core.scm:1309: scheme#symbol->string */
t5=*((C_word*)lf[250]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_i_car(t4);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k12333 in k12330 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_fcall f_12335(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;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_12335,2,t0,t1);}
a=C_alloc(12);
t2=C_a_i_vector3(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)t0)[4]);
t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[71]+1));
t4=C_mutate((C_word*)lf[71]+1 /* (set! chicken.compiler.core#external-variables ...) */,t3);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12355,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1312: scheme#string-append */
t6=*((C_word*)lf[330]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[331];
av2[3]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k12353 in k12333 in k12330 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12355(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
C_save_and_reclaim((void *)f_12355,c,av);}
a=C_alloc(18);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],lf[328],t1);
t3=C_a_i_cons(&a,2,t2,lf[69]);
t4=C_mutate(&lf[69] /* (set! chicken.compiler.core#foreign-variables ...) */,t3);
t5=lf[72];
t6=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]);
t7=C_a_i_cons(&a,2,t6,lf[72]);
t8=C_mutate(&lf[72] /* (set! chicken.compiler.core#external-to-pointer ...) */,t7);
t9=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t9;
av2[1]=lf[329];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* k12361 in k12330 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12363(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12363,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];
f_12335(t3,t2);}

/* k12372 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12374(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12374,c,av);}
/* core.scm:1305: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[332];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12375 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12377(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12377,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12383,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1307: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k12381 in k12375 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12383(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12383,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12386,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1307: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12384 in k12381 in k12375 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12386(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12386,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12389,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1307: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[333];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12387 in k12384 in k12381 in k12375 in k12327 in k12318 in k12315 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12389(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12389,c,av);}
/* core.scm:1307: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12404(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_12404,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12407,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* core.scm:1320: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12407(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_12407,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12410,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1321: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12410(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_12410,c,av);}
a=C_alloc(15);
t2=C_i_cddddr(((C_word*)t0)[2]);
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_i_cadddr(((C_word*)t0)[2]):C_SCHEME_FALSE);
t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12416,a[2]=((C_word*)t0)[3],a[3]=t1,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]=t4,a[13]=((C_word*)t0)[2],a[14]=((C_word*)t0)[12],tmp=(C_word)a,a+=15,tmp);
/* core.scm:1323: chicken.compiler.support#set-real-name! */
t6=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12416(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){
C_save_and_reclaim((void *)f_12416,c,av);}
a=C_alloc(28);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);
t3=C_a_i_cons(&a,2,t2,lf[73]);
t4=C_mutate(&lf[73] /* (set! chicken.compiler.core#location-pointer-map ...) */,t3);
t5=*((C_word*)lf[106]+1);
t6=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12531,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[3],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)[4],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
/* core.scm:1327: ##sys#current-environment */
t7=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}

/* a12427 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12428(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_12428,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12432,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* core.scm:1326: ##sys#current-environment2376 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_12432(2,av2);}}}

/* k12430 in a12427 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12432(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12432,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12436,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);
/* core.scm:1326: ##sys#current-environment2376 */
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12434 in k12430 in a12427 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_12436(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12436,c,av);}
a=C_alloc(4);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12439,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1326: ##sys#current-environment2376 */
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12437 in k12434 in k12430 in a12427 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_12439(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12439,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a12444 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12445(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_12445,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12494,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12517,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1329: chicken.compiler.support#estimate-foreign-result-location-size */
t4=*((C_word*)lf[339]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12463 in k12492 in a12444 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_12465(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){
C_save_and_reclaim((void *)f_12465,c,av);}
a=C_alloc(12);
t2=C_a_i_cons(&a,2,lf[188],t1);
t3=C_a_i_list(&a,3,lf[170],((C_word*)t0)[2],t2);
/* core.scm:1328: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_8388(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k12467 in k12492 in a12444 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_fcall f_12469(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_12469,2,t0,t1);}
a=C_alloc(3);
t2=(C_truep(((C_word*)t0)[2])?C_i_car(C_i_cddddr(((C_word*)t0)[3])):C_i_cadddr(((C_word*)t0)[3]));
t3=C_a_i_list(&a,1,t2);
/* core.scm:1329: ##sys#append */
t4=*((C_word*)lf[174]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k12492 in a12444 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12494(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(86,c,2)))){
C_save_and_reclaim((void *)f_12494,c,av);}
a=C_alloc(86);
t2=C_s_a_i_plus(&a,2,C_fix(2),t1);
t3=C_a_i_list(&a,2,lf[337],t2);
t4=C_a_i_list(&a,2,lf[118],t1);
t5=C_a_i_list(&a,3,lf[299],t3,t4);
t6=C_a_i_list2(&a,2,((C_word*)t0)[2],t5);
t7=C_a_i_list(&a,1,t6);
t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12465,a[2]=t7,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);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12469,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=t8,tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[10])){
t10=C_a_i_list(&a,3,lf[175],((C_word*)t0)[12],((C_word*)t0)[10]);
t11=t9;
f_12469(t11,C_a_i_list(&a,1,t10));}
else{
t10=t9;
f_12469(t10,C_SCHEME_END_OF_LIST);}}

/* k12515 in a12444 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12517(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12517,c,av);}
/* core.scm:1329: chicken.compiler.support#bytes->words */
t2=*((C_word*)lf[338]+1);{
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);}}

/* a12518 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12519(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12519,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12523,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1326: ##sys#current-environment2376 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12521 in a12518 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12523(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12523,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12526,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1326: ##sys#current-environment2376 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12524 in k12521 in a12518 in k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_12526(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12526,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12529 in k12414 in k12408 in k12405 in k12402 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12531(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
C_save_and_reclaim((void *)f_12531,c,av);}
a=C_alloc(32);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,t2,t1);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_TRUE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12428,a[2]=t5,a[3]=t7,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12445,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[14],tmp=(C_word)a,a+=13,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12519,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1326: ##sys#dynamic-wind */
t11=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t11;
av2[1]=((C_word*)t0)[15];
av2[2]=t8;
av2[3]=t9;
av2[4]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}

/* k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12564(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_12564,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12567,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])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f24858,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1354: chicken.internal#hash-table-set! */
t4=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[64]+1);
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12577,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t1)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12580,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1352: chicken.base#open-output-string */
t5=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* core.scm:1350: chicken.compiler.support#quit-compiling */
t4=*((C_word*)lf[125]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[342];
av2[3]=lf[344];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}}

/* k12565 in k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12567(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12567,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12570,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1354: chicken.internal#hash-table-set! */
t3=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[64]+1);
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12568 in k12565 in k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12570,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[341];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12575 in k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12577(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12577,c,av);}
/* core.scm:1350: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[342];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12578 in k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12580(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12580,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12586,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1352: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k12584 in k12578 in k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12586(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12586,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12589,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1352: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12587 in k12584 in k12578 in k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12589(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12589,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12592,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1352: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[343];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12590 in k12587 in k12584 in k12578 in k12562 in k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12592(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12592,c,av);}
/* core.scm:1352: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* k12597 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12599(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12599,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,lf[96],t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1348: chicken.compiler.support#get-line */
t4=*((C_word*)lf[113]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12611(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_12611,c,av);}
a=C_alloc(13);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12617,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]=t1,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12732,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1361: scheme#call-with-current-continuation */
t5=*((C_word*)lf[261]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12617(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12617,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12620,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);
/* core.scm:1361: g2429 */
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12620(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_12620,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12623,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[8])){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_12623(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12712,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[7])){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12715,a[2]=t3,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1374: chicken.base#open-output-string */
t5=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
/* core.scm:1372: chicken.compiler.support#quit-compiling */
t4=*((C_word*)lf[125]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[356];
av2[3]=lf[358];
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}}

/* k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12623(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,2)))){
C_save_and_reclaim((void *)f_12623,c,av);}
a=C_alloc(25);
t2=C_a_i_list(&a,2,lf[146],((C_word*)t0)[2]);
t3=C_a_i_list2(&a,2,((C_word*)t0)[3],t2);
t4=C_a_i_cons(&a,2,t3,lf[75]);
t5=C_mutate(&lf[75] /* (set! chicken.compiler.core#defconstant-bindings ...) */,t4);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12633,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],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);
/* core.scm:1378: chicken.compiler.support#collapsable-literal? */
t7=*((C_word*)lf[355]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12633(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_12633,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12636,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_a_i_list(&a,2,lf[146],((C_word*)t0)[3]);
/* core.scm:1379: chicken.internal#hash-table-set! */
t4=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=*((C_word*)lf[65]+1);
av2[3]=((C_word*)t0)[4];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12646,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],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)[4],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1381: chicken.compiler.support#basic-literal? */
t3=*((C_word*)lf[354]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k12634 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12636,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[347];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12646(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_12646,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12649,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);
/* core.scm:1382: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[350];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12679,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[7])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12682,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1391: chicken.base#open-output-string */
t4=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:1389: chicken.compiler.support#quit-compiling */
t3=*((C_word*)lf[125]+1);{
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[351];
av2[3]=lf[353];
av2[4]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}}

/* k12647 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12649(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_12649,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12652,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1383: chicken.internal#hash-table-set! */
t3=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[65]+1);
av2[3]=((C_word*)t0)[9];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12650 in k12647 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_12652(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_12652,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12655,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);
/* core.scm:1384: chicken.compiler.support#hide-variable */
t3=*((C_word*)lf[154]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12653 in k12650 in k12647 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_12655(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_12655,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12658,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);
/* core.scm:1385: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[349];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k12656 in k12653 in k12650 in k12647 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_12658(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_12658,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12661,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);
/* core.scm:1386: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[156];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k12659 in k12656 in k12653 in k12650 in k12647 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_12661(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){
C_save_and_reclaim((void *)f_12661,c,av);}
a=C_alloc(15);
t2=C_a_i_list(&a,2,lf[146],((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,lf[348],((C_word*)t0)[3],t2);
/* core.scm:1387: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_8388(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k12677 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12679(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12679,c,av);}
/* core.scm:1389: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[351];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12680 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12682(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12682,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12688,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1391: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k12686 in k12680 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_12688(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12688,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12691,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1391: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12689 in k12686 in k12680 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_12691(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12691,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12694,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1391: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[352];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12692 in k12689 in k12686 in k12680 in k12644 in k12631 in k12621 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_12694(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12694,c,av);}
/* core.scm:1391: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* k12710 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12712,c,av);}
/* core.scm:1372: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[356];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12713 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
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 t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_12715,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12721,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1374: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k12719 in k12713 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12721(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12721,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12724,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1374: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12722 in k12719 in k12713 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12724(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12724,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12727,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1374: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[357];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12725 in k12722 in k12719 in k12713 in k12618 in k12615 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12727(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12727,c,av);}
/* core.scm:1374: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* a12731 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_12732,c,av);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12738,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12750,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1361: chicken.condition#with-exception-handler */
t5=*((C_word*)lf[260]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a12737 in a12731 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12738,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1361: k2426 */
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* a12743 in a12737 in a12731 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12744,c,av);}
/* core.scm:1363: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=lf[359];
av2[3]=((C_word*)t0)[2];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a12749 in a12731 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12750(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_12750,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12756,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12782,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1361: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a12755 in a12749 in a12731 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12756,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12763,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=C_i_symbolp(((C_word*)t0)[2]);
if(C_truep(C_i_not(t3))){
/* core.scm:1366: chicken.compiler.support#collapsable-literal? */
t4=*((C_word*)lf[355]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_12763(2,av2);}}}

/* k12761 in a12755 in a12749 in a12731 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12763,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_a_i_list(&a,3,lf[170],lf[75],((C_word*)t0)[3]);
/* core.scm:1368: scheme#eval */
t3=*((C_word*)lf[360]+1);{
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);}}}

/* a12781 in a12749 in a12731 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12782(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){
C_save_and_reclaim((void*)f_12782,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+3);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12788,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1361: k2426 */
t4=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* a12787 in a12781 in a12749 in a12731 in k12609 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12788(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12788,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12801(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_12801,c,av);}
a=C_alloc(22);
t2=*((C_word*)lf[106]+1);
t3=C_SCHEME_END_OF_LIST;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_TRUE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12806,a[2]=t4,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12823,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12895,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1396: ##sys#dynamic-wind */
t10=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=((C_word*)t0)[8];
av2[2]=t7;
av2[3]=t8;
av2[4]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}

/* a12805 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12806(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_12806,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* core.scm:1396: ##sys#current-environment2485 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_12810(2,av2);}}}

/* k12808 in a12805 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12810(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12810,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12814,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);
/* core.scm:1396: ##sys#current-environment2485 */
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12812 in k12808 in a12805 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
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;
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_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12817,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1396: ##sys#current-environment2485 */
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12815 in k12812 in k12808 in a12805 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12817,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a12822 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12823(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){
C_save_and_reclaim((void *)f_12823,c,av);}
a=C_alloc(25);
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12836,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);
t7=C_i_cdr(((C_word*)t0)[5]);
t8=C_i_check_list_2(t7,lf[10]);
t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12859,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,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|5,a[1]=(C_word)f_12861,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_12861(t13,t9,t7);}

/* g2508 in a12822 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_12836(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_12836,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1400: process-declaration */
t4=*((C_word*)lf[362]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[4];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* a12841 in g2508 in a12822 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12842(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_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12842,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12850,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1403: lookup */
t4=((C_word*)((C_word*)t0)[3])[1];
f_7862(t4,t3,t2);}

/* k12848 in a12841 in g2508 in a12822 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12850,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_memq(t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12857 in a12822 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12859(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_12859,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[188],t1);
/* core.scm:1397: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_8388(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);}

/* map-loop2502 in a12822 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_12861(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_12861,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_12886,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);
/* core.scm:1399: g2508 */
t4=((C_word*)t0)[4];
f_12836(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);}}}

/* k12884 in map-loop2502 in a12822 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12886(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12886,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_12861(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a12894 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12895,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12899,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1396: ##sys#current-environment2485 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12897 in a12894 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_12899(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_12899,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12902,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1396: ##sys#current-environment2485 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12900 in k12897 in a12894 in k12799 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_12902(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12902,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a12913 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12914(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_12914,c,av);}
a=C_alloc(5);
t2=C_i_cdr(((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_6483,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_6483(t6,t1,C_fix(4),C_SCHEME_END_OF_LIST,t2);}

/* a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_12924(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_12924,c,av);}
a=C_alloc(13);
t4=C_i_car(t3);
t5=C_i_car(t2);
t6=C_i_cadr(t5);
t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12934,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=t6,a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1411: ##sys#alias-global-hook */
t8=*((C_word*)lf[124]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=t6;
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}

/* k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_12934(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_12934,c,av);}
a=C_alloc(21);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_i_cadr(t2);
t4=C_i_cadddr(((C_word*)t0)[2]);
t5=C_i_cadr(t4);
t6=C_i_cadr(((C_word*)t0)[3]);
t7=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12946,a[2]=((C_word*)t0)[4],a[3]=t6,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]=t3,a[9]=((C_word*)t0)[3],a[10]=t1,a[11]=((C_word*)t0)[9],a[12]=t5,a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[2],tmp=(C_word)a,a+=15,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13166,a[2]=((C_word*)t0)[11],a[3]=t1,a[4]=t7,a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1415: chicken.compiler.support#valid-c-identifier? */
t9=*((C_word*)lf[387]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}

/* k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
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 t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_12946,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12949,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],tmp=(C_word)a,a+=15,tmp);
t3=C_i_listp(((C_word*)t0)[3]);
t4=C_i_not(t3);
if(C_truep(t4)){
if(C_truep(t4)){
/* core.scm:1426: chicken.syntax#syntax-error */
t5=*((C_word*)lf[375]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=lf[383];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t5=t2;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_12949(2,av2);}}}
else{
t5=C_i_listp(((C_word*)t0)[12]);
t6=C_i_not(t5);
if(C_truep(t6)){
if(C_truep(t6)){
/* core.scm:1426: chicken.syntax#syntax-error */
t7=*((C_word*)lf[375]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t2;
av2[2]=lf[383];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
t7=t2;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_UNDEFINED;
f_12949(2,av2);}}}
else{
t7=C_i_length(((C_word*)t0)[3]);
t8=C_i_length(((C_word*)t0)[12]);
t9=C_eqp(t7,t8);
if(C_truep(C_i_not(t9))){
/* core.scm:1426: chicken.syntax#syntax-error */
t10=*((C_word*)lf[375]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t2;
av2[2]=lf[383];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}
else{
t10=t2;{
C_word *av2=av;
av2[0]=t10;
av2[1]=C_SCHEME_UNDEFINED;
f_12949(2,av2);}}}}}

/* k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
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 t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){
C_save_and_reclaim((void *)f_12949,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12956,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12960,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1430: mapwalk */
t4=((C_word*)((C_word*)t0)[13])[1];
f_13619(t4,t3,((C_word*)t0)[14],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k12954 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_12956,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,lf[363],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_12960(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){
C_save_and_reclaim((void *)f_12960,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12968,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12980,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],tmp=(C_word)a,a+=12,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_13085,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_13085(t7,t3,((C_word*)t0)[3],((C_word*)t0)[12]);}

/* k12966 in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12968(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12968,c,av);}
a=C_alloc(3);
t2=C_a_i_list(&a,1,t1);
/* core.scm:1429: ##sys#append */
t3=*((C_word*)lf[174]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k12978 in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_12980(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(43,c,4)))){
C_save_and_reclaim((void *)f_12980,c,av);}
a=C_alloc(43);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12984,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12996,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[364]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[365]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[366]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[367]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){
t4=C_i_cddr(((C_word*)t0)[9]);
t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t4);
t6=C_a_i_cons(&a,2,lf[170],t5);
t7=C_a_i_list(&a,2,lf[146],((C_word*)t0)[10]);
t8=C_a_i_list(&a,3,lf[368],t6,t7);
t9=C_a_i_list(&a,1,t8);
t10=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t9);
t11=C_a_i_cons(&a,2,lf[170],t10);
/* core.scm:1448: chicken.compiler.support#foreign-type-convert-argument */
t12=*((C_word*)lf[280]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t12;
av2[1]=t2;
av2[2]=t11;
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}
else{
if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[369]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[370]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[371]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[372]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[373]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[374]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){
/* core.scm:1470: chicken.syntax#syntax-error */
t4=*((C_word*)lf[375]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[376];
av2[3]=((C_word*)t0)[8];
av2[4]=((C_word*)t0)[10];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[377]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[378]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[379]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[380]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){
t4=C_i_cddr(((C_word*)t0)[9]);
t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t4);
t6=C_a_i_cons(&a,2,lf[170],t5);
t7=C_a_i_list(&a,2,lf[381],t6);
t8=C_a_i_list(&a,1,t7);
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13056,a[2]=((C_word*)t0)[10],a[3]=t8,a[4]=t2,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1482: macro-alias */
t10=((C_word*)((C_word*)t0)[11])[1];
f_7902(t10,t9,lf[382]);}
else{
t4=C_i_cddr(((C_word*)t0)[9]);
t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t4);
t6=C_a_i_cons(&a,2,lf[170],t5);
/* core.scm:1448: chicken.compiler.support#foreign-type-convert-argument */
t7=*((C_word*)lf[280]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t2;
av2[2]=t6;
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}}}

/* k12982 in k12978 in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12984(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,8)))){
C_save_and_reclaim((void *)f_12984,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,3,lf[170],((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,3,lf[96],((C_word*)t0)[3],t2);
/* core.scm:1431: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_8388(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12994 in k12978 in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_12996(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_12996,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t1);
t3=C_a_i_cons(&a,2,lf[170],t2);
/* core.scm:1448: chicken.compiler.support#foreign-type-convert-argument */
t4=*((C_word*)lf[280]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=t3;
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k13054 in k12978 in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_13056(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,3)))){
C_save_and_reclaim((void *)f_13056,c,av);}
a=C_alloc(42);
t2=C_a_i_list(&a,2,lf[146],((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,lf[368],lf[381],t2);
t4=C_a_i_list(&a,3,t1,lf[381],t3);
t5=C_a_i_list(&a,3,lf[170],((C_word*)t0)[3],t4);
t6=C_a_i_list(&a,1,t5);
t7=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t6);
t8=C_a_i_cons(&a,2,lf[170],t7);
/* core.scm:1448: chicken.compiler.support#foreign-type-convert-argument */
t9=*((C_word*)lf[280]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[4];
av2[2]=t8;
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}

/* loop in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_fcall f_13085(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_13085,4,t0,t1,t2,t3);}
a=C_alloc(15);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_i_car(t3);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13117,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13121,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13125,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1444: chicken.compiler.support#final-foreign-type */
t9=*((C_word*)lf[122]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}

/* k13107 in k13115 in loop in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_13109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13109,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);}}

/* k13115 in loop in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_13117(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_13117,c,av);}
a=C_alloc(10);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13109,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1447: loop */
t4=((C_word*)((C_word*)t0)[4])[1];
f_13085(t4,t3,C_u_i_cdr(((C_word*)t0)[5]),C_u_i_cdr(((C_word*)t0)[6]));}

/* k13119 in loop in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_13121(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13121,c,av);}
/* core.scm:1442: chicken.compiler.support#foreign-type-convert-result */
t2=*((C_word*)lf[120]+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);}}

/* k13123 in loop in k12958 in k12947 in k12944 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_13125(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13125,c,av);}
/* core.scm:1443: chicken.compiler.support#finish-foreign-result */
t2=*((C_word*)lf[121]+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);}}

/* k13164 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_13166(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_13166,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,t2,lf[76]);
t4=C_mutate(&lf[76] /* (set! chicken.compiler.core#callback-names ...) */,t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_12946(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13177,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1418: chicken.compiler.support#get-line */
t3=*((C_word*)lf[113]+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)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k13175 in k13164 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_13177(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_13177,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13184,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13187,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1421: chicken.base#open-output-string */
t4=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:1419: chicken.compiler.support#quit-compiling */
t3=*((C_word*)lf[125]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[384];
av2[3]=lf[386];
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k13182 in k13175 in k13164 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_13184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13184,c,av);}
/* core.scm:1419: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[384];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k13185 in k13175 in k13164 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_13187(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_13187,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13193,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1421: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k13191 in k13185 in k13175 in k13164 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_13193(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13193,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13196,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1421: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13194 in k13191 in k13185 in k13175 in k13164 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_13196(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13196,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13199,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1421: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[385];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13197 in k13194 in k13191 in k13185 in k13175 in k13164 in k12932 in a12923 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_13199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13199,c,av);}
/* core.scm:1421: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* g2597 in k13303 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_13236(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;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,8)))){
C_save_and_reclaim_args((void *)trf_13236,3,t0,t1,t2);}
a=C_alloc(21);
t3=C_i_cadr(t2);
t4=C_a_i_list(&a,2,lf[146],lf[389]);
t5=C_a_i_list(&a,5,lf[390],t3,C_fix(0),C_SCHEME_FALSE,t4);
/* core.scm:1494: walk */
t6=((C_word*)((C_word*)t0)[2])[1];
f_8388(t6,t1,t5,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}

/* g2604 in k13303 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_13262(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_13262,3,t0,t1,t2);}
/* core.scm:1498: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_8388(t3,t1,C_i_cdr(t2),((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k13288 in k13303 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_13290(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_13290,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,2,t1,lf[328]);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[119],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13303 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_13305(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){
C_save_and_reclaim((void *)f_13305,c,av);}
a=C_alloc(21);
t2=C_i_assq(t1,lf[73]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13236,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);
/* core.scm:1492: g2597 */
t4=t3;
f_13236(t4,((C_word*)t0)[6],t2);}
else{
t3=C_i_assq(((C_word*)t0)[7],lf[72]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13262,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);
/* core.scm:1492: g2604 */
t5=t4;
f_13262(t5,((C_word*)t0)[6],t3);}
else{
if(C_truep(C_i_assq(((C_word*)t0)[7],lf[76]))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13290,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1500: scheme#symbol->string */
t5=*((C_word*)lf[250]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_a_i_list(&a,2,lf[146],lf[389]);
t5=C_a_i_list(&a,5,lf[390],((C_word*)t0)[7],C_fix(0),C_SCHEME_FALSE,t4);
/* core.scm:1502: walk */
t6=((C_word*)((C_word*)t0)[2])[1];
f_8388(t6,((C_word*)t0)[6],t5,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}}}}

/* k13320 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_13322(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_13322,c,av);}
a=C_alloc(7);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13328,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* core.scm:1514: chicken.internal#hash-table-ref */
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[62]+1);
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k13326 in k13320 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_13328(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_13328,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13331,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(t1)){
t3=C_i_cdr(t1);
t4=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t5=C_a_i_cons(&a,2,t4,t3);
t6=C_a_i_cons(&a,2,((C_word*)t0)[5],t5);
/* core.scm:1516: chicken.internal#hash-table-set! */
t7=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=t2;
av2[2]=*((C_word*)lf[62]+1);
av2[3]=((C_word*)t0)[6];
av2[4]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t5=C_a_i_cons(&a,2,((C_word*)t0)[5],t4);
/* core.scm:1516: chicken.internal#hash-table-set! */
t6=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t2;
av2[2]=*((C_word*)lf[62]+1);
av2[3]=((C_word*)t0)[6];
av2[4]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13329 in k13326 in k13320 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_13331(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13331,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a13350 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_13351(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13351,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[391]+1));
t3=C_mutate((C_word*)lf[391]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a13355 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_13356(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_13356,c,av);}
/* core.scm:1512: mapwalk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13619(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* a13361 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_13362(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13362,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[391]+1));
t3=C_mutate((C_word*)lf[391]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a13498 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13499(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13499,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[114]+1));
t3=C_mutate((C_word*)lf[114]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a13503 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13504(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13504,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13512,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:657: ##sys#current-environment */
t3=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13510 in a13503 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13512,c,av);}
/* core.scm:657: chicken.syntax#expand */
t2=*((C_word*)lf[394]+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]=t1;
av2[4]=*((C_word*)lf[52]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a13513 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13514(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13514,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[114]+1));
t3=C_mutate((C_word*)lf[114]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k13530 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13532(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_13532,c,av);}
a=C_alloc(6);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13538,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* core.scm:650: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k13536 in k13530 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13538(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_13538,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13541,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);
/* core.scm:650: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13539 in k13536 in k13530 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13541(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_13541,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13544,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);
/* core.scm:650: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[395];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13542 in k13539 in k13536 in k13530 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13544(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13544,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13547,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:650: chicken.base#get-output-string */
t3=*((C_word*)lf[129]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13545 in k13542 in k13539 in k13536 in k13530 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13547(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13547,c,av);}
/* core.scm:650: ##sys#syntax-error/context */
t2=*((C_word*)lf[138]+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);}}

/* k13563 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13565(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_13565,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13568,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);
/* core.scm:1526: chicken.compiler.support#emit-syntax-trace-info */
t3=*((C_word*)lf[397]+1);{
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_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13577,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1531: chicken.compiler.support#emit-syntax-trace-info */
t3=*((C_word*)lf[397]+1);{
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_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k13566 in k13563 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13568(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_13568,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13571,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);
/* core.scm:1527: chicken.base#warning */
t3=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[399];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k13569 in k13566 in k13563 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_13571,c,av);}
/* core.scm:1528: mapwalk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_13619(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k13575 in k13563 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13577(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_13577,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13580,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);
/* core.scm:1532: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13578 in k13575 in k13563 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13580(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){
C_save_and_reclaim((void *)f_13580,c,av);}
a=C_alloc(21);
t2=C_u_i_car(((C_word*)t0)[2]);
t3=C_a_i_list(&a,2,t1,t2);
t4=C_a_i_list(&a,1,t3);
t5=C_u_i_cdr(((C_word*)t0)[2]);
t6=C_a_i_cons(&a,2,t1,t5);
t7=C_a_i_list(&a,3,lf[170],t4,t6);
/* core.scm:1533: walk */
t8=((C_word*)((C_word*)t0)[3])[1];
f_8388(t8,((C_word*)t0)[4],t7,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* mapwalk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13619(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_13619,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(20);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13624,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
t12=C_i_check_list_2(t2,lf[10]);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13636,a[2]=t9,a[3]=t14,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_13636(t16,t1,t2);}

/* g2653 in mapwalk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13624(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_13624,3,t0,t1,t2);}
/* core.scm:1540: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_8388(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* map-loop2647 in mapwalk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13636(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_13636,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_13661,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);
/* core.scm:1540: g2653 */
t4=((C_word*)t0)[4];
f_13624(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);}}}

/* k13659 in map-loop2647 in mapwalk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13661(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13661,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_13636(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k13669 in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13671(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_13671,c,av);}
a=C_alloc(8);
t2=code_799();
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13682,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13686,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1547: scheme#reverse */
t5=*((C_word*)lf[229]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[74];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k13680 in k13669 in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13682(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_13682,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[188],t1);
/* core.scm:1545: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_8388(t3,((C_word*)t0)[3],t2,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE);}

/* k13684 in k13669 in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13686(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_13686,c,av);}
a=C_alloc(5);
t2=lf[74] /* chicken.compiler.core#pending-canonicalizations */ =C_SCHEME_END_OF_LIST;;
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1551: scheme#append */
t4=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[86]+1);
av2[3]=*((C_word*)lf[19]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k13694 in k13684 in k13669 in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13696(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13696,c,av);}
a=C_alloc(3);
t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=C_a_i_list(&a,1,((C_word*)t0)[2]);
/* core.scm:1546: ##sys#append */
t4=*((C_word*)lf[174]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k13700 in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13702,c,av);}
/* core.scm:1542: chicken.pretty-print#pretty-print */
t2=*((C_word*)lf[235]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13707(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;
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;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,5)))){
C_save_and_reclaim((void *)f_13707,c,av);}
a=C_alloc(32);
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_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13710,tmp=(C_word)a,a+=2,tmp));
t16=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13745,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t17=C_set_block_item(t10,0,*((C_word*)lf[147]+1));
t18=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13752,a[2]=t14,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp));
t19=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13773,tmp=(C_word)a,a+=2,tmp));
t20=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13801,a[2]=t10,a[3]=t2,a[4]=t6,a[5]=t8,a[6]=t12,a[7]=t14,a[8]=t4,a[9]=t3,tmp=(C_word)a,a+=10,tmp);
t21=t20;
f_13801(t21,t1);}

/* check-decl in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13710(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;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_13710,4,t1,t2,t3,t4);}
t5=C_i_cdr(t2);
t6=C_i_length(t5);
t7=C_i_lessp(t6,t3);
if(C_truep(t7)){
if(C_truep(t7)){
/* core.scm:1560: chicken.syntax#syntax-error */
t8=*((C_word*)lf[375]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t1;
av2[2]=lf[402];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
t8=C_SCHEME_UNDEFINED;
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
if(C_truep(C_i_nullp(t4))){
if(C_truep(C_i_greaterp(t6,C_fix(99999)))){
/* core.scm:1560: chicken.syntax#syntax-error */
t8=*((C_word*)lf[375]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t1;
av2[2]=lf[402];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
t8=C_SCHEME_UNDEFINED;
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t8=C_i_car(t4);
if(C_truep(C_i_greaterp(t6,t8))){
/* core.scm:1560: chicken.syntax#syntax-error */
t9=*((C_word*)lf[375]+1);{
C_word av2[4];
av2[0]=t9;
av2[1]=t1;
av2[2]=lf[402];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
else{
t9=C_SCHEME_UNDEFINED;
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}

/* stripa in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13745(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_13745,3,t0,t1,t2);}
/* core.scm:1562: ##sys#globalize */
t3=*((C_word*)lf[403]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13752(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;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_13752,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13758,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_i_check_list_2(t2,lf[8]);
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_6979,a[2]=t3,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_6979(t8,t1,t2);}

/* a13757 in globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13758(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_13758,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13765,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1567: local? */
t4=((C_word*)t0)[4];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k13763 in a13757 in globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13765(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13765,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13768,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1568: note-local */
f_13773(t2,((C_word*)t0)[4]);}
else{
/* core.scm:1570: ##sys#globalize */
t2=*((C_word*)lf[403]+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)[4];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k13766 in k13763 in a13757 in globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13768(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13768,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* note-local in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13773(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_13773,2,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13781,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1574: chicken.base#open-output-string */
t4=*((C_word*)lf[133]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k13779 in note-local in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_13781,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13787,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1574: ##sys#print */
t4=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[405];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13785 in k13779 in note-local in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13787(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13787,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13790,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1574: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13788 in k13785 in k13779 in note-local in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13790(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_13790,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13793,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1574: ##sys#write-char-0 */
t3=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k13791 in k13788 in k13785 in k13779 in note-local in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13793(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13793,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13796,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1574: chicken.base#get-output-string */
t3=*((C_word*)lf[129]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13794 in k13791 in k13788 in k13785 in k13779 in note-local in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13796(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13796,c,av);}
/* core.scm:1573: ##sys#notice */
t2=*((C_word*)lf[404]+1);{
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);}}

/* a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_13801(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_13801,2,t0,t1);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13805,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_13805(2,av2);}}
else{
/* core.scm:1578: chicken.syntax#syntax-error */
t3=*((C_word*)lf[375]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[482];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_13805,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13808,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);
/* core.scm:1579: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13808(C_word c,C_word *av){
C_word tmp;
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 t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_13808,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13811,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_eqp(t1,lf[407]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13817,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13847,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1581: stripu */
t6=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=C_eqp(t1,lf[409]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13858,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);
/* core.scm:1590: check-decl */
f_13710(t5,((C_word*)t0)[4],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}
else{
t5=C_eqp(t1,lf[411]);
if(C_truep(t5)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[4])))){
t6=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,*((C_word*)lf[85]+1));
t7=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13900,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13904,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1599: stripa */
t8=((C_word*)((C_word*)t0)[6])[1];
f_13745(t8,t7,C_u_i_cdr(((C_word*)t0)[4]));}}
else{
t6=C_eqp(t1,lf[412]);
if(C_truep(t6)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[4])))){
t7=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,*((C_word*)lf[84]+1));
t8=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t8;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13925,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13929,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1603: stripa */
t9=((C_word*)((C_word*)t0)[6])[1];
f_13745(t9,t8,C_u_i_cdr(((C_word*)t0)[4]));}}
else{
t7=C_eqp(t1,lf[413]);
if(C_truep(t7)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[4])))){
t8=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,*((C_word*)lf[85]+1));
t9=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,*((C_word*)lf[84]+1));
t10=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t10;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13950,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1609: stripa */
t9=((C_word*)((C_word*)t0)[6])[1];
f_13745(t9,t8,C_u_i_cdr(((C_word*)t0)[4]));}}
else{
t8=C_eqp(t1,lf[414]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1613: check-decl */
f_13710(t9,((C_word*)t0)[4],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}
else{
t9=C_eqp(t1,lf[416]);
t10=(C_truep(t9)?t9:C_eqp(t1,lf[417]));
if(C_truep(t10)){
t11=C_mutate((C_word*)lf[415]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[416]);
t12=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t12;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t11=C_eqp(t1,lf[418]);
if(C_truep(t11)){
t12=C_mutate((C_word*)lf[415]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[418]);
t13=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t13;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t12=C_eqp(t1,lf[419]);
if(C_truep(t12)){
t13=C_set_block_item(lf[149] /* chicken.compiler.support#unsafe */,0,C_SCHEME_TRUE);
t14=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t14;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t13=C_eqp(t1,lf[420]);
if(C_truep(t13)){
t14=C_set_block_item(lf[149] /* chicken.compiler.support#unsafe */,0,C_SCHEME_FALSE);
t15=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t15;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t14=C_eqp(t1,lf[421]);
if(C_truep(t14)){
t15=C_set_block_item(lf[31] /* chicken.compiler.core#no-bound-checks */,0,C_SCHEME_TRUE);
t16=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t16;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}
else{
t15=C_eqp(t1,lf[422]);
if(C_truep(t15)){
t16=C_set_block_item(lf[32] /* chicken.compiler.core#no-argc-checks */,0,C_SCHEME_TRUE);
t17=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t17;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
t16=C_eqp(t1,lf[423]);
if(C_truep(t16)){
t17=C_set_block_item(lf[33] /* chicken.compiler.core#no-procedure-checks */,0,C_SCHEME_TRUE);
t18=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t18;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
else{
t17=C_eqp(t1,lf[424]);
if(C_truep(t17)){
t18=C_set_block_item(lf[20] /* chicken.compiler.core#insert-timer-checks */,0,C_SCHEME_FALSE);
t19=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t19;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t18=C_eqp(t1,lf[425]);
if(C_truep(t18)){
t19=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14052,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1624: stripa */
t20=((C_word*)((C_word*)t0)[6])[1];
f_13745(t20,t19,C_u_i_cdr(((C_word*)t0)[4]));}
else{
t19=C_eqp(t1,lf[426]);
if(C_truep(t19)){
t20=lf[35] /* chicken.compiler.core#safe-globals-flag */ =C_SCHEME_TRUE;;
t21=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t21;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}
else{
t20=C_eqp(t1,lf[427]);
if(C_truep(t20)){
t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14104,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1629: scheme#append */
t22=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t22;
av2[1]=t21;
av2[2]=*((C_word*)lf[85]+1);
av2[3]=*((C_word*)lf[84]+1);
((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}}
else{
t21=C_eqp(t1,lf[428]);
if(C_truep(t21)){
t22=C_set_block_item(lf[34] /* chicken.compiler.core#no-global-procedure-checks */,0,C_SCHEME_TRUE);
t23=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t23;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}
else{
t22=C_eqp(t1,lf[429]);
if(C_truep(t22)){
t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14186,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1636: globalize-all */
t24=((C_word*)((C_word*)t0)[7])[1];
f_13752(t24,t23,C_u_i_cdr(((C_word*)t0)[4]));}
else{
t23=C_eqp(t1,lf[430]);
if(C_truep(t23)){
t24=C_u_i_cdr(((C_word*)t0)[4]);
t25=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14266,a[2]=((C_word*)t0)[2],a[3]=t24,a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1641: every */
f_6686(t25,*((C_word*)lf[433]+1),t24);}
else{
t24=C_eqp(t1,lf[434]);
if(C_truep(t24)){
t25=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE);
t26=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t26;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t26+1)))(2,av2);}}
else{
t25=C_eqp(t1,lf[435]);
if(C_truep(t25)){
t26=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_FALSE);
t27=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t27;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}}
else{
t26=C_eqp(t1,lf[436]);
if(C_truep(t26)){
t27=C_set_block_item(lf[42] /* chicken.compiler.core#undefine-shadowed-macros */,0,C_SCHEME_FALSE);
t28=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t28;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}}
else{
t27=C_eqp(t1,lf[437]);
if(C_truep(t27)){
t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14308,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1648: globalize-all */
t29=((C_word*)((C_word*)t0)[7])[1];
f_13752(t29,t28,C_u_i_cdr(((C_word*)t0)[4]));}
else{
t28=C_eqp(t1,lf[439]);
if(C_truep(t28)){
t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14353,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1652: globalize-all */
t30=((C_word*)((C_word*)t0)[7])[1];
f_13752(t30,t29,C_u_i_cdr(((C_word*)t0)[4]));}
else{
t29=C_eqp(t1,lf[441]);
if(C_truep(t29)){
t30=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14393,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* core.scm:1654: check-decl */
f_13710(t30,((C_word*)t0)[4],C_fix(1),C_SCHEME_END_OF_LIST);}
else{
t30=C_eqp(t1,lf[448]);
if(C_truep(t30)){
t31=C_set_block_item(lf[198] /* ##sys#enable-runtime-macros */,0,C_SCHEME_TRUE);
t32=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t32;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t32+1)))(2,av2);}}
else{
t31=C_eqp(t1,lf[449]);
t32=(C_truep(t31)?t31:C_eqp(t1,lf[450]));
if(C_truep(t32)){
t33=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14653,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1697: globalize-all */
t34=((C_word*)((C_word*)t0)[7])[1];
f_13752(t34,t33,C_u_i_cdr(((C_word*)t0)[4]));}
else{
t33=C_eqp(t1,lf[451]);
if(C_truep(t33)){
t34=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE);
t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14701,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1703: globalize-all */
t36=((C_word*)((C_word*)t0)[7])[1];
f_13752(t36,t35,C_u_i_cdr(((C_word*)t0)[4]));}
else{
t34=C_eqp(t1,lf[453]);
if(C_truep(t34)){
t35=C_set_block_item(lf[38] /* chicken.compiler.core#external-protos-first */,0,C_SCHEME_TRUE);
t36=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t36;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t36+1)))(2,av2);}}
else{
t35=C_eqp(t1,lf[442]);
if(C_truep(t35)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[4])))){
t36=C_set_block_item(lf[50] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE);
t37=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t37;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t37+1)))(2,av2);}}
else{
t36=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14760,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1712: globalize-all */
t37=((C_word*)((C_word*)t0)[7])[1];
f_13752(t37,t36,C_u_i_cdr(((C_word*)t0)[4]));}}
else{
t36=C_eqp(t1,lf[455]);
if(C_truep(t36)){
t37=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14802,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1714: check-decl */
f_13710(t37,((C_word*)t0)[4],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}
else{
t37=C_eqp(t1,lf[457]);
if(C_truep(t37)){
t38=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14824,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1722: check-decl */
f_13710(t38,((C_word*)t0)[4],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}
else{
t38=C_eqp(t1,lf[459]);
if(C_truep(t38)){
t39=C_u_i_cdr(((C_word*)t0)[4]);
t40=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14850,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=t39,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1731: every */
f_6686(t40,*((C_word*)lf[105]+1),t39);}
else{
t39=C_eqp(t1,lf[462]);
if(C_truep(t39)){
t40=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14900,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t41=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t42=t41;
t43=(*a=C_VECTOR_TYPE|1,a[1]=t42,tmp=(C_word)a,a+=2,tmp);
t44=((C_word*)t43)[1];
t45=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14976,a[2]=t40,a[3]=t43,a[4]=t44,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1750: chicken.syntax#strip-syntax */
t46=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t46;
av2[1]=t45;
av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t46+1)))(3,av2);}}
else{
t40=C_eqp(t1,lf[465]);
if(C_truep(t40)){
t41=C_set_block_item(lf[30] /* chicken.compiler.core#emit-profile */,0,C_SCHEME_TRUE);
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[4])))){
t42=C_mutate((C_word*)lf[43]+1 /* (set! chicken.compiler.core#profiled-procedures ...) */,lf[181]);
t43=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t43;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t43+1)))(2,av2);}}
else{
t42=C_mutate((C_word*)lf[43]+1 /* (set! chicken.compiler.core#profiled-procedures ...) */,lf[182]);
t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15041,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1759: globalize-all */
t44=((C_word*)((C_word*)t0)[7])[1];
f_13752(t44,t43,C_u_i_cdr(((C_word*)t0)[4]));}}
else{
t41=C_eqp(t1,lf[466]);
if(C_truep(t41)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[4])))){
t42=C_set_block_item(lf[49] /* chicken.compiler.core#local-definitions */,0,C_SCHEME_TRUE);
t43=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t43;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t43+1)))(2,av2);}}
else{
t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15095,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1766: stripa */
t43=((C_word*)((C_word*)t0)[6])[1];
f_13745(t43,t42,C_u_i_cdr(((C_word*)t0)[4]));}}
else{
t42=C_eqp(t1,lf[445]);
if(C_truep(t42)){
t43=C_set_block_item(lf[51] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_TRUE);
t44=C_set_block_item(lf[50] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[4])))){
t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15150,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1773: globalize-all */
t46=((C_word*)((C_word*)t0)[7])[1];
f_13752(t46,t45,C_u_i_cdr(((C_word*)t0)[4]));}
else{
t45=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t45;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t45+1)))(2,av2);}}}
else{
t43=C_eqp(t1,lf[467]);
if(C_truep(t43)){
t44=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15190,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp);
t45=C_u_i_cdr(((C_word*)t0)[4]);
t46=C_i_check_list_2(t45,lf[99]);
t47=C_SCHEME_UNDEFINED;
t48=(*a=C_VECTOR_TYPE|1,a[1]=t47,tmp=(C_word)a,a+=2,tmp);
t49=C_set_block_item(t48,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15354,a[2]=t48,a[3]=t44,tmp=(C_word)a,a+=4,tmp));
t50=((C_word*)t48)[1];
f_15354(t50,t2,t45);}
else{
t44=C_eqp(t1,lf[476]);
if(C_truep(t44)){
t45=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15382,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp);
t46=C_u_i_cdr(((C_word*)t0)[4]);
t47=C_i_check_list_2(t46,lf[99]);
t48=C_SCHEME_UNDEFINED;
t49=(*a=C_VECTOR_TYPE|1,a[1]=t48,tmp=(C_word)a,a+=2,tmp);
t50=C_set_block_item(t49,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15476,a[2]=t49,a[3]=t45,tmp=(C_word)a,a+=4,tmp));
t51=((C_word*)t49)[1];
f_15476(t51,t2,t46);}
else{
t45=C_eqp(t1,lf[479]);
if(C_truep(t45)){
t46=C_set_block_item(lf[55] /* chicken.compiler.core#enable-specialization */,0,C_SCHEME_TRUE);
t47=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t47;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t47+1)))(2,av2);}}
else{
t46=C_eqp(t1,lf[480]);
if(C_truep(t46)){
t47=C_set_block_item(lf[54] /* chicken.compiler.core#strict-variable-types */,0,C_SCHEME_TRUE);
t48=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t48;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t48+1)))(2,av2);}}
else{
/* core.scm:1829: chicken.base#warning */
t47=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t47;
av2[1]=t2;
av2[2]=lf[481];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t47+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k13809 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13811,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13815 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13817(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_13817,c,av);}
a=C_alloc(4);
if(C_truep(C_i_pairp(t1))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13827,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1583: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[80]+1);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k13825 in k13815 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13827(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_13827,c,av);}
a=C_alloc(4);
t2=C_mutate((C_word*)lf[80]+1 /* (set! chicken.compiler.core#provided ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1584: scheme#append */
t4=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[21]+1);
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k13829 in k13825 in k13815 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13831(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_13831,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[21]+1 /* (set! chicken.compiler.core#used-units ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13836,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13842,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1585: chicken.internal#hash-table-update! */
t5=*((C_word*)lf[169]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=*((C_word*)lf[79]+1);
av2[3]=lf[408];
av2[4]=t3;
av2[5]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}

/* a13835 in k13829 in k13825 in k13815 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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=av[2];
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13836,c,av);}
t3=lf[13];
/* core.scm:1587: g2748 */
t4=lf[13];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
f_7231(4,av2);}}

/* a13841 in k13829 in k13825 in k13815 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13842,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);}}

/* k13845 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13847,c,av);}
a=C_alloc(3);
/* core.scm:1581: lset-difference/eq? */
f_7186(((C_word*)t0)[2],t1,C_a_i_list(&a,1,*((C_word*)lf[21]+1)));}

/* k13856 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13858(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13858,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13861,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1591: stripu */
t3=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13859 in k13856 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13861,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13864,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(C_truep(*((C_word*)lf[17]+1))?C_i_not(C_eqp(*((C_word*)lf[17]+1),t1)):C_SCHEME_FALSE);
if(C_truep(t3)){
/* core.scm:1593: chicken.base#warning */
t4=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[410];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=C_mutate((C_word*)lf[17]+1 /* (set! chicken.compiler.core#unit-name ...) */,t1);
t5=C_set_block_item(lf[48] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_FALSE);
t6=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k13862 in k13859 in k13856 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13864(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13864,c,av);}
t2=C_mutate((C_word*)lf[17]+1 /* (set! chicken.compiler.core#unit-name ...) */,((C_word*)t0)[2]);
t3=C_set_block_item(lf[48] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_FALSE);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k13898 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13900(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13900,c,av);}
t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13902 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13904(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13904,c,av);}
/* core.scm:1599: scheme#append */
t2=*((C_word*)lf[5]+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*)lf[18]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k13923 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13925(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13925,c,av);}
t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13927 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13929(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13929,c,av);}
/* core.scm:1603: scheme#append */
t2=*((C_word*)lf[5]+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*)lf[19]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k13948 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13950(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_13950,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13954,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1610: lset-intersection/eq? */
f_7310(t2,t1,C_a_i_list(&a,1,*((C_word*)lf[85]+1)));}

/* k13952 in k13948 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13954(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_13954,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13958,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1611: lset-intersection/eq? */
f_7310(t3,((C_word*)t0)[3],C_a_i_list(&a,1,*((C_word*)lf[84]+1)));}

/* k13956 in k13952 in k13948 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13958(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13958,c,av);}
t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13969 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13971(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13971,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13975,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1614: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13973 in k13969 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_13975(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13975,c,av);}
t2=C_mutate((C_word*)lf[415]+1 /* (set! chicken.compiler.support#number-type ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14050 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14052(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14052,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_14060,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14060(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2770 in k14050 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14060(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14060,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_14070,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_word*)lf[155]+1);
/* core.scm:1624: g2786 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[156];
((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);}}}

/* k14068 in for-each-loop2770 in k14050 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14070,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14060(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14102 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14104(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_14104,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[99]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14110,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_14149,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_14149(t7,t3,t1);}

/* k14108 in k14102 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14110(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14110,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14118,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1632: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[85]+1);
av2[3]=*((C_word*)lf[84]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k14116 in k14108 in k14102 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14118(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14118,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_14126,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14126(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2820 in k14116 in k14108 in k14102 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14126(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14126,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_14136,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_word*)lf[155]+1);
/* core.scm:1631: g2836 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[156];
((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);}}}

/* k14134 in for-each-loop2820 in k14116 in k14108 in k14102 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14136(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14136,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14126(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop2795 in k14102 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14149(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14149,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_14159,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_word*)lf[155]+1);
/* core.scm:1628: g2811 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[293];
((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);}}}

/* k14157 in for-each-loop2795 in k14102 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14159,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14149(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14184 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14186(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_14186,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[99]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14197,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14230,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_14230(t7,t3,t1);}

/* k14195 in k14184 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14197(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14197,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_14207,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_14207(t5,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* for-each-loop2857 in k14195 in k14184 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14207(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14207,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_14217,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_word*)lf[155]+1);
/* core.scm:1638: g2888 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[156];
((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);}}}

/* k14215 in for-each-loop2857 in k14195 in k14184 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14217(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14217,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14207(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop2847 in k14184 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14230(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14230,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_14240,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_word*)lf[155]+1);
/* core.scm:1637: g2873 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[293];
((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);}}}

/* k14238 in for-each-loop2847 in k14184 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14240(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14240,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14230(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14264 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14266(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_14266,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14270,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1642: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[22]+1);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
/* core.scm:1643: chicken.syntax#syntax-error */
t2=*((C_word*)lf[375]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[431];
av2[3]=lf[432];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* k14268 in k14264 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14270(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14270,c,av);}
t2=C_mutate((C_word*)lf[22]+1 /* (set! chicken.compiler.core#foreign-declarations ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14306 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14308(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14308,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_14316,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14316(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2899 in k14306 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14316(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14316,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_14326,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_word*)lf[155]+1);
/* core.scm:1648: g2915 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[438];
((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);}}}

/* k14324 in for-each-loop2899 in k14306 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14326(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14326,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14316(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14351 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14353(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14353,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_14361,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14361(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2924 in k14351 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14361(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14361,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_14371,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_word*)lf[155]+1);
/* core.scm:1651: g2940 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[440];
((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);}}}

/* k14369 in for-each-loop2924 in k14351 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14371(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14371,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14361(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14393(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_14393,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14396,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);
/* core.scm:1655: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14396(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_14396,c,av);}
a=C_alloc(8);
t2=C_eqp(t1,lf[411]);
if(C_truep(t2)){
t3=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_nullp(t3))){
t4=C_set_block_item(lf[18] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST);
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14413,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14417,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=C_u_i_cdr(((C_word*)t0)[2]);
/* core.scm:1661: stripa */
t7=((C_word*)((C_word*)t0)[4])[1];
f_13745(t7,t5,C_u_i_cdr(t6));}}
else{
t3=C_eqp(t1,lf[412]);
if(C_truep(t3)){
t4=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_nullp(t4))){
t5=C_set_block_item(lf[19] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST);
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14441,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14445,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=C_u_i_cdr(((C_word*)t0)[2]);
/* core.scm:1667: stripa */
t8=((C_word*)((C_word*)t0)[4])[1];
f_13745(t8,t6,C_u_i_cdr(t7));}}
else{
t4=C_eqp(t1,lf[442]);
if(C_truep(t4)){
t5=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_nullp(t5))){
t6=C_set_block_item(lf[50] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_FALSE);
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14473,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
t7=C_u_i_cdr(((C_word*)t0)[2]);
/* core.scm:1673: globalize-all */
t8=((C_word*)((C_word*)t0)[6])[1];
f_13752(t8,t6,C_u_i_cdr(t7));}}
else{
t5=C_eqp(t1,lf[413]);
if(C_truep(t5)){
t6=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_nullp(t6))){
t7=C_set_block_item(lf[18] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST);
t8=C_set_block_item(lf[19] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST);
t9=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t9;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14526,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t8=C_u_i_cdr(((C_word*)t0)[2]);
/* core.scm:1679: stripa */
t9=((C_word*)((C_word*)t0)[4])[1];
f_13745(t9,t7,C_u_i_cdr(t8));}}
else{
t6=C_eqp(t1,lf[445]);
if(C_truep(t6)){
t7=C_set_block_item(lf[51] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_TRUE);
t8=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_pairp(t8))){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14562,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
t10=C_u_i_cdr(((C_word*)t0)[2]);
/* core.scm:1687: globalize-all */
t11=((C_word*)((C_word*)t0)[6])[1];
f_13752(t11,t9,C_u_i_cdr(t10));}
else{
t9=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t9;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14601,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1689: check-decl */
f_13710(t7,((C_word*)t0)[2],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}}}}}}

/* k14411 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14413(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14413,c,av);}
t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14415 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14417(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14417,c,av);}
a=C_alloc(3);
/* core.scm:1660: lset-difference/eq? */
f_7186(((C_word*)t0)[2],*((C_word*)lf[85]+1),C_a_i_list(&a,1,t1));}

/* k14439 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14441(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14441,c,av);}
t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14443 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14445(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14445,c,av);}
a=C_alloc(3);
/* core.scm:1666: lset-difference/eq? */
f_7186(((C_word*)t0)[2],*((C_word*)lf[84]+1),C_a_i_list(&a,1,t1));}

/* k14471 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14473(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14473,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_14481,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14481(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2955 in k14471 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14481(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_14481,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_14491,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_word*)lf[155]+1);
/* core.scm:1672: g2971 */
t6=*((C_word*)lf[155]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[443];
av2[4]=lf[444];
((C_proc)(void*)(*((C_word*)t6+1)))(5,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);}}}

/* k14489 in for-each-loop2955 in k14471 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14491(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14491,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14481(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14524 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14526(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_14526,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14530,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1680: lset-difference/eq? */
f_7186(t2,*((C_word*)lf[85]+1),C_a_i_list(&a,1,t1));}

/* k14528 in k14524 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14530(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14530,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1681: lset-difference/eq? */
f_7186(t3,*((C_word*)lf[84]+1),C_a_i_list(&a,1,((C_word*)t0)[3]));}

/* k14532 in k14528 in k14524 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14534(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14534,c,av);}
t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14560 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14562(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14562,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_14570,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14570(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2987 in k14560 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14570(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_14570,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_14580,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_word*)lf[155]+1);
/* core.scm:1686: g3003 */
t6=*((C_word*)lf[155]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[446];
av2[4]=lf[444];
((C_proc)(void*)(*((C_word*)t6+1)))(5,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);}}}

/* k14578 in for-each-loop2987 in k14560 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14580(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14580,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14570(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14599 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14601(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_14601,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14604,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1690: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k14602 in k14599 in k14394 in k14391 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14604(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14604,c,av);}
t2=C_eqp(t1,lf[420]);
if(C_truep(t2)){
t3=C_set_block_item(lf[149] /* chicken.compiler.support#unsafe */,0,C_SCHEME_TRUE);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:1693: chicken.base#warning */
t3=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[447];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k14651 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14653(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14653,c,av);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t1))){
t2=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=*((C_word*)lf[154]+1);
t3=C_i_check_list_2(t1,lf[99]);
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_14668,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_14668(t7,((C_word*)t0)[3],t1);}}

/* for-each-loop3026 in k14651 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14668(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_14668,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_14678,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1700: g3027 */
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+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);}}}

/* k14676 in for-each-loop3026 in k14651 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14678,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14668(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14699 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14701(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14701,c,av);}
a=C_alloc(6);
t2=*((C_word*)lf[452]+1);
t3=C_i_check_list_2(t1,lf[99]);
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_14709,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_14709(t7,((C_word*)t0)[2],t1);}

/* for-each-loop3044 in k14699 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14709(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_14709,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_14719,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1704: g3045 */
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+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);}}}

/* k14717 in for-each-loop3044 in k14699 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14719(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14719,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14709(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14758 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14760(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14760,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_14768,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14768(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3062 in k14758 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14768(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14768,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_14778,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_word*)lf[155]+1);
/* core.scm:1711: g3078 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[454];
((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);}}}

/* k14776 in for-each-loop3062 in k14758 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14778(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14778,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14768(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14800 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14802(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14802,c,av);}
t2=C_i_cadr(((C_word*)t0)[2]);
if(C_truep(C_i_numberp(t2))){
t3=C_mutate((C_word*)lf[39]+1 /* (set! chicken.compiler.core#inline-max-size ...) */,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:1718: chicken.base#warning */
t3=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[456];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k14822 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14824(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14824,c,av);}
t2=C_i_cadr(((C_word*)t0)[2]);
if(C_truep(C_i_numberp(t2))){
t3=C_mutate((C_word*)lf[40]+1 /* (set! chicken.compiler.core#unroll-limit ...) */,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:1726: chicken.base#warning */
t3=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[458];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k14848 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14850(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14850,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14858,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1734: globalize-all */
t3=((C_word*)((C_word*)t0)[3])[1];
f_13752(t3,t2,((C_word*)t0)[4]);}
else{
/* core.scm:1735: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[461];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k14856 in k14848 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14858(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14858,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_14866,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14866(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3092 in k14856 in k14848 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14866(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_14866,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_14876,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_word*)lf[155]+1);
/* core.scm:1733: g3108 */
t6=*((C_word*)lf[155]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[460];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t6+1)))(5,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);}}}

/* k14874 in for-each-loop3092 in k14856 in k14848 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14876(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14876,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14866(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14898 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14900(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14900,c,av);}
t2=C_mutate((C_word*)lf[44]+1 /* (set! chicken.compiler.core#import-libraries ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[406];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14917 in map-loop3117 in k14974 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14919(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_14919,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);
f_15009(2,av2);}}

/* k14921 in map-loop3117 in k14974 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14923(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14923,c,av);}
/* ##sys#string-append */
t2=*((C_word*)lf[248]+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[463];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k14928 in map-loop3117 in k14974 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14930(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_14930,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,t2,t3);
f_15009(2,av2);}}
else{
/* core.scm:1748: chicken.base#warning */
t2=*((C_word*)lf[135]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[464];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k14974 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14976(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_14976,c,av);}
a=C_alloc(10);
t2=C_i_check_list_2(t1,lf[10]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14982,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|4,a[1]=(C_word)f_14984,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_14984(t7,t3,t1);}

/* k14980 in k14974 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_14982(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14982,c,av);}
/* core.scm:1739: scheme#append */
t2=*((C_word*)lf[5]+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*)lf[44]+1);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop3117 in k14974 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_14984(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;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
C_save_and_reclaim_args((void *)trf_14984,3,t0,t1,t2);}
a=C_alloc(13);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15009,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));
if(C_truep(C_i_symbolp(t4))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14919,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14923,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1743: scheme#symbol->string */
t7=*((C_word*)lf[250]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14930,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_listp(t4))){
t6=C_eqp(C_fix(2),C_u_i_length(t4));
if(C_truep(t6)){
t7=C_i_car(t4);
if(C_truep(C_i_symbolp(t7))){
t8=C_i_cadr(t4);
t9=t5;
f_14930(t9,C_a_i_string(&a,1,t8));}
else{
t8=t5;
f_14930(t8,C_SCHEME_FALSE);}}
else{
t7=t5;
f_14930(t7,C_SCHEME_FALSE);}}
else{
t6=t5;
f_14930(t6,C_SCHEME_FALSE);}}}
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);}}}

/* k15007 in map-loop3117 in k14974 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15009(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_15009,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_14984(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k15039 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15041(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15041,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_15049,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15049(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3155 in k15039 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15049(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_15049,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_15059,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_word*)lf[155]+1);
/* core.scm:1758: g3171 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[184];
((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);}}}

/* k15057 in for-each-loop3155 in k15039 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15059,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15049(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15093 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15095(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15095,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_15103,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15103(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3186 in k15093 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15103(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_15103,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_15113,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_word*)lf[155]+1);
/* core.scm:1765: g3202 */
t6=*((C_word*)lf[155]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[454];
((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);}}}

/* k15111 in for-each-loop3186 in k15093 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15113,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15103(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15148 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15150(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15150,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[99]);
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_15158,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15158(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3211 in k15148 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15158(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_15158,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_15168,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_word*)lf[155]+1);
/* core.scm:1772: g3227 */
t6=*((C_word*)lf[155]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[446];
av2[4]=lf[227];
((C_proc)(void*)(*((C_word*)t6+1)))(5,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);}}}

/* k15166 in for-each-loop3211 in k15148 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15168(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15168,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15158(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15190(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_15190,3,t0,t1,t2);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15197,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_listp(t2))){
if(C_truep(C_fixnum_greater_or_equal_p(C_u_i_length(t2),C_fix(2)))){
t4=C_i_car(t2);
t5=t3;
f_15197(t5,C_i_not(C_i_symbolp(t4)));}
else{
t4=t3;
f_15197(t4,C_SCHEME_TRUE);}}
else{
t4=t3;
f_15197(t4,C_SCHEME_TRUE);}}

/* k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15197(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_15197,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15204,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1780: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+1);{
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);}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15207,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1781: ##sys#globalize */
t3=*((C_word*)lf[403]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[3]);
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k15202 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15204(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15204,c,av);}
/* core.scm:1780: chicken.base#warning */
t2=*((C_word*)lf[135]+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[468];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15207(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15207,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1782: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15210(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15210,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15216,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1783: local? */
t3=((C_word*)t0)[6];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15216(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_15216,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
/* core.scm:1784: note-local */
f_13773(((C_word*)t0)[3],C_u_i_car(((C_word*)t0)[4]));}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15226,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15232,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1785: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}}

/* a15225 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15226(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15226,c,av);}
/* core.scm:1785: chicken.compiler.scrutinizer#validate-type */
t2=*((C_word*)lf[469]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a15231 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15232(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;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_15232,c,av);}
a=C_alloc(8);
if(C_truep(t2)){
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15280,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_pairp(t2))){
t6=C_eqp(lf[474],C_u_i_car(t2));
t7=t5;
f_15280(t7,(C_truep(t6)?C_i_symbolp(C_i_cadr(t2)):C_SCHEME_FALSE));}
else{
t6=t5;
f_15280(t6,C_SCHEME_FALSE);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15312,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1808: chicken.syntax#strip-syntax */
t6=*((C_word*)lf[147]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k15240 in k15278 in a15231 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_15242(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_15242,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15245,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);
/* core.scm:1796: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[472];
av2[4]=lf[466];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k15243 in k15240 in k15278 in a15231 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_15245(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_15245,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15248,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])){
/* core.scm:1798: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[460];
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_15248(2,av2);}}}

/* k15246 in k15243 in k15240 in k15278 in a15231 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_15248(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_15248,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15251,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])){
/* core.scm:1800: chicken.compiler.support#mark-variable */
t3=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[471];
av2[4]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_15251(2,av2);}}}

/* k15249 in k15246 in k15243 in k15240 in k15278 in a15231 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_15251(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_15251,c,av);}
a=C_alloc(4);
t2=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15264,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t4=C_u_i_cdr(((C_word*)t0)[2]);
/* core.scm:1804: chicken.syntax#strip-syntax */
t5=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_u_i_cdr(t4);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k15262 in k15249 in k15246 in k15243 in k15240 in k15278 in a15231 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_15264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15264,c,av);}
/* core.scm:1802: chicken.compiler.scrutinizer#install-specializations */
t2=*((C_word*)lf[470]+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);}}

/* k15278 in a15231 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15280(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_15280,2,t0,t1);}
a=C_alloc(7);
t2=(C_truep(t1)?C_i_set_car(C_i_cdr(((C_word*)t0)[2]),((C_word*)t0)[3]):C_SCHEME_UNDEFINED);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15242,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1795: chicken.compiler.support#mark-variable */
t4=*((C_word*)lf[155]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[473];
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k15310 in a15231 in k15214 in k15208 in k15205 in k15195 in g3239 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15312,c,av);}
/* core.scm:1806: chicken.base#warning */
t2=*((C_word*)lf[135]+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[475];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* for-each-loop3238 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15354(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_15354,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_15364,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1775: g3239 */
t4=((C_word*)t0)[3];
f_15190(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);}}}

/* k15362 in for-each-loop3238 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15364,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15354(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* g3283 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15382(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;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_15382,3,t0,t1,t2);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15389,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);
if(C_truep(C_i_listp(t2))){
t4=C_i_car(t2);
t5=C_i_symbolp(t4);
t6=t3;
f_15389(t6,(C_truep(t5)?C_eqp(C_fix(2),C_i_length(t2)):C_SCHEME_FALSE));}
else{
t4=t3;
f_15389(t4,C_SCHEME_FALSE);}}

/* k15387 in g3283 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15389(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_15389,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15392,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);
/* core.scm:1814: ##sys#globalize */
t3=*((C_word*)lf[403]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[4]);
av2[3]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
/* core.scm:1823: chicken.base#warning */
t2=*((C_word*)lf[135]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[478];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k15390 in k15387 in g3283 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15392(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15392,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15395,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1815: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15393 in k15390 in k15387 in g3283 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15395(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15395,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15401,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1816: local? */
t3=((C_word*)t0)[6];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15399 in k15393 in k15390 in k15387 in g3283 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15401(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_15401,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
/* core.scm:1817: note-local */
f_13773(((C_word*)t0)[3],C_u_i_car(((C_word*)t0)[4]));}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15411,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15417,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1818: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}}

/* a15410 in k15399 in k15393 in k15390 in k15387 in g3283 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15411(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15411,c,av);}
/* core.scm:1818: chicken.compiler.scrutinizer#validate-type */
t2=*((C_word*)lf[469]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a15416 in k15399 in k15393 in k15390 in k15387 in g3283 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15417(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;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15417,c,av);}
t5=(C_truep(t2)?C_i_not(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
/* core.scm:1820: chicken.compiler.support#mark-variable */
t6=*((C_word*)lf[155]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[471];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
/* core.scm:1821: chicken.base#warning */
t6=*((C_word*)lf[135]+1);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[477];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}

/* for-each-loop3282 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15476(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_15476,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_15486,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1811: g3283 */
t4=((C_word*)t0)[3];
f_15382(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);}}}

/* k15484 in for-each-loop3282 in k13806 in k13803 in a13800 in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15486(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15486,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15476(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.core#register-static-extension in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15618(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_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_15618,c,av);}
a=C_alloc(3);
t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[81]+1));
t4=C_mutate((C_word*)lf[81]+1 /* (set! chicken.compiler.core#linked-static-extensions ...) */,t3);
t5=t1;{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* chicken.compiler.core#build-toplevel-procedure in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15625(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_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_15625,c,av);}
a=C_alloc(3);
t3=C_a_i_list1(&a,1,t2);
/* core.scm:1842: chicken.compiler.support#make-node */
t4=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=lf[485];
av2[3]=lf[486];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* chicken.compiler.core#foreign-stub-id in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15648(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15648,c,av);}
t3=C_i_check_structure_2(t2,lf[488],lf[489]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-return-type in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15657(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15657,c,av);}
t3=C_i_check_structure_2(t2,lf[488],lf[491]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-name in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15666(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15666,c,av);}
t3=C_i_check_structure_2(t2,lf[488],lf[493]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-argument-types in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15675(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15675,c,av);}
t3=C_i_check_structure_2(t2,lf[488],lf[495]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(4));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-argument-names in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15684(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15684,c,av);}
t3=C_i_check_structure_2(t2,lf[488],lf[497]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(5));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-body in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15693(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15693,c,av);}
t3=C_i_check_structure_2(t2,lf[488],lf[499]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(6));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-cps in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15702(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15702,c,av);}
t3=C_i_check_structure_2(t2,lf[488],lf[501]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(7));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-callback in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15711(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15711,c,av);}
t3=C_i_check_structure_2(t2,lf[488],lf[503]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(8));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15720(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){
C_word tmp;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_15720,8,t1,t2,t3,t4,t5,t6,t7,t8);}
a=C_alloc(9);
t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15807,a[2]=t3,a[3]=t5,a[4]=t6,a[5]=t8,a[6]=t7,a[7]=t1,a[8]=t4,tmp=(C_word)a,a+=9,tmp);
/* core.scm:1873: chicken.syntax#strip-syntax */
t10=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}

/* loop in map-loop3439 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15729(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_15729,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[510];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_listp(t2))){
t3=C_i_car(t2);
t4=C_eqp(t3,lf[328]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15758,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15762,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1868: loop */
t8=t6;
t9=C_u_i_cdr(t2);
t1=t8;
t2=t9;
goto loop;}
else{
t5=C_eqp(t3,lf[513]);
t6=(C_truep(t5)?t5:C_eqp(t3,lf[514]));
if(C_truep(t6)){
/* core.scm:1869: loop */
t8=t1;
t9=C_u_i_cdr(t2);
t1=t8;
t2=t9;
goto loop;}
else{
/* core.scm:1870: loop */
t8=t1;
t9=C_u_i_car(t2);
t1=t8;
t2=t9;
goto loop;}}}
else{
t3=C_i_symbolp(t2);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=(C_truep(t3)?t2:lf[510]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_stringp(t2);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?t2:lf[510]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}}

/* k15756 in loop in map-loop3439 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15758,c,av);}
/* core.scm:1868: scheme#string->symbol */
t2=*((C_word*)lf[507]+1);{
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);}}

/* k15760 in loop in map-loop3439 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15762,c,av);}
/* core.scm:1868: chicken.string#conc */
t2=*((C_word*)lf[511]+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[512];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15807(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_15807,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15810,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1874: chicken.syntax#strip-syntax */
t3=*((C_word*)lf[147]+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)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15810(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_15810,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[4])){
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)[4],lf[10]);
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|4,a[1]=(C_word)f_16023,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16023(t11,t2,((C_word*)t0)[4]);}
else{
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(t1,lf[10]);
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|4,a[1]=(C_word)f_16075,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16075(t11,t2,t1);}}

/* k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15813(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_15813,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_15816,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:1878: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[509];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15816(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_15816,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_15819,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* core.scm:1879: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15819(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_15819,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_15822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp);
/* core.scm:1880: chicken.compiler.support#estimate-foreign-result-size */
t3=*((C_word*)lf[508]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15822(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_15822,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_15825,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
if(C_truep(((C_word*)t0)[4])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16012,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1881: scheme#string->symbol */
t4=*((C_word*)lf[507]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_15825(2,av2);}}}

/* k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15825(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(60,c,2)))){
C_save_and_reclaim((void *)f_15825,c,av);}
a=C_alloc(60);
t2=C_a_i_record(&a,9,lf[488],((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);
t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[70]+1));
t4=C_mutate((C_word*)lf[70]+1 /* (set! chicken.compiler.core#foreign-lambda-stubs ...) */,t3);
t5=(C_truep(((C_word*)t0)[9])?C_s_a_i_plus(&a,2,((C_word*)t0)[10],C_fix(24)):((C_word*)t0)[10]);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15835,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[9],a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[13],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t0)[8])){
t7=C_a_i_list(&a,2,lf[392],((C_word*)t0)[2]);
t8=t6;
f_15835(t8,C_a_i_list(&a,1,t7));}
else{
t7=t6;
f_15835(t7,C_a_i_list(&a,2,lf[298],((C_word*)t0)[2]));}}

/* k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15835(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;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){
C_save_and_reclaim_args((void *)trf_15835,2,t0,t1);}
a=C_alloc(21);
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=C_i_check_list_2(((C_word*)t0)[2],lf[10]);
t7=C_i_check_list_2(((C_word*)t0)[3],lf[10]);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15856,a[2]=((C_word*)t0)[2],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]=t1,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,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_15942,a[2]=t4,a[3]=t10,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_15942(t12,t8,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* k15845 in map-loop3480 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15847,c,av);}
/* core.scm:1889: chicken.compiler.support#foreign-type-check */
t2=*((C_word*)lf[279]+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);}}

/* k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15856(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_15856,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15867,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(C_truep(((C_word*)t0)[4])?lf[504]:C_SCHEME_END_OF_LIST);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15879,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_zerop(((C_word*)t0)[5]))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15887,a[2]=t4,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t6=C_a_i_cons(&a,2,lf[505],t1);
/* core.scm:1894: scheme#append */
t7=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=((C_word*)t0)[7];
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15894,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1895: chicken.compiler.support#final-foreign-type */
t6=*((C_word*)lf[122]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k15865 in k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15867(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_15867,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[96],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k15877 in k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15879(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_15879,c,av);}
a=C_alloc(3);
t2=C_a_i_list(&a,1,t1);
/* core.scm:1890: ##sys#append */
t3=*((C_word*)lf[174]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k15885 in k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15887(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15887,c,av);}
/* core.scm:1894: chicken.compiler.support#foreign-type-convert-result */
t2=*((C_word*)lf[120]+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);}}

/* k15892 in k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15894(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_15894,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15897,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1896: chicken.compiler.support#bytes->words */
t3=*((C_word*)lf[338]+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)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15895 in k15892 in k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_15897(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(75,c,3)))){
C_save_and_reclaim((void *)f_15897,c,av);}
a=C_alloc(75);
t2=C_s_a_i_plus(&a,2,C_fix(2),t1);
t3=C_a_i_list(&a,2,lf[506],t2);
t4=C_a_i_list(&a,2,lf[146],t1);
t5=C_a_i_list(&a,3,lf[299],t3,t4);
t6=C_a_i_list(&a,2,((C_word*)t0)[2],t5);
t7=C_a_i_list(&a,1,t6);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15908,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15912,a[2]=t8,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15916,a[2]=t9,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t11=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[7]);
/* core.scm:1899: scheme#append */
t12=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t12;
av2[1]=t10;
av2[2]=((C_word*)t0)[8];
av2[3]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}

/* k15906 in k15895 in k15892 in k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_15908(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_15908,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,3,lf[170],((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,1,t2);
/* core.scm:1890: ##sys#append */
t4=*((C_word*)lf[174]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k15910 in k15895 in k15892 in k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_15912(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15912,c,av);}
/* core.scm:1898: chicken.compiler.support#foreign-type-convert-result */
t2=*((C_word*)lf[120]+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);}}

/* k15914 in k15895 in k15892 in k15854 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_15916(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15916,c,av);}
/* core.scm:1899: chicken.compiler.support#finish-foreign-result */
t2=*((C_word*)lf[121]+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);}}

/* map-loop3480 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_15942(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;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_15942,4,t0,t1,t2,t3);}
a=C_alloc(11);
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|6,a[1]=(C_word)f_15971,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,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_15847,a[2]=t6,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1889: chicken.compiler.support#foreign-type-convert-argument */
t10=*((C_word*)lf[280]+1);{
C_word av2[4];
av2[0]=t10;
av2[1]=t9;
av2[2]=t7;
av2[3]=t8;
((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k15969 in map-loop3480 in k15833 in k15823 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_15971(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_15971,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_15942(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k16010 in k15820 in k15817 in k15814 in k15811 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16012(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16012,c,av);}
/* core.scm:1881: chicken.compiler.support#set-real-name! */
t2=*((C_word*)lf[117]+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);}}

/* map-loop3413 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16023(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_16023,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_16048,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);
/* core.scm:1876: g3419 */
t4=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(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);}}}

/* k16046 in map-loop3413 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16048(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16048,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_16023(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k16065 in map-loop3439 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16067(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16067,c,av);}
/* core.scm:1877: chicken.base#gensym */
t2=*((C_word*)lf[109]+1);{
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);}}

/* map-loop3439 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16075(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;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_16075,3,t0,t1,t2);}
a=C_alloc(14);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16100,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16067,a[2]=t3,tmp=(C_word)a,a+=3,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|2,a[1]=(C_word)f_15729,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_15729(t9,t5,t4);}
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);}}}

/* k16098 in map-loop3439 in k15808 in k15805 in chicken.compiler.core#create-foreign-stub in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16100(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16100,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_16075(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.core#expand-foreign-lambda in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16109(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;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,8)))){
C_save_and_reclaim_args((void *)trf_16109,3,t1,t2,t3);}
a=C_alloc(8);
t4=C_i_caddr(t2);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16116,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_symbolp(t4))){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16135,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1904: chicken.syntax#strip-syntax */
t7=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
if(C_truep(C_i_stringp(t4))){
/* core.scm:1911: create-foreign-stub */
f_15720(t1,C_i_cadr(t2),t4,C_i_cdddr(t2),C_SCHEME_FALSE,C_SCHEME_FALSE,t3,t3);}
else{
/* core.scm:1906: chicken.compiler.support#quit-compiling */
t6=*((C_word*)lf[125]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[515];
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}

/* k16114 in chicken.compiler.core#expand-foreign-lambda in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_16116,c,av);}
/* core.scm:1911: create-foreign-stub */
f_15720(((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[3]),t1,C_i_cdddr(((C_word*)t0)[3]),C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[4]);}

/* k16133 in chicken.compiler.core#expand-foreign-lambda in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16135(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16135,c,av);}
/* core.scm:1904: scheme#symbol->string */
t2=*((C_word*)lf[250]+1);{
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);}}

/* chicken.compiler.core#expand-foreign-lambda* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16146(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_16146,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_cadr(t2);
t5=C_i_caddr(t2);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16156,a[2]=t5,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* core.scm:1916: chicken.string#string-intersperse */
t7=*((C_word*)lf[315]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_cdddr(t2);
av2[3]=lf[516];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k16154 in chicken.compiler.core#expand-foreign-lambda* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16156(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_16156,c,av);}
a=C_alloc(19);
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=C_i_check_list_2(((C_word*)t0)[2],lf[10]);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16170,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
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|4,a[1]=(C_word)f_16221,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16221(t11,t7,((C_word*)t0)[2]);}

/* k16168 in k16154 in chicken.compiler.core#expand-foreign-lambda* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16170(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_16170,c,av);}
a=C_alloc(14);
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=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t4,a[8]=t5,tmp=(C_word)a,a+=9,tmp);
/* core.scm:1919: chicken.syntax#strip-syntax */
t7=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k16174 in k16168 in k16154 in chicken.compiler.core#expand-foreign-lambda* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16176(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_16176,c,av);}
a=C_alloc(14);
t2=C_i_check_list_2(t1,lf[10]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16182,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);
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_16187,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_16187(t7,t3,t1);}

/* k16180 in k16174 in k16168 in k16154 in chicken.compiler.core#expand-foreign-lambda* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16182(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_16182,c,av);}
/* core.scm:1920: create-foreign-stub */
f_15720(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[6]);}

/* map-loop3570 in k16174 in k16168 in k16154 in chicken.compiler.core#expand-foreign-lambda* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16187(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16187,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_cadr(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
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);}}}

/* map-loop3542 in k16154 in chicken.compiler.core#expand-foreign-lambda* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16221(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16221,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
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);}}}

/* k16261 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_16263(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_16263,2,t0,t1);}
a=C_alloc(6);
t2=(C_truep(t1)?C_i_cadr(((C_word*)t0)[2]):lf[313]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16269,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
t4=(C_truep(t1)?C_i_caddr(((C_word*)t0)[2]):C_i_cadr(((C_word*)t0)[2]));
/* core.scm:1926: chicken.syntax#strip-syntax */
t5=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k16267 in k16261 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_16269(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_16269,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16272,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(C_truep(((C_word*)t0)[4])?C_i_cdddr(((C_word*)t0)[5]):C_i_cddr(((C_word*)t0)[5]));
/* core.scm:1927: chicken.string#string-intersperse */
t4=*((C_word*)lf[315]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=t3;
av2[3]=lf[316];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k16270 in k16267 in k16261 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_16272(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_16272,c,av);}
a=C_alloc(18);
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=C_i_check_list_2(((C_word*)t0)[2],lf[10]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16286,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
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|4,a[1]=(C_word)f_16337,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16337(t11,t7,((C_word*)t0)[2]);}

/* k16284 in k16270 in k16267 in k16261 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_16286(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_16286,c,av);}
a=C_alloc(13);
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=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16292,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
/* core.scm:1930: chicken.syntax#strip-syntax */
t7=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k16290 in k16284 in k16270 in k16267 in k16261 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_16292(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_16292,c,av);}
a=C_alloc(13);
t2=C_i_check_list_2(t1,lf[10]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16298,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);
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_16303,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_16303(t7,t3,t1);}

/* k16296 in k16290 in k16284 in k16270 in k16267 in k16261 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_16298(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_16298,c,av);}
/* core.scm:1931: create-foreign-stub */
f_15720(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],t1,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_TRUE);}

/* map-loop3632 in k16290 in k16284 in k16270 in k16267 in k16261 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_fcall f_16303(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16303,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_cadr(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
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);}}}

/* map-loop3604 in k16270 in k16267 in k16261 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_16337(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16337,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
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);}}}

/* mapupdate in k7925 */
static void C_fcall f_16415(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_16415,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_16421,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_16421(t6,t1,t2);}

/* loop in mapupdate in k7925 */
static void C_fcall f_16421(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16421,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_16431,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1940: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_16440(t4,t3,C_u_i_car(t2));}
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);}}}

/* k16429 in loop in mapupdate in k7925 */
static void C_ccall f_16431(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16431,c,av);}
/* core.scm:1941: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16421(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* walk in k7925 */
static void C_fcall f_16440(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;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_16440,3,t0,t1,t2);}
a=C_alloc(7);
t3=C_i_pairp(t2);
t4=C_i_not(t3);
if(C_truep(t4)){
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_car(t2);
if(C_truep(C_i_symbolp(t5))){
t6=C_u_i_car(t2);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16457,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t6,tmp=(C_word)a,a+=7,tmp);
/* core.scm:1946: chicken.internal#hash-table-ref */
t8=*((C_word*)lf[112]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t7;
av2[2]=*((C_word*)lf[111]+1);
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}
else{
/* core.scm:1950: mapupdate */
t6=((C_word*)((C_word*)t0)[2])[1];
f_16415(t6,t1,t2);}}}

/* k16455 in walk in k7925 */
static void C_ccall f_16457(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_16457,c,av);}
a=C_alloc(11);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16463,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_assq(((C_word*)t0)[4],t2))){
/* core.scm:1949: mapupdate */
t4=((C_word*)((C_word*)t0)[2])[1];
f_16415(t4,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
else{
t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]);
t5=C_a_i_cons(&a,2,t4,t2);
/* core.scm:1948: chicken.internal#hash-table-set! */
t6=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=*((C_word*)lf[111]+1);
av2[3]=((C_word*)t0)[6];
av2[4]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}

/* k16461 in k16455 in walk in k7925 */
static void C_ccall f_16463(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16463,c,av);}
/* core.scm:1949: mapupdate */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16415(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16494(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 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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(41,c,6)))){
C_save_and_reclaim((void *)f_16494,c,av);}
a=C_alloc(41);
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_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16497,a[2]=t8,tmp=(C_word)a,a+=3,tmp));
t18=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16548,tmp=(C_word)a,a+=2,tmp));
t19=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16572,a[2]=t8,a[3]=t6,a[4]=t4,a[5]=t12,a[6]=t10,tmp=(C_word)a,a+=7,tmp));
t20=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17087,a[2]=t8,a[3]=t14,tmp=(C_word)a,a+=4,tmp));
t21=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17233,a[2]=t14,tmp=(C_word)a,a+=3,tmp));
t22=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17249,a[2]=t6,a[3]=t8,a[4]=t16,tmp=(C_word)a,a+=5,tmp));
t23=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17351,a[2]=t16,tmp=(C_word)a,a+=3,tmp));
/* core.scm:2083: walk */
t24=((C_word*)t8)[1];
f_16572(t24,t1,t2,*((C_word*)lf[104]+1));}

/* cps-lambda in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16497(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_16497,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(8);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16501,a[2]=t5,a[3]=t1,a[4]=t3,a[5]=t2,a[6]=t4,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
/* core.scm:1959: chicken.base#gensym */
t7=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[520];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k16499 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16501(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_16501,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16508,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
t4=C_a_i_list4(&a,4,((C_word*)t0)[5],C_SCHEME_TRUE,t3,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16520,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t6=C_i_car(((C_word*)t0)[6]);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16526,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* core.scm:1962: walk */
t8=((C_word*)((C_word*)t0)[7])[1];
f_16572(t8,t5,t6,t7);}

/* k16506 in k16499 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16508,c,av);}
/* core.scm:1960: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k16518 in k16499 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16520(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_16520,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:1960: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[96];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* a16525 in k16499 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16526(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_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_16526,c,av);}
a=C_alloc(8);
t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16542,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1964: chicken.compiler.support#varnode */
t5=*((C_word*)lf[519]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k16540 in a16525 in k16499 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16542(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_16542,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
/* core.scm:1964: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[518];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* node-for-var? in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16548(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_16548,3,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16570,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1967: chicken.compiler.support#node-class */
t5=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k16564 in k16568 in node-for-var? in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16566(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16566,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_eqp(C_i_car(t1),((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k16568 in node-for-var? in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16570(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_16570,c,av);}
a=C_alloc(4);
t2=C_eqp(t1,lf[521]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1968: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16572(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_16572,4,t0,t1,t2,t3);}
a=C_alloc(10);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16576,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1971: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[525]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16576(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_16576,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16579,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:1972: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16579(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_16579,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_16582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* core.scm:1973: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16582(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_16582,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_16585,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:1974: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16585(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_16585,c,av);}
a=C_alloc(14);
t2=C_eqp(t1,lf[521]);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16594,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
if(C_truep(t2)){
t4=t3;
f_16594(t4,t2);}
else{
t4=C_eqp(t1,lf[118]);
if(C_truep(t4)){
t5=t3;
f_16594(t5,t4);}
else{
t5=C_eqp(t1,lf[393]);
if(C_truep(t5)){
t6=t3;
f_16594(t6,t5);}
else{
t6=C_eqp(t1,lf[392]);
t7=t3;
f_16594(t7,(C_truep(t6)?t6:C_eqp(t1,lf[160])));}}}}

/* k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16594(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_16594,2,t0,t1);}
a=C_alloc(11);
if(C_truep(t1)){
/* core.scm:1976: k */
t2=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}
else{
t2=C_eqp(((C_word*)t0)[5],lf[143]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16606,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1977: chicken.base#gensym */
t4=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[520];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_eqp(((C_word*)t0)[5],lf[171]);
if(C_truep(t3)){
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_16715,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp));
t7=((C_word*)t5)[1];
f_16715(t7,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[6]);}
else{
t4=C_eqp(((C_word*)t0)[5],lf[485]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[5],lf[96]));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16802,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
/* core.scm:372: chicken.base#gensym */
t7=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t6=C_eqp(((C_word*)t0)[5],lf[282]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16815,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2003: chicken.base#gensym */
t8=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[524];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t7=C_eqp(((C_word*)t0)[5],lf[363]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16886,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp);
/* core.scm:372: chicken.base#gensym */
t9=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=C_eqp(((C_word*)t0)[5],lf[298]);
t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16916,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp);
if(C_truep(t8)){
t10=t9;
f_16916(t10,t8);}
else{
t10=C_eqp(((C_word*)t0)[5],lf[299]);
if(C_truep(t10)){
t11=t9;
f_16916(t11,t10);}
else{
t11=C_eqp(((C_word*)t0)[5],lf[119]);
if(C_truep(t11)){
t12=t9;
f_16916(t12,t11);}
else{
t12=C_eqp(((C_word*)t0)[5],lf[278]);
if(C_truep(t12)){
t13=t9;
f_16916(t13,t12);}
else{
t13=C_eqp(((C_word*)t0)[5],lf[123]);
if(C_truep(t13)){
t14=t9;
f_16916(t14,t13);}
else{
t14=C_eqp(((C_word*)t0)[5],lf[281]);
t15=t9;
f_16916(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[5],lf[186])));}}}}}}}}}}}}

/* k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16606(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_16606,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16609,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1978: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[381];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16609(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_16609,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16610,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16641,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16700,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* core.scm:372: chicken.base#gensym */
t6=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k1 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16610(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_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_16610,c,av);}
a=C_alloc(8);
t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16626,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* core.scm:1979: chicken.compiler.support#varnode */
t5=*((C_word*)lf[519]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k16624 in k1 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16626(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_16626,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
/* core.scm:1979: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[518];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16639 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16641(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_16641,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16645,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_i_car(((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16651,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1985: walk */
t5=((C_word*)((C_word*)t0)[5])[1];
f_16572(t5,t2,t3,t4);}

/* k16643 in k16639 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16645(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_16645,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:1980: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* a16650 in k16639 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16651(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_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_16651,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16663,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
/* core.scm:1989: walk */
t4=((C_word*)((C_word*)t0)[2])[1];
f_16572(t4,t3,C_i_cadr(((C_word*)t0)[3]),((C_word*)t0)[4]);}

/* k16661 in a16650 in k16639 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_16663(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_16663,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16667,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:1990: walk */
t3=((C_word*)((C_word*)t0)[4])[1];
f_16572(t3,t2,C_i_caddr(((C_word*)t0)[5]),((C_word*)t0)[6]);}

/* k16665 in k16661 in a16650 in k16639 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_16667(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_16667,c,av);}
a=C_alloc(9);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
/* core.scm:1987: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[143];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16685 in k16698 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16687(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_16687,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:1983: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[96];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16689 in k16698 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16691(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16691,c,av);}
/* core.scm:1984: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k16698 in k16607 in k16604 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16700(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_16700,c,av);}
a=C_alloc(23);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16687,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16691,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1984: chicken.compiler.support#varnode */
t6=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* loop in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16715(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_16715,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
/* core.scm:1994: walk */
t4=((C_word*)((C_word*)t0)[2])[1];
f_16572(t4,t1,C_i_car(t3),((C_word*)t0)[3]);}
else{
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16738,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1995: walk */
t6=((C_word*)((C_word*)t0)[2])[1];
f_16572(t6,t1,t4,t5);}}

/* a16737 in loop in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16738(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_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_16738,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16745,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* core.scm:1997: node-for-var? */
f_16548(t3,t2,C_i_car(((C_word*)t0)[3]));}

/* k16743 in a16737 in loop in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16745(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_16745,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
/* core.scm:1998: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16715(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_i_cdr(((C_word*)t0)[5]));}
else{
t2=C_u_i_car(((C_word*)t0)[4]);
t3=C_a_i_list1(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16769,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2001: loop */
t5=((C_word*)((C_word*)t0)[2])[1];
f_16715(t5,t4,C_u_i_cdr(((C_word*)t0)[4]),C_i_cdr(((C_word*)t0)[5]));}}

/* k16767 in k16743 in a16737 in loop in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16769(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_16769,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:1999: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16800 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16802(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_16802,c,av);}
/* core.scm:2002: cps-lambda */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16497(t2,((C_word*)t0)[3],t1,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k16813 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16815(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_16815,c,av);}
a=C_alloc(11);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE);
t5=C_i_car(((C_word*)t0)[2]);
t6=C_a_i_list2(&a,2,t5,t4);
t7=C_i_car(((C_word*)t0)[3]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16830,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t6,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2006: walk */
t9=((C_word*)((C_word*)t0)[5])[1];
f_16572(t9,((C_word*)t0)[6],t7,t8);}

/* a16829 in k16813 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16830(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 t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_16830,c,av);}
a=C_alloc(12);
t3=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16846,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
t5=C_a_i_list1(&a,1,t2);
/* core.scm:2009: chicken.compiler.support#make-node */
t6=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=lf[282];
av2[3]=((C_word*)t0)[4];
av2[4]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k16844 in a16829 in k16813 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16846(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_16846,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16850,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|3,a[1]=(C_word)f_16854,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2010: chicken.compiler.support#varnode */
t4=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k16848 in k16844 in a16829 in k16813 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16850(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_16850,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2008: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k16852 in k16844 in a16829 in k16813 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16854,c,av);}
/* core.scm:2010: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k16884 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16886(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_16886,c,av);}
a=C_alloc(7);
t2=C_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16892,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* core.scm:2014: chicken.compiler.support#register-foreign-callback-stub! */
t4=*((C_word*)lf[526]+1);{
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_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k16890 in k16884 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16892(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_16892,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16907,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);
/* core.scm:2015: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+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);}}

/* k16901 in k16905 in k16890 in k16884 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_16903,c,av);}
/* core.scm:2015: cps-lambda */
t2=((C_word*)((C_word*)t0)[2])[1];
f_16497(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);}

/* k16905 in k16890 in k16884 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_16907(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_16907,c,av);}
a=C_alloc(7);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16903,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2015: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[525]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_16916(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
C_save_and_reclaim_args((void *)trf_16916,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
/* core.scm:2018: walk-inline-call */
t2=((C_word*)((C_word*)t0)[2])[1];
f_17233(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
else{
t2=C_eqp(((C_word*)t0)[8],lf[518]);
if(C_truep(t2)){
/* core.scm:2019: walk-call */
t3=((C_word*)((C_word*)t0)[9])[1];
f_17087(t3,((C_word*)t0)[3],C_i_car(((C_word*)t0)[6]),C_u_i_cdr(((C_word*)t0)[6]),((C_word*)t0)[5],((C_word*)t0)[7]);}
else{
t3=C_eqp(((C_word*)t0)[8],lf[159]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[5]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17168,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2044: chicken.base#gensym */
t6=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[520];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=C_eqp(((C_word*)t0)[8],lf[151]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[8],lf[527]));
if(C_truep(t5)){
/* core.scm:2023: walk */
t6=((C_word*)((C_word*)t0)[10])[1];
f_16572(t6,((C_word*)t0)[3],C_i_car(((C_word*)t0)[6]),((C_word*)t0)[7]);}
else{
t6=C_eqp(((C_word*)t0)[8],lf[152]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7092,tmp=(C_word)a,a+=2,tmp);
t8=(
  f_7092(((C_word*)t0)[6])
);
/* core.scm:2026: walk */
t9=((C_word*)((C_word*)t0)[10])[1];
f_16572(t9,((C_word*)t0)[3],t8,((C_word*)t0)[7]);}
else{
/* core.scm:2027: chicken.compiler.support#bomb */
t7=*((C_word*)lf[528]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[529];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}}}}

/* walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17087(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_17087,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(9);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17091,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t3,a[8]=t5,tmp=(C_word)a,a+=9,tmp);
/* core.scm:2030: chicken.base#gensym */
t7=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[520];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17091(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_17091,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17094,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:2031: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[381];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17094(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_17094,c,av);}
a=C_alloc(18);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17109,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17158,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
/* core.scm:372: chicken.base#gensym */
t5=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k17107 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17109(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_17109,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17113,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|5,a[1]=(C_word)f_17115,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
/* core.scm:2036: walk-arguments */
t4=((C_word*)((C_word*)t0)[8])[1];
f_17249(t4,t2,((C_word*)t0)[9],t3);}

/* k17111 in k17107 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17113(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17113,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2032: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* a17114 in k17107 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17115(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_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17115,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17121,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2039: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_16572(t4,t1,((C_word*)t0)[5],t3);}

/* a17120 in a17114 in k17107 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17121(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_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_17121,c,av);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17129,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17133,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2041: chicken.compiler.support#varnode */
t5=*((C_word*)lf[519]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k17127 in a17120 in a17114 in k17107 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17129,c,av);}
/* core.scm:2041: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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[518];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k17131 in a17120 in a17114 in k17107 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_17133,c,av);}
a=C_alloc(6);
/* core.scm:2041: cons* */
f_6750(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,t1,((C_word*)t0)[4]));}

/* k17143 in k17156 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17145(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17145,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2034: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[96];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17147 in k17156 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17149(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17149,c,av);}
/* core.scm:2035: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k17156 in k17092 in k17089 in walk-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17158(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_17158,c,av);}
a=C_alloc(23);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17145,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17149,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2035: chicken.compiler.support#varnode */
t6=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k17166 in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17168(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_17168,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17171,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* core.scm:2045: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[381];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k17169 in k17166 in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17171(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_17171,c,av);}
a=C_alloc(14);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17186,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17227,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* core.scm:372: chicken.base#gensym */
t5=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k17184 in k17169 in k17166 in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17186(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_17186,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17190,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_a_i_list1(&a,1,((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17202,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2051: chicken.compiler.support#varnode */
t5=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k17188 in k17184 in k17169 in k17166 in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_17190(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17190,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2046: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17200 in k17184 in k17169 in k17166 in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_17202(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17202,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2050: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[159];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17212 in k17225 in k17169 in k17166 in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_17214(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17214,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2048: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[96];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17216 in k17225 in k17169 in k17166 in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_17218(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17218,c,av);}
/* core.scm:2049: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k17225 in k17169 in k17166 in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17227(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_17227,c,av);}
a=C_alloc(23);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17214,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17218,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2049: chicken.compiler.support#varnode */
t6=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17233(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_17233,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17239,a[2]=t5,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2054: walk-arguments */
t7=((C_word*)((C_word*)t0)[2])[1];
f_17249(t7,t1,t4,t6);}

/* a17238 in walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17239(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_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_17239,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17247,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2057: chicken.compiler.support#make-node */
t4=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k17245 in a17238 in walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17247,c,av);}
/* core.scm:2057: k */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17249(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;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_17249,4,t0,t1,t2,t3);}
a=C_alloc(9);
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|6,a[1]=(C_word)f_17255,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp));
t7=((C_word*)t5)[1];
f_17255(t7,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17255(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_17255,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t2))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17269,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2061: scheme#reverse */
t5=*((C_word*)lf[229]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17275,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2062: atomic? */
t5=((C_word*)((C_word*)t0)[6])[1];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
f_17351(3,av2);}}}

/* k17267 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17269,c,av);}
/* core.scm:2061: wk */
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k17273 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17275(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_17275,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_u_i_car(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
/* core.scm:2063: loop */
t5=((C_word*)((C_word*)t0)[4])[1];
f_17255(t5,((C_word*)t0)[5],t2,t4);}
else{
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17289,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2065: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[510];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k17287 in k17273 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17289(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_17289,c,av);}
a=C_alloc(7);
t2=C_u_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17296,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2066: walk */
t4=((C_word*)((C_word*)t0)[6])[1];
f_16572(t4,((C_word*)t0)[7],t2,t3);}

/* a17295 in k17287 in k17273 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17296(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_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_17296,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17303,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=t2,tmp=(C_word)a,a+=8,tmp);
/* core.scm:2068: node-for-var? */
f_16548(t3,t2,((C_word*)t0)[5]);}

/* k17301 in a17295 in k17287 in k17273 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17303(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_17303,c,av);}
a=C_alloc(14);
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17318,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2069: chicken.compiler.support#varnode */
t4=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t2=C_a_i_list1(&a,1,((C_word*)t0)[6]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17333,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_i_cdr(((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17345,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2073: chicken.compiler.support#varnode */
t6=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k17316 in k17301 in a17295 in k17287 in k17273 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17318(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17318,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* core.scm:2069: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_17255(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k17331 in k17301 in a17295 in k17287 in k17273 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17333(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17333,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2070: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k17343 in k17301 in a17295 in k17287 in k17273 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17345(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17345,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
/* core.scm:2072: loop */
t3=((C_word*)((C_word*)t0)[3])[1];
f_17255(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* atomic? in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17351(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_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_17351,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17355,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2076: chicken.compiler.support#node-class */
t4=*((C_word*)lf[97]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17353 in atomic? in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17355(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17355,c,av);}
a=C_alloc(4);
t2=C_u_i_memq(t1,lf[530]);
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{
if(C_truep((C_truep(C_eqp(t1,lf[299]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[119]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[278]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[123]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[281]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17372,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2081: chicken.compiler.support#node-subexpressions */
t4=*((C_word*)lf[525]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* k17370 in k17353 in atomic? in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17372(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17372,c,av);}
/* core.scm:2081: every */
f_6686(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t1);}

/* chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17377(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 t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_17377,c,av);}
a=C_alloc(4);
t3=C_i_fixnum_max(lf[61],C_fix(1));
t4=C_fixnum_times(t3,C_fix(3));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17384,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2091: scheme#make-vector */
t6=*((C_word*)lf[90]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17384(C_word c,C_word *av){
C_word tmp;
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,7)))){
C_save_and_reclaim((void *)f_17384,c,av);}
a=C_alloc(47);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17386,tmp=(C_word)a,a+=2,tmp));
t17=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17393,a[2]=t1,a[3]=t15,a[4]=t7,a[5]=t5,a[6]=t13,a[7]=t3,tmp=(C_word)a,a+=8,tmp));
t18=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17998,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t19=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18035,a[2]=t1,tmp=(C_word)a,a+=3,tmp));
t20=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18048,a[2]=t1,tmp=(C_word)a,a+=3,tmp));
t21=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18061,a[2]=t1,a[3]=t9,a[4]=t11,tmp=(C_word)a,a+=5,tmp));
t22=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18371,a[2]=t1,tmp=(C_word)a,a+=3,tmp));
t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18392,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* core.scm:2291: chicken.compiler.support#debugging */
t24=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t24;
av2[1]=t23;
av2[2]=lf[595];
av2[3]=lf[597];
((C_proc)(void*)(*((C_word*)t24+1)))(4,av2);}}

/* grow in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_17386(C_word *a,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;{}
t2=C_s_a_i_plus(&a,2,lf[60],t1);
t3=C_mutate(&lf[60] /* (set! chicken.compiler.core#current-program-size ...) */,t2);
return(t3);}

/* walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17393(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
C_save_and_reclaim_args((void *)trf_17393,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(14);
t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_17397,a[2]=t1,a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=t2,a[8]=((C_word*)t0)[4],a[9]=t5,a[10]=t6,a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],a[13]=((C_word*)t0)[7],tmp=(C_word)a,a+=14,tmp);
/* core.scm:2099: chicken.compiler.support#node-subexpressions */
t8=*((C_word*)lf[525]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}

/* k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17397(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_17397,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_17400,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
/* core.scm:2100: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17400(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_17400,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_17403,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],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);
/* core.scm:2101: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17403(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(46,c,2)))){
C_save_and_reclaim((void *)f_17403,c,av);}
a=C_alloc(46);
t2=C_s_a_i_plus(&a,2,lf[60],C_fix(1));
t3=C_mutate(&lf[60] /* (set! chicken.compiler.core#current-program-size ...) */,t2);
t4=C_eqp(t1,lf[118]);
t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_17415,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],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],tmp=(C_word)a,a+=17,tmp);
if(C_truep(t4)){
t6=t5;
f_17415(t6,t4);}
else{
t6=C_eqp(t1,lf[393]);
if(C_truep(t6)){
t7=t5;
f_17415(t7,t6);}
else{
t7=C_eqp(t1,lf[160]);
t8=t5;
f_17415(t8,(C_truep(t7)?t7:C_eqp(t1,lf[556])));}}}

/* k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17415(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(46,0,6)))){
C_save_and_reclaim_args((void *)trf_17415,2,t0,t1);}
a=C_alloc(46);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[3],lf[521]);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],lf[532]));
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[4]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17430,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2109: ref */
t6=((C_word*)((C_word*)t0)[8])[1];
f_18371(t6,t5,t4,((C_word*)t0)[9]);}
else{
t4=C_eqp(((C_word*)t0)[3],lf[159]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[3],lf[536]));
if(C_truep(t5)){
t6=C_s_a_i_plus(&a,2,lf[60],C_fix(1));
t7=C_mutate(&lf[60] /* (set! chicken.compiler.core#current-program-size ...) */,t6);
/* core.scm:2119: walkeach */
t8=((C_word*)((C_word*)t0)[10])[1];
f_17998(t8,((C_word*)t0)[2],((C_word*)t0)[11],((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[12],((C_word*)t0)[13]);}
else{
t6=C_eqp(((C_word*)t0)[3],lf[518]);
if(C_truep(t6)){
t7=C_s_a_i_plus(&a,2,lf[60],C_fix(1));
t8=C_mutate(&lf[60] /* (set! chicken.compiler.core#current-program-size ...) */,t7);
t9=C_i_car(((C_word*)t0)[11]);
t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17491,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],tmp=(C_word)a,a+=10,tmp);
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17524,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[9],a[4]=t10,a[5]=((C_word*)t0)[7],a[6]=t9,tmp=(C_word)a,a+=7,tmp);
/* core.scm:2124: chicken.compiler.support#node-class */
t12=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t12;
av2[1]=t11;
av2[2]=t9;
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
else{
t7=C_eqp(((C_word*)t0)[3],lf[171]);
t8=(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[170]));
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17536,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[15],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
/* core.scm:2131: scheme#append */
t10=*((C_word*)lf[5]+1);{
C_word av2[4];
av2[0]=t10;
av2[1]=t9;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}
else{
t9=C_eqp(((C_word*)t0)[3],lf[485]);
if(C_truep(t9)){
t10=(
/* core.scm:2143: grow */
  f_17386(C_a_i(&a,29),C_fix(1))
);
t11=C_i_car(((C_word*)t0)[4]);
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17599,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp);
/* core.scm:2144: ##sys#decompose-lambda-list */
t13=*((C_word*)lf[189]+1);{
C_word av2[4];
av2[0]=t13;
av2[1]=((C_word*)t0)[2];
av2[2]=t11;
av2[3]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}
else{
t10=C_eqp(((C_word*)t0)[3],lf[96]);
t11=(C_truep(t10)?t10:C_eqp(((C_word*)t0)[3],lf[540]));
if(C_truep(t11)){
t12=(
/* core.scm:2156: grow */
  f_17386(C_a_i(&a,29),C_fix(1))
);
t13=C_i_caddr(((C_word*)t0)[4]);
t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17668,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[12],tmp=(C_word)a,a+=9,tmp);
/* core.scm:2157: ##sys#decompose-lambda-list */
t15=*((C_word*)lf[189]+1);{
C_word av2[4];
av2[0]=t15;
av2[1]=((C_word*)t0)[2];
av2[2]=t13;
av2[3]=t14;
((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}
else{
t12=C_eqp(((C_word*)t0)[3],lf[282]);
t13=(C_truep(t12)?t12:C_eqp(((C_word*)t0)[3],lf[175]));
if(C_truep(t13)){
t14=C_i_car(((C_word*)t0)[4]);
t15=C_i_car(((C_word*)t0)[11]);
t16=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17806,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[7],a[10]=t14,a[11]=((C_word*)t0)[15],a[12]=t15,tmp=(C_word)a,a+=13,tmp);
t17=(C_truep(*((C_word*)lf[68]+1))?C_i_not(*((C_word*)lf[53]+1)):C_SCHEME_FALSE);
if(C_truep(t17)){
t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17863,a[2]=t16,a[3]=t14,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2187: chicken.compiler.support#variable-mark */
t19=*((C_word*)lf[183]+1);{
C_word av2[4];
av2[0]=t19;
av2[1]=t18;
av2[2]=t14;
av2[3]=lf[555];
((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}}
else{
t18=t16;{
C_word av2[2];
av2[0]=t18;
av2[1]=C_SCHEME_UNDEFINED;
f_17806(2,av2);}}}
else{
t14=C_eqp(((C_word*)t0)[3],lf[392]);
t15=(C_truep(t14)?t14:C_eqp(((C_word*)t0)[3],lf[298]));
if(C_truep(t15)){
t16=C_i_car(((C_word*)t0)[4]);
t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17903,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[13],tmp=(C_word)a,a+=9,tmp);
t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17909,a[2]=t17,a[3]=t16,a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp);
if(C_truep(*((C_word*)lf[68]+1))){
if(C_truep(((C_word*)t0)[13])){
if(C_truep(C_i_symbolp(t16))){
/* core.scm:2206: chicken.compiler.support#get-real-name */
t19=*((C_word*)lf[127]+1);{
C_word av2[3];
av2[0]=t19;
av2[1]=t18;
av2[2]=t16;
((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}
else{
t19=t18;{
C_word av2[2];
av2[0]=t19;
av2[1]=C_SCHEME_FALSE;
f_17909(2,av2);}}}
else{
t19=t18;{
C_word av2[2];
av2[0]=t19;
av2[1]=C_SCHEME_FALSE;
f_17909(2,av2);}}}
else{
t19=t18;{
C_word av2[2];
av2[0]=t19;
av2[1]=C_SCHEME_FALSE;
f_17909(2,av2);}}}
else{
/* core.scm:2210: walkeach */
t16=((C_word*)((C_word*)t0)[10])[1];
f_17998(t16,((C_word*)t0)[2],((C_word*)t0)[11],((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[12],((C_word*)t0)[13]);}}}}}}}}}}

/* k17428 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17430(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,5)))){
C_save_and_reclaim((void *)f_17430,c,av);}
a=C_alloc(34);
if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[3]))){
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_s_a_i_plus(&a,2,lf[60],C_fix(1));
t3=C_mutate(&lf[60] /* (set! chicken.compiler.core#current-program-size ...) */,t2);
if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[5]))){
/* core.scm:2113: chicken.compiler.support#db-put! */
t4=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[534];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17461,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2114: chicken.compiler.support#db-get */
t5=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[94];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}}

/* k17459 in k17428 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17461(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_17461,c,av);}
if(C_truep(C_i_not(t1))){
/* core.scm:2115: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+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]=((C_word*)t0)[4];
av2[4]=lf[94];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
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);}}}

/* k17489 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17491(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){
C_save_and_reclaim((void *)f_17491,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17494,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);
/* core.scm:2127: walk */
t3=((C_word*)((C_word*)t0)[9])[1];
f_17393(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k17492 in k17489 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17494(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17494,c,av);}
/* core.scm:2128: walkeach */
t2=((C_word*)((C_word*)t0)[2])[1];
f_17998(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k17518 in k17522 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17520(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_17520,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
/* core.scm:2126: chicken.compiler.support#collect! */
t4=*((C_word*)lf[537]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t2;
av2[4]=lf[98];
av2[5]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k17522 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17524(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_17524,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17520,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);
/* core.scm:2125: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_17491(2,av2);}}}

/* k17534 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17536(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_17536,c,av);}
a=C_alloc(14);
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|11,a[1]=(C_word)f_17541,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t3,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp));
t5=((C_word*)t3)[1];
f_17541(t5,((C_word*)t0)[10],((C_word*)t0)[5],((C_word*)t0)[11]);}

/* loop in k17534 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17541(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;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,5)))){
C_save_and_reclaim_args((void *)trf_17541,4,t0,t1,t2,t3);}
a=C_alloc(15);
if(C_truep(C_i_nullp(t2))){
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17559,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2134: scheme#append */
t6=*((C_word*)lf[5]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t4=C_i_car(t2);
t5=C_i_car(t3);
t6=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_17568,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=t5,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[10],a[13]=t4,a[14]=((C_word*)t0)[4],tmp=(C_word)a,a+=15,tmp);
/* core.scm:2137: chicken.compiler.support#db-put! */
t7=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[11];
av2[3]=t4;
av2[4]=lf[538];
av2[5]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}}

/* k17557 in loop in k17534 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17559,c,av);}
/* core.scm:2134: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_17393(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k17566 in loop in k17534 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17568(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_17568,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17571,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);
/* core.scm:2138: assign */
t3=((C_word*)((C_word*)t0)[12])[1];
f_18061(t3,t2,((C_word*)t0)[13],((C_word*)t0)[7],((C_word*)t0)[14],((C_word*)t0)[11]);}

/* k17569 in k17566 in loop in k17534 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17571(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
C_save_and_reclaim((void *)f_17571,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17574,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);
/* core.scm:2139: walk */
t3=((C_word*)((C_word*)t0)[6])[1];
f_17393(t3,t2,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}

/* k17572 in k17569 in k17566 in loop in k17534 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_17574(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17574,c,av);}
/* core.scm:2140: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_17541(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}

/* a17598 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17599(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;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_17599,c,av);}
a=C_alloc(16);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17601,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t6=C_i_check_list_2(t2,lf[99]);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17611,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
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_17626,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_17626(t11,t7,t2);}

/* g3893 in a17598 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17601(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_17601,3,t0,t1,t2);}
/* core.scm:2148: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t3;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[539];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k17609 in a17598 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17611(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_17611,c,av);}
a=C_alloc(11);
t2=lf[77];
t3=lf[77] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_FALSE;;
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17615,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t5=C_i_car(((C_word*)t0)[3]);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17624,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t5,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2152: scheme#append */
t7=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k17613 in k17609 in a17598 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17615(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17615,c,av);}
t2=C_mutate(&lf[77] /* (set! chicken.compiler.core#toplevel-scope ...) */,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k17622 in k17609 in a17598 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17624,c,av);}
/* core.scm:2152: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_17393(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_FALSE);}

/* for-each-loop3892 in a17598 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17626(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_17626,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_17636,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2147: g3893 */
t4=((C_word*)t0)[3];
f_17601(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);}}}

/* k17634 in for-each-loop3892 in a17598 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17636,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17626(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17668(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;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,5)))){
C_save_and_reclaim((void *)f_17668,c,av);}
a=C_alloc(20);
t5=C_i_car(((C_word*)t0)[2]);
t6=lf[60];
t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_17675,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t6,a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=t5,a[12]=((C_word*)t0)[2],a[13]=t4,tmp=(C_word)a,a+=14,tmp);
if(C_truep(((C_word*)t0)[4])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17785,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* core.scm:2163: chicken.compiler.support#collect! */
t9=*((C_word*)lf[537]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[547];
av2[5]=t5;
((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}
else{
t8=t7;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_17675(2,av2);}}}

/* k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17675(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_17675,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_i_check_list_2(((C_word*)t0)[4],lf[99]);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17689,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,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_17761,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_17761(t8,t4,((C_word*)t0)[4]);}

/* g3924 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17676(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
C_save_and_reclaim_args((void *)trf_17676,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17680,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2167: chicken.compiler.support#db-put! */
t4=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[538];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k17678 in g3924 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17680(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_17680,c,av);}
/* core.scm:2168: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+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]=((C_word*)t0)[4];
av2[4]=lf[539];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17689(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){
C_save_and_reclaim((void *)f_17689,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17692,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_17752,a[2]=((C_word*)t0)[12],a[3]=t2,a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2171: chicken.compiler.support#db-put! */
t4=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[11];
av2[3]=((C_word*)t0)[12];
av2[4]=lf[544];
av2[5]=lf[545];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_17692(2,av2);}}}

/* k17690 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17692(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_17692,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17695,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);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17746,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2173: chicken.compiler.support#simple-lambda-node? */
t4=*((C_word*)lf[542]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17693 in k17690 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_17695(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_17695,c,av);}
a=C_alloc(12);
t2=lf[77];
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17698,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
if(C_truep(lf[78])){
t4=t3;
f_17698(t4,C_SCHEME_UNDEFINED);}
else{
t4=C_mutate(&lf[78] /* (set! chicken.compiler.core#toplevel-lambda-id ...) */,((C_word*)t0)[9]);
t5=t3;
f_17698(t5,t4);}}

/* k17696 in k17693 in k17690 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_17698(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_17698,2,t0,t1);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_cadr(((C_word*)t0)[11]))){
t3=C_eqp(lf[78],((C_word*)t0)[10]);
if(C_truep(C_i_not(t3))){
t4=lf[77] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_FALSE;;
t5=t2;
f_17701(t5,t4);}
else{
t4=t2;
f_17701(t4,C_SCHEME_UNDEFINED);}}
else{
t3=t2;
f_17701(t3,C_SCHEME_UNDEFINED);}}

/* k17699 in k17696 in k17693 in k17690 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_17701(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_17701,2,t0,t1);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17704,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=C_i_car(((C_word*)t0)[6]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17728,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2178: scheme#append */
t5=*((C_word*)lf[5]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k17702 in k17699 in k17696 in k17693 in k17690 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_17704(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17704,c,av);}
a=C_alloc(4);
t2=C_mutate(&lf[77] /* (set! chicken.compiler.core#toplevel-scope ...) */,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17720,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2181: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17718 in k17702 in k17699 in k17696 in k17693 in k17690 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_17720(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_17720,c,av);}
a=C_alloc(29);
t2=C_i_cdddr(t1);
t3=C_s_a_i_minus(&a,2,lf[60],((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k17726 in k17699 in k17696 in k17693 in k17690 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_17728(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17728,c,av);}
/* core.scm:2178: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_17393(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);}

/* k17744 in k17690 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_17746(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_17746,c,av);}
if(C_truep(t1)){
/* core.scm:2173: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+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]=((C_word*)t0)[4];
av2[4]=lf[541];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_17695(2,av2);}}}

/* k17750 in k17687 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17752(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_17752,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_fix(0));
/* core.scm:2172: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[543];
av2[5]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* for-each-loop3923 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17761(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_17761,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_17771,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2165: g3924 */
t4=((C_word*)t0)[3];
f_17676(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);}}}

/* k17769 in for-each-loop3923 in k17673 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17771(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17771,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_17761(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k17783 in a17667 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17785(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_17785,c,av);}
/* core.scm:2164: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+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]=((C_word*)t0)[4];
av2[4]=lf[546];
av2[5]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* k17804 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17806(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
C_save_and_reclaim((void *)f_17806,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17809,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
/* core.scm:2192: chicken.compiler.support#collect! */
t3=*((C_word*)lf[537]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[550];
av2[5]=((C_word*)t0)[12];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k17807 in k17804 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17809(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,5)))){
C_save_and_reclaim((void *)f_17809,c,av);}
a=C_alloc(47);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17812,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
if(C_truep(C_i_memq(((C_word*)t0)[10],((C_word*)t0)[6]))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_17812(2,av2);}}
else{
t3=C_s_a_i_plus(&a,2,lf[60],C_fix(1));
t4=C_mutate(&lf[60] /* (set! chicken.compiler.core#current-program-size ...) */,t3);
if(C_truep(C_i_memq(((C_word*)t0)[10],((C_word*)t0)[5]))){
/* core.scm:2196: chicken.compiler.support#db-put! */
t5=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[534];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17857,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2197: chicken.compiler.support#db-get */
t6=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[94];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}

/* k17810 in k17807 in k17804 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17812(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_17812,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17815,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);
/* core.scm:2199: assign */
t3=((C_word*)((C_word*)t0)[11])[1];
f_18061(t3,t2,((C_word*)t0)[10],((C_word*)t0)[12],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k17813 in k17810 in k17807 in k17804 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17815(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_17815,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(lf[77])){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_17818(2,av2);}}
else{
/* core.scm:2200: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[549];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}

/* k17816 in k17813 in k17810 in k17807 in k17804 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_17818(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_17818,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17821,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);
/* core.scm:2201: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[548];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k17819 in k17816 in k17813 in k17810 in k17807 in k17804 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_17821(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17821,c,av);}
/* core.scm:2202: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_17393(t2,((C_word*)t0)[3],C_u_i_car(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k17855 in k17807 in k17804 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17857(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_17857,c,av);}
if(C_truep(C_i_not(t1))){
/* core.scm:2198: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+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]=((C_word*)t0)[4];
av2[4]=lf[94];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_17812(2,av2);}}}

/* k17861 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17863(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17863,c,av);}
t2=C_eqp(t1,lf[551]);
if(C_truep(t2)){
/* core.scm:2189: chicken.base#warning */
t3=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[552];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=C_eqp(t1,lf[553]);
if(C_truep(t3)){
/* core.scm:2191: chicken.base#warning */
t4=*((C_word*)lf[135]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[554];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_17806(2,av2);}}}}

/* k17901 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17903,c,av);}
/* core.scm:2208: walkeach */
t2=((C_word*)((C_word*)t0)[2])[1];
f_17998(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k17907 in k17413 in k17401 in k17398 in k17395 in walk in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_17909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17909,c,av);}
if(C_truep(t1)){
/* core.scm:2207: chicken.compiler.support#set-real-name! */
t2=*((C_word*)lf[117]+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]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
/* core.scm:2208: walkeach */
t2=((C_word*)((C_word*)t0)[5])[1];
f_17998(t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[4]);}}

/* walkeach in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_17998(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_17998,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(13);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18000,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
t8=C_i_check_list_2(t2,lf[99]);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18012,a[2]=t10,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t12=((C_word*)t10)[1];
f_18012(t12,t1,t2);}

/* g3993 in walkeach in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18000(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){
C_save_and_reclaim_args((void *)trf_18000,3,t0,t1,t2);}
/* core.scm:2213: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_17393(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* for-each-loop3992 in walkeach in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18012(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_18012,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_18022,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2213: g3993 */
t4=((C_word*)t0)[3];
f_18000(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);}}}

/* k18020 in for-each-loop3992 in walkeach in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18022(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18022,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_18012(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* mark-rest-cdr in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18035(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;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_18035,5,t0,t1,t2,t3,t4);}
a=C_alloc(9);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18039,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t6=C_a_i_cons(&a,2,t3,t4);
/* core.scm:2216: chicken.compiler.support#db-put! */
t7=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t7;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[543];
av2[5]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}

/* k18037 in mark-rest-cdr in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18039(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18039,c,av);}
/* core.scm:2217: chicken.compiler.support#collect! */
t2=*((C_word*)lf[537]+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]=((C_word*)t0)[4];
av2[4]=lf[557];
av2[5]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* mark-rest-null? in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18048(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;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_18048,5,t0,t1,t2,t3,t4);}
a=C_alloc(9);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18052,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t6=C_a_i_cons(&a,2,t3,t4);
/* core.scm:2220: chicken.compiler.support#db-put! */
t7=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t7;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[558];
av2[5]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}

/* k18050 in mark-rest-null? in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18052(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18052,c,av);}
/* core.scm:2221: chicken.compiler.support#collect! */
t2=*((C_word*)lf[537]+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]=((C_word*)t0)[4];
av2[4]=lf[557];
av2[5]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18061(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_18061,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(10);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18369,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=t4,a[9]=t5,tmp=(C_word)a,a+=10,tmp);
/* core.scm:2225: chicken.compiler.support#node-class */
t7=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18068(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_18068,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18342,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);
/* core.scm:2229: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+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);}}

/* k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18074(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_18074,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18315,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);
/* core.scm:2233: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+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);}}

/* k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18086(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_18086,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18293,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],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);
/* core.scm:2239: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+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);}}}

/* k18108 in k18112 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_18110(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_18110,c,av);}
a=C_alloc(29);
t2=C_i_cadr(t1);
t3=C_s_a_i_plus(&a,2,t2,C_fix(1));
/* core.scm:2242: mark-rest-cdr */
t4=((C_word*)((C_word*)t0)[2])[1];
f_18035(t4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t3);}

/* k18112 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18114(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_18114,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2241: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k18131 in k18135 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_18133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18133,c,av);}
/* core.scm:2247: mark-rest-null? */
t2=((C_word*)((C_word*)t0)[2])[1];
f_18048(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],C_i_cadr(t1));}

/* k18135 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_18137(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_18137,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2246: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_18140(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_18140,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18143,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(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18278,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18285,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2255: chicken.base#alist-ref */
t5=*((C_word*)lf[561]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[567];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t3=t2;
f_18143(t3,C_SCHEME_FALSE);}}

/* k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_18143(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_18143,2,t0,t1);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18147,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2233: g4049 */
t3=t2;
f_18147(t3,((C_word*)t0)[4],t1);}
else{
t2=C_i_memq(((C_word*)t0)[3],((C_word*)t0)[5]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18171,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t2)){
t4=t3;
f_18171(t4,t2);}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18265,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2263: chicken.compiler.support#variable-mark */
t5=*((C_word*)lf[183]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[349];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}}

/* g4049 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_18147(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_18147,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18151,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2258: chicken.base#alist-ref */
t4=*((C_word*)lf[561]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[563];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k18149 in g4049 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_18151(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_18151,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18154,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2259: chicken.base#alist-ref */
t3=*((C_word*)lf[561]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[562];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k18152 in k18149 in g4049 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18154(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_18154,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,t1,C_fix(1));
/* core.scm:2260: mark-rest-cdr */
t3=((C_word*)((C_word*)t0)[2])[1];
f_18035(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k18169 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_18171(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,5)))){
C_save_and_reclaim_args((void *)trf_18171,2,t0,t1);}
a=C_alloc(12);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18174,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);
/* core.scm:2265: chicken.compiler.support#db-get-all */
t3=*((C_word*)lf[564]+1);{
C_word av2[6];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[539];
av2[5]=lf[95];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18216,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_word*)lf[49]+1);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18252,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[49]+1))){
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=*((C_word*)lf[49]+1);
f_18252(2,av2);}}
else{
/* core.scm:2274: chicken.compiler.support#variable-mark */
t5=*((C_word*)lf[183]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[454];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}}

/* k18172 in k18169 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_18174(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_18174,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18177,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2266: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[538];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k18175 in k18172 in k18169 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18177(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18177,c,av);}
if(C_truep(C_i_assq(lf[539],((C_word*)t0)[2]))){
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_assq(lf[95],((C_word*)t0)[2]))){
/* core.scm:2269: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+1);{
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_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[539];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=C_i_not(t1);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],t1));
if(C_truep(t3)){
/* core.scm:2271: chicken.compiler.support#db-put! */
t4=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[95];
av2[5]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
/* core.scm:2272: chicken.compiler.support#db-put! */
t4=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[539];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}}}

/* k18214 in k18169 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_18216(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){
C_save_and_reclaim_args((void *)trf_18216,2,t0,t1);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18219,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);
/* core.scm:2276: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[538];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
/* core.scm:2282: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[539];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}

/* k18217 in k18214 in k18169 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18219(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_18219,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18225,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2277: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[565];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k18223 in k18217 in k18214 in k18169 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_18225(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18225,c,av);}
if(C_truep(t1)){
/* core.scm:2278: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+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]=((C_word*)t0)[4];
av2[4]=lf[539];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=C_i_not(((C_word*)t0)[5]);
t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],((C_word*)t0)[5]));
if(C_truep(t3)){
/* core.scm:2280: chicken.compiler.support#db-put! */
t4=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[565];
av2[5]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
/* core.scm:2281: chicken.compiler.support#db-put! */
t4=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[539];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}}}

/* k18250 in k18169 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_18252(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_18252,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18259,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2275: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[539];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[2];
f_18216(t2,C_SCHEME_FALSE);}}

/* k18257 in k18250 in k18169 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18259,c,av);}
t2=((C_word*)t0)[2];
f_18216(t2,C_i_not(t1));}

/* k18263 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_18265(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18265,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];
f_18171(t2,t1);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18275,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2264: chicken.compiler.support#variable-visible? */
t3=*((C_word*)lf[566]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[25]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k18273 in k18263 in k18141 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_18275(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18275,c,av);}
t2=((C_word*)t0)[2];
f_18171(t2,C_i_not(t1));}

/* k18276 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_18278(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18278,c,av);}
t2=((C_word*)t0)[2];
f_18143(t2,(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE));}

/* k18283 in k18138 in k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_18285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18285,c,av);}
/* core.scm:2255: chicken.compiler.support#db-get */
t2=*((C_word*)lf[535]+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]=t1;
av2[4]=lf[558];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k18287 in k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18289(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_18289,c,av);}
a=C_alloc(9);
t2=C_eqp(lf[560],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18137,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);
/* core.scm:2245: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18140,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
/* core.scm:2250: chicken.compiler.support#match-node */
t4=*((C_word*)lf[568]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[569];
av2[4]=lf[570];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}

/* k18291 in k18084 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18293(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_18293,c,av);}
a=C_alloc(10);
t2=C_eqp(lf[532],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18114,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);
/* core.scm:2240: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18289,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],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);
/* core.scm:2244: chicken.compiler.support#node-class */
t4=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k18305 in k18309 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18307(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18307,c,av);}
t2=((C_word*)t0)[2];
f_18086(t2,C_eqp(((C_word*)t0)[3],C_i_car(t1)));}

/* k18309 in k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18311(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18311,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2236: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_18086(t3,C_SCHEME_FALSE);}}

/* k18313 in k18072 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18315(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){
C_save_and_reclaim((void *)f_18315,c,av);}
a=C_alloc(15);
t2=C_eqp(lf[393],t1);
if(C_truep(t2)){
/* core.scm:2234: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
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_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[559];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18086,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18311,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2235: chicken.compiler.support#node-class */
t5=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k18316 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18318(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18318,c,av);}
if(C_truep(t1)){
/* core.scm:2231: mark-rest-null? */
t2=((C_word*)((C_word*)t0)[2])[1];
f_18048(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_i_car(t1),C_u_i_cdr(t1));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_18074(2,av2);}}}

/* k18336 in k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18338(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18338,c,av);}
/* core.scm:2230: chicken.compiler.support#db-get */
t2=*((C_word*)lf[535]+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_i_car(t1);
av2[4]=lf[558];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k18340 in k18066 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18342(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_18342,c,av);}
a=C_alloc(19);
t2=C_eqp(lf[521],t1);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18074,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t2)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18318,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18338,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2230: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_18074(2,av2);}}}

/* k18343 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18345,c,av);}
if(C_truep(t1)){
/* core.scm:2227: mark-rest-cdr */
t2=((C_word*)((C_word*)t0)[2])[1];
f_18035(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_i_car(t1),C_u_i_cdr(t1));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_18068(2,av2);}}}

/* k18363 in k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18365,c,av);}
/* core.scm:2226: chicken.compiler.support#db-get */
t2=*((C_word*)lf[535]+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_i_car(t1);
av2[4]=lf[543];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k18367 in assign in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18369(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_18369,c,av);}
a=C_alloc(19);
t2=C_eqp(lf[521],t1);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t2)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18345,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18365,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2226: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_18068(2,av2);}}}

/* ref in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18371(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_18371,4,t0,t1,t2,t3);}
/* core.scm:2285: chicken.compiler.support#collect! */
t4=*((C_word*)lf[537]+1);{
C_word av2[6];
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[571];
av2[5]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}

/* k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18392(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_18392,c,av);}
a=C_alloc(4);
t2=lf[60] /* chicken.compiler.core#current-program-size */ =C_fix(0);;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18396,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2293: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_17393(t4,t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}

/* k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18396(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_18396,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2296: chicken.compiler.support#debugging */
t3=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[595];
av2[3]=lf[596];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18399(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_18399,c,av);}
a=C_alloc(7);
t2=lf[61] /* chicken.compiler.core#current-analysis-database-size */ =C_fix(0);;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18403,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18409,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2298: chicken.internal#hash-table-for-each */
t5=*((C_word*)lf[100]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k18401 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18403(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18403,c,av);}
if(C_truep(lf[59])){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_mutate(&lf[59] /* (set! chicken.compiler.core#original-program-size ...) */,lf[60]);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18409(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 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;
if(C_unlikely(!C_demand(C_calculate_demand(67,c,2)))){
C_save_and_reclaim((void *)f_18409,c,av);}
a=C_alloc(67);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_FALSE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_FALSE;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_FALSE;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_END_OF_LIST;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_FALSE;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_SCHEME_END_OF_LIST;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_SCHEME_FALSE;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_FALSE;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_FALSE;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_fix(0);
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_SCHEME_FALSE;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=C_fix(0);
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=C_fixnum_plus(lf[61],C_fix(1));
t31=lf[61] /* chicken.compiler.core#current-analysis-database-size */ =t30;;
t32=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_18415,a[2]=t5,a[3]=t13,a[4]=t25,a[5]=t15,a[6]=t11,a[7]=t17,a[8]=t29,a[9]=t19,a[10]=t21,a[11]=t23,a[12]=t7,a[13]=t9,a[14]=t27,tmp=(C_word)a,a+=15,tmp);
t33=C_i_check_list_2(t3,lf[99]);
t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19337,a[2]=t32,tmp=(C_word)a,a+=3,tmp);
t35=(
  f_19337(t34,t3)
);
t36=C_i_not(((C_word*)t5)[1]);
t37=(C_truep(t36)?((C_word*)t7)[1]:C_SCHEME_FALSE);
t38=C_set_block_item(t7,0,t37);
t39=C_i_not(((C_word*)t5)[1]);
t40=(C_truep(t39)?((C_word*)t9)[1]:C_SCHEME_FALSE);
t41=C_set_block_item(t9,0,t40);
t42=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_18558,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t7,a[6]=t23,a[7]=t19,a[8]=t13,a[9]=t21,a[10]=t27,a[11]=t25,a[12]=t29,a[13]=t2,a[14]=t9,a[15]=t15,tmp=(C_word)a,a+=16,tmp);
if(C_truep(*((C_word*)lf[68]+1))){
t43=(C_truep(((C_word*)t7)[1])?C_a_i_list1(&a,1,((C_word*)t7)[1]):C_SCHEME_FALSE);
t44=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19268,a[2]=t2,a[3]=t42,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t43)){
t45=t44;
f_19268(t45,t43);}
else{
if(C_truep(((C_word*)t23)[1])){
t45=((C_word*)t11)[1];
t46=t44;
f_19268(t46,t45);}
else{
t45=t44;
f_19268(t45,C_SCHEME_FALSE);}}}
else{
t43=t42;{
C_word *av2=av;
av2[0]=t43;
av2[1]=C_SCHEME_UNDEFINED;
f_18558(2,av2);}}}

/* g4103 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_18415(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_stack_overflow_check;{}
t2=C_i_car(t1);
t3=C_eqp(t2,lf[539]);
if(C_truep(t3)){
t4=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
return(t4);}
else{
t4=C_eqp(t2,lf[571]);
if(C_truep(t4)){
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_u_i_cdr(t1));
t6=C_i_length(((C_word*)((C_word*)t0)[3])[1]);
t7=C_set_block_item(((C_word*)t0)[4],0,t6);
return(t7);}
else{
t5=C_eqp(t2,lf[534]);
if(C_truep(t5)){
t6=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_TRUE);
return(t6);}
else{
t6=C_eqp(t2,lf[550]);
if(C_truep(t6)){
t7=C_mutate(((C_word *)((C_word*)t0)[6])+1,C_u_i_cdr(t1));
return(t7);}
else{
t7=C_eqp(t2,lf[98]);
if(C_truep(t7)){
t8=C_mutate(((C_word *)((C_word*)t0)[7])+1,C_u_i_cdr(t1));
t9=C_i_length(((C_word*)((C_word*)t0)[7])[1]);
t10=C_set_block_item(((C_word*)t0)[8],0,t9);
return(t10);}
else{
t8=C_eqp(t2,lf[548]);
if(C_truep(t8)){
t9=C_set_block_item(((C_word*)t0)[9],0,C_SCHEME_TRUE);
return(t9);}
else{
t9=C_eqp(t2,lf[549]);
if(C_truep(t9)){
t10=C_SCHEME_UNDEFINED;
return(t10);}
else{
t10=C_eqp(t2,lf[559]);
if(C_truep(t10)){
t11=C_set_block_item(((C_word*)t0)[10],0,C_SCHEME_TRUE);
return(t11);}
else{
t11=C_eqp(t2,lf[94]);
if(C_truep(t11)){
t12=C_set_block_item(((C_word*)t0)[11],0,C_SCHEME_TRUE);
return(t12);}
else{
t12=C_eqp(t2,lf[95]);
if(C_truep(t12)){
t13=C_mutate(((C_word *)((C_word*)t0)[12])+1,C_u_i_cdr(t1));
return(t13);}
else{
t13=C_eqp(t2,lf[565]);
if(C_truep(t13)){
t14=C_mutate(((C_word *)((C_word*)t0)[13])+1,C_u_i_cdr(t1));
return(t14);}
else{
t14=C_eqp(t2,lf[543]);
if(C_truep(t14)){
t15=C_mutate(((C_word *)((C_word*)t0)[14])+1,C_u_i_cdr(t1));
return(t15);}
else{
return(C_SCHEME_UNDEFINED);}}}}}}}}}}}}}

/* k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18558(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_18558,c,av);}
a=C_alloc(24);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_18561,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19194,a[2]=t2,a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp);
if(C_truep(*((C_word*)lf[68]+1))){
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[8])[1]))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19262,a[2]=t3,a[3]=((C_word*)t0)[13],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2358: chicken.compiler.support#variable-mark */
t5=*((C_word*)lf[183]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[13];
av2[3]=lf[438];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t4=t3;
f_19194(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_19194(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_19194(t4,C_SCHEME_FALSE);}}

/* k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18561(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_18561,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_18564,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],tmp=(C_word)a,a+=15,tmp);
if(C_truep(((C_word*)((C_word*)t0)[7])[1])){
t3=((C_word*)((C_word*)t0)[15])[1];
if(C_truep(t3)){
t4=C_i_cdr(((C_word*)t0)[2]);
t5=C_a_i_cons(&a,2,lf[591],C_SCHEME_TRUE);
t6=C_a_i_cons(&a,2,t5,t4);
t7=t2;
f_18564(t7,C_i_set_cdr(((C_word*)t0)[2],t6));}
else{
t4=t2;
f_18564(t4,C_SCHEME_UNDEFINED);}}
else{
t3=t2;
f_18564(t3,C_SCHEME_UNDEFINED);}}

/* k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18564(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,0,3)))){
C_save_and_reclaim_args((void *)trf_18564,2,t0,t1);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_18567,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],tmp=(C_word)a,a+=14,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19016,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2375: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
if(C_truep(((C_word*)((C_word*)t0)[14])[1])){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19088,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[13],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* core.scm:2387: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[14])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19153,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2399: chicken.compiler.support#variable-mark */
t4=*((C_word*)lf[183]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[13];
av2[3]=lf[446];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}

/* k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_18567(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_18567,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_18570,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],tmp=(C_word)a,a+=14,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18984,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19013,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2415: chicken.compiler.support#node-class */
t5=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t3;
f_18984(t4,C_SCHEME_FALSE);}}

/* k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18570(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;
if(C_unlikely(!C_demand(C_calculate_demand(22,0,2)))){
C_save_and_reclaim_args((void *)trf_18570,2,t0,t1);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18573,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t3=C_SCHEME_FALSE;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18981,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[13],a[7]=t2,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
/* core.scm:2429: chicken.compiler.support#node-class */
t6=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_18573(2,av2);}}}

/* k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_18573(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_18573,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18576,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_not(((C_word*)((C_word*)t0)[7])[1]))){
if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[8])[1]))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18809,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18858,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2458: chicken.compiler.support#node-class */
t5=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_18809(2,av2);}}}
else{
t3=t2;
f_18576(t3,C_SCHEME_UNDEFINED);}}
else{
t3=t2;
f_18576(t3,C_SCHEME_UNDEFINED);}}

/* k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_18576(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
C_save_and_reclaim_args((void *)trf_18576,2,t0,t1);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18579,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(C_truep(((C_word*)((C_word*)t0)[5])[1])?C_i_not(((C_word*)((C_word*)t0)[6])[1]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18788,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2480: chicken.compiler.support#node-class */
t5=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t2;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_18579(2,av2);}}}

/* k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_18579(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_18579,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18585,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*)((C_word*)t0)[5])[1])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18710,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2494: chicken.compiler.support#node-class */
t4=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t2;
f_18585(t3,C_SCHEME_FALSE);}}

/* k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_18585(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_18585,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18588,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);
/* core.scm:2495: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,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);}}}

/* k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18588(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_18588,c,av);}
a=C_alloc(6);
t2=C_i_cadr(t1);
if(C_truep(C_i_not(t2))){
t3=C_i_caddr(t1);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2498: chicken.compiler.support#node-subexpressions */
t5=*((C_word*)lf[525]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k18604 in k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_fcall f_18606(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_18606,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18609,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);
/* core.scm:2502: chicken.compiler.support#node-subexpressions */
t3=*((C_word*)lf[525]+1);{
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{
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);}}}

/* k18607 in k18604 in k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_18609(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_18609,c,av);}
a=C_alloc(11);
t2=C_i_length(t1);
t3=C_eqp(C_fix(2),t2);
if(C_truep(t3)){
t4=C_i_car(t1);
t5=C_i_cadr(t1);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18672,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2506: chicken.compiler.support#node-class */
t8=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k18625 in k18607 in k18604 in k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in ... */
static void C_fcall f_18627(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_18627,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18640,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);
/* core.scm:2509: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+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);}}
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);}}}

/* k18638 in k18625 in k18607 in k18604 in k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in ... */
static void C_ccall f_18640(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_18640,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=C_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,lf[572],t2);
t5=C_a_i_cons(&a,2,t4,t3);
t6=C_i_set_cdr(((C_word*)t0)[2],t5);
/* core.scm:2511: chicken.compiler.support#db-put! */
t7=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t7;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
av2[4]=lf[573];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}

/* k18662 in k18666 in k18670 in k18607 in k18604 in k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in ... */
static void C_ccall f_18664(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18664,c,av);}
t2=((C_word*)t0)[2];
f_18627(t2,C_eqp(((C_word*)t0)[3],C_i_car(t1)));}

/* k18666 in k18670 in k18607 in k18604 in k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in ... */
static void C_ccall f_18668(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18668,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18664,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2508: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];
f_18627(t3,C_SCHEME_FALSE);}}

/* k18670 in k18607 in k18604 in k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in ... */
static void C_ccall f_18672(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_18672,c,av);}
a=C_alloc(5);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18668,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);
/* core.scm:2507: chicken.compiler.support#node-class */
t4=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];
f_18627(t3,C_SCHEME_FALSE);}}

/* k18691 in k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_18693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18693,c,av);}
t2=((C_word*)t0)[2];
f_18606(t2,C_eqp(lf[518],t1));}

/* k18697 in k18586 in k18583 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_18699(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_18699,c,av);}
a=C_alloc(10);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18606,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[5]))){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[5])))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18693,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2501: chicken.compiler.support#node-class */
t5=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t3;
f_18606(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_18606(t4,C_SCHEME_FALSE);}}

/* k18708 in k18577 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_18710(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18710,c,av);}
t2=((C_word*)t0)[2];
f_18585(t2,C_eqp(lf[96],t1));}

/* k18726 in k18782 in k18786 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_fcall f_18728(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_18728,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[572],((C_word*)t0)[3]);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_i_set_cdr(((C_word*)t0)[2],t4);
/* core.scm:2490: chicken.compiler.support#db-put! */
t6=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t6;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[573];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_18579(2,av2);}}}

/* k18738 in k18782 in k18786 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18740(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_18740,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=((C_word*)t0)[2];
f_18728(t2,t1);}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18770,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);
/* core.scm:2485: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[548];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k18760 in k18764 in k18768 in k18738 in k18782 in k18786 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_18762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18762,c,av);}
t2=((C_word*)t0)[2];
f_18728(t2,C_i_not(t1));}

/* k18764 in k18768 in k18738 in k18782 in k18786 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_18766(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_18766,c,av);}
a=C_alloc(3);
t2=C_i_not(t1);
if(C_truep(t2)){
t3=((C_word*)t0)[2];
f_18728(t3,t2);}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18762,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2488: chicken.compiler.support#db-get */
t4=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[94];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}

/* k18768 in k18738 in k18782 in k18786 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_18770(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_18770,c,av);}
a=C_alloc(5);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18766,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);
/* core.scm:2486: chicken.compiler.support#variable-visible? */
t3=*((C_word*)lf[566]+1);{
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_word*)lf[25]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_18728(t2,C_SCHEME_FALSE);}}

/* k18778 in k18782 in k18786 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18780(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18780,c,av);}
if(C_truep(C_i_not(t1))){
/* core.scm:2484: chicken.compiler.support#db-get */
t2=*((C_word*)lf[535]+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]=lf[95];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_18740(2,av2);}}}

/* k18782 in k18786 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_18784(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_18784,c,av);}
a=C_alloc(16);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18728,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18740,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18780,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2483: chicken.compiler.support#db-get */
t6=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
av2[4]=lf[539];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
t4=t3;
f_18728(t4,C_SCHEME_FALSE);}}

/* k18786 in k18574 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_18788(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_18788,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18784,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);
/* core.scm:2481: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_18579(2,av2);}}}

/* k18807 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_18809(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_18809,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[574],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[3];
f_18576(t5,C_i_set_cdr(((C_word*)t0)[2],t4));}
else{
t2=((C_word*)t0)[3];
f_18576(t2,C_SCHEME_UNDEFINED);}}
else{
t2=((C_word*)((C_word*)t0)[4])[1];
if(C_truep(t2)){
if(C_truep(t2)){
t3=C_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,lf[574],C_SCHEME_TRUE);
t5=C_a_i_cons(&a,2,t4,t3);
t6=((C_word*)t0)[3];
f_18576(t6,C_i_set_cdr(((C_word*)t0)[2],t5));}
else{
t3=((C_word*)t0)[3];
f_18576(t3,C_SCHEME_UNDEFINED);}}
else{
t3=((C_word*)((C_word*)t0)[5])[1];
if(C_truep(t3)){
t4=C_i_cdr(((C_word*)t0)[2]);
t5=C_a_i_cons(&a,2,lf[574],C_SCHEME_TRUE);
t6=C_a_i_cons(&a,2,t5,t4);
t7=((C_word*)t0)[3];
f_18576(t7,C_i_set_cdr(((C_word*)t0)[2],t6));}
else{
t4=((C_word*)t0)[3];
f_18576(t4,C_SCHEME_UNDEFINED);}}}}

/* k18831 in k18841 in k18845 in k18856 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18833,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_18809(2,av2);}}
else{
/* core.scm:2462: chicken.compiler.support#intrinsic? */
t2=*((C_word*)lf[575]+1);{
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);}}}

/* k18841 in k18845 in k18856 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_18843(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_18843,c,av);}
a=C_alloc(4);
t2=C_i_not(t1);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_18809(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2461: chicken.compiler.support#variable-mark */
t4=*((C_word*)lf[183]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[576];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k18845 in k18856 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_18847(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_18847,c,av);}
a=C_alloc(4);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18843,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2460: chicken.compiler.support#db-get */
t4=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
av2[4]=lf[94];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k18852 in k18856 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_18854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18854,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_not(t1);
f_18809(2,av2);}}

/* k18856 in k18571 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_18858(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_18858,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18847,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2459: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18854,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2463: chicken.compiler.support#expression-has-side-effects? */
t4=*((C_word*)lf[577]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_18867(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_18867,c,av);}
a=C_alloc(6);
if(C_truep(C_i_cadr(t1))){
t2=C_i_caddr(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18882,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);
/* core.scm:2433: ##sys#decompose-lambda-list */
t4=*((C_word*)lf[189]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[5];
av2[2]=t2;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_18573(2,av2);}}}

/* a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_18882(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;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_18882,c,av);}
a=C_alloc(18);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18886,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t4)){
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_18886(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18917,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t7=C_i_check_list_2(t2,lf[99]);
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_18950,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_18950(t11,t5,t2);}}

/* k18884 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_18886(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_18886,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18892,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*)((C_word*)t0)[6])[1])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18916,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2446: chicken.base#rassoc */
t4=*((C_word*)lf[580]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=lf[76];
av2[4]=*((C_word*)lf[581]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=t2;
f_18892(t3,C_SCHEME_FALSE);}}

/* k18890 in k18884 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_fcall f_18892(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_18892,2,t0,t1);}
if(C_truep(t1)){
/* core.scm:2447: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_car(((C_word*)t0)[4]);
av2[4]=lf[578];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
if(C_truep(((C_word*)t0)[5])){
/* core.scm:2449: chicken.compiler.support#db-put! */
t2=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_car(((C_word*)t0)[4]);
av2[4]=lf[579];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* k18914 in k18884 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18916(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18916,c,av);}
t2=((C_word*)t0)[2];
f_18892(t2,C_i_not(t1));}

/* g4230 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_18917(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_18917,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18924,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18942,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2439: chicken.compiler.support#db-get */
t5=*((C_word*)lf[535]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
av2[4]=lf[571];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k18922 in g4230 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_fcall f_18924(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){
C_save_and_reclaim_args((void *)trf_18924,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18927,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2441: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word av2[6];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[437];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k18925 in k18922 in g4230 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_18927(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18927,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k18936 in k18940 in g4230 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_18938(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18938,c,av);}
t2=((C_word*)t0)[2];
f_18924(t2,C_i_not(t1));}

/* k18940 in g4230 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18942(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_18942,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18938,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2440: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[548];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[2];
f_18924(t2,C_SCHEME_FALSE);}}

/* for-each-loop4229 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_18950(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_18950,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_18960,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2437: g4230 */
t4=((C_word*)t0)[3];
f_18917(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);}}}

/* k18958 in for-each-loop4229 in a18881 in k18865 in k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_18960(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18960,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_18950(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k18979 in k18568 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_18981(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_18981,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[96],t1);
t3=(C_truep(t2)?C_i_nequalp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18867,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
/* core.scm:2431: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[8])[1];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_SCHEME_UNDEFINED;
t5=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_18573(2,av2);}}}

/* k18982 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_18984(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_18984,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19006,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);
/* core.scm:2416: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[3];
f_18570(t2,C_SCHEME_UNDEFINED);}}

/* k18991 in k19004 in k18982 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_18993(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_18993,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[582],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[3];
f_18570(t5,C_i_set_cdr(((C_word*)t0)[2],t4));}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];
f_18570(t3,t2);}}
else{
if(C_truep(C_i_nequalp(C_fix(1),((C_word*)((C_word*)t0)[4])[1]))){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[582],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[3];
f_18570(t5,C_i_set_cdr(((C_word*)t0)[2],t4));}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];
f_18570(t3,t2);}}}

/* k19004 in k18982 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19006(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_19006,c,av);}
a=C_alloc(5);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18993,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);
/* core.scm:2417: chicken.compiler.support#collapsable-literal? */
t4=*((C_word*)lf[355]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k19011 in k18565 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19013,c,av);}
t2=((C_word*)t0)[2];
f_18984(t2,C_eqp(lf[118],t1));}

/* k19014 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19016(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_19016,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19022,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_19082,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
/* core.scm:2376: chicken.compiler.support#node-class */
t4=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[7])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k19020 in k19014 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19022(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_19022,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_nequalp(C_fix(1),((C_word*)((C_word*)t0)[2])[1]);
t3=(C_truep(t2)?C_i_nequalp(C_fix(1),((C_word*)((C_word*)t0)[3])[1]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=C_i_cdr(((C_word*)t0)[4]);
t5=C_a_i_cons(&a,2,lf[583],C_SCHEME_TRUE);
t6=C_a_i_cons(&a,2,t5,t4);
t7=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_set_cdr(((C_word*)t0)[4],t6);
f_18567(2,av2);}}
else{
t4=C_i_cdr(((C_word*)t0)[4]);
t5=C_a_i_cons(&a,2,lf[584],C_SCHEME_TRUE);
t6=C_a_i_cons(&a,2,t5,t4);
t7=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_i_set_cdr(((C_word*)t0)[4],t6);
f_18567(2,av2);}}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_18567(2,av2);}}}

/* a19053 in k19080 in k19014 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19054(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_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19054,c,av);}
/* core.scm:2379: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[94];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k19060 in k19080 in k19014 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19062(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19062,c,av);}
/* core.scm:2378: every */
f_6686(((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* a19063 in k19080 in k19014 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19064(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19064,c,av);}
/* core.scm:2380: chicken.compiler.support#scan-free-variables */
t2=*((C_word*)lf[585]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=*((C_word*)lf[25]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a19069 in k19080 in k19014 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_19070,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_list_ref(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k19080 in k19014 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19082(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_19082,c,av);}
a=C_alloc(12);
t2=C_eqp(lf[96],t1);
if(C_truep(t2)){
t3=C_i_cadr(((C_word*)t0)[2]);
t4=C_i_not(t3);
if(C_truep(t4)){
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_19022(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19054,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19062,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19064,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19070,tmp=(C_word)a,a+=2,tmp);
/* core.scm:2380: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t6;
av2[2]=t7;
av2[3]=t8;
C_call_with_values(4,av2);}}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_19022(2,av2);}}}

/* k19086 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19088(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_19088,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19150,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2388: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* a19098 in k19148 in k19086 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19099(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19099,c,av);}
/* core.scm:2389: chicken.compiler.support#scan-free-variables */
t2=*((C_word*)lf[585]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=*((C_word*)lf[25]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a19104 in k19148 in k19086 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19105(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_19105,c,av);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19109,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19143,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2391: chicken.compiler.support#db-get */
t6=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[94];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k19107 in a19104 in k19148 in k19086 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_19109(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;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_19109,2,t0,t1);}
a=C_alloc(10);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_i_not(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19118,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
if(C_truep(t3)){
t5=C_i_cdr(((C_word*)t0)[3]);
t6=C_a_i_cons(&a,2,lf[584],C_SCHEME_TRUE);
t7=C_a_i_cons(&a,2,t6,t5);
t8=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t8;
av2[1]=C_i_set_cdr(((C_word*)t0)[3],t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t5=C_SCHEME_UNDEFINED;
t6=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19126,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2395: every */
f_6686(t4,t5,((C_word*)t0)[6]);}}

/* k19116 in k19107 in a19104 in k19148 in k19086 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_19118(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_19118,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[584],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_set_cdr(((C_word*)t0)[2],t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* a19125 in k19107 in a19104 in k19148 in k19086 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_19126(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_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19126,c,av);}
/* core.scm:2396: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[94];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k19141 in a19104 in k19148 in k19086 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_19143(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_19143,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=C_i_cdr(((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,lf[586],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[4];
f_19109(t5,C_i_set_cdr(((C_word*)t0)[3],t4));}
else{
t2=((C_word*)t0)[4];
f_19109(t2,C_SCHEME_UNDEFINED);}}
else{
t2=((C_word*)t0)[4];
f_19109(t2,C_SCHEME_UNDEFINED);}}

/* k19148 in k19086 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19150(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_19150,c,av);}
a=C_alloc(9);
t2=C_eqp(lf[96],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19099,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19105,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);
/* core.scm:2389: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[7];
av2[2]=t3;
av2[3]=t4;
C_call_with_values(4,av2);}}
else{
t3=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_18567(2,av2);}}}

/* k19151 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19153(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_19153,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19157,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);
/* core.scm:2374: g4203 */
t3=t2;
f_19157(t3,((C_word*)t0)[5],t1);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_18567(2,av2);}}}

/* g4203 in k19151 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19157(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_19157,3,t0,t1,t2);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19164,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
/* core.scm:2401: chicken.compiler.support#node? */
t4=*((C_word*)lf[590]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k19162 in g4203 in k19151 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19164(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_19164,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19170,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2403: chicken.compiler.support#debugging */
t3=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[588];
av2[3]=lf[589];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19176,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2409: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+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);}}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k19168 in k19162 in g4203 in k19151 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_19170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19170,c,av);}
/* core.scm:2407: chicken.compiler.support#mark-variable */
t2=*((C_word*)lf[155]+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]=lf[446];
av2[4]=lf[444];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k19174 in k19162 in g4203 in k19151 in k18562 in k18559 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_19176(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_19176,c,av);}
a=C_alloc(12);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[584],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_i_set_cdr(((C_word*)t0)[2],t4);
t6=C_i_cdr(((C_word*)t0)[2]);
t7=C_a_i_cons(&a,2,lf[565],((C_word*)t0)[3]);
t8=C_a_i_cons(&a,2,t7,t6);
t9=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_i_set_cdr(((C_word*)t0)[2],t8);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* k19192 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19194(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_19194,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19201,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2363: chicken.base#open-output-string */
t3=*((C_word*)lf[133]+1);{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_18561(2,av2);}}}

/* k19199 in k19192 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19201(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_19201,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19207,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2363: ##sys#print */
t4=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[593];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k19205 in k19199 in k19192 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19207(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_19207,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19210,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2363: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k19208 in k19205 in k19199 in k19192 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19210(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_19210,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19213,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2363: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[592];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k19211 in k19208 in k19205 in k19199 in k19192 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19213(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19213,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19216,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2363: chicken.base#get-output-string */
t3=*((C_word*)lf[129]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k19214 in k19211 in k19208 in k19205 in k19199 in k19192 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_19216(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19216,c,av);}
/* core.scm:2362: ##sys#notice */
t2=*((C_word*)lf[404]+1);{
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);}}

/* k19248 in k19252 in k19256 in k19260 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19250(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19250,c,av);}
t2=((C_word*)t0)[2];
f_19194(t2,C_i_not(t1));}

/* k19252 in k19256 in k19260 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19254(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_19254,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19250,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2361: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[183]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[349];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_19194(t2,C_SCHEME_FALSE);}}

/* k19256 in k19260 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19258(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_19258,c,av);}
a=C_alloc(4);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2360: chicken.compiler.support#variable-visible? */
t3=*((C_word*)lf[566]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[25]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_19194(t2,C_SCHEME_FALSE);}}

/* k19260 in k18556 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19262(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19262,c,av);}
a=C_alloc(4);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2359: chicken.compiler.support#variable-hidden? */
t3=*((C_word*)lf[594]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[2];
f_19194(t2,C_SCHEME_FALSE);}}

/* k19266 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19268(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;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_19268,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19272,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=C_i_check_list_2(t1,lf[99]);
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_19302,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_19302(t7,((C_word*)t0)[3],t1);}
else{
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_18558(2,av2);}}}

/* g4142 in k19266 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19272(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_19272,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19294,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2349: chicken.compiler.support#node-class */
t4=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k19288 in k19292 in g4142 in k19266 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19290(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19290,c,av);}
/* core.scm:2350: chicken.compiler.support#set-real-name! */
t2=*((C_word*)lf[117]+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_i_car(t1);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k19292 in g4142 in k19266 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19294(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19294,c,av);}
a=C_alloc(4);
t2=C_eqp(t1,lf[96]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2350: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
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);}}}

/* for-each-loop4141 in k19266 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19302(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_19302,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_19312,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2347: g4142 */
t4=((C_word*)t0)[3];
f_19272(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);}}}

/* k19310 in for-each-loop4141 in k19266 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19312(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19312,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_19302(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop4102 in a18408 in k18397 in k18394 in k18390 in k17382 in chicken.compiler.core#analyze-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_19337(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=(
/* core.scm:2317: g4103 */
  f_18415(((C_word*)t0)[2],C_slot(t1,C_fix(0)))
);
t4=C_slot(t1,C_fix(1));
t1=t4;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19364(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 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;
if(C_unlikely(!C_demand(C_calculate_demand(58,c,5)))){
C_save_and_reclaim((void *)f_19364,c,av);}
a=C_alloc(58);
t4=C_fix(0);
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_END_OF_LIST;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_END_OF_LIST;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_UNDEFINED;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19367,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t25=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19373,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t26=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19383,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t27=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19392,a[2]=t9,a[3]=t17,a[4]=t13,a[5]=t15,a[6]=t11,a[7]=t3,tmp=(C_word)a,a+=8,tmp));
t28=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19923,a[2]=t11,a[3]=t23,a[4]=t19,a[5]=t21,a[6]=t3,tmp=(C_word)a,a+=7,tmp));
t29=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21244,a[2]=t19,tmp=(C_word)a,a+=3,tmp));
t30=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21295,tmp=(C_word)a,a+=2,tmp));
t31=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21336,a[2]=t1,a[3]=t5,a[4]=t19,a[5]=t2,a[6]=t7,a[7]=t17,tmp=(C_word)a,a+=8,tmp);
/* core.scm:2836: chicken.compiler.support#debugging */
t32=*((C_word*)lf[587]+1);{
C_word *av2=av;
av2[0]=t32;
av2[1]=t31;
av2[2]=lf[595];
av2[3]=lf[646];
((C_proc)(void*)(*((C_word*)t32+1)))(4,av2);}}

/* test in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19367(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_19367,4,t0,t1,t2,t3);}
/* core.scm:2533: chicken.compiler.support#db-get */
t4=*((C_word*)lf[535]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* register-customizable! in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19373(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_19373,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19378,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2536: lset-adjoin/eq? */
t5=lf[11];{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=t2;
f_7145(4,av2);}}

/* k19376 in register-customizable! in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19378(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_19378,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
/* core.scm:2537: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[599];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* register-direct-call! in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19383(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;
if(C_unlikely(!C_demand(C_calculate_demand(32,0,3)))){
C_save_and_reclaim_args((void *)trf_19383,3,t0,t1,t2);}
a=C_alloc(32);
t3=((C_word*)((C_word*)t0)[2])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t3,C_fix(1)));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19390,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2541: lset-adjoin/eq? */
t6=lf[11];{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[67];
av2[3]=t2;
f_7145(4,av2);}}

/* k19388 in register-direct-call! in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19390(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19390,c,av);}
t2=C_mutate(&lf[67] /* (set! chicken.compiler.core#direct-call-ids ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19392(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;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_19392,5,t0,t1,t2,t3,t4);}
a=C_alloc(12);
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19396,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=t2,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp);
/* core.scm:2547: chicken.compiler.support#node-subexpressions */
t6=*((C_word*)lf[525]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19396(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_19396,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_19399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:2548: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19399(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_19399,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_19402,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* core.scm:2549: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+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)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19402(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_19402,c,av);}
a=C_alloc(15);
t2=C_eqp(t1,lf[521]);
t3=(C_truep(t2)?t2:C_eqp(t1,lf[532]));
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[2]);
t5=C_i_memq(t4,((C_word*)((C_word*)t0)[3])[1]);
t6=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t6;
av2[1]=(C_truep(t5)?C_a_i_list1(&a,1,t4):C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t4=C_eqp(t1,lf[118]);
t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_19432,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[2],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)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
if(C_truep(t4)){
t6=t5;
f_19432(t6,t4);}
else{
t6=C_eqp(t1,lf[393]);
if(C_truep(t6)){
t7=t5;
f_19432(t7,t6);}
else{
t7=C_eqp(t1,lf[160]);
if(C_truep(t7)){
t8=t5;
f_19432(t8,t7);}
else{
t8=C_eqp(t1,lf[556]);
t9=t5;
f_19432(t9,(C_truep(t8)?t8:C_eqp(t1,lf[392])));}}}}}

/* k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19432(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;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,5)))){
C_save_and_reclaim_args((void *)trf_19432,2,t0,t1);}
a=C_alloc(21);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[3],lf[171]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19441,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
t4=C_i_cdr(((C_word*)t0)[4]);
if(C_truep(C_i_pairp(t4))){
/* core.scm:2562: chicken.compiler.support#bomb */
t5=*((C_word*)lf[528]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[600];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t5=t3;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_19441(2,av2);}}}
else{
t3=C_eqp(((C_word*)t0)[3],lf[282]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[4]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19492,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2569: gather */
t6=((C_word*)((C_word*)t0)[7])[1];
f_19392(t6,t5,C_i_car(((C_word*)t0)[5]),((C_word*)t0)[8],((C_word*)t0)[6]);}
else{
t4=C_eqp(((C_word*)t0)[3],lf[518]);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t0)[5]);
t6=C_i_car(((C_word*)t0)[4]);
t7=C_i_cdr(((C_word*)t0)[4]);
t8=C_i_pairp(t7);
t9=(C_truep(t8)?C_i_cadr(((C_word*)t0)[4]):C_SCHEME_FALSE);
t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_19740,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=t9,a[8]=t6,a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=t5,tmp=(C_word)a,a+=14,tmp);
/* core.scm:2578: chicken.compiler.support#node-class */
t11=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t5=C_eqp(((C_word*)t0)[3],lf[96]);
t6=(C_truep(t5)?t5:C_eqp(((C_word*)t0)[3],lf[540]));
if(C_truep(t6)){
t7=C_i_caddr(((C_word*)t0)[4]);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19768,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[14],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
/* core.scm:2619: ##sys#decompose-lambda-list */
t9=*((C_word*)lf[189]+1);{
C_word av2[4];
av2[0]=t9;
av2[1]=((C_word*)t0)[2];
av2[2]=t7;
av2[3]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}
else{
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19826,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
t12=C_i_check_list_2(((C_word*)t0)[5],lf[10]);
t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19836,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19838,a[2]=t9,a[3]=t15,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t17=((C_word*)t15)[1];
f_19838(t17,t13,((C_word*)t0)[5]);}}}}}}

/* k19439 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19441(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_19441,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19444,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);
/* core.scm:2563: gather */
t3=((C_word*)((C_word*)t0)[6])[1];
f_19392(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[7],((C_word*)t0)[5]);}

/* k19442 in k19439 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19444(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_19444,c,av);}
a=C_alloc(11);
t2=C_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19454,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19458,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t5=C_i_cadr(((C_word*)t0)[4]);
t6=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]);
/* core.scm:2565: gather */
t7=((C_word*)((C_word*)t0)[6])[1];
f_19392(t7,t4,t5,((C_word*)t0)[7],t6);}

/* k19452 in k19442 in k19439 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19454(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19454,c,av);}
/* core.scm:2565: scheme#append */
t2=*((C_word*)lf[5]+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);}}

/* k19456 in k19442 in k19439 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19458(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19458,c,av);}
/* core.scm:2565: delete */
f_6806(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[581]+1));}

/* k19490 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19492(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_19492,c,av);}
a=C_alloc(3);
t2=C_i_memq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,((C_word*)t0)[2],t1):t1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k19524 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19526(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_19526,c,av);}
a=C_alloc(21);
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19534,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);
t7=C_i_check_list_2(((C_word*)t0)[5],lf[10]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19544,a[2]=((C_word*)t0)[6],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|5,a[1]=(C_word)f_19546,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_19546(t12,t8,((C_word*)t0)[5]);}

/* g4416 in k19524 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19534(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_19534,3,t0,t1,t2);}
/* core.scm:2616: gather */
t3=((C_word*)((C_word*)t0)[2])[1];
f_19392(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k19542 in k19524 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19544,c,av);}
/* core.scm:2616: concatenate */
f_6778(((C_word*)t0)[2],t1);}

/* map-loop4410 in k19524 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19546(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_19546,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_19571,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);
/* core.scm:2616: g4416 */
t4=((C_word*)t0)[4];
f_19534(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);}}}

/* k19569 in map-loop4410 in k19524 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19571(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19571,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_19546(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19602(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_19602,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19608,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,tmp=(C_word)a,a+=12,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19688,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2595: chicken.compiler.support#node-class */
t4=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t2;
f_19608(t3,C_SCHEME_FALSE);}}

/* k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19608(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_19608,2,t0,t1);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19611,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);
/* core.scm:2596: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
/* core.scm:2579: chicken.compiler.support#node-parameters-set! */
t4=*((C_word*)lf[601]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19611(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_19611,c,av);}
a=C_alloc(13);
t2=C_i_caddr(t1);
t3=C_i_car(t1);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_19620,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]=t3,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=t2,a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp);
/* core.scm:2599: test */
t5=((C_word*)((C_word*)t0)[10])[1];
f_19367(t5,t4,((C_word*)t0)[7],lf[571]);}

/* k19618 in k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19620(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_19620,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_19623,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
/* core.scm:2600: test */
t3=((C_word*)((C_word*)t0)[12])[1];
f_19367(t3,t2,((C_word*)t0)[8],lf[98]);}

/* k19621 in k19618 in k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_19623(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_19623,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19626,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])){
if(C_truep(t1)){
t3=C_i_length(((C_word*)t0)[12]);
t4=C_i_length(t1);
t5=C_eqp(t3,t4);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19670,a[2]=t2,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2604: test */
t7=((C_word*)((C_word*)t0)[13])[1];
f_19367(t7,t6,((C_word*)t0)[8],lf[95]);}
else{
t6=t2;
f_19626(t6,C_SCHEME_FALSE);}}
else{
t3=t2;
f_19626(t3,C_SCHEME_FALSE);}}
else{
t3=t2;
f_19626(t3,C_SCHEME_FALSE);}}

/* k19624 in k19621 in k19618 in k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_19626(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_19626,2,t0,t1);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19632,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19651,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2607: chicken.compiler.support#llist-match? */
t4=*((C_word*)lf[602]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[10];
av2[3]=C_i_cdr(((C_word*)t0)[11]);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t3=t2;
f_19632(t3,C_SCHEME_FALSE);}}

/* k19630 in k19624 in k19621 in k19618 in k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_19632(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_19632,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
/* core.scm:2579: chicken.compiler.support#node-parameters-set! */
t4=*((C_word*)lf[601]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19635,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
/* core.scm:2610: register-direct-call! */
t3=((C_word*)((C_word*)t0)[10])[1];
f_19383(t3,t2,((C_word*)t0)[6]);}}

/* k19633 in k19630 in k19624 in k19621 in k19618 in k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_19635(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_19635,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19638,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_word*)t0)[3])){
/* core.scm:2611: register-customizable! */
t3=((C_word*)((C_word*)t0)[8])[1];
f_19373(t3,t2,((C_word*)t0)[9],((C_word*)t0)[2]);}
else{
t3=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
t5=C_a_i_cons(&a,2,((C_word*)t0)[5],t4);
/* core.scm:2579: chicken.compiler.support#node-parameters-set! */
t6=*((C_word*)lf[601]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[6];
av2[2]=((C_word*)t0)[7];
av2[3]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}

/* k19636 in k19633 in k19630 in k19624 in k19621 in k19618 in k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_19638(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_19638,c,av);}
a=C_alloc(12);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2);
t4=C_a_i_cons(&a,2,((C_word*)t0)[5],t3);
/* core.scm:2579: chicken.compiler.support#node-parameters-set! */
t5=*((C_word*)lf[601]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[6];
av2[2]=((C_word*)t0)[7];
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k19649 in k19624 in k19621 in k19618 in k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_19651(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19651,c,av);}
t2=((C_word*)t0)[2];
f_19632(t2,C_i_not(t1));}

/* k19668 in k19621 in k19618 in k19609 in k19606 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_19670(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19670,c,av);}
t2=((C_word*)t0)[2];
f_19626(t2,(C_truep(t1)?C_i_listp(((C_word*)t0)[3]):C_SCHEME_FALSE));}

/* k19686 in k19600 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19688(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19688,c,av);}
t2=((C_word*)t0)[2];
f_19608(t2,C_eqp(lf[96],t1));}

/* k19704 in k19714 in k19726 in k19730 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19706,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_19602(2,av2);}}
else{
/* core.scm:2594: test */
t2=((C_word*)((C_word*)t0)[3])[1];
f_19367(t2,((C_word*)t0)[2],((C_word*)t0)[4],lf[565]);}}

/* k19714 in k19726 in k19730 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19716(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_19716,c,av);}
a=C_alloc(5);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19706,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);
/* core.scm:2593: test */
t3=((C_word*)((C_word*)t0)[3])[1];
f_19367(t3,t2,((C_word*)t0)[4],lf[95]);}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_19602(2,av2);}}}

/* k19718 in k19726 in k19730 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19720,c,av);}
/* core.scm:2592: chicken.compiler.support#node? */
t2=*((C_word*)lf[590]+1);{
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);}}

/* k19726 in k19730 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19728(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_19728,c,av);}
a=C_alloc(8);
t2=C_eqp(lf[444],t1);
if(C_truep(C_i_not(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19716,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|2,a[1]=(C_word)f_19720,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2592: chicken.compiler.support#variable-mark */
t5=*((C_word*)lf[183]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[446];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_19602(2,av2);}}}

/* k19730 in k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19732(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_19732,c,av);}
a=C_alloc(5);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19728,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);
/* core.scm:2589: chicken.compiler.support#variable-mark */
t3=*((C_word*)lf[183]+1);{
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]=lf[443];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_19602(2,av2);}}}

/* k19734 in k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19736(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_19736,c,av);}
a=C_alloc(16);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19602,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]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19732,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2586: test */
t5=((C_word*)((C_word*)t0)[9])[1];
f_19367(t5,t4,t2,lf[539]);}

/* k19738 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19740(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_19740,c,av);}
a=C_alloc(17);
t2=C_eqp(lf[521],t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19526,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);
t4=(C_truep(((C_word*)t0)[7])?((C_word*)t0)[7]:t2);
if(C_truep(t4)){
if(C_truep(t2)){
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19736,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t3,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[12],tmp=(C_word)a,a+=10,tmp);
/* core.scm:2585: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[13];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_a_i_cons(&a,2,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);
t6=C_a_i_cons(&a,2,((C_word*)t0)[8],t5);
/* core.scm:2579: chicken.compiler.support#node-parameters-set! */
t7=*((C_word*)lf[601]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}
else{
t5=C_a_i_cons(&a,2,((C_word*)t0)[8],C_SCHEME_END_OF_LIST);
/* core.scm:2579: chicken.compiler.support#node-parameters-set! */
t6=*((C_word*)lf[601]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
av2[3]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}

/* a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19768(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;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_19768,c,av);}
a=C_alloc(10);
t5=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[3]):lf[603]);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19775,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=t5,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,tmp=(C_word)a,a+=10,tmp);
/* core.scm:2623: scheme#append */
t7=*((C_word*)lf[5]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19775(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_19775,c,av);}
a=C_alloc(22);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19780,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19785,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);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19812,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2623: ##sys#dynamic-wind */
t9=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[9];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a19779 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19780(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19780,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a19784 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19785(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_19785,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19789,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19806,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2624: gather */
t4=((C_word*)((C_word*)t0)[6])[1];
f_19392(t4,t3,C_i_car(((C_word*)t0)[7]),((C_word*)t0)[5],((C_word*)t0)[3]);}

/* k19787 in a19784 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19789(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_19789,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19792,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2625: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
av2[4]=lf[605];
av2[5]=C_i_length(t1);
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k19790 in k19787 in a19784 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19792(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_19792,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19795,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);
/* core.scm:2626: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[604];
av2[5]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}

/* k19793 in k19790 in k19787 in a19784 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_19795(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_19795,c,av);}
a=C_alloc(6);
/* core.scm:2627: lset-difference/eq? */
f_7186(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]));}

/* k19804 in a19784 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19806(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_19806,c,av);}
a=C_alloc(6);
t2=*((C_word*)lf[581]+1);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6887,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_6887(t6,((C_word*)t0)[2],t1);}

/* a19811 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19812(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19812,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* g4464 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19826(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_19826,3,t0,t1,t2);}
/* core.scm:2629: gather */
t3=((C_word*)((C_word*)t0)[2])[1];
f_19392(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k19834 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19836,c,av);}
/* core.scm:2629: concatenate */
f_6778(((C_word*)t0)[2],t1);}

/* map-loop4458 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19838(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_19838,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_19863,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);
/* core.scm:2629: g4464 */
t4=((C_word*)t0)[4];
f_19826(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);}}}

/* k19861 in map-loop4458 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19863(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19863,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_19838(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19923(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;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_19923,5,t0,t1,t2,t3,t4);}
a=C_alloc(11);
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19927,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=t4,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp);
/* core.scm:2633: chicken.compiler.support#node-subexpressions */
t6=*((C_word*)lf[525]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19927(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_19927,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19930,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
/* core.scm:2634: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19930(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_19930,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_19933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:2635: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19933(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_19933,c,av);}
a=C_alloc(14);
t2=C_eqp(t1,lf[118]);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_19942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
if(C_truep(t2)){
t4=t3;
f_19942(t4,t2);}
else{
t4=C_eqp(t1,lf[393]);
if(C_truep(t4)){
t5=t3;
f_19942(t5,t4);}
else{
t5=C_eqp(t1,lf[160]);
if(C_truep(t5)){
t6=t3;
f_19942(t6,t5);}
else{
t6=C_eqp(t1,lf[556]);
if(C_truep(t6)){
t7=t3;
f_19942(t7,t6);}
else{
t7=C_eqp(t1,lf[640]);
t8=t3;
f_19942(t8,(C_truep(t7)?t7:C_eqp(t1,lf[641])));}}}}}

/* k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19942(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;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){
C_save_and_reclaim_args((void *)trf_19942,2,t0,t1);}
a=C_alloc(14);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[521]);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[5]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19954,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2644: ref-var */
f_21295(t4,((C_word*)t0)[3],((C_word*)t0)[8],((C_word*)t0)[9]);}
else{
t3=C_eqp(((C_word*)t0)[4],lf[532]);
t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_19976,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp);
if(C_truep(t3)){
t5=t4;
f_19976(t5,t3);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[608]);
if(C_truep(t5)){
t6=t4;
f_19976(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[560]);
t7=t4;
f_19976(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[614])));}}}}}

/* k19952 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19954(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_19954,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19960,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2645: test */
t3=((C_word*)((C_word*)t0)[3])[1];
f_19367(t3,t2,((C_word*)t0)[4],lf[591]);}

/* k19958 in k19952 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19960(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_19960,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
/* core.scm:2646: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[606];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_19976(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){
C_save_and_reclaim_args((void *)trf_19976,2,t0,t1);}
a=C_alloc(14);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19979,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);
/* core.scm:2650: ref-var */
f_21295(t2,((C_word*)t0)[8],((C_word*)t0)[5],((C_word*)t0)[6]);}
else{
t2=C_eqp(((C_word*)t0)[2],lf[143]);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20197,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp);
if(C_truep(t2)){
t4=t3;
f_20197(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[2],lf[518]);
if(C_truep(t4)){
t5=t3;
f_20197(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[2],lf[298]);
if(C_truep(t5)){
t6=t3;
f_20197(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[2],lf[299]);
if(C_truep(t6)){
t7=t3;
f_20197(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[2],lf[159]);
if(C_truep(t7)){
t8=t3;
f_20197(t8,t7);}
else{
t8=C_eqp(((C_word*)t0)[2],lf[119]);
if(C_truep(t8)){
t9=t3;
f_20197(t9,t8);}
else{
t9=C_eqp(((C_word*)t0)[2],lf[278]);
if(C_truep(t9)){
t10=t3;
f_20197(t10,t9);}
else{
t10=C_eqp(((C_word*)t0)[2],lf[186]);
if(C_truep(t10)){
t11=t3;
f_20197(t11,t10);}
else{
t11=C_eqp(((C_word*)t0)[2],lf[633]);
if(C_truep(t11)){
t12=t3;
f_20197(t12,t11);}
else{
t12=C_eqp(((C_word*)t0)[2],lf[634]);
if(C_truep(t12)){
t13=t3;
f_20197(t13,t12);}
else{
t13=C_eqp(((C_word*)t0)[2],lf[635]);
if(C_truep(t13)){
t14=t3;
f_20197(t14,t13);}
else{
t14=C_eqp(((C_word*)t0)[2],lf[536]);
if(C_truep(t14)){
t15=t3;
f_20197(t15,t14);}
else{
t15=C_eqp(((C_word*)t0)[2],lf[636]);
if(C_truep(t15)){
t16=t3;
f_20197(t16,t15);}
else{
t16=C_eqp(((C_word*)t0)[2],lf[637]);
if(C_truep(t16)){
t17=t3;
f_20197(t17,t16);}
else{
t17=C_eqp(((C_word*)t0)[2],lf[638]);
if(C_truep(t17)){
t18=t3;
f_20197(t18,t17);}
else{
t18=C_eqp(((C_word*)t0)[2],lf[639]);
if(C_truep(t18)){
t19=t3;
f_20197(t19,t18);}
else{
t19=C_eqp(((C_word*)t0)[2],lf[123]);
t20=t3;
f_20197(t20,(C_truep(t19)?t19:C_eqp(((C_word*)t0)[2],lf[281])));}}}}}}}}}}}}}}}}}}

/* k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19979(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_19979,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
t3=C_eqp(t1,((C_word*)t0)[8]);
if(C_truep(t3)){
/* core.scm:2651: chicken.compiler.support#varnode */
t4=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=C_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
f_19982(2,av2);}}}

/* k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19982(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(37,c,4)))){
C_save_and_reclaim((void *)f_19982,c,av);}
a=C_alloc(37);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
t3=C_eqp(((C_word*)t0)[8],((C_word*)t0)[9]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20156,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
if(C_truep(t3)){
t5=t2;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_19985(2,av2);}}
else{
/* core.scm:2655: chicken.compiler.support#bomb */
t5=*((C_word*)lf[528]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=lf[617];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}
else{
t5=C_a_i_list(&a,1,lf[588]);
t6=C_a_i_list(&a,1,((C_word*)t0)[5]);
t7=C_a_i_list(&a,2,lf[521],t6);
t8=C_a_i_list(&a,3,lf[618],t5,t7);
/* core.scm:2653: chicken.compiler.support#match-node */
t9=*((C_word*)lf[568]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t4;
av2[2]=((C_word*)t0)[8];
av2[3]=t8;
av2[4]=lf[619];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}

/* k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_19985(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(37,c,4)))){
C_save_and_reclaim((void *)f_19985,c,av);}
a=C_alloc(37);
t2=C_eqp(((C_word*)t0)[2],lf[532]);
if(C_truep(t2)){
t3=C_i_cadr(((C_word*)t0)[3]);
t4=C_s_a_i_plus(&a,2,t3,C_fix(1));
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20001,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t6,tmp=(C_word)a,a+=6,tmp));
t8=((C_word*)t6)[1];
f_20001(t8,((C_word*)t0)[7],t4,((C_word*)t0)[8]);}
else{
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20032,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp);
/* core.scm:2675: test */
t4=((C_word*)((C_word*)t0)[11])[1];
f_19367(t4,t3,((C_word*)t0)[5],lf[599]);}}

/* lp in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_20001(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;
if(C_unlikely(!C_demand(C_calculate_demand(40,0,4)))){
C_save_and_reclaim_args((void *)trf_20001,4,t0,t1,t2,t3);}
a=C_alloc(40);
if(C_truep(C_i_zerop(t2))){
/* core.scm:2664: transform */
t4=((C_word*)((C_word*)t0)[2])[1];
f_19923(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t4=C_s_a_i_minus(&a,2,t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20018,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=C_a_i_list1(&a,1,lf[607]);
t7=C_a_i_list1(&a,1,t3);
/* core.scm:2666: chicken.compiler.support#make-node */
t8=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t8;
av2[1]=t5;
av2[2]=lf[298];
av2[3]=t6;
av2[4]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}}

/* k20016 in lp in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20018(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20018,c,av);}
/* core.scm:2665: lp */
t2=((C_word*)((C_word*)t0)[2])[1];
f_20001(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* k20030 in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20032(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_20032,c,av);}
a=C_alloc(14);
t2=(C_truep(t1)?t1:C_i_not(C_eqp(((C_word*)t0)[2],((C_word*)t0)[3])));
if(C_truep(t2)){
t3=C_eqp(((C_word*)t0)[4],lf[608]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20048,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
t5=C_a_i_list1(&a,1,lf[609]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20060,a[2]=((C_word*)t0)[9],a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2681: chicken.compiler.support#qnode */
t7=*((C_word*)lf[610]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_cadr(((C_word*)t0)[10]);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t4=C_eqp(((C_word*)t0)[4],lf[611]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20077,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
t6=C_a_i_list1(&a,1,lf[612]);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20089,a[2]=t5,a[3]=t6,a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2685: chicken.compiler.support#qnode */
t8=*((C_word*)lf[610]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=C_i_cadr(((C_word*)t0)[10]);
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t5=C_eqp(((C_word*)t0)[4],lf[614]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20118,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
t7=C_a_i_list1(&a,1,lf[615]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20130,a[2]=((C_word*)t0)[9],a[3]=t6,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2690: chicken.compiler.support#qnode */
t9=*((C_word*)lf[610]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=C_i_cadr(((C_word*)t0)[10]);
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
/* core.scm:2691: chicken.compiler.support#bomb */
t6=*((C_word*)lf[528]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[6];
av2[2]=lf[616];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}}
else{
t3=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k20046 in k20030 in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20048,c,av);}
/* core.scm:2679: transform */
t2=((C_word*)((C_word*)t0)[2])[1];
f_19923(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k20058 in k20030 in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20060(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20060,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2679: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[298];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20075 in k20030 in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20077(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20077,c,av);}
/* core.scm:2683: transform */
t2=((C_word*)((C_word*)t0)[2])[1];
f_19923(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k20087 in k20030 in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20089(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_20089,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20093,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_a_i_list1(&a,1,lf[613]);
t4=C_a_i_list1(&a,1,((C_word*)t0)[4]);
/* core.scm:2686: chicken.compiler.support#make-node */
t5=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=lf[298];
av2[3]=t3;
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k20091 in k20087 in k20030 in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_20093(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20093,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2683: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[298];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20116 in k20030 in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20118(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20118,c,av);}
/* core.scm:2688: transform */
t2=((C_word*)((C_word*)t0)[2])[1];
f_19923(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k20128 in k20030 in k19983 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20130(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20130,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2688: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[298];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20154 in k19980 in k19977 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20156,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_19985(2,av2);}}
else{
/* core.scm:2655: chicken.compiler.support#bomb */
t2=*((C_word*)lf[528]+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[617];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_20197(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){
C_save_and_reclaim_args((void *)trf_20197,2,t0,t1);}
a=C_alloc(14);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20204,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);
/* core.scm:2701: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=C_eqp(((C_word*)t0)[9],lf[171]);
if(C_truep(t2)){
t3=C_i_car(((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20220,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],tmp=(C_word)a,a+=10,tmp);
/* core.scm:2705: test */
t5=((C_word*)((C_word*)t0)[11])[1];
f_19367(t5,t4,t3,lf[591]);}
else{
t3=C_eqp(((C_word*)t0)[9],lf[96]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[9],lf[540]));
if(C_truep(t4)){
t5=C_i_caddr(((C_word*)t0)[3]);
t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20301,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[7],a[6]=t5,a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
/* core.scm:2721: ##sys#decompose-lambda-list */
t7=*((C_word*)lf[189]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=((C_word*)t0)[2];
av2[2]=t5;
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t5=C_eqp(((C_word*)t0)[9],lf[282]);
if(C_truep(t5)){
t6=C_i_car(((C_word*)t0)[3]);
t7=C_i_car(((C_word*)t0)[5]);
t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20815,a[2]=((C_word*)t0)[10],a[3]=t7,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[11],a[7]=t6,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp);
/* core.scm:2785: chicken.compiler.support#node-class */
t9=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=t7;
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t6=C_eqp(((C_word*)t0)[9],lf[392]);
if(C_truep(t6)){
t7=(C_truep(*((C_word*)lf[41]+1))?C_a_i_list1(&a,1,C_fix(2)):C_a_i_list1(&a,1,C_fix(1)));
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20990,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t9=C_i_car(((C_word*)t0)[3]);
t10=C_a_i_list2(&a,2,t9,C_SCHEME_TRUE);
/* core.scm:2816: chicken.compiler.support#make-node */
t11=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t11;
av2[1]=t8;
av2[2]=lf[556];
av2[3]=t10;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}
else{
t7=C_eqp(((C_word*)t0)[9],lf[618]);
if(C_truep(t7)){
t8=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t8;
av2[1]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
/* core.scm:2823: chicken.compiler.support#bomb */
t8=*((C_word*)lf[528]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[632];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}}}}}

/* k20202 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20204(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_20204,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20208,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2701: maptransform */
t3=((C_word*)((C_word*)t0)[4])[1];
f_21244(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k20206 in k20202 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20208(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20208,c,av);}
/* core.scm:2701: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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);}}

/* k20218 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20220(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_20220,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20223,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:2706: chicken.base#gensym */
t3=*((C_word*)lf[109]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k20221 in k20218 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20223(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_20223,c,av);}
a=C_alloc(13);
if(C_truep(((C_word*)t0)[2])){
t2=C_a_i_list1(&a,1,t1);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20241,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]=((C_word*)t0)[8],a[9]=t1,tmp=(C_word)a,a+=10,tmp);
/* core.scm:2710: transform */
t4=((C_word*)((C_word*)t0)[5])[1];
f_19923(t4,t3,C_i_car(((C_word*)t0)[6]),((C_word*)t0)[7],((C_word*)t0)[8]);}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20284,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2717: maptransform */
t3=((C_word*)((C_word*)t0)[10])[1];
f_21244(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}}

/* k20239 in k20221 in k20218 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20241(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_20241,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20245,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_a_i_list1(&a,1,((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20257,a[2]=t2,a[3]=t3,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);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20273,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2713: chicken.compiler.support#varnode */
t6=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k20243 in k20239 in k20221 in k20218 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20245(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20245,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2708: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20255 in k20239 in k20221 in k20218 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20257(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_20257,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20261,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2714: transform */
t3=((C_word*)((C_word*)t0)[4])[1];
f_19923(t3,t2,C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k20259 in k20255 in k20239 in k20221 in k20218 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_20261(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20261,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2711: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20271 in k20239 in k20221 in k20218 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20273(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20273,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2713: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[620];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20282 in k20221 in k20218 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20284(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20284,c,av);}
/* core.scm:2715: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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[171];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20301(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;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_20301,c,av);}
a=C_alloc(19);
t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_20305,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,a[12]=t4,a[13]=t3,a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],tmp=(C_word)a,a+=16,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20796,a[2]=((C_word*)t0)[11],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2724: filter */
f_6926(t5,t6,t2);}

/* k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20305(C_word c,C_word *av){
C_word tmp;
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(36,c,3)))){
C_save_and_reclaim((void *)f_20305,c,av);}
a=C_alloc(36);
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=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=((C_word*)t8)[1];
t10=C_i_check_list_2(t1,lf[10]);
t11=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_20317,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],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]=t4,a[18]=t5,tmp=(C_word)a,a+=19,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20762,a[2]=t8,a[3]=t13,a[4]=t9,tmp=(C_word)a,a+=5,tmp));
t15=((C_word*)t13)[1];
f_20762(t15,t11,t1);}

/* k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20317(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,4)))){
C_save_and_reclaim((void *)f_20317,c,av);}
a=C_alloc(24);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[10]);
t3=C_i_check_list_2(t1,lf[10]);
t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_20326,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)[2],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],tmp=(C_word)a,a+=17,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|4,a[1]=(C_word)f_20714,a[2]=((C_word*)t0)[17],a[3]=t6,a[4]=((C_word*)t0)[18],tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_20714(t8,t4,((C_word*)t0)[2],t1);}

/* k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20326(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_20326,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_20329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp);
/* core.scm:2726: chicken.base#gensym */
t3=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[157];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_20329(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_20329,c,av);}
a=C_alloc(20);
t2=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[3]):lf[603]);
t3=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_20335,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t2,a[8]=((C_word*)t0)[3],a[9]=t1,a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[15],a[18]=((C_word*)t0)[16],a[19]=((C_word*)t0)[17],tmp=(C_word)a,a+=20,tmp);
/* core.scm:2728: test */
t4=((C_word*)((C_word*)t0)[17])[1];
f_19367(t4,t3,t2,lf[604]);}

/* k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_20335(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_20335,c,av);}
a=C_alloc(21);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t3=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_20341,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp);
/* core.scm:2729: test */
t4=((C_word*)((C_word*)t0)[19])[1];
f_19367(t4,t3,((C_word*)t0)[7],lf[605]);}

/* k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_20341(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){
C_save_and_reclaim((void *)f_20341,c,av);}
a=C_alloc(22);
t2=(C_truep(t1)?t1:C_fix(0));
t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_20347,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp);
if(C_truep(*((C_word*)lf[41]+1))){
t4=C_i_cadr(((C_word*)t0)[9]);
t5=t3;
f_20347(t5,(C_truep(t4)?C_i_pairp(((C_word*)t0)[7]):C_SCHEME_FALSE));}
else{
t4=t3;
f_20347(t4,C_SCHEME_FALSE);}}

/* k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_fcall f_20347(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){
C_save_and_reclaim_args((void *)trf_20347,2,t0,t1);}
a=C_alloc(28);
t2=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_20350,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],tmp=(C_word)a,a+=21,tmp);
if(C_truep(((C_word*)t0)[18])){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20680,a[2]=((C_word*)t0)[18],a[3]=((C_word*)t0)[14],a[4]=t2,a[5]=((C_word*)t0)[20],a[6]=((C_word*)t0)[21],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2735: test */
t4=((C_word*)((C_word*)t0)[21])[1];
f_19367(t4,t3,((C_word*)t0)[18],lf[591]);}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_20350(2,av2);}}}

/* k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_20350(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(78,c,3)))){
C_save_and_reclaim((void *)f_20350,c,av);}
a=C_alloc(78);
t2=(C_truep(((C_word*)t0)[2])?C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(2)):C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)));
t3=C_a_i_list1(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20365,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=t3,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
t5=C_i_cadr(((C_word*)t0)[11]);
t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_20601,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[10],a[5]=t5,a[6]=t4,a[7]=((C_word*)t0)[13],a[8]=((C_word*)t0)[14],a[9]=((C_word*)t0)[15],a[10]=((C_word*)t0)[16],a[11]=((C_word*)t0)[17],a[12]=((C_word*)t0)[7],tmp=(C_word)a,a+=13,tmp);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20606,a[2]=((C_word*)t0)[15],tmp=(C_word)a,a+=3,tmp);
t12=C_i_check_list_2(((C_word*)t0)[18],lf[10]);
t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20622,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[15],a[4]=t6,a[5]=((C_word*)t0)[20],tmp=(C_word)a,a+=6,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20637,a[2]=t11,a[3]=t9,a[4]=t15,a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t17=((C_word*)t15)[1];
f_20637(t17,t13,((C_word*)t0)[18]);}

/* k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_20365(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_20365,c,av);}
a=C_alloc(26);
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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20370,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);
t7=C_i_check_list_2(((C_word*)t0)[5],lf[10]);
t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20384,a[2]=t1,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,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|5,a[1]=(C_word)f_20427,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_20427(t12,t8,((C_word*)t0)[5]);}

/* g4770 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in ... */
static void C_fcall f_20370(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20370,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20378,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);
/* core.scm:2769: chicken.compiler.support#varnode */
t4=*((C_word*)lf[519]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k20376 in g4770 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20378(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20378,c,av);}
/* core.scm:2769: ref-var */
f_21295(((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k20382 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in ... */
static void C_ccall f_20384(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_20384,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20387,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])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20398,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20402,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20406,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20414,a[2]=t5,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2777: chicken.compiler.support#real-name */
t7=*((C_word*)lf[625]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2738: chicken.compiler.support#make-node */
t4=*((C_word*)lf[484]+1);{
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[621];
av2[3]=((C_word*)t0)[4];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}

/* k20385 in k20382 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20387(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20387,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2738: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[621];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20396 in k20382 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20398(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20398,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2772: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k20400 in k20382 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20402,c,av);}
/* core.scm:2775: chicken.compiler.support#qnode */
t2=*((C_word*)lf[610]+1);{
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);}}

/* k20404 in k20382 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20406,c,av);}
/* core.scm:2776: ##sys#make-lambda-info */
t2=*((C_word*)lf[622]+1);{
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);}}

/* k20412 in k20382 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20414(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_20414,c,av);}
a=C_alloc(4);
t2=(C_truep(t1)?t1:lf[623]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20421,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2779: chicken.syntax#strip-syntax */
t4=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cdr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k20419 in k20412 in k20382 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in ... */
static void C_ccall f_20421(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20421,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2777: chicken.string#->string */
t3=*((C_word*)lf[624]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* map-loop4764 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in ... */
static void C_fcall f_20427(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20427,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_20452,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);
/* core.scm:2769: g4770 */
t4=((C_word*)t0)[4];
f_20370(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);}}}

/* k20450 in map-loop4764 in k20363 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20452(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20452,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_20427(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in ... */
static void C_ccall f_20471(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_20471,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20474,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[5]))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20484,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2758: unzip1 */
f_7035(t3,((C_word*)t0)[6]);}
else{
t3=C_a_i_list1(&a,1,t1);
/* core.scm:2741: chicken.compiler.support#make-node */
t4=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}

/* k20472 in k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20474(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20474,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2741: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20482 in k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in ... */
static void C_ccall f_20484(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_20484,c,av);}
a=C_alloc(17);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(((C_word*)t0)[2],lf[10]);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20511,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
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|4,a[1]=(C_word)f_20549,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_20549(t11,t7,((C_word*)t0)[2]);}

/* k20499 in map-loop4736 in k20482 in k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void C_ccall f_20501(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20501,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2761: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[620];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20509 in k20482 in k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in ... */
static void C_ccall f_20511(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20511,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_20513,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_20513(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* loop in k20509 in k20482 in k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void C_fcall f_20513(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 t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_20513,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_a_i_list1(&a,1,t4);
t6=C_i_car(t3);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20539,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* core.scm:2767: loop */
t9=t7;
t10=C_u_i_cdr(t2);
t11=C_u_i_cdr(t3);
t1=t9;
t2=t10;
t3=t11;
goto loop;}}

/* k20537 in loop in k20509 in k20482 in k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in ... */
static void C_ccall f_20539(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20539,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2765: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[171];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* map-loop4736 in k20482 in k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in ... */
static void C_fcall f_20549(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;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_20549,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20574,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20501,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2761: chicken.compiler.support#varnode */
t6=*((C_word*)lf[519]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_i_cdr(t4);
((C_proc)(void*)(*((C_word*)t6+1)))(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);}}}

/* k20572 in map-loop4736 in k20482 in k20469 in k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void C_ccall f_20574(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20574,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_20549(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20599 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_20601(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_20601,c,av);}
a=C_alloc(22);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_i_cadddr(((C_word*)t0)[3]);
t4=C_a_i_list4(&a,4,((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20471,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t4,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2756: transform */
t6=((C_word*)((C_word*)t0)[10])[1];
f_19923(t6,t5,C_i_car(((C_word*)t0)[11]),((C_word*)t0)[2],((C_word*)t0)[12]);}

/* g4697 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in ... */
static C_word C_fcall f_20606(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
t2=C_i_assq(t1,((C_word*)t0)[2]);
return((C_truep(t2)?C_i_cdr(t2):t1));}

/* k20620 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_20622(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20622,c,av);}
t2=(C_truep(((C_word*)t0)[2])?C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE);
if(C_truep(t2)){
/* core.scm:2747: chicken.compiler.support#build-lambda-list */
t3=*((C_word*)lf[185]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=((C_word*)t0)[5];
av2[4]=C_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
/* core.scm:2747: chicken.compiler.support#build-lambda-list */
t3=*((C_word*)lf[185]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* map-loop4691 in k20348 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in ... */
static void C_fcall f_20637(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_20637,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=(
/* core.scm:2748: g4697 */
  f_20606(((C_word*)t0)[2],C_slot(t2,C_fix(0)))
);
t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
t8=t1;
t9=C_slot(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}
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);}}}

/* k20678 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_20680(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_20680,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20686,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);
/* core.scm:2736: test */
t3=((C_word*)((C_word*)t0)[6])[1];
f_19367(t3,t2,((C_word*)t0)[2],lf[544]);}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_20350(2,av2);}}}

/* k20684 in k20678 in k20345 in k20339 in k20333 in k20327 in k20324 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_20686(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_20686,c,av);}
if(C_truep(t1)){
t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]);
/* core.scm:2737: chicken.compiler.support#db-put! */
t3=*((C_word*)lf[533]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=C_i_cdr(t2);
av2[4]=lf[626];
av2[5]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_20350(2,av2);}}}

/* map-loop4613 in k20315 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_20714(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 t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_20714,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=C_slot(t2,C_fix(0));
t7=C_slot(t3,C_fix(0));
t8=C_a_i_cons(&a,2,t6,t7);
t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
t13=t1;
t14=C_slot(t2,C_fix(1));
t15=C_slot(t3,C_fix(1));
t1=t13;
t2=t14;
t3=t15;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* map-loop4634 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_20762(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20762,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_20787,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);
/* core.scm:2725: g4640 */
t4=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(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);}}}

/* k20785 in map-loop4634 in k20303 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20787(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20787,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_20762(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a20795 in a20300 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20796(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_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20796,c,av);}
/* core.scm:2724: test */
t3=((C_word*)((C_word*)t0)[2])[1];
f_19367(t3,t1,t2,lf[591]);}

/* k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20815(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_20815,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp);
t3=C_eqp(lf[118],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20969,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2786: chicken.compiler.support#node-parameters */
t5=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_20818(2,av2);}}}

/* k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20818(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_20818,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20821,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(t1)){
t3=t2;
f_20821(t3,t1);}
else{
t3=C_i_cdr(((C_word*)t0)[9]);
if(C_truep(C_i_pairp(t3))){
t4=C_i_cadr(((C_word*)t0)[9]);
t5=t2;
f_20821(t5,(C_truep(t4)?t4:C_eqp(lf[393],((C_word*)t0)[10])));}
else{
t4=t2;
f_20821(t4,C_eqp(lf[393],((C_word*)t0)[10]));}}}

/* k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_20821(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_20821,2,t0,t1);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20824,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:2789: posq */
f_7529(t2,((C_word*)t0)[7],((C_word*)t0)[5]);}

/* k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_20824(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_20824,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20828,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);
/* core.scm:2789: g4811 */
t3=t2;
f_20828(t3,((C_word*)t0)[9],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20902,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
/* core.scm:2803: test */
t3=((C_word*)((C_word*)t0)[7])[1];
f_19367(t3,t2,((C_word*)t0)[8],lf[591]);}}

/* g4811 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_20828(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_20828,3,t0,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20835,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,tmp=(C_word)a,a+=9,tmp);
/* core.scm:2791: test */
t4=((C_word*)((C_word*)t0)[7])[1];
f_19367(t4,t3,((C_word*)t0)[8],lf[591]);}

/* k20833 in g4811 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_20835(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(44,c,2)))){
C_save_and_reclaim((void *)f_20835,c,av);}
a=C_alloc(44);
if(C_truep(t1)){
t2=(C_truep(((C_word*)t0)[2])?lf[627]:lf[628]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20850,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],tmp=(C_word)a,a+=8,tmp);
t4=C_s_a_i_plus(&a,2,((C_word*)t0)[8],C_fix(1));
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20866,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2795: chicken.compiler.support#varnode */
t7=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t2=(C_truep(((C_word*)t0)[2])?lf[629]:lf[630]);
t3=C_s_a_i_plus(&a,2,((C_word*)t0)[8],C_fix(1));
t4=C_a_i_list1(&a,1,t3);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20887,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,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);
/* core.scm:2801: chicken.compiler.support#varnode */
t6=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k20848 in k20833 in g4811 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_20850(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_20850,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20854,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2796: transform */
t3=((C_word*)((C_word*)t0)[4])[1];
f_19923(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k20852 in k20848 in k20833 in g4811 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_20854(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20854,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2792: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20864 in k20833 in g4811 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_20866(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20866,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2795: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[618];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20885 in k20833 in g4811 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_20887(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20887,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20891,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
/* core.scm:2802: transform */
t3=((C_word*)((C_word*)t0)[5])[1];
f_19923(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k20889 in k20885 in k20833 in g4811 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_20891(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20891,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2798: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20900 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_20902(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_20902,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(C_truep(((C_word*)t0)[2])?lf[627]:lf[628]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20917,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],tmp=(C_word)a,a+=8,tmp);
/* core.scm:2807: chicken.compiler.support#varnode */
t4=*((C_word*)lf[519]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t2=C_a_i_list2(&a,2,((C_word*)t0)[8],((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20936,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2811: transform */
t4=((C_word*)((C_word*)t0)[4])[1];
f_19923(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}

/* k20915 in k20900 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_20917(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_20917,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20921,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2808: transform */
t3=((C_word*)((C_word*)t0)[4])[1];
f_19923(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k20919 in k20915 in k20900 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_20921(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20921,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:2804: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20934 in k20900 in k20822 in k20819 in k20816 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_20936(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20936,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2809: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[282];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k20967 in k20813 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20969(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20969,c,av);}
/* core.scm:2786: chicken.compiler.support#immediate? */
t2=*((C_word*)lf[631]+1);{
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_i_car(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k20988 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_20990(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_20990,c,av);}
a=C_alloc(8);
if(C_truep(*((C_word*)lf[41]+1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21001,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_21005,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:2818: ##sys#make-lambda-info */
t4=*((C_word*)lf[622]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
/* core.scm:2814: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[621];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k20999 in k20988 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21001(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_21001,c,av);}
a=C_alloc(6);
t2=C_a_i_list1(&a,1,t1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2);
/* core.scm:2814: chicken.compiler.support#make-node */
t4=*((C_word*)lf[484]+1);{
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[621];
av2[3]=((C_word*)t0)[4];
av2[4]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21003 in k20988 in k20195 in k19974 in k19940 in k19931 in k19928 in k19925 in transform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21005,c,av);}
/* core.scm:2818: chicken.compiler.support#qnode */
t2=*((C_word*)lf[610]+1);{
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);}}

/* maptransform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21244(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
C_save_and_reclaim_args((void *)trf_21244,5,t0,t1,t2,t3,t4);}
a=C_alloc(18);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21249,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t10=C_i_check_list_2(t2,lf[10]);
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(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21261,a[2]=t7,a[3]=t12,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_21261(t14,t1,t2);}

/* g4825 in maptransform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21249(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_21249,3,t0,t1,t2);}
/* core.scm:2826: transform */
t3=((C_word*)((C_word*)t0)[2])[1];
f_19923(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* map-loop4819 in maptransform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21261(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21261,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_21286,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);
/* core.scm:2826: g4825 */
t4=((C_word*)t0)[4];
f_21249(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);}}}

/* k21284 in map-loop4819 in maptransform in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21286(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21286,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_21261(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* ref-var in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21295(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21295,4,t1,t2,t3,t4);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21333,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* core.scm:2829: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[522]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k21300 in k21331 in ref-var in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21302(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21302,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21306,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2830: g4854 */
t3=t2;
f_21306(t3,((C_word*)t0)[3],t1);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g4854 in k21300 in k21331 in ref-var in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21306(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;
if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){
C_save_and_reclaim_args((void *)trf_21306,3,t0,t1,t2);}
a=C_alloc(36);
t3=C_s_a_i_plus(&a,2,t2,C_fix(1));
t4=C_a_i_list1(&a,1,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21322,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2833: chicken.compiler.support#varnode */
t6=*((C_word*)lf[519]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k21320 in g4854 in k21300 in k21331 in ref-var in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21322(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21322,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2832: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[618];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21331 in ref-var in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21333(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_21333,c,av);}
a=C_alloc(5);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21302,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);
/* core.scm:2830: posq */
f_7529(t3,t2,((C_word*)t0)[5]);}

/* k21334 in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21336(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_21336,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21339,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);
/* core.scm:2837: gather */
t3=((C_word*)((C_word*)t0)[7])[1];
f_19392(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);}

/* k21337 in k21334 in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21339(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_21339,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[6])[1]))){
/* core.scm:2839: chicken.compiler.support#debugging */
t3=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[642];
av2[3]=lf[645];
av2[4]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_21342(2,av2);}}}

/* k21340 in k21337 in k21334 in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21342(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_21342,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21345,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);
/* core.scm:2840: chicken.compiler.support#debugging */
t3=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[595];
av2[3]=lf[644];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k21343 in k21340 in k21337 in k21334 in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21345(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_21345,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21348,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2841: transform */
t3=((C_word*)((C_word*)t0)[4])[1];
f_19923(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* k21346 in k21343 in k21340 in k21337 in k21334 in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21348(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_21348,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21351,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=((C_word*)((C_word*)t0)[3])[1];
if(C_truep(C_i_zerop(t3))){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:2843: chicken.compiler.support#debugging */
t4=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[642];
av2[3]=lf[643];
av2[4]=((C_word*)((C_word*)t0)[3])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}

/* k21349 in k21346 in k21343 in k21340 in k21337 in k21334 in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21351,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-id in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21376(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21376,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[649]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-external in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21385(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21385,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[651]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-argument-count in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21403(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21403,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[653]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(4));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-rest-argument in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21412(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21412,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[655]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(5));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-temporaries in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21421(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21421,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[657]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(6));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-float-temporaries in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21430(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21430,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[659]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(7));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-callee-signatures in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21439(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21439,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[661]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(8));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-allocated in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21448(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21448,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[663]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(9));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-closure-size in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21466(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21466,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[665]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(11));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-looping in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21475(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21475,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[667]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(12));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-customizable in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21484(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21484,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[669]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(13));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-rest-argument-mode in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21493(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21493,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[671]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(14));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-body in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21502(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21502,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[673]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(15));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-direct in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21511(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21511,c,av);}
t3=C_i_check_structure_2(t2,lf[648],lf[675]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(16));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21520(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_21520,c,av);}
a=C_alloc(17);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_fix(0);
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_END_OF_LIST;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_fix(0);
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21524,a[2]=t3,a[3]=t11,a[4]=t9,a[5]=t5,a[6]=t7,a[7]=t1,a[8]=t2,tmp=(C_word)a,a+=9,tmp);
t13=C_i_fixnum_max(lf[61],C_fix(1));
/* core.scm:2879: scheme#make-vector */
t14=*((C_word*)lf[90]+1);{
C_word *av2=av;
av2[0]=t14;
av2[1]=t12;
av2[2]=C_fixnum_times(t13,C_fix(3));
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}

/* k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21524(C_word c,C_word *av){
C_word tmp;
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 t47;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(99,c,7)))){
C_save_and_reclaim((void *)f_21524,c,av);}
a=C_alloc(99);
t2=C_fix(0);
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_fix(0);
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_fix(0);
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_END_OF_LIST;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_fix(0);
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_fix(0);
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_fix(0);
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_fix(0);
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_END_OF_LIST;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_SCHEME_UNDEFINED;
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_SCHEME_UNDEFINED;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=C_SCHEME_UNDEFINED;
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=C_SCHEME_UNDEFINED;
t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp);
t32=C_SCHEME_UNDEFINED;
t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp);
t34=C_SCHEME_UNDEFINED;
t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp);
t36=C_SCHEME_UNDEFINED;
t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp);
t38=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21526,a[2]=t31,a[3]=t25,tmp=(C_word)a,a+=4,tmp));
t39=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21575,a[2]=t35,a[3]=t31,a[4]=t15,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp));
t40=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_21631,a[2]=t23,a[3]=t7,a[4]=t29,a[5]=t19,a[6]=t21,a[7]=t27,a[8]=t13,a[9]=t31,a[10]=t3,a[11]=t5,a[12]=t11,a[13]=t9,a[14]=t1,a[15]=((C_word*)t0)[2],a[16]=t35,a[17]=t17,a[18]=t37,tmp=(C_word)a,a+=19,tmp));
t41=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22841,a[2]=t27,tmp=(C_word)a,a+=3,tmp));
t42=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22892,a[2]=t37,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]=t33,tmp=(C_word)a,a+=8,tmp));
t43=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22940,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
t44=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22949,a[2]=((C_word*)t0)[6],a[3]=t33,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp));
t45=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22993,tmp=(C_word)a,a+=2,tmp));
t46=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23056,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=t21,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t17,a[8]=t15,a[9]=t13,a[10]=t27,a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
/* core.scm:3219: chicken.compiler.support#debugging */
t47=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t47;
av2[1]=t46;
av2[2]=lf[595];
av2[3]=lf[713];
((C_proc)(void*)(*((C_word*)t47+1)))(4,av2);}}

/* walk-var in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21526(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_21526,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(8);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21530,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t5,tmp=(C_word)a,a+=8,tmp);
/* core.scm:2892: posq */
f_7529(t6,t2,t3);}

/* k21528 in walk-var in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21530(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_21530,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2892: g4995 */
t3=t2;
f_21534(t3,((C_word*)t0)[3],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21559,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);
/* core.scm:2895: chicken.keyword#keyword? */
t3=*((C_word*)lf[107]+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)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* g4995 in k21528 in walk-var in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21534(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;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_21534,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_fixnum_plus(t2,C_fix(1));
t4=C_fixnum_difference(((C_word*)t0)[2],t3);
t5=C_a_i_list1(&a,1,t4);
/* core.scm:2894: chicken.compiler.support#make-node */
t6=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[677];
av2[3]=t5;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k21557 in k21528 in walk-var in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21559(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21559,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21570,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2895: literal */
t3=((C_word*)((C_word*)t0)[3])[1];
f_22892(t3,t2,((C_word*)t0)[4]);}
else{
/* core.scm:2896: walk-global */
t2=((C_word*)((C_word*)t0)[5])[1];
f_21575(t2,((C_word*)t0)[2],((C_word*)t0)[4],((C_word*)t0)[6]);}}

/* k21568 in k21557 in k21528 in walk-var in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21570(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21570,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2895: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[678];
av2[3]=t2;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* walk-global in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21575(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;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_21575,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21579,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t3)){
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
f_21579(2,av2);}}
else{
t5=*((C_word*)lf[31]+1);
if(C_truep(*((C_word*)lf[31]+1))){
t6=*((C_word*)lf[31]+1);
t7=t4;{
C_word av2[2];
av2[0]=t7;
av2[1]=*((C_word*)lf[31]+1);
f_21579(2,av2);}}
else{
t6=*((C_word*)lf[149]+1);
if(C_truep(*((C_word*)lf[149]+1))){
t7=t4;{
C_word av2[2];
av2[0]=t7;
av2[1]=*((C_word*)lf[149]+1);
f_21579(2,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21623,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:2902: chicken.compiler.support#variable-mark */
t8=*((C_word*)lf[183]+1);{
C_word av2[4];
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
av2[3]=lf[156];
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}}}

/* k21577 in walk-global in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21579(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_21579,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21582,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21607,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2904: chicken.compiler.support#db-get */
t4=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[548];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21580 in k21577 in walk-global in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21582(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(37,0,2)))){
C_save_and_reclaim_args((void *)trf_21582,2,t0,t1);}
a=C_alloc(37);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21585,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t1)){
t3=((C_word*)((C_word*)t0)[7])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[7])+1,C_s_a_i_plus(&a,2,t3,C_fix(1)));
t5=t2;
f_21585(t5,t4);}
else{
t3=t2;
f_21585(t3,C_SCHEME_UNDEFINED);}}

/* k21583 in k21580 in k21577 in walk-global in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21585(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21585,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21596,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)[3])){
/* core.scm:2910: blockvar-literal */
t3=((C_word*)((C_word*)t0)[6])[1];
f_22949(t3,t2,((C_word*)t0)[4]);}
else{
/* core.scm:2911: literal */
t3=((C_word*)((C_word*)t0)[7])[1];
f_22892(t3,t2,((C_word*)t0)[4]);}}

/* k21594 in k21583 in k21580 in k21577 in walk-global in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21596(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_21596,c,av);}
a=C_alloc(12);
t2=C_a_i_list4(&a,4,t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);
/* core.scm:2907: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[5];
av2[2]=lf[679];
av2[3]=t2;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21605 in k21577 in walk-global in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21607(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21607,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21614,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:2905: chicken.compiler.support#variable-visible? */
t3=*((C_word*)lf[566]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[25]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_21582(t2,C_SCHEME_FALSE);}}

/* k21612 in k21605 in k21577 in walk-global in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21614,c,av);}
t2=((C_word*)t0)[2];
f_21582(t2,C_i_not(t1));}

/* k21621 in walk-global in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21623(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21623,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_21579(2,av2);}}
else{
/* core.scm:2903: chicken.compiler.support#intrinsic? */
t2=*((C_word*)lf[575]+1);{
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);}}}

/* walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21631(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(25,0,2)))){
C_save_and_reclaim_args((void *)trf_21631,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(25);
t7=(*a=C_CLOSURE_TYPE|24,a[1]=(C_word)f_21635,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=t5,a[10]=t6,a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],a[13]=((C_word*)t0)[7],a[14]=((C_word*)t0)[8],a[15]=((C_word*)t0)[9],a[16]=((C_word*)t0)[10],a[17]=((C_word*)t0)[11],a[18]=((C_word*)t0)[12],a[19]=((C_word*)t0)[13],a[20]=((C_word*)t0)[14],a[21]=((C_word*)t0)[15],a[22]=((C_word*)t0)[16],a[23]=((C_word*)t0)[17],a[24]=((C_word*)t0)[18],tmp=(C_word)a,a+=25,tmp);
/* core.scm:2918: chicken.compiler.support#node-subexpressions */
t8=*((C_word*)lf[525]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}

/* k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21635(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){
C_save_and_reclaim((void *)f_21635,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_21638,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],tmp=(C_word)a,a+=26,tmp);
/* core.scm:2919: chicken.compiler.support#node-parameters */
t3=*((C_word*)lf[522]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21638(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_21638,c,av);}
a=C_alloc(29);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_21641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],tmp=(C_word)a,a+=27,tmp);
/* core.scm:2920: chicken.compiler.support#node-class */
t5=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21641(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,2)))){
C_save_and_reclaim((void *)f_21641,c,av);}
a=C_alloc(28);
t2=C_eqp(t1,lf[393]);
t3=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_21650,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],a[23]=((C_word*)t0)[22],a[24]=((C_word*)t0)[23],a[25]=((C_word*)t0)[24],a[26]=((C_word*)t0)[25],a[27]=((C_word*)t0)[26],tmp=(C_word)a,a+=28,tmp);
if(C_truep(t2)){
t4=t3;
f_21650(t4,t2);}
else{
t4=C_eqp(t1,lf[556]);
t5=t3;
f_21650(t5,(C_truep(t4)?t4:C_eqp(t1,lf[640])));}}

/* k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21650(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;
if(C_unlikely(!C_demand(C_calculate_demand(40,0,6)))){
C_save_and_reclaim_args((void *)trf_21650,2,t0,t1);}
a=C_alloc(40);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[521]);
if(C_truep(t2)){
t3=((C_word*)((C_word*)t0)[5])[1];
/* core.scm:2926: walk-var */
t4=((C_word*)((C_word*)t0)[6])[1];
f_21526(t4,((C_word*)t0)[2],C_i_car(t3),((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}
else{
t3=C_eqp(((C_word*)t0)[4],lf[635]);
if(C_truep(t3)){
t4=((C_word*)((C_word*)t0)[5])[1];
t5=C_i_cadr(t4);
t6=((C_word*)((C_word*)t0)[5])[1];
t7=C_i_cadddr(t6);
t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21678,a[2]=((C_word*)t0)[9],a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp);
t9=(C_truep(*((C_word*)lf[24]+1))?t5:C_SCHEME_FALSE);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21709,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[15],a[5]=t8,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
/* core.scm:2933: chicken.compiler.support#source-info->line */
t11=*((C_word*)lf[682]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t10=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[5])[1]);
t11=C_mutate(((C_word *)((C_word*)t0)[5])+1,t10);
t12=t8;
f_21678(t12,t11);}}
else{
t4=C_eqp(((C_word*)t0)[4],lf[299]);
if(C_truep(t4)){
t5=((C_word*)((C_word*)t0)[5])[1];
t6=C_i_cadr(t5);
t7=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],t6);
t8=C_mutate(((C_word *)((C_word*)t0)[9])+1,t7);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21734,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2944: mapwalk */
t10=((C_word*)((C_word*)t0)[10])[1];
f_22841(t10,t9,((C_word*)t0)[11],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[13]);}
else{
t5=C_eqp(((C_word*)t0)[4],lf[638]);
if(C_truep(t5)){
t6=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],C_fix(4));
t7=C_mutate(((C_word *)((C_word*)t0)[9])+1,t6);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21755,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2948: mapwalk */
t9=((C_word*)((C_word*)t0)[10])[1];
f_22841(t9,t8,((C_word*)t0)[11],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[13]);}
else{
t6=C_eqp(((C_word*)t0)[4],lf[119]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21772,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21776,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
t9=((C_word*)((C_word*)t0)[5])[1];
/* core.scm:2951: chicken.compiler.support#estimate-foreign-result-size */
t10=*((C_word*)lf[508]+1);{
C_word av2[3];
av2[0]=t10;
av2[1]=t8;
av2[2]=C_i_cadr(t9);
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
else{
t7=C_eqp(((C_word*)t0)[4],lf[123]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21801,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],tmp=(C_word)a,a+=12,tmp);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21805,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
t10=((C_word*)((C_word*)t0)[5])[1];
/* core.scm:2955: chicken.compiler.support#estimate-foreign-result-size */
t11=*((C_word*)lf[508]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t9;
av2[2]=C_i_car(t10);
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t8=C_eqp(((C_word*)t0)[4],lf[621]);
if(C_truep(t8)){
t9=((C_word*)((C_word*)t0)[5])[1];
t10=C_i_car(t9);
t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)va26422,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp);
t12=t11;
va26422(t12,C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],t10));}
else{
t9=C_eqp(((C_word*)t0)[4],lf[620]);
if(C_truep(t9)){
t10=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[9])[1],C_fix(2));
t11=C_mutate(((C_word *)((C_word*)t0)[9])+1,t10);
t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21851,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2964: walk */
t13=((C_word*)((C_word*)t0)[16])[1];
f_21631(t13,t12,C_i_car(((C_word*)t0)[11]),((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[13]);}
else{
t10=C_eqp(((C_word*)t0)[4],lf[628]);
if(C_truep(t10)){
t11=C_i_car(((C_word*)t0)[11]);
t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21867,a[2]=((C_word*)t0)[17],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[13],a[6]=t11,tmp=(C_word)a,a+=7,tmp);
/* core.scm:2968: mapwalk */
t13=((C_word*)((C_word*)t0)[10])[1];
f_22841(t13,t12,((C_word*)t0)[11],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[13]);}
else{
t11=C_eqp(((C_word*)t0)[4],lf[160]);
if(C_truep(t11)){
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21906,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t13=((C_word*)((C_word*)t0)[5])[1];
/* core.scm:2980: literal */
t14=((C_word*)((C_word*)t0)[18])[1];
f_22892(t14,t12,C_i_car(t13));}
else{
t12=C_eqp(((C_word*)t0)[4],lf[96]);
t13=(C_truep(t12)?t12:C_eqp(((C_word*)t0)[4],lf[540]));
if(C_truep(t13)){
t14=((C_word*)((C_word*)t0)[19])[1];
t15=((C_word*)((C_word*)t0)[20])[1];
t16=((C_word*)((C_word*)t0)[21])[1];
t17=((C_word*)((C_word*)t0)[22])[1];
t18=((C_word*)((C_word*)t0)[9])[1];
t19=C_eqp(((C_word*)t0)[4],lf[540]);
t20=C_set_block_item(((C_word*)t0)[19],0,C_fix(0));
t21=C_set_block_item(((C_word*)t0)[20],0,C_SCHEME_END_OF_LIST);
t22=C_set_block_item(((C_word*)t0)[9],0,C_fix(0));
t23=C_set_block_item(((C_word*)t0)[21],0,C_SCHEME_END_OF_LIST);
t24=C_set_block_item(((C_word*)t0)[22],0,C_fix(0));
t25=((C_word*)((C_word*)t0)[5])[1];
t26=C_i_caddr(t25);
t27=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_21947,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[22],a[4]=t17,a[5]=((C_word*)t0)[19],a[6]=t14,a[7]=((C_word*)t0)[20],a[8]=t15,a[9]=((C_word*)t0)[9],a[10]=t18,a[11]=((C_word*)t0)[21],a[12]=t16,a[13]=t19,a[14]=((C_word*)t0)[23],a[15]=((C_word*)t0)[24],a[16]=((C_word*)t0)[11],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp);
/* core.scm:2996: ##sys#decompose-lambda-list */
t28=*((C_word*)lf[189]+1);{
C_word av2[4];
av2[0]=t28;
av2[1]=((C_word*)t0)[2];
av2[2]=t26;
av2[3]=t27;
((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}}
else{
t14=C_eqp(((C_word*)t0)[4],lf[171]);
if(C_truep(t14)){
t15=((C_word*)((C_word*)t0)[5])[1];
t16=C_i_car(t15);
t17=C_i_car(((C_word*)t0)[11]);
t18=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22179,a[2]=t16,a[3]=((C_word*)t0)[19],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[16],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[13],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[5],a[12]=t17,tmp=(C_word)a,a+=13,tmp);
/* core.scm:3055: chicken.compiler.support#node-class */
t19=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t19;
av2[1]=t18;
av2[2]=t17;
((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}}
else{
t15=C_eqp(((C_word*)t0)[4],lf[637]);
if(C_truep(t15)){
t16=((C_word*)((C_word*)t0)[5])[1];
t17=C_i_car(t16);
t18=C_i_car(((C_word*)t0)[11]);
t19=C_a_i_cons(&a,2,t17,((C_word*)((C_word*)t0)[20])[1]);
t20=C_mutate(((C_word *)((C_word*)t0)[20])+1,t19);
t21=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22206,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[16],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[13],tmp=(C_word)a,a+=10,tmp);
/* core.scm:3070: walk */
t22=((C_word*)((C_word*)t0)[16])[1];
f_21631(t22,t21,t18,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[13]);}
else{
t16=C_eqp(((C_word*)t0)[4],lf[282]);
if(C_truep(t16)){
t17=((C_word*)((C_word*)t0)[5])[1];
t18=C_i_car(t17);
t19=C_i_car(((C_word*)t0)[11]);
t20=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_22229,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[16],a[4]=t19,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[13],a[8]=((C_word*)t0)[2],a[9]=t18,a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[25],a[12]=((C_word*)t0)[18],a[13]=((C_word*)t0)[26],a[14]=((C_word*)t0)[5],tmp=(C_word)a,a+=15,tmp);
/* core.scm:3076: posq */
f_7529(t20,t18,((C_word*)t0)[7]);}
else{
t17=C_eqp(((C_word*)t0)[4],lf[518]);
if(C_truep(t17)){
t18=C_i_cdr(((C_word*)t0)[11]);
t19=C_i_length(t18);
t20=C_i_cdr(((C_word*)((C_word*)t0)[5])[1]);
t21=C_i_pairp(t20);
t22=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_22362,a[2]=((C_word*)t0)[21],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[22],a[15]=t19,tmp=(C_word)a,a+=16,tmp);
if(C_truep(t21)){
t23=((C_word*)((C_word*)t0)[5])[1];
t24=t22;
f_22362(t24,C_i_cadr(t23));}
else{
t23=t22;
f_22362(t23,C_SCHEME_FALSE);}}
else{
t18=C_eqp(((C_word*)t0)[4],lf[536]);
if(C_truep(t18)){
t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp);
t20=((C_word*)((C_word*)t0)[5])[1];
if(C_truep(C_i_car(t20))){
t21=((C_word*)((C_word*)t0)[22])[1];
t22=C_mutate(((C_word *)((C_word*)t0)[22])+1,C_s_a_i_plus(&a,2,t21,C_fix(1)));
t23=t19;
f_22447(t23,t22);}
else{
t21=t19;
f_22447(t21,C_SCHEME_UNDEFINED);}}
else{
t19=C_eqp(((C_word*)t0)[4],lf[118]);
if(C_truep(t19)){
t20=((C_word*)((C_word*)t0)[5])[1];
t21=C_i_car(t20);
t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22474,a[2]=((C_word*)t0)[27],a[3]=((C_word*)t0)[2],a[4]=t21,a[5]=((C_word*)t0)[18],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_fixnump(t21))){
t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22583,a[2]=t22,tmp=(C_word)a,a+=3,tmp);
/* core.scm:3121: chicken.compiler.support#big-fixnum? */
t24=*((C_word*)lf[697]+1);{
C_word av2[3];
av2[0]=t24;
av2[1]=t23;
av2[2]=t21;
((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}}
else{
t23=t22;
f_22474(t23,C_SCHEME_FALSE);}}
else{
t20=C_eqp(((C_word*)t0)[4],lf[143]);
t21=(C_truep(t20)?t20:C_eqp(((C_word*)t0)[4],lf[634]));
if(C_truep(t21)){
t22=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22595,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[16],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp);
/* core.scm:3137: walk */
t23=((C_word*)((C_word*)t0)[16])[1];
f_21631(t23,t22,C_i_car(((C_word*)t0)[11]),((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[13]);}
else{
t22=C_eqp(((C_word*)t0)[4],lf[633]);
if(C_truep(t22)){
t23=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_22661,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[16],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],tmp=(C_word)a,a+=12,tmp);
/* core.scm:3149: walk */
t24=((C_word*)((C_word*)t0)[16])[1];
f_21631(t24,t23,C_i_car(((C_word*)t0)[11]),((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[13]);}
else{
t23=C_eqp(((C_word*)t0)[4],lf[186]);
if(C_truep(t23)){
t24=((C_word*)((C_word*)t0)[14])[1];
t25=C_a_i_cons(&a,2,t24,((C_word*)((C_word*)t0)[5])[1]);
t26=C_a_i_cons(&a,2,t25,((C_word*)((C_word*)t0)[15])[1]);
t27=C_mutate(((C_word *)((C_word*)t0)[15])+1,t26);
t28=((C_word*)((C_word*)t0)[14])[1];
t29=C_mutate(((C_word *)((C_word*)t0)[14])+1,C_s_a_i_plus(&a,2,t28,C_fix(1)));
/* core.scm:3173: chicken.compiler.support#make-node */
t30=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t30;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[4];
av2[3]=t25;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t30+1)))(5,av2);}}
else{
t24=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22774,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
/* core.scm:3175: mapwalk */
t25=((C_word*)((C_word*)t0)[10])[1];
f_22841(t25,t24,((C_word*)t0)[11],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[12],((C_word*)t0)[13]);}}}}}}}}}}}}}}}}}}}}}}

/* k21676 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21678(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(34,0,6)))){
C_save_and_reclaim_args((void *)trf_21678,2,t0,t1);}
a=C_alloc(34);
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21689,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2940: mapwalk */
t5=((C_word*)((C_word*)t0)[7])[1];
f_22841(t5,t4,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);}

/* k21687 in k21676 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21689(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21689,c,av);}
/* core.scm:2940: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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*)((C_word*)t0)[4])[1];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k21707 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21709(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_21709,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21713,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:2934: chicken.compiler.support#source-info->name */
t3=*((C_word*)lf[681]+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);}}

/* k21711 in k21707 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21713(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,1)))){
C_save_and_reclaim((void *)f_21713,c,av);}
a=C_alloc(47);
t2=C_a_i_list4(&a,4,((C_word*)((C_word*)t0)[2])[1],lf[680],((C_word*)t0)[3],t1);
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[4])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3);
t5=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[5])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,t5);
t7=((C_word*)((C_word*)t0)[2])[1];
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t7,C_fix(1)));
t9=((C_word*)t0)[6];
f_21678(t9,t8);}

/* k21732 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21734(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21734,c,av);}
/* core.scm:2944: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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*)((C_word*)t0)[4])[1];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k21753 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21755(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21755,c,av);}
/* core.scm:2948: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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*)((C_word*)t0)[4])[1];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k21770 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21772(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_21772,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
/* core.scm:2952: chicken.compiler.support#make-node */
t4=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)((C_word*)t0)[5])[1];
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k21774 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21776(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21776,c,av);}
/* core.scm:2951: chicken.compiler.support#bytes->words */
t2=*((C_word*)lf[338]+1);{
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);}}

/* k21795 in k21799 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21797,c,av);}
/* core.scm:2956: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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*)((C_word*)t0)[4])[1];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k21799 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21801(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,6)))){
C_save_and_reclaim((void *)f_21801,c,av);}
a=C_alloc(34);
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21797,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);
/* core.scm:2956: mapwalk */
t5=((C_word*)((C_word*)t0)[6])[1];
f_22841(t5,t4,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}

/* k21803 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21805(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21805,c,av);}
/* core.scm:2955: chicken.compiler.support#bytes->words */
t2=*((C_word*)lf[338]+1);{
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);}}

/* k21824 */
static void C_ccall f_21826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21826,c,av);}
/* core.scm:2960: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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[621];
av2[3]=((C_word*)((C_word*)t0)[3])[1];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k21849 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21851(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21851,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:2964: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[620];
av2[3]=((C_word*)((C_word*)t0)[3])[1];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k21865 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21867(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_21867,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21877,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21897,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
/* core.scm:2970: chicken.compiler.support#node-class */
t4=*((C_word*)lf[97]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k21875 in k21865 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_21877(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){
C_save_and_reclaim_args((void *)trf_21877,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
/* core.scm:2969: chicken.compiler.support#make-node */
t4=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[627];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
/* core.scm:2969: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* k21891 in k21895 in k21865 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21893,c,av);}
t2=((C_word*)t0)[2];
f_21877(t2,C_i_memq(C_i_car(t1),((C_word*)t0)[3]));}

/* k21895 in k21865 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21897(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21897,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21893,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2971: chicken.compiler.support#node-parameters */
t4=*((C_word*)lf[522]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_21877(t3,C_SCHEME_FALSE);}}

/* k21904 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21906(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
C_save_and_reclaim((void *)f_21906,c,av);}
a=C_alloc(32);
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(8));
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=C_a_i_list1(&a,1,t1);
/* core.scm:2982: chicken.compiler.support#make-node */
t5=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t4;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21947(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;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_21947,c,av);}
a=C_alloc(28);
t5=((C_word*)((C_word*)t0)[2])[1];
t6=C_i_car(t5);
t7=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_21954,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],a[11]=((C_word*)t0)[2],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=t3,a[15]=((C_word*)t0)[13],a[16]=t6,a[17]=t2,a[18]=t4,a[19]=((C_word*)t0)[14],a[20]=((C_word*)t0)[15],a[21]=((C_word*)t0)[16],a[22]=((C_word*)t0)[17],tmp=(C_word)a,a+=23,tmp);
if(C_truep(t4)){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22082,a[2]=t7,a[3]=((C_word*)t0)[15],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
/* core.scm:3002: chicken.compiler.support#db-get */
t9=*((C_word*)lf[535]+1);{
C_word *av2=av;
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[15];
av2[3]=t4;
av2[4]=lf[571];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}
else{
t8=t7;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_21954(2,av2);}}}

/* k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21954(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){
C_save_and_reclaim((void *)f_21954,c,av);}
a=C_alloc(33);
t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_21957,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=t1,a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp);
t3=C_i_car(((C_word*)t0)[21]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22052,a[2]=t1,a[3]=((C_word*)t0)[17],a[4]=((C_word*)t0)[22],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[16],tmp=(C_word)a,a+=8,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22073,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=C_eqp(lf[685],t1);
if(C_truep(t6)){
/* core.scm:3010: chicken.base#butlast */
t7=*((C_word*)lf[688]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=((C_word*)t0)[17];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
/* core.scm:3009: ##sys#fast-reverse */
t7=*((C_word*)lf[687]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t4;
av2[2]=((C_word*)t0)[17];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}

/* k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21957(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,5)))){
C_save_and_reclaim((void *)f_21957,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_21960,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=t1,a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],tmp=(C_word)a,a+=23,tmp);
t3=C_eqp(((C_word*)t0)[19],lf[685]);
if(C_truep(t3)){
/* core.scm:3018: chicken.compiler.support#debugging */
t4=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[642];
av2[3]=lf[686];
av2[4]=((C_word*)t0)[18];
av2[5]=((C_word*)t0)[16];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_21960(2,av2);}}}

/* k21958 in k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_21960(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,5)))){
C_save_and_reclaim((void *)f_21960,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_21963,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],tmp=(C_word)a,a+=23,tmp);
t3=(C_truep(((C_word*)t0)[15])?((C_word*)t0)[18]:C_SCHEME_FALSE);
if(C_truep(t3)){
/* core.scm:3020: chicken.compiler.support#bomb */
t4=*((C_word*)lf[528]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[684];
av2[3]=((C_word*)t0)[16];
av2[4]=((C_word*)((C_word*)t0)[8])[1];
av2[5]=((C_word*)t0)[18];
((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_21963(2,av2);}}}

/* k21961 in k21958 in k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_21963(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(63,c,4)))){
C_save_and_reclaim((void *)f_21963,c,av);}
a=C_alloc(63);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_21966,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],tmp=(C_word)a,a+=15,tmp);
t3=((C_word*)((C_word*)t0)[11])[1];
t4=C_i_cadr(t3);
t5=((C_word*)((C_word*)t0)[4])[1];
t6=C_s_a_i_plus(&a,2,t5,C_fix(1));
t7=(C_truep(((C_word*)t0)[15])?((C_word*)t0)[15]:C_i_memq(((C_word*)t0)[16],lf[67]));
t8=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_22003,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[16],a[6]=t4,a[7]=((C_word*)t0)[17],a[8]=((C_word*)t0)[14],a[9]=((C_word*)t0)[18],a[10]=t6,a[11]=t7,a[12]=((C_word*)t0)[19],a[13]=((C_word*)t0)[20],a[14]=((C_word*)t0)[15],a[15]=t2,a[16]=((C_word*)t0)[21],a[17]=((C_word*)t0)[22],a[18]=((C_word*)t0)[2],tmp=(C_word)a,a+=19,tmp);
/* core.scm:3035: chicken.compiler.support#db-get */
t9=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=((C_word*)t0)[22];
av2[3]=((C_word*)t0)[16];
av2[4]=lf[605];
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* k21964 in k21961 in k21958 in k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_21966(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_21966,c,av);}
a=C_alloc(5);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]);
t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]);
t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21974,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp);
/* core.scm:3049: lset-adjoin/eq? */
t7=lf[11];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[13];
av2[3]=((C_word*)t0)[14];
f_7145(4,av2);}}

/* k21972 in k21964 in k21961 in k21958 in k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_21974(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21974,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)((C_word*)t0)[3])[1];
t4=C_i_car(t3);
t5=C_a_i_list1(&a,1,t4);
/* core.scm:3050: chicken.compiler.support#make-node */
t6=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[556];
av2[3]=t5;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k22001 in k21961 in k21958 in k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_22003(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,5)))){
C_save_and_reclaim((void *)f_22003,c,av);}
a=C_alloc(22);
t2=(C_truep(t1)?t1:C_fix(0));
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_22010,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]=t2,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(C_i_not(((C_word*)t0)[9]))){
if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[18])[1],C_fix(0)))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22029,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* core.scm:3039: chicken.compiler.support#debugging */
t5=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[642];
av2[3]=lf[683];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)((C_word*)t0)[18])[1];
((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
else{
t4=t3;
f_22010(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_22010(t4,C_SCHEME_FALSE);}}

/* k22008 in k22001 in k21961 in k21958 in k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_22010(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){
C_save_and_reclaim_args((void *)trf_22010,2,t0,t1);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_22014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t1,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
if(C_truep(((C_word*)t0)[15])){
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[15];
f_22014(2,av2);}}
else{
/* core.scm:3041: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word av2[5];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[18];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[599];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k22012 in k22008 in k22001 in k21961 in k21958 in k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_22014(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_22014,c,av);}
a=C_alloc(18);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=((C_word*)((C_word*)t0)[3])[1];
t4=((C_word*)((C_word*)t0)[4])[1];
t5=C_a_i_record(&a,17,lf[648],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],t2,t3,t4,((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[13],t1,((C_word*)t0)[14],((C_word*)t0)[15],((C_word*)t0)[16]);
/* core.scm:3021: chicken.internal#hash-table-set! */
t6=*((C_word*)lf[110]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=((C_word*)t0)[17];
av2[2]=((C_word*)t0)[18];
av2[3]=((C_word*)t0)[5];
av2[4]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k22027 in k22001 in k21961 in k21958 in k21955 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_22029(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22029,c,av);}
t2=((C_word*)t0)[2];
f_22010(t2,C_SCHEME_TRUE);}

/* k22050 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22052(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_22052,c,av);}
t2=C_eqp(lf[685],((C_word*)t0)[2]);
if(C_truep(t2)){
t3=C_i_length(((C_word*)t0)[3]);
/* core.scm:3007: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_21631(t4,((C_word*)t0)[5],((C_word*)t0)[6],t1,C_fixnum_difference(t3,C_fix(1)),((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}
else{
/* core.scm:3007: walk */
t3=((C_word*)((C_word*)t0)[4])[1];
f_21631(t3,((C_word*)t0)[5],((C_word*)t0)[6],t1,C_i_length(((C_word*)t0)[3]),((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}}

/* k22071 in k21952 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22073,c,av);}
/* core.scm:3009: ##sys#fast-reverse */
t2=*((C_word*)lf[687]+1);{
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);}}

/* k22080 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22082(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22082,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22088,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);
/* core.scm:3003: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[548];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22086 in k22080 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22088(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22088,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[545];
f_21954(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22113,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
/* core.scm:3004: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[626];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k22111 in k22086 in k22080 in a21946 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22113(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22113,c,av);}
if(C_truep(C_i_not(t1))){
t2=C_i_not(((C_word*)t0)[2]);
if(C_truep(t2)){
if(C_truep(t2)){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[685];
f_21954(2,av2);}}
else{
/* core.scm:3006: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[544];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
else{
if(C_truep(C_i_nullp(((C_word*)t0)[2]))){
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[685];
f_21954(2,av2);}}
else{
/* core.scm:3006: chicken.compiler.support#db-get */
t3=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[544];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}}
else{
/* core.scm:3006: chicken.compiler.support#db-get */
t2=*((C_word*)lf[535]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[544];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* k22143 in k22177 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22145(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_22145,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22149,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_i_cadr(((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22157,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22169,a[2]=t4,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp);
/* core.scm:3061: ##sys#fast-reverse */
t6=*((C_word*)lf[687]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)((C_word*)t0)[11])[1];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k22147 in k22143 in k22177 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22149(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22149,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:3057: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[689];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22155 in k22143 in k22177 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22157(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_22157,c,av);}
a=C_alloc(8);
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22165,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
/* core.scm:3062: scheme#append */
t4=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k22163 in k22155 in k22143 in k22177 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22165(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_22165,c,av);}
/* core.scm:3060: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_21631(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);}

/* k22167 in k22143 in k22177 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22169,c,av);}
/* core.scm:3061: scheme#append */
t2=*((C_word*)lf[5]+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);}}

/* k22177 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22179(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,6)))){
C_save_and_reclaim((void *)f_22179,c,av);}
a=C_alloc(47);
t2=C_eqp(lf[620],t1);
t3=(C_truep(t2)?C_a_i_list1(&a,1,((C_word*)t0)[2]):C_SCHEME_END_OF_LIST);
t4=((C_word*)((C_word*)t0)[3])[1];
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t4,C_fix(1)));
t6=C_a_i_list1(&a,1,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_22145,a[2]=((C_word*)t0)[4],a[3]=t6,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]=t3,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);
/* core.scm:3059: walk */
t8=((C_word*)((C_word*)t0)[7])[1];
f_21631(t8,t7,((C_word*)t0)[12],((C_word*)t0)[10],((C_word*)t0)[6],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k22204 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22206(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_22206,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22210,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:3071: walk */
t3=((C_word*)((C_word*)t0)[4])[1];
f_21631(t3,t2,C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k22208 in k22204 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22210(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22210,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
/* core.scm:3068: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
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[637];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22229(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
C_save_and_reclaim((void *)f_22229,c,av);}
a=C_alloc(15);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22233,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);
/* core.scm:3076: g5126 */
t3=t2;
f_22233(t3,((C_word*)t0)[8],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_22263,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[4],tmp=(C_word)a,a+=15,tmp);
/* core.scm:3082: chicken.compiler.support#node-class */
t3=*((C_word*)lf[97]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* g5126 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22233(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;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,6)))){
C_save_and_reclaim_args((void *)trf_22233,3,t0,t1,t2);}
a=C_alloc(7);
t3=C_fixnum_plus(t2,C_fix(1));
t4=C_fixnum_difference(((C_word*)t0)[2],t3);
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22249,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* core.scm:3080: walk */
t7=((C_word*)((C_word*)t0)[3])[1];
f_21631(t7,t6,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k22247 in g5126 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22249(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22249,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:3078: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[690];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22261 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22263(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_22263,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_22347,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]=t1,a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
/* core.scm:3083: chicken.compiler.support#variable-visible? */
t3=*((C_word*)lf[566]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=*((C_word*)lf[25]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k22267 in k22345 in k22261 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22269(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_22269,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_22272,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],tmp=(C_word)a,a+=14,tmp);
if(C_truep(t1)){
t3=t2;
f_22272(t3,t1);}
else{
t3=C_i_cdr(((C_word*)((C_word*)t0)[14])[1]);
if(C_truep(C_i_pairp(t3))){
t4=((C_word*)((C_word*)t0)[14])[1];
t5=C_i_cadr(t4);
t6=t2;
f_22272(t6,(C_truep(t5)?t5:C_eqp(lf[393],((C_word*)t0)[15])));}
else{
t4=t2;
f_22272(t4,C_eqp(lf[393],((C_word*)t0)[15]));}}}

/* k22270 in k22267 in k22345 in k22261 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_22272(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(43,0,2)))){
C_save_and_reclaim_args((void *)trf_22272,2,t0,t1);}
a=C_alloc(43);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_22275,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=((C_word*)((C_word*)t0)[13])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[13])+1,C_s_a_i_plus(&a,2,t3,C_fix(1)));
t5=t2;
f_22275(t5,t4);}
else{
t3=t2;
f_22275(t3,C_SCHEME_UNDEFINED);}}

/* k22273 in k22270 in k22267 in k22345 in k22261 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_22275(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_22275,2,t0,t1);}
a=C_alloc(12);
t2=(C_truep(((C_word*)t0)[2])?lf[691]:lf[692]);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_22302,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,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)[3])){
/* core.scm:3092: blockvar-literal */
t4=((C_word*)((C_word*)t0)[12])[1];
f_22949(t4,t3,((C_word*)t0)[4]);}
else{
/* core.scm:3093: literal */
t4=((C_word*)((C_word*)t0)[13])[1];
f_22892(t4,t3,((C_word*)t0)[4]);}}

/* k22292 in k22300 in k22273 in k22270 in k22267 in k22345 in k22261 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_22294(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22294,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:3089: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22300 in k22273 in k22270 in k22267 in k22345 in k22261 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_22302(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){
C_save_and_reclaim((void *)f_22302,c,av);}
a=C_alloc(14);
t2=C_a_i_list3(&a,3,t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22294,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:3096: walk */
t4=((C_word*)((C_word*)t0)[6])[1];
f_21631(t4,t3,C_i_car(((C_word*)t0)[7]),((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}

/* k22341 in k22345 in k22261 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22343(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22343,c,av);}
/* core.scm:3085: chicken.compiler.support#immediate? */
t2=*((C_word*)lf[631]+1);{
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_i_car(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k22345 in k22261 in k22227 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22347(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_22347,c,av);}
a=C_alloc(19);
t2=C_i_not(t1);
t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_22269,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],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);
t4=C_eqp(((C_word*)t0)[14],lf[118]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22343,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* core.scm:3085: chicken.compiler.support#node-parameters */
t6=*((C_word*)lf[522]+1);{
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{
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_22269(2,av2);}}}

/* k22360 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22362(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
C_save_and_reclaim_args((void *)trf_22362,2,t0,t1);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_22366,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
/* core.scm:3102: lset-adjoin/eq? */
t3=lf[11];{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=((C_word*)t0)[15];
f_7145(4,av2);}}

/* k22364 in k22360 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22366(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_22366,c,av);}
a=C_alloc(18);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_22369,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],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22410,a[2]=((C_word*)t0)[15],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_i_length(((C_word*)((C_word*)t0)[5])[1]);
if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(3)))){
t6=((C_word*)((C_word*)t0)[5])[1];
t7=t4;
f_22410(t7,C_eqp(((C_word*)t0)[10],C_i_caddr(t6)));}
else{
t6=t4;
f_22410(t6,C_SCHEME_FALSE);}}

/* k22367 in k22364 in k22360 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22369(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;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
C_save_and_reclaim_args((void *)trf_22369,2,t0,t1);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22372,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);
t3=(C_truep(*((C_word*)lf[24]+1))?((C_word*)t0)[11]:C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22399,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[13],a[5]=t2,a[6]=((C_word*)t0)[11],tmp=(C_word)a,a+=7,tmp);
/* core.scm:3107: chicken.compiler.support#source-info->line */
t5=*((C_word*)lf[682]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4);
t6=t2;
f_22372(t6,t5);}}

/* k22370 in k22367 in k22364 in k22360 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22372(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){
C_save_and_reclaim_args((void *)trf_22372,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22379,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);
/* core.scm:3113: mapwalk */
t3=((C_word*)((C_word*)t0)[5])[1];
f_22841(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k22377 in k22370 in k22367 in k22364 in k22360 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_22379(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22379,c,av);}
/* core.scm:3113: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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*)((C_word*)t0)[4])[1];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22397 in k22367 in k22364 in k22360 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22399(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_22399,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22403,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:3108: chicken.compiler.support#source-info->name */
t3=*((C_word*)lf[681]+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);}}

/* k22401 in k22397 in k22367 in k22364 in k22360 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_22403(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,1)))){
C_save_and_reclaim((void *)f_22403,c,av);}
a=C_alloc(47);
t2=C_a_i_list4(&a,4,((C_word*)((C_word*)t0)[2])[1],lf[680],((C_word*)t0)[3],t1);
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[4])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3);
t5=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[5])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,t5);
t7=((C_word*)((C_word*)t0)[2])[1];
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t7,C_fix(1)));
t9=((C_word*)t0)[6];
f_22372(t9,t8);}

/* k22408 in k22364 in k22360 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22410(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){
C_save_and_reclaim_args((void *)trf_22410,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=((C_word*)t0)[3];
f_22369(t4,t3);}
else{
t2=((C_word*)t0)[3];
f_22369(t2,C_SCHEME_UNDEFINED);}}

/* k22445 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22447(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){
C_save_and_reclaim_args((void *)trf_22447,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22454,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);
/* core.scm:3117: mapwalk */
t3=((C_word*)((C_word*)t0)[5])[1];
f_22841(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k22452 in k22445 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22454(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22454,c,av);}
/* core.scm:3117: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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*)((C_word*)t0)[4])[1];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22474(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_22474,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
/* core.scm:3122: immediate-literal */
f_22993(((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
if(C_truep(C_i_numberp(((C_word*)t0)[4]))){
t2=C_eqp(lf[416],*((C_word*)lf[415]+1));
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_integerp(((C_word*)t0)[4]))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22542,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* core.scm:3125: chicken.compiler.support#big-fixnum? */
t5=*((C_word*)lf[697]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t3;
f_22495(t4,C_SCHEME_FALSE);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22553,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* core.scm:3132: literal */
t4=((C_word*)((C_word*)t0)[5])[1];
f_22892(t4,t3,((C_word*)t0)[4]);}}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22559,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);
/* core.scm:3133: chicken.compiler.support#immediate? */
t3=*((C_word*)lf[631]+1);{
C_word av2[3];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}

/* k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22495(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_22495,2,t0,t1);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22498,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22509,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:3127: chicken.base#open-output-string */
t4=*((C_word*)lf[133]+1);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:3131: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+1);{
C_word av2[4];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[696];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k22496 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22498(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22498,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22505,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:3130: scheme#inexact->exact */
t3=*((C_word*)lf[693]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k22503 in k22496 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22505,c,av);}
/* core.scm:3130: immediate-literal */
f_22993(((C_word*)t0)[3],t1);}

/* k22507 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22509(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22509,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22515,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:3127: ##sys#print */
t4=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[695];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k22513 in k22507 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22515(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22515,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22518,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);
/* core.scm:3127: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22516 in k22513 in k22507 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_22518(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22518,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22521,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);
/* core.scm:3127: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[694];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22519 in k22516 in k22513 in k22507 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_22521(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_22521,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22524,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22531,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:3129: scheme#inexact->exact */
t4=*((C_word*)lf[693]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22522 in k22519 in k22516 in k22513 in k22507 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_22524(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22524,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22527,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:3127: chicken.base#get-output-string */
t3=*((C_word*)lf[129]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k22525 in k22522 in k22519 in k22516 in k22513 in k22507 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_22527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22527,c,av);}
/* core.scm:3126: chicken.base#warning */
t2=*((C_word*)lf[135]+1);{
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);}}

/* k22529 in k22519 in k22516 in k22513 in k22507 in k22493 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_22531(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22531,c,av);}
/* core.scm:3127: ##sys#print */
t2=*((C_word*)lf[130]+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_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k22540 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22542(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22542,c,av);}
t2=((C_word*)t0)[2];
f_22495(t2,C_i_not(t1));}

/* k22551 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22553(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22553,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:3132: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[678];
av2[3]=t2;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22557 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22559(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22559,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
/* core.scm:3133: immediate-literal */
f_22993(((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22573,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* core.scm:3134: literal */
t3=((C_word*)((C_word*)t0)[5])[1];
f_22892(t3,t2,((C_word*)t0)[4]);}}

/* k22571 in k22557 in k22472 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22573(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22573,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
/* core.scm:3134: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[678];
av2[3]=t2;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k22581 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22583(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22583,c,av);}
t2=((C_word*)t0)[2];
f_22474(t2,C_i_not(t1));}

/* k22593 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22595(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){
C_save_and_reclaim((void *)f_22595,c,av);}
a=C_alloc(16);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=((C_word*)((C_word*)t0)[3])[1];
t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_22598,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t2,a[6]=t1,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],a[15]=((C_word*)t0)[12],tmp=(C_word)a,a+=16,tmp);
/* core.scm:3140: walk */
t5=((C_word*)((C_word*)t0)[7])[1];
f_21631(t5,t4,C_i_cadr(((C_word*)t0)[8]),((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);}

/* k22596 in k22593 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22598(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,6)))){
C_save_and_reclaim((void *)f_22598,c,av);}
a=C_alloc(13);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=((C_word*)((C_word*)t0)[3])[1];
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22601,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=t2,a[12]=t3,tmp=(C_word)a,a+=13,tmp);
/* core.scm:3143: walk */
t5=((C_word*)((C_word*)t0)[10])[1];
f_21631(t5,t4,C_i_caddr(((C_word*)t0)[11]),((C_word*)t0)[12],((C_word*)t0)[13],((C_word*)t0)[14],((C_word*)t0)[15]);}

/* k22599 in k22596 in k22593 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22601(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(71,c,3)))){
C_save_and_reclaim((void *)f_22601,c,av);}
a=C_alloc(71);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22632,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
t3=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[12]);
t4=C_s_a_i_minus(&a,2,((C_word*)t0)[12],((C_word*)t0)[2]);
/* core.scm:3144: scheme#max */
t5=*((C_word*)lf[698]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k22618 in k22630 in k22599 in k22596 in k22593 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_22620(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){
C_save_and_reclaim((void *)f_22620,c,av);}
a=C_alloc(38);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=C_a_i_list3(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
/* core.scm:3146: chicken.compiler.support#make-node */
t5=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[7];
av2[2]=((C_word*)t0)[8];
av2[3]=((C_word*)((C_word*)t0)[9])[1];
av2[4]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k22630 in k22599 in k22596 in k22593 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22632(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(97,c,3)))){
C_save_and_reclaim((void *)f_22632,c,av);}
a=C_alloc(97);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22620,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp);
t5=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[12]);
t6=C_s_a_i_minus(&a,2,((C_word*)t0)[12],((C_word*)t0)[4]);
/* core.scm:3145: scheme#max */
t7=*((C_word*)lf[698]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t4;
av2[2]=t5;
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22661(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){
C_save_and_reclaim((void *)f_22661,c,av);}
a=C_alloc(18);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22672,a[2]=t1,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);
t4=((C_word*)((C_word*)t0)[5])[1];
t5=C_i_car(t4);
t6=C_i_cdr(((C_word*)t0)[6]);
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|9,a[1]=(C_word)f_22682,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=t8,tmp=(C_word)a,a+=10,tmp));
t10=((C_word*)t8)[1];
f_22682(t10,t3,t5,t6,C_fix(0));}

/* k22670 in k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22672(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22672,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
/* core.scm:3151: chicken.compiler.support#make-node */
t3=*((C_word*)lf[484]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)((C_word*)t0)[5])[1];
av2[4]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* loop in k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22682(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;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,6)))){
C_save_and_reclaim_args((void *)trf_22682,5,t0,t1,t2,t3,t4);}
a=C_alloc(14);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
if(C_truep(C_i_zerop(t2))){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22691,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
/* core.scm:3159: walk */
t7=((C_word*)((C_word*)t0)[4])[1];
f_21631(t7,t6,C_i_car(t3),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
else{
t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_22713,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t4,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[8],tmp=(C_word)a,a+=14,tmp);
/* core.scm:3162: walk */
t7=((C_word*)((C_word*)t0)[4])[1];
f_21631(t7,t6,C_i_car(t3),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}}

/* k22689 in loop in k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22691(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){
C_save_and_reclaim((void *)f_22691,c,av);}
a=C_alloc(35);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22702,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
t3=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[2]);
/* core.scm:3160: scheme#max */
t4=*((C_word*)lf[698]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k22700 in k22689 in loop in k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22702(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_22702,c,av);}
a=C_alloc(32);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[5]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k22711 in loop in k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22713(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){
C_save_and_reclaim((void *)f_22713,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22716,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:3163: walk */
t3=((C_word*)((C_word*)t0)[9])[1];
f_21631(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[13]);}

/* k22714 in k22711 in loop in k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22716(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(69,c,3)))){
C_save_and_reclaim((void *)f_22716,c,av);}
a=C_alloc(69);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[4],C_fix(1));
t4=C_i_cddr(((C_word*)t0)[5]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22733,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t6=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8]);
/* core.scm:3166: scheme#max */
t7=*((C_word*)lf[698]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
av2[3]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k22721 in k22714 in k22711 in loop in k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_22723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_22723,c,av);}
a=C_alloc(6);
/* core.scm:3164: cons* */
f_6750(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));}

/* k22731 in k22714 in k22711 in loop in k22659 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_22733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22733,c,av);}
/* core.scm:3166: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_22682(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k22772 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22774(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22774,c,av);}
/* core.scm:3175: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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*)((C_word*)t0)[4])[1];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* mapwalk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22841(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_22841,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(20);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22846,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
t12=C_i_check_list_2(t2,lf[10]);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22858,a[2]=t9,a[3]=t14,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_22858(t16,t1,t2);}

/* g5224 in mapwalk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22846(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){
C_save_and_reclaim_args((void *)trf_22846,3,t0,t1,t2);}
/* core.scm:3178: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_21631(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* map-loop5218 in mapwalk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22858(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_22858,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_22883,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);
/* core.scm:3178: g5224 */
t4=((C_word*)t0)[4];
f_22846(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);}}}

/* k22881 in map-loop5218 in mapwalk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22883(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22883,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_22858(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22892(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_22892,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22899,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* core.scm:3181: chicken.compiler.support#immediate? */
t4=*((C_word*)lf[631]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22897 in literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22899(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){
C_save_and_reclaim((void *)f_22899,c,av);}
a=C_alloc(35);
if(C_truep(t1)){
/* core.scm:3181: immediate-literal */
f_22993(((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t2=(C_truep(C_blockp(((C_word*)t0)[4]))?C_lambdainfop(((C_word*)t0)[4]):C_SCHEME_FALSE);
if(C_truep(t2)){
t3=((C_word*)((C_word*)t0)[5])[1];
t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)((C_word*)t0)[6])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[6])+1,t4);
t6=((C_word*)((C_word*)t0)[5])[1];
t7=C_mutate(((C_word *)((C_word*)t0)[5])+1,C_s_a_i_plus(&a,2,t6,C_fix(1)));
t8=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_vector1(&a,1,t3);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t3=((C_word*)((C_word*)t0)[7])[1];
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7569,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t5=(
  f_7569(t4,C_fix(0),t3)
);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22924,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
/* core.scm:3181: g5254 */
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=(
/* core.scm:3181: g5254 */
  f_22924(t6,t5)
);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
/* core.scm:3190: new-literal */
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=(
/* core.scm:3190: new-literal */
  f_22940(C_a_i(&a,32),((C_word*)((C_word*)t0)[9])[1],((C_word*)t0)[4])
);
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}

/* g5254 in k22897 in literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_22924(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],C_fixnum_plus(t1,C_fix(1))));}

/* new-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_22940(C_word *a,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_stack_overflow_check;{}
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[3])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t5=((C_word*)((C_word*)t0)[2])[1];
t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t5,C_fix(1)));
return(t2);}

/* blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22949(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;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){
C_save_and_reclaim_args((void *)trf_22949,3,t0,t1,t2);}
a=C_alloc(15);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22953,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22977,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=((C_word*)((C_word*)t0)[4])[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_7117,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_7117(t9,t3,C_fix(0),t5);}

/* k22951 in blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22953(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22953,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22957,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:3199: g5270 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
/* core.scm:3199: g5270 */
  f_22957(t2,t1)
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22975,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:3205: chicken.compiler.support#make-block-variable-literal */
t3=*((C_word*)lf[699]+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)[5];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* g5270 in k22951 in blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_22957(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],C_fixnum_plus(t1,C_fix(1))));}

/* k22973 in k22951 in blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22975(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_22975,c,av);}
a=C_alloc(32);
/* core.scm:3205: new-literal */
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(
/* core.scm:3205: new-literal */
  f_22940(C_a_i(&a,32),((C_word*)((C_word*)t0)[3])[1],t1)
);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a22976 in blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22977(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_22977,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22984,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:3201: chicken.compiler.support#block-variable-literal? */
t4=*((C_word*)lf[701]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k22982 in a22976 in blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22984(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_22984,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22991,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:3202: chicken.compiler.support#block-variable-literal-name */
t3=*((C_word*)lf[700]+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)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k22989 in k22982 in a22976 in blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_22991(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22991,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_eqp(((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* immediate-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_22993(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;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_22993,2,t1,t2);}
a=C_alloc(9);
t3=*((C_word*)lf[702]+1);
t4=C_eqp(*((C_word*)lf[702]+1),t2);
if(C_truep(t4)){
/* core.scm:3209: chicken.compiler.support#make-node */
t5=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t5;
av2[1]=t1;
av2[2]=lf[393];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23010,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnump(t2))){
t6=C_a_i_list(&a,2,lf[704],t2);
/* core.scm:3210: chicken.compiler.support#make-node */
t7=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[703];
av2[3]=t6;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
if(C_truep(C_booleanp(t2))){
t6=C_a_i_list(&a,2,lf[705],t2);
/* core.scm:3210: chicken.compiler.support#make-node */
t7=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t1;
av2[2]=lf[703];
av2[3]=t6;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
if(C_truep(C_charp(t2))){
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_a_i_list(&a,2,lf[706],t2);
f_23010(2,av2);}}
else{
if(C_truep(C_i_nullp(t2))){
/* core.scm:3210: chicken.compiler.support#make-node */
t6=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[703];
av2[3]=lf[707];
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
if(C_truep(C_eofp(t2))){
/* core.scm:3210: chicken.compiler.support#make-node */
t6=*((C_word*)lf[484]+1);{
C_word av2[5];
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[703];
av2[3]=lf[708];
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}
else{
/* core.scm:3216: chicken.compiler.support#bomb */
t6=*((C_word*)lf[528]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[709];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}}}}}

/* k23008 in immediate-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23010(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23010,c,av);}
/* core.scm:3210: chicken.compiler.support#make-node */
t2=*((C_word*)lf[484]+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[703];
av2[3]=t1;
av2[4]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k23054 in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23056(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){
C_save_and_reclaim((void *)f_23056,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23059,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);
/* core.scm:3220: walk */
t3=((C_word*)((C_word*)t0)[10])[1];
f_21631(t3,t2,((C_word*)t0)[11],C_SCHEME_END_OF_LIST,C_fix(0),C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);}

/* k23057 in k23054 in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23059(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_23059,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23062,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t3=((C_word*)((C_word*)t0)[9])[1];
if(C_truep(C_i_positivep(t3))){
/* core.scm:3222: chicken.compiler.support#debugging */
t4=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[642];
av2[3]=lf[712];
av2[4]=((C_word*)((C_word*)t0)[9])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_23062(2,av2);}}}

/* k23060 in k23057 in k23054 in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23062(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_23062,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23065,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_word*)((C_word*)t0)[9])[1];
if(C_truep(C_i_positivep(t3))){
/* core.scm:3224: chicken.compiler.support#debugging */
t4=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[642];
av2[3]=lf[711];
av2[4]=((C_word*)((C_word*)t0)[9])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_23065(2,av2);}}}

/* k23063 in k23060 in k23057 in k23054 in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23065(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_23065,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23068,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_word*)((C_word*)t0)[8])[1];
if(C_truep(C_i_positivep(t3))){
/* core.scm:3226: chicken.compiler.support#debugging */
t4=*((C_word*)lf[587]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=lf[642];
av2[3]=lf[710];
av2[4]=((C_word*)((C_word*)t0)[8])[1];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_23068(2,av2);}}}

/* k23066 in k23063 in k23060 in k23057 in k23054 in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23068(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_23068,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23075,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);
/* core.scm:3228: ##sys#fast-reverse */
t3=*((C_word*)lf[687]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[7])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k23073 in k23066 in k23063 in k23060 in k23057 in k23054 in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23075(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_23075,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:3229: ##sys#fast-reverse */
t3=*((C_word*)lf[687]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k23077 in k23073 in k23066 in k23063 in k23060 in k23057 in k23054 in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23079(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_23079,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23083,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:3231: scheme#reverse */
t3=*((C_word*)lf[229]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k23081 in k23077 in k23073 in k23066 in k23063 in k23060 in k23057 in k23054 in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_23083(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_23083,c,av);}
/* core.scm:3227: scheme#values */{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
av2[6]=t1;
C_values(7,av2);}}

/* k6268 */
static void C_ccall f_6270(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6270,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6273,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);}}

/* k6271 in k6268 */
static void C_ccall f_6273(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6273,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6276,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_expand_toplevel(2,av2);}}

/* k6274 in k6271 in k6268 */
static void C_ccall f_6276(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6276,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6279,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);}}

/* k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6279(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6279,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6282,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);}}

/* k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6282(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6282,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6285,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_scrutinizer_toplevel(2,av2);}}

/* k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6285(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6285,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6288,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);}}

/* k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6288(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6288,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6291,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_file_toplevel(2,av2);}}

/* k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6291,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6294,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);}}

/* k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6294(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6294,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6297,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_pathname_toplevel(2,av2);}}

/* k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6297(C_word c,C_word *av){
C_word tmp;
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 t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word t57;
C_word t58;
C_word t59;
C_word t60;
C_word t61;
C_word t62;
C_word t63;
C_word t64;
C_word t65;
C_word t66;
C_word t67;
C_word t68;
C_word t69;
C_word t70;
C_word t71;
C_word t72;
C_word t73;
C_word t74;
C_word t75;
C_word t76;
C_word t77;
C_word t78;
C_word t79;
C_word t80;
C_word t81;
C_word t82;
C_word t83;
C_word t84;
C_word t85;
C_word t86;
C_word t87;
C_word t88;
C_word t89;
C_word t90;
C_word t91;
C_word t92;
C_word t93;
C_word t94;
C_word t95;
C_word t96;
C_word t97;
C_word t98;
C_word t99;
C_word t100;
C_word t101;
C_word t102;
C_word t103;
C_word t104;
C_word t105;
C_word t106;
C_word t107;
C_word t108;
C_word t109;
C_word t110;
C_word t111;
C_word t112;
C_word t113;
C_word t114;
C_word t115;
C_word t116;
C_word t117;
C_word t118;
C_word t119;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(108,c,9)))){
C_save_and_reclaim((void *)f_6297,c,av);}
a=C_alloc(108);
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.core#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6686,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[3] /* (set! chicken.compiler.core#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6750,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate(&lf[4] /* (set! chicken.compiler.core#concatenate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6778,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[6] /* (set! chicken.compiler.core#delete ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6806,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate(&lf[7] /* (set! chicken.compiler.core#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_6926,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[9] /* (set! chicken.compiler.core#unzip1 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7035,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[11] /* (set! chicken.compiler.core#lset-adjoin/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7145,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[12] /* (set! chicken.compiler.core#lset-difference/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7186,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[13] /* (set! chicken.compiler.core#lset-union/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7231,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[15] /* (set! chicken.compiler.core#lset-intersection/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7310,tmp=(C_word)a,a+=2,tmp));
t14=C_mutate(&lf[16] /* (set! chicken.compiler.core#posq ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7529,tmp=(C_word)a,a+=2,tmp));
t15=C_set_block_item(lf[17] /* chicken.compiler.core#unit-name */,0,C_SCHEME_FALSE);
t16=C_set_block_item(lf[18] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST);
t17=C_set_block_item(lf[19] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST);
t18=C_set_block_item(lf[20] /* chicken.compiler.core#insert-timer-checks */,0,C_SCHEME_TRUE);
t19=C_set_block_item(lf[21] /* chicken.compiler.core#used-units */,0,C_SCHEME_END_OF_LIST);
t20=C_set_block_item(lf[22] /* chicken.compiler.core#foreign-declarations */,0,C_SCHEME_END_OF_LIST);
t21=C_set_block_item(lf[23] /* chicken.compiler.core#emit-trace-info */,0,C_SCHEME_FALSE);
t22=C_set_block_item(lf[24] /* chicken.compiler.core#emit-debug-info */,0,C_SCHEME_FALSE);
t23=C_set_block_item(lf[25] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_FALSE);
t24=C_set_block_item(lf[26] /* chicken.compiler.core#line-number-database-size */,0,C_fix(997));
t25=C_set_block_item(lf[27] /* chicken.compiler.core#target-heap-size */,0,C_SCHEME_FALSE);
t26=C_set_block_item(lf[28] /* chicken.compiler.core#target-stack-size */,0,C_SCHEME_FALSE);
t27=C_set_block_item(lf[29] /* chicken.compiler.core#optimize-leaf-routines */,0,C_SCHEME_FALSE);
t28=C_set_block_item(lf[30] /* chicken.compiler.core#emit-profile */,0,C_SCHEME_FALSE);
t29=C_set_block_item(lf[31] /* chicken.compiler.core#no-bound-checks */,0,C_SCHEME_FALSE);
t30=C_set_block_item(lf[32] /* chicken.compiler.core#no-argc-checks */,0,C_SCHEME_FALSE);
t31=C_set_block_item(lf[33] /* chicken.compiler.core#no-procedure-checks */,0,C_SCHEME_FALSE);
t32=C_set_block_item(lf[34] /* chicken.compiler.core#no-global-procedure-checks */,0,C_SCHEME_FALSE);
t33=lf[35] /* chicken.compiler.core#safe-globals-flag */ =C_SCHEME_FALSE;;
t34=C_set_block_item(lf[36] /* chicken.compiler.core#explicit-use-flag */,0,C_SCHEME_FALSE);
t35=C_set_block_item(lf[37] /* chicken.compiler.core#disable-stack-overflow-checking */,0,C_SCHEME_FALSE);
t36=C_set_block_item(lf[38] /* chicken.compiler.core#external-protos-first */,0,C_SCHEME_FALSE);
t37=C_set_block_item(lf[39] /* chicken.compiler.core#inline-max-size */,0,C_fix(20));
t38=C_set_block_item(lf[40] /* chicken.compiler.core#unroll-limit */,0,C_fix(1));
t39=C_set_block_item(lf[41] /* chicken.compiler.core#emit-closure-info */,0,C_SCHEME_TRUE);
t40=C_set_block_item(lf[42] /* chicken.compiler.core#undefine-shadowed-macros */,0,C_SCHEME_TRUE);
t41=C_set_block_item(lf[43] /* chicken.compiler.core#profiled-procedures */,0,C_SCHEME_FALSE);
t42=C_set_block_item(lf[44] /* chicken.compiler.core#import-libraries */,0,C_SCHEME_END_OF_LIST);
t43=C_set_block_item(lf[45] /* chicken.compiler.core#all-import-libraries */,0,C_SCHEME_FALSE);
t44=C_set_block_item(lf[46] /* chicken.compiler.core#preserve-unchanged-import-libraries */,0,C_SCHEME_TRUE);
t45=C_set_block_item(lf[47] /* chicken.compiler.core#compile-module-registration */,0,C_SCHEME_FALSE);
t46=C_set_block_item(lf[48] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_TRUE);
t47=C_set_block_item(lf[49] /* chicken.compiler.core#local-definitions */,0,C_SCHEME_FALSE);
t48=C_set_block_item(lf[50] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_FALSE);
t49=C_set_block_item(lf[51] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_FALSE);
t50=C_set_block_item(lf[52] /* chicken.compiler.core#compiler-syntax-enabled */,0,C_SCHEME_TRUE);
t51=C_set_block_item(lf[53] /* chicken.compiler.core#bootstrap-mode */,0,C_SCHEME_FALSE);
t52=C_set_block_item(lf[54] /* chicken.compiler.core#strict-variable-types */,0,C_SCHEME_FALSE);
t53=C_set_block_item(lf[55] /* chicken.compiler.core#enable-specialization */,0,C_SCHEME_FALSE);
t54=C_set_block_item(lf[56] /* chicken.compiler.core#static-extensions */,0,C_SCHEME_FALSE);
t55=C_set_block_item(lf[57] /* chicken.compiler.core#emit-link-file */,0,C_SCHEME_FALSE);
t56=C_set_block_item(lf[58] /* chicken.compiler.core#verbose-mode */,0,C_SCHEME_FALSE);
t57=lf[59] /* chicken.compiler.core#original-program-size */ =C_SCHEME_FALSE;;
t58=lf[60] /* chicken.compiler.core#current-program-size */ =C_fix(0);;
t59=lf[61] /* chicken.compiler.core#current-analysis-database-size */ =C_fix(3001);;
t60=C_set_block_item(lf[62] /* chicken.compiler.core#line-number-database-2 */,0,C_SCHEME_FALSE);
t61=C_set_block_item(lf[63] /* chicken.compiler.core#immutable-constants */,0,C_SCHEME_END_OF_LIST);
t62=C_set_block_item(lf[64] /* chicken.compiler.core#inline-table */,0,C_SCHEME_FALSE);
t63=C_set_block_item(lf[65] /* chicken.compiler.core#constant-table */,0,C_SCHEME_FALSE);
t64=C_set_block_item(lf[66] /* chicken.compiler.core#inline-substitutions-enabled */,0,C_SCHEME_FALSE);
t65=lf[67] /* chicken.compiler.core#direct-call-ids */ =C_SCHEME_END_OF_LIST;;
t66=C_set_block_item(lf[68] /* chicken.compiler.core#first-analysis */,0,C_SCHEME_TRUE);
t67=lf[69] /* chicken.compiler.core#foreign-variables */ =C_SCHEME_END_OF_LIST;;
t68=C_set_block_item(lf[70] /* chicken.compiler.core#foreign-lambda-stubs */,0,C_SCHEME_END_OF_LIST);
t69=C_set_block_item(lf[71] /* chicken.compiler.core#external-variables */,0,C_SCHEME_END_OF_LIST);
t70=lf[72] /* chicken.compiler.core#external-to-pointer */ =C_SCHEME_END_OF_LIST;;
t71=lf[73] /* chicken.compiler.core#location-pointer-map */ =C_SCHEME_END_OF_LIST;;
t72=lf[74] /* chicken.compiler.core#pending-canonicalizations */ =C_SCHEME_END_OF_LIST;;
t73=lf[75] /* chicken.compiler.core#defconstant-bindings */ =C_SCHEME_END_OF_LIST;;
t74=lf[76] /* chicken.compiler.core#callback-names */ =C_SCHEME_END_OF_LIST;;
t75=lf[77] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_TRUE;;
t76=lf[78] /* chicken.compiler.core#toplevel-lambda-id */ =C_SCHEME_FALSE;;
t77=C_set_block_item(lf[79] /* chicken.compiler.core#file-requirements */,0,C_SCHEME_FALSE);
t78=C_set_block_item(lf[80] /* chicken.compiler.core#provided */,0,C_SCHEME_END_OF_LIST);
t79=C_set_block_item(lf[81] /* chicken.compiler.core#linked-static-extensions */,0,C_SCHEME_END_OF_LIST);
t80=C_mutate(&lf[82] /* (set! chicken.compiler.core#unlikely-variables ...) */,lf[83]);
t81=C_set_block_item(lf[84] /* chicken.compiler.core#default-extended-bindings */,0,C_SCHEME_END_OF_LIST);
t82=C_set_block_item(lf[85] /* chicken.compiler.core#default-standard-bindings */,0,C_SCHEME_END_OF_LIST);
t83=C_set_block_item(lf[86] /* chicken.compiler.core#internal-bindings */,0,C_SCHEME_END_OF_LIST);
t84=C_mutate((C_word*)lf[87]+1 /* (set! chicken.compiler.core#initialize-compiler ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7664,tmp=(C_word)a,a+=2,tmp));
t85=C_mutate((C_word*)lf[93]+1 /* (set! chicken.compiler.core#compute-database-statistics ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7716,tmp=(C_word)a,a+=2,tmp));
t86=C_mutate((C_word*)lf[101]+1 /* (set! chicken.compiler.core#canonicalize-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7824,tmp=(C_word)a,a+=2,tmp));
t87=C_mutate((C_word*)lf[362]+1 /* (set! chicken.compiler.core#process-declaration ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_13707,tmp=(C_word)a,a+=2,tmp));
t88=C_mutate(&lf[168] /* (set! chicken.compiler.core#register-static-extension ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15618,tmp=(C_word)a,a+=2,tmp));
t89=C_mutate((C_word*)lf[483]+1 /* (set! chicken.compiler.core#build-toplevel-procedure ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15625,tmp=(C_word)a,a+=2,tmp));
t90=C_mutate((C_word*)lf[487]+1 /* (set! chicken.compiler.core#foreign-stub-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15648,tmp=(C_word)a,a+=2,tmp));
t91=C_mutate((C_word*)lf[490]+1 /* (set! chicken.compiler.core#foreign-stub-return-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15657,tmp=(C_word)a,a+=2,tmp));
t92=C_mutate((C_word*)lf[492]+1 /* (set! chicken.compiler.core#foreign-stub-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15666,tmp=(C_word)a,a+=2,tmp));
t93=C_mutate((C_word*)lf[494]+1 /* (set! chicken.compiler.core#foreign-stub-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15675,tmp=(C_word)a,a+=2,tmp));
t94=C_mutate((C_word*)lf[496]+1 /* (set! chicken.compiler.core#foreign-stub-argument-names ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15684,tmp=(C_word)a,a+=2,tmp));
t95=C_mutate((C_word*)lf[498]+1 /* (set! chicken.compiler.core#foreign-stub-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15693,tmp=(C_word)a,a+=2,tmp));
t96=C_mutate((C_word*)lf[500]+1 /* (set! chicken.compiler.core#foreign-stub-cps ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15702,tmp=(C_word)a,a+=2,tmp));
t97=C_mutate((C_word*)lf[502]+1 /* (set! chicken.compiler.core#foreign-stub-callback ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15711,tmp=(C_word)a,a+=2,tmp));
t98=C_mutate(&lf[314] /* (set! chicken.compiler.core#create-foreign-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_15720,tmp=(C_word)a,a+=2,tmp));
t99=C_mutate(&lf[307] /* (set! chicken.compiler.core#expand-foreign-lambda ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16109,tmp=(C_word)a,a+=2,tmp));
t100=C_mutate(&lf[310] /* (set! chicken.compiler.core#expand-foreign-lambda* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16146,tmp=(C_word)a,a+=2,tmp));
t101=C_mutate((C_word*)lf[517]+1 /* (set! chicken.compiler.core#perform-cps-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16494,tmp=(C_word)a,a+=2,tmp));
t102=C_mutate((C_word*)lf[531]+1 /* (set! chicken.compiler.core#analyze-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17377,tmp=(C_word)a,a+=2,tmp));
t103=C_mutate((C_word*)lf[598]+1 /* (set! chicken.compiler.core#perform-closure-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19364,tmp=(C_word)a,a+=2,tmp));
t104=C_mutate((C_word*)lf[647]+1 /* (set! chicken.compiler.core#lambda-literal-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21376,tmp=(C_word)a,a+=2,tmp));
t105=C_mutate((C_word*)lf[650]+1 /* (set! chicken.compiler.core#lambda-literal-external ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21385,tmp=(C_word)a,a+=2,tmp));
t106=C_mutate((C_word*)lf[652]+1 /* (set! chicken.compiler.core#lambda-literal-argument-count ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21403,tmp=(C_word)a,a+=2,tmp));
t107=C_mutate((C_word*)lf[654]+1 /* (set! chicken.compiler.core#lambda-literal-rest-argument ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21412,tmp=(C_word)a,a+=2,tmp));
t108=C_mutate((C_word*)lf[656]+1 /* (set! chicken.compiler.core#lambda-literal-temporaries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21421,tmp=(C_word)a,a+=2,tmp));
t109=C_mutate((C_word*)lf[658]+1 /* (set! chicken.compiler.core#lambda-literal-float-temporaries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21430,tmp=(C_word)a,a+=2,tmp));
t110=C_mutate((C_word*)lf[660]+1 /* (set! chicken.compiler.core#lambda-literal-callee-signatures ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21439,tmp=(C_word)a,a+=2,tmp));
t111=C_mutate((C_word*)lf[662]+1 /* (set! chicken.compiler.core#lambda-literal-allocated ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21448,tmp=(C_word)a,a+=2,tmp));
t112=C_mutate((C_word*)lf[664]+1 /* (set! chicken.compiler.core#lambda-literal-closure-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21466,tmp=(C_word)a,a+=2,tmp));
t113=C_mutate((C_word*)lf[666]+1 /* (set! chicken.compiler.core#lambda-literal-looping ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21475,tmp=(C_word)a,a+=2,tmp));
t114=C_mutate((C_word*)lf[668]+1 /* (set! chicken.compiler.core#lambda-literal-customizable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21484,tmp=(C_word)a,a+=2,tmp));
t115=C_mutate((C_word*)lf[670]+1 /* (set! chicken.compiler.core#lambda-literal-rest-argument-mode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21493,tmp=(C_word)a,a+=2,tmp));
t116=C_mutate((C_word*)lf[672]+1 /* (set! chicken.compiler.core#lambda-literal-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21502,tmp=(C_word)a,a+=2,tmp));
t117=C_mutate((C_word*)lf[674]+1 /* (set! chicken.compiler.core#lambda-literal-direct ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21511,tmp=(C_word)a,a+=2,tmp));
t118=C_mutate((C_word*)lf[676]+1 /* (set! chicken.compiler.core#prepare-for-code-generation ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_21520,tmp=(C_word)a,a+=2,tmp));
t119=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t119;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t119+1)))(2,av2);}}

/* loop in a12913 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_6483(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 *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_6483,5,t0,t1,t2,t3,t4);}
a=C_alloc(4);
if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6497,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:67: scheme#reverse */
t6=*((C_word*)lf[229]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_fixnum_difference(t2,C_fix(1));
t6=C_i_car(t4);
t7=C_a_i_cons(&a,2,t6,t3);
/* mini-srfi-1.scm:68: loop */
t9=t1;
t10=t5;
t11=t7;
t12=C_u_i_cdr(t4);
t1=t9;
t2=t10;
t3=t11;
t4=t12;
goto loop;}}

/* k6495 in loop in a12913 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_6497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6497,c,av);}
/* mini-srfi-1.scm:67: scheme#values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
C_values(4,av2);}}

/* chicken.compiler.core#every in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6686(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_6686,3,t1,t2,t3);}
a=C_alloc(6);
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_6692,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_6692(t7,t1,t3);}

/* loop in chicken.compiler.core#every in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6692(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_6692,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_nullp(t2);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6714,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:82: pred */
t5=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k6712 in loop in chicken.compiler.core#every in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6714,c,av);}
if(C_truep(C_i_not(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* mini-srfi-1.scm:83: loop */
t2=((C_word*)((C_word*)t0)[3])[1];
f_6692(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* loop in foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_6726(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t1))){
return(C_SCHEME_FALSE);}
else{
t2=(
/* mini-srfi-1.scm:88: pred */
  f_7290(((C_word*)t0)[2],C_i_car(t1))
);
if(C_truep(t2)){
return(t2);}
else{
t4=C_u_i_cdr(t1);
t1=t4;
goto loop;}}}

/* chicken.compiler.core#cons* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6750(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_6750,3,t1,t2,t3);}
a=C_alloc(5);
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_6756,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_6756(t7,t1,t2,t3);}

/* loop in chicken.compiler.core#cons* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6756(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:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_6756,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_6770,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:95: loop */
t6=t4;
t7=C_i_car(t3);
t8=C_u_i_cdr(t3);
t1=t6;
t2=t7;
t3=t8;
goto loop;}}

/* k6768 in loop in chicken.compiler.core#cons* in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6770(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_6770,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.core#concatenate in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6778(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_6778,2,t1,t2);}
a=C_alloc(5);
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_6784,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_6784(t6,t1,t2);}

/* loop in chicken.compiler.core#concatenate in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6784(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_6784,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t2))){
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=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6802,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:101: loop */
t6=t4;
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}

/* k6800 in loop in chicken.compiler.core#concatenate in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6802(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6802,c,av);}
/* mini-srfi-1.scm:101: scheme#append */
t2=*((C_word*)lf[5]+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);}}

/* chicken.compiler.core#delete in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6806(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;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_6806,4,t1,t2,t3,t4);}
a=C_alloc(7);
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_6812,a[2]=t6,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_6812(t8,t1,t3);}

/* loop in chicken.compiler.core#delete in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6812(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_6812,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
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_6825,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:106: test */
t4=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k6823 in loop in chicken.compiler.core#delete in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_6825,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
/* mini-srfi-1.scm:107: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_6812(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
else{
t2=C_u_i_car(((C_word*)t0)[4]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6839,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:109: loop */
t4=((C_word*)((C_word*)t0)[2])[1];
f_6812(t4,t3,C_u_i_cdr(((C_word*)t0)[4]));}}

/* k6837 in k6823 in loop in chicken.compiler.core#delete in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6839(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_6839,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);}}

/* loop in k19804 in a19784 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6887(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;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_6887,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6901,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6914,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:123: delete */
f_6806(t6,t3,t4,((C_word*)t0)[3]);}}

/* k6899 in loop in k19804 in a19784 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_6901,c,av);}
a=C_alloc(3);
t2=C_i_equalp(((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k6912 in loop in k19804 in a19784 in k19773 in a19767 in k19430 in k19400 in k19397 in k19394 in gather in chicken.compiler.core#perform-closure-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_6914(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_6914,c,av);}
/* mini-srfi-1.scm:123: loop */
t2=((C_word*)((C_word*)t0)[2])[1];
f_6887(t2,((C_word*)t0)[3],t1);}

/* chicken.compiler.core#filter in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6926(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_6926,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_check_list_2(t3,lf[8]);
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_6935,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_6935(t8,t1,t3);}

/* foldr383 in chicken.compiler.core#filter in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6935(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_6935,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6943,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6964,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
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);}}}

/* g388 in foldr383 in chicken.compiler.core#filter in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6943(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_6943,4,t0,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6950,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
/* mini-srfi-1.scm:131: pred */
t5=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k6948 in g388 in foldr383 in chicken.compiler.core#filter in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6950(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_6950,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]):((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k6962 in foldr383 in chicken.compiler.core#filter in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6964(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6964,c,av);}
/* mini-srfi-1.scm:131: g388 */
t2=((C_word*)t0)[2];
f_6943(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6979(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_6979,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6987,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7013,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
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);}}}

/* g406 in foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_6987(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_6987,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6991,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* mini-srfi-1.scm:135: pred */
t5=((C_word*)t0)[2];
f_13758(t5,t4,t2);}

/* k6989 in g406 in foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_6991(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_6991,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6995,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:135: g416 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
/* mini-srfi-1.scm:135: g416 */
  f_6995(C_a_i(&a,3),t2,t1)
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g416 in k6989 in g406 in foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_6995(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));}

/* k7011 in foldr401 in globalize-all in chicken.compiler.core#process-declaration in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7013,c,av);}
/* mini-srfi-1.scm:134: g406 */
t2=((C_word*)t0)[2];
f_6987(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.core#unzip1 in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7035(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;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_7035,2,t1,t2);}
a=C_alloc(12);
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(t2,lf[10]);
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|4,a[1]=(C_word)f_7052,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_7052(t11,t1,t2);}

/* map-loop429 in chicken.compiler.core#unzip1 in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7052(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;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7052,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
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);}}}

/* loop in k16914 in k16592 in k16583 in k16580 in k16577 in k16574 in walk in chicken.compiler.core#perform-cps-conversion in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_7092(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
t2=C_i_cdr(t1);
if(C_truep(C_i_nullp(t2))){
return(C_u_i_car(t1));}
else{
t4=C_u_i_cdr(t1);
t1=t4;
goto loop;}}

/* loop in blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7117(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_7117,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7130,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* mini-srfi-1.scm:154: pred */
t5=((C_word*)t0)[3];
f_22977(t5,t4,C_i_car(t3));}}

/* k7128 in loop in blockvar-literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7130,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* mini-srfi-1.scm:155: loop */
t2=((C_word*)((C_word*)t0)[4])[1];
f_7117(t2,((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)),C_u_i_cdr(((C_word*)t0)[5]));}}

/* chicken.compiler.core#lset-adjoin/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7145(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_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){
C_save_and_reclaim((void*)f_7145,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
C_word t7;
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_7151,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7151(t7,t1,t3,t2);}

/* loop in chicken.compiler.core#lset-adjoin/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7151(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 t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7151,4,t0,t1,t2,t3);}
a=C_alloc(3);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
if(C_truep(C_i_memq(t4,t3))){
/* mini-srfi-1.scm:160: loop */
t9=t1;
t10=C_u_i_cdr(t2);
t11=t3;
t1=t9;
t2=t10;
t3=t11;
goto loop;}
else{
t5=C_u_i_cdr(t2);
t6=C_u_i_car(t2);
t7=C_a_i_cons(&a,2,t6,t3);
/* mini-srfi-1.scm:161: loop */
t9=t1;
t10=t5;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}}}

/* chicken.compiler.core#lset-difference/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7186(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_7186,3,t1,t2,t3);}
a=C_alloc(5);
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_7192,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7192(t7,t1,t3,t2);}

/* foldl489 in chicken.compiler.core#lset-difference/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7192(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;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_7192,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7225,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=C_slot(t2,C_fix(0));
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7214,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:166: filter */
f_6926(t5,t7,t3);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* a7213 in foldl489 in chicken.compiler.core#lset-difference/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7214(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7214,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_not(C_i_memq(t2,((C_word*)t0)[2]));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k7223 in foldl489 in chicken.compiler.core#lset-difference/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7225(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7225,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7192(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.core#lset-union/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7231(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_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +5,c,4)))){
C_save_and_reclaim((void*)f_7231,c,av);}
a=C_alloc((c-3)*C_SIZEOF_PAIR+5);
t3=C_build_rest(&a,c,3,av);
C_word t4;
C_word t5;
C_word t6;
C_word t7;
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_7237,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7237(t7,t1,t3,t2);}

/* foldl511 in chicken.compiler.core#lset-union/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7237(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 t11;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_7237,4,t0,t1,t2,t3);}
a=C_alloc(10);
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_7304,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=C_slot(t2,C_fix(0));
t7=C_i_check_list_2(t6,lf[14]);
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|2,a[1]=(C_word)f_7262,a[2]=t9,tmp=(C_word)a,a+=3,tmp));
t11=((C_word*)t9)[1];
f_7262(t11,t5,t6,t3);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7262(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 t11;
C_word t12;
C_word t13;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_7262,4,t0,t1,t2,t3);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=C_slot(t2,C_fix(0));
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7290,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6726,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
t8=(
  f_6726(t7,t3)
);
if(C_truep(t8)){
t11=t1;
t12=t4;
t13=t3;
t1=t11;
t2=t12;
t3=t13;
goto loop;}
else{
t9=C_a_i_cons(&a,2,t5,t3);
t11=t1;
t12=t4;
t13=t9;
t1=t11;
t2=t12;
t3=t13;
goto loop;}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* a7289 in foldl527 in foldl511 in chicken.compiler.core#lset-union/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_7290(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_eqp(t1,((C_word*)t0)[2]));}

/* k7302 in foldl511 in chicken.compiler.core#lset-union/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7304(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7304,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7237(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.core#lset-intersection/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7310(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7310,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7316,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:182: filter */
f_6926(t1,t4,t2);}

/* a7315 in chicken.compiler.core#lset-intersection/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7316(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_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7316,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7322,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* mini-srfi-1.scm:183: every */
f_6686(t1,t3,((C_word*)t0)[2]);}

/* a7321 in a7315 in chicken.compiler.core#lset-intersection/eq? in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7322(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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7322,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_memq(((C_word*)t0)[2],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.core#posq in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7529(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7529,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7535,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(
  f_7535(t4,C_fix(0),t3)
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* loop in chicken.compiler.core#posq in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_7535(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(C_SCHEME_FALSE);}
else{
t3=C_i_car(t2);
t4=C_eqp(t3,((C_word*)t0)[2]);
if(C_truep(t4)){
return(t1);}
else{
t6=C_fixnum_plus(t1,C_fix(1));
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}}

/* loop in k22897 in literal in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static C_word C_fcall f_7569(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_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(C_SCHEME_FALSE);}
else{
t3=C_i_car(t2);
if(C_truep(C_i_eqvp(t3,((C_word*)t0)[2]))){
return(t1);}
else{
t5=C_fixnum_plus(t1,C_fix(1));
t6=C_u_i_cdr(t2);
t1=t5;
t2=t6;
goto loop;}}}

/* chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7664,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7668,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[62]+1))){
/* core.scm:467: scheme#vector-fill! */
t3=*((C_word*)lf[89]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[62]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7714,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:468: scheme#make-vector */
t4=*((C_word*)lf[90]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[26]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7668(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7668,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7671,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[64]+1))){
/* core.scm:470: scheme#vector-fill! */
t3=*((C_word*)lf[89]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[64]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7707,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:471: scheme#make-vector */
t4=*((C_word*)lf[90]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fix(301);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k7669 in k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7671(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7671,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7674,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[65]+1))){
/* core.scm:473: scheme#vector-fill! */
t3=*((C_word*)lf[89]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[65]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7700,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:474: scheme#make-vector */
t4=*((C_word*)lf[90]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fix(301);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k7672 in k7669 in k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7674(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7674,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7677,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:475: chicken.compiler.support#reset-profile-info-vector-name! */
t3=*((C_word*)lf[92]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k7675 in k7672 in k7669 in k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7677(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7677,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7680,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:476: chicken.compiler.support#clear-real-name-table! */
t3=*((C_word*)lf[91]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k7678 in k7675 in k7672 in k7669 in k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7680(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7680,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7683,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[79]+1))){
/* core.scm:478: scheme#vector-fill! */
t3=*((C_word*)lf[89]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[79]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7693,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:479: scheme#make-vector */
t4=*((C_word*)lf[90]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fix(301);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k7681 in k7678 in k7675 in k7672 in k7669 in k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7683(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7683,c,av);}
/* core.scm:480: chicken.compiler.support#clear-foreign-type-table! */
t2=*((C_word*)lf[88]+1);{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k7691 in k7678 in k7675 in k7672 in k7669 in k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7693(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7693,c,av);}
t2=C_mutate((C_word*)lf[79]+1 /* (set! chicken.compiler.core#file-requirements ...) */,t1);
/* core.scm:480: chicken.compiler.support#clear-foreign-type-table! */
t3=*((C_word*)lf[88]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k7698 in k7669 in k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7700(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7700,c,av);}
t2=C_mutate((C_word*)lf[65]+1 /* (set! chicken.compiler.core#constant-table ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_7674(2,av2);}}

/* k7705 in k7666 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7707(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7707,c,av);}
t2=C_mutate((C_word*)lf[64]+1 /* (set! chicken.compiler.core#inline-table ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_7671(2,av2);}}

/* k7712 in chicken.compiler.core#initialize-compiler in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7714(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7714,c,av);}
t2=C_mutate((C_word*)lf[62]+1 /* (set! chicken.compiler.core#line-number-database-2 ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_7668(2,av2);}}

/* chicken.compiler.core#compute-database-statistics in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7716(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 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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){
C_save_and_reclaim((void *)f_7716,c,av);}
a=C_alloc(25);
t3=C_fix(0);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_fix(0);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_fix(0);
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_fix(0);
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_fix(0);
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7720,a[2]=t1,a[3]=t6,a[4]=t4,a[5]=t8,a[6]=t12,a[7]=t10,tmp=(C_word)a,a+=8,tmp);
t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7725,a[2]=t10,a[3]=t8,a[4]=t6,a[5]=t4,a[6]=t12,tmp=(C_word)a,a+=7,tmp);
/* core.scm:502: chicken.internal#hash-table-for-each */
t15=*((C_word*)lf[100]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t15;
av2[1]=t13;
av2[2]=t14;
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}}

/* k7718 in chicken.compiler.core#compute-database-statistics in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_7720,c,av);}
/* core.scm:516: scheme#values */{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[60];
av2[3]=lf[59];
av2[4]=((C_word*)((C_word*)t0)[3])[1];
av2[5]=((C_word*)((C_word*)t0)[4])[1];
av2[6]=((C_word*)((C_word*)t0)[5])[1];
av2[7]=((C_word*)((C_word*)t0)[6])[1];
av2[8]=((C_word*)((C_word*)t0)[7])[1];
C_values(9,av2);}}

/* a7724 in chicken.compiler.core#compute-database-statistics in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7725(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_7725,c,av);}
a=C_alloc(13);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7727,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);
t5=C_i_check_list_2(t3,lf[99]);
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_7801,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_7801(t9,t1,t3);}

/* g759 in a7724 in chicken.compiler.core#compute-database-statistics in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7727(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 t11;
C_word t12;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(62,0,2)))){
C_save_and_reclaim_args((void *)trf_7727,3,t0,t1,t2);}
a=C_alloc(62);
t3=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1));
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t5=C_i_car(t2);
t6=C_eqp(t5,lf[94]);
if(C_truep(t6)){
t7=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[3])[1],C_fix(1));
t8=C_mutate(((C_word *)((C_word*)t0)[3])+1,t7);
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t7=C_eqp(t5,lf[95]);
if(C_truep(t7)){
t8=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[4])[1],C_fix(1));
t9=C_mutate(((C_word *)((C_word*)t0)[4])+1,t8);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7769,a[2]=((C_word*)t0)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:511: chicken.compiler.support#node-class */
t11=*((C_word*)lf[97]+1);{
C_word av2[3];
av2[0]=t11;
av2[1]=t10;
av2[2]=C_u_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}
else{
t8=C_eqp(t5,lf[98]);
if(C_truep(t8)){
t9=C_i_length(C_u_i_cdr(t2));
t10=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[6])[1],t9);
t11=C_mutate(((C_word *)((C_word*)t0)[6])+1,t10);
t12=t1;{
C_word av2[2];
av2[0]=t12;
av2[1]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}
else{
t9=C_SCHEME_UNDEFINED;
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}

/* k7767 in g759 in a7724 in chicken.compiler.core#compute-database-statistics in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7769(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_7769,c,av);}
a=C_alloc(29);
t2=C_eqp(lf[96],t1);
if(C_truep(t2)){
t3=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1));
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* for-each-loop758 in a7724 in chicken.compiler.core#compute-database-statistics in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7801(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7801,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_7811,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:504: g759 */
t4=((C_word*)t0)[3];
f_7727(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);}}}

/* k7809 in for-each-loop758 in a7724 in chicken.compiler.core#compute-database-statistics in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7811,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7801(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7824(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 t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(73,c,9)))){
C_save_and_reclaim((void *)f_7824,c,av);}
a=C_alloc(73);
t3=C_SCHEME_END_OF_LIST;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_END_OF_LIST;
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_SCHEME_UNDEFINED;
t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp);
t23=C_SCHEME_UNDEFINED;
t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp);
t25=C_SCHEME_UNDEFINED;
t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp);
t27=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7827,a[2]=t8,tmp=(C_word)a,a+=3,tmp));
t28=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7862,a[2]=t8,tmp=(C_word)a,a+=3,tmp));
t29=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7902,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
t30=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7915,tmp=(C_word)a,a+=2,tmp));
t31=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7942,a[2]=t14,tmp=(C_word)a,a+=3,tmp));
t32=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7971,tmp=(C_word)a,a+=2,tmp));
t33=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8037,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
t34=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8080,a[2]=t24,a[3]=t6,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t35=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8388,a[2]=t22,a[3]=t24,a[4]=t16,a[5]=t18,a[6]=t6,a[7]=t10,a[8]=t4,a[9]=t20,a[10]=t26,a[11]=t12,a[12]=t14,tmp=(C_word)a,a+=13,tmp));
t36=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13619,a[2]=t24,tmp=(C_word)a,a+=3,tmp));
t37=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13671,a[2]=t24,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_memq(lf[157],*((C_word*)lf[400]+1)))){
t38=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13702,a[2]=t37,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1542: scheme#newline */
t39=*((C_word*)lf[401]+1);{
C_word *av2=av;
av2[0]=t39;
av2[1]=t38;
((C_proc)(void*)(*((C_word*)t39+1)))(2,av2);}}
else{
t38=t37;{
C_word *av2=av;
av2[0]=t38;
av2[1]=C_SCHEME_UNDEFINED;
f_13671(2,av2);}}}

/* find-id in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7827(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_7827,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7840,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t5=C_i_caar(t3);
t6=C_eqp(t2,t5);
if(C_truep(t6)){
t7=C_u_i_car(t3);
t8=t4;
f_7840(t8,C_i_symbolp(C_u_i_cdr(t7)));}
else{
t7=t4;
f_7840(t7,C_SCHEME_FALSE);}}}

/* k7838 in find-id in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7840(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_7840,2,t0,t1);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_u_i_cdr(C_u_i_car(((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* core.scm:533: find-id */
t2=((C_word*)((C_word*)t0)[4])[1];
f_7827(t2,((C_word*)t0)[2],((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]));}}

/* lookup in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7862(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7862,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7869,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
/* core.scm:536: chicken.keyword#keyword? */
t4=*((C_word*)lf[107]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k7867 in lookup in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_7869,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7872,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7900,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:537: ##sys#current-environment */
t4=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7870 in k7867 in lookup in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_7872,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7880,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7886,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
/* core.scm:536: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}}

/* a7879 in k7870 in k7867 in lookup in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7880(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7880,c,av);}
/* core.scm:538: ##sys#get */
t2=*((C_word*)lf[102]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[103];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* a7885 in k7870 in k7867 in lookup in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_7886,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;
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7893,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t3;
av2[2]=*((C_word*)lf[105]+1);
av2[3]=t2;
C_apply(4,av2);}}

/* k7891 in a7885 in k7870 in k7867 in lookup in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7893,c,av);}
if(C_truep(t1)){{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[104]+1);
av2[3]=((C_word*)t0)[3];
C_apply(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k7898 in k7867 in lookup in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7900(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7900,c,av);}
/* core.scm:537: find-id */
t2=((C_word*)((C_word*)t0)[2])[1];
f_7827(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* macro-alias in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7902(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7902,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7906,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:542: chicken.base#gensym */
t4=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k7904 in macro-alias in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7906(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_7906,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7909,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7913,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:543: lookup */
t4=((C_word*)((C_word*)t0)[3])[1];
f_7862(t4,t3,((C_word*)t0)[4]);}

/* k7907 in k7904 in macro-alias in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7909,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k7911 in k7904 in macro-alias in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7913(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_7913,c,av);}
/* core.scm:543: ##sys#put! */
t2=*((C_word*)lf[108]+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]=lf[103];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* handle-expansion-result in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7915(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_7915,2,t1,t2);}
a=C_alloc(3);
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7917,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_7917 in handle-expansion-result in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7917(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_7917,c,av);}
a=C_alloc(10);
t4=C_eqp(t2,t3);
t5=C_i_not(t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7924,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t5)){
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7927,a[2]=((C_word*)t0)[2],a[3]=t6,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
/* core.scm:549: chicken.compiler.support#get-line */
t8=*((C_word*)lf[113]+1);{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k7922 */
static void C_ccall f_7924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7924,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k7925 */
static void C_ccall f_7927(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_7927,c,av);}
a=C_alloc(11);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
if(C_truep(t2)){
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_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16415,a[2]=t6,tmp=(C_word)a,a+=3,tmp));
t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16440,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
/* core.scm:1951: walk */
t9=((C_word*)t6)[1];
f_16440(t9,((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7942(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;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7942,5,t0,t1,t2,t3,t4);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7946,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:555: handle-expansion-result */
f_7915(t5,t2);}

/* k7944 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_7946,c,av);}
a=C_alloc(16);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7951,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7956,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7966,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* core.scm:554: ##sys#dynamic-wind */
t9=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[4];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a7950 in k7944 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7951,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[114]+1));
t3=C_mutate((C_word*)lf[114]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a7955 in k7944 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7956(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_7956,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7964,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:556: ##sys#current-environment */
t3=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k7962 in a7955 in k7944 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7964(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_7964,c,av);}
/* core.scm:556: ##sys#canonicalize-body */
t2=*((C_word*)lf[115]+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]=t1;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a7965 in k7944 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7966,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[114]+1));
t3=C_mutate((C_word*)lf[114]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* set-real-names! in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7971(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_7971,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_i_check_list_2(t2,lf[99]);
t5=C_i_check_list_2(t3,lf[99]);
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_7988,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_7988(t9,t1,t2,t3);}

/* for-each-loop850 in set-real-names! in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_7988(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;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7988,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_7998,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
/* core.scm:559: chicken.compiler.support#set-real-name! */
t7=*((C_word*)lf[117]+1);{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_slot(t2,C_fix(0));
av2[3]=C_slot(t3,C_fix(0));
((C_proc)(void*)(*((C_word*)t7+1)))(4,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);}}}

/* k7996 in for-each-loop850 in set-real-names! in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_7998(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7998,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7988(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* unquotify in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8037(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;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_8037,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_i_listp(t2))){
t3=C_eqp(C_fix(2),C_u_i_length(t2));
if(C_truep(t3)){
t4=C_i_car(t2);
if(C_truep(C_i_symbolp(t4))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8069,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:570: lookup */
t6=((C_word*)((C_word*)t0)[2])[1];
f_7862(t6,t5,C_u_i_car(t2));}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8067 in unquotify in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8069(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8069,c,av);}
t2=C_eqp(lf[118],t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_i_cadr(((C_word*)t0)[3]):((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8080(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_8080,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(15);
t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8084,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_memq(t2,lf[82]))){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8272,a[2]=t7,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:577: chicken.base#open-output-string */
t9=*((C_word*)lf[133]+1);{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=t7;{
C_word av2[2];
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_8084(2,av2);}}}

/* k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8084(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_8084,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8087,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);
/* core.scm:578: lookup */
t3=((C_word*)((C_word*)t0)[10])[1];
f_7862(t3,t2,((C_word*)t0)[3]);}

/* k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8087(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_8087,c,av);}
a=C_alloc(10);
t2=C_i_symbolp(t1);
if(C_truep(C_i_not(t2))){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8099,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[2],a[8]=t1,a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
/* core.scm:581: chicken.internal#hash-table-ref */
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[65]+1);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8099(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_8099,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8103,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);
/* core.scm:580: g904 */
t3=t2;
f_8103(t3,((C_word*)t0)[7],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8113,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);
/* core.scm:583: chicken.internal#hash-table-ref */
t3=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[64]+1);
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* g904 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8103(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_8103,3,t0,t1,t2);}
/* core.scm:582: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_8388(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8113(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_8113,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8117,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);
/* core.scm:580: g908 */
t3=t2;
f_8117(t3,((C_word*)t0)[7],t1);}
else{
t2=C_i_assq(((C_word*)t0)[8],lf[69]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8131,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);
/* core.scm:580: g912 */
t4=t3;
f_8131(t4,((C_word*)t0)[7],t2);}
else{
t3=C_i_assq(((C_word*)t0)[8],lf[73]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8170,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);
/* core.scm:580: g922 */
t5=t4;
f_8170(t5,((C_word*)t0)[7],t3);}
else{
t4=C_i_memq(((C_word*)t0)[8],((C_word*)t0)[3]);
if(C_truep(C_i_not(t4))){
/* core.scm:605: ##sys#alias-global-hook */
t5=*((C_word*)lf[124]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[7];
av2[2]=((C_word*)t0)[8];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
else{
t5=C_i_assq(((C_word*)t0)[8],((C_word*)((C_word*)t0)[9])[1]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8218,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
/* core.scm:580: g932 */
t7=t6;
f_8218(t7,((C_word*)t0)[7],t5);}
else{
t6=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t6;
av2[1]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}}}}

/* g908 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8117(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_8117,3,t0,t1,t2);}
/* core.scm:584: walk */
t3=((C_word*)((C_word*)t0)[2])[1];
f_8388(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* g912 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8131(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_8131,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_cadr(t2);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8138,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* core.scm:588: chicken.compiler.support#final-foreign-type */
t5=*((C_word*)lf[122]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k8136 in g912 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8138(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_8138,c,av);}
a=C_alloc(24);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_a_i_list(&a,2,t2,((C_word*)t0)[3]);
t4=C_a_i_list(&a,2,lf[119],t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8148,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8152,a[2]=t5,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:592: chicken.compiler.support#finish-foreign-result */
t7=*((C_word*)lf[121]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=t1;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k8146 in k8136 in g912 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8148(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_8148,c,av);}
/* core.scm:590: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* k8150 in k8136 in g912 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8152(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8152,c,av);}
/* core.scm:591: chicken.compiler.support#foreign-type-convert-result */
t2=*((C_word*)lf[120]+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);}}

/* g922 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8170(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_8170,3,t0,t1,t2);}
a=C_alloc(10);
t3=C_i_caddr(t2);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8177,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
/* core.scm:598: chicken.compiler.support#final-foreign-type */
t5=*((C_word*)lf[122]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k8175 in g922 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8177(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_8177,c,av);}
a=C_alloc(24);
t2=C_a_i_list(&a,1,((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[3]);
t4=C_a_i_list(&a,3,lf[123],t2,t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8187,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8191,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:602: chicken.compiler.support#finish-foreign-result */
t7=*((C_word*)lf[121]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=t1;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k8185 in k8175 in g922 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8187(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_8187,c,av);}
/* core.scm:600: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* k8189 in k8175 in g922 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8191(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8191,c,av);}
/* core.scm:601: chicken.compiler.support#foreign-type-convert-result */
t2=*((C_word*)lf[120]+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);}}

/* g932 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8218(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;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_8218,3,t0,t1,t2);}
a=C_alloc(8);
t3=C_i_cdr(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8229,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8236,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* core.scm:611: chicken.base#open-output-string */
t6=*((C_word*)lf[133]+1);{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[134];
f_8229(2,av2);}}}

/* k8227 in g932 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8229(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8229,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8233,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:612: chicken.compiler.support#get-real-name */
t3=*((C_word*)lf[127]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k8231 in k8227 in g932 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8233(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8233,c,av);}
/* core.scm:609: chicken.compiler.support#quit-compiling */
t2=*((C_word*)lf[125]+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[126];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k8234 in g932 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8236(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_8236,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8242,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:611: ##sys#write-char-0 */
t4=*((C_word*)lf[132]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_make_character(40);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k8240 in k8234 in g932 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_8242,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8245,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:611: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8243 in k8240 in k8234 in g932 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8245(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_8245,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8248,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:611: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[131];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8246 in k8243 in k8240 in k8234 in g932 in k8111 in k8097 in k8085 in k8082 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8248(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8248,c,av);}
/* core.scm:611: chicken.base#get-output-string */
t2=*((C_word*)lf[129]+1);{
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);}}

/* k8270 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8272(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_8272,c,av);}
a=C_alloc(5);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[128]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8278,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:577: ##sys#print */
t4=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[137];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k8276 in k8270 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8278(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_8278,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:577: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8279 in k8276 in k8270 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8281(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_8281,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8284,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:577: ##sys#print */
t3=*((C_word*)lf[130]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[136];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8282 in k8279 in k8276 in k8270 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8284(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8284,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8287,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:577: chicken.base#get-output-string */
t3=*((C_word*)lf[129]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k8285 in k8282 in k8279 in k8276 in k8270 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8287(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8287,c,av);}
/* core.scm:576: chicken.base#warning */
t2=*((C_word*)lf[135]+1);{
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);}}

/* k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_8293(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_8293,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8296,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8375,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:619: ##sys#current-module */
t4=*((C_word*)lf[202]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_8296(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_8296,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8299,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8368,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:621: chicken.file#file-exists? */
t4=*((C_word*)lf[247]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8297 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in ... */
static void C_ccall f_8299(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_8299,c,av);}
a=C_alloc(5);
t2=C_i_equalp(((C_word*)t0)[2],t1);
t3=(C_truep(t2)?*((C_word*)lf[46]+1):C_SCHEME_FALSE);
if(C_truep(t3)){
if(C_truep(*((C_word*)lf[58]+1))){
/* core.scm:625: chicken.base#print */
t4=*((C_word*)lf[231]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[232];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[233];
av2[5]=((C_word*)t0)[5];
av2[6]=lf[234];
((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_10833(2,av2);}}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[58]+1))){
/* core.scm:629: chicken.base#print */
t5=*((C_word*)lf[231]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[242];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[243];
av2[5]=((C_word*)t0)[5];
av2[6]=lf[244];
((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_8314(2,av2);}}}}

/* k8312 in k8297 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in ... */
static void C_ccall f_8314(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_8314,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:631: scheme#with-output-to-file */
t3=*((C_word*)lf[241]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a8318 in k8312 in k8297 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in ... */
static void C_ccall f_8319(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_8319,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8323,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8359,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:634: chicken.platform#chicken-version */
t4=*((C_word*)lf[240]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k8321 in a8318 in k8312 in k8297 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in ... */
static void C_ccall f_8323(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_8323,c,av);}
a=C_alloc(9);
t2=*((C_word*)lf[235]+1);
t3=C_i_check_list_2(((C_word*)t0)[2],lf[99]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8329,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|3,a[1]=(C_word)f_8334,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_8334(t8,t4,((C_word*)t0)[2]);}

/* k8327 in k8321 in a8318 in k8312 in k8297 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in ... */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8329,c,av);}
/* core.scm:636: chicken.base#print */
t2=*((C_word*)lf[231]+1);{
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[236];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* for-each-loop963 in k8321 in a8318 in k8312 in k8297 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in ... */
static void C_fcall f_8334(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_8334,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_8344,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:635: g964 */
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+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);}}}

/* k8342 in for-each-loop963 in k8321 in a8318 in k8312 in k8297 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in ... */
static void C_ccall f_8344(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8344,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8334(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k8357 in a8318 in k8312 in k8297 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in ... */
static void C_ccall f_8359(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_8359,c,av);}
/* core.scm:633: chicken.base#print */
t2=*((C_word*)lf[231]+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[237];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[238];
av2[5]=t1;
av2[6]=lf[239];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* k8366 in k8294 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in ... */
static void C_ccall f_8368(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8368,c,av);}
if(C_truep(t1)){
/* core.scm:622: scheme#call-with-input-file */
t2=*((C_word*)lf[245]+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]=*((C_word*)lf[246]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_8299(2,av2);}}}

/* k8373 in k8291 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in ... */
static void C_ccall f_8375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8375,c,av);}
/* core.scm:619: ##sys#compiled-module-registration */
t2=*((C_word*)lf[228]+1);{
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);}}

/* k8380 in k10786 in k10783 in loop in a10764 in a10758 in k10696 in k10693 in a10690 in k10684 in k10681 in k10675 in k10669 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in ... */
static void C_ccall f_8382(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8382,c,av);}
/* ##sys#string-append */
t2=*((C_word*)lf[248]+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[249];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8388(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){
C_word tmp;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,2)))){
C_save_and_reclaim_args((void *)trf_8388,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);}
a=C_alloc(21);
t9=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_8395,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=((C_word*)t0)[3],a[11]=t8,a[12]=((C_word*)t0)[4],a[13]=((C_word*)t0)[5],a[14]=((C_word*)t0)[6],a[15]=((C_word*)t0)[7],a[16]=((C_word*)t0)[8],a[17]=((C_word*)t0)[9],a[18]=((C_word*)t0)[10],a[19]=((C_word*)t0)[11],a[20]=((C_word*)t0)[12],tmp=(C_word)a,a+=21,tmp);
/* core.scm:639: chicken.keyword#keyword? */
t10=*((C_word*)lf[107]+1);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}

/* k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8395(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,6)))){
C_save_and_reclaim((void *)f_8395,c,av);}
a=C_alloc(21);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[118],((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
/* core.scm:640: resolve-variable */
t2=((C_word*)((C_word*)t0)[4])[1];
f_8080(t2,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
else{
t2=C_i_pairp(((C_word*)t0)[3]);
if(C_truep(C_i_not(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8419,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:642: chicken.compiler.support#constant? */
t4=*((C_word*)lf[140]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_i_car(((C_word*)t0)[3]);
if(C_truep(C_i_symbolp(t3))){
t4=(*a=C_CLOSURE_TYPE|20,a[1]=(C_word)f_8434,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[4],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],tmp=(C_word)a,a+=21,tmp);
/* core.scm:646: chicken.compiler.support#get-line */
t5=*((C_word*)lf[113]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_i_listp(((C_word*)t0)[3]);
if(C_truep(C_i_not(t4))){
/* core.scm:1523: ##sys#syntax-error/context */
t5=*((C_word*)lf[138]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[398];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13565,a[2]=((C_word*)t0)[18],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp);
/* core.scm:1525: chicken.compiler.support#constant? */
t6=*((C_word*)lf[140]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}}}}

/* k8417 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8419,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[118],((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
/* core.scm:644: ##sys#syntax-error/context */
t2=*((C_word*)lf[138]+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[139];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}

/* k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8434(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_8434,c,av);}
a=C_alloc(22);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8440,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]=t2,a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp);
/* core.scm:647: chicken.compiler.support#emit-syntax-trace-info */
t4=*((C_word*)lf[397]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8440(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){
C_save_and_reclaim((void *)f_8440,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8443,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],tmp=(C_word)a,a+=22,tmp);
if(C_truep(C_i_listp(((C_word*)t0)[2]))){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_8443(2,av2);}}
else{
if(C_truep(((C_word*)t0)[9])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13532,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
/* core.scm:650: chicken.base#open-output-string */
t4=*((C_word*)lf[133]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:651: ##sys#syntax-error/context */
t3=*((C_word*)lf[138]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[396];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}

/* k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8443(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){
C_save_and_reclaim((void *)f_8443,c,av);}
a=C_alloc(22);
t2=C_mutate((C_word*)lf[141]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8447,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],tmp=(C_word)a,a+=22,tmp);
/* core.scm:653: lookup */
t4=((C_word*)((C_word*)t0)[16])[1];
f_7862(t4,t3,C_u_i_car(((C_word*)t0)[2]));}

/* k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){
C_save_and_reclaim((void *)f_8447,c,av);}
a=C_alloc(22);
t2=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8450,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],tmp=(C_word)a,a+=22,tmp);
/* core.scm:656: handle-expansion-result */
f_7915(t2,((C_word*)t0)[9]);}

/* k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(37,c,4)))){
C_save_and_reclaim((void *)f_8450,c,av);}
a=C_alloc(37);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8453,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],tmp=(C_word)a,a+=22,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13499,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13504,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13514,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
/* core.scm:655: ##sys#dynamic-wind */
t10=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t6;
av2[2]=t7;
av2[3]=t8;
av2[4]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}

/* k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,8)))){
C_save_and_reclaim((void *)f_8453,c,av);}
a=C_alloc(22);
t2=C_eqp(((C_word*)t0)[2],t1);
if(C_truep(C_i_not(t2))){
/* core.scm:659: walk */
t3=((C_word*)((C_word*)t0)[3])[1];
f_8388(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}
else{
t3=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[10],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],tmp=(C_word)a,a+=22,tmp);
/* core.scm:661: chicken.internal#hash-table-ref */
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[64]+1);
av2[3]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8465(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,8)))){
C_save_and_reclaim((void *)f_8465,c,av);}
a=C_alloc(22);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8469,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);
/* core.scm:658: g1032 */
t3=t2;
f_8469(t3,((C_word*)t0)[9],t1);}
else{
t2=C_eqp(((C_word*)t0)[10],lf[142]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8497,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp);
/* core.scm:670: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_8388(t4,t3,C_i_cadr(((C_word*)t0)[2]),((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}
else{
t3=C_eqp(((C_word*)t0)[10],lf[145]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[10],lf[146]));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8543,a[2]=((C_word*)t0)[9],tmp=(C_word)a,a+=3,tmp);
/* core.scm:677: chicken.syntax#strip-syntax */
t6=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_eqp(((C_word*)t0)[10],lf[148]);
if(C_truep(t5)){
if(C_truep(*((C_word*)lf[149]+1))){
t6=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t6;
av2[1]=lf[150];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
/* core.scm:682: walk */
t6=((C_word*)((C_word*)t0)[3])[1];
f_8388(t6,((C_word*)t0)[9],C_i_cadr(((C_word*)t0)[2]),((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[11]);}}
else{
t6=C_eqp(((C_word*)t0)[10],lf[151]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8576,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp);
/* core.scm:686: chicken.syntax#strip-syntax */
t8=*((C_word*)lf[147]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t8;
av2[1]=t7;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t7=C_eqp(((C_word*)t0)[10],lf[152]);
if(C_truep(t7)){
t8=(C_truep(((C_word*)t0)[8])?((C_word*)t0)[8]:C_i_cadr(((C_word*)t0)[2]));
t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8617,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)[11],a[9]=((C_word*)t0)[2],a[10]=t8,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp);
/* core.scm:693: walk */
t10=((C_word*)((C_word*)t0)[3])[1];
f_8388(t10,t9,C_i_caddr(((C_word*)t0)[2]),((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[11]);}
else{
t8=C_eqp(((C_word*)t0)[10],lf[153]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8701,a[2]=((C_word*)t0)[9],tmp=(C_word)a,a+=3,tmp);
/* core.scm:700: scheme#cadadr */
t10=*((C_word*)lf[158]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t10;
av2[1]=t9;
av2[2]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
else{
t9=C_eqp(((C_word*)t0)[10],lf[159]);
t10=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8732,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[11],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],tmp=(C_word)a,a+=22,tmp);
if(C_truep(t9)){
t11=t10;
f_8732(t11,t9);}
else{
t11=C_eqp(((C_word*)t0)[10],lf[392]);
t12=t10;
f_8732(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[10],lf[393])));}}}}}}}}}

/* g1032 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8469(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,8)))){
C_save_and_reclaim_args((void *)trf_8469,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,t2,t3);
/* core.scm:663: walk */
t5=((C_word*)((C_word*)t0)[3])[1];
f_8388(t5,t1,t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k8495 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8497(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,8)))){
C_save_and_reclaim((void *)f_8497,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8501,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* core.scm:671: walk */
t3=((C_word*)((C_word*)t0)[4])[1];
f_8388(t3,t2,C_i_caddr(((C_word*)t0)[3]),((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k8499 in k8495 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 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;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,8)))){
C_save_and_reclaim((void *)f_8501,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8505,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t3=C_i_cdddr(((C_word*)t0)[4]);
if(C_truep(C_i_nullp(t3))){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list(&a,4,lf[143],((C_word*)t0)[3],t1,lf[144]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
/* core.scm:674: walk */
t4=((C_word*)((C_word*)t0)[5])[1];
f_8388(t4,t2,C_i_cadddr(((C_word*)t0)[4]),((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}}

/* k8503 in k8499 in k8495 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_8505,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,4,lf[143],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8541 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_8543,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[118],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8574 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8576(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,8)))){
C_save_and_reclaim((void *)f_8576,c,av);}
a=C_alloc(5);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8584,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
/* core.scm:688: walk */
t4=((C_word*)((C_word*)t0)[4])[1];
f_8388(t4,t3,C_i_cadddr(((C_word*)t0)[2]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k8582 in k8574 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_8584,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,4,lf[151],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8615 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8617(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){
C_save_and_reclaim((void *)f_8617,c,av);}
a=C_alloc(27);
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=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8622,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);
t7=C_i_cdddr(((C_word*)t0)[9]);
t8=C_i_check_list_2(t7,lf[10]);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8651,a[2]=t1,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8653,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_8653(t13,t9,t7);}

/* g1067 in k8615 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_8622(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_8622,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8630,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
/* core.scm:695: chicken.syntax#strip-syntax */
t4=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(t2);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8628 in g1067 in k8615 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8630(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){
C_save_and_reclaim((void *)f_8630,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8634,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:696: walk */
t3=((C_word*)((C_word*)t0)[3])[1];
f_8388(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k8632 in k8628 in g1067 in k8615 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_8634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_8634,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8649 in k8615 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8651(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_8651,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[152],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop1061 in k8615 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_8653(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8653,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_8678,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);
/* core.scm:694: g1067 */
t4=((C_word*)t0)[4];
f_8622(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);}}}

/* k8676 in map-loop1061 in k8615 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8678,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_8653(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k8699 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_ccall f_8701(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8701,c,av);}
a=C_alloc(4);
t2=C_i_assoc(t1,*((C_word*)lf[63]+1));
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_cdr(t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8713,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:703: chicken.base#gensym */
t4=*((C_word*)lf[109]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[157];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* k8711 in k8699 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8713(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_8713,c,av);}
a=C_alloc(10);
t2=*((C_word*)lf[63]+1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t4=C_a_i_cons(&a,2,t3,*((C_word*)lf[63]+1));
t5=C_mutate((C_word*)lf[63]+1 /* (set! chicken.compiler.core#immutable-constants ...) */,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8720,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:705: chicken.compiler.support#mark-variable */
t7=*((C_word*)lf[155]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=t1;
av2[3]=lf[156];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k8718 in k8711 in k8699 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 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 t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8720,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:706: chicken.compiler.support#hide-variable */
t3=*((C_word*)lf[154]+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)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k8721 in k8718 in k8711 in k8699 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_8723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8723,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall f_8732(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 t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(32,0,8)))){
C_save_and_reclaim_args((void *)trf_8732,2,t0,t1);}
a=C_alloc(32);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_eqp(((C_word*)t0)[4],lf[160]);
if(C_truep(t2)){
t3=C_i_cadr(((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8745,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
/* core.scm:713: lset-adjoin/eq? */
t5=lf[11];{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=*((C_word*)lf[80]+1);
av2[3]=t3;
f_7145(4,av2);}}
else{
t3=C_eqp(((C_word*)t0)[4],lf[119]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8765,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:718: scheme#caadr */
t5=*((C_word*)lf[161]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_eqp(((C_word*)t0)[4],lf[123]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],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);
/* core.scm:722: chicken.syntax#strip-syntax */
t6=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_eqp(((C_word*)t0)[4],lf[162]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8807,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:726: chicken.load#load-extension */
t7=*((C_word*)lf[164]+1);{
C_word av2[5];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=lf[165];
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}
else{
t6=C_eqp(((C_word*)t0)[4],lf[166]);
if(C_truep(t6)){
t7=C_i_cadr(((C_word*)t0)[3]);
t8=C_u_i_cdr(((C_word*)t0)[3]);
t9=C_u_i_cdr(t8);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8827,a[2]=t7,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8833,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=t7,tmp=(C_word)a,a+=9,tmp);
/* core.scm:732: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t10;
av2[3]=t11;
C_call_with_values(4,av2);}}
else{
t7=C_eqp(((C_word*)t0)[4],lf[170]);
if(C_truep(t7)){
t8=C_i_cadr(((C_word*)t0)[3]);
t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8870,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=t8,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp);
/* core.scm:747: unzip1 */
f_7035(t9,t8);}
else{
t8=C_eqp(((C_word*)t0)[4],lf[173]);
if(C_truep(t8)){
t9=C_i_cadr(((C_word*)t0)[3]);
t10=C_u_i_cdr(((C_word*)t0)[3]);
t11=C_u_i_cdr(t10);
t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t13=t12;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=((C_word*)t14)[1];
t16=C_i_check_list_2(t9,lf[10]);
t17=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9098,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=t11,a[10]=t9,tmp=(C_word)a,a+=11,tmp);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9170,a[2]=t14,a[3]=t19,a[4]=t15,tmp=(C_word)a,a+=5,tmp));
t21=((C_word*)t19)[1];
f_9170(t21,t17,t9);}
else{
t9=C_eqp(((C_word*)t0)[4],lf[177]);
if(C_truep(t9)){
t10=C_i_cadr(((C_word*)t0)[3]);
t11=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9214,a[2]=((C_word*)t0)[3],a[3]=t10,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:778: unzip1 */
f_7035(t11,t10);}
else{
t10=C_eqp(((C_word*)t0)[4],lf[178]);
if(C_truep(t10)){
t11=C_i_caddr(((C_word*)t0)[3]);
t12=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t13=t12;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=((C_word*)t14)[1];
t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9488,a[2]=t11,a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
t17=C_u_i_cdr(((C_word*)t0)[3]);
t18=C_u_i_car(t17);
t19=C_i_check_list_2(t18,lf[10]);
t20=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9504,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],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)[2],tmp=(C_word)a,a+=11,tmp);
t21=C_SCHEME_UNDEFINED;
t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp);
t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9532,a[2]=t14,a[3]=t22,a[4]=t16,a[5]=t15,tmp=(C_word)a,a+=6,tmp));
t24=((C_word*)t22)[1];
f_9532(t24,t20,t18);}
else{
t11=C_eqp(((C_word*)t0)[4],lf[96]);
if(C_truep(t11)){
t12=C_i_cadr(((C_word*)t0)[3]);
t13=t12;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_u_i_cdr(((C_word*)t0)[3]);
t16=C_u_i_cdr(t15);
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9578,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[13],a[7]=((C_word*)t0)[15],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[12],a[10]=t17,a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[2],a[13]=t14,tmp=(C_word)a,a+=14,tmp);
t19=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9790,a[2]=t14,a[3]=t17,a[4]=t18,tmp=(C_word)a,a+=5,tmp);
/* core.scm:811: ##sys#extended-lambda-list? */
t20=*((C_word*)lf[192]+1);{
C_word av2[3];
av2[0]=t20;
av2[1]=t19;
av2[2]=((C_word*)t14)[1];
((C_proc)(void*)(*((C_word*)t20+1)))(3,av2);}}
else{
t12=C_eqp(((C_word*)t0)[4],lf[193]);
if(C_truep(t12)){
t13=*((C_word*)lf[106]+1);
t14=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9817,a[2]=t13,a[3]=((C_word*)t0)[11],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)[12],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[2],tmp=(C_word)a,a+=12,tmp);
t15=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t16=t15;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=((C_word*)t17)[1];
t19=C_i_cadr(((C_word*)t0)[3]);
t20=C_i_check_list_2(t19,lf[10]);
t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9907,a[2]=t14,tmp=(C_word)a,a+=3,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9913,a[2]=t17,a[3]=t23,a[4]=t18,tmp=(C_word)a,a+=5,tmp));
t25=((C_word*)t23)[1];
f_9913(t25,t21,t19);}
else{
t13=C_eqp(((C_word*)t0)[4],lf[196]);
if(C_truep(t13)){
t14=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t15=t14;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=((C_word*)t16)[1];
t18=C_i_cadr(((C_word*)t0)[3]);
t19=C_i_check_list_2(t18,lf[10]);
t20=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9986,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp);
t21=C_SCHEME_UNDEFINED;
t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp);
t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10083,a[2]=t16,a[3]=t22,a[4]=t17,tmp=(C_word)a,a+=5,tmp));
t24=((C_word*)t22)[1];
f_10083(t24,t20,t18);}
else{
t14=C_eqp(((C_word*)t0)[4],lf[197]);
if(C_truep(t14)){
t15=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10124,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[16],a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp);
t16=C_u_i_car(((C_word*)t0)[3]);
t17=C_i_cadr(((C_word*)t0)[3]);
t18=C_i_pairp(t17);
t19=(C_truep(t18)?lf[204]:lf[205]);
t20=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10214,a[2]=t15,a[3]=t16,a[4]=((C_word*)t0)[3],a[5]=t19,tmp=(C_word)a,a+=6,tmp);
/* core.scm:902: ##sys#current-environment */
t21=*((C_word*)lf[106]+1);{
C_word av2[2];
av2[0]=t21;
av2[1]=t20;
((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}
else{
t15=C_eqp(((C_word*)t0)[4],lf[207]);
if(C_truep(t15)){
t16=C_i_cadr(((C_word*)t0)[3]);
t17=C_i_caddr(((C_word*)t0)[3]);
t18=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10236,a[2]=t17,a[3]=t16,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],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)[17],tmp=(C_word)a,a+=12,tmp);
/* core.scm:924: lookup */
t19=((C_word*)((C_word*)t0)[16])[1];
f_7862(t19,t18,t16);}
else{
t16=C_eqp(((C_word*)t0)[4],lf[211]);
if(C_truep(t16)){
t17=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t18=t17;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=((C_word*)t19)[1];
t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10316,a[2]=((C_word*)t0)[16],tmp=(C_word)a,a+=3,tmp);
t22=C_i_cadr(((C_word*)t0)[3]);
t23=C_i_check_list_2(t22,lf[10]);
t24=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10373,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[18],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[2],tmp=(C_word)a,a+=12,tmp);
t25=C_SCHEME_UNDEFINED;
t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp);
t27=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10488,a[2]=t19,a[3]=t26,a[4]=t21,a[5]=t20,tmp=(C_word)a,a+=6,tmp));
t28=((C_word*)t26)[1];
f_10488(t28,t24,t22);}
else{
t17=C_eqp(((C_word*)t0)[4],lf[215]);
if(C_truep(t17)){
t18=*((C_word*)lf[216]+1);
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_FALSE;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10531,a[2]=t21,a[3]=t19,tmp=(C_word)a,a+=4,tmp);
t23=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10536,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[18],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp);
t24=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10581,a[2]=t19,a[3]=t21,tmp=(C_word)a,a+=4,tmp);
/* core.scm:989: ##sys#dynamic-wind */
t25=*((C_word*)lf[116]+1);{
C_word av2[5];
av2[0]=t25;
av2[1]=((C_word*)t0)[2];
av2[2]=t22;
av2[3]=t23;
av2[4]=t24;
((C_proc)(void*)(*((C_word*)t25+1)))(5,av2);}}
else{
t18=C_eqp(((C_word*)t0)[4],lf[219]);
if(C_truep(t18)){
t19=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t20=t19;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=((C_word*)t21)[1];
t23=C_i_cadr(((C_word*)t0)[3]);
t24=C_i_check_list_2(t23,lf[10]);
t25=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10614,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp);
t26=C_SCHEME_UNDEFINED;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10630,a[2]=t21,a[3]=t27,a[4]=t22,tmp=(C_word)a,a+=5,tmp));
t29=((C_word*)t27)[1];
f_10630(t29,t25,t23);}
else{
t19=C_eqp(((C_word*)t0)[4],lf[223]);
if(C_truep(t19)){
t20=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10671,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[17],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[18],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1012: chicken.syntax#strip-syntax */
t21=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t21;
av2[1]=t20;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}}
else{
t20=C_eqp(((C_word*)t0)[4],lf[272]);
if(C_truep(t20)){
t21=C_i_cadr(((C_word*)t0)[3]);
t22=C_u_i_cdr(((C_word*)t0)[3]);
t23=C_u_i_cdr(t22);
t24=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t25=t24;
t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp);
t27=((C_word*)t26)[1];
t28=C_i_check_list_2(t21,lf[10]);
t29=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11268,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[13],a[5]=t21,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[12],a[10]=t23,a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp);
t30=C_SCHEME_UNDEFINED;
t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp);
t32=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11333,a[2]=t26,a[3]=t31,a[4]=t27,tmp=(C_word)a,a+=5,tmp));
t33=((C_word*)t31)[1];
f_11333(t33,t29,t21);}
else{
t21=C_eqp(((C_word*)t0)[4],lf[273]);
if(C_truep(t21)){
t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11374,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[18])){
t23=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t23;
av2[1]=lf[274];
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}
else{
t23=C_i_cadr(((C_word*)t0)[3]);
t24=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11380,a[2]=t22,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1127: lookup */
t25=((C_word*)((C_word*)t0)[16])[1];
f_7862(t25,t24,t23);}}
else{
t22=C_eqp(((C_word*)t0)[4],lf[175]);
if(C_truep(t22)){
t23=C_i_cadr(((C_word*)t0)[3]);
t24=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11420,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[2],a[7]=t23,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1137: lookup */
t25=((C_word*)((C_word*)t0)[16])[1];
f_7862(t25,t24,t23);}
else{
t23=C_eqp(((C_word*)t0)[4],lf[186]);
if(C_truep(t23)){
t24=C_i_cadr(((C_word*)t0)[3]);
t25=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t26=t25;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=((C_word*)t27)[1];
t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11789,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[18],tmp=(C_word)a,a+=8,tmp);
t30=C_u_i_cdr(((C_word*)t0)[3]);
t31=C_u_i_cdr(t30);
t32=C_i_check_list_2(t31,lf[10]);
t33=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11805,a[2]=((C_word*)t0)[10],a[3]=t24,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
t34=C_SCHEME_UNDEFINED;
t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp);
t36=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11807,a[2]=t27,a[3]=t35,a[4]=t29,a[5]=t28,tmp=(C_word)a,a+=6,tmp));
t37=((C_word*)t35)[1];
f_11807(t37,t33,t31);}
else{
t24=C_eqp(((C_word*)t0)[4],lf[298]);
if(C_truep(t24)){
t25=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp);
/* core.scm:1202: unquotify */
t26=((C_word*)((C_word*)t0)[19])[1];
f_8037(t26,t25,C_i_cadr(((C_word*)t0)[3]));}
else{
t25=C_eqp(((C_word*)t0)[4],lf[299]);
if(C_truep(t25)){
t26=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t27=t26;
t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp);
t29=((C_word*)t28)[1];
t30=C_i_cadr(((C_word*)t0)[3]);
t31=C_i_check_list_2(t30,lf[10]);
t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11894,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp);
t33=C_SCHEME_UNDEFINED;
t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp);
t35=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11904,a[2]=t28,a[3]=t34,a[4]=((C_word*)t0)[19],a[5]=t29,tmp=(C_word)a,a+=6,tmp));
t36=((C_word*)t34)[1];
f_11904(t36,t32,t30);}
else{
t26=C_eqp(((C_word*)t0)[4],lf[278]);
if(C_truep(t26)){
t27=C_i_cadr(((C_word*)t0)[3]);
t28=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11953,a[2]=((C_word*)t0)[2],a[3]=t27,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1210: walk */
t29=((C_word*)((C_word*)t0)[5])[1];
f_8388(t29,t28,C_i_caddr(((C_word*)t0)[3]),((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}
else{
t27=C_eqp(((C_word*)t0)[4],lf[281]);
if(C_truep(t27)){
t28=C_i_cadr(((C_word*)t0)[3]);
t29=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11974,a[2]=((C_word*)t0)[2],a[3]=t28,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1215: walk */
t30=((C_word*)((C_word*)t0)[5])[1];
f_8388(t30,t29,C_i_caddr(((C_word*)t0)[3]),((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}
else{
t28=C_eqp(((C_word*)t0)[4],lf[300]);
t29=(C_truep(t28)?t28:C_eqp(((C_word*)t0)[4],lf[301]));
if(C_truep(t29)){
t30=C_i_cadr(((C_word*)t0)[3]);
t31=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12001,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t30,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[18],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1220: ##sys#eval/meta */
t32=*((C_word*)lf[195]+1);{
C_word av2[3];
av2[0]=t32;
av2[1]=t31;
av2[2]=t30;
((C_proc)(void*)(*((C_word*)t32+1)))(3,av2);}}
else{
t30=C_eqp(((C_word*)t0)[4],lf[302]);
t31=(C_truep(t30)?t30:C_eqp(((C_word*)t0)[4],lf[303]));
if(C_truep(t31)){
t32=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12016,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
/* core.scm:1224: ##sys#eval/meta */
t33=*((C_word*)lf[195]+1);{
C_word av2[3];
av2[0]=t33;
av2[1]=t32;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t33+1)))(3,av2);}}
else{
t32=C_eqp(((C_word*)t0)[4],lf[188]);
if(C_truep(t32)){
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[3])))){
t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12039,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t34=C_u_i_cdr(((C_word*)t0)[3]);
t35=C_SCHEME_UNDEFINED;
t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp);
t37=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12043,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[18],a[9]=t36,tmp=(C_word)a,a+=10,tmp));
t38=((C_word*)t36)[1];
f_12043(t38,t33,t34);}
else{
t33=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t33;
av2[1]=lf[305];
((C_proc)(void*)(*((C_word*)t33+1)))(2,av2);}}}
else{
t33=C_eqp(((C_word*)t0)[4],lf[306]);
if(C_truep(t33)){
t34=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12087,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1239: expand-foreign-lambda */
f_16109(t34,((C_word*)t0)[3],C_SCHEME_FALSE);}
else{
t34=C_eqp(((C_word*)t0)[4],lf[308]);
if(C_truep(t34)){
t35=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12100,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1242: expand-foreign-lambda */
f_16109(t35,((C_word*)t0)[3],C_SCHEME_TRUE);}
else{
t35=C_eqp(((C_word*)t0)[4],lf[309]);
if(C_truep(t35)){
t36=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12113,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1245: expand-foreign-lambda* */
f_16146(t36,((C_word*)t0)[3],C_SCHEME_FALSE);}
else{
t36=C_eqp(((C_word*)t0)[4],lf[311]);
if(C_truep(t36)){
t37=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12126,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1248: expand-foreign-lambda* */
f_16146(t37,((C_word*)t0)[3],C_SCHEME_TRUE);}
else{
t37=C_eqp(((C_word*)t0)[4],lf[312]);
if(C_truep(t37)){
t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12139,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp);
t39=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16263,a[2]=((C_word*)t0)[3],a[3]=t38,tmp=(C_word)a,a+=4,tmp);
t40=C_i_cddr(((C_word*)t0)[3]);
if(C_truep(C_i_pairp(t40))){
t41=C_i_caddr(((C_word*)t0)[3]);
t42=t39;
f_16263(t42,C_i_not(C_i_stringp(t41)));}
else{
t41=t39;
f_16263(t41,C_SCHEME_FALSE);}}
else{
t38=C_eqp(((C_word*)t0)[4],lf[317]);
if(C_truep(t38)){
t39=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12148,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:1254: chicken.syntax#strip-syntax */
t40=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t40;
av2[1]=t39;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t40+1)))(3,av2);}}
else{
t39=C_eqp(((C_word*)t0)[4],lf[319]);
if(C_truep(t39)){
t40=C_i_cadr(((C_word*)t0)[3]);
t41=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12195,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],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)[18],a[11]=t40,tmp=(C_word)a,a+=12,tmp);
/* core.scm:1266: chicken.syntax#strip-syntax */
t42=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t42;
av2[1]=t41;
av2[2]=C_i_caddr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t42+1)))(3,av2);}}
else{
t40=C_eqp(((C_word*)t0)[4],lf[327]);
if(C_truep(t40)){
t41=C_i_cadr(((C_word*)t0)[3]);
t42=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12317,a[2]=((C_word*)t0)[3],a[3]=t41,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[18],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1299: chicken.compiler.support#get-line */
t43=*((C_word*)lf[113]+1);{
C_word av2[3];
av2[0]=t43;
av2[1]=t42;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t43+1)))(3,av2);}}
else{
t41=C_eqp(((C_word*)t0)[4],lf[336]);
if(C_truep(t41)){
t42=C_i_cadr(((C_word*)t0)[3]);
t43=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12404,a[2]=((C_word*)t0)[3],a[3]=t42,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)[2],tmp=(C_word)a,a+=11,tmp);
/* core.scm:1319: chicken.syntax#strip-syntax */
t44=*((C_word*)lf[147]+1);{
C_word av2[3];
av2[0]=t44;
av2[1]=t43;
av2[2]=C_i_caddr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t44+1)))(3,av2);}}
else{
t42=C_eqp(((C_word*)t0)[4],lf[340]);
if(C_truep(t42)){
t43=C_i_cadr(((C_word*)t0)[3]);
t44=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12599,a[2]=((C_word*)t0)[2],a[3]=t43,a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
/* core.scm:1347: scheme#cdaddr */
t45=*((C_word*)lf[345]+1);{
C_word av2[3];
av2[0]=t45;
av2[1]=t44;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t45+1)))(3,av2);}}
else{
t43=C_eqp(((C_word*)t0)[4],lf[346]);
if(C_truep(t43)){
t44=C_i_cadr(((C_word*)t0)[3]);
t45=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12611,a[2]=((C_word*)t0)[3],a[3]=t44,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[18],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1359: chicken.compiler.support#get-line */
t46=*((C_word*)lf[113]+1);{
C_word av2[3];
av2[0]=t46;
av2[1]=t45;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t46+1)))(3,av2);}}
else{
t44=C_eqp(((C_word*)t0)[4],lf[361]);
if(C_truep(t44)){
t45=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12801,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[16],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp);
/* core.scm:1395: ##sys#current-environment */
t46=*((C_word*)lf[106]+1);{
C_word av2[2];
av2[0]=t46;
av2[1]=t45;
((C_proc)(void*)(*((C_word*)t46+1)))(2,av2);}}
else{
t45=C_eqp(((C_word*)t0)[4],lf[363]);
if(C_truep(t45)){
t46=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12914,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t47=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12924,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[21],a[7]=((C_word*)t0)[20],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
/* core.scm:1408: ##sys#call-with-values */{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t46;
av2[3]=t47;
C_call_with_values(4,av2);}}
else{
t46=C_eqp(((C_word*)t0)[4],lf[388]);
if(C_truep(t46)){
t47=C_i_cadr(((C_word*)t0)[3]);
if(C_truep(C_i_symbolp(t47))){
t48=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13305,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[2],a[7]=t47,tmp=(C_word)a,a+=8,tmp);
/* core.scm:1492: lookup */
t49=((C_word*)((C_word*)t0)[16])[1];
f_7862(t49,t48,t47);}
else{
t48=C_a_i_list(&a,2,lf[146],lf[389]);
t49=C_a_i_list(&a,5,lf[390],t47,C_fix(0),C_SCHEME_FALSE,t48);
/* core.scm:1505: walk */
t50=((C_word*)((C_word*)t0)[5])[1];
f_8388(t50,((C_word*)t0)[2],t49,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}}
else{
t47=C_a_i_cons(&a,2,((C_word*)t0)[4],*((C_word*)lf[391]+1));
t48=t47;
t49=(*a=C_VECTOR_TYPE|1,a[1]=t48,tmp=(C_word)a,a+=2,tmp);
t50=C_SCHEME_FALSE;
t51=(*a=C_VECTOR_TYPE|1,a[1]=t50,tmp=(C_word)a,a+=2,tmp);
t52=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t53=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13351,a[2]=t51,a[3]=t49,tmp=(C_word)a,a+=4,tmp);
t54=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13356,a[2]=((C_word*)t0)[20],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[18],tmp=(C_word)a,a+=8,tmp);
t55=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13362,a[2]=t49,a[3]=t51,tmp=(C_word)a,a+=4,tmp);
/* core.scm:1510: ##sys#dynamic-wind */
t56=*((C_word*)lf[116]+1);{
C_word av2[5];
av2[0]=t56;
av2[1]=t52;
av2[2]=t53;
av2[3]=t54;
av2[4]=t55;
((C_proc)(void*)(*((C_word*)t56+1)))(5,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k8743 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8745(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_8745,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[80]+1 /* (set! chicken.compiler.core#provided ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[160],((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k8763 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8765(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_8765,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8769,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8773,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
/* core.scm:718: scheme#cadadr */
t4=*((C_word*)lf[158]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8767 in k8763 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8769(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_8769,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[119],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k8771 in k8763 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8773(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8773,c,av);}
/* core.scm:718: chicken.syntax#strip-syntax */
t2=*((C_word*)lf[147]+1);{
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);}}

/* k8784 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){
C_save_and_reclaim((void *)f_8786,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8790,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:723: walk */
t3=((C_word*)((C_word*)t0)[3])[1];
f_8388(t3,t2,C_i_caddr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k8788 in k8784 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8790(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_8790,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[123],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8805 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8807(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8807,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[163];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a8826 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
C_save_and_reclaim((void *)f_8827,c,av);}
/* core.scm:733: ##sys#process-require */
t2=*((C_word*)lf[167]+1);{
C_word *av2;
if(c >= 8) {
  av2=av;
} else {
  av2=C_alloc(8);
}
av2[0]=t2;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
av2[5]=*((C_word*)lf[80]+1);
av2[6]=*((C_word*)lf[56]+1);
av2[7]=lf[168];
((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}}

/* a8832 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8833(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_unlikely(!C_demand(C_calculate_demand(16,c,8)))){
C_save_and_reclaim((void *)f_8833,c,av);}
a=C_alloc(16);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8837,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
if(C_truep(C_i_not(t3))){
/* core.scm:743: walk */
t5=((C_word*)((C_word*)t0)[2])[1];
f_8388(t5,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8848,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8854,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
/* core.scm:739: chicken.internal#hash-table-update! */
t7=*((C_word*)lf[169]+1);{
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=t7;
av2[1]=t4;
av2[2]=*((C_word*)lf[79]+1);
av2[3]=t3;
av2[4]=t5;
av2[5]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}}

/* k8835 in a8832 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_8837,c,av);}
/* core.scm:743: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* a8847 in a8832 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8848(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_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8848,c,av);}
t3=lf[11];
/* core.scm:741: g1131 */
t4=lf[11];{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t2;
av2[3]=((C_word*)t0)[2];
f_7145(4,av2);}}

/* a8853 in a8832 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_8854,c,av);}
a=C_alloc(3);
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_8870(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_8870,c,av);}
a=C_alloc(26);
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=C_i_check_list_2(t1,lf[10]);
t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8879,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t1,tmp=(C_word)a,a+=14,tmp);
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|4,a[1]=(C_word)f_9025,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_9025(t11,t7,t1);}

/* k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_8879(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){
C_save_and_reclaim((void *)f_8879,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8882,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9023,a[2]=t2,a[3]=((C_word*)t0)[13],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
/* core.scm:749: ##sys#current-environment */
t4=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_8882(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_8882,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8885,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],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);
/* core.scm:750: chicken.compiler.support#get-line */
t3=*((C_word*)lf[113]+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)[12];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_8885(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_8885,c,av);}
a=C_alloc(14);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8891,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,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],tmp=(C_word)a,a+=14,tmp);
/* core.scm:751: set-real-names! */
f_7971(t3,((C_word*)t0)[6],((C_word*)t0)[15]);}

/* k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_8891(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
C_save_and_reclaim((void *)f_8891,c,av);}
a=C_alloc(32);
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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8899,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);
t7=C_i_check_list_2(((C_word*)t0)[6],lf[10]);
t8=C_i_check_list_2(((C_word*)t0)[7],lf[10]);
t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8922,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,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|5,a[1]=(C_word)f_8973,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_8973(t13,t9,((C_word*)t0)[6],((C_word*)t0)[7]);}

/* g1184 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_fcall f_8899(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,8)))){
C_save_and_reclaim_args((void *)trf_8899,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8907,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:754: walk */
t5=((C_word*)((C_word*)t0)[2])[1];
f_8388(t5,t4,C_i_cadr(t3),((C_word*)t0)[3],C_u_i_car(t3),C_SCHEME_TRUE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k8905 in g1184 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_8907(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_8907,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_8922(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_8922,c,av);}
a=C_alloc(28);
t2=*((C_word*)lf[106]+1);
t3=((C_word*)t0)[2];
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_TRUE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8926,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8928,a[2]=t4,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8945,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8963,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:756: ##sys#dynamic-wind */
t11=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t11;
av2[1]=t7;
av2[2]=t8;
av2[3]=t9;
av2[4]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}

/* k8924 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_8926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_8926,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[171],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a8927 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_8928(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_8928,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* core.scm:756: ##sys#current-environment1210 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_8932(2,av2);}}}

/* k8930 in a8927 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_8932(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_8932,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8936,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);
/* core.scm:756: ##sys#current-environment1210 */
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k8934 in k8930 in a8927 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 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 t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_8936,c,av);}
a=C_alloc(4);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8939,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:756: ##sys#current-environment1210 */
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k8937 in k8934 in k8930 in a8927 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_8939(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8939,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a8944 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_8945(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_8945,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8953,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
/* core.scm:757: canonicalize-body/ln */
t3=((C_word*)((C_word*)t0)[9])[1];
f_7942(t3,t2,((C_word*)t0)[6],C_i_cddr(((C_word*)t0)[10]),*((C_word*)lf[52]+1));}

/* k8951 in a8944 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_8953(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_8953,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8957,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
/* core.scm:759: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
av2[3]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k8955 in k8951 in a8944 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_8957(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_8957,c,av);}
/* core.scm:757: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* a8962 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_8963(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_8963,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8967,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:756: ##sys#current-environment1210 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k8965 in a8962 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_8967(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_8967,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8970,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:756: ##sys#current-environment1210 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8968 in k8965 in a8962 in k8920 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_8970(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8970,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop1178 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_fcall f_8973(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;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_8973,4,t0,t1,t2,t3);}
a=C_alloc(7);
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|6,a[1]=(C_word)f_9002,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
/* core.scm:753: g1184 */
t7=((C_word*)t0)[4];
f_8899(t7,t6,C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)));}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k9000 in map-loop1178 in k8889 in k8883 in k8880 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_9002(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9002,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_8973(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k9021 in k8877 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9023(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9023,c,av);}
/* core.scm:749: ##sys#extend-se */
t2=*((C_word*)lf[172]+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_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop1144 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_9025(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9025,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_9050,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);
/* core.scm:748: g1150 */
t4=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(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);}}}

/* k9048 in map-loop1144 in k8868 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9050(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9050,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_9025(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9096 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_9098(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_9098,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9102,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9122,a[2]=((C_word*)t0)[9],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
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|4,a[1]=(C_word)f_9136,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_9136(t11,t7,((C_word*)t0)[10]);}

/* k9100 in k9096 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9102(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){
C_save_and_reclaim((void *)f_9102,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,lf[170],t2);
/* core.scm:765: walk */
t4=((C_word*)((C_word*)t0)[3])[1];
f_8388(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k9120 in k9096 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9122(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9122,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[170],t2);
t4=C_a_i_list(&a,1,t3);
/* core.scm:766: ##sys#append */
t5=*((C_word*)lf[174]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* map-loop1259 in k9096 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_9136(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 t11;
C_word t12;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_9136,3,t0,t1,t2);}
a=C_alloc(12);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_i_cadr(t3);
t6=C_a_i_list(&a,3,lf[175],t4,t5);
t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST);
t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7);
t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7);
t11=t1;
t12=C_slot(t2,C_fix(1));
t1=t11;
t2=t12;
goto loop;}
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);}}}

/* map-loop1232 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_9170(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 t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_9170,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_list2(&a,2,t4,lf[176]);
t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST);
t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6);
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6);
t10=t1;
t11=C_slot(t2,C_fix(1));
t1=t10;
t2=t11;
goto loop;}
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);}}}

/* k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_9214(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_9214,c,av);}
a=C_alloc(24);
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=C_i_check_list_2(t1,lf[10]);
t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9223,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
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|4,a[1]=(C_word)f_9443,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_9443(t11,t7,t1);}

/* k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9223(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){
C_save_and_reclaim((void *)f_9223,c,av);}
a=C_alloc(25);
t2=C_i_cddr(((C_word*)t0)[2]);
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)[3],lf[10]);
t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9252,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t1,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],a[11]=t2,a[12]=((C_word*)t0)[3],tmp=(C_word)a,a+=13,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_9409,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_9409(t12,t8,((C_word*)t0)[3]);}

/* k9250 in k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9252(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word 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;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){
C_save_and_reclaim((void *)f_9252,c,av);}
a=C_alloc(30);
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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9265,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t7=C_i_check_list_2(((C_word*)t0)[4],lf[10]);
t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9283,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[4],tmp=(C_word)a,a+=13,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|5,a[1]=(C_word)f_9361,a[2]=t6,a[3]=t4,a[4]=t10,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_9361(t12,t8,((C_word*)t0)[4],((C_word*)t0)[12]);}

/* g1355 in k9250 in k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static C_word C_fcall f_9265(C_word *a,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;{}
t3=C_i_cadr(t2);
t4=C_a_i_list(&a,4,lf[178],((C_word*)t0)[2],((C_word*)t0)[3],t3);
return(C_a_i_list2(&a,2,t1,t4));}

/* k9281 in k9250 in k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_9283(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
C_save_and_reclaim((void *)f_9283,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9287,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9299,a[2]=((C_word*)t0)[10],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
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|4,a[1]=(C_word)f_9313,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_9313(t11,t7,((C_word*)t0)[11],((C_word*)t0)[12]);}

/* k9285 in k9281 in k9250 in k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_9287(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){
C_save_and_reclaim((void *)f_9287,c,av);}
a=C_alloc(15);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,lf[170],t2);
t4=C_a_i_list(&a,3,lf[170],((C_word*)t0)[3],t3);
/* core.scm:781: walk */
t5=((C_word*)((C_word*)t0)[4])[1];
f_8388(t5,((C_word*)t0)[5],t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}

/* k9297 in k9281 in k9250 in k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_9299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9299,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[170],t2);
t4=C_a_i_list(&a,1,t3);
/* core.scm:782: ##sys#append */
t5=*((C_word*)lf[174]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* map-loop1385 in k9281 in k9250 in k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_fcall f_9313(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 t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_9313,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_slot(t2,C_fix(0));
t7=C_slot(t3,C_fix(0));
t8=C_a_i_list(&a,3,lf[175],t6,t7);
t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
t13=t1;
t14=C_slot(t2,C_fix(1));
t15=C_slot(t3,C_fix(1));
t1=t13;
t2=t14;
t3=t15;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* map-loop1349 in k9250 in k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_fcall f_9361(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 t11;
C_word t12;
C_word t13;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_9361,4,t0,t1,t2,t3);}
a=C_alloc(21);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(
/* core.scm:787: g1355 */
  f_9265(C_a_i(&a,18),((C_word*)t0)[2],C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)))
);
t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST);
t8=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t7);
t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,t7);
t11=t1;
t12=C_slot(t2,C_fix(1));
t13=C_slot(t3,C_fix(1));
t1=t11;
t2=t12;
t3=t13;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* map-loop1322 in k9221 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_9409(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 t11;
C_word *a;
loop:
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_9409,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_list2(&a,2,t4,lf[179]);
t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST);
t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6);
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6);
t10=t1;
t11=C_slot(t2,C_fix(1));
t1=t10;
t2=t11;
goto loop;}
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);}}}

/* map-loop1292 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_fcall f_9443(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9443,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_9468,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);
/* core.scm:779: g1298 */
t4=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(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);}}}

/* k9466 in map-loop1292 in k9212 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9468(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9468,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_9443(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* g1429 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_9488(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,6)))){
C_save_and_reclaim_args((void *)trf_9488,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9496,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:800: resolve-variable */
t4=((C_word*)((C_word*)t0)[3])[1];
f_8080(t4,t3,t2,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k9494 in g1429 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9496(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_9496,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,t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9502 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_9504(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_9504,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9507,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);
/* core.scm:805: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k9505 in k9502 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9507(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_9507,c,av);}
a=C_alloc(23);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9512,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9517,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],tmp=(C_word)a,a+=9,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9527,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* core.scm:804: ##sys#dynamic-wind */
t9=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[10];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a9511 in k9505 in k9502 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9512,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a9516 in k9505 in k9502 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9517(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_9517,c,av);}
/* core.scm:806: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,t1,C_i_cadddr(((C_word*)t0)[3]),((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* a9526 in k9505 in k9502 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9527(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9527,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop1423 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_9532(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9532,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_9557,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);
/* core.scm:799: g1429 */
t4=((C_word*)t0)[4];
f_9488(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);}}}

/* k9555 in map-loop1423 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9557(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9557,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_9532(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_9578(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_9578,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9583,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);
/* core.scm:816: ##sys#decompose-lambda-list */
t3=*((C_word*)lf[189]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[12];
av2[2]=((C_word*)((C_word*)t0)[13])[1];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9583(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;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){
C_save_and_reclaim((void *)f_9583,c,av);}
a=C_alloc(28);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_i_check_list_2(t2,lf[10]);
t10=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_9593,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,a[9]=t4,a[10]=t3,a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],tmp=(C_word)a,a+=16,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(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9755,a[2]=t7,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t14=((C_word*)t12)[1];
f_9755(t14,t10,t2);}

/* k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9593(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_9593,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_9596,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],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);
/* core.scm:820: chicken.compiler.support#get-line */
t3=*((C_word*)lf[113]+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)[15];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_9596(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_9596,c,av);}
a=C_alloc(21);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_9602,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],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=t2,a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9753,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
/* core.scm:821: ##sys#current-environment */
t5=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_9602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word 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;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,4)))){
C_save_and_reclaim((void *)f_9602,c,av);}
a=C_alloc(34);
t2=*((C_word*)lf[106]+1);
t3=t1;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_TRUE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9605,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9680,a[2]=t4,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9697,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[14],a[9]=((C_word*)t0)[15],tmp=(C_word)a,a+=10,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9741,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
/* core.scm:822: ##sys#dynamic-wind */
t11=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t11;
av2[1]=t7;
av2[2]=t8;
av2[3]=t9;
av2[4]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}

/* k9603 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_9605(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_9605,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9608,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[9])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9678,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp);
/* core.scm:837: posq */
f_7529(t3,((C_word*)t0)[9],((C_word*)t0)[8]);}
else{
/* core.scm:835: chicken.compiler.support#build-lambda-list */
t3=*((C_word*)lf[185]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[10];
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}

/* k9606 in k9603 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_9608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_9608,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,3,lf[96],t1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9614,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
/* core.scm:839: set-real-names! */
f_7971(t3,((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k9612 in k9606 in k9603 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_9614(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_9614,c,av);}
a=C_alloc(12);
t2=C_i_not(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9623,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t2)){
t4=t3;
f_9623(t4,t2);}
else{
if(C_truep(((C_word*)t0)[8])){
t4=t3;
f_9623(t4,((C_word*)t0)[8]);}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9667,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:842: ##sys#current-environment */
t5=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}

/* k9621 in k9612 in k9606 in k9603 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_fcall f_9623(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_9623,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9629,a[2]=((C_word*)t0)[2],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)[3],tmp=(C_word)a,a+=8,tmp);
if(C_truep(*((C_word*)lf[30]+1))){
t3=C_eqp(*((C_word*)lf[43]+1),lf[181]);
if(C_truep(t3)){
t4=t2;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
f_9629(2,av2);}}
else{
t4=C_eqp(*((C_word*)lf[43]+1),lf[182]);
if(C_truep(t4)){
/* core.scm:848: chicken.compiler.support#variable-mark */
t5=*((C_word*)lf[183]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=lf[184];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t5=t2;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_9629(2,av2);}}}}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_9629(2,av2);}}}}

/* k9627 in k9621 in k9612 in k9606 in k9603 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_9629,c,av);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_memq(((C_word*)t0)[5],((C_word*)t0)[6]))){
/* core.scm:849: chicken.compiler.support#expand-profile-lambda */
t3=*((C_word*)lf[180]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
/* core.scm:852: ##sys#alias-global-hook */
t3=*((C_word*)lf[124]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k9634 in k9627 in k9621 in k9612 in k9606 in k9603 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_9636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9636,c,av);}
/* core.scm:849: chicken.compiler.support#expand-profile-lambda */
t2=*((C_word*)lf[180]+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_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k9665 in k9612 in k9606 in k9603 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_9667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9667,c,av);}
t2=((C_word*)t0)[2];
f_9623(t2,C_i_assq(((C_word*)t0)[3],t1));}

/* k9676 in k9603 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_9678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9678,c,av);}
/* core.scm:835: chicken.compiler.support#build-lambda-list */
t2=*((C_word*)lf[185]+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]=C_i_list_ref(((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a9679 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_9680(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_9680,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* core.scm:822: ##sys#current-environment1502 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_9684(2,av2);}}}

/* k9682 in a9679 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_9684(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_9684,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9688,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);
/* core.scm:822: ##sys#current-environment1502 */
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9686 in k9682 in a9679 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_9688(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_9688,c,av);}
a=C_alloc(4);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9691,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:822: ##sys#current-environment1502 */
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k9689 in k9686 in k9682 in a9679 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_ccall f_9691(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9691,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a9696 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_9697(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_9697,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9701,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
/* core.scm:823: canonicalize-body/ln */
t3=((C_word*)((C_word*)t0)[8])[1];
f_7942(t3,t2,((C_word*)t0)[5],((C_word*)((C_word*)t0)[9])[1],*((C_word*)lf[52]+1));}

/* k9699 in a9696 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_9701(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_9701,c,av);}
a=C_alloc(22);
t2=C_SCHEME_END_OF_LIST;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9706,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9711,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]=t1,tmp=(C_word)a,a+=8,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9736,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
/* core.scm:825: ##sys#dynamic-wind */
t9=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[8];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a9705 in k9699 in a9696 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_9706(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9706,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a9710 in k9699 in a9696 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_9711(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){
C_save_and_reclaim((void *)f_9711,c,av);}
a=C_alloc(32);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9719,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
if(C_truep(*((C_word*)lf[24]+1))){
t3=C_a_i_list(&a,2,lf[146],((C_word*)t0)[3]);
t4=C_a_i_list(&a,3,lf[186],lf[187],t3);
t5=t2;
f_9719(t5,C_a_i_list(&a,3,lf[188],t4,((C_word*)t0)[7]));}
else{
t3=t2;
f_9719(t3,((C_word*)t0)[7]);}}

/* k9717 in a9710 in k9699 in a9696 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in ... */
static void C_fcall f_9719(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_9719,2,t0,t1);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
/* core.scm:832: scheme#append */
t3=*((C_word*)lf[5]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k9721 in k9717 in a9710 in k9699 in a9696 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in ... */
static void C_ccall f_9723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_9723,c,av);}
/* core.scm:826: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);}

/* a9735 in k9699 in a9696 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_9736(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9736,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a9740 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in ... */
static void C_ccall f_9741(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9741,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9745,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:822: ##sys#current-environment1502 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9743 in a9740 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in ... */
static void C_ccall f_9745(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_9745,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9748,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:822: ##sys#current-environment1502 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9746 in k9743 in a9740 in k9600 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in ... */
static void C_ccall f_9748(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9748,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9751 in k9594 in k9591 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_9753(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9753,c,av);}
/* core.scm:821: ##sys#extend-se */
t2=*((C_word*)lf[172]+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_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* map-loop1471 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_fcall f_9755(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9755,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_9780,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);
/* core.scm:819: g1477 */
t4=*((C_word*)lf[109]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(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);}}}

/* k9778 in map-loop1471 in a9582 in k9576 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_9780(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9780,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_9755(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9788 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_9790(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_9790,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9805,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
/* core.scm:812: ##sys#call-with-values */{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[4];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_9578(2,av2);}}}

/* a9794 in k9788 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9795(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9795,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9803,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:815: ##sys#current-environment */
t3=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9801 in a9794 in k9788 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_9803,c,av);}
/* core.scm:814: ##sys#expand-extended-lambda-list */
t2=*((C_word*)lf[190]+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*)((C_word*)t0)[3])[1];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=*((C_word*)lf[191]+1);
av2[5]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}

/* a9804 in k9788 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9805(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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9805,c,av);}
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_9817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_9817,c,av);}
a=C_alloc(23);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_TRUE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9822,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9839,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);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9859,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
/* core.scm:857: ##sys#dynamic-wind */
t9=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[11];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a9821 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9822(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_9822,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
/* core.scm:857: ##sys#current-environment1554 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_9826(2,av2);}}}

/* k9824 in a9821 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9826(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_9826,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9830,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);
/* core.scm:857: ##sys#current-environment1554 */
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9828 in k9824 in a9821 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_9830(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_9830,c,av);}
a=C_alloc(4);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9833,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:857: ##sys#current-environment1554 */
t4=((C_word*)t0)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k9831 in k9828 in k9824 in a9821 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in ... */
static void C_ccall f_9833(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9833,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a9838 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9839(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_9839,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
/* core.scm:869: chicken.compiler.support#get-line */
t3=*((C_word*)lf[113]+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)[9];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k9841 in a9838 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9843(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_9843,c,av);}
a=C_alloc(9);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9853,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]=t2,tmp=(C_word)a,a+=9,tmp);
/* core.scm:871: canonicalize-body/ln */
t4=((C_word*)((C_word*)t0)[9])[1];
f_7942(t4,t3,t2,C_i_cddr(((C_word*)t0)[10]),*((C_word*)lf[52]+1));}

/* k9851 in k9841 in a9838 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static void C_ccall f_9853(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_9853,c,av);}
/* core.scm:870: walk */
t2=((C_word*)((C_word*)t0)[2])[1];
f_8388(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* a9858 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9859(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9859,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9863,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:857: ##sys#current-environment1554 */
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9861 in a9858 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9863(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_9863,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9866,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
/* core.scm:857: ##sys#current-environment1554 */
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k9864 in k9861 in a9858 in k9815 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 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;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9866,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9882 in map-loop1563 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9884(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_9884,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9888,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9892,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
/* core.scm:865: ##sys#eval/meta */
t4=*((C_word*)lf[195]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cadr(((C_word*)t0)[7]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k9886 in k9882 in map-loop1563 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 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 t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_9888,c,av);}
a=C_alloc(12);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[4])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3);
t6=((C_word*)((C_word*)t0)[5])[1];
f_9913(t6,((C_word*)t0)[6],C_slot(((C_word*)t0)[7],C_fix(1)));}

/* k9890 in k9882 in map-loop1563 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9892(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9892,c,av);}
/* core.scm:864: ##sys#ensure-transformer */
t2=*((C_word*)lf[194]+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_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k9905 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_9907(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_9907,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9911,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:868: ##sys#current-environment */
t3=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9909 in k9905 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9911(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9911,c,av);}
/* core.scm:859: scheme#append */
t2=*((C_word*)lf[5]+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);}}

/* map-loop1563 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_fcall f_9913(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;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_9913,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9884,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp);
/* core.scm:863: ##sys#current-environment */
t6=*((C_word*)lf[106]+1);{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,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);}}}

/* k9965 in map-loop1602 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9967(C_word c,C_word *av){
C_word tmp;
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;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_9967,c,av);}
a=C_alloc(12);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],C_SCHEME_FALSE,t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t6=((C_word*)((C_word*)t0)[4])[1];
f_10083(t6,((C_word*)t0)[5],C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k9969 in map-loop1602 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9971,c,av);}
/* core.scm:880: ##sys#ensure-transformer */
t2=*((C_word*)lf[194]+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_u_i_car(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 in ... */
static void C_ccall f_9986(C_word c,C_word *av){
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;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_9986,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9989,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10081,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
/* core.scm:884: ##sys#current-environment */
t4=*((C_word*)lf[106]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in ... */
static void C_ccall f_9989(C_word c,C_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(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_9989,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9992,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
/* core.scm:885: chicken.compiler.support#get-line */
t3=*((C_word*)lf[113]+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)[10];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in ... */
static void C_ccall f_9992(C_word c,C_word *av){
C_word tmp;
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 *a;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_9992,c,av);}
a=C_alloc(29);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9996,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t4=C_i_check_list_2(((C_word*)t0)[4],lf[99]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10056,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t6=(
  f_10056(t5,((C_word*)t0)[4])
);
t7=*((C_word*)lf[106]+1);
t8=((C_word*)t0)[3];
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_TRUE;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10015,a[2]=t9,a[3]=t11,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10032,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=t2,a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp);
t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10046,a[2]=t9,a[3]=t7,tmp=(C_word)a,a+=4,tmp);
/* core.scm:890: ##sys#dynamic-wind */
t15=*((C_word*)lf[116]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t15;
av2[1]=((C_word*)t0)[12];
av2[2]=t12;
av2[3]=t13;
av2[4]=t14;
((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}}

/* g1635 in k9990 in k9987 in k9984 in k8730 in k8463 in k8451 in k8448 in k8445 in k8441 in k8438 in k8432 in k8393 in walk in chicken.compiler.core#canonicalize-expression in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in ... */
static C_word C_fcall f_9996(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_set_car(C_i_cdr(t1),((C_word*)t0)[2]));}

/* toplevel */
static C_TLS int toplevel_initialized=0;

void C_ccall C_compiler_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("compiler"));
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_compiler_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(4351))){
C_save(t1);
C_rereclaim2(4351*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,714);
lf[0]=C_h_intern(&lf[0],8, C_text("compiler"));
lf[1]=C_h_intern(&lf[1],22, C_text("chicken.compiler.core#"));
lf[5]=C_h_intern(&lf[5],13, C_text("scheme#append"));
lf[8]=C_h_intern(&lf[8],5, C_text("foldr"));
lf[10]=C_h_intern(&lf[10],3, C_text("map"));
lf[14]=C_h_intern(&lf[14],5, C_text("foldl"));
lf[17]=C_h_intern(&lf[17],31, C_text("chicken.compiler.core#unit-name"));
lf[18]=C_h_intern(&lf[18],39, C_text("chicken.compiler.core#standard-bindings"));
lf[19]=C_h_intern(&lf[19],39, C_text("chicken.compiler.core#extended-bindings"));
lf[20]=C_h_intern(&lf[20],41, C_text("chicken.compiler.core#insert-timer-checks"));
lf[21]=C_h_intern(&lf[21],32, C_text("chicken.compiler.core#used-units"));
lf[22]=C_h_intern(&lf[22],42, C_text("chicken.compiler.core#foreign-declarations"));
lf[23]=C_h_intern(&lf[23],37, C_text("chicken.compiler.core#emit-trace-info"));
lf[24]=C_h_intern(&lf[24],37, C_text("chicken.compiler.core#emit-debug-info"));
lf[25]=C_h_intern(&lf[25],39, C_text("chicken.compiler.core#block-compilation"));
lf[26]=C_h_intern(&lf[26],47, C_text("chicken.compiler.core#line-number-database-size"));
lf[27]=C_h_intern(&lf[27],38, C_text("chicken.compiler.core#target-heap-size"));
lf[28]=C_h_intern(&lf[28],39, C_text("chicken.compiler.core#target-stack-size"));
lf[29]=C_h_intern(&lf[29],44, C_text("chicken.compiler.core#optimize-leaf-routines"));
lf[30]=C_h_intern(&lf[30],34, C_text("chicken.compiler.core#emit-profile"));
lf[31]=C_h_intern(&lf[31],37, C_text("chicken.compiler.core#no-bound-checks"));
lf[32]=C_h_intern(&lf[32],36, C_text("chicken.compiler.core#no-argc-checks"));
lf[33]=C_h_intern(&lf[33],41, C_text("chicken.compiler.core#no-procedure-checks"));
lf[34]=C_h_intern(&lf[34],48, C_text("chicken.compiler.core#no-global-procedure-checks"));
lf[36]=C_h_intern(&lf[36],39, C_text("chicken.compiler.core#explicit-use-flag"));
lf[37]=C_h_intern(&lf[37],53, C_text("chicken.compiler.core#disable-stack-overflow-checking"));
lf[38]=C_h_intern(&lf[38],43, C_text("chicken.compiler.core#external-protos-first"));
lf[39]=C_h_intern(&lf[39],37, C_text("chicken.compiler.core#inline-max-size"));
lf[40]=C_h_intern(&lf[40],34, C_text("chicken.compiler.core#unroll-limit"));
lf[41]=C_h_intern(&lf[41],39, C_text("chicken.compiler.core#emit-closure-info"));
lf[42]=C_h_intern(&lf[42],46, C_text("chicken.compiler.core#undefine-shadowed-macros"));
lf[43]=C_h_intern(&lf[43],41, C_text("chicken.compiler.core#profiled-procedures"));
lf[44]=C_h_intern(&lf[44],38, C_text("chicken.compiler.core#import-libraries"));
lf[45]=C_h_intern(&lf[45],42, C_text("chicken.compiler.core#all-import-libraries"));
lf[46]=C_h_intern(&lf[46],57, C_text("chicken.compiler.core#preserve-unchanged-import-libraries"));
lf[47]=C_h_intern(&lf[47],49, C_text("chicken.compiler.core#compile-module-registration"));
lf[48]=C_h_intern(&lf[48],43, C_text("chicken.compiler.core#standalone-executable"));
lf[49]=C_h_intern(&lf[49],39, C_text("chicken.compiler.core#local-definitions"));
lf[50]=C_h_intern(&lf[50],36, C_text("chicken.compiler.core#inline-locally"));
lf[51]=C_h_intern(&lf[51],41, C_text("chicken.compiler.core#enable-inline-files"));
lf[52]=C_h_intern(&lf[52],45, C_text("chicken.compiler.core#compiler-syntax-enabled"));
lf[53]=C_h_intern(&lf[53],36, C_text("chicken.compiler.core#bootstrap-mode"));
lf[54]=C_h_intern(&lf[54],43, C_text("chicken.compiler.core#strict-variable-types"));
lf[55]=C_h_intern(&lf[55],43, C_text("chicken.compiler.core#enable-specialization"));
lf[56]=C_h_intern(&lf[56],39, C_text("chicken.compiler.core#static-extensions"));
lf[57]=C_h_intern(&lf[57],36, C_text("chicken.compiler.core#emit-link-file"));
lf[58]=C_h_intern(&lf[58],34, C_text("chicken.compiler.core#verbose-mode"));
lf[62]=C_h_intern(&lf[62],44, C_text("chicken.compiler.core#line-number-database-2"));
lf[63]=C_h_intern(&lf[63],41, C_text("chicken.compiler.core#immutable-constants"));
lf[64]=C_h_intern(&lf[64],34, C_text("chicken.compiler.core#inline-table"));
lf[65]=C_h_intern(&lf[65],36, C_text("chicken.compiler.core#constant-table"));
lf[66]=C_h_intern(&lf[66],50, C_text("chicken.compiler.core#inline-substitutions-enabled"));
lf[68]=C_h_intern(&lf[68],36, C_text("chicken.compiler.core#first-analysis"));
lf[70]=C_h_intern(&lf[70],42, C_text("chicken.compiler.core#foreign-lambda-stubs"));
lf[71]=C_h_intern(&lf[71],40, C_text("chicken.compiler.core#external-variables"));
lf[79]=C_h_intern(&lf[79],39, C_text("chicken.compiler.core#file-requirements"));
lf[80]=C_h_intern(&lf[80],30, C_text("chicken.compiler.core#provided"));
lf[81]=C_h_intern(&lf[81],46, C_text("chicken.compiler.core#linked-static-extensions"));
lf[83]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001unquote\376\003\000\000\002\376\001\000\000\020\001unquote-splicing\376\377\016"));
lf[84]=C_h_intern(&lf[84],47, C_text("chicken.compiler.core#default-extended-bindings"));
lf[85]=C_h_intern(&lf[85],47, C_text("chicken.compiler.core#default-standard-bindings"));
lf[86]=C_h_intern(&lf[86],39, C_text("chicken.compiler.core#internal-bindings"));
lf[87]=C_h_intern(&lf[87],41, C_text("chicken.compiler.core#initialize-compiler"));
lf[88]=C_h_intern(&lf[88],50, C_text("chicken.compiler.support#clear-foreign-type-table!"));
lf[89]=C_h_intern(&lf[89],19, C_text("scheme#vector-fill!"));
lf[90]=C_h_intern(&lf[90],18, C_text("scheme#make-vector"));
lf[91]=C_h_intern(&lf[91],47, C_text("chicken.compiler.support#clear-real-name-table!"));
lf[92]=C_h_intern(&lf[92],56, C_text("chicken.compiler.support#reset-profile-info-vector-name!"));
lf[93]=C_h_intern(&lf[93],49, C_text("chicken.compiler.core#compute-database-statistics"));
lf[94]=C_h_intern(&lf[94],6, C_text("global"));
lf[95]=C_h_intern(&lf[95],5, C_text("value"));
lf[96]=C_h_intern(&lf[96],13, C_text("##core#lambda"));
lf[97]=C_h_intern(&lf[97],35, C_text("chicken.compiler.support#node-class"));
lf[98]=C_h_intern(&lf[98],10, C_text("call-sites"));
lf[99]=C_h_intern(&lf[99],8, C_text("for-each"));
lf[100]=C_h_intern(&lf[100],36, C_text("chicken.internal#hash-table-for-each"));
lf[101]=C_h_intern(&lf[101],45, C_text("chicken.compiler.core#canonicalize-expression"));
lf[102]=C_h_intern(&lf[102],9, C_text("##sys#get"));
lf[103]=C_h_intern(&lf[103],18, C_text("##core#macro-alias"));
lf[104]=C_h_intern(&lf[104],13, C_text("scheme#values"));
lf[105]=C_h_intern(&lf[105],14, C_text("scheme#symbol\077"));
lf[106]=C_h_intern(&lf[106],25, C_text("##sys#current-environment"));
lf[107]=C_h_intern(&lf[107],24, C_text("chicken.keyword#keyword\077"));
lf[108]=C_h_intern(&lf[108],10, C_text("##sys#put!"));
lf[109]=C_h_intern(&lf[109],19, C_text("chicken.base#gensym"));
lf[110]=C_h_intern(&lf[110],32, C_text("chicken.internal#hash-table-set!"));
lf[111]=C_h_intern(&lf[111],26, C_text("##sys#line-number-database"));
lf[112]=C_h_intern(&lf[112],31, C_text("chicken.internal#hash-table-ref"));
lf[113]=C_h_intern(&lf[113],33, C_text("chicken.compiler.support#get-line"));
lf[114]=C_h_intern(&lf[114],36, C_text("chicken.syntax#expansion-result-hook"));
lf[115]=C_h_intern(&lf[115],23, C_text("##sys#canonicalize-body"));
lf[116]=C_h_intern(&lf[116],18, C_text("##sys#dynamic-wind"));
lf[117]=C_h_intern(&lf[117],39, C_text("chicken.compiler.support#set-real-name!"));
lf[118]=C_h_intern(&lf[118],5, C_text("quote"));
lf[119]=C_h_intern(&lf[119],17, C_text("##core#inline_ref"));
lf[120]=C_h_intern(&lf[120],52, C_text("chicken.compiler.support#foreign-type-convert-result"));
lf[121]=C_h_intern(&lf[121],46, C_text("chicken.compiler.support#finish-foreign-result"));
lf[122]=C_h_intern(&lf[122],43, C_text("chicken.compiler.support#final-foreign-type"));
lf[123]=C_h_intern(&lf[123],21, C_text("##core#inline_loc_ref"));
lf[124]=C_h_intern(&lf[124],23, C_text("##sys#alias-global-hook"));
lf[125]=C_h_intern(&lf[125],39, C_text("chicken.compiler.support#quit-compiling"));
lf[126]=C_decode_literal(C_heaptop,C_text("\376B\000\0008~acyclical reference in LETREC binding for variable `~a\047"));
lf[127]=C_h_intern(&lf[127],38, C_text("chicken.compiler.support#get-real-name"));
lf[128]=C_h_intern(&lf[128],6, C_text("format"));
lf[129]=C_h_intern(&lf[129],30, C_text("chicken.base#get-output-string"));
lf[130]=C_h_intern(&lf[130],11, C_text("##sys#print"));
lf[131]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[132]=C_h_intern(&lf[132],18, C_text("##sys#write-char-0"));
lf[133]=C_h_intern(&lf[133],31, C_text("chicken.base#open-output-string"));
lf[134]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[135]=C_h_intern(&lf[135],20, C_text("chicken.base#warning"));
lf[136]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\047 possibly unintended"));
lf[137]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027reference to variable `"));
lf[138]=C_h_intern(&lf[138],26, C_text("##sys#syntax-error/context"));
lf[139]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023illegal atomic form"));
lf[140]=C_h_intern(&lf[140],34, C_text("chicken.compiler.support#constant\077"));
lf[141]=C_h_intern(&lf[141],26, C_text("##sys#syntax-error-culprit"));
lf[142]=C_h_intern(&lf[142],9, C_text("##core#if"));
lf[143]=C_h_intern(&lf[143],2, C_text("if"));
lf[144]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[145]=C_h_intern(&lf[145],13, C_text("##core#syntax"));
lf[146]=C_h_intern(&lf[146],12, C_text("##core#quote"));
lf[147]=C_h_intern(&lf[147],27, C_text("chicken.syntax#strip-syntax"));
lf[148]=C_h_intern(&lf[148],12, C_text("##core#check"));
lf[149]=C_h_intern(&lf[149],31, C_text("chicken.compiler.support#unsafe"));
lf[150]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001quote\376\003\000\000\002\376\377\006\001\376\377\016"));
lf[151]=C_h_intern(&lf[151],10, C_text("##core#the"));
lf[152]=C_h_intern(&lf[152],15, C_text("##core#typecase"));
lf[153]=C_h_intern(&lf[153],16, C_text("##core#immutable"));
lf[154]=C_h_intern(&lf[154],38, C_text("chicken.compiler.support#hide-variable"));
lf[155]=C_h_intern(&lf[155],38, C_text("chicken.compiler.support#mark-variable"));
lf[156]=C_h_intern(&lf[156],23, C_text("##compiler#always-bound"));
lf[157]=C_h_intern(&lf[157],1, C_text("c"));
lf[158]=C_h_intern(&lf[158],13, C_text("scheme#cadadr"));
lf[159]=C_h_intern(&lf[159],15, C_text("##core#callunit"));
lf[160]=C_h_intern(&lf[160],14, C_text("##core#provide"));
lf[161]=C_h_intern(&lf[161],12, C_text("scheme#caadr"));
lf[162]=C_h_intern(&lf[162],25, C_text("##core#require-for-syntax"));
lf[163]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[164]=C_h_intern(&lf[164],27, C_text("chicken.load#load-extension"));
lf[165]=C_h_intern(&lf[165],7, C_text("require"));
lf[166]=C_h_intern(&lf[166],14, C_text("##core#require"));
lf[167]=C_h_intern(&lf[167],21, C_text("##sys#process-require"));
lf[169]=C_h_intern(&lf[169],35, C_text("chicken.internal#hash-table-update!"));
lf[170]=C_h_intern(&lf[170],10, C_text("##core#let"));
lf[171]=C_h_intern(&lf[171],3, C_text("let"));
lf[172]=C_h_intern(&lf[172],15, C_text("##sys#extend-se"));
lf[173]=C_h_intern(&lf[173],14, C_text("##core#letrec\052"));
lf[174]=C_h_intern(&lf[174],12, C_text("##sys#append"));
lf[175]=C_h_intern(&lf[175],11, C_text("##core#set!"));
lf[176]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[177]=C_h_intern(&lf[177],13, C_text("##core#letrec"));
lf[178]=C_h_intern(&lf[178],26, C_text("##core#with-forbidden-refs"));
lf[179]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[180]=C_h_intern(&lf[180],46, C_text("chicken.compiler.support#expand-profile-lambda"));
lf[181]=C_h_intern(&lf[181],3, C_text("all"));
lf[182]=C_h_intern(&lf[182],4, C_text("some"));
lf[183]=C_h_intern(&lf[183],38, C_text("chicken.compiler.support#variable-mark"));
lf[184]=C_h_intern(&lf[184],18, C_text("##compiler#profile"));
lf[185]=C_h_intern(&lf[185],42, C_text("chicken.compiler.support#build-lambda-list"));
lf[186]=C_h_intern(&lf[186],18, C_text("##core#debug-event"));
lf[187]=C_h_intern(&lf[187],13, C_text("C_DEBUG_ENTRY"));
lf[188]=C_h_intern(&lf[188],12, C_text("##core#begin"));
lf[189]=C_h_intern(&lf[189],27, C_text("##sys#decompose-lambda-list"));
lf[190]=C_h_intern(&lf[190],33, C_text("##sys#expand-extended-lambda-list"));
lf[191]=C_h_intern(&lf[191],11, C_text("##sys#error"));
lf[192]=C_h_intern(&lf[192],27, C_text("##sys#extended-lambda-list\077"));
lf[193]=C_h_intern(&lf[193],17, C_text("##core#let-syntax"));
lf[194]=C_h_intern(&lf[194],24, C_text("##sys#ensure-transformer"));
lf[195]=C_h_intern(&lf[195],15, C_text("##sys#eval/meta"));
lf[196]=C_h_intern(&lf[196],20, C_text("##core#letrec-syntax"));
lf[197]=C_h_intern(&lf[197],20, C_text("##core#define-syntax"));
lf[198]=C_h_intern(&lf[198],27, C_text("##sys#enable-runtime-macros"));
lf[199]=C_h_intern(&lf[199],30, C_text("##sys#extend-macro-environment"));
lf[200]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[201]=C_h_intern(&lf[201],28, C_text("##sys#register-syntax-export"));
lf[202]=C_h_intern(&lf[202],20, C_text("##sys#current-module"));
lf[203]=C_h_intern(&lf[203],12, C_text("scheme#cdadr"));
lf[204]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001variable\376\001\000\000\013\001lambda-list\376\000\000\000\002\376\001\000\000\001\001_\376\377\001\000\000\000\001"));
lf[205]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001_\376\003\000\000\002\376\001\000\000\010\001variable\376\003\000\000\002\376\001\000\000\001\001_\376\377\016"));
lf[206]=C_h_intern(&lf[206],18, C_text("##sys#check-syntax"));
lf[207]=C_h_intern(&lf[207],29, C_text("##core#define-compiler-syntax"));
lf[208]=C_h_intern(&lf[208],26, C_text("##compiler#compiler-syntax"));
lf[209]=C_h_intern(&lf[209],10, C_text("##sys#cons"));
lf[210]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[211]=C_h_intern(&lf[211],26, C_text("##core#let-compiler-syntax"));
lf[212]=C_h_intern(&lf[212],19, C_text("let-compiler-syntax"));
lf[213]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001symbol\376\000\000\000\003\376\001\000\000\001\001_\376\377\001\000\000\000\000\376\377\001\000\000\000\001"));
lf[214]=C_h_intern(&lf[214],19, C_text("scheme#dynamic-wind"));
lf[215]=C_h_intern(&lf[215],14, C_text("##core#include"));
lf[216]=C_h_intern(&lf[216],39, C_text("chicken.compiler.support#read-info-hook"));
lf[217]=C_h_intern(&lf[217],28, C_text("##sys#default-read-info-hook"));
lf[218]=C_h_intern(&lf[218],29, C_text("##sys#include-forms-from-file"));
lf[219]=C_h_intern(&lf[219],23, C_text("##core#let-module-alias"));
lf[220]=C_h_intern(&lf[220],25, C_text("##sys#with-module-aliases"));
lf[221]=C_h_intern(&lf[221],7, C_text("functor"));
lf[222]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001symbol\376\003\000\000\002\376\001\000\000\006\001symbol\376\377\016"));
lf[223]=C_h_intern(&lf[223],13, C_text("##core#module"));
lf[224]=C_h_intern(&lf[224],23, C_text("##sys#macro-environment"));
lf[225]=C_h_intern(&lf[225],30, C_text("##sys#module-alias-environment"));
lf[226]=C_h_intern(&lf[226],31, C_text("##sys#initial-macro-environment"));
lf[227]=C_h_intern(&lf[227],3, C_text("yes"));
lf[228]=C_h_intern(&lf[228],34, C_text("##sys#compiled-module-registration"));
lf[229]=C_h_intern(&lf[229],14, C_text("scheme#reverse"));
lf[230]=C_h_intern(&lf[230],13, C_text("scheme#equal\077"));
lf[231]=C_h_intern(&lf[231],18, C_text("chicken.base#print"));
lf[232]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037not generating import library `"));
lf[233]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\047 for module `"));
lf[234]=C_decode_literal(C_heaptop,C_text("\376B\000\000 \047 because imports did not change"));
lf[235]=C_h_intern(&lf[235],33, C_text("chicken.pretty-print#pretty-print"));
lf[236]=C_decode_literal(C_heaptop,C_text("\376B\000\000\017\012;; END OF FILE"));
lf[237]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005;;;; "));
lf[238]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030 - GENERATED BY CHICKEN "));
lf[239]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020 -\052- Scheme -\052-\012"));
lf[240]=C_h_intern(&lf[240],32, C_text("chicken.platform#chicken-version"));
lf[241]=C_h_intern(&lf[241],26, C_text("scheme#with-output-to-file"));
lf[242]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033generating import library `"));
lf[243]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016\047 for module `"));
lf[244]=C_decode_literal(C_heaptop,C_text("\376B\000\000\005\047 ..."));
lf[245]=C_h_intern(&lf[245],27, C_text("scheme#call-with-input-file"));
lf[246]=C_h_intern(&lf[246],41, C_text("chicken.compiler.support#read-expressions"));
lf[247]=C_h_intern(&lf[247],25, C_text("chicken.file#file-exists\077"));
lf[248]=C_h_intern(&lf[248],19, C_text("##sys#string-append"));
lf[249]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm"));
lf[250]=C_h_intern(&lf[250],21, C_text("scheme#symbol->string"));
lf[251]=C_h_intern(&lf[251],17, C_text("chicken.base#exit"));
lf[252]=C_h_intern(&lf[252],37, C_text("chicken.condition#print-error-message"));
lf[253]=C_h_intern(&lf[253],20, C_text("##sys#standard-error"));
lf[254]=C_decode_literal(C_heaptop,C_text("\376B\000\000\022a foreign variable"));
lf[255]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023an inlined function"));
lf[256]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012a constant"));
lf[257]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023a type abbreviation"));
lf[258]=C_h_intern(&lf[258],28, C_text("##compiler#type-abbreviation"));
lf[259]=C_h_intern(&lf[259],21, C_text("##sys#finalize-module"));
lf[260]=C_h_intern(&lf[260],40, C_text("chicken.condition#with-exception-handler"));
lf[261]=C_h_intern(&lf[261],37, C_text("scheme#call-with-current-continuation"));
lf[262]=C_h_intern(&lf[262],27, C_text("##sys#with-property-restore"));
lf[263]=C_h_intern(&lf[263],21, C_text("##sys#register-module"));
lf[264]=C_h_intern(&lf[264],48, C_text("chicken.compiler.support#canonicalize-begin-body"));
lf[265]=C_h_intern(&lf[265],30, C_text("##sys#current-meta-environment"));
lf[266]=C_h_intern(&lf[266],28, C_text("##sys#meta-macro-environment"));
lf[267]=C_h_intern(&lf[267],23, C_text("##sys#syntax-error-hook"));
lf[268]=C_h_intern(&lf[268],6, C_text("module"));
lf[269]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031modules may not be nested"));
lf[270]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025invalid export syntax"));
lf[271]=C_h_intern(&lf[271],35, C_text("chicken.internal#module-requirement"));
lf[272]=C_h_intern(&lf[272],18, C_text("##core#loop-lambda"));
lf[273]=C_h_intern(&lf[273],33, C_text("##core#ensure-toplevel-definition"));
lf[274]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\0005~atoplevel definition of `~s\047 in non-toplevel context"));
lf[276]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[277]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[278]=C_h_intern(&lf[278],20, C_text("##core#inline_update"));
lf[279]=C_h_intern(&lf[279],43, C_text("chicken.compiler.support#foreign-type-check"));
lf[280]=C_h_intern(&lf[280],54, C_text("chicken.compiler.support#foreign-type-convert-argument"));
lf[281]=C_h_intern(&lf[281],24, C_text("##core#inline_loc_update"));
lf[282]=C_h_intern(&lf[282],4, C_text("set!"));
lf[283]=C_h_intern(&lf[283],30, C_text("##sys#unregister-syntax-export"));
lf[284]=C_h_intern(&lf[284],21, C_text("##sys#undefine-macro!"));
lf[285]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026assignment to syntax `"));
lf[286]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[287]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[288]=C_decode_literal(C_heaptop,C_text("\376B\000\000&assignment to imported value binding `"));
lf[289]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[290]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[291]=C_h_intern(&lf[291],12, C_text("##sys#macro\077"));
lf[292]=C_h_intern(&lf[292],21, C_text("C_DEBUG_GLOBAL_ASSIGN"));
lf[293]=C_h_intern(&lf[293],36, C_text("##compiler#always-bound-to-procedure"));
lf[294]=C_decode_literal(C_heaptop,C_text("\376B\000\000\025\047 possibly unintended"));
lf[295]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030assignment to variable `"));
lf[296]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[297]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[298]=C_h_intern(&lf[298],13, C_text("##core#inline"));
lf[299]=C_h_intern(&lf[299],22, C_text("##core#inline_allocate"));
lf[300]=C_h_intern(&lf[300],21, C_text("##core#compiletimetoo"));
lf[301]=C_h_intern(&lf[301],25, C_text("##core#elaborationtimetoo"));
lf[302]=C_h_intern(&lf[302],22, C_text("##core#compiletimeonly"));
lf[303]=C_h_intern(&lf[303],26, C_text("##core#elaborationtimeonly"));
lf[304]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[305]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[306]=C_h_intern(&lf[306],21, C_text("##core#foreign-lambda"));
lf[308]=C_h_intern(&lf[308],26, C_text("##core#foreign-safe-lambda"));
lf[309]=C_h_intern(&lf[309],22, C_text("##core#foreign-lambda\052"));
lf[311]=C_h_intern(&lf[311],27, C_text("##core#foreign-safe-lambda\052"));
lf[312]=C_h_intern(&lf[312],24, C_text("##core#foreign-primitive"));
lf[313]=C_h_intern(&lf[313],4, C_text("void"));
lf[315]=C_h_intern(&lf[315],33, C_text("chicken.string#string-intersperse"));
lf[316]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[317]=C_h_intern(&lf[317],30, C_text("##core#define-foreign-variable"));
lf[318]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[319]=C_h_intern(&lf[319],26, C_text("##core#define-foreign-type"));
lf[320]=C_h_intern(&lf[320],12, C_text("##sys#values"));
lf[321]=C_h_intern(&lf[321],21, C_text("##sys#register-export"));
lf[322]=C_h_intern(&lf[322],47, C_text("chicken.compiler.support#register-foreign-type!"));
lf[323]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[324]=C_decode_literal(C_heaptop,C_text("\376B\000\0009~adefinition of foreign type `~s\047 in non-toplevel context"));
lf[325]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[326]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[327]=C_h_intern(&lf[327],31, C_text("##core#define-external-variable"));
lf[328]=C_h_intern(&lf[328],9, C_text("c-pointer"));
lf[329]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[330]=C_h_intern(&lf[330],20, C_text("scheme#string-append"));
lf[331]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001&"));
lf[332]=C_decode_literal(C_heaptop,C_text("\376B\000\000>~aexternal variable definition of `~s\047 in non-toplevel context"));
lf[333]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[334]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[335]=C_h_intern(&lf[335],41, C_text("chicken.compiler.support#make-random-name"));
lf[336]=C_h_intern(&lf[336],19, C_text("##core#let-location"));
lf[337]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_bytevector"));
lf[338]=C_h_intern(&lf[338],37, C_text("chicken.compiler.support#bytes->words"));
lf[339]=C_h_intern(&lf[339],62, C_text("chicken.compiler.support#estimate-foreign-result-location-size"));
lf[340]=C_h_intern(&lf[340],20, C_text("##core#define-inline"));
lf[341]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[342]=C_decode_literal(C_heaptop,C_text("\376B\000\0003~ainline definition of `~s\047 in non-toplevel context"));
lf[343]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[344]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[345]=C_h_intern(&lf[345],13, C_text("scheme#cdaddr"));
lf[346]=C_h_intern(&lf[346],22, C_text("##core#define-constant"));
lf[347]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[348]=C_h_intern(&lf[348],6, C_text("define"));
lf[349]=C_h_intern(&lf[349],19, C_text("##compiler#constant"));
lf[350]=C_decode_literal(C_heaptop,C_text("\376B\000\000\010constant"));
lf[351]=C_decode_literal(C_heaptop,C_text("\376B\000\0004~ainvalid compile-time value for named constant `~S\047"));
lf[352]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[353]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[354]=C_h_intern(&lf[354],39, C_text("chicken.compiler.support#basic-literal\077"));
lf[355]=C_h_intern(&lf[355],45, C_text("chicken.compiler.support#collapsable-literal\077"));
lf[356]=C_decode_literal(C_heaptop,C_text("\376B\000\0005~aconstant definition of `~s\047 in non-toplevel context"));
lf[357]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[358]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[359]=C_decode_literal(C_heaptop,C_text("\376B\000\000:error in constant evaluation of ~S for named constant `~S\047"));
lf[360]=C_h_intern(&lf[360],11, C_text("scheme#eval"));
lf[361]=C_h_intern(&lf[361],14, C_text("##core#declare"));
lf[362]=C_h_intern(&lf[362],41, C_text("chicken.compiler.core#process-declaration"));
lf[363]=C_h_intern(&lf[363],31, C_text("##core#foreign-callback-wrapper"));
lf[364]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\020\001nonnull-c-string\376\377\016"));
lf[365]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\031\001nonnull-unsigned-c-string\376\377\016"));
lf[366]=C_h_intern(&lf[366],25, C_text("nonnull-unsigned-c-string"));
lf[367]=C_h_intern(&lf[367],16, C_text("nonnull-c-string"));
lf[368]=C_h_intern(&lf[368],19, C_text("##sys#make-c-string"));
lf[369]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\011\001c-string\052\376\377\016"));
lf[370]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\022\001unsigned-c-string\052\376\377\016"));
lf[371]=C_h_intern(&lf[371],18, C_text("unsigned-c-string\052"));
lf[372]=C_h_intern(&lf[372],9, C_text("c-string\052"));
lf[373]=C_h_intern(&lf[373],13, C_text("c-string-list"));
lf[374]=C_h_intern(&lf[374],14, C_text("c-string-list\052"));
lf[375]=C_h_intern(&lf[375],27, C_text("chicken.syntax#syntax-error"));
lf[376]=C_decode_literal(C_heaptop,C_text("\376B\000\000/not a valid result type for callback procedures"));
lf[377]=C_h_intern(&lf[377],8, C_text("c-string"));
lf[378]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\021\001unsigned-c-string\376\377\016"));
lf[379]=C_h_intern(&lf[379],17, C_text("unsigned-c-string"));
lf[380]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001const\376\003\000\000\002\376\001\000\000\010\001c-string\376\377\016"));
lf[381]=C_h_intern(&lf[381],1, C_text("r"));
lf[382]=C_h_intern(&lf[382],3, C_text("and"));
lf[383]=C_decode_literal(C_heaptop,C_text("\376B\000\000Anon-matching or invalid argument list to foreign callback-wrapper"));
lf[384]=C_decode_literal(C_heaptop,C_text("\376B\000\000>~aname `~S\047 of external definition is not a valid C identifier"));
lf[385]=C_decode_literal(C_heaptop,C_text("\376B\000\000\004) - "));
lf[386]=C_decode_literal(C_heaptop,C_text("\376B\000\000\000"));
lf[387]=C_h_intern(&lf[387],44, C_text("chicken.compiler.support#valid-c-identifier\077"));
lf[388]=C_h_intern(&lf[388],15, C_text("##core#location"));
lf[389]=C_h_intern(&lf[389],8, C_text("location"));
lf[390]=C_h_intern(&lf[390],19, C_text("##sys#make-locative"));
lf[391]=C_h_intern(&lf[391],20, C_text("##sys#syntax-context"));
lf[392]=C_h_intern(&lf[392],16, C_text("##core#primitive"));
lf[393]=C_h_intern(&lf[393],16, C_text("##core#undefined"));
lf[394]=C_h_intern(&lf[394],21, C_text("chicken.syntax#expand"));
lf[395]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030) - malformed expression"));
lf[396]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024malformed expression"));
lf[397]=C_h_intern(&lf[397],47, C_text("chicken.compiler.support#emit-syntax-trace-info"));
lf[398]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024malformed expression"));
lf[399]=C_decode_literal(C_heaptop,C_text("\376B\000\000\034literal in operator position"));
lf[400]=C_h_intern(&lf[400],42, C_text("chicken.compiler.support#debugging-chicken"));
lf[401]=C_h_intern(&lf[401],14, C_text("scheme#newline"));
lf[402]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid declaration"));
lf[403]=C_h_intern(&lf[403],15, C_text("##sys#globalize"));
lf[404]=C_h_intern(&lf[404],12, C_text("##sys#notice"));
lf[405]=C_decode_literal(C_heaptop,C_text("\376B\000\0001ignoring declaration for locally bound variable `"));
lf[406]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[407]=C_h_intern(&lf[407],4, C_text("uses"));
lf[408]=C_h_intern(&lf[408],6, C_text("static"));
lf[409]=C_h_intern(&lf[409],4, C_text("unit"));
lf[410]=C_decode_literal(C_heaptop,C_text("\376B\000\0003unit was already given a name (new name is ignored)"));
lf[411]=C_h_intern(&lf[411],17, C_text("standard-bindings"));
lf[412]=C_h_intern(&lf[412],17, C_text("extended-bindings"));
lf[413]=C_h_intern(&lf[413],18, C_text("usual-integrations"));
lf[414]=C_h_intern(&lf[414],11, C_text("number-type"));
lf[415]=C_h_intern(&lf[415],36, C_text("chicken.compiler.support#number-type"));
lf[416]=C_h_intern(&lf[416],6, C_text("fixnum"));
lf[417]=C_h_intern(&lf[417],17, C_text("fixnum-arithmetic"));
lf[418]=C_h_intern(&lf[418],7, C_text("generic"));
lf[419]=C_h_intern(&lf[419],6, C_text("unsafe"));
lf[420]=C_h_intern(&lf[420],4, C_text("safe"));
lf[421]=C_h_intern(&lf[421],15, C_text("no-bound-checks"));
lf[422]=C_h_intern(&lf[422],14, C_text("no-argc-checks"));
lf[423]=C_h_intern(&lf[423],19, C_text("no-procedure-checks"));
lf[424]=C_h_intern(&lf[424],18, C_text("disable-interrupts"));
lf[425]=C_h_intern(&lf[425],12, C_text("always-bound"));
lf[426]=C_h_intern(&lf[426],12, C_text("safe-globals"));
lf[427]=C_h_intern(&lf[427],38, C_text("no-procedure-checks-for-usual-bindings"));
lf[428]=C_h_intern(&lf[428],41, C_text("no-procedure-checks-for-toplevel-bindings"));
lf[429]=C_h_intern(&lf[429],18, C_text("bound-to-procedure"));
lf[430]=C_h_intern(&lf[430],15, C_text("foreign-declare"));
lf[431]=C_h_intern(&lf[431],7, C_text("declare"));
lf[432]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023invalid declaration"));
lf[433]=C_h_intern(&lf[433],14, C_text("scheme#string\077"));
lf[434]=C_h_intern(&lf[434],5, C_text("block"));
lf[435]=C_h_intern(&lf[435],8, C_text("separate"));
lf[436]=C_h_intern(&lf[436],20, C_text("keep-shadowed-macros"));
lf[437]=C_h_intern(&lf[437],6, C_text("unused"));
lf[438]=C_h_intern(&lf[438],17, C_text("##compiler#unused"));
lf[439]=C_h_intern(&lf[439],22, C_text("enforce-argument-types"));
lf[440]=C_h_intern(&lf[440],18, C_text("##compiler#enforce"));
lf[441]=C_h_intern(&lf[441],3, C_text("not"));
lf[442]=C_h_intern(&lf[442],6, C_text("inline"));
lf[443]=C_h_intern(&lf[443],17, C_text("##compiler#inline"));
lf[444]=C_h_intern(&lf[444],2, C_text("no"));
lf[445]=C_h_intern(&lf[445],13, C_text("inline-global"));
lf[446]=C_h_intern(&lf[446],24, C_text("##compiler#inline-global"));
lf[447]=C_decode_literal(C_heaptop,C_text("\376B\000\000!unsupported declaration specifier"));
lf[448]=C_h_intern(&lf[448],14, C_text("compile-syntax"));
lf[449]=C_h_intern(&lf[449],12, C_text("block-global"));
lf[450]=C_h_intern(&lf[450],4, C_text("hide"));
lf[451]=C_h_intern(&lf[451],6, C_text("export"));
lf[452]=C_h_intern(&lf[452],40, C_text("chicken.compiler.support#export-variable"));
lf[453]=C_h_intern(&lf[453],30, C_text("emit-external-prototypes-first"));
lf[454]=C_h_intern(&lf[454],16, C_text("##compiler#local"));
lf[455]=C_h_intern(&lf[455],12, C_text("inline-limit"));
lf[456]=C_decode_literal(C_heaptop,C_text("\376B\000\000.invalid argument to `inline-limit\047 declaration"));
lf[457]=C_h_intern(&lf[457],12, C_text("unroll-limit"));
lf[458]=C_decode_literal(C_heaptop,C_text("\376B\000\000.invalid argument to `unroll-limit\047 declaration"));
lf[459]=C_h_intern(&lf[459],4, C_text("pure"));
lf[460]=C_h_intern(&lf[460],15, C_text("##compiler#pure"));
lf[461]=C_decode_literal(C_heaptop,C_text("\376B\000\000+invalid arguments to `pure\047 declaration: ~S"));
lf[462]=C_h_intern(&lf[462],19, C_text("emit-import-library"));
lf[463]=C_decode_literal(C_heaptop,C_text("\376B\000\000\013.import.scm"));
lf[464]=C_decode_literal(C_heaptop,C_text("\376B\000\000$invalid import-library specification"));
lf[465]=C_h_intern(&lf[465],7, C_text("profile"));
lf[466]=C_h_intern(&lf[466],5, C_text("local"));
lf[467]=C_h_intern(&lf[467],4, C_text("type"));
lf[468]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030illegal type declaration"));
lf[469]=C_h_intern(&lf[469],42, C_text("chicken.compiler.scrutinizer#validate-type"));
lf[470]=C_h_intern(&lf[470],52, C_text("chicken.compiler.scrutinizer#install-specializations"));
lf[471]=C_h_intern(&lf[471],20, C_text("##compiler#predicate"));
lf[472]=C_h_intern(&lf[472],22, C_text("##compiler#type-source"));
lf[473]=C_h_intern(&lf[473],15, C_text("##compiler#type"));
lf[474]=C_h_intern(&lf[474],9, C_text("procedure"));
lf[475]=C_decode_literal(C_heaptop,C_text("\376B\000\000\032illegal `type\047 declaration"));
lf[476]=C_h_intern(&lf[476],9, C_text("predicate"));
lf[477]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037illegal `predicate\047 declaration"));
lf[478]=C_decode_literal(C_heaptop,C_text("\376B\000\000\037illegal `type\047 declaration item"));
lf[479]=C_h_intern(&lf[479],10, C_text("specialize"));
lf[480]=C_h_intern(&lf[480],12, C_text("strict-types"));
lf[481]=C_decode_literal(C_heaptop,C_text("\376B\000\000\035unknown declaration specifier"));
lf[482]=C_decode_literal(C_heaptop,C_text("\376B\000\000!invalid declaration specification"));
lf[483]=C_h_intern(&lf[483],46, C_text("chicken.compiler.core#build-toplevel-procedure"));
lf[484]=C_h_intern(&lf[484],34, C_text("chicken.compiler.support#make-node"));
lf[485]=C_h_intern(&lf[485],6, C_text("lambda"));
lf[486]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\016\376\377\016"));
lf[487]=C_h_intern(&lf[487],37, C_text("chicken.compiler.core#foreign-stub-id"));
lf[488]=C_h_intern(&lf[488],34, C_text("chicken.compiler.core#foreign-stub"));
lf[489]=C_h_intern(&lf[489],15, C_text("foreign-stub-id"));
lf[490]=C_h_intern(&lf[490],46, C_text("chicken.compiler.core#foreign-stub-return-type"));
lf[491]=C_h_intern(&lf[491],24, C_text("foreign-stub-return-type"));
lf[492]=C_h_intern(&lf[492],39, C_text("chicken.compiler.core#foreign-stub-name"));
lf[493]=C_h_intern(&lf[493],17, C_text("foreign-stub-name"));
lf[494]=C_h_intern(&lf[494],49, C_text("chicken.compiler.core#foreign-stub-argument-types"));
lf[495]=C_h_intern(&lf[495],27, C_text("foreign-stub-argument-types"));
lf[496]=C_h_intern(&lf[496],49, C_text("chicken.compiler.core#foreign-stub-argument-names"));
lf[497]=C_h_intern(&lf[497],27, C_text("foreign-stub-argument-names"));
lf[498]=C_h_intern(&lf[498],39, C_text("chicken.compiler.core#foreign-stub-body"));
lf[499]=C_h_intern(&lf[499],17, C_text("foreign-stub-body"));
lf[500]=C_h_intern(&lf[500],38, C_text("chicken.compiler.core#foreign-stub-cps"));
lf[501]=C_h_intern(&lf[501],16, C_text("foreign-stub-cps"));
lf[502]=C_h_intern(&lf[502],43, C_text("chicken.compiler.core#foreign-stub-callback"));
lf[503]=C_h_intern(&lf[503],21, C_text("foreign-stub-callback"));
lf[504]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001##sys#gc\376\003\000\000\002\376\377\006\000\376\377\016\376\377\016"));
lf[505]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[506]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020C_a_i_bytevector"));
lf[507]=C_h_intern(&lf[507],21, C_text("scheme#string->symbol"));
lf[508]=C_h_intern(&lf[508],53, C_text("chicken.compiler.support#estimate-foreign-result-size"));
lf[509]=C_h_intern(&lf[509],4, C_text("stub"));
lf[510]=C_h_intern(&lf[510],1, C_text("a"));
lf[511]=C_h_intern(&lf[511],19, C_text("chicken.string#conc"));
lf[512]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\052"));
lf[513]=C_h_intern(&lf[513],5, C_text("const"));
lf[514]=C_h_intern(&lf[514],6, C_text("struct"));
lf[515]=C_decode_literal(C_heaptop,C_text("\376B\000\000-name `~s\047 of foreign procedure has wrong type"));
lf[516]=C_decode_literal(C_heaptop,C_text("\376B\000\000\001\012"));
lf[517]=C_h_intern(&lf[517],44, C_text("chicken.compiler.core#perform-cps-conversion"));
lf[518]=C_h_intern(&lf[518],11, C_text("##core#call"));
lf[519]=C_h_intern(&lf[519],32, C_text("chicken.compiler.support#varnode"));
lf[520]=C_h_intern(&lf[520],1, C_text("k"));
lf[521]=C_h_intern(&lf[521],15, C_text("##core#variable"));
lf[522]=C_h_intern(&lf[522],40, C_text("chicken.compiler.support#node-parameters"));
lf[523]=C_h_intern(&lf[523],2, C_text("f_"));
lf[524]=C_h_intern(&lf[524],1, C_text("t"));
lf[525]=C_h_intern(&lf[525],44, C_text("chicken.compiler.support#node-subexpressions"));
lf[526]=C_h_intern(&lf[526],56, C_text("chicken.compiler.support#register-foreign-callback-stub!"));
lf[527]=C_h_intern(&lf[527],17, C_text("##core#the/result"));
lf[528]=C_h_intern(&lf[528],29, C_text("chicken.compiler.support#bomb"));
lf[529]=C_decode_literal(C_heaptop,C_text("\376B\000\000\016bad node (cps)"));
lf[530]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001quote\376\003\000\000\002\376\001\000\000\017\001##core#variable\376\003\000\000\002\376\001\000\000\020\001##core#undefined\376\377\016"));
lf[531]=C_h_intern(&lf[531],40, C_text("chicken.compiler.core#analyze-expression"));
lf[532]=C_h_intern(&lf[532],15, C_text("##core#rest-cdr"));
lf[533]=C_h_intern(&lf[533],32, C_text("chicken.compiler.support#db-put!"));
lf[534]=C_h_intern(&lf[534],8, C_text("captured"));
lf[535]=C_h_intern(&lf[535],31, C_text("chicken.compiler.support#db-get"));
lf[536]=C_h_intern(&lf[536],14, C_text("##core#recurse"));
lf[537]=C_h_intern(&lf[537],33, C_text("chicken.compiler.support#collect!"));
lf[538]=C_h_intern(&lf[538],4, C_text("home"));
lf[539]=C_h_intern(&lf[539],7, C_text("unknown"));
lf[540]=C_h_intern(&lf[540],20, C_text("##core#direct_lambda"));
lf[541]=C_h_intern(&lf[541],6, C_text("simple"));
lf[542]=C_h_intern(&lf[542],44, C_text("chicken.compiler.support#simple-lambda-node\077"));
lf[543]=C_h_intern(&lf[543],8, C_text("rest-cdr"));
lf[544]=C_h_intern(&lf[544],14, C_text("rest-parameter"));
lf[545]=C_h_intern(&lf[545],4, C_text("list"));
lf[546]=C_h_intern(&lf[546],12, C_text("contained-in"));
lf[547]=C_h_intern(&lf[547],8, C_text("contains"));
lf[548]=C_h_intern(&lf[548],8, C_text("assigned"));
lf[549]=C_h_intern(&lf[549],16, C_text("assigned-locally"));
lf[550]=C_h_intern(&lf[550],16, C_text("potential-values"));
lf[551]=C_h_intern(&lf[551],8, C_text("standard"));
lf[552]=C_decode_literal(C_heaptop,C_text("\376B\000\000 redefinition of standard binding"));
lf[553]=C_h_intern(&lf[553],8, C_text("extended"));
lf[554]=C_decode_literal(C_heaptop,C_text("\376B\000\000 redefinition of extended binding"));
lf[555]=C_h_intern(&lf[555],20, C_text("##compiler#intrinsic"));
lf[556]=C_h_intern(&lf[556],11, C_text("##core#proc"));
lf[557]=C_h_intern(&lf[557],17, C_text("derived-rest-vars"));
lf[558]=C_h_intern(&lf[558],10, C_text("rest-null\077"));
lf[559]=C_h_intern(&lf[559],9, C_text("undefined"));
lf[560]=C_h_intern(&lf[560],17, C_text("##core#rest-null\077"));
lf[561]=C_h_intern(&lf[561],22, C_text("chicken.base#alist-ref"));
lf[562]=C_h_intern(&lf[562],5, C_text("depth"));
lf[563]=C_h_intern(&lf[563],4, C_text("rvar"));
lf[564]=C_h_intern(&lf[564],35, C_text("chicken.compiler.support#db-get-all"));
lf[565]=C_h_intern(&lf[565],11, C_text("local-value"));
lf[566]=C_h_intern(&lf[566],42, C_text("chicken.compiler.support#variable-visible\077"));
lf[567]=C_h_intern(&lf[567],8, C_text("test-var"));
lf[568]=C_h_intern(&lf[568],35, C_text("chicken.compiler.support#match-node"));
lf[569]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\013\001##core#cond\376\003\000\000\002\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001##core#variable\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001tes"
"t-var\376\377\016\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001quote\376\003\000\000\002\376\003\000\000\002\376\377\016\376\377\016\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001##core#rest-c"
"dr\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001rvar\376\003\000\000\002\376\001\000\000\005\001depth\376\377\016\376\377\016\376\377\016"));
lf[570]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001test-var\376\003\000\000\002\376\001\000\000\004\001rvar\376\003\000\000\002\376\001\000\000\005\001depth\376\377\016"));
lf[571]=C_h_intern(&lf[571],10, C_text("references"));
lf[572]=C_h_intern(&lf[572],10, C_text("replacable"));
lf[573]=C_h_intern(&lf[573],9, C_text("replacing"));
lf[574]=C_h_intern(&lf[574],9, C_text("removable"));
lf[575]=C_h_intern(&lf[575],35, C_text("chicken.compiler.support#intrinsic\077"));
lf[576]=C_h_intern(&lf[576],19, C_text("##core#always-bound"));
lf[577]=C_h_intern(&lf[577],53, C_text("chicken.compiler.support#expression-has-side-effects\077"));
lf[578]=C_h_intern(&lf[578],21, C_text("has-unused-parameters"));
lf[579]=C_h_intern(&lf[579],13, C_text("explicit-rest"));
lf[580]=C_h_intern(&lf[580],19, C_text("chicken.base#rassoc"));
lf[581]=C_h_intern(&lf[581],10, C_text("scheme#eq\077"));
lf[582]=C_h_intern(&lf[582],11, C_text("collapsable"));
lf[583]=C_h_intern(&lf[583],12, C_text("contractable"));
lf[584]=C_h_intern(&lf[584],9, C_text("inlinable"));
lf[585]=C_h_intern(&lf[585],44, C_text("chicken.compiler.support#scan-free-variables"));
lf[586]=C_h_intern(&lf[586],11, C_text("hidden-refs"));
lf[587]=C_h_intern(&lf[587],34, C_text("chicken.compiler.support#debugging"));
lf[588]=C_h_intern(&lf[588],1, C_text("i"));
lf[589]=C_decode_literal(C_heaptop,C_text("\376B\000\000>global inlining candidate was assigned and will not be inlined"));
lf[590]=C_h_intern(&lf[590],30, C_text("chicken.compiler.support#node\077"));
lf[591]=C_h_intern(&lf[591],5, C_text("boxed"));
lf[592]=C_decode_literal(C_heaptop,C_text("\376B\000\000(\047 is only locally visible and never used"));
lf[593]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021global variable `"));
lf[594]=C_h_intern(&lf[594],41, C_text("chicken.compiler.support#variable-hidden\077"));
lf[595]=C_h_intern(&lf[595],1, C_text("p"));
lf[596]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033analysis gathering phase..."));
lf[597]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033analysis traversal phase..."));
lf[598]=C_h_intern(&lf[598],48, C_text("chicken.compiler.core#perform-closure-conversion"));
lf[599]=C_h_intern(&lf[599],12, C_text("customizable"));
lf[600]=C_decode_literal(C_heaptop,C_text("\376B\000\000\033let-node has invalid format"));
lf[601]=C_h_intern(&lf[601],45, C_text("chicken.compiler.support#node-parameters-set!"));
lf[602]=C_h_intern(&lf[602],37, C_text("chicken.compiler.support#llist-match\077"));
lf[603]=C_h_intern(&lf[603],8, C_text("toplevel"));
lf[604]=C_h_intern(&lf[604],18, C_text("captured-variables"));
lf[605]=C_h_intern(&lf[605],12, C_text("closure-size"));
lf[606]=C_h_intern(&lf[606],12, C_text("##core#unbox"));
lf[607]=C_decode_literal(C_heaptop,C_text("\376B\000\000\007C_i_cdr"));
lf[608]=C_h_intern(&lf[608],15, C_text("##core#rest-car"));
lf[609]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014C_i_list_ref"));
lf[610]=C_h_intern(&lf[610],30, C_text("chicken.compiler.support#qnode"));
lf[611]=C_h_intern(&lf[611],16, C_text("##core#rest-null"));
lf[612]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026C_i_greater_or_equal_p"));
lf[613]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_length"));
lf[614]=C_h_intern(&lf[614],18, C_text("##core#rest-length"));
lf[615]=C_decode_literal(C_heaptop,C_text("\376B\000\000\012C_i_length"));
lf[616]=C_decode_literal(C_heaptop,C_text("\376B\000\000QUnknown rest op node class in while converting to closure. This shouldn\047t h"
"appen!"));
lf[617]=C_decode_literal(C_heaptop,C_text("\376B\000\000;Saw rest op for captured variable.  This should not happen!"));
lf[618]=C_h_intern(&lf[618],10, C_text("##core#ref"));
lf[619]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001i\376\377\016"));
lf[620]=C_h_intern(&lf[620],10, C_text("##core#box"));
lf[621]=C_h_intern(&lf[621],14, C_text("##core#closure"));
lf[622]=C_h_intern(&lf[622],22, C_text("##sys#make-lambda-info"));
lf[623]=C_h_intern(&lf[623],1, C_text("\077"));
lf[624]=C_h_intern(&lf[624],23, C_text("chicken.string#->string"));
lf[625]=C_h_intern(&lf[625],34, C_text("chicken.compiler.support#real-name"));
lf[626]=C_h_intern(&lf[626],10, C_text("boxed-rest"));
lf[627]=C_h_intern(&lf[627],18, C_text("##core#updatebox_i"));
lf[628]=C_h_intern(&lf[628],16, C_text("##core#updatebox"));
lf[629]=C_h_intern(&lf[629],15, C_text("##core#update_i"));
lf[630]=C_h_intern(&lf[630],13, C_text("##core#update"));
lf[631]=C_h_intern(&lf[631],35, C_text("chicken.compiler.support#immediate\077"));
lf[632]=C_decode_literal(C_heaptop,C_text("\376B\000\000\023bad node (closure2)"));
lf[633]=C_h_intern(&lf[633],13, C_text("##core#switch"));
lf[634]=C_h_intern(&lf[634],11, C_text("##core#cond"));
lf[635]=C_h_intern(&lf[635],18, C_text("##core#direct_call"));
lf[636]=C_h_intern(&lf[636],13, C_text("##core#return"));
lf[637]=C_h_intern(&lf[637],16, C_text("##core#let_float"));
lf[638]=C_h_intern(&lf[638],16, C_text("##core#box_float"));
lf[639]=C_h_intern(&lf[639],18, C_text("##core#unbox_float"));
lf[640]=C_h_intern(&lf[640],12, C_text("##core#float"));
lf[641]=C_h_intern(&lf[641],21, C_text("##core#float-variable"));
lf[642]=C_h_intern(&lf[642],1, C_text("o"));
lf[643]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026calls to known targets"));
lf[644]=C_decode_literal(C_heaptop,C_text("\376B\000\000\052closure conversion transformation phase..."));
lf[645]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027customizable procedures"));
lf[646]=C_decode_literal(C_heaptop,C_text("\376B\000\000%closure conversion gathering phase..."));
lf[647]=C_h_intern(&lf[647],39, C_text("chicken.compiler.core#lambda-literal-id"));
lf[648]=C_h_intern(&lf[648],36, C_text("chicken.compiler.core#lambda-literal"));
lf[649]=C_h_intern(&lf[649],17, C_text("lambda-literal-id"));
lf[650]=C_h_intern(&lf[650],45, C_text("chicken.compiler.core#lambda-literal-external"));
lf[651]=C_h_intern(&lf[651],23, C_text("lambda-literal-external"));
lf[652]=C_h_intern(&lf[652],51, C_text("chicken.compiler.core#lambda-literal-argument-count"));
lf[653]=C_h_intern(&lf[653],29, C_text("lambda-literal-argument-count"));
lf[654]=C_h_intern(&lf[654],50, C_text("chicken.compiler.core#lambda-literal-rest-argument"));
lf[655]=C_h_intern(&lf[655],28, C_text("lambda-literal-rest-argument"));
lf[656]=C_h_intern(&lf[656],48, C_text("chicken.compiler.core#lambda-literal-temporaries"));
lf[657]=C_h_intern(&lf[657],26, C_text("lambda-literal-temporaries"));
lf[658]=C_h_intern(&lf[658],54, C_text("chicken.compiler.core#lambda-literal-float-temporaries"));
lf[659]=C_h_intern(&lf[659],32, C_text("lambda-literal-float-temporaries"));
lf[660]=C_h_intern(&lf[660],54, C_text("chicken.compiler.core#lambda-literal-callee-signatures"));
lf[661]=C_h_intern(&lf[661],32, C_text("lambda-literal-callee-signatures"));
lf[662]=C_h_intern(&lf[662],46, C_text("chicken.compiler.core#lambda-literal-allocated"));
lf[663]=C_h_intern(&lf[663],24, C_text("lambda-literal-allocated"));
lf[664]=C_h_intern(&lf[664],49, C_text("chicken.compiler.core#lambda-literal-closure-size"));
lf[665]=C_h_intern(&lf[665],27, C_text("lambda-literal-closure-size"));
lf[666]=C_h_intern(&lf[666],44, C_text("chicken.compiler.core#lambda-literal-looping"));
lf[667]=C_h_intern(&lf[667],22, C_text("lambda-literal-looping"));
lf[668]=C_h_intern(&lf[668],49, C_text("chicken.compiler.core#lambda-literal-customizable"));
lf[669]=C_h_intern(&lf[669],27, C_text("lambda-literal-customizable"));
lf[670]=C_h_intern(&lf[670],55, C_text("chicken.compiler.core#lambda-literal-rest-argument-mode"));
lf[671]=C_h_intern(&lf[671],33, C_text("lambda-literal-rest-argument-mode"));
lf[672]=C_h_intern(&lf[672],41, C_text("chicken.compiler.core#lambda-literal-body"));
lf[673]=C_h_intern(&lf[673],19, C_text("lambda-literal-body"));
lf[674]=C_h_intern(&lf[674],43, C_text("chicken.compiler.core#lambda-literal-direct"));
lf[675]=C_h_intern(&lf[675],21, C_text("lambda-literal-direct"));
lf[676]=C_h_intern(&lf[676],49, C_text("chicken.compiler.core#prepare-for-code-generation"));
lf[677]=C_h_intern(&lf[677],12, C_text("##core#local"));
lf[678]=C_h_intern(&lf[678],14, C_text("##core#literal"));
lf[679]=C_h_intern(&lf[679],13, C_text("##core#global"));
lf[680]=C_h_intern(&lf[680],12, C_text("C_DEBUG_CALL"));
lf[681]=C_h_intern(&lf[681],42, C_text("chicken.compiler.support#source-info->name"));
lf[682]=C_h_intern(&lf[682],42, C_text("chicken.compiler.support#source-info->line"));
lf[683]=C_decode_literal(C_heaptop,C_text("\376B\000\000!identified direct recursive calls"));
lf[684]=C_decode_literal(C_heaptop,C_text("\376B\000\000\021bad direct lambda"));
lf[685]=C_h_intern(&lf[685],4, C_text("none"));
lf[686]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024unused rest argument"));
lf[687]=C_h_intern(&lf[687],18, C_text("##sys#fast-reverse"));
lf[688]=C_h_intern(&lf[688],20, C_text("chicken.base#butlast"));
lf[689]=C_h_intern(&lf[689],11, C_text("##core#bind"));
lf[690]=C_h_intern(&lf[690],15, C_text("##core#setlocal"));
lf[691]=C_h_intern(&lf[691],18, C_text("##core#setglobal_i"));
lf[692]=C_h_intern(&lf[692],16, C_text("##core#setglobal"));
lf[693]=C_h_intern(&lf[693],21, C_text("scheme#inexact->exact"));
lf[694]=C_decode_literal(C_heaptop,C_text("\376B\000\000\014\047 to fixnum "));
lf[695]=C_decode_literal(C_heaptop,C_text("\376B\000\000 coerced inexact literal number `"));
lf[696]=C_decode_literal(C_heaptop,C_text("\376B\000\000,cannot coerce inexact literal `~S\047 to fixnum"));
lf[697]=C_h_intern(&lf[697],36, C_text("chicken.compiler.support#big-fixnum\077"));
lf[698]=C_h_intern(&lf[698],10, C_text("scheme#max"));
lf[699]=C_h_intern(&lf[699],52, C_text("chicken.compiler.support#make-block-variable-literal"));
lf[700]=C_h_intern(&lf[700],52, C_text("chicken.compiler.support#block-variable-literal-name"));
lf[701]=C_h_intern(&lf[701],48, C_text("chicken.compiler.support#block-variable-literal\077"));
lf[702]=C_h_intern(&lf[702],21, C_text("##sys#undefined-value"));
lf[703]=C_h_intern(&lf[703],16, C_text("##core#immediate"));
lf[704]=C_h_intern(&lf[704],3, C_text("fix"));
lf[705]=C_h_intern(&lf[705],4, C_text("bool"));
lf[706]=C_h_intern(&lf[706],4, C_text("char"));
lf[707]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001nil\376\377\016"));
lf[708]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001eof\376\377\016"));
lf[709]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027bad immediate (prepare)"));
lf[710]=C_decode_literal(C_heaptop,C_text("\376B\000\000\027fast global assignments"));
lf[711]=C_decode_literal(C_heaptop,C_text("\376B\000\000\026fast global references"));
lf[712]=C_decode_literal(C_heaptop,C_text("\376B\000\000\030fast box initializations"));
lf[713]=C_decode_literal(C_heaptop,C_text("\376B\000\000\024preparation phase..."));
C_register_lf2(lf,714,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6270,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);}}

/* va26422 in k21648 in k21639 in k21636 in k21633 in walk in k21522 in chicken.compiler.core#prepare-for-code-generation in k6295 in k6292 in k6289 in k6286 in k6283 in k6280 in k6277 in k6274 in k6271 in k6268 */
static void C_fcall va26422(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_unlikely(!C_demand(C_calculate_demand(33,0,6)))){
C_save_and_reclaim_args((void *)trva26422,2,t0,t1);}
a=C_alloc(33);
t2=C_s_a_i_plus(&a,2,t1,C_fix(1));
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21826,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
/* core.scm:2960: mapwalk */
t5=((C_word*)((C_word*)t0)[5])[1];
f_22841(t5,t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[1507] = {
{C_text("f24858:core_2escm"),(void*)f24858},
{C_text("f_10015:core_2escm"),(void*)f_10015},
{C_text("f_10019:core_2escm"),(void*)f_10019},
{C_text("f_10023:core_2escm"),(void*)f_10023},
{C_text("f_10026:core_2escm"),(void*)f_10026},
{C_text("f_10032:core_2escm"),(void*)f_10032},
{C_text("f_10040:core_2escm"),(void*)f_10040},
{C_text("f_10046:core_2escm"),(void*)f_10046},
{C_text("f_10050:core_2escm"),(void*)f_10050},
{C_text("f_10053:core_2escm"),(void*)f_10053},
{C_text("f_10056:core_2escm"),(void*)f_10056},
{C_text("f_10081:core_2escm"),(void*)f_10081},
{C_text("f_10083:core_2escm"),(void*)f_10083},
{C_text("f_10124:core_2escm"),(void*)f_10124},
{C_text("f_10127:core_2escm"),(void*)f_10127},
{C_text("f_10130:core_2escm"),(void*)f_10130},
{C_text("f_10133:core_2escm"),(void*)f_10133},
{C_text("f_10136:core_2escm"),(void*)f_10136},
{C_text("f_10139:core_2escm"),(void*)f_10139},
{C_text("f_10161:core_2escm"),(void*)f_10161},
{C_text("f_10165:core_2escm"),(void*)f_10165},
{C_text("f_10169:core_2escm"),(void*)f_10169},
{C_text("f_10183:core_2escm"),(void*)f_10183},
{C_text("f_10214:core_2escm"),(void*)f_10214},
{C_text("f_10236:core_2escm"),(void*)f_10236},
{C_text("f_10239:core_2escm"),(void*)f_10239},
{C_text("f_10242:core_2escm"),(void*)f_10242},
{C_text("f_10290:core_2escm"),(void*)f_10290},
{C_text("f_10294:core_2escm"),(void*)f_10294},
{C_text("f_10298:core_2escm"),(void*)f_10298},
{C_text("f_10306:core_2escm"),(void*)f_10306},
{C_text("f_10316:core_2escm"),(void*)f_10316},
{C_text("f_10320:core_2escm"),(void*)f_10320},
{C_text("f_10323:core_2escm"),(void*)f_10323},
{C_text("f_10330:core_2escm"),(void*)f_10330},
{C_text("f_10334:core_2escm"),(void*)f_10334},
{C_text("f_10344:core_2escm"),(void*)f_10344},
{C_text("f_10348:core_2escm"),(void*)f_10348},
{C_text("f_10352:core_2escm"),(void*)f_10352},
{C_text("f_10373:core_2escm"),(void*)f_10373},
{C_text("f_10376:core_2escm"),(void*)f_10376},
{C_text("f_10384:core_2escm"),(void*)f_10384},
{C_text("f_10406:core_2escm"),(void*)f_10406},
{C_text("f_10416:core_2escm"),(void*)f_10416},
{C_text("f_10429:core_2escm"),(void*)f_10429},
{C_text("f_10437:core_2escm"),(void*)f_10437},
{C_text("f_10443:core_2escm"),(void*)f_10443},
{C_text("f_10465:core_2escm"),(void*)f_10465},
{C_text("f_10475:core_2escm"),(void*)f_10475},
{C_text("f_10488:core_2escm"),(void*)f_10488},
{C_text("f_10513:core_2escm"),(void*)f_10513},
{C_text("f_10531:core_2escm"),(void*)f_10531},
{C_text("f_10536:core_2escm"),(void*)f_10536},
{C_text("f_10550:core_2escm"),(void*)f_10550},
{C_text("f_10558:core_2escm"),(void*)f_10558},
{C_text("f_10568:core_2escm"),(void*)f_10568},
{C_text("f_10581:core_2escm"),(void*)f_10581},
{C_text("f_10602:core_2escm"),(void*)f_10602},
{C_text("f_10614:core_2escm"),(void*)f_10614},
{C_text("f_10616:core_2escm"),(void*)f_10616},
{C_text("f_10630:core_2escm"),(void*)f_10630},
{C_text("f_10655:core_2escm"),(void*)f_10655},
{C_text("f_10671:core_2escm"),(void*)f_10671},
{C_text("f_10677:core_2escm"),(void*)f_10677},
{C_text("f_10683:core_2escm"),(void*)f_10683},
{C_text("f_10686:core_2escm"),(void*)f_10686},
{C_text("f_10691:core_2escm"),(void*)f_10691},
{C_text("f_10695:core_2escm"),(void*)f_10695},
{C_text("f_10698:core_2escm"),(void*)f_10698},
{C_text("f_10703:core_2escm"),(void*)f_10703},
{C_text("f_10707:core_2escm"),(void*)f_10707},
{C_text("f_10710:core_2escm"),(void*)f_10710},
{C_text("f_10713:core_2escm"),(void*)f_10713},
{C_text("f_10716:core_2escm"),(void*)f_10716},
{C_text("f_10720:core_2escm"),(void*)f_10720},
{C_text("f_10724:core_2escm"),(void*)f_10724},
{C_text("f_10728:core_2escm"),(void*)f_10728},
{C_text("f_10732:core_2escm"),(void*)f_10732},
{C_text("f_10735:core_2escm"),(void*)f_10735},
{C_text("f_10738:core_2escm"),(void*)f_10738},
{C_text("f_10741:core_2escm"),(void*)f_10741},
{C_text("f_10744:core_2escm"),(void*)f_10744},
{C_text("f_10759:core_2escm"),(void*)f_10759},
{C_text("f_10765:core_2escm"),(void*)f_10765},
{C_text("f_10775:core_2escm"),(void*)f_10775},
{C_text("f_10785:core_2escm"),(void*)f_10785},
{C_text("f_10788:core_2escm"),(void*)f_10788},
{C_text("f_10797:core_2escm"),(void*)f_10797},
{C_text("f_10804:core_2escm"),(void*)f_10804},
{C_text("f_10808:core_2escm"),(void*)f_10808},
{C_text("f_10814:core_2escm"),(void*)f_10814},
{C_text("f_10821:core_2escm"),(void*)f_10821},
{C_text("f_10833:core_2escm"),(void*)f_10833},
{C_text("f_10843:core_2escm"),(void*)f_10843},
{C_text("f_10845:core_2escm"),(void*)f_10845},
{C_text("f_10851:core_2escm"),(void*)f_10851},
{C_text("f_10857:core_2escm"),(void*)f_10857},
{C_text("f_10861:core_2escm"),(void*)f_10861},
{C_text("f_10866:core_2escm"),(void*)f_10866},
{C_text("f_10872:core_2escm"),(void*)f_10872},
{C_text("f_10880:core_2escm"),(void*)f_10880},
{C_text("f_10882:core_2escm"),(void*)f_10882},
{C_text("f_10895:core_2escm"),(void*)f_10895},
{C_text("f_10901:core_2escm"),(void*)f_10901},
{C_text("f_10907:core_2escm"),(void*)f_10907},
{C_text("f_10909:core_2escm"),(void*)f_10909},
{C_text("f_10915:core_2escm"),(void*)f_10915},
{C_text("f_10934:core_2escm"),(void*)f_10934},
{C_text("f_10938:core_2escm"),(void*)f_10938},
{C_text("f_10942:core_2escm"),(void*)f_10942},
{C_text("f_10945:core_2escm"),(void*)f_10945},
{C_text("f_10948:core_2escm"),(void*)f_10948},
{C_text("f_10951:core_2escm"),(void*)f_10951},
{C_text("f_10954:core_2escm"),(void*)f_10954},
{C_text("f_10957:core_2escm"),(void*)f_10957},
{C_text("f_10960:core_2escm"),(void*)f_10960},
{C_text("f_10963:core_2escm"),(void*)f_10963},
{C_text("f_10969:core_2escm"),(void*)f_10969},
{C_text("f_10973:core_2escm"),(void*)f_10973},
{C_text("f_10976:core_2escm"),(void*)f_10976},
{C_text("f_10979:core_2escm"),(void*)f_10979},
{C_text("f_10989:core_2escm"),(void*)f_10989},
{C_text("f_11005:core_2escm"),(void*)f_11005},
{C_text("f_11009:core_2escm"),(void*)f_11009},
{C_text("f_11012:core_2escm"),(void*)f_11012},
{C_text("f_11015:core_2escm"),(void*)f_11015},
{C_text("f_11017:core_2escm"),(void*)f_11017},
{C_text("f_11021:core_2escm"),(void*)f_11021},
{C_text("f_11024:core_2escm"),(void*)f_11024},
{C_text("f_11027:core_2escm"),(void*)f_11027},
{C_text("f_11031:core_2escm"),(void*)f_11031},
{C_text("f_11035:core_2escm"),(void*)f_11035},
{C_text("f_11039:core_2escm"),(void*)f_11039},
{C_text("f_11042:core_2escm"),(void*)f_11042},
{C_text("f_11045:core_2escm"),(void*)f_11045},
{C_text("f_11048:core_2escm"),(void*)f_11048},
{C_text("f_11060:core_2escm"),(void*)f_11060},
{C_text("f_11065:core_2escm"),(void*)f_11065},
{C_text("f_11077:core_2escm"),(void*)f_11077},
{C_text("f_11102:core_2escm"),(void*)f_11102},
{C_text("f_11115:core_2escm"),(void*)f_11115},
{C_text("f_11119:core_2escm"),(void*)f_11119},
{C_text("f_11122:core_2escm"),(void*)f_11122},
{C_text("f_11125:core_2escm"),(void*)f_11125},
{C_text("f_11128:core_2escm"),(void*)f_11128},
{C_text("f_11131:core_2escm"),(void*)f_11131},
{C_text("f_11134:core_2escm"),(void*)f_11134},
{C_text("f_11140:core_2escm"),(void*)f_11140},
{C_text("f_11147:core_2escm"),(void*)f_11147},
{C_text("f_11160:core_2escm"),(void*)f_11160},
{C_text("f_11171:core_2escm"),(void*)f_11171},
{C_text("f_11196:core_2escm"),(void*)f_11196},
{C_text("f_11204:core_2escm"),(void*)f_11204},
{C_text("f_11229:core_2escm"),(void*)f_11229},
{C_text("f_11268:core_2escm"),(void*)f_11268},
{C_text("f_11271:core_2escm"),(void*)f_11271},
{C_text("f_11274:core_2escm"),(void*)f_11274},
{C_text("f_11280:core_2escm"),(void*)f_11280},
{C_text("f_11283:core_2escm"),(void*)f_11283},
{C_text("f_11288:core_2escm"),(void*)f_11288},
{C_text("f_11292:core_2escm"),(void*)f_11292},
{C_text("f_11296:core_2escm"),(void*)f_11296},
{C_text("f_11299:core_2escm"),(void*)f_11299},
{C_text("f_11305:core_2escm"),(void*)f_11305},
{C_text("f_11313:core_2escm"),(void*)f_11313},
{C_text("f_11317:core_2escm"),(void*)f_11317},
{C_text("f_11319:core_2escm"),(void*)f_11319},
{C_text("f_11323:core_2escm"),(void*)f_11323},
{C_text("f_11326:core_2escm"),(void*)f_11326},
{C_text("f_11331:core_2escm"),(void*)f_11331},
{C_text("f_11333:core_2escm"),(void*)f_11333},
{C_text("f_11358:core_2escm"),(void*)f_11358},
{C_text("f_11374:core_2escm"),(void*)f_11374},
{C_text("f_11380:core_2escm"),(void*)f_11380},
{C_text("f_11383:core_2escm"),(void*)f_11383},
{C_text("f_11390:core_2escm"),(void*)f_11390},
{C_text("f_11393:core_2escm"),(void*)f_11393},
{C_text("f_11399:core_2escm"),(void*)f_11399},
{C_text("f_11402:core_2escm"),(void*)f_11402},
{C_text("f_11405:core_2escm"),(void*)f_11405},
{C_text("f_11420:core_2escm"),(void*)f_11420},
{C_text("f_11423:core_2escm"),(void*)f_11423},
{C_text("f_11429:core_2escm"),(void*)f_11429},
{C_text("f_11436:core_2escm"),(void*)f_11436},
{C_text("f_11443:core_2escm"),(void*)f_11443},
{C_text("f_11466:core_2escm"),(void*)f_11466},
{C_text("f_11478:core_2escm"),(void*)f_11478},
{C_text("f_11488:core_2escm"),(void*)f_11488},
{C_text("f_11495:core_2escm"),(void*)f_11495},
{C_text("f_11522:core_2escm"),(void*)f_11522},
{C_text("f_11530:core_2escm"),(void*)f_11530},
{C_text("f_11536:core_2escm"),(void*)f_11536},
{C_text("f_11543:core_2escm"),(void*)f_11543},
{C_text("f_11554:core_2escm"),(void*)f_11554},
{C_text("f_11557:core_2escm"),(void*)f_11557},
{C_text("f_11560:core_2escm"),(void*)f_11560},
{C_text("f_11566:core_2escm"),(void*)f_11566},
{C_text("f_11569:core_2escm"),(void*)f_11569},
{C_text("f_11575:core_2escm"),(void*)f_11575},
{C_text("f_11582:core_2escm"),(void*)f_11582},
{C_text("f_11586:core_2escm"),(void*)f_11586},
{C_text("f_11592:core_2escm"),(void*)f_11592},
{C_text("f_11595:core_2escm"),(void*)f_11595},
{C_text("f_11598:core_2escm"),(void*)f_11598},
{C_text("f_11601:core_2escm"),(void*)f_11601},
{C_text("f_11604:core_2escm"),(void*)f_11604},
{C_text("f_11608:core_2escm"),(void*)f_11608},
{C_text("f_11611:core_2escm"),(void*)f_11611},
{C_text("f_11617:core_2escm"),(void*)f_11617},
{C_text("f_11620:core_2escm"),(void*)f_11620},
{C_text("f_11623:core_2escm"),(void*)f_11623},
{C_text("f_11639:core_2escm"),(void*)f_11639},
{C_text("f_11645:core_2escm"),(void*)f_11645},
{C_text("f_11648:core_2escm"),(void*)f_11648},
{C_text("f_11651:core_2escm"),(void*)f_11651},
{C_text("f_11654:core_2escm"),(void*)f_11654},
{C_text("f_11657:core_2escm"),(void*)f_11657},
{C_text("f_11661:core_2escm"),(void*)f_11661},
{C_text("f_11664:core_2escm"),(void*)f_11664},
{C_text("f_11670:core_2escm"),(void*)f_11670},
{C_text("f_11673:core_2escm"),(void*)f_11673},
{C_text("f_11676:core_2escm"),(void*)f_11676},
{C_text("f_11683:core_2escm"),(void*)f_11683},
{C_text("f_11687:core_2escm"),(void*)f_11687},
{C_text("f_11710:core_2escm"),(void*)f_11710},
{C_text("f_11723:core_2escm"),(void*)f_11723},
{C_text("f_11729:core_2escm"),(void*)f_11729},
{C_text("f_11732:core_2escm"),(void*)f_11732},
{C_text("f_11735:core_2escm"),(void*)f_11735},
{C_text("f_11738:core_2escm"),(void*)f_11738},
{C_text("f_11741:core_2escm"),(void*)f_11741},
{C_text("f_11745:core_2escm"),(void*)f_11745},
{C_text("f_11748:core_2escm"),(void*)f_11748},
{C_text("f_11754:core_2escm"),(void*)f_11754},
{C_text("f_11757:core_2escm"),(void*)f_11757},
{C_text("f_11760:core_2escm"),(void*)f_11760},
{C_text("f_11789:core_2escm"),(void*)f_11789},
{C_text("f_11797:core_2escm"),(void*)f_11797},
{C_text("f_11805:core_2escm"),(void*)f_11805},
{C_text("f_11807:core_2escm"),(void*)f_11807},
{C_text("f_11832:core_2escm"),(void*)f_11832},
{C_text("f_11856:core_2escm"),(void*)f_11856},
{C_text("f_11860:core_2escm"),(void*)f_11860},
{C_text("f_11894:core_2escm"),(void*)f_11894},
{C_text("f_11898:core_2escm"),(void*)f_11898},
{C_text("f_11904:core_2escm"),(void*)f_11904},
{C_text("f_11929:core_2escm"),(void*)f_11929},
{C_text("f_11953:core_2escm"),(void*)f_11953},
{C_text("f_11974:core_2escm"),(void*)f_11974},
{C_text("f_11978:core_2escm"),(void*)f_11978},
{C_text("f_12001:core_2escm"),(void*)f_12001},
{C_text("f_12016:core_2escm"),(void*)f_12016},
{C_text("f_12039:core_2escm"),(void*)f_12039},
{C_text("f_12043:core_2escm"),(void*)f_12043},
{C_text("f_12061:core_2escm"),(void*)f_12061},
{C_text("f_12068:core_2escm"),(void*)f_12068},
{C_text("f_12072:core_2escm"),(void*)f_12072},
{C_text("f_12087:core_2escm"),(void*)f_12087},
{C_text("f_12100:core_2escm"),(void*)f_12100},
{C_text("f_12113:core_2escm"),(void*)f_12113},
{C_text("f_12126:core_2escm"),(void*)f_12126},
{C_text("f_12139:core_2escm"),(void*)f_12139},
{C_text("f_12148:core_2escm"),(void*)f_12148},
{C_text("f_12151:core_2escm"),(void*)f_12151},
{C_text("f_12154:core_2escm"),(void*)f_12154},
{C_text("f_12195:core_2escm"),(void*)f_12195},
{C_text("f_12201:core_2escm"),(void*)f_12201},
{C_text("f_12210:core_2escm"),(void*)f_12210},
{C_text("f_12213:core_2escm"),(void*)f_12213},
{C_text("f_12216:core_2escm"),(void*)f_12216},
{C_text("f_12219:core_2escm"),(void*)f_12219},
{C_text("f_12222:core_2escm"),(void*)f_12222},
{C_text("f_12225:core_2escm"),(void*)f_12225},
{C_text("f_12228:core_2escm"),(void*)f_12228},
{C_text("f_12231:core_2escm"),(void*)f_12231},
{C_text("f_12234:core_2escm"),(void*)f_12234},
{C_text("f_12249:core_2escm"),(void*)f_12249},
{C_text("f_12269:core_2escm"),(void*)f_12269},
{C_text("f_12273:core_2escm"),(void*)f_12273},
{C_text("f_12276:core_2escm"),(void*)f_12276},
{C_text("f_12283:core_2escm"),(void*)f_12283},
{C_text("f_12286:core_2escm"),(void*)f_12286},
{C_text("f_12292:core_2escm"),(void*)f_12292},
{C_text("f_12295:core_2escm"),(void*)f_12295},
{C_text("f_12298:core_2escm"),(void*)f_12298},
{C_text("f_12317:core_2escm"),(void*)f_12317},
{C_text("f_12320:core_2escm"),(void*)f_12320},
{C_text("f_12329:core_2escm"),(void*)f_12329},
{C_text("f_12332:core_2escm"),(void*)f_12332},
{C_text("f_12335:core_2escm"),(void*)f_12335},
{C_text("f_12355:core_2escm"),(void*)f_12355},
{C_text("f_12363:core_2escm"),(void*)f_12363},
{C_text("f_12374:core_2escm"),(void*)f_12374},
{C_text("f_12377:core_2escm"),(void*)f_12377},
{C_text("f_12383:core_2escm"),(void*)f_12383},
{C_text("f_12386:core_2escm"),(void*)f_12386},
{C_text("f_12389:core_2escm"),(void*)f_12389},
{C_text("f_12404:core_2escm"),(void*)f_12404},
{C_text("f_12407:core_2escm"),(void*)f_12407},
{C_text("f_12410:core_2escm"),(void*)f_12410},
{C_text("f_12416:core_2escm"),(void*)f_12416},
{C_text("f_12428:core_2escm"),(void*)f_12428},
{C_text("f_12432:core_2escm"),(void*)f_12432},
{C_text("f_12436:core_2escm"),(void*)f_12436},
{C_text("f_12439:core_2escm"),(void*)f_12439},
{C_text("f_12445:core_2escm"),(void*)f_12445},
{C_text("f_12465:core_2escm"),(void*)f_12465},
{C_text("f_12469:core_2escm"),(void*)f_12469},
{C_text("f_12494:core_2escm"),(void*)f_12494},
{C_text("f_12517:core_2escm"),(void*)f_12517},
{C_text("f_12519:core_2escm"),(void*)f_12519},
{C_text("f_12523:core_2escm"),(void*)f_12523},
{C_text("f_12526:core_2escm"),(void*)f_12526},
{C_text("f_12531:core_2escm"),(void*)f_12531},
{C_text("f_12564:core_2escm"),(void*)f_12564},
{C_text("f_12567:core_2escm"),(void*)f_12567},
{C_text("f_12570:core_2escm"),(void*)f_12570},
{C_text("f_12577:core_2escm"),(void*)f_12577},
{C_text("f_12580:core_2escm"),(void*)f_12580},
{C_text("f_12586:core_2escm"),(void*)f_12586},
{C_text("f_12589:core_2escm"),(void*)f_12589},
{C_text("f_12592:core_2escm"),(void*)f_12592},
{C_text("f_12599:core_2escm"),(void*)f_12599},
{C_text("f_12611:core_2escm"),(void*)f_12611},
{C_text("f_12617:core_2escm"),(void*)f_12617},
{C_text("f_12620:core_2escm"),(void*)f_12620},
{C_text("f_12623:core_2escm"),(void*)f_12623},
{C_text("f_12633:core_2escm"),(void*)f_12633},
{C_text("f_12636:core_2escm"),(void*)f_12636},
{C_text("f_12646:core_2escm"),(void*)f_12646},
{C_text("f_12649:core_2escm"),(void*)f_12649},
{C_text("f_12652:core_2escm"),(void*)f_12652},
{C_text("f_12655:core_2escm"),(void*)f_12655},
{C_text("f_12658:core_2escm"),(void*)f_12658},
{C_text("f_12661:core_2escm"),(void*)f_12661},
{C_text("f_12679:core_2escm"),(void*)f_12679},
{C_text("f_12682:core_2escm"),(void*)f_12682},
{C_text("f_12688:core_2escm"),(void*)f_12688},
{C_text("f_12691:core_2escm"),(void*)f_12691},
{C_text("f_12694:core_2escm"),(void*)f_12694},
{C_text("f_12712:core_2escm"),(void*)f_12712},
{C_text("f_12715:core_2escm"),(void*)f_12715},
{C_text("f_12721:core_2escm"),(void*)f_12721},
{C_text("f_12724:core_2escm"),(void*)f_12724},
{C_text("f_12727:core_2escm"),(void*)f_12727},
{C_text("f_12732:core_2escm"),(void*)f_12732},
{C_text("f_12738:core_2escm"),(void*)f_12738},
{C_text("f_12744:core_2escm"),(void*)f_12744},
{C_text("f_12750:core_2escm"),(void*)f_12750},
{C_text("f_12756:core_2escm"),(void*)f_12756},
{C_text("f_12763:core_2escm"),(void*)f_12763},
{C_text("f_12782:core_2escm"),(void*)f_12782},
{C_text("f_12788:core_2escm"),(void*)f_12788},
{C_text("f_12801:core_2escm"),(void*)f_12801},
{C_text("f_12806:core_2escm"),(void*)f_12806},
{C_text("f_12810:core_2escm"),(void*)f_12810},
{C_text("f_12814:core_2escm"),(void*)f_12814},
{C_text("f_12817:core_2escm"),(void*)f_12817},
{C_text("f_12823:core_2escm"),(void*)f_12823},
{C_text("f_12836:core_2escm"),(void*)f_12836},
{C_text("f_12842:core_2escm"),(void*)f_12842},
{C_text("f_12850:core_2escm"),(void*)f_12850},
{C_text("f_12859:core_2escm"),(void*)f_12859},
{C_text("f_12861:core_2escm"),(void*)f_12861},
{C_text("f_12886:core_2escm"),(void*)f_12886},
{C_text("f_12895:core_2escm"),(void*)f_12895},
{C_text("f_12899:core_2escm"),(void*)f_12899},
{C_text("f_12902:core_2escm"),(void*)f_12902},
{C_text("f_12914:core_2escm"),(void*)f_12914},
{C_text("f_12924:core_2escm"),(void*)f_12924},
{C_text("f_12934:core_2escm"),(void*)f_12934},
{C_text("f_12946:core_2escm"),(void*)f_12946},
{C_text("f_12949:core_2escm"),(void*)f_12949},
{C_text("f_12956:core_2escm"),(void*)f_12956},
{C_text("f_12960:core_2escm"),(void*)f_12960},
{C_text("f_12968:core_2escm"),(void*)f_12968},
{C_text("f_12980:core_2escm"),(void*)f_12980},
{C_text("f_12984:core_2escm"),(void*)f_12984},
{C_text("f_12996:core_2escm"),(void*)f_12996},
{C_text("f_13056:core_2escm"),(void*)f_13056},
{C_text("f_13085:core_2escm"),(void*)f_13085},
{C_text("f_13109:core_2escm"),(void*)f_13109},
{C_text("f_13117:core_2escm"),(void*)f_13117},
{C_text("f_13121:core_2escm"),(void*)f_13121},
{C_text("f_13125:core_2escm"),(void*)f_13125},
{C_text("f_13166:core_2escm"),(void*)f_13166},
{C_text("f_13177:core_2escm"),(void*)f_13177},
{C_text("f_13184:core_2escm"),(void*)f_13184},
{C_text("f_13187:core_2escm"),(void*)f_13187},
{C_text("f_13193:core_2escm"),(void*)f_13193},
{C_text("f_13196:core_2escm"),(void*)f_13196},
{C_text("f_13199:core_2escm"),(void*)f_13199},
{C_text("f_13236:core_2escm"),(void*)f_13236},
{C_text("f_13262:core_2escm"),(void*)f_13262},
{C_text("f_13290:core_2escm"),(void*)f_13290},
{C_text("f_13305:core_2escm"),(void*)f_13305},
{C_text("f_13322:core_2escm"),(void*)f_13322},
{C_text("f_13328:core_2escm"),(void*)f_13328},
{C_text("f_13331:core_2escm"),(void*)f_13331},
{C_text("f_13351:core_2escm"),(void*)f_13351},
{C_text("f_13356:core_2escm"),(void*)f_13356},
{C_text("f_13362:core_2escm"),(void*)f_13362},
{C_text("f_13499:core_2escm"),(void*)f_13499},
{C_text("f_13504:core_2escm"),(void*)f_13504},
{C_text("f_13512:core_2escm"),(void*)f_13512},
{C_text("f_13514:core_2escm"),(void*)f_13514},
{C_text("f_13532:core_2escm"),(void*)f_13532},
{C_text("f_13538:core_2escm"),(void*)f_13538},
{C_text("f_13541:core_2escm"),(void*)f_13541},
{C_text("f_13544:core_2escm"),(void*)f_13544},
{C_text("f_13547:core_2escm"),(void*)f_13547},
{C_text("f_13565:core_2escm"),(void*)f_13565},
{C_text("f_13568:core_2escm"),(void*)f_13568},
{C_text("f_13571:core_2escm"),(void*)f_13571},
{C_text("f_13577:core_2escm"),(void*)f_13577},
{C_text("f_13580:core_2escm"),(void*)f_13580},
{C_text("f_13619:core_2escm"),(void*)f_13619},
{C_text("f_13624:core_2escm"),(void*)f_13624},
{C_text("f_13636:core_2escm"),(void*)f_13636},
{C_text("f_13661:core_2escm"),(void*)f_13661},
{C_text("f_13671:core_2escm"),(void*)f_13671},
{C_text("f_13682:core_2escm"),(void*)f_13682},
{C_text("f_13686:core_2escm"),(void*)f_13686},
{C_text("f_13696:core_2escm"),(void*)f_13696},
{C_text("f_13702:core_2escm"),(void*)f_13702},
{C_text("f_13707:core_2escm"),(void*)f_13707},
{C_text("f_13710:core_2escm"),(void*)f_13710},
{C_text("f_13745:core_2escm"),(void*)f_13745},
{C_text("f_13752:core_2escm"),(void*)f_13752},
{C_text("f_13758:core_2escm"),(void*)f_13758},
{C_text("f_13765:core_2escm"),(void*)f_13765},
{C_text("f_13768:core_2escm"),(void*)f_13768},
{C_text("f_13773:core_2escm"),(void*)f_13773},
{C_text("f_13781:core_2escm"),(void*)f_13781},
{C_text("f_13787:core_2escm"),(void*)f_13787},
{C_text("f_13790:core_2escm"),(void*)f_13790},
{C_text("f_13793:core_2escm"),(void*)f_13793},
{C_text("f_13796:core_2escm"),(void*)f_13796},
{C_text("f_13801:core_2escm"),(void*)f_13801},
{C_text("f_13805:core_2escm"),(void*)f_13805},
{C_text("f_13808:core_2escm"),(void*)f_13808},
{C_text("f_13811:core_2escm"),(void*)f_13811},
{C_text("f_13817:core_2escm"),(void*)f_13817},
{C_text("f_13827:core_2escm"),(void*)f_13827},
{C_text("f_13831:core_2escm"),(void*)f_13831},
{C_text("f_13836:core_2escm"),(void*)f_13836},
{C_text("f_13842:core_2escm"),(void*)f_13842},
{C_text("f_13847:core_2escm"),(void*)f_13847},
{C_text("f_13858:core_2escm"),(void*)f_13858},
{C_text("f_13861:core_2escm"),(void*)f_13861},
{C_text("f_13864:core_2escm"),(void*)f_13864},
{C_text("f_13900:core_2escm"),(void*)f_13900},
{C_text("f_13904:core_2escm"),(void*)f_13904},
{C_text("f_13925:core_2escm"),(void*)f_13925},
{C_text("f_13929:core_2escm"),(void*)f_13929},
{C_text("f_13950:core_2escm"),(void*)f_13950},
{C_text("f_13954:core_2escm"),(void*)f_13954},
{C_text("f_13958:core_2escm"),(void*)f_13958},
{C_text("f_13971:core_2escm"),(void*)f_13971},
{C_text("f_13975:core_2escm"),(void*)f_13975},
{C_text("f_14052:core_2escm"),(void*)f_14052},
{C_text("f_14060:core_2escm"),(void*)f_14060},
{C_text("f_14070:core_2escm"),(void*)f_14070},
{C_text("f_14104:core_2escm"),(void*)f_14104},
{C_text("f_14110:core_2escm"),(void*)f_14110},
{C_text("f_14118:core_2escm"),(void*)f_14118},
{C_text("f_14126:core_2escm"),(void*)f_14126},
{C_text("f_14136:core_2escm"),(void*)f_14136},
{C_text("f_14149:core_2escm"),(void*)f_14149},
{C_text("f_14159:core_2escm"),(void*)f_14159},
{C_text("f_14186:core_2escm"),(void*)f_14186},
{C_text("f_14197:core_2escm"),(void*)f_14197},
{C_text("f_14207:core_2escm"),(void*)f_14207},
{C_text("f_14217:core_2escm"),(void*)f_14217},
{C_text("f_14230:core_2escm"),(void*)f_14230},
{C_text("f_14240:core_2escm"),(void*)f_14240},
{C_text("f_14266:core_2escm"),(void*)f_14266},
{C_text("f_14270:core_2escm"),(void*)f_14270},
{C_text("f_14308:core_2escm"),(void*)f_14308},
{C_text("f_14316:core_2escm"),(void*)f_14316},
{C_text("f_14326:core_2escm"),(void*)f_14326},
{C_text("f_14353:core_2escm"),(void*)f_14353},
{C_text("f_14361:core_2escm"),(void*)f_14361},
{C_text("f_14371:core_2escm"),(void*)f_14371},
{C_text("f_14393:core_2escm"),(void*)f_14393},
{C_text("f_14396:core_2escm"),(void*)f_14396},
{C_text("f_14413:core_2escm"),(void*)f_14413},
{C_text("f_14417:core_2escm"),(void*)f_14417},
{C_text("f_14441:core_2escm"),(void*)f_14441},
{C_text("f_14445:core_2escm"),(void*)f_14445},
{C_text("f_14473:core_2escm"),(void*)f_14473},
{C_text("f_14481:core_2escm"),(void*)f_14481},
{C_text("f_14491:core_2escm"),(void*)f_14491},
{C_text("f_14526:core_2escm"),(void*)f_14526},
{C_text("f_14530:core_2escm"),(void*)f_14530},
{C_text("f_14534:core_2escm"),(void*)f_14534},
{C_text("f_14562:core_2escm"),(void*)f_14562},
{C_text("f_14570:core_2escm"),(void*)f_14570},
{C_text("f_14580:core_2escm"),(void*)f_14580},
{C_text("f_14601:core_2escm"),(void*)f_14601},
{C_text("f_14604:core_2escm"),(void*)f_14604},
{C_text("f_14653:core_2escm"),(void*)f_14653},
{C_text("f_14668:core_2escm"),(void*)f_14668},
{C_text("f_14678:core_2escm"),(void*)f_14678},
{C_text("f_14701:core_2escm"),(void*)f_14701},
{C_text("f_14709:core_2escm"),(void*)f_14709},
{C_text("f_14719:core_2escm"),(void*)f_14719},
{C_text("f_14760:core_2escm"),(void*)f_14760},
{C_text("f_14768:core_2escm"),(void*)f_14768},
{C_text("f_14778:core_2escm"),(void*)f_14778},
{C_text("f_14802:core_2escm"),(void*)f_14802},
{C_text("f_14824:core_2escm"),(void*)f_14824},
{C_text("f_14850:core_2escm"),(void*)f_14850},
{C_text("f_14858:core_2escm"),(void*)f_14858},
{C_text("f_14866:core_2escm"),(void*)f_14866},
{C_text("f_14876:core_2escm"),(void*)f_14876},
{C_text("f_14900:core_2escm"),(void*)f_14900},
{C_text("f_14919:core_2escm"),(void*)f_14919},
{C_text("f_14923:core_2escm"),(void*)f_14923},
{C_text("f_14930:core_2escm"),(void*)f_14930},
{C_text("f_14976:core_2escm"),(void*)f_14976},
{C_text("f_14982:core_2escm"),(void*)f_14982},
{C_text("f_14984:core_2escm"),(void*)f_14984},
{C_text("f_15009:core_2escm"),(void*)f_15009},
{C_text("f_15041:core_2escm"),(void*)f_15041},
{C_text("f_15049:core_2escm"),(void*)f_15049},
{C_text("f_15059:core_2escm"),(void*)f_15059},
{C_text("f_15095:core_2escm"),(void*)f_15095},
{C_text("f_15103:core_2escm"),(void*)f_15103},
{C_text("f_15113:core_2escm"),(void*)f_15113},
{C_text("f_15150:core_2escm"),(void*)f_15150},
{C_text("f_15158:core_2escm"),(void*)f_15158},
{C_text("f_15168:core_2escm"),(void*)f_15168},
{C_text("f_15190:core_2escm"),(void*)f_15190},
{C_text("f_15197:core_2escm"),(void*)f_15197},
{C_text("f_15204:core_2escm"),(void*)f_15204},
{C_text("f_15207:core_2escm"),(void*)f_15207},
{C_text("f_15210:core_2escm"),(void*)f_15210},
{C_text("f_15216:core_2escm"),(void*)f_15216},
{C_text("f_15226:core_2escm"),(void*)f_15226},
{C_text("f_15232:core_2escm"),(void*)f_15232},
{C_text("f_15242:core_2escm"),(void*)f_15242},
{C_text("f_15245:core_2escm"),(void*)f_15245},
{C_text("f_15248:core_2escm"),(void*)f_15248},
{C_text("f_15251:core_2escm"),(void*)f_15251},
{C_text("f_15264:core_2escm"),(void*)f_15264},
{C_text("f_15280:core_2escm"),(void*)f_15280},
{C_text("f_15312:core_2escm"),(void*)f_15312},
{C_text("f_15354:core_2escm"),(void*)f_15354},
{C_text("f_15364:core_2escm"),(void*)f_15364},
{C_text("f_15382:core_2escm"),(void*)f_15382},
{C_text("f_15389:core_2escm"),(void*)f_15389},
{C_text("f_15392:core_2escm"),(void*)f_15392},
{C_text("f_15395:core_2escm"),(void*)f_15395},
{C_text("f_15401:core_2escm"),(void*)f_15401},
{C_text("f_15411:core_2escm"),(void*)f_15411},
{C_text("f_15417:core_2escm"),(void*)f_15417},
{C_text("f_15476:core_2escm"),(void*)f_15476},
{C_text("f_15486:core_2escm"),(void*)f_15486},
{C_text("f_15618:core_2escm"),(void*)f_15618},
{C_text("f_15625:core_2escm"),(void*)f_15625},
{C_text("f_15648:core_2escm"),(void*)f_15648},
{C_text("f_15657:core_2escm"),(void*)f_15657},
{C_text("f_15666:core_2escm"),(void*)f_15666},
{C_text("f_15675:core_2escm"),(void*)f_15675},
{C_text("f_15684:core_2escm"),(void*)f_15684},
{C_text("f_15693:core_2escm"),(void*)f_15693},
{C_text("f_15702:core_2escm"),(void*)f_15702},
{C_text("f_15711:core_2escm"),(void*)f_15711},
{C_text("f_15720:core_2escm"),(void*)f_15720},
{C_text("f_15729:core_2escm"),(void*)f_15729},
{C_text("f_15758:core_2escm"),(void*)f_15758},
{C_text("f_15762:core_2escm"),(void*)f_15762},
{C_text("f_15807:core_2escm"),(void*)f_15807},
{C_text("f_15810:core_2escm"),(void*)f_15810},
{C_text("f_15813:core_2escm"),(void*)f_15813},
{C_text("f_15816:core_2escm"),(void*)f_15816},
{C_text("f_15819:core_2escm"),(void*)f_15819},
{C_text("f_15822:core_2escm"),(void*)f_15822},
{C_text("f_15825:core_2escm"),(void*)f_15825},
{C_text("f_15835:core_2escm"),(void*)f_15835},
{C_text("f_15847:core_2escm"),(void*)f_15847},
{C_text("f_15856:core_2escm"),(void*)f_15856},
{C_text("f_15867:core_2escm"),(void*)f_15867},
{C_text("f_15879:core_2escm"),(void*)f_15879},
{C_text("f_15887:core_2escm"),(void*)f_15887},
{C_text("f_15894:core_2escm"),(void*)f_15894},
{C_text("f_15897:core_2escm"),(void*)f_15897},
{C_text("f_15908:core_2escm"),(void*)f_15908},
{C_text("f_15912:core_2escm"),(void*)f_15912},
{C_text("f_15916:core_2escm"),(void*)f_15916},
{C_text("f_15942:core_2escm"),(void*)f_15942},
{C_text("f_15971:core_2escm"),(void*)f_15971},
{C_text("f_16012:core_2escm"),(void*)f_16012},
{C_text("f_16023:core_2escm"),(void*)f_16023},
{C_text("f_16048:core_2escm"),(void*)f_16048},
{C_text("f_16067:core_2escm"),(void*)f_16067},
{C_text("f_16075:core_2escm"),(void*)f_16075},
{C_text("f_16100:core_2escm"),(void*)f_16100},
{C_text("f_16109:core_2escm"),(void*)f_16109},
{C_text("f_16116:core_2escm"),(void*)f_16116},
{C_text("f_16135:core_2escm"),(void*)f_16135},
{C_text("f_16146:core_2escm"),(void*)f_16146},
{C_text("f_16156:core_2escm"),(void*)f_16156},
{C_text("f_16170:core_2escm"),(void*)f_16170},
{C_text("f_16176:core_2escm"),(void*)f_16176},
{C_text("f_16182:core_2escm"),(void*)f_16182},
{C_text("f_16187:core_2escm"),(void*)f_16187},
{C_text("f_16221:core_2escm"),(void*)f_16221},
{C_text("f_16263:core_2escm"),(void*)f_16263},
{C_text("f_16269:core_2escm"),(void*)f_16269},
{C_text("f_16272:core_2escm"),(void*)f_16272},
{C_text("f_16286:core_2escm"),(void*)f_16286},
{C_text("f_16292:core_2escm"),(void*)f_16292},
{C_text("f_16298:core_2escm"),(void*)f_16298},
{C_text("f_16303:core_2escm"),(void*)f_16303},
{C_text("f_16337:core_2escm"),(void*)f_16337},
{C_text("f_16415:core_2escm"),(void*)f_16415},
{C_text("f_16421:core_2escm"),(void*)f_16421},
{C_text("f_16431:core_2escm"),(void*)f_16431},
{C_text("f_16440:core_2escm"),(void*)f_16440},
{C_text("f_16457:core_2escm"),(void*)f_16457},
{C_text("f_16463:core_2escm"),(void*)f_16463},
{C_text("f_16494:core_2escm"),(void*)f_16494},
{C_text("f_16497:core_2escm"),(void*)f_16497},
{C_text("f_16501:core_2escm"),(void*)f_16501},
{C_text("f_16508:core_2escm"),(void*)f_16508},
{C_text("f_16520:core_2escm"),(void*)f_16520},
{C_text("f_16526:core_2escm"),(void*)f_16526},
{C_text("f_16542:core_2escm"),(void*)f_16542},
{C_text("f_16548:core_2escm"),(void*)f_16548},
{C_text("f_16566:core_2escm"),(void*)f_16566},
{C_text("f_16570:core_2escm"),(void*)f_16570},
{C_text("f_16572:core_2escm"),(void*)f_16572},
{C_text("f_16576:core_2escm"),(void*)f_16576},
{C_text("f_16579:core_2escm"),(void*)f_16579},
{C_text("f_16582:core_2escm"),(void*)f_16582},
{C_text("f_16585:core_2escm"),(void*)f_16585},
{C_text("f_16594:core_2escm"),(void*)f_16594},
{C_text("f_16606:core_2escm"),(void*)f_16606},
{C_text("f_16609:core_2escm"),(void*)f_16609},
{C_text("f_16610:core_2escm"),(void*)f_16610},
{C_text("f_16626:core_2escm"),(void*)f_16626},
{C_text("f_16641:core_2escm"),(void*)f_16641},
{C_text("f_16645:core_2escm"),(void*)f_16645},
{C_text("f_16651:core_2escm"),(void*)f_16651},
{C_text("f_16663:core_2escm"),(void*)f_16663},
{C_text("f_16667:core_2escm"),(void*)f_16667},
{C_text("f_16687:core_2escm"),(void*)f_16687},
{C_text("f_16691:core_2escm"),(void*)f_16691},
{C_text("f_16700:core_2escm"),(void*)f_16700},
{C_text("f_16715:core_2escm"),(void*)f_16715},
{C_text("f_16738:core_2escm"),(void*)f_16738},
{C_text("f_16745:core_2escm"),(void*)f_16745},
{C_text("f_16769:core_2escm"),(void*)f_16769},
{C_text("f_16802:core_2escm"),(void*)f_16802},
{C_text("f_16815:core_2escm"),(void*)f_16815},
{C_text("f_16830:core_2escm"),(void*)f_16830},
{C_text("f_16846:core_2escm"),(void*)f_16846},
{C_text("f_16850:core_2escm"),(void*)f_16850},
{C_text("f_16854:core_2escm"),(void*)f_16854},
{C_text("f_16886:core_2escm"),(void*)f_16886},
{C_text("f_16892:core_2escm"),(void*)f_16892},
{C_text("f_16903:core_2escm"),(void*)f_16903},
{C_text("f_16907:core_2escm"),(void*)f_16907},
{C_text("f_16916:core_2escm"),(void*)f_16916},
{C_text("f_17087:core_2escm"),(void*)f_17087},
{C_text("f_17091:core_2escm"),(void*)f_17091},
{C_text("f_17094:core_2escm"),(void*)f_17094},
{C_text("f_17109:core_2escm"),(void*)f_17109},
{C_text("f_17113:core_2escm"),(void*)f_17113},
{C_text("f_17115:core_2escm"),(void*)f_17115},
{C_text("f_17121:core_2escm"),(void*)f_17121},
{C_text("f_17129:core_2escm"),(void*)f_17129},
{C_text("f_17133:core_2escm"),(void*)f_17133},
{C_text("f_17145:core_2escm"),(void*)f_17145},
{C_text("f_17149:core_2escm"),(void*)f_17149},
{C_text("f_17158:core_2escm"),(void*)f_17158},
{C_text("f_17168:core_2escm"),(void*)f_17168},
{C_text("f_17171:core_2escm"),(void*)f_17171},
{C_text("f_17186:core_2escm"),(void*)f_17186},
{C_text("f_17190:core_2escm"),(void*)f_17190},
{C_text("f_17202:core_2escm"),(void*)f_17202},
{C_text("f_17214:core_2escm"),(void*)f_17214},
{C_text("f_17218:core_2escm"),(void*)f_17218},
{C_text("f_17227:core_2escm"),(void*)f_17227},
{C_text("f_17233:core_2escm"),(void*)f_17233},
{C_text("f_17239:core_2escm"),(void*)f_17239},
{C_text("f_17247:core_2escm"),(void*)f_17247},
{C_text("f_17249:core_2escm"),(void*)f_17249},
{C_text("f_17255:core_2escm"),(void*)f_17255},
{C_text("f_17269:core_2escm"),(void*)f_17269},
{C_text("f_17275:core_2escm"),(void*)f_17275},
{C_text("f_17289:core_2escm"),(void*)f_17289},
{C_text("f_17296:core_2escm"),(void*)f_17296},
{C_text("f_17303:core_2escm"),(void*)f_17303},
{C_text("f_17318:core_2escm"),(void*)f_17318},
{C_text("f_17333:core_2escm"),(void*)f_17333},
{C_text("f_17345:core_2escm"),(void*)f_17345},
{C_text("f_17351:core_2escm"),(void*)f_17351},
{C_text("f_17355:core_2escm"),(void*)f_17355},
{C_text("f_17372:core_2escm"),(void*)f_17372},
{C_text("f_17377:core_2escm"),(void*)f_17377},
{C_text("f_17384:core_2escm"),(void*)f_17384},
{C_text("f_17386:core_2escm"),(void*)f_17386},
{C_text("f_17393:core_2escm"),(void*)f_17393},
{C_text("f_17397:core_2escm"),(void*)f_17397},
{C_text("f_17400:core_2escm"),(void*)f_17400},
{C_text("f_17403:core_2escm"),(void*)f_17403},
{C_text("f_17415:core_2escm"),(void*)f_17415},
{C_text("f_17430:core_2escm"),(void*)f_17430},
{C_text("f_17461:core_2escm"),(void*)f_17461},
{C_text("f_17491:core_2escm"),(void*)f_17491},
{C_text("f_17494:core_2escm"),(void*)f_17494},
{C_text("f_17520:core_2escm"),(void*)f_17520},
{C_text("f_17524:core_2escm"),(void*)f_17524},
{C_text("f_17536:core_2escm"),(void*)f_17536},
{C_text("f_17541:core_2escm"),(void*)f_17541},
{C_text("f_17559:core_2escm"),(void*)f_17559},
{C_text("f_17568:core_2escm"),(void*)f_17568},
{C_text("f_17571:core_2escm"),(void*)f_17571},
{C_text("f_17574:core_2escm"),(void*)f_17574},
{C_text("f_17599:core_2escm"),(void*)f_17599},
{C_text("f_17601:core_2escm"),(void*)f_17601},
{C_text("f_17611:core_2escm"),(void*)f_17611},
{C_text("f_17615:core_2escm"),(void*)f_17615},
{C_text("f_17624:core_2escm"),(void*)f_17624},
{C_text("f_17626:core_2escm"),(void*)f_17626},
{C_text("f_17636:core_2escm"),(void*)f_17636},
{C_text("f_17668:core_2escm"),(void*)f_17668},
{C_text("f_17675:core_2escm"),(void*)f_17675},
{C_text("f_17676:core_2escm"),(void*)f_17676},
{C_text("f_17680:core_2escm"),(void*)f_17680},
{C_text("f_17689:core_2escm"),(void*)f_17689},
{C_text("f_17692:core_2escm"),(void*)f_17692},
{C_text("f_17695:core_2escm"),(void*)f_17695},
{C_text("f_17698:core_2escm"),(void*)f_17698},
{C_text("f_17701:core_2escm"),(void*)f_17701},
{C_text("f_17704:core_2escm"),(void*)f_17704},
{C_text("f_17720:core_2escm"),(void*)f_17720},
{C_text("f_17728:core_2escm"),(void*)f_17728},
{C_text("f_17746:core_2escm"),(void*)f_17746},
{C_text("f_17752:core_2escm"),(void*)f_17752},
{C_text("f_17761:core_2escm"),(void*)f_17761},
{C_text("f_17771:core_2escm"),(void*)f_17771},
{C_text("f_17785:core_2escm"),(void*)f_17785},
{C_text("f_17806:core_2escm"),(void*)f_17806},
{C_text("f_17809:core_2escm"),(void*)f_17809},
{C_text("f_17812:core_2escm"),(void*)f_17812},
{C_text("f_17815:core_2escm"),(void*)f_17815},
{C_text("f_17818:core_2escm"),(void*)f_17818},
{C_text("f_17821:core_2escm"),(void*)f_17821},
{C_text("f_17857:core_2escm"),(void*)f_17857},
{C_text("f_17863:core_2escm"),(void*)f_17863},
{C_text("f_17903:core_2escm"),(void*)f_17903},
{C_text("f_17909:core_2escm"),(void*)f_17909},
{C_text("f_17998:core_2escm"),(void*)f_17998},
{C_text("f_18000:core_2escm"),(void*)f_18000},
{C_text("f_18012:core_2escm"),(void*)f_18012},
{C_text("f_18022:core_2escm"),(void*)f_18022},
{C_text("f_18035:core_2escm"),(void*)f_18035},
{C_text("f_18039:core_2escm"),(void*)f_18039},
{C_text("f_18048:core_2escm"),(void*)f_18048},
{C_text("f_18052:core_2escm"),(void*)f_18052},
{C_text("f_18061:core_2escm"),(void*)f_18061},
{C_text("f_18068:core_2escm"),(void*)f_18068},
{C_text("f_18074:core_2escm"),(void*)f_18074},
{C_text("f_18086:core_2escm"),(void*)f_18086},
{C_text("f_18110:core_2escm"),(void*)f_18110},
{C_text("f_18114:core_2escm"),(void*)f_18114},
{C_text("f_18133:core_2escm"),(void*)f_18133},
{C_text("f_18137:core_2escm"),(void*)f_18137},
{C_text("f_18140:core_2escm"),(void*)f_18140},
{C_text("f_18143:core_2escm"),(void*)f_18143},
{C_text("f_18147:core_2escm"),(void*)f_18147},
{C_text("f_18151:core_2escm"),(void*)f_18151},
{C_text("f_18154:core_2escm"),(void*)f_18154},
{C_text("f_18171:core_2escm"),(void*)f_18171},
{C_text("f_18174:core_2escm"),(void*)f_18174},
{C_text("f_18177:core_2escm"),(void*)f_18177},
{C_text("f_18216:core_2escm"),(void*)f_18216},
{C_text("f_18219:core_2escm"),(void*)f_18219},
{C_text("f_18225:core_2escm"),(void*)f_18225},
{C_text("f_18252:core_2escm"),(void*)f_18252},
{C_text("f_18259:core_2escm"),(void*)f_18259},
{C_text("f_18265:core_2escm"),(void*)f_18265},
{C_text("f_18275:core_2escm"),(void*)f_18275},
{C_text("f_18278:core_2escm"),(void*)f_18278},
{C_text("f_18285:core_2escm"),(void*)f_18285},
{C_text("f_18289:core_2escm"),(void*)f_18289},
{C_text("f_18293:core_2escm"),(void*)f_18293},
{C_text("f_18307:core_2escm"),(void*)f_18307},
{C_text("f_18311:core_2escm"),(void*)f_18311},
{C_text("f_18315:core_2escm"),(void*)f_18315},
{C_text("f_18318:core_2escm"),(void*)f_18318},
{C_text("f_18338:core_2escm"),(void*)f_18338},
{C_text("f_18342:core_2escm"),(void*)f_18342},
{C_text("f_18345:core_2escm"),(void*)f_18345},
{C_text("f_18365:core_2escm"),(void*)f_18365},
{C_text("f_18369:core_2escm"),(void*)f_18369},
{C_text("f_18371:core_2escm"),(void*)f_18371},
{C_text("f_18392:core_2escm"),(void*)f_18392},
{C_text("f_18396:core_2escm"),(void*)f_18396},
{C_text("f_18399:core_2escm"),(void*)f_18399},
{C_text("f_18403:core_2escm"),(void*)f_18403},
{C_text("f_18409:core_2escm"),(void*)f_18409},
{C_text("f_18415:core_2escm"),(void*)f_18415},
{C_text("f_18558:core_2escm"),(void*)f_18558},
{C_text("f_18561:core_2escm"),(void*)f_18561},
{C_text("f_18564:core_2escm"),(void*)f_18564},
{C_text("f_18567:core_2escm"),(void*)f_18567},
{C_text("f_18570:core_2escm"),(void*)f_18570},
{C_text("f_18573:core_2escm"),(void*)f_18573},
{C_text("f_18576:core_2escm"),(void*)f_18576},
{C_text("f_18579:core_2escm"),(void*)f_18579},
{C_text("f_18585:core_2escm"),(void*)f_18585},
{C_text("f_18588:core_2escm"),(void*)f_18588},
{C_text("f_18606:core_2escm"),(void*)f_18606},
{C_text("f_18609:core_2escm"),(void*)f_18609},
{C_text("f_18627:core_2escm"),(void*)f_18627},
{C_text("f_18640:core_2escm"),(void*)f_18640},
{C_text("f_18664:core_2escm"),(void*)f_18664},
{C_text("f_18668:core_2escm"),(void*)f_18668},
{C_text("f_18672:core_2escm"),(void*)f_18672},
{C_text("f_18693:core_2escm"),(void*)f_18693},
{C_text("f_18699:core_2escm"),(void*)f_18699},
{C_text("f_18710:core_2escm"),(void*)f_18710},
{C_text("f_18728:core_2escm"),(void*)f_18728},
{C_text("f_18740:core_2escm"),(void*)f_18740},
{C_text("f_18762:core_2escm"),(void*)f_18762},
{C_text("f_18766:core_2escm"),(void*)f_18766},
{C_text("f_18770:core_2escm"),(void*)f_18770},
{C_text("f_18780:core_2escm"),(void*)f_18780},
{C_text("f_18784:core_2escm"),(void*)f_18784},
{C_text("f_18788:core_2escm"),(void*)f_18788},
{C_text("f_18809:core_2escm"),(void*)f_18809},
{C_text("f_18833:core_2escm"),(void*)f_18833},
{C_text("f_18843:core_2escm"),(void*)f_18843},
{C_text("f_18847:core_2escm"),(void*)f_18847},
{C_text("f_18854:core_2escm"),(void*)f_18854},
{C_text("f_18858:core_2escm"),(void*)f_18858},
{C_text("f_18867:core_2escm"),(void*)f_18867},
{C_text("f_18882:core_2escm"),(void*)f_18882},
{C_text("f_18886:core_2escm"),(void*)f_18886},
{C_text("f_18892:core_2escm"),(void*)f_18892},
{C_text("f_18916:core_2escm"),(void*)f_18916},
{C_text("f_18917:core_2escm"),(void*)f_18917},
{C_text("f_18924:core_2escm"),(void*)f_18924},
{C_text("f_18927:core_2escm"),(void*)f_18927},
{C_text("f_18938:core_2escm"),(void*)f_18938},
{C_text("f_18942:core_2escm"),(void*)f_18942},
{C_text("f_18950:core_2escm"),(void*)f_18950},
{C_text("f_18960:core_2escm"),(void*)f_18960},
{C_text("f_18981:core_2escm"),(void*)f_18981},
{C_text("f_18984:core_2escm"),(void*)f_18984},
{C_text("f_18993:core_2escm"),(void*)f_18993},
{C_text("f_19006:core_2escm"),(void*)f_19006},
{C_text("f_19013:core_2escm"),(void*)f_19013},
{C_text("f_19016:core_2escm"),(void*)f_19016},
{C_text("f_19022:core_2escm"),(void*)f_19022},
{C_text("f_19054:core_2escm"),(void*)f_19054},
{C_text("f_19062:core_2escm"),(void*)f_19062},
{C_text("f_19064:core_2escm"),(void*)f_19064},
{C_text("f_19070:core_2escm"),(void*)f_19070},
{C_text("f_19082:core_2escm"),(void*)f_19082},
{C_text("f_19088:core_2escm"),(void*)f_19088},
{C_text("f_19099:core_2escm"),(void*)f_19099},
{C_text("f_19105:core_2escm"),(void*)f_19105},
{C_text("f_19109:core_2escm"),(void*)f_19109},
{C_text("f_19118:core_2escm"),(void*)f_19118},
{C_text("f_19126:core_2escm"),(void*)f_19126},
{C_text("f_19143:core_2escm"),(void*)f_19143},
{C_text("f_19150:core_2escm"),(void*)f_19150},
{C_text("f_19153:core_2escm"),(void*)f_19153},
{C_text("f_19157:core_2escm"),(void*)f_19157},
{C_text("f_19164:core_2escm"),(void*)f_19164},
{C_text("f_19170:core_2escm"),(void*)f_19170},
{C_text("f_19176:core_2escm"),(void*)f_19176},
{C_text("f_19194:core_2escm"),(void*)f_19194},
{C_text("f_19201:core_2escm"),(void*)f_19201},
{C_text("f_19207:core_2escm"),(void*)f_19207},
{C_text("f_19210:core_2escm"),(void*)f_19210},
{C_text("f_19213:core_2escm"),(void*)f_19213},
{C_text("f_19216:core_2escm"),(void*)f_19216},
{C_text("f_19250:core_2escm"),(void*)f_19250},
{C_text("f_19254:core_2escm"),(void*)f_19254},
{C_text("f_19258:core_2escm"),(void*)f_19258},
{C_text("f_19262:core_2escm"),(void*)f_19262},
{C_text("f_19268:core_2escm"),(void*)f_19268},
{C_text("f_19272:core_2escm"),(void*)f_19272},
{C_text("f_19290:core_2escm"),(void*)f_19290},
{C_text("f_19294:core_2escm"),(void*)f_19294},
{C_text("f_19302:core_2escm"),(void*)f_19302},
{C_text("f_19312:core_2escm"),(void*)f_19312},
{C_text("f_19337:core_2escm"),(void*)f_19337},
{C_text("f_19364:core_2escm"),(void*)f_19364},
{C_text("f_19367:core_2escm"),(void*)f_19367},
{C_text("f_19373:core_2escm"),(void*)f_19373},
{C_text("f_19378:core_2escm"),(void*)f_19378},
{C_text("f_19383:core_2escm"),(void*)f_19383},
{C_text("f_19390:core_2escm"),(void*)f_19390},
{C_text("f_19392:core_2escm"),(void*)f_19392},
{C_text("f_19396:core_2escm"),(void*)f_19396},
{C_text("f_19399:core_2escm"),(void*)f_19399},
{C_text("f_19402:core_2escm"),(void*)f_19402},
{C_text("f_19432:core_2escm"),(void*)f_19432},
{C_text("f_19441:core_2escm"),(void*)f_19441},
{C_text("f_19444:core_2escm"),(void*)f_19444},
{C_text("f_19454:core_2escm"),(void*)f_19454},
{C_text("f_19458:core_2escm"),(void*)f_19458},
{C_text("f_19492:core_2escm"),(void*)f_19492},
{C_text("f_19526:core_2escm"),(void*)f_19526},
{C_text("f_19534:core_2escm"),(void*)f_19534},
{C_text("f_19544:core_2escm"),(void*)f_19544},
{C_text("f_19546:core_2escm"),(void*)f_19546},
{C_text("f_19571:core_2escm"),(void*)f_19571},
{C_text("f_19602:core_2escm"),(void*)f_19602},
{C_text("f_19608:core_2escm"),(void*)f_19608},
{C_text("f_19611:core_2escm"),(void*)f_19611},
{C_text("f_19620:core_2escm"),(void*)f_19620},
{C_text("f_19623:core_2escm"),(void*)f_19623},
{C_text("f_19626:core_2escm"),(void*)f_19626},
{C_text("f_19632:core_2escm"),(void*)f_19632},
{C_text("f_19635:core_2escm"),(void*)f_19635},
{C_text("f_19638:core_2escm"),(void*)f_19638},
{C_text("f_19651:core_2escm"),(void*)f_19651},
{C_text("f_19670:core_2escm"),(void*)f_19670},
{C_text("f_19688:core_2escm"),(void*)f_19688},
{C_text("f_19706:core_2escm"),(void*)f_19706},
{C_text("f_19716:core_2escm"),(void*)f_19716},
{C_text("f_19720:core_2escm"),(void*)f_19720},
{C_text("f_19728:core_2escm"),(void*)f_19728},
{C_text("f_19732:core_2escm"),(void*)f_19732},
{C_text("f_19736:core_2escm"),(void*)f_19736},
{C_text("f_19740:core_2escm"),(void*)f_19740},
{C_text("f_19768:core_2escm"),(void*)f_19768},
{C_text("f_19775:core_2escm"),(void*)f_19775},
{C_text("f_19780:core_2escm"),(void*)f_19780},
{C_text("f_19785:core_2escm"),(void*)f_19785},
{C_text("f_19789:core_2escm"),(void*)f_19789},
{C_text("f_19792:core_2escm"),(void*)f_19792},
{C_text("f_19795:core_2escm"),(void*)f_19795},
{C_text("f_19806:core_2escm"),(void*)f_19806},
{C_text("f_19812:core_2escm"),(void*)f_19812},
{C_text("f_19826:core_2escm"),(void*)f_19826},
{C_text("f_19836:core_2escm"),(void*)f_19836},
{C_text("f_19838:core_2escm"),(void*)f_19838},
{C_text("f_19863:core_2escm"),(void*)f_19863},
{C_text("f_19923:core_2escm"),(void*)f_19923},
{C_text("f_19927:core_2escm"),(void*)f_19927},
{C_text("f_19930:core_2escm"),(void*)f_19930},
{C_text("f_19933:core_2escm"),(void*)f_19933},
{C_text("f_19942:core_2escm"),(void*)f_19942},
{C_text("f_19954:core_2escm"),(void*)f_19954},
{C_text("f_19960:core_2escm"),(void*)f_19960},
{C_text("f_19976:core_2escm"),(void*)f_19976},
{C_text("f_19979:core_2escm"),(void*)f_19979},
{C_text("f_19982:core_2escm"),(void*)f_19982},
{C_text("f_19985:core_2escm"),(void*)f_19985},
{C_text("f_20001:core_2escm"),(void*)f_20001},
{C_text("f_20018:core_2escm"),(void*)f_20018},
{C_text("f_20032:core_2escm"),(void*)f_20032},
{C_text("f_20048:core_2escm"),(void*)f_20048},
{C_text("f_20060:core_2escm"),(void*)f_20060},
{C_text("f_20077:core_2escm"),(void*)f_20077},
{C_text("f_20089:core_2escm"),(void*)f_20089},
{C_text("f_20093:core_2escm"),(void*)f_20093},
{C_text("f_20118:core_2escm"),(void*)f_20118},
{C_text("f_20130:core_2escm"),(void*)f_20130},
{C_text("f_20156:core_2escm"),(void*)f_20156},
{C_text("f_20197:core_2escm"),(void*)f_20197},
{C_text("f_20204:core_2escm"),(void*)f_20204},
{C_text("f_20208:core_2escm"),(void*)f_20208},
{C_text("f_20220:core_2escm"),(void*)f_20220},
{C_text("f_20223:core_2escm"),(void*)f_20223},
{C_text("f_20241:core_2escm"),(void*)f_20241},
{C_text("f_20245:core_2escm"),(void*)f_20245},
{C_text("f_20257:core_2escm"),(void*)f_20257},
{C_text("f_20261:core_2escm"),(void*)f_20261},
{C_text("f_20273:core_2escm"),(void*)f_20273},
{C_text("f_20284:core_2escm"),(void*)f_20284},
{C_text("f_20301:core_2escm"),(void*)f_20301},
{C_text("f_20305:core_2escm"),(void*)f_20305},
{C_text("f_20317:core_2escm"),(void*)f_20317},
{C_text("f_20326:core_2escm"),(void*)f_20326},
{C_text("f_20329:core_2escm"),(void*)f_20329},
{C_text("f_20335:core_2escm"),(void*)f_20335},
{C_text("f_20341:core_2escm"),(void*)f_20341},
{C_text("f_20347:core_2escm"),(void*)f_20347},
{C_text("f_20350:core_2escm"),(void*)f_20350},
{C_text("f_20365:core_2escm"),(void*)f_20365},
{C_text("f_20370:core_2escm"),(void*)f_20370},
{C_text("f_20378:core_2escm"),(void*)f_20378},
{C_text("f_20384:core_2escm"),(void*)f_20384},
{C_text("f_20387:core_2escm"),(void*)f_20387},
{C_text("f_20398:core_2escm"),(void*)f_20398},
{C_text("f_20402:core_2escm"),(void*)f_20402},
{C_text("f_20406:core_2escm"),(void*)f_20406},
{C_text("f_20414:core_2escm"),(void*)f_20414},
{C_text("f_20421:core_2escm"),(void*)f_20421},
{C_text("f_20427:core_2escm"),(void*)f_20427},
{C_text("f_20452:core_2escm"),(void*)f_20452},
{C_text("f_20471:core_2escm"),(void*)f_20471},
{C_text("f_20474:core_2escm"),(void*)f_20474},
{C_text("f_20484:core_2escm"),(void*)f_20484},
{C_text("f_20501:core_2escm"),(void*)f_20501},
{C_text("f_20511:core_2escm"),(void*)f_20511},
{C_text("f_20513:core_2escm"),(void*)f_20513},
{C_text("f_20539:core_2escm"),(void*)f_20539},
{C_text("f_20549:core_2escm"),(void*)f_20549},
{C_text("f_20574:core_2escm"),(void*)f_20574},
{C_text("f_20601:core_2escm"),(void*)f_20601},
{C_text("f_20606:core_2escm"),(void*)f_20606},
{C_text("f_20622:core_2escm"),(void*)f_20622},
{C_text("f_20637:core_2escm"),(void*)f_20637},
{C_text("f_20680:core_2escm"),(void*)f_20680},
{C_text("f_20686:core_2escm"),(void*)f_20686},
{C_text("f_20714:core_2escm"),(void*)f_20714},
{C_text("f_20762:core_2escm"),(void*)f_20762},
{C_text("f_20787:core_2escm"),(void*)f_20787},
{C_text("f_20796:core_2escm"),(void*)f_20796},
{C_text("f_20815:core_2escm"),(void*)f_20815},
{C_text("f_20818:core_2escm"),(void*)f_20818},
{C_text("f_20821:core_2escm"),(void*)f_20821},
{C_text("f_20824:core_2escm"),(void*)f_20824},
{C_text("f_20828:core_2escm"),(void*)f_20828},
{C_text("f_20835:core_2escm"),(void*)f_20835},
{C_text("f_20850:core_2escm"),(void*)f_20850},
{C_text("f_20854:core_2escm"),(void*)f_20854},
{C_text("f_20866:core_2escm"),(void*)f_20866},
{C_text("f_20887:core_2escm"),(void*)f_20887},
{C_text("f_20891:core_2escm"),(void*)f_20891},
{C_text("f_20902:core_2escm"),(void*)f_20902},
{C_text("f_20917:core_2escm"),(void*)f_20917},
{C_text("f_20921:core_2escm"),(void*)f_20921},
{C_text("f_20936:core_2escm"),(void*)f_20936},
{C_text("f_20969:core_2escm"),(void*)f_20969},
{C_text("f_20990:core_2escm"),(void*)f_20990},
{C_text("f_21001:core_2escm"),(void*)f_21001},
{C_text("f_21005:core_2escm"),(void*)f_21005},
{C_text("f_21244:core_2escm"),(void*)f_21244},
{C_text("f_21249:core_2escm"),(void*)f_21249},
{C_text("f_21261:core_2escm"),(void*)f_21261},
{C_text("f_21286:core_2escm"),(void*)f_21286},
{C_text("f_21295:core_2escm"),(void*)f_21295},
{C_text("f_21302:core_2escm"),(void*)f_21302},
{C_text("f_21306:core_2escm"),(void*)f_21306},
{C_text("f_21322:core_2escm"),(void*)f_21322},
{C_text("f_21333:core_2escm"),(void*)f_21333},
{C_text("f_21336:core_2escm"),(void*)f_21336},
{C_text("f_21339:core_2escm"),(void*)f_21339},
{C_text("f_21342:core_2escm"),(void*)f_21342},
{C_text("f_21345:core_2escm"),(void*)f_21345},
{C_text("f_21348:core_2escm"),(void*)f_21348},
{C_text("f_21351:core_2escm"),(void*)f_21351},
{C_text("f_21376:core_2escm"),(void*)f_21376},
{C_text("f_21385:core_2escm"),(void*)f_21385},
{C_text("f_21403:core_2escm"),(void*)f_21403},
{C_text("f_21412:core_2escm"),(void*)f_21412},
{C_text("f_21421:core_2escm"),(void*)f_21421},
{C_text("f_21430:core_2escm"),(void*)f_21430},
{C_text("f_21439:core_2escm"),(void*)f_21439},
{C_text("f_21448:core_2escm"),(void*)f_21448},
{C_text("f_21466:core_2escm"),(void*)f_21466},
{C_text("f_21475:core_2escm"),(void*)f_21475},
{C_text("f_21484:core_2escm"),(void*)f_21484},
{C_text("f_21493:core_2escm"),(void*)f_21493},
{C_text("f_21502:core_2escm"),(void*)f_21502},
{C_text("f_21511:core_2escm"),(void*)f_21511},
{C_text("f_21520:core_2escm"),(void*)f_21520},
{C_text("f_21524:core_2escm"),(void*)f_21524},
{C_text("f_21526:core_2escm"),(void*)f_21526},
{C_text("f_21530:core_2escm"),(void*)f_21530},
{C_text("f_21534:core_2escm"),(void*)f_21534},
{C_text("f_21559:core_2escm"),(void*)f_21559},
{C_text("f_21570:core_2escm"),(void*)f_21570},
{C_text("f_21575:core_2escm"),(void*)f_21575},
{C_text("f_21579:core_2escm"),(void*)f_21579},
{C_text("f_21582:core_2escm"),(void*)f_21582},
{C_text("f_21585:core_2escm"),(void*)f_21585},
{C_text("f_21596:core_2escm"),(void*)f_21596},
{C_text("f_21607:core_2escm"),(void*)f_21607},
{C_text("f_21614:core_2escm"),(void*)f_21614},
{C_text("f_21623:core_2escm"),(void*)f_21623},
{C_text("f_21631:core_2escm"),(void*)f_21631},
{C_text("f_21635:core_2escm"),(void*)f_21635},
{C_text("f_21638:core_2escm"),(void*)f_21638},
{C_text("f_21641:core_2escm"),(void*)f_21641},
{C_text("f_21650:core_2escm"),(void*)f_21650},
{C_text("f_21678:core_2escm"),(void*)f_21678},
{C_text("f_21689:core_2escm"),(void*)f_21689},
{C_text("f_21709:core_2escm"),(void*)f_21709},
{C_text("f_21713:core_2escm"),(void*)f_21713},
{C_text("f_21734:core_2escm"),(void*)f_21734},
{C_text("f_21755:core_2escm"),(void*)f_21755},
{C_text("f_21772:core_2escm"),(void*)f_21772},
{C_text("f_21776:core_2escm"),(void*)f_21776},
{C_text("f_21797:core_2escm"),(void*)f_21797},
{C_text("f_21801:core_2escm"),(void*)f_21801},
{C_text("f_21805:core_2escm"),(void*)f_21805},
{C_text("f_21826:core_2escm"),(void*)f_21826},
{C_text("f_21851:core_2escm"),(void*)f_21851},
{C_text("f_21867:core_2escm"),(void*)f_21867},
{C_text("f_21877:core_2escm"),(void*)f_21877},
{C_text("f_21893:core_2escm"),(void*)f_21893},
{C_text("f_21897:core_2escm"),(void*)f_21897},
{C_text("f_21906:core_2escm"),(void*)f_21906},
{C_text("f_21947:core_2escm"),(void*)f_21947},
{C_text("f_21954:core_2escm"),(void*)f_21954},
{C_text("f_21957:core_2escm"),(void*)f_21957},
{C_text("f_21960:core_2escm"),(void*)f_21960},
{C_text("f_21963:core_2escm"),(void*)f_21963},
{C_text("f_21966:core_2escm"),(void*)f_21966},
{C_text("f_21974:core_2escm"),(void*)f_21974},
{C_text("f_22003:core_2escm"),(void*)f_22003},
{C_text("f_22010:core_2escm"),(void*)f_22010},
{C_text("f_22014:core_2escm"),(void*)f_22014},
{C_text("f_22029:core_2escm"),(void*)f_22029},
{C_text("f_22052:core_2escm"),(void*)f_22052},
{C_text("f_22073:core_2escm"),(void*)f_22073},
{C_text("f_22082:core_2escm"),(void*)f_22082},
{C_text("f_22088:core_2escm"),(void*)f_22088},
{C_text("f_22113:core_2escm"),(void*)f_22113},
{C_text("f_22145:core_2escm"),(void*)f_22145},
{C_text("f_22149:core_2escm"),(void*)f_22149},
{C_text("f_22157:core_2escm"),(void*)f_22157},
{C_text("f_22165:core_2escm"),(void*)f_22165},
{C_text("f_22169:core_2escm"),(void*)f_22169},
{C_text("f_22179:core_2escm"),(void*)f_22179},
{C_text("f_22206:core_2escm"),(void*)f_22206},
{C_text("f_22210:core_2escm"),(void*)f_22210},
{C_text("f_22229:core_2escm"),(void*)f_22229},
{C_text("f_22233:core_2escm"),(void*)f_22233},
{C_text("f_22249:core_2escm"),(void*)f_22249},
{C_text("f_22263:core_2escm"),(void*)f_22263},
{C_text("f_22269:core_2escm"),(void*)f_22269},
{C_text("f_22272:core_2escm"),(void*)f_22272},
{C_text("f_22275:core_2escm"),(void*)f_22275},
{C_text("f_22294:core_2escm"),(void*)f_22294},
{C_text("f_22302:core_2escm"),(void*)f_22302},
{C_text("f_22343:core_2escm"),(void*)f_22343},
{C_text("f_22347:core_2escm"),(void*)f_22347},
{C_text("f_22362:core_2escm"),(void*)f_22362},
{C_text("f_22366:core_2escm"),(void*)f_22366},
{C_text("f_22369:core_2escm"),(void*)f_22369},
{C_text("f_22372:core_2escm"),(void*)f_22372},
{C_text("f_22379:core_2escm"),(void*)f_22379},
{C_text("f_22399:core_2escm"),(void*)f_22399},
{C_text("f_22403:core_2escm"),(void*)f_22403},
{C_text("f_22410:core_2escm"),(void*)f_22410},
{C_text("f_22447:core_2escm"),(void*)f_22447},
{C_text("f_22454:core_2escm"),(void*)f_22454},
{C_text("f_22474:core_2escm"),(void*)f_22474},
{C_text("f_22495:core_2escm"),(void*)f_22495},
{C_text("f_22498:core_2escm"),(void*)f_22498},
{C_text("f_22505:core_2escm"),(void*)f_22505},
{C_text("f_22509:core_2escm"),(void*)f_22509},
{C_text("f_22515:core_2escm"),(void*)f_22515},
{C_text("f_22518:core_2escm"),(void*)f_22518},
{C_text("f_22521:core_2escm"),(void*)f_22521},
{C_text("f_22524:core_2escm"),(void*)f_22524},
{C_text("f_22527:core_2escm"),(void*)f_22527},
{C_text("f_22531:core_2escm"),(void*)f_22531},
{C_text("f_22542:core_2escm"),(void*)f_22542},
{C_text("f_22553:core_2escm"),(void*)f_22553},
{C_text("f_22559:core_2escm"),(void*)f_22559},
{C_text("f_22573:core_2escm"),(void*)f_22573},
{C_text("f_22583:core_2escm"),(void*)f_22583},
{C_text("f_22595:core_2escm"),(void*)f_22595},
{C_text("f_22598:core_2escm"),(void*)f_22598},
{C_text("f_22601:core_2escm"),(void*)f_22601},
{C_text("f_22620:core_2escm"),(void*)f_22620},
{C_text("f_22632:core_2escm"),(void*)f_22632},
{C_text("f_22661:core_2escm"),(void*)f_22661},
{C_text("f_22672:core_2escm"),(void*)f_22672},
{C_text("f_22682:core_2escm"),(void*)f_22682},
{C_text("f_22691:core_2escm"),(void*)f_22691},
{C_text("f_22702:core_2escm"),(void*)f_22702},
{C_text("f_22713:core_2escm"),(void*)f_22713},
{C_text("f_22716:core_2escm"),(void*)f_22716},
{C_text("f_22723:core_2escm"),(void*)f_22723},
{C_text("f_22733:core_2escm"),(void*)f_22733},
{C_text("f_22774:core_2escm"),(void*)f_22774},
{C_text("f_22841:core_2escm"),(void*)f_22841},
{C_text("f_22846:core_2escm"),(void*)f_22846},
{C_text("f_22858:core_2escm"),(void*)f_22858},
{C_text("f_22883:core_2escm"),(void*)f_22883},
{C_text("f_22892:core_2escm"),(void*)f_22892},
{C_text("f_22899:core_2escm"),(void*)f_22899},
{C_text("f_22924:core_2escm"),(void*)f_22924},
{C_text("f_22940:core_2escm"),(void*)f_22940},
{C_text("f_22949:core_2escm"),(void*)f_22949},
{C_text("f_22953:core_2escm"),(void*)f_22953},
{C_text("f_22957:core_2escm"),(void*)f_22957},
{C_text("f_22975:core_2escm"),(void*)f_22975},
{C_text("f_22977:core_2escm"),(void*)f_22977},
{C_text("f_22984:core_2escm"),(void*)f_22984},
{C_text("f_22991:core_2escm"),(void*)f_22991},
{C_text("f_22993:core_2escm"),(void*)f_22993},
{C_text("f_23010:core_2escm"),(void*)f_23010},
{C_text("f_23056:core_2escm"),(void*)f_23056},
{C_text("f_23059:core_2escm"),(void*)f_23059},
{C_text("f_23062:core_2escm"),(void*)f_23062},
{C_text("f_23065:core_2escm"),(void*)f_23065},
{C_text("f_23068:core_2escm"),(void*)f_23068},
{C_text("f_23075:core_2escm"),(void*)f_23075},
{C_text("f_23079:core_2escm"),(void*)f_23079},
{C_text("f_23083:core_2escm"),(void*)f_23083},
{C_text("f_6270:core_2escm"),(void*)f_6270},
{C_text("f_6273:core_2escm"),(void*)f_6273},
{C_text("f_6276:core_2escm"),(void*)f_6276},
{C_text("f_6279:core_2escm"),(void*)f_6279},
{C_text("f_6282:core_2escm"),(void*)f_6282},
{C_text("f_6285:core_2escm"),(void*)f_6285},
{C_text("f_6288:core_2escm"),(void*)f_6288},
{C_text("f_6291:core_2escm"),(void*)f_6291},
{C_text("f_6294:core_2escm"),(void*)f_6294},
{C_text("f_6297:core_2escm"),(void*)f_6297},
{C_text("f_6483:core_2escm"),(void*)f_6483},
{C_text("f_6497:core_2escm"),(void*)f_6497},
{C_text("f_6686:core_2escm"),(void*)f_6686},
{C_text("f_6692:core_2escm"),(void*)f_6692},
{C_text("f_6714:core_2escm"),(void*)f_6714},
{C_text("f_6726:core_2escm"),(void*)f_6726},
{C_text("f_6750:core_2escm"),(void*)f_6750},
{C_text("f_6756:core_2escm"),(void*)f_6756},
{C_text("f_6770:core_2escm"),(void*)f_6770},
{C_text("f_6778:core_2escm"),(void*)f_6778},
{C_text("f_6784:core_2escm"),(void*)f_6784},
{C_text("f_6802:core_2escm"),(void*)f_6802},
{C_text("f_6806:core_2escm"),(void*)f_6806},
{C_text("f_6812:core_2escm"),(void*)f_6812},
{C_text("f_6825:core_2escm"),(void*)f_6825},
{C_text("f_6839:core_2escm"),(void*)f_6839},
{C_text("f_6887:core_2escm"),(void*)f_6887},
{C_text("f_6901:core_2escm"),(void*)f_6901},
{C_text("f_6914:core_2escm"),(void*)f_6914},
{C_text("f_6926:core_2escm"),(void*)f_6926},
{C_text("f_6935:core_2escm"),(void*)f_6935},
{C_text("f_6943:core_2escm"),(void*)f_6943},
{C_text("f_6950:core_2escm"),(void*)f_6950},
{C_text("f_6964:core_2escm"),(void*)f_6964},
{C_text("f_6979:core_2escm"),(void*)f_6979},
{C_text("f_6987:core_2escm"),(void*)f_6987},
{C_text("f_6991:core_2escm"),(void*)f_6991},
{C_text("f_6995:core_2escm"),(void*)f_6995},
{C_text("f_7013:core_2escm"),(void*)f_7013},
{C_text("f_7035:core_2escm"),(void*)f_7035},
{C_text("f_7052:core_2escm"),(void*)f_7052},
{C_text("f_7092:core_2escm"),(void*)f_7092},
{C_text("f_7117:core_2escm"),(void*)f_7117},
{C_text("f_7130:core_2escm"),(void*)f_7130},
{C_text("f_7145:core_2escm"),(void*)f_7145},
{C_text("f_7151:core_2escm"),(void*)f_7151},
{C_text("f_7186:core_2escm"),(void*)f_7186},
{C_text("f_7192:core_2escm"),(void*)f_7192},
{C_text("f_7214:core_2escm"),(void*)f_7214},
{C_text("f_7225:core_2escm"),(void*)f_7225},
{C_text("f_7231:core_2escm"),(void*)f_7231},
{C_text("f_7237:core_2escm"),(void*)f_7237},
{C_text("f_7262:core_2escm"),(void*)f_7262},
{C_text("f_7290:core_2escm"),(void*)f_7290},
{C_text("f_7304:core_2escm"),(void*)f_7304},
{C_text("f_7310:core_2escm"),(void*)f_7310},
{C_text("f_7316:core_2escm"),(void*)f_7316},
{C_text("f_7322:core_2escm"),(void*)f_7322},
{C_text("f_7529:core_2escm"),(void*)f_7529},
{C_text("f_7535:core_2escm"),(void*)f_7535},
{C_text("f_7569:core_2escm"),(void*)f_7569},
{C_text("f_7664:core_2escm"),(void*)f_7664},
{C_text("f_7668:core_2escm"),(void*)f_7668},
{C_text("f_7671:core_2escm"),(void*)f_7671},
{C_text("f_7674:core_2escm"),(void*)f_7674},
{C_text("f_7677:core_2escm"),(void*)f_7677},
{C_text("f_7680:core_2escm"),(void*)f_7680},
{C_text("f_7683:core_2escm"),(void*)f_7683},
{C_text("f_7693:core_2escm"),(void*)f_7693},
{C_text("f_7700:core_2escm"),(void*)f_7700},
{C_text("f_7707:core_2escm"),(void*)f_7707},
{C_text("f_7714:core_2escm"),(void*)f_7714},
{C_text("f_7716:core_2escm"),(void*)f_7716},
{C_text("f_7720:core_2escm"),(void*)f_7720},
{C_text("f_7725:core_2escm"),(void*)f_7725},
{C_text("f_7727:core_2escm"),(void*)f_7727},
{C_text("f_7769:core_2escm"),(void*)f_7769},
{C_text("f_7801:core_2escm"),(void*)f_7801},
{C_text("f_7811:core_2escm"),(void*)f_7811},
{C_text("f_7824:core_2escm"),(void*)f_7824},
{C_text("f_7827:core_2escm"),(void*)f_7827},
{C_text("f_7840:core_2escm"),(void*)f_7840},
{C_text("f_7862:core_2escm"),(void*)f_7862},
{C_text("f_7869:core_2escm"),(void*)f_7869},
{C_text("f_7872:core_2escm"),(void*)f_7872},
{C_text("f_7880:core_2escm"),(void*)f_7880},
{C_text("f_7886:core_2escm"),(void*)f_7886},
{C_text("f_7893:core_2escm"),(void*)f_7893},
{C_text("f_7900:core_2escm"),(void*)f_7900},
{C_text("f_7902:core_2escm"),(void*)f_7902},
{C_text("f_7906:core_2escm"),(void*)f_7906},
{C_text("f_7909:core_2escm"),(void*)f_7909},
{C_text("f_7913:core_2escm"),(void*)f_7913},
{C_text("f_7915:core_2escm"),(void*)f_7915},
{C_text("f_7917:core_2escm"),(void*)f_7917},
{C_text("f_7924:core_2escm"),(void*)f_7924},
{C_text("f_7927:core_2escm"),(void*)f_7927},
{C_text("f_7942:core_2escm"),(void*)f_7942},
{C_text("f_7946:core_2escm"),(void*)f_7946},
{C_text("f_7951:core_2escm"),(void*)f_7951},
{C_text("f_7956:core_2escm"),(void*)f_7956},
{C_text("f_7964:core_2escm"),(void*)f_7964},
{C_text("f_7966:core_2escm"),(void*)f_7966},
{C_text("f_7971:core_2escm"),(void*)f_7971},
{C_text("f_7988:core_2escm"),(void*)f_7988},
{C_text("f_7998:core_2escm"),(void*)f_7998},
{C_text("f_8037:core_2escm"),(void*)f_8037},
{C_text("f_8069:core_2escm"),(void*)f_8069},
{C_text("f_8080:core_2escm"),(void*)f_8080},
{C_text("f_8084:core_2escm"),(void*)f_8084},
{C_text("f_8087:core_2escm"),(void*)f_8087},
{C_text("f_8099:core_2escm"),(void*)f_8099},
{C_text("f_8103:core_2escm"),(void*)f_8103},
{C_text("f_8113:core_2escm"),(void*)f_8113},
{C_text("f_8117:core_2escm"),(void*)f_8117},
{C_text("f_8131:core_2escm"),(void*)f_8131},
{C_text("f_8138:core_2escm"),(void*)f_8138},
{C_text("f_8148:core_2escm"),(void*)f_8148},
{C_text("f_8152:core_2escm"),(void*)f_8152},
{C_text("f_8170:core_2escm"),(void*)f_8170},
{C_text("f_8177:core_2escm"),(void*)f_8177},
{C_text("f_8187:core_2escm"),(void*)f_8187},
{C_text("f_8191:core_2escm"),(void*)f_8191},
{C_text("f_8218:core_2escm"),(void*)f_8218},
{C_text("f_8229:core_2escm"),(void*)f_8229},
{C_text("f_8233:core_2escm"),(void*)f_8233},
{C_text("f_8236:core_2escm"),(void*)f_8236},
{C_text("f_8242:core_2escm"),(void*)f_8242},
{C_text("f_8245:core_2escm"),(void*)f_8245},
{C_text("f_8248:core_2escm"),(void*)f_8248},
{C_text("f_8272:core_2escm"),(void*)f_8272},
{C_text("f_8278:core_2escm"),(void*)f_8278},
{C_text("f_8281:core_2escm"),(void*)f_8281},
{C_text("f_8284:core_2escm"),(void*)f_8284},
{C_text("f_8287:core_2escm"),(void*)f_8287},
{C_text("f_8293:core_2escm"),(void*)f_8293},
{C_text("f_8296:core_2escm"),(void*)f_8296},
{C_text("f_8299:core_2escm"),(void*)f_8299},
{C_text("f_8314:core_2escm"),(void*)f_8314},
{C_text("f_8319:core_2escm"),(void*)f_8319},
{C_text("f_8323:core_2escm"),(void*)f_8323},
{C_text("f_8329:core_2escm"),(void*)f_8329},
{C_text("f_8334:core_2escm"),(void*)f_8334},
{C_text("f_8344:core_2escm"),(void*)f_8344},
{C_text("f_8359:core_2escm"),(void*)f_8359},
{C_text("f_8368:core_2escm"),(void*)f_8368},
{C_text("f_8375:core_2escm"),(void*)f_8375},
{C_text("f_8382:core_2escm"),(void*)f_8382},
{C_text("f_8388:core_2escm"),(void*)f_8388},
{C_text("f_8395:core_2escm"),(void*)f_8395},
{C_text("f_8419:core_2escm"),(void*)f_8419},
{C_text("f_8434:core_2escm"),(void*)f_8434},
{C_text("f_8440:core_2escm"),(void*)f_8440},
{C_text("f_8443:core_2escm"),(void*)f_8443},
{C_text("f_8447:core_2escm"),(void*)f_8447},
{C_text("f_8450:core_2escm"),(void*)f_8450},
{C_text("f_8453:core_2escm"),(void*)f_8453},
{C_text("f_8465:core_2escm"),(void*)f_8465},
{C_text("f_8469:core_2escm"),(void*)f_8469},
{C_text("f_8497:core_2escm"),(void*)f_8497},
{C_text("f_8501:core_2escm"),(void*)f_8501},
{C_text("f_8505:core_2escm"),(void*)f_8505},
{C_text("f_8543:core_2escm"),(void*)f_8543},
{C_text("f_8576:core_2escm"),(void*)f_8576},
{C_text("f_8584:core_2escm"),(void*)f_8584},
{C_text("f_8617:core_2escm"),(void*)f_8617},
{C_text("f_8622:core_2escm"),(void*)f_8622},
{C_text("f_8630:core_2escm"),(void*)f_8630},
{C_text("f_8634:core_2escm"),(void*)f_8634},
{C_text("f_8651:core_2escm"),(void*)f_8651},
{C_text("f_8653:core_2escm"),(void*)f_8653},
{C_text("f_8678:core_2escm"),(void*)f_8678},
{C_text("f_8701:core_2escm"),(void*)f_8701},
{C_text("f_8713:core_2escm"),(void*)f_8713},
{C_text("f_8720:core_2escm"),(void*)f_8720},
{C_text("f_8723:core_2escm"),(void*)f_8723},
{C_text("f_8732:core_2escm"),(void*)f_8732},
{C_text("f_8745:core_2escm"),(void*)f_8745},
{C_text("f_8765:core_2escm"),(void*)f_8765},
{C_text("f_8769:core_2escm"),(void*)f_8769},
{C_text("f_8773:core_2escm"),(void*)f_8773},
{C_text("f_8786:core_2escm"),(void*)f_8786},
{C_text("f_8790:core_2escm"),(void*)f_8790},
{C_text("f_8807:core_2escm"),(void*)f_8807},
{C_text("f_8827:core_2escm"),(void*)f_8827},
{C_text("f_8833:core_2escm"),(void*)f_8833},
{C_text("f_8837:core_2escm"),(void*)f_8837},
{C_text("f_8848:core_2escm"),(void*)f_8848},
{C_text("f_8854:core_2escm"),(void*)f_8854},
{C_text("f_8870:core_2escm"),(void*)f_8870},
{C_text("f_8879:core_2escm"),(void*)f_8879},
{C_text("f_8882:core_2escm"),(void*)f_8882},
{C_text("f_8885:core_2escm"),(void*)f_8885},
{C_text("f_8891:core_2escm"),(void*)f_8891},
{C_text("f_8899:core_2escm"),(void*)f_8899},
{C_text("f_8907:core_2escm"),(void*)f_8907},
{C_text("f_8922:core_2escm"),(void*)f_8922},
{C_text("f_8926:core_2escm"),(void*)f_8926},
{C_text("f_8928:core_2escm"),(void*)f_8928},
{C_text("f_8932:core_2escm"),(void*)f_8932},
{C_text("f_8936:core_2escm"),(void*)f_8936},
{C_text("f_8939:core_2escm"),(void*)f_8939},
{C_text("f_8945:core_2escm"),(void*)f_8945},
{C_text("f_8953:core_2escm"),(void*)f_8953},
{C_text("f_8957:core_2escm"),(void*)f_8957},
{C_text("f_8963:core_2escm"),(void*)f_8963},
{C_text("f_8967:core_2escm"),(void*)f_8967},
{C_text("f_8970:core_2escm"),(void*)f_8970},
{C_text("f_8973:core_2escm"),(void*)f_8973},
{C_text("f_9002:core_2escm"),(void*)f_9002},
{C_text("f_9023:core_2escm"),(void*)f_9023},
{C_text("f_9025:core_2escm"),(void*)f_9025},
{C_text("f_9050:core_2escm"),(void*)f_9050},
{C_text("f_9098:core_2escm"),(void*)f_9098},
{C_text("f_9102:core_2escm"),(void*)f_9102},
{C_text("f_9122:core_2escm"),(void*)f_9122},
{C_text("f_9136:core_2escm"),(void*)f_9136},
{C_text("f_9170:core_2escm"),(void*)f_9170},
{C_text("f_9214:core_2escm"),(void*)f_9214},
{C_text("f_9223:core_2escm"),(void*)f_9223},
{C_text("f_9252:core_2escm"),(void*)f_9252},
{C_text("f_9265:core_2escm"),(void*)f_9265},
{C_text("f_9283:core_2escm"),(void*)f_9283},
{C_text("f_9287:core_2escm"),(void*)f_9287},
{C_text("f_9299:core_2escm"),(void*)f_9299},
{C_text("f_9313:core_2escm"),(void*)f_9313},
{C_text("f_9361:core_2escm"),(void*)f_9361},
{C_text("f_9409:core_2escm"),(void*)f_9409},
{C_text("f_9443:core_2escm"),(void*)f_9443},
{C_text("f_9468:core_2escm"),(void*)f_9468},
{C_text("f_9488:core_2escm"),(void*)f_9488},
{C_text("f_9496:core_2escm"),(void*)f_9496},
{C_text("f_9504:core_2escm"),(void*)f_9504},
{C_text("f_9507:core_2escm"),(void*)f_9507},
{C_text("f_9512:core_2escm"),(void*)f_9512},
{C_text("f_9517:core_2escm"),(void*)f_9517},
{C_text("f_9527:core_2escm"),(void*)f_9527},
{C_text("f_9532:core_2escm"),(void*)f_9532},
{C_text("f_9557:core_2escm"),(void*)f_9557},
{C_text("f_9578:core_2escm"),(void*)f_9578},
{C_text("f_9583:core_2escm"),(void*)f_9583},
{C_text("f_9593:core_2escm"),(void*)f_9593},
{C_text("f_9596:core_2escm"),(void*)f_9596},
{C_text("f_9602:core_2escm"),(void*)f_9602},
{C_text("f_9605:core_2escm"),(void*)f_9605},
{C_text("f_9608:core_2escm"),(void*)f_9608},
{C_text("f_9614:core_2escm"),(void*)f_9614},
{C_text("f_9623:core_2escm"),(void*)f_9623},
{C_text("f_9629:core_2escm"),(void*)f_9629},
{C_text("f_9636:core_2escm"),(void*)f_9636},
{C_text("f_9667:core_2escm"),(void*)f_9667},
{C_text("f_9678:core_2escm"),(void*)f_9678},
{C_text("f_9680:core_2escm"),(void*)f_9680},
{C_text("f_9684:core_2escm"),(void*)f_9684},
{C_text("f_9688:core_2escm"),(void*)f_9688},
{C_text("f_9691:core_2escm"),(void*)f_9691},
{C_text("f_9697:core_2escm"),(void*)f_9697},
{C_text("f_9701:core_2escm"),(void*)f_9701},
{C_text("f_9706:core_2escm"),(void*)f_9706},
{C_text("f_9711:core_2escm"),(void*)f_9711},
{C_text("f_9719:core_2escm"),(void*)f_9719},
{C_text("f_9723:core_2escm"),(void*)f_9723},
{C_text("f_9736:core_2escm"),(void*)f_9736},
{C_text("f_9741:core_2escm"),(void*)f_9741},
{C_text("f_9745:core_2escm"),(void*)f_9745},
{C_text("f_9748:core_2escm"),(void*)f_9748},
{C_text("f_9753:core_2escm"),(void*)f_9753},
{C_text("f_9755:core_2escm"),(void*)f_9755},
{C_text("f_9780:core_2escm"),(void*)f_9780},
{C_text("f_9790:core_2escm"),(void*)f_9790},
{C_text("f_9795:core_2escm"),(void*)f_9795},
{C_text("f_9803:core_2escm"),(void*)f_9803},
{C_text("f_9805:core_2escm"),(void*)f_9805},
{C_text("f_9817:core_2escm"),(void*)f_9817},
{C_text("f_9822:core_2escm"),(void*)f_9822},
{C_text("f_9826:core_2escm"),(void*)f_9826},
{C_text("f_9830:core_2escm"),(void*)f_9830},
{C_text("f_9833:core_2escm"),(void*)f_9833},
{C_text("f_9839:core_2escm"),(void*)f_9839},
{C_text("f_9843:core_2escm"),(void*)f_9843},
{C_text("f_9853:core_2escm"),(void*)f_9853},
{C_text("f_9859:core_2escm"),(void*)f_9859},
{C_text("f_9863:core_2escm"),(void*)f_9863},
{C_text("f_9866:core_2escm"),(void*)f_9866},
{C_text("f_9884:core_2escm"),(void*)f_9884},
{C_text("f_9888:core_2escm"),(void*)f_9888},
{C_text("f_9892:core_2escm"),(void*)f_9892},
{C_text("f_9907:core_2escm"),(void*)f_9907},
{C_text("f_9911:core_2escm"),(void*)f_9911},
{C_text("f_9913:core_2escm"),(void*)f_9913},
{C_text("f_9967:core_2escm"),(void*)f_9967},
{C_text("f_9971:core_2escm"),(void*)f_9971},
{C_text("f_9986:core_2escm"),(void*)f_9986},
{C_text("f_9989:core_2escm"),(void*)f_9989},
{C_text("f_9992:core_2escm"),(void*)f_9992},
{C_text("f_9996:core_2escm"),(void*)f_9996},
{C_text("toplevel:core_2escm"),(void*)C_compiler_toplevel},
{C_text("va26422:core_2escm"),(void*)va26422},
{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.core#d 
o|hiding unexported module binding: chicken.compiler.core#d 
o|hiding unexported module binding: chicken.compiler.core#partition 
o|hiding unexported module binding: chicken.compiler.core#span 
o|hiding unexported module binding: chicken.compiler.core#take 
o|hiding unexported module binding: chicken.compiler.core#drop 
o|hiding unexported module binding: chicken.compiler.core#split-at 
o|hiding unexported module binding: chicken.compiler.core#append-map 
o|hiding unexported module binding: chicken.compiler.core#every 
o|hiding unexported module binding: chicken.compiler.core#any 
o|hiding unexported module binding: chicken.compiler.core#cons* 
o|hiding unexported module binding: chicken.compiler.core#concatenate 
o|hiding unexported module binding: chicken.compiler.core#delete 
o|hiding unexported module binding: chicken.compiler.core#first 
o|hiding unexported module binding: chicken.compiler.core#second 
o|hiding unexported module binding: chicken.compiler.core#third 
o|hiding unexported module binding: chicken.compiler.core#fourth 
o|hiding unexported module binding: chicken.compiler.core#fifth 
o|hiding unexported module binding: chicken.compiler.core#delete-duplicates 
o|hiding unexported module binding: chicken.compiler.core#alist-cons 
o|hiding unexported module binding: chicken.compiler.core#filter 
o|hiding unexported module binding: chicken.compiler.core#filter-map 
o|hiding unexported module binding: chicken.compiler.core#remove 
o|hiding unexported module binding: chicken.compiler.core#unzip1 
o|hiding unexported module binding: chicken.compiler.core#last 
o|hiding unexported module binding: chicken.compiler.core#list-index 
o|hiding unexported module binding: chicken.compiler.core#lset-adjoin/eq? 
o|hiding unexported module binding: chicken.compiler.core#lset-difference/eq? 
o|hiding unexported module binding: chicken.compiler.core#lset-union/eq? 
o|hiding unexported module binding: chicken.compiler.core#lset-intersection/eq? 
o|hiding unexported module binding: chicken.compiler.core#list-tabulate 
o|hiding unexported module binding: chicken.compiler.core#lset<=/eq? 
o|hiding unexported module binding: chicken.compiler.core#lset=/eq? 
o|hiding unexported module binding: chicken.compiler.core#length+ 
o|hiding unexported module binding: chicken.compiler.core#find 
o|hiding unexported module binding: chicken.compiler.core#find-tail 
o|hiding unexported module binding: chicken.compiler.core#iota 
o|hiding unexported module binding: chicken.compiler.core#make-list 
o|hiding unexported module binding: chicken.compiler.core#posq 
o|hiding unexported module binding: chicken.compiler.core#posv 
o|hiding unexported module binding: chicken.compiler.core#safe-globals-flag 
o|hiding unexported module binding: chicken.compiler.core#original-program-size 
o|hiding unexported module binding: chicken.compiler.core#current-program-size 
o|hiding unexported module binding: chicken.compiler.core#current-analysis-database-size 
o|hiding unexported module binding: chicken.compiler.core#direct-call-ids 
o|hiding unexported module binding: chicken.compiler.core#foreign-variables 
o|hiding unexported module binding: chicken.compiler.core#external-to-pointer 
o|hiding unexported module binding: chicken.compiler.core#location-pointer-map 
o|hiding unexported module binding: chicken.compiler.core#pending-canonicalizations 
o|hiding unexported module binding: chicken.compiler.core#defconstant-bindings 
o|hiding unexported module binding: chicken.compiler.core#callback-names 
o|hiding unexported module binding: chicken.compiler.core#toplevel-scope 
o|hiding unexported module binding: chicken.compiler.core#toplevel-lambda-id 
o|hiding unexported module binding: chicken.compiler.core#unlikely-variables 
o|hiding unexported module binding: chicken.compiler.core#register-static-extension 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub 
o|hiding unexported module binding: chicken.compiler.core#make-foreign-stub 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub? 
o|hiding unexported module binding: chicken.compiler.core#create-foreign-stub 
o|hiding unexported module binding: chicken.compiler.core#expand-foreign-lambda 
o|hiding unexported module binding: chicken.compiler.core#expand-foreign-lambda* 
o|hiding unexported module binding: chicken.compiler.core#expand-foreign-primitive 
o|hiding unexported module binding: chicken.compiler.core#update-line-number-database! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal 
o|hiding unexported module binding: chicken.compiler.core#make-lambda-literal 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal? 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-arguments 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-directly-called 
S|applied compiler syntax:
S|  chicken.base#o		1
S|  chicken.format#sprintf		19
S|  scheme#for-each		30
S|  chicken.base#foldl		3
S|  scheme#map		42
S|  chicken.base#foldr		3
o|eliminated procedure checks: 506 
o|specializations:
o|  3 (scheme#positive? *)
o|  1 (scheme#integer? *)
o|  2 (chicken.base#sub1 *)
o|  18 (chicken.base#add1 *)
o|  2 (scheme#memq * list)
o|  4 (scheme#zero? *)
o|  2 (scheme#>= fixnum fixnum)
o|  1 (chicken.base#current-error-port)
o|  1 (scheme#caddr (pair * (pair * pair)))
o|  3 (scheme#cadr (pair * pair))
o|  12 (scheme#cddr (pair * pair))
o|  2 (scheme#string-append string string)
o|  19 (##sys#check-output-port * * *)
o|  6 (scheme#= fixnum fixnum)
o|  3 (scheme#length list)
o|  3 (scheme#cdar (pair pair *))
o|  241 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
o|  1 (scheme#eqv? * *)
o|  9 (##sys#check-list (or pair list) *)
o|  83 (scheme#cdr pair)
o|  31 (scheme#car pair)
o|  1 (##sys#debug-mode?)
(o e)|safe calls: 2245 
(o e)|assignments to immediate values: 40 
o|safe globals: (chicken.compiler.core#prepare-for-code-generation chicken.compiler.core#lambda-literal-direct chicken.compiler.core#lambda-literal-body chicken.compiler.core#lambda-literal-rest-argument-mode chicken.compiler.core#lambda-literal-customizable chicken.compiler.core#lambda-literal-looping chicken.compiler.core#lambda-literal-closure-size chicken.compiler.core#lambda-literal-directly-called chicken.compiler.core#lambda-literal-allocated chicken.compiler.core#lambda-literal-callee-signatures chicken.compiler.core#lambda-literal-float-temporaries chicken.compiler.core#lambda-literal-temporaries chicken.compiler.core#lambda-literal-rest-argument chicken.compiler.core#lambda-literal-argument-count chicken.compiler.core#lambda-literal-arguments chicken.compiler.core#lambda-literal-external chicken.compiler.core#lambda-literal-id chicken.compiler.core#lambda-literal? chicken.compiler.core#make-lambda-literal chicken.compiler.core#lambda-literal chicken.compiler.core#perform-closure-conversion chicken.compiler.core#analyze-expression chicken.compiler.core#perform-cps-conversion chicken.compiler.core#update-line-number-database! chicken.compiler.core#expand-foreign-primitive chicken.compiler.core#expand-foreign-lambda* chicken.compiler.core#expand-foreign-lambda chicken.compiler.core#create-foreign-stub chicken.compiler.core#foreign-stub-callback chicken.compiler.core#foreign-stub-cps chicken.compiler.core#foreign-stub-body chicken.compiler.core#foreign-stub-argument-names chicken.compiler.core#foreign-stub-argument-types chicken.compiler.core#foreign-stub-name chicken.compiler.core#foreign-stub-return-type chicken.compiler.core#foreign-stub-id chicken.compiler.core#foreign-stub? chicken.compiler.core#make-foreign-stub chicken.compiler.core#foreign-stub chicken.compiler.core#build-toplevel-procedure chicken.compiler.core#register-static-extension chicken.compiler.core#process-declaration chicken.compiler.core#canonicalize-expression chicken.compiler.core#compute-database-statistics chicken.compiler.core#initialize-compiler chicken.compiler.core#internal-bindings chicken.compiler.core#default-standard-bindings chicken.compiler.core#default-extended-bindings chicken.compiler.core#unlikely-variables chicken.compiler.core#linked-static-extensions chicken.compiler.core#provided chicken.compiler.core#file-requirements chicken.compiler.core#toplevel-lambda-id chicken.compiler.core#toplevel-scope chicken.compiler.core#callback-names chicken.compiler.core#defconstant-bindings chicken.compiler.core#pending-canonicalizations chicken.compiler.core#location-pointer-map chicken.compiler.core#external-to-pointer chicken.compiler.core#external-variables chicken.compiler.core#foreign-lambda-stubs chicken.compiler.core#foreign-variables chicken.compiler.core#first-analysis chicken.compiler.core#direct-call-ids chicken.compiler.core#inline-substitutions-enabled chicken.compiler.core#constant-table chicken.compiler.core#inline-table chicken.compiler.core#immutable-constants chicken.compiler.core#line-number-database-2 chicken.compiler.core#current-analysis-database-size chicken.compiler.core#current-program-size chicken.compiler.core#original-program-size chicken.compiler.core#verbose-mode chicken.compiler.core#emit-link-file chicken.compiler.core#static-extensions chicken.compiler.core#enable-specialization chicken.compiler.core#strict-variable-types chicken.compiler.core#bootstrap-mode chicken.compiler.core#compiler-syntax-enabled chicken.compiler.core#enable-inline-files chicken.compiler.core#inline-locally chicken.compiler.core#local-definitions chicken.compiler.core#standalone-executable chicken.compiler.core#compile-module-registration chicken.compiler.core#preserve-unchanged-import-libraries chicken.compiler.core#all-import-libraries chicken.compiler.core#import-libraries chicken.compiler.core#profiled-procedures chicken.compiler.core#undefine-shadowed-macros chicken.compiler.core#emit-closure-info chicken.compiler.core#unroll-limit chicken.compiler.core#inline-max-size chicken.compiler.core#external-protos-first chicken.compiler.core#disable-stack-overflow-checking chicken.compiler.core#explicit-use-flag chicken.compiler.core#safe-globals-flag chicken.compiler.core#no-global-procedure-checks chicken.compiler.core#no-procedure-checks chicken.compiler.core#no-argc-checks chicken.compiler.core#no-bound-checks chicken.compiler.core#emit-profile chicken.compiler.core#optimize-leaf-routines chicken.compiler.core#target-stack-size chicken.compiler.core#target-heap-size chicken.compiler.core#line-number-database-size chicken.compiler.core#block-compilation chicken.compiler.core#emit-debug-info chicken.compiler.core#emit-trace-info chicken.compiler.core#foreign-declarations chicken.compiler.core#used-units chicken.compiler.core#insert-timer-checks chicken.compiler.core#extended-bindings chicken.compiler.core#standard-bindings chicken.compiler.core#unit-name chicken.compiler.core#posv chicken.compiler.core#posq chicken.compiler.core#make-list chicken.compiler.core#iota chicken.compiler.core#find-tail chicken.compiler.core#find chicken.compiler.core#length+ chicken.compiler.core#lset=/eq? chicken.compiler.core#lset<=/eq? chicken.compiler.core#list-tabulate chicken.compiler.core#lset-intersection/eq? chicken.compiler.core#lset-union/eq? chicken.compiler.core#lset-difference/eq? chicken.compiler.core#lset-adjoin/eq? chicken.compiler.core#list-index chicken.compiler.core#last chicken.compiler.core#unzip1 chicken.compiler.core#remove chicken.compiler.core#filter-map chicken.compiler.core#filter chicken.compiler.core#alist-cons chicken.compiler.core#delete-duplicates chicken.compiler.core#fifth chicken.compiler.core#fourth chicken.compiler.core#third chicken.compiler.core#second chicken.compiler.core#first chicken.compiler.core#delete chicken.compiler.core#concatenate chicken.compiler.core#cons* chicken.compiler.core#any chicken.compiler.core#every chicken.compiler.core#append-map chicken.compiler.core#split-at chicken.compiler.core#drop chicken.compiler.core#take chicken.compiler.core#span chicken.compiler.core#partition chicken.compiler.core#d) 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#d 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#partition 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#span 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#drop 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#append-map 
o|inlining procedure: k6697 
o|inlining procedure: k6697 
o|inlining procedure: k6728 
o|inlining procedure: k6728 
o|merged explicitly consed rest parameter: xs332 
o|inlining procedure: k6758 
o|inlining procedure: k6758 
o|inlining procedure: k6786 
o|inlining procedure: k6786 
o|inlining procedure: k6814 
o|inlining procedure: k6814 
o|inlining procedure: k6945 
o|inlining procedure: k6945 
o|inlining procedure: k6937 
o|inlining procedure: k6937 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#remove 
o|inlining procedure: k7054 
o|contracted procedure: "(mini-srfi-1.scm:143) g435444" 
o|inlining procedure: k7054 
o|inlining procedure: k7153 
o|inlining procedure: k7153 
o|merged explicitly consed rest parameter: lss483 
o|inlining procedure: k7194 
o|contracted procedure: "(mini-srfi-1.scm:164) g496497" 
o|inlining procedure: k7194 
o|inlining procedure: k7239 
o|contracted procedure: "(mini-srfi-1.scm:171) g518519" 
o|inlining procedure: k7264 
o|contracted procedure: "(mini-srfi-1.scm:173) g534535" 
o|inlining procedure: k7280 
o|inlining procedure: k7280 
o|inlining procedure: k7264 
o|inlining procedure: k7239 
o|merged explicitly consed rest parameter: lss545 
o|inlining procedure: k7336 
o|inlining procedure: k7336 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lset<=/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lset=/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#length+ 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#find 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#find-tail 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#iota 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#make-list 
o|inlining procedure: k7537 
o|inlining procedure: k7537 
o|inlining procedure: k7681 
o|inlining procedure: k7681 
o|inlining procedure: k7736 
o|inlining procedure: k7736 
o|inlining procedure: k7756 
o|inlining procedure: k7756 
o|inlining procedure: k7772 
o|inlining procedure: k7772 
o|substituted constant variable: a7789 
o|substituted constant variable: a7791 
o|substituted constant variable: a7793 
o|inlining procedure: k7803 
o|inlining procedure: k7803 
o|inlining procedure: k7829 
o|inlining procedure: k7829 
o|inlining procedure: k7864 
o|inlining procedure: k7864 
o|inlining procedure: k7888 
o|inlining procedure: k7888 
o|inlining procedure: k7922 
o|contracted procedure: "(core.scm:550) chicken.compiler.core#update-line-number-database!" 
o|inlining procedure: k16423 
o|inlining procedure: k16423 
o|inlining procedure: k16445 
o|inlining procedure: k16445 
o|inlining procedure: k7922 
o|inlining procedure: k7990 
o|contracted procedure: "(core.scm:559) g851859" 
o|inlining procedure: k7990 
o|removed side-effect free assignment to unused variable: write-to-string793 
o|inlining procedure: k8039 
o|inlining procedure: k8039 
o|inlining procedure: k8051 
o|inlining procedure: k8051 
o|substituted constant variable: a8076 
o|inlining procedure: k8091 
o|inlining procedure: k8091 
o|inlining procedure: k8114 
o|inlining procedure: k8114 
o|inlining procedure: "(core.scm:589) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:587) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:599) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:597) chicken.compiler.core#third" 
o|inlining procedure: k8167 
o|inlining procedure: k8167 
o|substituted constant variable: a8238 
o|substituted constant variable: a8239 
o|inlining procedure: k8215 
o|inlining procedure: k8215 
o|substituted constant variable: a8274 
o|substituted constant variable: a8275 
o|inlining procedure: k8390 
o|inlining procedure: k8390 
o|inlining procedure: k8408 
o|inlining procedure: k8408 
o|inlining procedure: k8454 
o|inlining procedure: k8454 
o|inlining procedure: k8485 
o|inlining procedure: k8503 
o|inlining procedure: k8503 
o|inlining procedure: k8485 
o|inlining procedure: k8548 
o|inlining procedure: k8548 
o|inlining procedure: k8593 
o|inlining procedure: k8655 
o|inlining procedure: k8655 
o|inlining procedure: k8593 
o|inlining procedure: k8705 
o|inlining procedure: k8705 
o|inlining procedure: k8724 
o|inlining procedure: k8724 
o|inlining procedure: k8749 
o|inlining procedure: k8749 
o|inlining procedure: k8799 
o|inlining procedure: k8799 
o|inlining procedure: k8859 
o|inlining procedure: k8975 
o|inlining procedure: k8975 
o|inlining procedure: k9027 
o|inlining procedure: k9027 
o|inlining procedure: k8859 
o|inlining procedure: k9138 
o|contracted procedure: "(core.scm:770) g12651274" 
o|inlining procedure: k9138 
o|inlining procedure: k9172 
o|contracted procedure: "(core.scm:767) g12381247" 
o|inlining procedure: k9172 
o|inlining procedure: k9203 
o|inlining procedure: k9315 
o|contracted procedure: "(core.scm:791) g13911401" 
o|inlining procedure: k9315 
o|inlining procedure: k9363 
o|inlining procedure: k9363 
o|inlining procedure: k9411 
o|contracted procedure: "(core.scm:783) g13281337" 
o|inlining procedure: k9411 
o|inlining procedure: k9445 
o|inlining procedure: k9445 
o|inlining procedure: k9203 
o|inlining procedure: k9534 
o|inlining procedure: k9534 
o|inlining procedure: k9565 
o|inlining procedure: k9615 
o|inlining procedure: k9615 
o|inlining procedure: k9634 
o|inlining procedure: k9634 
o|inlining procedure: k9646 
o|inlining procedure: k9646 
o|inlining procedure: k9658 
o|inlining procedure: k9658 
o|inlining procedure: k9669 
o|inlining procedure: k9669 
o|inlining procedure: k9757 
o|inlining procedure: k9757 
o|inlining procedure: k9565 
o|inlining procedure: k9915 
o|contracted procedure: "(core.scm:860) g15691578" 
o|inlining procedure: k9915 
o|inlining procedure: k9946 
o|inlining procedure: k10058 
o|inlining procedure: k10058 
o|inlining procedure: k10085 
o|contracted procedure: "(core.scm:876) g16081617" 
o|inlining procedure: k10085 
o|inlining procedure: k9946 
o|inlining procedure: k10222 
o|inlining procedure: k10262 
o|inlining procedure: k10262 
o|inlining procedure: k10281 
o|inlining procedure: k10281 
o|inlining procedure: k10222 
o|inlining procedure: k10408 
o|contracted procedure: "(core.scm:971) g17291736" 
o|inlining procedure: k10408 
o|inlining procedure: k10467 
o|contracted procedure: "(core.scm:981) g17471754" 
o|inlining procedure: k10467 
o|inlining procedure: k10490 
o|inlining procedure: k10490 
o|inlining procedure: k10521 
o|inlining procedure: k10521 
o|inlining procedure: k10632 
o|contracted procedure: "(core.scm:1004) g17841793" 
o|inlining procedure: k10632 
o|inlining procedure: k10663 
o|substituted constant variable: saved186818691887 
o|inlining procedure: k10777 
o|inlining procedure: k10806 
o|inlining procedure: k10806 
o|inlining procedure: k10822 
o|inlining procedure: k10822 
o|inlining procedure: k10834 
o|inlining procedure: k10834 
o|contracted procedure: "(core.scm:1067) emit-import-lib796" 
o|inlining procedure: k8300 
o|inlining procedure: k8300 
o|inlining procedure: k8336 
o|inlining procedure: k8336 
o|substituted constant variable: a8383 
o|inlining procedure: k10884 
o|inlining procedure: k10884 
o|inlining procedure: k10896 
o|inlining procedure: k10896 
o|inlining procedure: k10777 
o|inlining procedure: k10981 
o|inlining procedure: k10981 
o|substituted constant variable: saved196019611975 
o|inlining procedure: k11079 
o|inlining procedure: k11079 
o|inlining procedure: k11149 
o|inlining procedure: k11149 
o|inlining procedure: k11176 
o|inlining procedure: k11176 
o|inlining procedure: k11206 
o|inlining procedure: k11206 
o|propagated global variable: tmp18091811 chicken.compiler.core#unit-name 
o|propagated global variable: tmp18091811 chicken.compiler.core#unit-name 
o|inlining procedure: k10663 
o|inlining procedure: k11335 
o|inlining procedure: k11335 
o|inlining procedure: k11366 
o|substituted constant variable: a11395 
o|substituted constant variable: a11396 
o|inlining procedure: k11388 
o|inlining procedure: k11388 
o|inlining procedure: k11366 
o|inlining procedure: "(core.scm:1152) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1147) chicken.compiler.core#second" 
o|inlining procedure: k11433 
o|inlining procedure: k11433 
o|inlining procedure: "(core.scm:1163) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:1157) chicken.compiler.core#third" 
o|inlining procedure: k11561 
o|substituted constant variable: a11588 
o|substituted constant variable: a11589 
o|substituted constant variable: a11613 
o|substituted constant variable: a11614 
o|inlining procedure: k11606 
o|inlining procedure: k11606 
o|inlining procedure: k11561 
o|substituted constant variable: a11641 
o|substituted constant variable: a11642 
o|substituted constant variable: a11666 
o|substituted constant variable: a11667 
o|inlining procedure: k11659 
o|inlining procedure: k11659 
o|substituted constant variable: a11725 
o|substituted constant variable: a11726 
o|substituted constant variable: a11750 
o|substituted constant variable: a11751 
o|inlining procedure: k11743 
o|inlining procedure: k11743 
o|inlining procedure: k11764 
o|inlining procedure: k11809 
o|inlining procedure: k11809 
o|inlining procedure: k11764 
o|inlining procedure: k11869 
o|inlining procedure: k11906 
o|inlining procedure: k11906 
o|inlining procedure: "(core.scm:1206) chicken.compiler.core#second" 
o|inlining procedure: k11869 
o|inlining procedure: k11958 
o|inlining procedure: k11958 
o|inlining procedure: k12005 
o|inlining procedure: k12005 
o|inlining procedure: k12027 
o|inlining procedure: k12049 
o|inlining procedure: k12049 
o|inlining procedure: k12027 
o|inlining procedure: k12075 
o|inlining procedure: k12075 
o|inlining procedure: k12101 
o|inlining procedure: k12101 
o|inlining procedure: k12127 
o|contracted procedure: "(core.scm:1251) chicken.compiler.core#expand-foreign-primitive" 
o|inlining procedure: k16305 
o|inlining procedure: k16305 
o|inlining procedure: k16339 
o|contracted procedure: "(core.scm:1928) g36103619" 
o|inlining procedure: k16339 
o|inlining procedure: k16371 
o|inlining procedure: k16371 
o|inlining procedure: k16381 
o|inlining procedure: "(core.scm:1926) chicken.compiler.core#third" 
o|inlining procedure: k16381 
o|inlining procedure: "(core.scm:1926) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:1925) chicken.compiler.core#second" 
o|inlining procedure: k12127 
o|inlining procedure: "(core.scm:1257) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1255) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1254) chicken.compiler.core#second" 
o|inlining procedure: k12184 
o|inlining procedure: k12251 
o|inlining procedure: "(core.scm:1291) chicken.compiler.core#second" 
o|inlining procedure: k12251 
o|inlining procedure: "(core.scm:1288) chicken.compiler.core#first" 
o|substituted constant variable: a12288 
o|substituted constant variable: a12289 
o|inlining procedure: k12281 
o|inlining procedure: k12281 
o|inlining procedure: "(core.scm:1266) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1265) chicken.compiler.core#second" 
o|inlining procedure: k12184 
o|substituted constant variable: a12379 
o|substituted constant variable: a12380 
o|inlining procedure: k12372 
o|inlining procedure: k12372 
o|inlining procedure: "(core.scm:1302) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1301) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1298) chicken.compiler.core#second" 
o|inlining procedure: k12393 
o|inlining procedure: k12475 
o|inlining procedure: k12475 
o|inlining procedure: "(core.scm:1341) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1322) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1319) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1318) chicken.compiler.core#second" 
o|inlining procedure: k12393 
o|substituted constant variable: a12582 
o|substituted constant variable: a12583 
o|inlining procedure: k12575 
o|inlining procedure: k12575 
o|inlining procedure: "(core.scm:1346) chicken.compiler.core#second" 
o|inlining procedure: k12600 
o|inlining procedure: k12641 
o|inlining procedure: k12641 
o|substituted constant variable: a12684 
o|substituted constant variable: a12685 
o|inlining procedure: k12677 
o|inlining procedure: k12677 
o|substituted constant variable: a12717 
o|substituted constant variable: a12718 
o|inlining procedure: k12710 
o|inlining procedure: k12710 
o|inlining procedure: k12758 
o|inlining procedure: k12758 
o|inlining procedure: "(core.scm:1360) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1358) chicken.compiler.core#second" 
o|inlining procedure: k12600 
o|substituted constant variable: saved248624872491 
o|inlining procedure: k12863 
o|inlining procedure: k12863 
o|inlining procedure: k12904 
o|contracted procedure: "(core.scm:1408) chicken.compiler.core#split-at" 
o|inlining procedure: k6485 
o|inlining procedure: k6485 
o|inlining procedure: k12994 
o|inlining procedure: k12994 
o|inlining procedure: k13032 
o|inlining procedure: k13032 
o|inlining procedure: k13087 
o|inlining procedure: k13087 
o|inlining procedure: k13138 
o|inlining procedure: k13138 
o|substituted constant variable: a13189 
o|substituted constant variable: a13190 
o|inlining procedure: k13182 
o|inlining procedure: k13182 
o|inlining procedure: "(core.scm:1414) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:1413) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1412) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1410) chicken.compiler.core#first" 
o|inlining procedure: k12904 
o|inlining procedure: k13224 
o|inlining procedure: "(core.scm:1495) chicken.compiler.core#second" 
o|inlining procedure: k13259 
o|inlining procedure: k13259 
o|inlining procedure: k13224 
o|inlining procedure: k13329 
o|inlining procedure: k13344 
o|inlining procedure: k13344 
o|inlining procedure: k13329 
o|substituted constant variable: a13367 
o|substituted constant variable: a13369 
o|substituted constant variable: a13371 
o|substituted constant variable: a13373 
o|substituted constant variable: a13375 
o|substituted constant variable: a13377 
o|substituted constant variable: a13379 
o|substituted constant variable: a13381 
o|substituted constant variable: a13383 
o|substituted constant variable: a13385 
o|substituted constant variable: a13387 
o|substituted constant variable: a13389 
o|substituted constant variable: a13391 
o|substituted constant variable: a13393 
o|substituted constant variable: a13395 
o|substituted constant variable: a13400 
o|substituted constant variable: a13402 
o|substituted constant variable: a13407 
o|substituted constant variable: a13409 
o|substituted constant variable: a13411 
o|substituted constant variable: a13413 
o|substituted constant variable: a13415 
o|substituted constant variable: a13417 
o|substituted constant variable: a13419 
o|substituted constant variable: a13421 
o|substituted constant variable: a13423 
o|substituted constant variable: a13425 
o|substituted constant variable: a13427 
o|substituted constant variable: a13429 
o|substituted constant variable: a13431 
o|substituted constant variable: a13433 
o|substituted constant variable: a13435 
o|substituted constant variable: a13437 
o|substituted constant variable: a13439 
o|substituted constant variable: a13441 
o|substituted constant variable: a13443 
o|substituted constant variable: a13445 
o|substituted constant variable: a13447 
o|substituted constant variable: a13449 
o|substituted constant variable: a13451 
o|substituted constant variable: a13453 
o|substituted constant variable: a13455 
o|substituted constant variable: a13457 
o|substituted constant variable: a13459 
o|substituted constant variable: a13461 
o|inlining procedure: k13465 
o|inlining procedure: k13465 
o|substituted constant variable: a13472 
o|substituted constant variable: a13474 
o|substituted constant variable: a13476 
o|substituted constant variable: a13478 
o|substituted constant variable: a13480 
o|substituted constant variable: a13482 
o|substituted constant variable: a13484 
o|substituted constant variable: a13489 
o|substituted constant variable: a13491 
o|substituted constant variable: a13493 
o|inlining procedure: k13523 
o|substituted constant variable: a13534 
o|substituted constant variable: a13535 
o|inlining procedure: k13523 
o|inlining procedure: k13551 
o|inlining procedure: k13551 
o|inlining procedure: k13638 
o|inlining procedure: k13638 
o|merged explicitly consed rest parameter: maxlen2704 
o|inlining procedure: k13715 
o|inlining procedure: k13715 
o|inlining procedure: k13731 
o|inlining procedure: k13731 
o|inlining procedure: k13760 
o|inlining procedure: k13760 
o|contracted procedure: "(core.scm:1565) chicken.compiler.core#filter-map" 
o|inlining procedure: k6992 
o|inlining procedure: k6992 
o|inlining procedure: k6981 
o|inlining procedure: k6981 
o|substituted constant variable: a13783 
o|substituted constant variable: a13784 
o|inlining procedure: k13809 
o|consed rest parameter at call site: "(core.scm:1581) chicken.compiler.core#lset-difference/eq?" 2 
o|inlining procedure: k13809 
o|inlining procedure: k13862 
o|inlining procedure: k13862 
o|consed rest parameter at call site: "(core.scm:1590) check-decl2697" 3 
o|inlining procedure: k13884 
o|inlining procedure: k13884 
o|inlining procedure: k13915 
o|inlining procedure: k13915 
o|inlining procedure: k13934 
o|consed rest parameter at call site: "(core.scm:1611) chicken.compiler.core#lset-intersection/eq?" 2 
o|consed rest parameter at call site: "(core.scm:1610) chicken.compiler.core#lset-intersection/eq?" 2 
o|inlining procedure: k13934 
o|consed rest parameter at call site: "(core.scm:1613) check-decl2697" 3 
o|inlining procedure: k13980 
o|inlining procedure: k13980 
o|inlining procedure: k13997 
o|inlining procedure: k13997 
o|inlining procedure: k14011 
o|inlining procedure: k14011 
o|inlining procedure: k14025 
o|inlining procedure: k14025 
o|inlining procedure: k14039 
o|inlining procedure: k14062 
o|contracted procedure: "(core.scm:1624) g27712778" 
o|propagated global variable: g27862787 chicken.compiler.support#mark-variable 
o|inlining procedure: k14062 
o|inlining procedure: k14039 
o|inlining procedure: k14091 
o|inlining procedure: k14128 
o|contracted procedure: "(core.scm:1630) g28212828" 
o|propagated global variable: g28362837 chicken.compiler.support#mark-variable 
o|inlining procedure: k14128 
o|inlining procedure: k14151 
o|contracted procedure: "(core.scm:1627) g27962803" 
o|propagated global variable: g28112812 chicken.compiler.support#mark-variable 
o|inlining procedure: k14151 
o|inlining procedure: k14091 
o|inlining procedure: k14178 
o|inlining procedure: k14209 
o|contracted procedure: "(core.scm:1638) g28582880" 
o|propagated global variable: g28882889 chicken.compiler.support#mark-variable 
o|inlining procedure: k14209 
o|inlining procedure: k14232 
o|contracted procedure: "(core.scm:1637) g28482865" 
o|propagated global variable: g28732874 chicken.compiler.support#mark-variable 
o|inlining procedure: k14232 
o|inlining procedure: k14178 
o|inlining procedure: k14261 
o|inlining procedure: k14261 
o|inlining procedure: k14274 
o|inlining procedure: k14274 
o|inlining procedure: k14288 
o|inlining procedure: k14288 
o|inlining procedure: k14318 
o|contracted procedure: "(core.scm:1648) g29002907" 
o|propagated global variable: g29152916 chicken.compiler.support#mark-variable 
o|inlining procedure: k14318 
o|inlining procedure: k14340 
o|inlining procedure: k14363 
o|contracted procedure: "(core.scm:1650) g29252932" 
o|propagated global variable: g29402941 chicken.compiler.support#mark-variable 
o|inlining procedure: k14363 
o|inlining procedure: k14340 
o|inlining procedure: k14397 
o|consed rest parameter at call site: "(core.scm:1660) chicken.compiler.core#lset-difference/eq?" 2 
o|inlining procedure: k14397 
o|inlining procedure: k14431 
o|inlining procedure: k14431 
o|consed rest parameter at call site: "(core.scm:1666) chicken.compiler.core#lset-difference/eq?" 2 
o|inlining procedure: k14453 
o|inlining procedure: k14483 
o|contracted procedure: "(core.scm:1671) g29562963" 
o|propagated global variable: g29712972 chicken.compiler.support#mark-variable 
o|inlining procedure: k14483 
o|inlining procedure: k14453 
o|inlining procedure: k14516 
o|inlining procedure: k14516 
o|consed rest parameter at call site: "(core.scm:1681) chicken.compiler.core#lset-difference/eq?" 2 
o|consed rest parameter at call site: "(core.scm:1680) chicken.compiler.core#lset-difference/eq?" 2 
o|inlining procedure: k14542 
o|inlining procedure: k14572 
o|contracted procedure: "(core.scm:1685) g29882995" 
o|propagated global variable: g30033004 chicken.compiler.support#mark-variable 
o|inlining procedure: k14572 
o|inlining procedure: k14542 
o|substituted constant variable: a14616 
o|consed rest parameter at call site: "(core.scm:1689) check-decl2697" 3 
o|substituted constant variable: a14622 
o|substituted constant variable: a14624 
o|substituted constant variable: a14626 
o|substituted constant variable: a14628 
o|substituted constant variable: a14630 
o|inlining procedure: "(core.scm:1655) chicken.compiler.core#second" 
o|consed rest parameter at call site: "(core.scm:1654) check-decl2697" 3 
o|inlining procedure: k14635 
o|inlining procedure: k14635 
o|inlining procedure: k14654 
o|inlining procedure: k14654 
o|inlining procedure: k14670 
o|inlining procedure: k14670 
o|inlining procedure: k14692 
o|inlining procedure: k14711 
o|inlining procedure: k14711 
o|inlining procedure: k14692 
o|inlining procedure: k14740 
o|inlining procedure: k14770 
o|contracted procedure: "(core.scm:1710) g30633070" 
o|propagated global variable: g30783079 chicken.compiler.support#mark-variable 
o|inlining procedure: k14770 
o|inlining procedure: k14740 
o|inlining procedure: k14806 
o|inlining procedure: k14806 
o|consed rest parameter at call site: "(core.scm:1714) check-decl2697" 3 
o|inlining procedure: k14816 
o|consed rest parameter at call site: "(core.scm:1722) check-decl2697" 3 
o|inlining procedure: k14816 
o|inlining procedure: k14845 
o|inlining procedure: k14868 
o|contracted procedure: "(core.scm:1732) g30933100" 
o|propagated global variable: g31083109 chicken.compiler.support#mark-variable 
o|inlining procedure: k14868 
o|inlining procedure: k14845 
o|inlining procedure: k14891 
o|inlining procedure: k14986 
o|contracted procedure: "(core.scm:1741) g31233132" 
o|inlining procedure: k14907 
o|substituted constant variable: a14924 
o|inlining procedure: k14907 
o|inlining procedure: k14948 
o|inlining procedure: k14948 
o|substituted constant variable: a14971 
o|inlining procedure: k14986 
o|inlining procedure: k14891 
o|inlining procedure: k15026 
o|inlining procedure: k15026 
o|inlining procedure: k15051 
o|contracted procedure: "(core.scm:1757) g31563163" 
o|propagated global variable: g31713172 chicken.compiler.support#mark-variable 
o|inlining procedure: k15051 
o|inlining procedure: k15075 
o|inlining procedure: k15105 
o|contracted procedure: "(core.scm:1764) g31873194" 
o|propagated global variable: g32023203 chicken.compiler.support#mark-variable 
o|inlining procedure: k15105 
o|inlining procedure: k15075 
o|inlining procedure: k15137 
o|inlining procedure: k15160 
o|contracted procedure: "(core.scm:1771) g32123219" 
o|propagated global variable: g32273228 chicken.compiler.support#mark-variable 
o|inlining procedure: k15160 
o|inlining procedure: k15137 
o|inlining procedure: k15192 
o|inlining procedure: k15192 
o|inlining procedure: k15234 
o|inlining procedure: k15291 
o|inlining procedure: k15291 
o|inlining procedure: k15234 
o|inlining procedure: k15324 
o|substituted constant variable: a15345 
o|inlining procedure: k15324 
o|inlining procedure: k15184 
o|inlining procedure: k15356 
o|inlining procedure: k15356 
o|inlining procedure: k15184 
o|inlining procedure: k15384 
o|inlining procedure: k15419 
o|inlining procedure: k15419 
o|inlining procedure: k15384 
o|inlining procedure: k15450 
o|substituted constant variable: a15459 
o|inlining procedure: k15450 
o|inlining procedure: k15478 
o|inlining procedure: k15478 
o|inlining procedure: k15498 
o|inlining procedure: k15498 
o|substituted constant variable: a15516 
o|substituted constant variable: a15518 
o|substituted constant variable: a15520 
o|substituted constant variable: a15522 
o|substituted constant variable: a15524 
o|substituted constant variable: a15526 
o|substituted constant variable: a15528 
o|substituted constant variable: a15530 
o|substituted constant variable: a15532 
o|substituted constant variable: a15534 
o|substituted constant variable: a15536 
o|substituted constant variable: a15538 
o|substituted constant variable: a15540 
o|substituted constant variable: a15542 
o|substituted constant variable: a15547 
o|substituted constant variable: a15549 
o|substituted constant variable: a15551 
o|substituted constant variable: a15553 
o|substituted constant variable: a15555 
o|substituted constant variable: a15557 
o|substituted constant variable: a15559 
o|substituted constant variable: a15561 
o|substituted constant variable: a15563 
o|substituted constant variable: a15565 
o|substituted constant variable: a15567 
o|substituted constant variable: a15569 
o|substituted constant variable: a15571 
o|substituted constant variable: a15573 
o|substituted constant variable: a15575 
o|substituted constant variable: a15577 
o|substituted constant variable: a15579 
o|substituted constant variable: a15581 
o|substituted constant variable: a15583 
o|substituted constant variable: a15585 
o|substituted constant variable: a15587 
o|substituted constant variable: a15589 
o|substituted constant variable: a15594 
o|substituted constant variable: a15596 
o|substituted constant variable: a15598 
o|substituted constant variable: a15600 
o|substituted constant variable: a15602 
o|substituted constant variable: a15604 
o|substituted constant variable: a15606 
o|substituted constant variable: a15608 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub? 
o|inlining procedure: k15877 
o|inlining procedure: k15877 
o|inlining procedure: k15944 
o|contracted procedure: "(core.scm:1889) g34863496" 
o|inlining procedure: k15944 
o|contracted procedure: "(core.scm:1883) chicken.compiler.core#make-foreign-stub" 
o|inlining procedure: k16025 
o|inlining procedure: k16025 
o|contracted procedure: "(core.scm:1877) type->symbol3387" 
o|inlining procedure: k15731 
o|inlining procedure: k15731 
o|inlining procedure: k15746 
o|inlining procedure: k15746 
o|substituted constant variable: a15788 
o|substituted constant variable: a15790 
o|substituted constant variable: a15792 
o|inlining procedure: k15793 
o|inlining procedure: k15793 
o|inlining procedure: k16077 
o|inlining procedure: k16077 
o|inlining procedure: "(core.scm:1909) chicken.compiler.core#second" 
o|inlining procedure: k16136 
o|inlining procedure: k16136 
o|inlining procedure: "(core.scm:1903) chicken.compiler.core#third" 
o|inlining procedure: k16189 
o|inlining procedure: k16189 
o|inlining procedure: k16223 
o|contracted procedure: "(core.scm:1917) g35483557" 
o|inlining procedure: k16223 
o|inlining procedure: "(core.scm:1915) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1914) chicken.compiler.core#second" 
o|inlining procedure: k16550 
o|inlining procedure: k16550 
o|inlining procedure: k16586 
o|inlining procedure: k16586 
o|contracted procedure: "(core.scm:1983) g37283729" 
o|inlining procedure: k16705 
o|inlining procedure: k16717 
o|inlining procedure: k16717 
o|inlining procedure: k16740 
o|inlining procedure: k16740 
o|inlining procedure: k16705 
o|inlining procedure: "(core.scm:2002) chicken.compiler.core#first" 
o|contracted procedure: "(core.scm:2002) g37393740" 
o|inlining procedure: k16807 
o|inlining procedure: "(core.scm:2005) chicken.compiler.core#first" 
o|inlining procedure: k16807 
o|inlining procedure: "(core.scm:2015) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2013) chicken.compiler.core#first" 
o|contracted procedure: "(core.scm:2012) g37483749" 
o|inlining procedure: k16908 
o|inlining procedure: k16908 
o|inlining procedure: k16935 
o|contracted procedure: "(core.scm:2020) walk-call-unit3688" 
o|contracted procedure: "(core.scm:2048) g37863787" 
o|inlining procedure: "(core.scm:2020) chicken.compiler.core#first" 
o|inlining procedure: k16935 
o|inlining procedure: k16964 
o|contracted procedure: "(core.scm:2026) chicken.compiler.core#last" 
o|inlining procedure: k7094 
o|inlining procedure: k7094 
o|inlining procedure: k16964 
o|substituted constant variable: a16981 
o|substituted constant variable: a16986 
o|substituted constant variable: a16988 
o|substituted constant variable: a16990 
o|substituted constant variable: a16992 
o|inlining procedure: k16996 
o|inlining procedure: k16996 
o|inlining procedure: k17008 
o|inlining procedure: k17008 
o|inlining procedure: k17020 
o|inlining procedure: k17020 
o|substituted constant variable: a17027 
o|substituted constant variable: a17029 
o|substituted constant variable: a17031 
o|substituted constant variable: a17033 
o|substituted constant variable: a17035 
o|substituted constant variable: a17037 
o|substituted constant variable: a17039 
o|substituted constant variable: a17041 
o|substituted constant variable: a17043 
o|substituted constant variable: a17048 
o|substituted constant variable: a17050 
o|substituted constant variable: a17052 
o|substituted constant variable: a17054 
o|inlining procedure: k17058 
o|inlining procedure: k17058 
o|inlining procedure: k17070 
o|inlining procedure: k17070 
o|substituted constant variable: a17077 
o|substituted constant variable: a17079 
o|substituted constant variable: a17081 
o|substituted constant variable: a17083 
o|substituted constant variable: a17085 
o|consed rest parameter at call site: "(core.scm:2041) chicken.compiler.core#cons*" 2 
o|contracted procedure: "(core.scm:2034) g37783779" 
o|inlining procedure: k17257 
o|inlining procedure: k17257 
o|inlining procedure: k17298 
o|inlining procedure: k17298 
o|substituted constant variable: a17357 
o|inlining procedure: k17358 
o|inlining procedure: k17358 
o|substituted constant variable: a17365 
o|inlining procedure: k17407 
o|inlining procedure: k17407 
o|inlining procedure: k17431 
o|inlining procedure: k17431 
o|inlining procedure: k17449 
o|inlining procedure: k17449 
o|inlining procedure: "(core.scm:2108) chicken.compiler.core#first" 
o|inlining procedure: k17462 
o|inlining procedure: k17462 
o|inlining procedure: "(core.scm:2127) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2125) chicken.compiler.core#first" 
o|inlining procedure: k17525 
o|inlining procedure: k17543 
o|inlining procedure: k17543 
o|inlining procedure: k17525 
o|inlining procedure: k17628 
o|inlining procedure: k17628 
o|inlining procedure: "(core.scm:2145) chicken.compiler.core#first" 
o|inlining procedure: k17648 
o|inlining procedure: k17729 
o|inlining procedure: k17729 
o|inlining procedure: "(core.scm:2176) chicken.compiler.core#second" 
o|inlining procedure: k17763 
o|inlining procedure: k17763 
o|inlining procedure: "(core.scm:2160) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2158) chicken.compiler.core#third" 
o|inlining procedure: k17648 
o|inlining procedure: k17836 
o|inlining procedure: k17836 
o|inlining procedure: k17864 
o|inlining procedure: k17864 
o|substituted constant variable: a17883 
o|substituted constant variable: a17885 
o|inlining procedure: "(core.scm:2184) chicken.compiler.core#first" 
o|inlining procedure: k17889 
o|inlining procedure: k17913 
o|inlining procedure: k17913 
o|inlining procedure: "(core.scm:2205) chicken.compiler.core#first" 
o|inlining procedure: k17889 
o|substituted constant variable: a17932 
o|substituted constant variable: a17934 
o|substituted constant variable: a17939 
o|substituted constant variable: a17941 
o|substituted constant variable: a17946 
o|substituted constant variable: a17948 
o|substituted constant variable: a17950 
o|substituted constant variable: a17955 
o|substituted constant variable: a17957 
o|substituted constant variable: a17959 
o|substituted constant variable: a17964 
o|substituted constant variable: a17966 
o|substituted constant variable: a17971 
o|substituted constant variable: a17973 
o|inlining procedure: k17977 
o|inlining procedure: k17977 
o|substituted constant variable: a17990 
o|substituted constant variable: a17992 
o|substituted constant variable: a17994 
o|substituted constant variable: a17996 
o|inlining procedure: k18014 
o|inlining procedure: k18014 
o|inlining procedure: k18075 
o|inlining procedure: k18075 
o|inlining procedure: k18090 
o|inlining procedure: k18090 
o|inlining procedure: k18144 
o|inlining procedure: k18144 
o|inlining procedure: k18178 
o|inlining procedure: k18178 
o|inlining procedure: k18193 
o|inlining procedure: k18193 
o|inlining procedure: k18211 
o|inlining procedure: k18229 
o|inlining procedure: k18229 
o|inlining procedure: k18211 
o|propagated global variable: tmp40664068 chicken.compiler.core#local-definitions 
o|propagated global variable: tmp40664068 chicken.compiler.core#local-definitions 
o|inlining procedure: k18266 
o|inlining procedure: k18266 
o|inlining procedure: k18279 
o|inlining procedure: k18279 
o|inlining procedure: "(core.scm:2236) chicken.compiler.core#first" 
o|inlining procedure: k18319 
o|inlining procedure: k18319 
o|inlining procedure: "(core.scm:2230) chicken.compiler.core#first" 
o|inlining procedure: k18346 
o|inlining procedure: k18346 
o|inlining procedure: "(core.scm:2226) chicken.compiler.core#first" 
o|inlining procedure: k18404 
o|inlining procedure: k18404 
o|inlining procedure: k18420 
o|inlining procedure: k18420 
o|inlining procedure: k18439 
o|inlining procedure: k18439 
o|inlining procedure: k18454 
o|inlining procedure: k18454 
o|removed side-effect free assignment to unused variable: assigned-locally4094 
o|inlining procedure: k18473 
o|inlining procedure: k18473 
o|inlining procedure: k18487 
o|inlining procedure: k18487 
o|inlining procedure: k18502 
o|inlining procedure: k18502 
o|substituted constant variable: a18519 
o|substituted constant variable: a18521 
o|substituted constant variable: a18523 
o|substituted constant variable: a18525 
o|substituted constant variable: a18527 
o|substituted constant variable: a18529 
o|substituted constant variable: a18531 
o|substituted constant variable: a18533 
o|substituted constant variable: a18535 
o|substituted constant variable: a18537 
o|substituted constant variable: a18539 
o|substituted constant variable: a18541 
o|inlining procedure: k18580 
o|inlining procedure: k18601 
o|inlining procedure: k18622 
o|inlining procedure: "(core.scm:2509) chicken.compiler.core#first" 
o|inlining procedure: k18622 
o|inlining procedure: k18644 
o|inlining procedure: "(core.scm:2508) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2508) chicken.compiler.core#first" 
o|inlining procedure: k18644 
o|inlining procedure: "(core.scm:2505) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2504) chicken.compiler.core#first" 
o|substituted constant variable: a18673 
o|inlining procedure: k18601 
o|inlining procedure: k18681 
o|inlining procedure: k18681 
o|inlining procedure: "(core.scm:2498) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2497) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:2496) chicken.compiler.core#second" 
o|inlining procedure: k18580 
o|inlining procedure: k18714 
o|inlining procedure: k18741 
o|inlining procedure: k18741 
o|inlining procedure: k18753 
o|inlining procedure: k18753 
o|inlining procedure: "(core.scm:2481) chicken.compiler.core#first" 
o|inlining procedure: k18714 
o|inlining procedure: k18801 
o|inlining procedure: k18813 
o|inlining procedure: k18813 
o|inlining procedure: k18816 
o|inlining procedure: k18834 
o|inlining procedure: k18834 
o|inlining procedure: "(core.scm:2459) chicken.compiler.core#first" 
o|inlining procedure: k18816 
o|inlining procedure: k18801 
o|inlining procedure: k18859 
o|inlining procedure: k18887 
o|inlining procedure: "(core.scm:2447) chicken.compiler.core#first" 
o|inlining procedure: k18887 
o|inlining procedure: "(core.scm:2449) chicken.compiler.core#first" 
o|inlining procedure: k18919 
o|inlining procedure: k18919 
o|inlining procedure: k18952 
o|inlining procedure: k18952 
o|inlining procedure: "(core.scm:2434) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:2432) chicken.compiler.core#second" 
o|inlining procedure: k18859 
o|inlining procedure: k18988 
o|inlining procedure: k18988 
o|inlining procedure: "(core.scm:2416) chicken.compiler.core#first" 
o|inlining procedure: k19017 
o|inlining procedure: k19017 
o|inlining procedure: k19047 
o|inlining procedure: k19047 
o|inlining procedure: "(core.scm:2377) chicken.compiler.core#second" 
o|inlining procedure: k19083 
o|inlining procedure: k19110 
o|inlining procedure: k19110 
o|inlining procedure: "(core.scm:2394) chicken.compiler.core#second" 
o|inlining procedure: k19083 
o|inlining procedure: k19159 
o|inlining procedure: k19159 
o|substituted constant variable: a19203 
o|substituted constant variable: a19204 
o|inlining procedure: k19217 
o|inlining procedure: k19226 
o|inlining procedure: k19238 
o|inlining procedure: k19238 
o|inlining procedure: k19226 
o|inlining procedure: k19217 
o|inlining procedure: k19274 
o|inlining procedure: "(core.scm:2350) chicken.compiler.core#first" 
o|inlining procedure: k19274 
o|inlining procedure: k19269 
o|inlining procedure: k19304 
o|inlining procedure: k19304 
o|inlining procedure: k19269 
o|inlining procedure: k19324 
o|inlining procedure: k19324 
o|inlining procedure: k19339 
o|inlining procedure: k19339 
o|inlining procedure: k19403 
o|inlining procedure: "(core.scm:2552) chicken.compiler.core#first" 
o|inlining procedure: k19403 
o|inlining procedure: k19433 
o|inlining procedure: "(core.scm:2565) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2564) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2563) chicken.compiler.core#first" 
o|inlining procedure: k19433 
o|inlining procedure: k19493 
o|inlining procedure: k19493 
o|inlining procedure: "(core.scm:2569) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2568) chicken.compiler.core#first" 
o|inlining procedure: k19506 
o|inlining procedure: k19548 
o|inlining procedure: k19548 
o|inlining procedure: k19584 
o|inlining procedure: k19594 
o|inlining procedure: k19627 
o|inlining procedure: k19627 
o|inlining procedure: k19656 
o|inlining procedure: k19665 
o|inlining procedure: k19665 
o|inlining procedure: k19656 
o|inlining procedure: "(core.scm:2598) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2597) chicken.compiler.core#third" 
o|inlining procedure: k19692 
o|inlining procedure: k19707 
o|inlining procedure: k19707 
o|inlining procedure: k19692 
o|inlining procedure: "(core.scm:2585) chicken.compiler.core#first" 
o|inlining procedure: k19594 
o|inlining procedure: k19584 
o|inlining procedure: "(core.scm:2577) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2576) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2575) chicken.compiler.core#first" 
o|inlining procedure: k19506 
o|consed rest parameter at call site: "(core.scm:2627) chicken.compiler.core#lset-difference/eq?" 2 
o|contracted procedure: "(core.scm:2624) chicken.compiler.core#delete-duplicates" 
o|inlining procedure: k6889 
o|inlining procedure: k6889 
o|inlining procedure: "(core.scm:2624) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2622) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2620) chicken.compiler.core#third" 
o|inlining procedure: k19840 
o|inlining procedure: k19840 
o|substituted constant variable: a19875 
o|substituted constant variable: a19877 
o|substituted constant variable: a19879 
o|substituted constant variable: a19881 
o|substituted constant variable: a19883 
o|inlining procedure: k19887 
o|inlining procedure: k19887 
o|inlining procedure: k19899 
o|inlining procedure: k19899 
o|substituted constant variable: a19906 
o|substituted constant variable: a19908 
o|substituted constant variable: a19910 
o|substituted constant variable: a19912 
o|substituted constant variable: a19914 
o|substituted constant variable: a19919 
o|substituted constant variable: a19921 
o|inlining procedure: k19934 
o|inlining procedure: k19934 
o|inlining procedure: k19955 
o|inlining procedure: k19955 
o|inlining procedure: "(core.scm:2643) chicken.compiler.core#first" 
o|inlining procedure: k19968 
o|inlining procedure: k20003 
o|inlining procedure: k20003 
o|inlining procedure: "(core.scm:2661) chicken.compiler.core#second" 
o|inlining procedure: k20027 
o|inlining procedure: "(core.scm:2681) chicken.compiler.core#second" 
o|inlining procedure: k20065 
o|inlining procedure: "(core.scm:2685) chicken.compiler.core#second" 
o|inlining procedure: k20065 
o|inlining procedure: "(core.scm:2690) chicken.compiler.core#second" 
o|substituted constant variable: a20139 
o|substituted constant variable: a20141 
o|substituted constant variable: a20143 
o|inlining procedure: k20027 
o|inlining procedure: "(core.scm:2651) chicken.compiler.core#first" 
o|inlining procedure: k19968 
o|inlining procedure: k20209 
o|inlining procedure: "(core.scm:2714) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2710) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2704) chicken.compiler.core#first" 
o|inlining procedure: k20209 
o|inlining procedure: k20385 
o|inlining procedure: k20385 
o|inlining procedure: k20429 
o|inlining procedure: k20429 
o|inlining procedure: k20472 
o|inlining procedure: k20515 
o|inlining procedure: k20515 
o|inlining procedure: k20551 
o|contracted procedure: "(core.scm:2760) g47424751" 
o|inlining procedure: k20551 
o|inlining procedure: k20472 
o|inlining procedure: "(core.scm:2755) chicken.compiler.core#fourth" 
o|inlining procedure: k20611 
o|inlining procedure: k20611 
o|inlining procedure: k20627 
o|inlining procedure: k20627 
o|inlining procedure: k20639 
o|inlining procedure: k20639 
o|inlining procedure: "(core.scm:2744) chicken.compiler.core#second" 
o|inlining procedure: k20675 
o|inlining procedure: k20675 
o|inlining procedure: k20681 
o|inlining procedure: k20681 
o|inlining procedure: k20701 
o|inlining procedure: k20701 
o|inlining procedure: "(core.scm:2730) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2727) chicken.compiler.core#first" 
o|inlining procedure: k20716 
o|inlining procedure: k20716 
o|inlining procedure: k20764 
o|inlining procedure: k20764 
o|inlining procedure: "(core.scm:2720) chicken.compiler.core#third" 
o|inlining procedure: k20801 
o|inlining procedure: k20830 
o|inlining procedure: k20830 
o|inlining procedure: k20897 
o|inlining procedure: k20897 
o|inlining procedure: k20940 
o|inlining procedure: k20940 
o|inlining procedure: "(core.scm:2787) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2786) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2784) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2783) chicken.compiler.core#first" 
o|inlining procedure: k20801 
o|inlining procedure: k20992 
o|inlining procedure: k20992 
o|inlining procedure: k21017 
o|inlining procedure: k21017 
o|inlining procedure: k21020 
o|inlining procedure: k21020 
o|substituted constant variable: a21030 
o|substituted constant variable: a21032 
o|substituted constant variable: a21034 
o|substituted constant variable: a21039 
o|substituted constant variable: a21041 
o|substituted constant variable: a21043 
o|inlining procedure: k21047 
o|inlining procedure: k21047 
o|inlining procedure: k21059 
o|inlining procedure: k21059 
o|inlining procedure: k21071 
o|inlining procedure: k21071 
o|inlining procedure: k21083 
o|inlining procedure: k21083 
o|inlining procedure: k21095 
o|inlining procedure: k21095 
o|inlining procedure: k21107 
o|inlining procedure: k21107 
o|inlining procedure: k21119 
o|inlining procedure: k21119 
o|inlining procedure: k21131 
o|inlining procedure: k21131 
o|substituted constant variable: a21144 
o|substituted constant variable: a21146 
o|substituted constant variable: a21148 
o|substituted constant variable: a21150 
o|substituted constant variable: a21152 
o|substituted constant variable: a21154 
o|substituted constant variable: a21156 
o|substituted constant variable: a21158 
o|substituted constant variable: a21160 
o|substituted constant variable: a21162 
o|substituted constant variable: a21164 
o|substituted constant variable: a21166 
o|substituted constant variable: a21168 
o|substituted constant variable: a21170 
o|substituted constant variable: a21172 
o|substituted constant variable: a21174 
o|substituted constant variable: a21176 
o|substituted constant variable: a21178 
o|inlining procedure: k21182 
o|inlining procedure: k21182 
o|substituted constant variable: a21195 
o|substituted constant variable: a21197 
o|substituted constant variable: a21199 
o|substituted constant variable: a21201 
o|substituted constant variable: a21203 
o|inlining procedure: k21207 
o|inlining procedure: k21207 
o|inlining procedure: k21219 
o|inlining procedure: k21219 
o|substituted constant variable: a21232 
o|substituted constant variable: a21234 
o|substituted constant variable: a21236 
o|substituted constant variable: a21238 
o|substituted constant variable: a21240 
o|substituted constant variable: a21242 
o|inlining procedure: k21263 
o|inlining procedure: k21263 
o|inlining procedure: k21303 
o|inlining procedure: k21303 
o|inlining procedure: "(core.scm:2829) chicken.compiler.core#first" 
o|inlining procedure: k21349 
o|inlining procedure: k21349 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal? 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-arguments 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-directly-called 
o|inlining procedure: k21531 
o|inlining procedure: k21531 
o|inlining procedure: k21594 
o|inlining procedure: k21594 
o|propagated global variable: tmp50045006 chicken.compiler.core#no-bound-checks 
o|inlining procedure: k21615 
o|propagated global variable: tmp50045006 chicken.compiler.core#no-bound-checks 
o|inlining procedure: k21615 
o|propagated global variable: tmp50075009 chicken.compiler.support#unsafe 
o|propagated global variable: tmp50075009 chicken.compiler.support#unsafe 
o|inlining procedure: k21624 
o|inlining procedure: k21624 
o|inlining procedure: k21642 
o|inlining procedure: k21642 
o|inlining procedure: "(core.scm:2926) chicken.compiler.core#first" 
o|inlining procedure: k21664 
o|inlining procedure: "(core.scm:2930) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:2929) chicken.compiler.core#second" 
o|inlining procedure: k21664 
o|inlining procedure: "(core.scm:2943) chicken.compiler.core#second" 
o|inlining procedure: k21739 
o|inlining procedure: k21739 
o|inlining procedure: "(core.scm:2951) chicken.compiler.core#second" 
o|inlining procedure: k21781 
o|inlining procedure: "(core.scm:2955) chicken.compiler.core#first" 
o|inlining procedure: k21781 
o|inlining procedure: "(core.scm:2959) chicken.compiler.core#first" 
o|inlining procedure: k21831 
o|inlining procedure: "(core.scm:2964) chicken.compiler.core#first" 
o|inlining procedure: k21831 
o|inlining procedure: k21872 
o|inlining procedure: k21872 
o|inlining procedure: "(core.scm:2971) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2967) chicken.compiler.core#first" 
o|inlining procedure: k21898 
o|inlining procedure: "(core.scm:2980) chicken.compiler.core#first" 
o|inlining procedure: k21898 
o|inlining procedure: "(core.scm:3050) chicken.compiler.core#first" 
o|contracted procedure: "(core.scm:3024) chicken.compiler.core#make-lambda-literal" 
o|inlining procedure: k22021 
o|inlining procedure: k22021 
o|inlining procedure: "(core.scm:3026) chicken.compiler.core#second" 
o|inlining procedure: k22054 
o|inlining procedure: k22054 
o|inlining procedure: k22071 
o|inlining procedure: k22071 
o|inlining procedure: k22083 
o|inlining procedure: k22083 
o|inlining procedure: k22104 
o|inlining procedure: k22104 
o|inlining procedure: "(core.scm:2999) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2997) chicken.compiler.core#third" 
o|inlining procedure: k22114 
o|inlining procedure: "(core.scm:3060) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:3054) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3053) chicken.compiler.core#first" 
o|inlining procedure: k22114 
o|inlining procedure: "(core.scm:3071) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:3066) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3065) chicken.compiler.core#first" 
o|inlining procedure: k22215 
o|inlining procedure: k22300 
o|inlining procedure: k22300 
o|inlining procedure: k22314 
o|inlining procedure: k22314 
o|inlining procedure: "(core.scm:3086) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:3085) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3075) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3074) chicken.compiler.core#first" 
o|inlining procedure: k22215 
o|inlining procedure: "(core.scm:3103) chicken.compiler.core#third" 
o|substituted constant variable: a22427 
o|inlining procedure: "(core.scm:3101) chicken.compiler.core#second" 
o|inlining procedure: k22439 
o|inlining procedure: "(core.scm:3116) chicken.compiler.core#first" 
o|inlining procedure: k22439 
o|inlining procedure: k22469 
o|inlining procedure: k22469 
o|inlining procedure: k22484 
o|substituted constant variable: a22511 
o|substituted constant variable: a22512 
o|inlining procedure: k22484 
o|inlining procedure: k22554 
o|inlining procedure: k22554 
o|inlining procedure: "(core.scm:3120) chicken.compiler.core#first" 
o|inlining procedure: k22584 
o|inlining procedure: "(core.scm:3143) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:3140) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:3137) chicken.compiler.core#first" 
o|inlining procedure: k22584 
o|inlining procedure: k22685 
o|inlining procedure: k22685 
o|consed rest parameter at call site: "(core.scm:3164) chicken.compiler.core#cons*" 2 
o|inlining procedure: "(core.scm:3156) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3149) chicken.compiler.core#first" 
o|inlining procedure: k22750 
o|inlining procedure: k22750 
o|substituted constant variable: a22776 
o|substituted constant variable: a22778 
o|substituted constant variable: a22783 
o|substituted constant variable: a22785 
o|substituted constant variable: a22787 
o|substituted constant variable: a22789 
o|substituted constant variable: a22791 
o|substituted constant variable: a22793 
o|substituted constant variable: a22795 
o|substituted constant variable: a22797 
o|substituted constant variable: a22802 
o|substituted constant variable: a22804 
o|substituted constant variable: a22806 
o|substituted constant variable: a22808 
o|substituted constant variable: a22810 
o|substituted constant variable: a22812 
o|substituted constant variable: a22814 
o|substituted constant variable: a22816 
o|substituted constant variable: a22818 
o|substituted constant variable: a22820 
o|substituted constant variable: a22822 
o|substituted constant variable: a22824 
o|inlining procedure: k22828 
o|inlining procedure: k22828 
o|substituted constant variable: a22835 
o|substituted constant variable: a22837 
o|substituted constant variable: a22839 
o|inlining procedure: k22860 
o|inlining procedure: k22860 
o|inlining procedure: k22894 
o|inlining procedure: k22894 
o|inlining procedure: k22921 
o|inlining procedure: k22921 
o|contracted procedure: "(core.scm:3189) chicken.compiler.core#posv" 
o|inlining procedure: k7571 
o|inlining procedure: k7571 
o|inlining procedure: k22954 
o|inlining procedure: k22954 
o|inlining procedure: k22979 
o|inlining procedure: k22979 
o|contracted procedure: "(core.scm:3200) chicken.compiler.core#list-index" 
o|inlining procedure: k7119 
o|inlining procedure: k7119 
o|inlining procedure: k22995 
o|inlining procedure: k22995 
o|inlining procedure: k23008 
o|inlining procedure: k23008 
o|inlining procedure: k23026 
o|inlining procedure: k23026 
o|inlining procedure: k23041 
o|inlining procedure: k23041 
o|simplifications: ((if . 1)) 
o|replaced variables: 5139 
o|removed binding forms: 982 
o|substituted constant variable: r678723110 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#first 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#second 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#third 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#fourth 
o|substituted constant variable: r693823117 
o|contracted procedure: "(mini-srfi-1.scm:175) chicken.compiler.core#any" 
o|substituted constant variable: r672923106 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#list-tabulate 
o|substituted constant variable: r753823132 
o|substituted constant variable: r783023152 
o|inlining procedure: k7922 
o|substituted constant variable: r805223171 
o|removed call to pure procedure with unused result: "(core.scm:579) chicken.base#void" 
o|substituted constant variable: r850423207 
o|substituted constant variable: r850423207 
o|substituted constant variable: r880023224 
o|substituted constant variable: r967023261 
o|substituted constant variable: r967023261 
o|substituted constant variable: r1026323277 
o|substituted constant variable: r1026323277 
o|substituted constant variable: r1028223281 
o|substituted constant variable: r1028223281 
o|substituted constant variable: r1080723298 
o|substituted constant variable: r1080723298 
o|substituted constant variable: r1082323301 
o|substituted constant variable: r1088523308 
o|substituted constant variable: r1089723310 
o|substituted constant variable: r1136723326 
o|inlining procedure: k11372 
o|substituted constant variable: r1138923329 
o|substituted constant variable: r1138923329 
o|substituted constant variable: r1160723357 
o|substituted constant variable: r1160723357 
o|substituted constant variable: r1166023362 
o|substituted constant variable: r1166023362 
o|substituted constant variable: r1174423366 
o|substituted constant variable: r1174423366 
o|substituted constant variable: r1200623383 
o|substituted constant variable: r1202823388 
o|substituted constant variable: r1225223445 
o|substituted constant variable: r1225223445 
o|substituted constant variable: r1228223454 
o|substituted constant variable: r1228223454 
o|substituted constant variable: r1237323469 
o|substituted constant variable: r1237323469 
o|inlining procedure: k12565 
o|substituted constant variable: r1257623514 
o|substituted constant variable: r1257623514 
o|substituted constant variable: r1267823526 
o|substituted constant variable: r1267823526 
o|substituted constant variable: r1271123530 
o|substituted constant variable: r1271123530 
o|substituted constant variable: n222 
o|substituted constant variable: r1308823556 
o|substituted constant variable: r1318323562 
o|substituted constant variable: r1318323562 
o|substituted constant variable: r1334523598 
o|substituted constant variable: r1334523598 
o|substituted constant variable: r1373223612 
o|substituted constant variable: r1373223612 
o|substituted constant variable: r1376123616 
o|substituted constant variable: r698223621 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|substituted constant variable: r1494923724 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|substituted constant variable: r1529223743 
o|inlining procedure: k15324 
o|substituted constant variable: r1532523747 
o|substituted constant variable: r1532523747 
o|folded constant expression: (scheme#not (quote #f)) 
o|substituted constant variable: r1545123758 
o|inlining procedure: k13809 
o|inlining procedure: k13809 
o|contracted procedure: "(core.scm:1877) g34453454" 
o|substituted constant variable: r1573223771 
o|substituted constant variable: r1579423776 
o|inlining procedure: k15799 
o|substituted constant variable: r1655123806 
o|substituted constant variable: r1740823867 
o|substituted constant variable: r1773023904 
o|substituted constant variable: r1791423935 
o|substituted constant variable: r1828023963 
o|substituted constant variable: r1832023970 
o|substituted constant variable: r1834723977 
o|substituted constant variable: r1864524019 
o|substituted constant variable: r1868224032 
o|substituted constant variable: r1880224072 
o|substituted constant variable: r1892024086 
o|substituted constant variable: r1892024087 
o|substituted constant variable: r1923924131 
o|substituted constant variable: r1922724132 
o|substituted constant variable: r1921824133 
o|substituted constant variable: r1927024144 
o|substituted constant variable: r1932524146 
o|inlining procedure: k19594 
o|substituted constant variable: r1962824192 
o|substituted constant variable: r1966624196 
o|substituted constant variable: r1965724197 
o|inlining procedure: k19594 
o|substituted constant variable: r1969324211 
o|substituted constant variable: r1959524217 
o|substituted constant variable: r1959524217 
o|substituted constant variable: r1958524219 
o|substituted constant variable: r1958524219 
o|substituted constant variable: r2067624351 
o|substituted constant variable: r2067624351 
o|substituted constant variable: r2067624353 
o|substituted constant variable: r2067624353 
o|substituted constant variable: r2068224356 
o|substituted constant variable: r2070224358 
o|substituted constant variable: r2099324408 
o|substituted constant variable: r2099324408 
o|substituted constant variable: r2101824410 
o|substituted constant variable: r2101824410 
o|substituted constant variable: r2101824412 
o|substituted constant variable: r2101824412 
o|propagated global variable: r2161624457 chicken.compiler.core#no-bound-checks 
o|substituted constant variable: r2187324511 
o|substituted constant variable: r2187324511 
o|substituted constant variable: r2202224537 
o|substituted constant variable: r2202224538 
o|substituted constant variable: r2208424552 
o|substituted constant variable: r757224693 
o|substituted constant variable: r2298024698 
o|substituted constant variable: r712024699 
o|inlining procedure: k23008 
o|inlining procedure: k23008 
o|substituted constant variable: r2304224709 
o|replaced variables: 685 
o|removed binding forms: 3978 
o|removed conditional forms: 1 
o|inlining procedure: k7295 
o|inlining procedure: k16461 
o|inlining procedure: "(core.scm:1948) chicken.compiler.core#alist-cons" 
o|inlining procedure: k8042 
o|inlining procedure: k8042 
o|inlining procedure: k8042 
o|contracted procedure: k8088 
o|inlining procedure: "(core.scm:704) chicken.compiler.core#alist-cons" 
o|inlining procedure: k8835 
o|inlining procedure: k10144 
o|inlining procedure: k10247 
o|inlining procedure: "(core.scm:927) chicken.compiler.core#alist-cons" 
o|substituted constant variable: r113672332624845 
o|inlining procedure: "(core.scm:1314) chicken.compiler.core#alist-cons" 
o|inlining procedure: "(core.scm:1309) chicken.compiler.core#fifth" 
o|inlining procedure: "(core.scm:1341) chicken.compiler.core#fifth" 
o|inlining procedure: "(core.scm:1327) chicken.compiler.core#alist-cons" 
o|inlining procedure: k13129 
o|inlining procedure: k13129 
o|inlining procedure: "(core.scm:1519) chicken.compiler.core#alist-cons" 
o|inlining procedure: "(core.scm:1519) chicken.compiler.core#alist-cons" 
o|inlining procedure: k13721 
o|substituted constant variable: r1532524983 
o|folded constant expression: (scheme#not (quote #f)) 
o|substituted constant variable: r157942377625003 
o|inlining procedure: k17901 
o|inlining procedure: "(core.scm:2288) chicken.compiler.core#alist-cons" 
o|inlining procedure: k18792 
o|inlining procedure: k18792 
o|inlining procedure: k18792 
o|inlining procedure: k18792 
o|inlining procedure: k18994 
o|inlining procedure: k19116 
o|inlining procedure: k19135 
o|inlining procedure: k19186 
o|inlining procedure: k19186 
o|inlining procedure: k19636 
o|inlining procedure: k20154 
o|inlining procedure: k20937 
o|inlining procedure: k22092 
o|inlining procedure: k22092 
o|inlining procedure: k22311 
o|replaced variables: 7 
o|removed binding forms: 818 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#fifth 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#alist-cons 
o|substituted constant variable: r804325144 
o|substituted constant variable: r804325146 
o|substituted constant variable: r804325148 
o|substituted constant variable: r1014525186 
o|substituted constant variable: r1024825187 
o|substituted constant variable: z37525275 
o|contracted procedure: k18792 
o|substituted constant variable: r1879325367 
o|substituted constant variable: r1879325368 
o|substituted constant variable: r1913625375 
o|substituted constant variable: r1918725377 
o|substituted constant variable: r1959525054 
o|substituted constant variable: r1959525056 
o|substituted constant variable: r2093825404 
o|substituted constant variable: r2093825404 
o|substituted constant variable: r2209325409 
o|substituted constant variable: r2231225410 
o|substituted constant variable: r2231225410 
o|substituted constant variable: r2300925100 
o|substituted constant variable: r2300925102 
o|replaced variables: 42 
o|removed binding forms: 23 
o|removed conditional forms: 10 
o|replaced variables: 1 
o|removed binding forms: 61 
o|removed binding forms: 1 
o|simplifications: ((if . 101) (##core#call . 1861) (let . 92)) 
o|  call simplifications:
o|    chicken.base#void
o|    scheme#boolean?
o|    scheme#char?
o|    scheme#eof-object?
o|    chicken.base#fixnum?	2
o|    chicken.fixnum#fxmax	2
o|    chicken.fixnum#fx*	2
o|    scheme#=	4
o|    scheme#set-cdr!
o|    scheme#-	7
o|    ##sys#make-structure	2
o|    ##sys#check-structure	22
o|    ##sys#block-ref	22
o|    scheme#call-with-current-continuation
o|    chicken.fixnum#fx>=	2
o|    scheme#string
o|    scheme#number?	3
o|    scheme#<
o|    scheme#>	3
o|    scheme#member	3
o|    chicken.fixnum#fx<=
o|    chicken.fixnum#fx-	6
o|    scheme#cddddr	3
o|    scheme#vector	2
o|    scheme#string?	3
o|    scheme#equal?	2
o|    scheme#set-car!	3
o|    scheme#list-ref	2
o|    scheme#cddr	20
o|    scheme#assoc
o|    scheme#list	111
o|    ##sys#cons	37
o|    scheme#cdddr	10
o|    scheme#cadddr	12
o|    scheme#cdr	32
o|    scheme#caddr	37
o|    ##sys#list	115
o|    scheme#list?	10
o|    scheme#cadr	105
o|    scheme#assq	18
o|    ##sys#call-with-values	11
o|    ##sys#apply	4
o|    scheme#caar	2
o|    scheme#symbol?	18
o|    scheme#length	15
o|    scheme#+	23
o|    scheme#values	5
o|    chicken.fixnum#fx+	9
o|    scheme#eq?	309
o|    scheme#memq	20
o|    ##sys#setslot	40
o|    ##sys#check-list	73
o|    scheme#pair?	114
o|    ##sys#slot	202
o|    scheme#cons	161
o|    scheme#null?	39
o|    scheme#car	142
o|    scheme#not	62
o|contracted procedure: k6694 
o|contracted procedure: k6703 
o|contracted procedure: k6716 
o|contracted procedure: k6761 
o|contracted procedure: k6772 
o|contracted procedure: k6789 
o|contracted procedure: k6796 
o|contracted procedure: k6817 
o|contracted procedure: k6843 
o|contracted procedure: k6928 
o|contracted procedure: k6940 
o|contracted procedure: k6958 
o|contracted procedure: k6966 
o|contracted procedure: k7037 
o|contracted procedure: k7045 
o|contracted procedure: k7057 
o|contracted procedure: k7079 
o|contracted procedure: k7075 
o|contracted procedure: k7060 
o|contracted procedure: k7063 
o|contracted procedure: k7071 
o|contracted procedure: k7156 
o|contracted procedure: k7182 
o|contracted procedure: k7162 
o|contracted procedure: k7176 
o|contracted procedure: k7197 
o|contracted procedure: k7204 
o|contracted procedure: k7227 
o|contracted procedure: k7220 
o|contracted procedure: k7242 
o|contracted procedure: k7249 
o|contracted procedure: k7306 
o|contracted procedure: k7255 
o|contracted procedure: k7267 
o|contracted procedure: k7274 
o|contracted procedure: k7299 
o|contracted procedure: k7295 
o|contracted procedure: k6731 
o|contracted procedure: k6746 
o|contracted procedure: k7540 
o|contracted procedure: k7559 
o|contracted procedure: k7546 
o|contracted procedure: k7553 
o|contracted procedure: k7730 
o|contracted procedure: k7733 
o|contracted procedure: k7739 
o|contracted procedure: k7743 
o|contracted procedure: k7749 
o|contracted procedure: k7753 
o|contracted procedure: k7759 
o|contracted procedure: k7763 
o|contracted procedure: k7775 
o|contracted procedure: k7783 
o|contracted procedure: k7779 
o|contracted procedure: k7794 
o|contracted procedure: k7806 
o|contracted procedure: k7816 
o|contracted procedure: k7820 
o|contracted procedure: k7832 
o|contracted procedure: k7858 
o|contracted procedure: k7848 
o|contracted procedure: k7938 
o|contracted procedure: k7919 
o|contracted procedure: k7928 
o|contracted procedure: k16426 
o|contracted procedure: k16487 
o|contracted procedure: k16442 
o|contracted procedure: k16483 
o|contracted procedure: k16451 
o|contracted procedure: k16458 
o|contracted procedure: k16469 
o|contracted procedure: k692225141 
o|contracted procedure: k16476 
o|contracted procedure: k7978 
o|contracted procedure: k7981 
o|contracted procedure: k8018 
o|contracted procedure: k7993 
o|contracted procedure: k8003 
o|contracted procedure: k8007 
o|contracted procedure: k8011 
o|contracted procedure: k8015 
o|contracted procedure: k8048 
o|contracted procedure: k8054 
o|contracted procedure: k8073 
o|contracted procedure: k8060 
o|contracted procedure: k8042 
o|contracted procedure: k8260 
o|contracted procedure: k8094 
o|contracted procedure: k8125 
o|contracted procedure: k8133 
o|contracted procedure: k8158 
o|contracted procedure: k8154 
o|contracted procedure: k8139 
o|contracted procedure: k8164 
o|contracted procedure: k8172 
o|contracted procedure: k8193 
o|contracted procedure: k8197 
o|contracted procedure: k8178 
o|contracted procedure: k8256 
o|contracted procedure: k8206 
o|contracted procedure: k8212 
o|contracted procedure: k8220 
o|contracted procedure: k8263 
o|contracted procedure: k8402 
o|contracted procedure: k13615 
o|contracted procedure: k8411 
o|contracted procedure: k13611 
o|contracted procedure: k8429 
o|contracted procedure: k8435 
o|contracted procedure: k13495 
o|contracted procedure: k8457 
o|contracted procedure: k8479 
o|contracted procedure: k8475 
o|contracted procedure: k8488 
o|contracted procedure: k8517 
o|contracted procedure: k8506 
o|contracted procedure: k8513 
o|contracted procedure: k8521 
o|contracted procedure: k8525 
o|contracted procedure: k8531 
o|contracted procedure: k8534 
o|contracted procedure: k8545 
o|contracted procedure: k8551 
o|contracted procedure: k8561 
o|contracted procedure: k8567 
o|contracted procedure: k8578 
o|contracted procedure: k8586 
o|contracted procedure: k8590 
o|contracted procedure: k8596 
o|contracted procedure: k8607 
o|contracted procedure: k8619 
o|contracted procedure: k8636 
o|contracted procedure: k8640 
o|contracted procedure: k8643 
o|contracted procedure: k8646 
o|contracted procedure: k8611 
o|contracted procedure: k8603 
o|contracted procedure: k8658 
o|contracted procedure: k8661 
o|contracted procedure: k8664 
o|contracted procedure: k8672 
o|contracted procedure: k8680 
o|contracted procedure: k8687 
o|contracted procedure: k8696 
o|contracted procedure: k8702 
o|contracted procedure: k692225158 
o|contracted procedure: k8715 
o|propagated global variable: z37525155 chicken.compiler.core#immutable-constants 
o|contracted procedure: k8727 
o|contracted procedure: k8736 
o|contracted procedure: k8739 
o|contracted procedure: k8752 
o|contracted procedure: k8759 
o|contracted procedure: k8777 
o|contracted procedure: k8792 
o|contracted procedure: k8796 
o|contracted procedure: k8802 
o|contracted procedure: k8809 
o|contracted procedure: k8815 
o|contracted procedure: k8818 
o|contracted procedure: k8841 
o|contracted procedure: k8862 
o|contracted procedure: k8865 
o|contracted procedure: k8871 
o|contracted procedure: k8874 
o|contracted procedure: k8886 
o|contracted procedure: k8896 
o|contracted procedure: k8909 
o|contracted procedure: k8914 
o|contracted procedure: k8917 
o|contracted procedure: k8959 
o|contracted procedure: k9014 
o|contracted procedure: k8978 
o|contracted procedure: k8981 
o|contracted procedure: k8984 
o|contracted procedure: k8992 
o|contracted procedure: k8996 
o|contracted procedure: k9004 
o|contracted procedure: k9008 
o|contracted procedure: k9030 
o|contracted procedure: k9033 
o|contracted procedure: k9036 
o|contracted procedure: k9044 
o|contracted procedure: k9052 
o|contracted procedure: k9061 
o|contracted procedure: k9064 
o|contracted procedure: k9081 
o|contracted procedure: k9093 
o|contracted procedure: k9077 
o|contracted procedure: k9073 
o|contracted procedure: k9104 
o|contracted procedure: k9132 
o|contracted procedure: k9128 
o|contracted procedure: k9124 
o|contracted procedure: k9141 
o|contracted procedure: k9163 
o|contracted procedure: k9113 
o|contracted procedure: k9117 
o|contracted procedure: k9159 
o|contracted procedure: k9144 
o|contracted procedure: k9147 
o|contracted procedure: k9155 
o|contracted procedure: k9175 
o|contracted procedure: k9197 
o|contracted procedure: k9090 
o|contracted procedure: k9193 
o|contracted procedure: k9178 
o|contracted procedure: k9181 
o|contracted procedure: k9189 
o|contracted procedure: k9206 
o|contracted procedure: k9209 
o|contracted procedure: k9215 
o|contracted procedure: k9218 
o|contracted procedure: k9224 
o|contracted procedure: k9235 
o|contracted procedure: k9247 
o|contracted procedure: k9262 
o|contracted procedure: k9275 
o|contracted procedure: k9271 
o|contracted procedure: k9278 
o|contracted procedure: k9258 
o|contracted procedure: k9254 
o|contracted procedure: k9231 
o|contracted procedure: k9289 
o|contracted procedure: k9309 
o|contracted procedure: k9305 
o|contracted procedure: k9301 
o|contracted procedure: k9354 
o|contracted procedure: k9318 
o|contracted procedure: k9344 
o|contracted procedure: k9348 
o|contracted procedure: k9340 
o|contracted procedure: k9321 
o|contracted procedure: k9324 
o|contracted procedure: k9332 
o|contracted procedure: k9336 
o|contracted procedure: k9402 
o|contracted procedure: k9366 
o|contracted procedure: k9369 
o|contracted procedure: k9372 
o|contracted procedure: k9380 
o|contracted procedure: k9384 
o|contracted procedure: k9392 
o|contracted procedure: k9396 
o|contracted procedure: k9414 
o|contracted procedure: k9436 
o|contracted procedure: k9244 
o|contracted procedure: k9432 
o|contracted procedure: k9417 
o|contracted procedure: k9420 
o|contracted procedure: k9428 
o|contracted procedure: k9448 
o|contracted procedure: k9451 
o|contracted procedure: k9454 
o|contracted procedure: k9462 
o|contracted procedure: k9470 
o|contracted procedure: k9479 
o|contracted procedure: k9482 
o|contracted procedure: k9485 
o|contracted procedure: k9499 
o|contracted procedure: k9523 
o|contracted procedure: k9537 
o|contracted procedure: k9540 
o|contracted procedure: k9543 
o|contracted procedure: k9551 
o|contracted procedure: k9559 
o|contracted procedure: k9568 
o|contracted procedure: k9571 
o|contracted procedure: k9585 
o|contracted procedure: k9588 
o|contracted procedure: k9597 
o|contracted procedure: k9609 
o|contracted procedure: k9618 
o|contracted procedure: k9637 
o|contracted procedure: k9643 
o|contracted procedure: k9652 
o|contracted procedure: k9669 
o|contracted procedure: k9732 
o|contracted procedure: k9728 
o|contracted procedure: k9760 
o|contracted procedure: k9763 
o|contracted procedure: k9766 
o|contracted procedure: k9774 
o|contracted procedure: k9782 
o|contracted procedure: k9812 
o|contracted procedure: k9844 
o|contracted procedure: k9855 
o|contracted procedure: k9869 
o|contracted procedure: k9899 
o|contracted procedure: k9902 
o|contracted procedure: k9918 
o|contracted procedure: k9940 
o|contracted procedure: k9878 
o|contracted procedure: k9936 
o|contracted procedure: k9921 
o|contracted procedure: k9924 
o|contracted procedure: k9932 
o|contracted procedure: k9896 
o|contracted procedure: k9949 
o|contracted procedure: k9952 
o|contracted procedure: k9978 
o|contracted procedure: k9981 
o|contracted procedure: k9993 
o|contracted procedure: k10002 
o|contracted procedure: k10005 
o|contracted procedure: k10042 
o|contracted procedure: k10061 
o|contracted procedure: k10071 
o|contracted procedure: k10075 
o|contracted procedure: k10088 
o|contracted procedure: k10110 
o|contracted procedure: k9961 
o|contracted procedure: k10106 
o|contracted procedure: k10091 
o|contracted procedure: k10094 
o|contracted procedure: k10102 
o|contracted procedure: k9975 
o|contracted procedure: k10119 
o|contracted procedure: k10151 
o|contracted procedure: k10155 
o|contracted procedure: k10144 
o|contracted procedure: k10170 
o|contracted procedure: k10177 
o|contracted procedure: k10202 
o|contracted procedure: k10193 
o|contracted procedure: k10219 
o|contracted procedure: k10215 
o|contracted procedure: k10208 
o|contracted procedure: k10225 
o|contracted procedure: k10228 
o|contracted procedure: k10231 
o|contracted procedure: k10254 
o|contracted procedure: k10258 
o|contracted procedure: k10277 
o|contracted procedure: k10269 
o|contracted procedure: k10273 
o|contracted procedure: k10262 
o|inlining procedure: k10247 
o|contracted procedure: k10281 
o|contracted procedure: k692225194 
o|contracted procedure: k10300 
o|contracted procedure: k10310 
o|contracted procedure: k10313 
o|contracted procedure: k10335 
o|contracted procedure: k10356 
o|contracted procedure: k10362 
o|contracted procedure: k10365 
o|contracted procedure: k10368 
o|contracted procedure: k10377 
o|contracted procedure: k10399 
o|contracted procedure: k10411 
o|contracted procedure: k10421 
o|contracted procedure: k10425 
o|contracted procedure: k10392 
o|contracted procedure: k10396 
o|contracted procedure: k10439 
o|contracted procedure: k10458 
o|contracted procedure: k10470 
o|contracted procedure: k10480 
o|contracted procedure: k10484 
o|contracted procedure: k10451 
o|contracted procedure: k10455 
o|contracted procedure: k10493 
o|contracted procedure: k10496 
o|contracted procedure: k10499 
o|contracted procedure: k10507 
o|contracted procedure: k10515 
o|contracted procedure: k10524 
o|contracted procedure: k10542 
o|contracted procedure: k10546 
o|contracted procedure: k10577 
o|contracted procedure: k10559 
o|contracted procedure: k10570 
o|inlining procedure: k10556 
o|contracted procedure: k10588 
o|contracted procedure: k10595 
o|contracted procedure: k10606 
o|contracted procedure: k10609 
o|contracted procedure: k10626 
o|contracted procedure: k10622 
o|contracted procedure: k10635 
o|contracted procedure: k10638 
o|contracted procedure: k10641 
o|contracted procedure: k10649 
o|contracted procedure: k10657 
o|contracted procedure: k10666 
o|contracted procedure: k10672 
o|contracted procedure: k11242 
o|contracted procedure: k10678 
o|contracted procedure: k10771 
o|contracted procedure: k10780 
o|contracted procedure: k10789 
o|contracted procedure: k10792 
o|contracted procedure: k10809 
o|contracted procedure: k10825 
o|contracted procedure: k10837 
o|contracted procedure: k8363 
o|contracted procedure: k8303 
o|contracted procedure: k8324 
o|contracted procedure: k8339 
o|contracted procedure: k8349 
o|contracted procedure: k8353 
o|contracted procedure: k10887 
o|contracted procedure: k10924 
o|contracted procedure: k10928 
o|contracted procedure: k10984 
o|contracted procedure: k10996 
o|contracted procedure: k11062 
o|contracted procedure: k11111 
o|contracted procedure: k11070 
o|contracted procedure: k11082 
o|contracted procedure: k11085 
o|contracted procedure: k11088 
o|contracted procedure: k11096 
o|contracted procedure: k11104 
o|contracted procedure: k11144 
o|contracted procedure: k11152 
o|contracted procedure: k11164 
o|contracted procedure: k11173 
o|contracted procedure: k11191 
o|contracted procedure: k11182 
o|contracted procedure: k11197 
o|contracted procedure: k11209 
o|contracted procedure: k11212 
o|contracted procedure: k11215 
o|contracted procedure: k11223 
o|contracted procedure: k11231 
o|contracted procedure: k11246 
o|contracted procedure: k11252 
o|contracted procedure: k11255 
o|contracted procedure: k11260 
o|contracted procedure: k11263 
o|contracted procedure: k11275 
o|contracted procedure: k11338 
o|contracted procedure: k11341 
o|contracted procedure: k11344 
o|contracted procedure: k11352 
o|contracted procedure: k11360 
o|contracted procedure: k11369 
o|contracted procedure: k11375 
o|contracted procedure: k11412 
o|contracted procedure: k11415 
o|contracted procedure: k11424 
o|contracted procedure: k11430 
o|contracted procedure: k11438 
o|contracted procedure: k11472 
o|contracted procedure: k11452 
o|contracted procedure: k11468 
o|contracted procedure: k11460 
o|contracted procedure: k11456 
o|contracted procedure: k11448 
o|contracted procedure: k11482 
o|contracted procedure: k11490 
o|contracted procedure: k11524 
o|contracted procedure: k11504 
o|contracted procedure: k11512 
o|contracted procedure: k11516 
o|contracted procedure: k11508 
o|contracted procedure: k11500 
o|contracted procedure: k11545 
o|contracted procedure: k11548 
o|contracted procedure: k11630 
o|contracted procedure: k11705 
o|contracted procedure: k11693 
o|contracted procedure: k11701 
o|contracted procedure: k11697 
o|contracted procedure: k11689 
o|contracted procedure: k11714 
o|contracted procedure: k11767 
o|contracted procedure: k11778 
o|contracted procedure: k11786 
o|contracted procedure: k11800 
o|contracted procedure: k11782 
o|contracted procedure: k11774 
o|contracted procedure: k11812 
o|contracted procedure: k11815 
o|contracted procedure: k11818 
o|contracted procedure: k11826 
o|contracted procedure: k11834 
o|contracted procedure: k11843 
o|contracted procedure: k11850 
o|contracted procedure: k11862 
o|contracted procedure: k11866 
o|contracted procedure: k11872 
o|contracted procedure: k11883 
o|contracted procedure: k11886 
o|contracted procedure: k11889 
o|contracted procedure: k11879 
o|contracted procedure: k11900 
o|contracted procedure: k11909 
o|contracted procedure: k11912 
o|contracted procedure: k11915 
o|contracted procedure: k11923 
o|contracted procedure: k11931 
o|contracted procedure: k11940 
o|contracted procedure: k11947 
o|contracted procedure: k11955 
o|contracted procedure: k11961 
o|contracted procedure: k11968 
o|contracted procedure: k11980 
o|contracted procedure: k11984 
o|contracted procedure: k11990 
o|contracted procedure: k11993 
o|contracted procedure: k11996 
o|contracted procedure: k12008 
o|contracted procedure: k12011 
o|contracted procedure: k12018 
o|contracted procedure: k12024 
o|contracted procedure: k12030 
o|contracted procedure: k12045 
o|contracted procedure: k12052 
o|contracted procedure: k12078 
o|contracted procedure: k12091 
o|contracted procedure: k12104 
o|contracted procedure: k12117 
o|contracted procedure: k12130 
o|contracted procedure: k16264 
o|contracted procedure: k16273 
o|contracted procedure: k16281 
o|contracted procedure: k16287 
o|contracted procedure: k16293 
o|contracted procedure: k16308 
o|contracted procedure: k16330 
o|contracted procedure: k16326 
o|contracted procedure: k16311 
o|contracted procedure: k16314 
o|contracted procedure: k16322 
o|contracted procedure: k16342 
o|contracted procedure: k16364 
o|contracted procedure: k16360 
o|contracted procedure: k16345 
o|contracted procedure: k16348 
o|contracted procedure: k16356 
o|contracted procedure: k16371 
o|contracted procedure: k16381 
o|contracted procedure: k16408 
o|contracted procedure: k16393 
o|contracted procedure: k16404 
o|contracted procedure: k16400 
o|contracted procedure: k12143 
o|contracted procedure: k12160 
o|contracted procedure: k12156 
o|contracted procedure: k12173 
o|contracted procedure: k12163 
o|contracted procedure: k12177 
o|contracted procedure: k12181 
o|contracted procedure: k12187 
o|contracted procedure: k12190 
o|contracted procedure: k12196 
o|contracted procedure: k12205 
o|contracted procedure: k12263 
o|contracted procedure: k12243 
o|contracted procedure: k12239 
o|contracted procedure: k12254 
o|contracted procedure: k12251 
o|contracted procedure: k12303 
o|contracted procedure: k12309 
o|contracted procedure: k12312 
o|contracted procedure: k12321 
o|contracted procedure: k12324 
o|contracted procedure: k12357 
o|contracted procedure: k12337 
o|contracted procedure: k12349 
o|contracted procedure: k12341 
o|contracted procedure: k692225233 
o|contracted procedure: k12345 
o|propagated global variable: z37525230 chicken.compiler.core#external-to-pointer 
o|contracted procedure: k687725238 
o|contracted procedure: k12365 
o|contracted procedure: k12396 
o|contracted procedure: k12399 
o|contracted procedure: k12543 
o|contracted procedure: k12536 
o|contracted procedure: k12411 
o|contracted procedure: k12533 
o|contracted procedure: k12418 
o|contracted procedure: k692225250 
o|contracted procedure: k12421 
o|contracted procedure: k12511 
o|contracted procedure: k12503 
o|contracted procedure: k12507 
o|contracted procedure: k12499 
o|contracted procedure: k12495 
o|contracted procedure: k12455 
o|contracted procedure: k12459 
o|contracted procedure: k12451 
o|contracted procedure: k12471 
o|contracted procedure: k687725243 
o|contracted procedure: k12488 
o|contracted procedure: k12547 
o|contracted procedure: k12553 
o|contracted procedure: k12556 
o|contracted procedure: k12559 
o|contracted procedure: k12603 
o|contracted procedure: k12606 
o|contracted procedure: k12612 
o|contracted procedure: k12703 
o|contracted procedure: k12699 
o|contracted procedure: k12625 
o|contracted procedure: k12638 
o|contracted procedure: k12670 
o|contracted procedure: k12666 
o|contracted procedure: k12768 
o|contracted procedure: k12778 
o|contracted procedure: k12771 
o|contracted procedure: k12796 
o|contracted procedure: k12833 
o|contracted procedure: k12851 
o|contracted procedure: k12854 
o|contracted procedure: k12829 
o|contracted procedure: k12866 
o|contracted procedure: k12869 
o|contracted procedure: k12872 
o|contracted procedure: k12880 
o|contracted procedure: k12888 
o|contracted procedure: k12907 
o|contracted procedure: k12920 
o|contracted procedure: k6488 
o|contracted procedure: k6502 
o|contracted procedure: k6512 
o|contracted procedure: k6506 
o|contracted procedure: k12926 
o|contracted procedure: k13212 
o|contracted procedure: k12929 
o|contracted procedure: k13208 
o|contracted procedure: k12935 
o|contracted procedure: k13204 
o|contracted procedure: k12938 
o|contracted procedure: k12941 
o|contracted procedure: k12962 
o|contracted procedure: k12974 
o|contracted procedure: k12970 
o|contracted procedure: k12990 
o|contracted procedure: k12986 
o|contracted procedure: k12997 
o|contracted procedure: k13020 
o|contracted procedure: k13016 
o|contracted procedure: k13008 
o|contracted procedure: k13012 
o|contracted procedure: k13004 
o|contracted procedure: k13026 
o|contracted procedure: k13035 
o|contracted procedure: k13078 
o|contracted procedure: k13074 
o|contracted procedure: k13070 
o|contracted procedure: k13066 
o|contracted procedure: k13046 
o|contracted procedure: k13062 
o|contracted procedure: k13058 
o|contracted procedure: k13050 
o|contracted procedure: k13042 
o|contracted procedure: k13090 
o|contracted procedure: k13093 
o|contracted procedure: k13096 
o|contracted procedure: k13103 
o|contracted procedure: k13161 
o|contracted procedure: k13126 
o|contracted procedure: k13157 
o|contracted procedure: k13135 
o|contracted procedure: k13149 
o|contracted procedure: k13153 
o|contracted procedure: k13145 
o|contracted procedure: k13129 
o|contracted procedure: k13172 
o|contracted procedure: k13168 
o|contracted procedure: k13218 
o|contracted procedure: k13221 
o|contracted procedure: k13227 
o|contracted procedure: k13230 
o|contracted procedure: k13246 
o|contracted procedure: k13250 
o|contracted procedure: k13242 
o|contracted procedure: k13256 
o|contracted procedure: k13268 
o|contracted procedure: k13277 
o|contracted procedure: k13284 
o|contracted procedure: k13299 
o|contracted procedure: k13295 
o|contracted procedure: k13314 
o|contracted procedure: k13310 
o|contracted procedure: k13317 
o|contracted procedure: k13323 
o|contracted procedure: k13336 
o|contracted procedure: k13344 
o|contracted procedure: k692225271 
o|contracted procedure: k692225278 
o|contracted procedure: k13462 
o|contracted procedure: k13520 
o|contracted procedure: k13607 
o|contracted procedure: k13554 
o|contracted procedure: k13599 
o|contracted procedure: k13589 
o|contracted procedure: k13593 
o|contracted procedure: k13585 
o|contracted procedure: k13621 
o|contracted procedure: k13629 
o|contracted procedure: k13641 
o|contracted procedure: k13644 
o|contracted procedure: k13647 
o|contracted procedure: k13655 
o|contracted procedure: k13663 
o|contracted procedure: k13676 
o|contracted procedure: k13689 
o|contracted procedure: k13697 
o|contracted procedure: k13741 
o|contracted procedure: k13712 
o|contracted procedure: k13718 
o|contracted procedure: k13734 
o|inlining procedure: k13721 
o|contracted procedure: k13731 
o|inlining procedure: k13721 
o|contracted procedure: k6972 
o|contracted procedure: k6984 
o|contracted procedure: k7007 
o|contracted procedure: k7015 
o|removed unused formal parameters: (return2734) 
o|contracted procedure: k13812 
o|contracted procedure: k13821 
o|contracted procedure: k13853 
o|contracted procedure: k13877 
o|contracted procedure: k13881 
o|contracted procedure: k13887 
o|contracted procedure: k13893 
o|contracted procedure: k13912 
o|contracted procedure: k13918 
o|contracted procedure: k13937 
o|contracted procedure: k13943 
o|contracted procedure: k13966 
o|contracted procedure: k13977 
o|contracted procedure: k13983 
o|contracted procedure: k13986 
o|contracted procedure: k13993 
o|contracted procedure: k14000 
o|contracted procedure: k14007 
o|contracted procedure: k14014 
o|contracted procedure: k14021 
o|contracted procedure: k14028 
o|contracted procedure: k14035 
o|contracted procedure: k14042 
o|contracted procedure: k14053 
o|contracted procedure: k14065 
o|contracted procedure: k14075 
o|contracted procedure: k14079 
o|contracted procedure: k14087 
o|contracted procedure: k14094 
o|contracted procedure: k14105 
o|contracted procedure: k14119 
o|contracted procedure: k14131 
o|contracted procedure: k14141 
o|contracted procedure: k14145 
o|contracted procedure: k14154 
o|contracted procedure: k14164 
o|contracted procedure: k14168 
o|contracted procedure: k14174 
o|contracted procedure: k14181 
o|contracted procedure: k14192 
o|contracted procedure: k14212 
o|contracted procedure: k14222 
o|contracted procedure: k14226 
o|contracted procedure: k14235 
o|contracted procedure: k14245 
o|contracted procedure: k14249 
o|contracted procedure: k14257 
o|contracted procedure: k14277 
o|contracted procedure: k14284 
o|contracted procedure: k14291 
o|contracted procedure: k14298 
o|contracted procedure: k14309 
o|contracted procedure: k14321 
o|contracted procedure: k14331 
o|contracted procedure: k14335 
o|contracted procedure: k14343 
o|contracted procedure: k14354 
o|contracted procedure: k14366 
o|contracted procedure: k14376 
o|contracted procedure: k14380 
o|contracted procedure: k14388 
o|contracted procedure: k14400 
o|contracted procedure: k14422 
o|contracted procedure: k14406 
o|contracted procedure: k14428 
o|contracted procedure: k14450 
o|contracted procedure: k14434 
o|contracted procedure: k14456 
o|contracted procedure: k14507 
o|contracted procedure: k14462 
o|contracted procedure: k14474 
o|contracted procedure: k14486 
o|contracted procedure: k14496 
o|contracted procedure: k14500 
o|contracted procedure: k14513 
o|contracted procedure: k14539 
o|contracted procedure: k14519 
o|contracted procedure: k14545 
o|contracted procedure: k14596 
o|contracted procedure: k14552 
o|contracted procedure: k14563 
o|contracted procedure: k14575 
o|contracted procedure: k14585 
o|contracted procedure: k14589 
o|contracted procedure: k14608 
o|contracted procedure: k14618 
o|contracted procedure: k14632 
o|contracted procedure: k14638 
o|contracted procedure: k14645 
o|contracted procedure: k14648 
o|contracted procedure: k14657 
o|contracted procedure: k14661 
o|contracted procedure: k14673 
o|contracted procedure: k14683 
o|contracted procedure: k14687 
o|contracted procedure: k14695 
o|contracted procedure: k14702 
o|contracted procedure: k14714 
o|contracted procedure: k14724 
o|contracted procedure: k14728 
o|contracted procedure: k14736 
o|contracted procedure: k14743 
o|contracted procedure: k14749 
o|contracted procedure: k14761 
o|contracted procedure: k14773 
o|contracted procedure: k14783 
o|contracted procedure: k14787 
o|contracted procedure: k14797 
o|contracted procedure: k14803 
o|contracted procedure: k14809 
o|contracted procedure: k14819 
o|contracted procedure: k14825 
o|contracted procedure: k14831 
o|contracted procedure: k14841 
o|contracted procedure: k14859 
o|contracted procedure: k14871 
o|contracted procedure: k14881 
o|contracted procedure: k14885 
o|contracted procedure: k14894 
o|contracted procedure: k14902 
o|contracted procedure: k14977 
o|contracted procedure: k14989 
o|contracted procedure: k14992 
o|contracted procedure: k14995 
o|contracted procedure: k15003 
o|contracted procedure: k15011 
o|contracted procedure: k14910 
o|contracted procedure: k14935 
o|contracted procedure: k14939 
o|contracted procedure: k14945 
o|contracted procedure: k14951 
o|contracted procedure: k14968 
o|contracted procedure: k14957 
o|contracted procedure: k14964 
o|contracted procedure: k15022 
o|contracted procedure: k15029 
o|contracted procedure: k15042 
o|contracted procedure: k15054 
o|contracted procedure: k15064 
o|contracted procedure: k15068 
o|contracted procedure: k15078 
o|contracted procedure: k15084 
o|contracted procedure: k15096 
o|contracted procedure: k15108 
o|contracted procedure: k15118 
o|contracted procedure: k15122 
o|contracted procedure: k15132 
o|contracted procedure: k15140 
o|contracted procedure: k15151 
o|contracted procedure: k15163 
o|contracted procedure: k15173 
o|contracted procedure: k15177 
o|contracted procedure: k15187 
o|contracted procedure: k15269 
o|contracted procedure: k15255 
o|contracted procedure: k15285 
o|contracted procedure: k15288 
o|contracted procedure: k15294 
o|contracted procedure: k15301 
o|contracted procedure: k15316 
o|contracted procedure: k15320 
o|contracted procedure: k15327 
o|contracted procedure: k15333 
o|contracted procedure: k15340 
o|contracted procedure: k15324 
o|contracted procedure: k15347 
o|contracted procedure: k15359 
o|contracted procedure: k15369 
o|contracted procedure: k15373 
o|contracted procedure: k15379 
o|contracted procedure: k15422 
o|contracted procedure: k15437 
o|contracted procedure: k15441 
o|contracted procedure: k15447 
o|contracted procedure: k15465 
o|contracted procedure: k15453 
o|contracted procedure: k15461 
o|contracted procedure: k15469 
o|contracted procedure: k15481 
o|contracted procedure: k15491 
o|contracted procedure: k15495 
o|contracted procedure: k15501 
o|contracted procedure: k15508 
o|contracted procedure: k15611 
o|removed unused parameter to known procedure: return2734 a13800 
o|contracted procedure: k15621 
o|contracted procedure: k15631 
o|contracted procedure: k15650 
o|contracted procedure: k15659 
o|contracted procedure: k15668 
o|contracted procedure: k15677 
o|contracted procedure: k15686 
o|contracted procedure: k15695 
o|contracted procedure: k15704 
o|contracted procedure: k15713 
o|contracted procedure: k16003 
o|contracted procedure: k15827 
o|contracted procedure: k15830 
o|contracted procedure: k15836 
o|contracted procedure: k15848 
o|contracted procedure: k15851 
o|contracted procedure: k15861 
o|contracted procedure: k15869 
o|contracted procedure: k15873 
o|contracted procedure: k15889 
o|contracted procedure: k15938 
o|contracted procedure: k15930 
o|contracted procedure: k15934 
o|contracted procedure: k15926 
o|contracted procedure: k15922 
o|contracted procedure: k15902 
o|contracted procedure: k15918 
o|contracted procedure: k15983 
o|contracted procedure: k15947 
o|contracted procedure: k15950 
o|contracted procedure: k15953 
o|contracted procedure: k15961 
o|contracted procedure: k15965 
o|contracted procedure: k15973 
o|contracted procedure: k15977 
o|contracted procedure: k15993 
o|contracted procedure: k16013 
o|contracted procedure: k16016 
o|contracted procedure: k16028 
o|contracted procedure: k16031 
o|contracted procedure: k16034 
o|contracted procedure: k16042 
o|contracted procedure: k16050 
o|contracted procedure: k16056 
o|contracted procedure: k16068 
o|contracted procedure: k16080 
o|contracted procedure: k16083 
o|contracted procedure: k16086 
o|contracted procedure: k16094 
o|contracted procedure: k16102 
o|contracted procedure: k15734 
o|contracted procedure: k15740 
o|contracted procedure: k15743 
o|contracted procedure: k15749 
o|contracted procedure: k15768 
o|contracted procedure: k15771 
o|contracted procedure: k15796 
o|contracted procedure: k15799 
o|contracted procedure: k16111 
o|contracted procedure: k16117 
o|contracted procedure: k16120 
o|contracted procedure: k16126 
o|contracted procedure: k16139 
o|contracted procedure: k16148 
o|contracted procedure: k16151 
o|contracted procedure: k16157 
o|contracted procedure: k16165 
o|contracted procedure: k16171 
o|contracted procedure: k16177 
o|contracted procedure: k16192 
o|contracted procedure: k16214 
o|contracted procedure: k16210 
o|contracted procedure: k16195 
o|contracted procedure: k16198 
o|contracted procedure: k16206 
o|contracted procedure: k16226 
o|contracted procedure: k16248 
o|contracted procedure: k16244 
o|contracted procedure: k16229 
o|contracted procedure: k16232 
o|contracted procedure: k16240 
o|contracted procedure: k16255 
o|contracted procedure: k16544 
o|contracted procedure: k16510 
o|contracted procedure: k16514 
o|contracted procedure: k16522 
o|contracted procedure: k16532 
o|contracted procedure: k16536 
o|contracted procedure: k16553 
o|contracted procedure: k16560 
o|contracted procedure: k16589 
o|contracted procedure: k16601 
o|contracted procedure: k16616 
o|contracted procedure: k16620 
o|contracted procedure: k16631 
o|contracted procedure: k16635 
o|contracted procedure: k16647 
o|contracted procedure: k16657 
o|contracted procedure: k16669 
o|contracted procedure: k16673 
o|contracted procedure: k16702 
o|contracted procedure: k16677 
o|contracted procedure: k16681 
o|contracted procedure: k16708 
o|contracted procedure: k16720 
o|contracted procedure: k16727 
o|contracted procedure: k16734 
o|contracted procedure: k16752 
o|contracted procedure: k16759 
o|contracted procedure: k16763 
o|contracted procedure: k16773 
o|contracted procedure: k16779 
o|contracted procedure: k16785 
o|contracted procedure: k16788 
o|contracted procedure: k16804 
o|contracted procedure: k16810 
o|contracted procedure: k16870 
o|contracted procedure: k16863 
o|contracted procedure: k16816 
o|contracted procedure: k16860 
o|contracted procedure: k16819 
o|contracted procedure: k16826 
o|contracted procedure: k16836 
o|contracted procedure: k16840 
o|contracted procedure: k16856 
o|contracted procedure: k16876 
o|contracted procedure: k16887 
o|contracted procedure: k16897 
o|contracted procedure: k16911 
o|contracted procedure: k16923 
o|contracted procedure: k16930 
o|contracted procedure: k16938 
o|contracted procedure: k16945 
o|contracted procedure: k17176 
o|contracted procedure: k17180 
o|contracted procedure: k17192 
o|contracted procedure: k17196 
o|contracted procedure: k17229 
o|contracted procedure: k17204 
o|contracted procedure: k17208 
o|contracted procedure: k16951 
o|contracted procedure: k16954 
o|contracted procedure: k16961 
o|contracted procedure: k16967 
o|contracted procedure: k7107 
o|contracted procedure: k7097 
o|contracted procedure: k16993 
o|contracted procedure: k16999 
o|contracted procedure: k17005 
o|contracted procedure: k17011 
o|contracted procedure: k17017 
o|contracted procedure: k17055 
o|contracted procedure: k17061 
o|contracted procedure: k17067 
o|contracted procedure: k17099 
o|contracted procedure: k17103 
o|contracted procedure: k17160 
o|contracted procedure: k17135 
o|contracted procedure: k17139 
o|contracted procedure: k17260 
o|contracted procedure: k17282 
o|contracted procedure: k17308 
o|contracted procedure: k17312 
o|contracted procedure: k17323 
o|contracted procedure: k17327 
o|contracted procedure: k17335 
o|contracted procedure: k17339 
o|contracted procedure: k17347 
o|contracted procedure: k19360 
o|contracted procedure: k17379 
o|contracted procedure: k17389 
o|contracted procedure: k17410 
o|contracted procedure: k17419 
o|contracted procedure: k17422 
o|contracted procedure: k17425 
o|contracted procedure: k17434 
o|contracted procedure: k17443 
o|contracted procedure: k17452 
o|contracted procedure: k17465 
o|contracted procedure: k17468 
o|contracted procedure: k17480 
o|contracted procedure: k17486 
o|contracted procedure: k17501 
o|contracted procedure: k17504 
o|contracted procedure: k17507 
o|contracted procedure: k17514 
o|contracted procedure: k17528 
o|contracted procedure: k17531 
o|contracted procedure: k17546 
o|contracted procedure: k17553 
o|contracted procedure: k17560 
o|contracted procedure: k17563 
o|contracted procedure: k17585 
o|contracted procedure: k17595 
o|contracted procedure: k17606 
o|contracted procedure: k17618 
o|contracted procedure: k17631 
o|contracted procedure: k17641 
o|contracted procedure: k17645 
o|contracted procedure: k17651 
o|contracted procedure: k17654 
o|contracted procedure: k17664 
o|contracted procedure: k17670 
o|contracted procedure: k17684 
o|contracted procedure: k17710 
o|contracted procedure: k17714 
o|contracted procedure: k17722 
o|contracted procedure: k17733 
o|contracted procedure: k17740 
o|contracted procedure: k17729 
o|contracted procedure: k17757 
o|contracted procedure: k17766 
o|contracted procedure: k17776 
o|contracted procedure: k17780 
o|contracted procedure: k17792 
o|contracted procedure: k17795 
o|contracted procedure: k17798 
o|contracted procedure: k17801 
o|contracted procedure: k17830 
o|contracted procedure: k17839 
o|contracted procedure: k17848 
o|contracted procedure: k17858 
o|contracted procedure: k17867 
o|contracted procedure: k17876 
o|contracted procedure: k17892 
o|contracted procedure: k17895 
o|contracted procedure: k17898 
o|contracted procedure: k17919 
o|contracted procedure: k17974 
o|contracted procedure: k17980 
o|contracted procedure: k18005 
o|contracted procedure: k18017 
o|contracted procedure: k18027 
o|contracted procedure: k18031 
o|contracted procedure: k18044 
o|contracted procedure: k18057 
o|contracted procedure: k18063 
o|contracted procedure: k18069 
o|contracted procedure: k18078 
o|contracted procedure: k18093 
o|contracted procedure: k18096 
o|contracted procedure: k18099 
o|contracted procedure: k18118 
o|contracted procedure: k18121 
o|contracted procedure: k18124 
o|contracted procedure: k18166 
o|contracted procedure: k18181 
o|contracted procedure: k18187 
o|contracted procedure: k18196 
o|contracted procedure: k18199 
o|contracted procedure: k18232 
o|contracted procedure: k18235 
o|contracted procedure: k18294 
o|contracted procedure: k18301 
o|contracted procedure: k18326 
o|contracted procedure: k18332 
o|contracted procedure: k18353 
o|contracted procedure: k18359 
o|contracted procedure: k18387 
o|contracted procedure: k692225364 
o|contracted procedure: k18383 
o|contracted procedure: k18412 
o|contracted procedure: k18417 
o|contracted procedure: k18423 
o|contracted procedure: k18430 
o|contracted procedure: k18436 
o|contracted procedure: k18442 
o|contracted procedure: k18449 
o|contracted procedure: k18457 
o|contracted procedure: k18463 
o|contracted procedure: k18469 
o|contracted procedure: k18476 
o|contracted procedure: k18483 
o|contracted procedure: k18490 
o|contracted procedure: k18497 
o|contracted procedure: k18505 
o|contracted procedure: k18513 
o|contracted procedure: k18542 
o|contracted procedure: k19333 
o|contracted procedure: k18549 
o|contracted procedure: k19330 
o|contracted procedure: k18553 
o|contracted procedure: k18701 
o|contracted procedure: k18592 
o|contracted procedure: k18595 
o|contracted procedure: k18598 
o|contracted procedure: k18675 
o|contracted procedure: k18613 
o|contracted procedure: k18616 
o|contracted procedure: k18619 
o|contracted procedure: k18628 
o|contracted procedure: k18641 
o|contracted procedure: k18647 
o|contracted procedure: k18654 
o|contracted procedure: k18658 
o|contracted procedure: k18678 
o|contracted procedure: k18684 
o|contracted procedure: k18711 
o|contracted procedure: k18717 
o|contracted procedure: k18720 
o|contracted procedure: k18735 
o|contracted procedure: k18747 
o|contracted procedure: k18750 
o|contracted procedure: k18771 
o|contracted procedure: k18798 
o|contracted procedure: k18804 
o|contracted procedure: k18819 
o|contracted procedure: k18822 
o|contracted procedure: k18825 
o|contracted procedure: k18972 
o|contracted procedure: k18862 
o|contracted procedure: k18871 
o|contracted procedure: k18878 
o|contracted procedure: k18897 
o|contracted procedure: k18907 
o|contracted procedure: k18929 
o|contracted procedure: k18943 
o|contracted procedure: k18955 
o|contracted procedure: k18965 
o|contracted procedure: k18969 
o|contracted procedure: k18985 
o|contracted procedure: k18994 
o|contracted procedure: k19035 
o|contracted procedure: k19026 
o|contracted procedure: k19041 
o|contracted procedure: k19076 
o|contracted procedure: k19044 
o|contracted procedure: k19092 
o|contracted procedure: k19132 
o|contracted procedure: k19113 
o|contracted procedure: k19135 
o|contracted procedure: k19223 
o|contracted procedure: k19229 
o|contracted procedure: k19235 
o|contracted procedure: k19241 
o|contracted procedure: k19263 
o|contracted procedure: k19277 
o|contracted procedure: k19284 
o|contracted procedure: k19295 
o|contracted procedure: k19307 
o|contracted procedure: k19317 
o|contracted procedure: k19321 
o|contracted procedure: k19342 
o|contracted procedure: k19352 
o|contracted procedure: k19356 
o|contracted procedure: k19406 
o|contracted procedure: k19409 
o|contracted procedure: k19412 
o|contracted procedure: k19418 
o|contracted procedure: k19427 
o|contracted procedure: k19436 
o|contracted procedure: k19445 
o|contracted procedure: k19460 
o|contracted procedure: k19464 
o|contracted procedure: k19468 
o|contracted procedure: k19478 
o|contracted procedure: k19471 
o|contracted procedure: k19484 
o|contracted procedure: k19487 
o|contracted procedure: k19496 
o|contracted procedure: k19503 
o|contracted procedure: k19509 
o|contracted procedure: k19512 
o|contracted procedure: k19515 
o|contracted procedure: k19748 
o|contracted procedure: k19741 
o|contracted procedure: k19518 
o|contracted procedure: k19521 
o|contracted procedure: k19531 
o|contracted procedure: k19539 
o|contracted procedure: k19551 
o|contracted procedure: k19554 
o|contracted procedure: k19557 
o|contracted procedure: k19565 
o|contracted procedure: k19573 
o|inlining procedure: k19580 
o|contracted procedure: k19587 
o|contracted procedure: k19597 
o|contracted procedure: k19612 
o|contracted procedure: k19615 
o|inlining procedure: k19594 
o|inlining procedure: k19594 
o|contracted procedure: k19653 
o|contracted procedure: k19675 
o|contracted procedure: k19679 
o|contracted procedure: k19662 
o|contracted procedure: k19689 
o|contracted procedure: k19722 
o|contracted procedure: k19695 
o|contracted procedure: k19701 
o|inlining procedure: k19580 
o|contracted procedure: k19754 
o|contracted procedure: k19757 
o|contracted procedure: k19764 
o|contracted procedure: k19770 
o|contracted procedure: k19800 
o|contracted procedure: k6892 
o|contracted procedure: k6895 
o|contracted procedure: k6905 
o|contracted procedure: k19808 
o|contracted procedure: k19823 
o|contracted procedure: k19831 
o|contracted procedure: k19843 
o|contracted procedure: k19846 
o|contracted procedure: k19849 
o|contracted procedure: k19857 
o|contracted procedure: k19865 
o|contracted procedure: k19884 
o|contracted procedure: k19890 
o|contracted procedure: k19896 
o|contracted procedure: k19937 
o|contracted procedure: k19946 
o|contracted procedure: k19949 
o|contracted procedure: k19965 
o|contracted procedure: k19971 
o|contracted procedure: k19989 
o|contracted procedure: k19997 
o|contracted procedure: k20020 
o|contracted procedure: k20024 
o|contracted procedure: k20039 
o|contracted procedure: k20050 
o|contracted procedure: k20054 
o|contracted procedure: k20062 
o|contracted procedure: k20068 
o|contracted procedure: k20079 
o|contracted procedure: k20083 
o|contracted procedure: k20095 
o|contracted procedure: k20099 
o|contracted procedure: k20103 
o|contracted procedure: k20109 
o|contracted procedure: k20120 
o|contracted procedure: k20124 
o|contracted procedure: k20132 
o|contracted procedure: k20148 
o|contracted procedure: k20151 
o|contracted procedure: k20168 
o|contracted procedure: k20176 
o|contracted procedure: k20172 
o|contracted procedure: k20164 
o|contracted procedure: k20179 
o|contracted procedure: k20186 
o|contracted procedure: k20192 
o|contracted procedure: k20212 
o|contracted procedure: k20215 
o|contracted procedure: k20231 
o|contracted procedure: k20235 
o|contracted procedure: k20247 
o|contracted procedure: k20251 
o|contracted procedure: k20263 
o|contracted procedure: k20267 
o|contracted procedure: k20275 
o|contracted procedure: k20288 
o|contracted procedure: k20291 
o|contracted procedure: k20294 
o|contracted procedure: k20306 
o|contracted procedure: k20309 
o|contracted procedure: k20312 
o|contracted procedure: k20318 
o|contracted procedure: k20321 
o|contracted procedure: k20330 
o|contracted procedure: k20336 
o|contracted procedure: k20342 
o|contracted procedure: k20671 
o|contracted procedure: k20355 
o|contracted procedure: k20367 
o|contracted procedure: k20379 
o|inlining procedure: k20359 
o|contracted procedure: k20392 
o|contracted procedure: k20415 
o|contracted procedure: k20408 
o|contracted procedure: k20423 
o|inlining procedure: k20359 
o|contracted procedure: k20432 
o|contracted procedure: k20435 
o|contracted procedure: k20438 
o|contracted procedure: k20446 
o|contracted procedure: k20454 
o|contracted procedure: k20587 
o|contracted procedure: k20591 
o|contracted procedure: k20595 
o|contracted procedure: k20461 
o|inlining procedure: k20465 
o|contracted procedure: k20475 
o|contracted procedure: k20486 
o|contracted procedure: k20506 
o|contracted procedure: k20518 
o|contracted procedure: k20545 
o|contracted procedure: k20525 
o|contracted procedure: k20533 
o|contracted procedure: k20529 
o|contracted procedure: k20554 
o|contracted procedure: k20557 
o|contracted procedure: k20560 
o|contracted procedure: k20568 
o|contracted procedure: k20576 
o|contracted procedure: k20495 
o|contracted procedure: k20503 
o|inlining procedure: k20465 
o|contracted procedure: k20583 
o|contracted procedure: k20603 
o|contracted procedure: k20608 
o|contracted procedure: k20617 
o|contracted procedure: k20624 
o|contracted procedure: k20627 
o|contracted procedure: k20642 
o|contracted procedure: k20645 
o|contracted procedure: k20648 
o|contracted procedure: k20656 
o|contracted procedure: k20664 
o|contracted procedure: k20698 
o|contracted procedure: k20694 
o|contracted procedure: k20704 
o|contracted procedure: k20755 
o|contracted procedure: k20719 
o|contracted procedure: k20745 
o|contracted procedure: k20749 
o|contracted procedure: k20741 
o|contracted procedure: k20722 
o|contracted procedure: k20725 
o|contracted procedure: k20733 
o|contracted procedure: k20737 
o|contracted procedure: k20767 
o|contracted procedure: k20770 
o|contracted procedure: k20773 
o|contracted procedure: k20781 
o|contracted procedure: k20789 
o|contracted procedure: k20804 
o|contracted procedure: k20807 
o|contracted procedure: k20810 
o|contracted procedure: k20840 
o|contracted procedure: k20844 
o|contracted procedure: k20856 
o|contracted procedure: k20860 
o|contracted procedure: k20873 
o|contracted procedure: k20877 
o|contracted procedure: k20881 
o|contracted procedure: k20907 
o|contracted procedure: k20911 
o|contracted procedure: k20926 
o|contracted procedure: k20930 
o|contracted procedure: k20953 
o|contracted procedure: k20946 
o|contracted procedure: k20937 
o|contracted procedure: k20956 
o|contracted procedure: k20963 
o|contracted procedure: k20973 
o|contracted procedure: k20980 
o|contracted procedure: k20992 
o|inlining procedure: k20984 
o|inlining procedure: k20984 
o|contracted procedure: k21013 
o|contracted procedure: k21009 
o|contracted procedure: k21023 
o|contracted procedure: k21044 
o|contracted procedure: k21050 
o|contracted procedure: k21056 
o|contracted procedure: k21062 
o|contracted procedure: k21068 
o|contracted procedure: k21074 
o|contracted procedure: k21080 
o|contracted procedure: k21086 
o|contracted procedure: k21092 
o|contracted procedure: k21098 
o|contracted procedure: k21104 
o|contracted procedure: k21110 
o|contracted procedure: k21116 
o|contracted procedure: k21122 
o|contracted procedure: k21128 
o|contracted procedure: k21134 
o|contracted procedure: k21179 
o|contracted procedure: k21185 
o|contracted procedure: k21204 
o|contracted procedure: k21210 
o|contracted procedure: k21216 
o|contracted procedure: k21222 
o|contracted procedure: k21246 
o|contracted procedure: k21254 
o|contracted procedure: k21266 
o|contracted procedure: k21269 
o|contracted procedure: k21272 
o|contracted procedure: k21280 
o|contracted procedure: k21288 
o|contracted procedure: k21297 
o|contracted procedure: k21324 
o|contracted procedure: k21312 
o|contracted procedure: k21316 
o|contracted procedure: k21356 
o|contracted procedure: k21378 
o|contracted procedure: k21387 
o|contracted procedure: k21405 
o|contracted procedure: k21414 
o|contracted procedure: k21423 
o|contracted procedure: k21432 
o|contracted procedure: k21441 
o|contracted procedure: k21450 
o|contracted procedure: k21468 
o|contracted procedure: k21477 
o|contracted procedure: k21486 
o|contracted procedure: k21495 
o|contracted procedure: k21504 
o|contracted procedure: k21513 
o|contracted procedure: k21548 
o|contracted procedure: k21544 
o|contracted procedure: k21540 
o|contracted procedure: k21564 
o|contracted procedure: k21590 
o|contracted procedure: k21645 
o|contracted procedure: k21654 
o|contracted procedure: k21661 
o|contracted procedure: k21667 
o|contracted procedure: k21670 
o|contracted procedure: k21673 
o|contracted procedure: k21680 
o|contracted procedure: k21690 
o|contracted procedure: k21693 
o|contracted procedure: k21697 
o|contracted procedure: k21701 
o|contracted procedure: k21715 
o|contracted procedure: k21721 
o|contracted procedure: k21736 
o|contracted procedure: k21725 
o|contracted procedure: k21742 
o|contracted procedure: k21746 
o|contracted procedure: k21759 
o|contracted procedure: k21763 
o|contracted procedure: k21778 
o|contracted procedure: k21784 
o|contracted procedure: k21788 
o|contracted procedure: k21807 
o|contracted procedure: k21813 
o|contracted procedure: k21828 
o|contracted procedure: k21834 
o|contracted procedure: k21838 
o|contracted procedure: k21845 
o|contracted procedure: k21853 
o|contracted procedure: k21859 
o|contracted procedure: k21862 
o|contracted procedure: k21880 
o|contracted procedure: k21887 
o|contracted procedure: k21901 
o|contracted procedure: k21908 
o|contracted procedure: k21915 
o|contracted procedure: k21919 
o|contracted procedure: k21925 
o|contracted procedure: k21928 
o|contracted procedure: k21931 
o|contracted procedure: k21943 
o|contracted procedure: k21949 
o|contracted procedure: k21983 
o|contracted procedure: k21979 
o|contracted procedure: k21991 
o|contracted procedure: k21997 
o|contracted procedure: k22004 
o|contracted procedure: k21987 
o|contracted procedure: k22018 
o|contracted procedure: k22024 
o|contracted procedure: k22033 
o|contracted procedure: k22039 
o|contracted procedure: k22046 
o|contracted procedure: k22057 
o|contracted procedure: k22064 
o|inlining procedure: k22054 
o|inlining procedure: k22054 
o|contracted procedure: k22074 
o|contracted procedure: k22098 
o|contracted procedure: k22101 
o|contracted procedure: k22092 
o|contracted procedure: k22117 
o|contracted procedure: k22120 
o|contracted procedure: k22123 
o|contracted procedure: k22170 
o|contracted procedure: k22126 
o|contracted procedure: k22135 
o|contracted procedure: k22139 
o|contracted procedure: k22151 
o|contracted procedure: k22159 
o|contracted procedure: k22183 
o|contracted procedure: k22186 
o|contracted procedure: k22189 
o|contracted procedure: k22193 
o|contracted procedure: k22200 
o|contracted procedure: k22212 
o|contracted procedure: k22218 
o|contracted procedure: k22221 
o|contracted procedure: k22224 
o|contracted procedure: k22255 
o|contracted procedure: k22251 
o|contracted procedure: k22239 
o|contracted procedure: k22243 
o|contracted procedure: k22264 
o|contracted procedure: k22280 
o|contracted procedure: k22284 
o|contracted procedure: k22288 
o|contracted procedure: k22296 
o|contracted procedure: k22327 
o|contracted procedure: k22320 
o|contracted procedure: k22311 
o|contracted procedure: k22330 
o|contracted procedure: k22337 
o|contracted procedure: k22351 
o|contracted procedure: k22436 
o|contracted procedure: k22354 
o|contracted procedure: k22432 
o|contracted procedure: k22357 
o|contracted procedure: k22380 
o|contracted procedure: k22383 
o|contracted procedure: k22387 
o|contracted procedure: k22391 
o|contracted procedure: k22405 
o|contracted procedure: k22424 
o|contracted procedure: k22413 
o|contracted procedure: k22420 
o|contracted procedure: k22442 
o|contracted procedure: k22455 
o|contracted procedure: k22463 
o|contracted procedure: k22466 
o|contracted procedure: k22481 
o|contracted procedure: k22487 
o|contracted procedure: k22547 
o|contracted procedure: k22567 
o|contracted procedure: k22574 
o|contracted procedure: k22587 
o|contracted procedure: k22590 
o|contracted procedure: k22603 
o|contracted procedure: k22607 
o|contracted procedure: k22614 
o|contracted procedure: k22622 
o|contracted procedure: k22626 
o|contracted procedure: k22634 
o|contracted procedure: k22638 
o|contracted procedure: k22642 
o|contracted procedure: k22646 
o|contracted procedure: k22650 
o|contracted procedure: k22656 
o|contracted procedure: k22666 
o|contracted procedure: k22674 
o|contracted procedure: k22678 
o|contracted procedure: k22693 
o|contracted procedure: k22704 
o|contracted procedure: k22708 
o|contracted procedure: k22727 
o|contracted procedure: k22735 
o|contracted procedure: k22739 
o|contracted procedure: k22743 
o|contracted procedure: k22747 
o|contracted procedure: k22753 
o|contracted procedure: k22756 
o|contracted procedure: k22760 
o|contracted procedure: k22825 
o|contracted procedure: k22843 
o|contracted procedure: k22851 
o|contracted procedure: k22863 
o|contracted procedure: k22866 
o|contracted procedure: k22869 
o|contracted procedure: k22877 
o|contracted procedure: k22885 
o|contracted procedure: k22906 
o|contracted procedure: k22910 
o|contracted procedure: k22930 
o|contracted procedure: k7574 
o|contracted procedure: k7581 
o|contracted procedure: k7589 
o|contracted procedure: k22943 
o|contracted procedure: k22963 
o|contracted procedure: k7122 
o|contracted procedure: k7135 
o|contracted procedure: k7141 
o|contracted procedure: k23051 
o|contracted procedure: k22998 
o|propagated global variable: r23052 ##sys#undefined-value 
o|contracted procedure: k23011 
o|inlining procedure: k23008 
o|contracted procedure: k23020 
o|inlining procedure: k23008 
o|contracted procedure: k23029 
o|contracted procedure: k23038 
o|contracted procedure: k23044 
o|contracted procedure: k23101 
o|contracted procedure: k23097 
o|simplifications: ((##core#call . 2) (if . 9) (let . 462)) 
o|  call simplifications:
o|    scheme#+	2
o|removed binding forms: 1657 
o|contracted procedure: k10247 
o|contracted procedure: k12475 
o|inlining procedure: k12994 
o|inlining procedure: k12994 
o|inlining procedure: k12994 
o|inlining procedure: k13340 
o|inlining procedure: k13340 
o|contracted procedure: k13867 
o|contracted procedure: k15237 
o|inlining procedure: k15877 
o|inlining procedure: k16114 
o|inlining procedure: "(core.scm:2111) grow3823" 
o|inlining procedure: "(core.scm:2118) grow3823" 
o|inlining procedure: "(core.scm:2122) grow3823" 
o|inlining procedure: "(core.scm:2194) grow3823" 
o|inlining procedure: "(core.scm:2102) grow3823" 
o|inlining procedure: "(core.scm:2510) quick-put!3830" 
o|inlining procedure: "(core.scm:2489) quick-put!3830" 
o|inlining procedure: "(core.scm:2466) quick-put!3830" 
o|inlining procedure: "(core.scm:2466) quick-put!3830" 
o|inlining procedure: "(core.scm:2419) quick-put!3830" 
o|inlining procedure: "(core.scm:2419) quick-put!3830" 
o|inlining procedure: "(core.scm:2383) quick-put!3830" 
o|inlining procedure: "(core.scm:2384) quick-put!3830" 
o|inlining procedure: "(core.scm:2398) quick-put!3830" 
o|inlining procedure: "(core.scm:2398) quick-put!3830" 
o|inlining procedure: "(core.scm:2393) quick-put!3830" 
o|inlining procedure: "(core.scm:2411) quick-put!3830" 
o|inlining procedure: "(core.scm:2410) quick-put!3830" 
o|inlining procedure: "(core.scm:2368) quick-put!3830" 
o|inlining procedure: k19584 
o|inlining procedure: k19584 
o|inlining procedure: k19584 
o|inlining procedure: k19584 
o|inlining procedure: k19584 
o|contracted procedure: k20033 
o|contracted procedure: k21817 
o|simplifications: ((let . 4)) 
o|replaced variables: 14 
o|removed binding forms: 13 
o|substituted constant variable: n383126833 
o|substituted constant variable: n383126837 
o|substituted constant variable: n383126841 
o|substituted constant variable: n383126851 
o|substituted constant variable: n383126855 
o|substituted constant variable: prop408226862 
o|substituted constant variable: prop408226869 
o|substituted constant variable: prop408226876 
o|substituted constant variable: val408326877 
o|substituted constant variable: prop408226883 
o|substituted constant variable: val408326884 
o|contracted procedure: "(core.scm:2466) quick-put!3830" 
o|substituted constant variable: prop408226892 
o|substituted constant variable: val408326893 
o|substituted constant variable: prop408226899 
o|substituted constant variable: val408326900 
o|substituted constant variable: prop408226906 
o|substituted constant variable: val408326907 
o|substituted constant variable: prop408226913 
o|substituted constant variable: val408326914 
o|substituted constant variable: prop408226920 
o|substituted constant variable: val408326921 
o|substituted constant variable: prop408226927 
o|substituted constant variable: val408326928 
o|substituted constant variable: prop408226934 
o|substituted constant variable: val408326935 
o|substituted constant variable: prop408226941 
o|substituted constant variable: prop408226948 
o|substituted constant variable: val408326949 
o|substituted constant variable: prop408226955 
o|substituted constant variable: val408326956 
o|replaced variables: 51 
o|removed binding forms: 6 
o|inlining procedure: k17471 
o|inlining procedure: k18631 
o|inlining procedure: k18729 
o|substituted constant variable: prop4082 
o|substituted constant variable: val4083 
o|replaced variables: 3 
o|removed binding forms: 68 
o|contracted procedure: k17404 
o|contracted procedure: k17437 
o|contracted procedure: k17483 
o|contracted procedure: k17833 
o|contracted procedure: k19177 
o|removed binding forms: 13 
o|removed binding forms: 4 
o|direct leaf routine/allocation: a7289 0 
o|direct leaf routine/allocation: loop615 0 
o|direct leaf routine/allocation: g13551365 18 
o|direct leaf routine/allocation: g16351648 0 
o|direct leaf routine/allocation: loop1842 0 
o|direct leaf routine/allocation: g416417 3 
o|direct leaf routine/allocation: loop456 0 
o|direct leaf routine/allocation: grow3823 29 
o|direct leaf routine/allocation: g41034115 0 
o|direct leaf routine/allocation: g46974706 0 
o|direct leaf routine/allocation: g52545255 0 
o|direct leaf routine/allocation: loop626 0 
o|direct leaf routine/allocation: new-literal4982 32 
o|direct leaf routine/allocation: g52705271 0 
o|contracted procedure: "(mini-srfi-1.scm:88) k6734" 
o|converted assignments to bindings: (loop615) 
o|contracted procedure: "(core.scm:787) k9388" 
o|contracted procedure: "(core.scm:886) k10064" 
o|converted assignments to bindings: (loop1842) 
o|contracted procedure: k16974 
o|converted assignments to bindings: (loop456) 
o|contracted procedure: "(core.scm:2143) k17588" 
o|contracted procedure: "(core.scm:2156) k17657" 
o|contracted procedure: "(core.scm:2317) k19345" 
o|contracted procedure: "(core.scm:2748) k20660" 
o|contracted procedure: k22918 
o|converted assignments to bindings: (loop626) 
o|simplifications: ((let . 4)) 
o|removed binding forms: 9 
o|direct leaf routine/allocation: loop320 0 
o|direct leaf routine/allocation: for-each-loop16341651 0 
o|direct leaf routine/allocation: for-each-loop41024126 0 
o|contracted procedure: k7283 
o|converted assignments to bindings: (loop320) 
o|contracted procedure: k10008 
o|converted assignments to bindings: (for-each-loop16341651) 
o|contracted procedure: k18545 
o|converted assignments to bindings: (for-each-loop41024126) 
o|simplifications: ((let . 3)) 
o|removed binding forms: 3 
o|customizable procedures: (a22976 loop462 g52245233 map-loop52185236 k21648 loop5197 k22472 k22493 immediate-literal4984 k22445 k22360 k22408 k22367 k22370 k22270 k22273 g51265127 k22008 k21875 walk4979 va26422 k21676 mapwalk4980 walk-var4977 k21580 k21583 blockvar-literal4983 walk-global4978 literal4981 g49954996 g48544855 g48254834 map-loop48194837 k19940 k19974 k20195 k20819 g48114812 map-loop46344651 map-loop46134658 k20345 map-loop46914715 map-loop47364754 loop4730 g47704779 map-loop47644782 maptransform4333 lp4533 transform4332 ref-var4334 k19430 g44644473 map-loop44584476 loop366 k19606 test4328 k19624 k19630 register-direct-call!4330 register-customizable!4329 g44164425 map-loop44104428 chicken.compiler.core#concatenate gather4331 k19266 g41424149 for-each-loop41414152 k19192 k18562 g42034204 k19107 k18982 k18568 g42304237 for-each-loop42294247 k18922 k18890 k18574 k18726 k18583 k18604 k18625 k18084 k18141 k18169 k18214 g40494050 mark-rest-null?3827 mark-rest-cdr3826 g39934000 for-each-loop39924003 k17413 g39243932 for-each-loop39233936 k17696 k17699 g38933900 for-each-loop38923903 assign3828 loop3878 walk3824 walkeach3825 ref3829 loop3795 walk-arguments3690 chicken.compiler.core#cons* k16592 k16914 walk-call3687 walk-inline-call3689 cps-lambda3684 node-for-var?3685 loop3731 walk3686 map-loop35423560 map-loop35703587 loop3389 map-loop34393459 map-loop34133430 k15833 map-loop34803501 a13800 g32833290 for-each-loop32823314 k15387 g32393246 for-each-loop32383275 k15195 k15278 for-each-loop32113229 for-each-loop31863204 for-each-loop31553173 k14928 map-loop31173142 for-each-loop30923110 for-each-loop30623080 for-each-loop30443054 for-each-loop30263036 for-each-loop29873005 for-each-loop29552973 for-each-loop29242942 for-each-loop28992917 globalize-all2700 for-each-loop28472875 for-each-loop28572890 for-each-loop27952813 for-each-loop28202838 for-each-loop27702788 chicken.compiler.core#lset-intersection/eq? stripa2698 check-decl2697 chicken.compiler.core#lset-difference/eq? foldr401404 g406407 a13757 note-local2701 g26532662 map-loop26472665 k8730 g26042605 g25972598 loop2569 macro-alias789 loop223 g25082517 map-loop25022521 k12467 k12333 k12247 k16261 map-loop36043622 map-loop36323649 chicken.compiler.core#create-foreign-stub chicken.compiler.core#expand-foreign-lambda* chicken.compiler.core#expand-foreign-lambda fold2304 map-loop22652282 mapwalk798 g22382247 map-loop22322250 unquotify794 k11558 g21512152 g21422143 map-loop20422059 g18251834 map-loop18191849 k11158 g19992008 map-loop19932014 doloop20292030 loop1907 for-each-loop963973 chicken.compiler.core#delete k10795 k10812 map-loop17781797 g17011710 map-loop16951716 for-each-loop17461757 for-each-loop17281739 k10328 k10237 k10128 map-loop16021620 map-loop15631581 map-loop14711488 k9717 chicken.compiler.core#posq k9621 g14291438 map-loop14231441 map-loop12921309 map-loop13221340 map-loop13491373 map-loop13851409 map-loop12321250 map-loop12591280 chicken.compiler.core#unzip1 map-loop11441161 set-real-names!792 g11841194 map-loop11781199 canonicalize-body/ln791 g10671076 map-loop10611079 g10321033 resolve-variable795 g932933 g922923 g912913 g908909 g904905 walk797 for-each-loop850864 handle-expansion-result790 mapupdate3659 walk3660 loop3662 lookup788 k7838 find-id787 g759766 for-each-loop758777 chicken.compiler.core#every foldl527531 foldl511515 chicken.compiler.core#filter foldl489493 loop473 map-loop429447 foldr383386 g388389 loop346 loop339 loop333 loop307) 
o|calls to known targets: 857 
o|identified direct recursive calls: f_6756 1 
o|identified direct recursive calls: f_6784 1 
o|identified direct recursive calls: f_6935 1 
o|identified direct recursive calls: f_7052 1 
o|identified direct recursive calls: f_7151 2 
o|identified direct recursive calls: f_6726 1 
o|identified direct recursive calls: f_7262 2 
o|identified direct recursive calls: f_7535 1 
o|identified direct recursive calls: f_9136 1 
o|identified direct recursive calls: f_9170 1 
o|identified direct recursive calls: f_9313 1 
o|identified direct recursive calls: f_9361 1 
o|identified direct recursive calls: f_9409 1 
o|identified direct recursive calls: f_10056 1 
o|identified direct recursive calls: f_11171 1 
o|identified direct recursive calls: f_16303 1 
o|identified direct recursive calls: f_16337 1 
o|identified direct recursive calls: f_6483 1 
o|identified direct recursive calls: f_6979 1 
o|identified direct recursive calls: f_15729 3 
o|identified direct recursive calls: f_16187 1 
o|identified direct recursive calls: f_16221 1 
o|identified direct recursive calls: f_7092 1 
o|identified direct recursive calls: f_19337 1 
o|identified direct recursive calls: f_20513 1 
o|identified direct recursive calls: f_20637 1 
o|identified direct recursive calls: f_20714 1 
o|identified direct recursive calls: f_7569 1 
o|fast box initializations: 141 
o|fast global references: 93 
o|fast global assignments: 53 
o|dropping unused closure argument: f_11171 
o|dropping unused closure argument: f_13710 
o|dropping unused closure argument: f_13773 
o|dropping unused closure argument: f_15720 
o|dropping unused closure argument: f_16109 
o|dropping unused closure argument: f_16146 
o|dropping unused closure argument: f_16548 
o|dropping unused closure argument: f_17386 
o|dropping unused closure argument: f_21295 
o|dropping unused closure argument: f_22993 
o|dropping unused closure argument: f_6686 
o|dropping unused closure argument: f_6750 
o|dropping unused closure argument: f_6778 
o|dropping unused closure argument: f_6806 
o|dropping unused closure argument: f_6926 
o|dropping unused closure argument: f_7035 
o|dropping unused closure argument: f_7092 
o|dropping unused closure argument: f_7186 
o|dropping unused closure argument: f_7310 
o|dropping unused closure argument: f_7529 
o|dropping unused closure argument: f_7915 
o|dropping unused closure argument: f_7971 
*/
/* end of file */
